regex - 正規表現: Perl でファイル名間の余分なスペースを削除する方法

Question

Perl でファイル名間の余分なスペースを削除する方法

先頭と末尾のスペースは正規表現 $line =~ s/^\s+|\s+$//x; で削除できます。

これは私のコードがどのように見えるかです:

use File::Find;
find (\&wanted, '.');
sub wanted {
    my $file = $File::Find::name;
    $file =~ s/\$//g;
    print "**file = $file\n";
}

$file次のことができます。

My File.jpg
myfile$
$myfile
my$file

$私が使用しているファイル名から削除するには、$file =~ s/\$//g;これはスペースでも機能しますか?

score 1 · Accepted Answer

$file =~ s/\s+/ /g;

連続する空白文字を削除し、それらを単一のスペースに置き換えます。

score -1 · Accepted Answer

文字列の途中に複数のスペースチャンクがある場合は、スペースチャンクの正規表現で文字列を分割し、perlのsplit(/\s+/, $data)and関数を使用して文字列全体を結合します。join(" ", @LIST)

@TLP で指摘されているように、正規表現のみを使用した更新されたコードは次のとおりです。

$str =~ s/\s+/ /g;

2 に答える 2