(MeowChow) Re: split

You can do this manually:

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

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 );
[download]

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

Comment on (MeowChow) Re: split Select or Download Code

Replies are listed 'Best First'.
Re: (MeowChow) Re: split by c-era (Curate) on Jun 07, 2002 at 13:14 UTC
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.	[reply] [d/l]