This script is a hack job to fix the stupid encoding of stuff. I'm a sexy
pirater
This commit is contained in:
parent
9be7e7e956
commit
efe11a6c76
|
@ -0,0 +1,14 @@
|
||||||
|
#!/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);
|
Loading…
Reference in New Issue