You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
591 B
26 lines
591 B
open foo, $ARGV[0] or die "can't open $ARGV[0]";
|
|
|
|
$count = 0;
|
|
while (<foo>) {
|
|
($path,$created) = split (/,/, $_);
|
|
|
|
#throw away ones with NULL path.
|
|
$path =~ /NULL/ and next;
|
|
|
|
#throw away beta reports
|
|
$path =~ /WhistlerBeta\\archived/ and next;
|
|
|
|
if ($path =~ /Mini/) {
|
|
$path =~ s/.*?\_(\w+\@Mini.cab).*/$1/;
|
|
} else {
|
|
$path =~ s/.*?\_(\w+\.cab).*/$1/;
|
|
}
|
|
|
|
($year,$month,$day) = split(/[- ]/,$created);
|
|
|
|
$month =~ s/^0//;
|
|
$day =~ s/^0//;
|
|
|
|
print"\\\\tkwucdfsb01\\ocaarchive\\$month-$day-$year\\$path\n";
|
|
|
|
}
|