install-win32/dosname.pl


1
2
3
4
5
6
7
8
9

#!/usr/bin/perl

# convert a unix filename to a DOS filename

while ($unixname = shift(@ARGV)) {
  $unixname =~ s#^/([a-zA-Z])(/|$)#$1:\\#g;
  $unixname =~ s#/#\\#g;
  print "$unixname\n";
}