Как удалить & ldquo;. & Rdquo; из имени файла в Perl?
Я делаю /(\.[^.]+)$/ на Perl, чтобы прочитать расширение файла, например Text.txt. Как я могу удалить . так, чтобы результат был Texttxt?
1
задан Melebius
11 June 2019 в 12:31
поделиться
1 ответ
Группа совпадений /(…)/ содержит что-нибудь в скобках. Если вы не хотите, чтобы точка была ее частью, поместите за пределами в скобках: /\.([^.]+)$/.
#!/usr/bin/env perl
use strict;
use warnings;
my $filename = 'Test.txt';
$filename =~ s/(.*)\.([^.]+)$/$1$2/;
# ^^ ^^^^^
# $1 $2
print "filename: '$filename'\n";
# prints "Testtxt"
2
ответ дан PerlDuck
11 June 2019 в 12:31
поделиться