perl 文字列変換 半角スペース

Question

ただいまperlを勉強中です。

2個以上続く半角スペースを
1つの半角スペースに置換をしたいのですが

コード1 → エラー
コード2 → エラーなし

となります。

どうしてコード1ではダメなのでしょうか。
コードはif文とかの使い方も覚えたいので
冗長に書いています。

■コード1
if($line=~/\s\s+/){
$line=~s/\s\s+/\s/g;
}

■コード2
if($line=~/\s\s+/){
$line=~s/\s\s+/ /g;
}

以上です。
よろしくお願い致します。

Comments

[Crimson_Tide]

\sとは何を表すのか確認してみてください。
そして\sに変換しようとしていますが、それって具体的に何に変換されるのか？
と考えてみるとエラーになることに納得がいくかと思います。

Answer 1

use warnings; を付けると、その理由を Perl が教えてくれます。

use strict;
use warnings;

my $line = '  abc def';

if ($line=~/\s\s+/) {
    $line=~s/\s\s+/\s/g;
} 
print $line."\n";

#=>
Unrecognized escape \s passed through at test.pl line 7.
sabc def

つまり、置換文字列内の \s は正規表現としてではなく、バックスラッシュ + s という文字列(エスケープシーケンス)と見做されて処理されることになるのですが、\s というエスケープシーケンスは定義されていないので上記の様な結果(s という文字に置き換えられる)になります。

2個以上続く半角スペースを

ちなみに、以下の様に書く事もできます。

use strict;
use warnings;
use feature qw(say);

my $line = '  abc def';
$line =~ s/\s{2,}/ /g;

say $line;

#
 abc def

Comments

[toshihiko]

非常にご回答ありがとうございます！
\sは定義されていないという事なんですね。
ありがとうございます。

一方、
$line=~s/\s\s+/\t/g;
とするとタブには置き換えられるようです。

\sは認識されないけど、\tは認識されるなど
線引きがよく分かっていません。

$line=~s/\s\s+/\s/g; → NG
$line=~s/\s\s+/\t/g; → OK

この辺りの線引きを明確にするには
どうするといいのでしょうか。

[melian]

「特殊文字(エスケープシーケンス) - 文字列と数値」 https://www.javadrive.jp/perl/num/index4.html をご覧ください。