use File::Basename; my $fullpath='YourFileFullpath'; my ($name, $path, $suffix) = fileparse($fullpath); print "name=$name\n";
確定! 回上一頁