(MeowChow) Re: split

[MeowChow]

in reply to Getting server share and path from a Microsoft UNC

You can do this manually:

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

Or better yet, use File::Spec, which is included with Perl:

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

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

[c-era]

If you use File::Spec->splitpath, it returns server, path, and filename so you will need to have a third variable for a filename. It will also include the first directory with the server part. Not a big issues, but a couple possible gotchas.