Help for this page

Select Code to Download


  1. or download this
    my $path = '\\\\Srvbuild\e\ADW61\VENDOR\MICROSOFT\PLATFORMSDK\INCLUDE'
+;
print join $/, $path =~ /((?:\\[^\\]*){3})(.*)/;
  2. or download this
    use File::Spec;

my $path = '\\\\Srvbuild\e\ADW61\VENDOR\MICROSOFT\PLATFORMSDK\INCLUDE'
+;
print join $/, File::Spec->splitpath( $path );