2007-04-25 23:37:49 +02:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
2007-04-26 00:58:21 +02:00
|
|
|
# convert a unix filename to a DOS filename
|
|
|
|
|
2007-04-25 23:37:49 +02:00
|
|
|
while ($unixname = shift(@ARGV)) {
|
|
|
|
$unixname =~ s#^/([a-zA-Z])(/|$)#$1:\\#g;
|
|
|
|
$unixname =~ s#/#\\#g;
|
|
|
|
print "$unixname\n";
|
|
|
|
}
|