Help for this page

Select Code to Download


  1. or download this
    my ($subdir1) = /^C:\\[^\\]+\\([^\\]+)/;
  2. or download this
    use File::Spec ();
my ($subdir1) = (File::Spec->splitdir(File::Spec->rel2abs($_)))[2];