2006-06-21 21:54:33 -04:00
|
|
|
#!/usr/bin/perl
|
|
|
|
open (IN , "ls -1|");
|
|
|
|
while (<IN>) {
|
|
|
|
chomp ($_);
|
2007-01-14 17:25:49 -05:00
|
|
|
print $_;
|
2006-06-21 21:54:33 -04:00
|
|
|
$a = $_;
|
|
|
|
$_ =~ s/\%20/\\ /g;
|
|
|
|
if ($_ =~ /\%3A/) {
|
|
|
|
$_ =~ s/\%3A/\:/;
|
2007-01-14 17:25:49 -05:00
|
|
|
}
|
2006-06-21 21:54:33 -04:00
|
|
|
`ln -s $a $_`;
|
|
|
|
print "ln -s $a $_\n";
|
|
|
|
#print "\n";
|
|
|
|
}
|
|
|
|
close (IN);
|