Почему я не могу использовать более 20 файлов с моим Perl-скриптом и Windows SendTo? - PullRequest
Новая
       41

Почему я не могу использовать более 20 файлов с моим Perl-скриптом и Windows SendTo?

2 голосов
/ 24 октября 2009

Я пытаюсь эмулировать RapidCRC способность проверять значения crc32 в именах файлов в 64-битной Windows Vista Ultimate. Тем не менее, я, кажется, сталкиваюсь с каким-то ограничением аргументов.

Я написал быстрый Perl-скрипт, создал командный файл для его вызова, а затем поместил ярлык для командного файла в %APPDATA%\Microsoft\Windows\SendTo

Это прекрасно работает, когда я выбираю около 20 файлов или меньше, щелкаю правой кнопкой мыши и "отправляю" мой скрипт командного файла. Тем не менее, ничего не происходит, когда я выбираю больше, чем это. Я подозреваю, что число символов или количество аргументов ограничено где-то.

Надеюсь, мне не хватает чего-то простого и что решение или обходной путь не слишком болезненны.

Ссылка:

командный файл (crc32_inline.bat): 

crc32_inline.pl %*

Примечания Perl:

Я использую (клубника) Perl v5.10.0

У меня есть C: \ strawberry \ perl \ bin на моем пути, где существует crc32.bat.

скрипт perl (crc32_inline.pl): 

#!/usr/bin/env perl

use strict;
use warnings;

use Cwd;
use English qw( -no_match_vars );
use File::Basename;

$OUTPUT_AUTOFLUSH = 1;

my $crc32_cmd = 'crc32.bat';
my $failure_report_basename = 'crc32_failures.txt';
my %failures = ();

print "\n";
foreach my $arg (@ARGV) {

  # if the file has a crc, check to see if it matches the calculated
  # crc.
  if (-f $arg and $arg =~ /\[([0-9a-f]{8})\]/i) {
    my $crc = uc $1;
    my $basename = basename($arg);
    print "checking ${basename}... ";
    my $calculated_crc = uc `${crc32_cmd} "${arg}"`;
    chomp($calculated_crc);
    if ($crc eq $calculated_crc) {
      print "passed.\n";
    }
    else {
      print "FAILED (calculated ${calculated_crc})\n";
      my $dirname = dirname($arg);
      $failures{$dirname}{$basename} = $calculated_crc;
    }
  }
}

print "\nReport Summary:\n";
if (scalar keys %failures == 0) {
  print "  All files OK\n";
}
else {
  print sprintf("  %d / %d files failed crc32 validation.\n" .
                "  See %s for details.\n",
                scalar keys %failures,
                scalar @ARGV,
                $failure_report_basename);

  my $failure_report_fullname = $failure_report_basename;
  if (defined -f $ARGV[0]) {
    $failure_report_fullname
      = dirname($ARGV[0]) . '/' . $failure_report_basename;
  }

  $OUTPUT_AUTOFLUSH = 0;
  open my $fh, '>' . $failure_report_fullname or die $!;
  foreach my $dirname (sort keys %failures) {
    print {$fh} $dirname . "\n";
    foreach my $basename (sort keys %{$failures{$dirname}}) {
      print {$fh} sprintf("  crc32(%s) basename(%s)\n",
                          $failures{$dirname}{$basename},
                          $basename);
    }
  }
  close $fh;
  $OUTPUT_AUTOFLUSH = 1;
}

print sprintf("\n%s done! (%d seconds elapsed)\n" .
              "Press enter to exit.\n",
              basename($0),
              time() - $BASETIME);
<STDIN>;

1 Ответ

1 голос
/ 25 октября 2009

Я рекомендую просто поместить ярлык для вашего скрипта в каталог «Отправить» вместо того, чтобы делать это через пакетный файл (который подчиняется ограничениям cmd.exe s на длину командной строки).

...