Help for this page

Select Code to Download


  1. or download this
       my $path = '\nbs\main\den\rel_10.\cr_Q00472526-03-1\final';
   $path =~ s/[^\\]+\\(\w+)$/$1/ ;
...

__END__
\nbs\main\den\rel_10.\final
  2. or download this
    
   my ($leaf ) = $path =~ m/[^\\]+$/g ;  #save the leaf
...
__END__
\nbs\main\den\rel_10.\final