読者です 読者をやめる 読者になる 読者になる

perl 文字列の置換2

#スペースで区切られた2つの入力文字列の順番を入れ替えるスクリプト
$string = <STDIN>;
chomp($string);

#正規表現内で()を使うと、マッチング変数$&,$`,$'は無効になり、代わりに()を順番に並べた時は、マッチした内容がその順番で特殊変数$1,$2,...に入る。
$string =~ s/(\w+)\s+(\w+)/$2 $1/;

print "$string\n";

#実行結果
# Jhon paul
# paul Jhon

初めてのPerl 第6版

初めてのPerl 第6版