Perlの1つのライナーがperlスクリプト内で動作していません

Question

私のperlスクリプトの1つのライナーを使用して、文字列@ my.mail.comをファイル-list.txtから削除しようとしています。

r12355 test@my.mail.com 
r29555 test@my.mail.com 
r29555 trial@my.mail.com 
r295721 xxx@my.mail.com 
r295722 yyyy@my.mail.com 
r295140 test@my.mail.com 
r295145 test@my.mail.com 

ような結果

`perl -pi.bak -e 's/\s+\@my\.mail\.com\s+//g;' D:\\myfolder\\list.txt`; 

system("perl -pi.bak -e 's/\s+\@my\.mail\.com\s+//g;' D:\\myfolder\\list.txt"); 

system(q(perl -l -pi.bak -e 's/\s+\@my\.mail\.com\s+//g;' D:\\myfolder\\list.txt)); 

私は期待してい：

r12355 test@my.mail.com 
r29555 test@my.mail.com 
r29555 trial@my.mail.com 
    @my.mail.com 
r295721 xxx@my.mail.com 
r295722 yyyy@my.mail.com 
    @my.mail.com 
r295140 test@my.mail.com 
r295145 test@my.mail.com 
    @my.mail.com 

は、以下のperlスクリプト内で呼び出している間、私がしようとしているオプションです（Perlスクリプトは、Windows Serverからキックオフされます）

わからない何か愚かなことが見つからない場合、入力は本当に感謝しています。前もって感謝します！

Answer 1

ここには2つの問題があります。まず、ファイルパスのバックスラッシュをエスケープして正規表現パターンでエスケープした後、-eオプションのパラメータの前後に単一引用符を使用しましたが、Windowsでは区切り文字として認識されません。

このバリエーションはうまくいくはずです。

system q{perl -pi.bak -e "s/\s+\@my\.mail\.com\s+//g" D:\myfolder\list.txt}; 

をエスケープする必要があります何があなたのPerlプログラム内から別のperlプロセスに殻から取り出すために貧しい人々の練習をされていないしかし、そのように、それは、バックスラッシュを保護するために、単一引用符（実際q{...}）を使用しています。あなたのメインコードでこれを追加することで直接行うことができます。これははるかに読みやすく、間違っても簡単ではありません。

{ 
    local @ARGV = 'D:\myfolder\list.txt'; 
    local $^I = '.bak'; 

    while (<>) { 
     s/\s+\@my\.mail\.com\s+//g; 
     print; 
    } 
}