Re: How to cut the directory path?

There are quite a few different ways that you could perform this task. Whenever, I'm dealing with file paths I like to use Path::Tiny. For example,

#!/usr/bin/env perl

use strict;
use warnings;

use Path::Tiny;

my $filespec = "/usr/share/directory/piano_book.mp4";

my $path = path($filespec);
my $rel = $path->relative("/usr/share");
print $rel, "\n";
exit;
[download]

This article is a good intro to Path::Tiny.

Comment on Re: How to cut the directory path? Download Code

Replies are listed 'Best First'.
Re^2: How to cut the directory path? by aca (Initiate) on Feb 10, 2016 at 07:20 UTC
How it can be done using regular expression?	[reply]
Re^3: How to cut the directory path? by Laurent_R (Canon) on Feb 10, 2016 at 07:29 UTC
If you really want to use regex, you could do this: `my $filespec = "/usr/share/directory/piano_book.mp4"; my $relative = "." . $1 if $filespec =~ m{/usr/share(.*)};` [download] Or you could use split and then paste together the pieces you need. But you'd most probably be better off with a specialized module such as Path::Tiny mentioned above or some other.	[reply] [d/l]
Re^3: How to cut the directory path? by Anonymous Monk on Feb 10, 2016 at 07:24 UTC
How it can be done using regular expression? You let Path::Tiny use File::Spec which uses regular expressions for you.	[reply]
Re^3: How to cut the directory path? by AnomalousMonk (Archbishop) on Feb 10, 2016 at 18:50 UTC
I would also advise using established modules for this, but here's another regex-only way to remove the first n directories from an absolute path. It looks like you're using a nix path, and I haven't made the effort to define a proper directory pattern in `$dir` (I don't think that any* character other than a `/` is allowed), so you will have to fix up the `[^/]` character class accordingly. `c:\@Work\Perl\monks>perl -wMstrict -le "my $filespec = '/usr/share/directory/piano_book.mp4'; print qq{absolute: '$filespec'}; ;; my $dir = qr{ / [^/]+ }xms; # fix [^/] ;; my $n = 2; die qq{'$filespec' could not be made relative} unless $filespec =~ s{ \A (?: $dir){$n} }{.}xms; print qq{relative: '$filespec'}; " absolute: '/usr/share/directory/piano_book.mp4' relative: './directory/piano_book.mp4'` [download] Please see perlre, perlretut, and perlrequick. Update: Added error check to substitution in example code. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]