Help for this page

Select Code to Download


  1. or download this
    #! perl
use warnings;        # Always use this, it will help you enormously.
...
my ($Pdir, $Sdir) = $path =~ m!(.+)Anand\\toipcs(.+)!;

print "Pdir = '$Pdir' and Sdir = '$Sdir'\n";
  2. or download this
    c:\test>207011
Pdir = '\default\main\' and Sdir = '\Tutorials\internet'

c:\test>