15 lines
191 B
Perl
15 lines
191 B
Perl
|
#!/usr/bin/perl
|
||
|
open (IN , "ls -1|");
|
||
|
while (<IN>) {
|
||
|
chomp ($_);
|
||
|
#print $_;
|
||
|
$a = $_;
|
||
|
if ($_ =~ /\%3A/) {
|
||
|
$_ =~ s/\%3A/\:/;
|
||
|
`ln -s $a $_`;
|
||
|
print "ln -s $a $_\n";
|
||
|
}
|
||
|
#print "\n";
|
||
|
}
|
||
|
close (IN);
|