17 lines
470 B
Perl
Executable File
17 lines
470 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
my $file = $ARGV[0] || $ENV{'WEBROOT'} . '/images.txt';
|
|
|
|
open(IN, $file) || die "Unable to read '$file': $!\n";
|
|
while(my $line=<IN>) {
|
|
chomp($line);
|
|
|
|
if(my($id,$num,$hr)=$line=~/.+\/(.+)_(\d+)_HR\..+$/) {
|
|
print join(',',$id,$num,'HR',$line), "\n";
|
|
} elsif(my($id,$num)=$line=~/.+\/(.+)_(\d+)\..+$/) {
|
|
print join(',',$id,$num,'LR',$line),"\n";
|
|
} else {
|
|
warn "Invalid line? '$line'\n";
|
|
}
|
|
}
|
|
close(IN); |