Как вытащить каждую запятую, дефис, подчеркивание, пробел и объединить оставшиеся слова без пробелов?

Question

Полагаю, это было бы довольно длинное регулярное выражение, но есть ли способ извлечь символы подчеркивания, пробелы, запятые и дефисы из строки, а затем соединить слова вместе в perl?

Пример:

_Car - Eat, Tree

Становится:

CarEatTree

Answer 1

Вы можете использовать простую замену:

$string =~ s/[_ ,-]//g;

Answer 2

Это также можно сделать без регулярных выражений: Транслитерация: tr ///

use warnings;
use strict;

my $s = '_Car - Eat, Tree';
$s =~ tr/_ ,\-//d;
print "$s\n";

__END__

CarEatTree

Answer 3

Если вы хотите убрать любую пунктуацию, вы всегда можете использовать s/[[:punct:]]//g

Answer 4

Использование оператора транслитерации с (d) элетом (c);

#!/usr/bin/perl
use strict;
use warnings;
use 5.012;

my $str = '_Car - Eat, Tree'; 

$str =~ tr/a-zA-Z//cd;

print $str;

__END__
C:\Old_Data\perlp>perl t6.pl
CarEatTree

Answer 5

поиск [_, -] и замена на пустую строку ""

$str = "_Car - Eat, Tree";
$str =~ s/[_, -]//g;

Answer 6

my $str = '_Car - Eat, Tree';
$str =~ s/[\_\-\,\s]*//g;