Extract middle string from a path using RegExp

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

Replies are listed 'Best First'.
Re: Extract middle string from a path using RegExp by toolic (Bishop) on Sep 06, 2008 at 01:31 UTC
Surely you want a more generic solution than this: `use strict; use warnings; my $str = 'C:\fldr1\fld2\fldr3\fldr4\fldr5\test.txt@@\main\Msometest\t +est12.1x\1'; my ($str2) = $str =~ /(fldr3\\fldr4\\fldr5\\test.txt)/; print "str2 = $str2\n"; __END__ str2 = fldr3\fldr4\fldr5\test.txt` [download] If so, please re-phrase your question in more generic terms. Also, there is free documentation at: perlretut	[reply] [d/l]
Re^2: Extract middle string from a path using RegExp by dani_cv (Acolyte) on Sep 06, 2008 at 01:41 UTC
my $str = 'C:\fldr1\fld2\fldr3\fldr4\fldr5\test.txt@@\main\Msometest\t +est12.1x\1'; Here C:\fldr1\fld2\ is dynamic. fldr3\fldr4\fldr5\test.txt is also dyanamic. Moreover, @@\main\Msometest\t +est12.1x\1' is dynamic.... Now how can I extract the middle path?	[reply]
Re^3: Extract middle string from a path using RegExp by ikegami (Patriarch) on Sep 06, 2008 at 02:04 UTC
toolic's point is that it's impossible unless you tell us what special about the indicated points `\| \| \| \| v v C:\fldr1\fld2\fldr3\fldr4\fldr5\test.txt@@\main\Msometest\test12.1x\1` [download] For instance, how do you know it's not `\| \| \| \| v v C:\fldr1\fld2\fldr3\fldr4\fldr5\test.txt@@\main\Msometest\test12.1x\1` [download] or `\| \| \| \| v v C:\fldr1\fld2\fldr3\fldr4\fldr5\test.txt@@\main\Msometest\test12.1x\1` [download]	[reply] [d/l] [select]
Re^3: Extract middle string from a path using RegExp by shmem (Chancellor) on Sep 06, 2008 at 10:41 UTC
Something has to be static, otherwise you just don't know what to do. How do you decide which components you want? Is it the amount of directories up front? If so, first shove off the trailing thing - that's '@@' and what follows, right? Then use `File::Spec->splitdir` to split the path into components. Remove leading directories. Join the list with `File::Spec->catdir`. `use File::Spec; my $goners = 3; # how many? my $str = 'C:\fldr1\fld2\fldr3\fldr4\fldr5\test.txt@@\main\Msometes +t\test12.1x\1'; $str =~ s/\@/\@.*//; my @dirs = File::Spec->splitdir($str); splice @dirs, 0, $goners; print File::Spec->catdir(@dirs);` [download]	[reply] [d/l] [select]
Re: Extract middle string from a path using RegExp by ikegami (Patriarch) on Sep 06, 2008 at 01:34 UTC
Like I said in the CB, `my $base = 'C:\\fldr1\\fld2\\'; $str =~ s/\@\@.//s; $str =~ s/^\Q$base\E//;` [download] or better yet `use File::Spec::Functions qw( abs2rel ); my $base = 'C:\\fldr1\\fld2'; $str =~ s/\@\@.//s; $str = abs2rel($str, $base);` [download]	[reply] [d/l] [select]
Re^2: Extract middle string from a path using RegExp by dani_cv (Acolyte) on Sep 06, 2008 at 17:03 UTC
Thanks a lot everyone...	[reply]