https://a1026302.hatenablog.com/entry/2023/10/02/140930

たまに使う Perl ですが、正規表現の書き方をすぐ忘れてしまうので、ここにアンチョコを作成します。

構文	説明
s/パターン/置換文字列/	「パターン」にマッチする文字列を「置換文字列」に置き換えます

$word = "This is a pen.";

$word =~ s/pen/book/;
print "$word\n";

$word = 'abc abc';

$word =~ s/a/A/g;
print "$word\n";

$word = "this is 100 yen.";

$word =~ s/(\d+)/$1 * 2/e;
print "$word\n";

構文	説明
tr/変換対象の文字/変換後の文字/	「変換対象の文字」をスキャンして「変換後の文字」にすべて変換

$word = 'sample';

$word =~ tr/a-z/A-Z/;
print "$word\n";

大文字以外を _ に変換します。

$word = 'Foo Bar Hoge.';

$word =~ tr/A-Z/_/c;
print "$word\n";

小文字を削除します。

$word = 'Foo Bar Hoge.';

$word =~ tr/a-z//d;
print "$word\n";

$word = 'sample';
if ($word =~ /sam/) {
    print "マッチしました。\n";
} else {
    print "マッチしませんでした。\n";
}

メタ文字と呼ばれる特殊な意味を持つ文字には、そのままではマッチできないため、必ず直前に \ を付加してエスケープする必要があります。

$price = 'This watch costs $100.';
if ($price =~ /\$/) {
    print "含まれています。\n";
} else {
    print "含まれていません。\n";
}