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]