Question

嘿，我知道这个标题毫无意义!!

我几天前开始编写perl，所以不要判断我：o !!

所以为了达到这一点，我有多个CSV文件，它们命名了几个相同的几个示例名称。

Belgroep\ 00.csv, Belgroep\ 01.csv, Belgroep\ 02.csv

所以我的脚本也循环遍历从00开始的所有文件到46的结尾然后它必须从名称中获取数字并将它们存储在变量中。

如果您在使用我有限的知识尝试制作此脚本时可以告诉我使用模块方法等，那将会很棒。

Answer 1

以下是一些可以帮助您入门的代码：

# Test files created in linux via:
# touch Belgroep\ {00..46}.csv 

my $CWD = '.';

# Get a handle for the current working directory:
opendir MYDIR, $CWD;


while( readdir MYDIR ){

  print "Processing file: $CWD/$_\n";

  if ( "$_" =~ m/[0-9]{2}/ ) {  # this file name has a number pair in it.
    my $file = $_;
    my ($num) = $_ =~ /([\d]{2})/;
    print "Number for file \"$file\" is $num\n";
  }
}

使用带-f选项的perldoc命令为您提供每个函数的详细信息。

例如：perldoc -f opendir

Learn Perl website也是一个很好的资源。

对于模块，您应该搜索CPAN

Perl“打开多个csv文件”+“拉出部分名称并存储”

1 个答案: