小编And*_*niz的帖子

如何创建Perl脚本以获取一些"命名"命令行参数？

例如:

perl my_perl.pl -ARG_1 1234 -ARG_2 "Testing"

其中ARG_1和ARG_2是参数名称,1234和"测试"它们的值.

我需要删除给定文件夹下的所有内容(文件和文件夹).问题是文件夹里面有数百万个文件和文件夹.所以我不想一次性加载所有文件名.

逻辑应该是这样的:

• 迭代文件夹而不加载所有内容
• 获取文件或文件夹
• 删除它 (详细说明文件或文件夹"X"已删除)
• 去下一个

我正在尝试这样的事情:

sub main(){
  my ($rc, $help, $debug, $root)   = ();
  $rc = GetOptions ( "HELP"           => \$help,
                     "DEBUG"          => \$debug,
                     "ROOT=s"         => \$root);

  die "Bad command line options\n$usage\n" unless ($rc);
  if ($help) { print $usage; exit (0); }

  if ($debug) {
      warn "\nProceeding to execution with following parameters: \n";
      warn "===============================================================\n";
      warn "ROOT = $root\n";

  } # write debug information to STDERR

  print "\n Starting to delete...\n";  

  die "usage: $0 dir …

要求

• 我有一个非常大的CSV文件可供阅读.(约3 GB)
• 我不需要所有记录,我的意思是,我们可以使用一些条件,例如,如果第3个CSV列内容为"XXXX"且第4列为"999".

问题: 我可以使用这些条件来改进读取过程吗？如果是这样,我怎么能用Perl做到这一点？

我在你的答案中需要一个例子(Perl Script).