Manipulating directory paths

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

Replies are listed 'Best First'.
Re: Manipulating directory paths by moritz (Cardinal) on Sep 07, 2007 at 16:39 UTC
If the part you want to strip off always starts with `log/`, that problem is not hard to solve: `$path =~ s{log/.*$}{};` Perl 6 in German	[reply] [d/l] [select]
Re^2: Manipulating directory paths by jwkrahn (Abbot) on Sep 07, 2007 at 16:56 UTC
The `$` anchor is superfluous because *`.`** is greedy and will always match to the end of the line.	[reply] [d/l] [select]
Re^3: Manipulating directory paths by Zen (Deacon) on Sep 07, 2007 at 18:06 UTC
True. I know others who do this exact same thing with the dollar sign, but I think it is good for clarity when reading at a glance.	[reply]
Re: Manipulating directory paths by kyle (Abbot) on Sep 07, 2007 at 16:47 UTC
Try this... `$path =~ s{ /log/ .* \z }{/}xms;` [download] Note that if your path has "/log/" in it twice or more, this will strip off everything after the first one. If you want to strip off everything after the last one, this seems to work: `$path =~ s{ (.) /log/ . \z }{$1/}xms;` [download]	[reply] [d/l] [select]
Re^2: Manipulating directory paths by pp (Novice) on Sep 07, 2007 at 18:46 UTC
But what if I want to replace the log/ directory and after with another directory named xyz/ like: CASE 1: Before :`/home/user/phase/dir1/log/` After: `/home/user/phase/dir1/xyz/` CASE 2: Before: `/home/user/phase/dir1/log/Illinois/` After:`/home/user/phase/dir1/xyz/`	[reply] [d/l] [select]
Re^3: Manipulating directory paths by ikegami (Patriarch) on Sep 07, 2007 at 18:55 UTC
You can either add `xyz/` to the replace part of the `s///` operator, or use the concatenation operator (`.`).	[reply] [d/l] [select]
Re^4: Manipulating directory paths by pp (Novice) on Sep 07, 2007 at 19:03 UTC
Re^5: Manipulating directory paths by ikegami (Patriarch) on Sep 07, 2007 at 19:05 UTC
Some notes below your chosen depth have not been shown here
Re^4: Manipulating directory paths by pp (Novice) on Sep 13, 2007 at 16:35 UTC
Re^5: Manipulating directory paths by ikegami (Patriarch) on Sep 13, 2007 at 16:58 UTC
Some notes below your chosen depth have not been shown here
Re: Manipulating directory paths by f00li5h (Chaplain) on Sep 08, 2007 at 06:18 UTC
Depending where the paths came from and how likely you are to be running on interesting platforms, may want to have a look at File::Spec. `@_=qw; ask f00li5h to appear and remain for a moment of pretend better than a lifetime;;s;;@_[map hex,split'',B204316D8C2A4516DE];;y/05/os/&print;`	[reply] [d/l]
Re: Manipulating directory paths by WiseGuru (Initiate) on Sep 08, 2007 at 08:42 UTC
if you have ONLY ONE "log" directory, my $path = "/home/user/phase/dir1/log/Illinois/"; my $path2; ($path,$path)=split(/log/,$path); if you have 1 or more log directories inside a log directory, then my $path = "/home/user/phase/dir1/log/Illinois/log/somefile/log/someotherfile..."; my @Paths; @Paths=split(/log/,$path); then you can join any sections of the paths back together as you wish, i.e. $path = $Paths[0]."log".$Paths[1]."log"........ www.arobcorp.com	[reply]