使用 bash 脚本的通配符和正则表达式问题

Question

我的正则表达式有问题：

我的脚本是用 perl 编写的。

#!/usr/bin/perl

# Inverse les colonnes 1 et 2
while(<>){
    my @cols  = split (/\|/);
    print "$cols[-3]/$cols[-4]\n";
}

exit;

我使用以下命令创建别名：

alias inverseur="perl /laboratoire10/inverseur_colonnes.pl

我希望完成以下工作：

编写一个“bash”脚本，为文件中的每个电影标题 (.avi) 创建一个文件容器。

原文件为：http://www.genxvideo.com/genxinventory-current.xls 但我已将其重命名为 liste_films.csv 。

所有引号、空格、破折号和其他奇怪的字符都必须替换为下划线“_”。

该组将成为目录名称，电影的标题将跟随文件名后缀（.avi）。为此，代码必须反向处理字段“title”和“class”。您可以使用之前创建的别名“inverter”反转字段“title”和“class”。

该脚本显然会在创建 .avi 文件之前在“/laboratoire10”中创建每个目录。总共应该有 253 个有效目录。正在通过“|”创建目录使用命令“xargs mkdir-pv /.”

我需要使用命令来扩充我当前的代码以查找名称中包含字符串 min/maj "wood" 的 .avi 文件

Answer 1

很难理解你到底想要做什么。假设你有一个 |分隔 CSV 并希望有一个目录树，其中包含 CATEGORY/TITLE 和每个目录下名为“cans.avi”的文件，名称为该名称，这是一个单行 perl 脚本。

perl -mText::CSV -e '$csv = Text::CSV->new({ sep_char=>"|",binary=>1,auto_diag => 1 } ) || die; open my $fh, "<", $ARGV[0] or die; while (my $row = $csv->getline($fh)) { $file = cleaner($row->[1])."/".cleaner($row->[0]); print "mkdir $file; touch $file/cans.avi\n"; } sub cleaner($) { my($f) = @_; $f =~ s/\W/_/g; $f;}'  ~/tmp/genxinventory-current.csv 

我将 XLS 文件转换为 |使用 libreoffice 分隔 CSV，因此您的转换里程（公里数？）可能会有所不同。