Как мне присвоить результат соответствия регулярному выражению новой переменной в одной строке?

Question

Я хочу сопоставить и присвоить переменной только одну строку:

my $abspath='/var/ftp/path/to/file.txt';

$abspath =~ #/var/ftp/(.*)$#;
my $relpath=$1;

Я уверен, что это должно быть легко.

Answer 1

my ($relpath) = $abspath =~ m#/var/ftp/(.*)$#;

В контексте списка совпадение возвращает значения групп.

Answer 2

Обязательная Clippy: "Привет! Я вижу, что вы делаете манипулирование путями в Perl. Хотите использовать Path :: Class вместо этого?"

use Path::Class qw(file);
my $abspath = file '/var/ftp/path/to/file.txt';
my $relpath = $abspath->relative('/var/ftp');
# returns "path/to/file.txt" in string context

Answer 3

Вы можете сделать это с помощью оператора сравнения и замены:

(my $relpath = $abspath ) =~ s#/var/ftp/(.*)#$1# ;

Этот код присваивает $abspath значению $relpath, а затем применяет к нему регулярное выражение.

Редактировать: Ответ Qtax более элегантен, если вам просто нужны простые совпадения. Если вам когда-нибудь понадобятся сложные подстановки (как мне обычно нужно), просто используйте мое выражение.

Answer 4

В Perl 5.14 вы также можете использовать модификатор /r (неразрушающее замещение):

perl -E'my $abspath="/var/ftp/path/to/file.txt"; \
        my $relpath= $abspath=~ s{/var/ftp/}{}r; \
        say "abspath: $abspath - relpath: $relpath"'

См. " Новые возможности Perl 5.14: неразрушающее замещение " длябольше примеров.

Answer 5

Поскольку вы просто хотите удалить начало строки, вы можете оптимизировать выражение:

(my $relpath = $abspath) =~ s#^/var/ftp/##;

Или даже:

my $relpath = substr($abspath, 9);