Help for this page

Select Code to Download


  1. or download this
    use strict;
use File::Basename;
...
Original  : Engineering/SBI/PD_PRC/Overall_SWReleaseFlow_v0.1.vsd
Directory : Engineering/SBI/PD_PRC
Fielname  : Overall_SWReleaseFlow_v0.1.vsd
  2. or download this
    for (@f_path){
my ($dir, $fname)= $_ =~ /^(.*?)[\\\/]([^\\\/]+)$/;
...
print "\nDirectory : $dir";
print "\nFielname  : $fname\n";
}