20 строки
391 B
Perl
20 строки
391 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
if (scalar(@ARGV) != 1) {
|
||
|
|
print "Usage: generate_file_list <diff file>\n";
|
||
|
|
exit(3);
|
||
|
|
}
|
||
|
|
|
||
|
|
$file_name = @ARGV[0];
|
||
|
|
open(FILE,"$file_name") || print "File count not be opened\n";
|
||
|
|
open(TEMP,"> file_list") || print "Could not open file for writing\n";
|
||
|
|
while (<FILE>) {
|
||
|
|
if (/Index/) {
|
||
|
|
s/^Index:\s*//g;
|
||
|
|
print TEMP;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
close(TEMP);
|
||
|
|
close($file_name);
|
||
|
|
|