perlを使うと、コマンドライン入力から正規表現をどのように処理するのですか？

Question

コマンドラインから正規表現の入力を受け取り、それを処理するスクリプトを作成しています。このような何か：スクリプトに

chomp(my $regex = $ARGV[0]); 
my $name = '11528734-3.jpg'; 

$name =~ $regex; 

print $name . "\n"; 

私の入力は次のとおりです。「S/.JPG/_thumbnail.jpg/gで」 が、$ nameは、コマンドラインからの正規表現の入力を処理していません。

この方法のアドバイスはありますか？

ありがとうございます！

Answer 1

$name =~ $regexを使用すると、$nameは変更されません。変更を行うには、s///演算子を使用する必要があります。

例えば、

$name =~ s/$pattern/$replacement/; 

あなたが同じ引数で両方パターンおよび交換を指定している場合、例えば、s/foo/bar/の形で、あなたが最初にそれらを分割する必要があります。

my (undef, $pattern, $replacement) = split '/', $regex; 
$name =~ s/$pattern/$replacement/; 

---

オリジナルの回答：

使用qr//：

$name =~ qr/$regex/; 

あなたはまた、単に$name =~ /$regex/を使用することができますが、qrバージョンが、その中であなたが後で使用するために正規表現オブジェクトを格納することができ、より一般的である：

$compiled = qr/$regex/; 
$name =~ $compiled; 
$name =~ s/$compiled/foobar/; 

など