I get it. Thank you

use File::Basename;
my $os_string = "MSWin32";
fileparse_set_fstype($os_string);
my $fullfilename = "c:\\windows\\system32\\kernel32.dll";
my ($name,$path,$suffix) = fileparse($fullfilename, '\..*');
$suffix =~ s/\.//g;
print "$name\n" . "$path\n" . "$suffix\n";

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to