parsing a path

DS has asked for the wisdom of the Perl Monks concerning the following question:

Hey Guys ,, I have this path inside a file :

\nb\v5\srcccc\ans.cpp@@\main\
[download]

I want to capture the following :

$dir = nb;
$subDir = v5;
$file = ans.cpp
[download]

I am doing the following :

while (<INFILE>) {
 if(/\\([^\\]+).*?(\w+\.cpp)/)  
   {   
push @thing, [$1,$2,$3];
   }
   }   
for (@thing) {
    my ($dir,$subDir,$file) = @$_;
[download]

I am not able to get the $subDir why ????

Comment on parsing a path Select or Download Code

Replies are listed 'Best First'.
(tye)Re: parsing a path by tye (Sage) on Jul 17, 2002 at 16:59 UTC
I'd recommend using perlman:File::Spec instead. (See also File::Spec.) (: - tye (but my friends call me "Tye")	[reply]
Re: parsing a path by kvale (Monsignor) on Jul 17, 2002 at 16:52 UTC
You are extract three groupings, but have only two sets of parens. Try `if(/^\\([^\\]+)\\([^\\]+).*?(\w+\.cpp)/)` [download] -Mark	[reply] [d/l]
Re: Re: parsing a path by DS (Acolyte) on Jul 17, 2002 at 18:23 UTC
tahnks to you all	[reply]
(joshua)Re: parsing a path by joshua (Pilgrim) on Jul 17, 2002 at 17:12 UTC
This might be easier than all that stuff you do with the array... `#!/usr/bin/perl -w use strict; my $path = '\nb\v5\srcccc\ans.cpp@@\main\\'; my ($dir, $subDir, $file) = $path =~ /^\\([^\\]+)\\([^\\]+).*?(\w+\.cp +p)/; print "$dir\n$subDir\n$file\n";` [download] Joshua	[reply] [d/l]
Re: (joshua)Re: parsing a path by Juerd (Abbot) on Jul 17, 2002 at 17:30 UTC
`/^\\([^\\]+)\\([^\\]+).?(\w+\.cpp)/`* And you say that might be _easier_? :) Anyway, I think you missed a $ (or even better: \z) there... `\foo\bar\baz.cpp.cpp.cpp.blah.cpp`. - Yes, I reinvent wheels. - Spam: Visit eurotraQ.	[reply] [d/l] [select]
(joshua) Re^3: parsing a path by joshua (Pilgrim) on Jul 17, 2002 at 18:14 UTC
Ah, good point. I was just building on kvale's code though.	[reply]
Re: (joshua)Re^3: parsing a path by softworkz (Monk) on Jul 18, 2002 at 18:01 UTC