On 4/27/07, Nishi <[EMAIL PROTECTED]> wrote:
The issue is when i use cygwin Perl.
And the specific issue is what? I have just installed cygwin on an XP
box and wrote this script:
#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
for my $path (qw{c:\foo\bar\baz.txt /cygdrive/c/foo/bar/baz.txt}) {
print "$path -> ", basename($path), "\n";
}
and the output is
c:\foo\bar\baz.txt -> baz.txt
/cygdrive/c/foo/bar/baz.txt -> baz.txt
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
