parent
918b2b9331
commit
ec94ebab79
@ -1,14 +0,0 @@ |
||||
#!/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); |
@ -1,15 +0,0 @@ |
||||
#!/usr/bin/perl |
||||
open (IN , "ls -1|"); |
||||
while (<IN>) { |
||||
chomp ($_); |
||||
print $_; |
||||
$a = $_; |
||||
$_ =~ s/\%20/\\ /g; |
||||
if ($_ =~ /\%3A/) { |
||||
$_ =~ s/\%3A/\:/; |
||||
} |
||||
`ln -s $a $_`; |
||||
print "ln -s $a $_\n"; |
||||
#print "\n"; |
||||
} |
||||
close (IN); |
Loading…
Reference in new issue