mirror of
https://gitlab.winehq.org/wine/wine-gecko.git
synced 2024-09-13 09:24:08 -07:00
16 lines
188 B
Perl
16 lines
188 B
Perl
|
#!/perl/bin/perl
|
||
|
|
|
||
|
|
@ARGV[0];
|
||
|
|
$Dir = $ARGV[0];
|
||
|
|
sleep (3);
|
||
|
|
print ($Dir);
|
||
|
|
$temp = $Dir;
|
||
|
|
$slash = "-"."-";
|
||
|
|
print ("\n");
|
||
|
|
print ($slash);
|
||
|
|
$temp =~ s/'\'/$slash/g;
|
||
|
|
print ("\n");
|
||
|
|
print ($temp);
|
||
|
|
|
||
|
|
|