次のコマンドを使用して、ファイルから電子メールを抽出しています。
perl -ne'if(/[\w\.\-\_]+@([\w\-\_]+\.)+[A-Za-z]{2,4}/g){print "$&\n"}' database.sql
結果を新しいファイルに出力するには、何を変更する必要がありますか?
または、コマンド ライン経由ですべてのメールを抽出するためのより良いソリューションがある場合は、投稿してください。
次のコマンドを使用して、ファイルから電子メールを抽出しています。
perl -ne'if(/[\w\.\-\_]+@([\w\-\_]+\.)+[A-Za-z]{2,4}/g){print "$&\n"}' database.sql
結果を新しいファイルに出力するには、何を変更する必要がありますか?
または、コマンド ライン経由ですべてのメールを抽出するためのより良いソリューションがある場合は、投稿してください。
おそらく、Email::Addressを使用する次のオプションが役立つでしょう:
perl -MEmail::Address -ne 'print "@a\n" if @a = Email::Address->parse($_)' inFile >outFile
次のように、出力をファイルにリダイレクトするだけです。
perl -ne'if(/[\w\.\-\_]+@([\w\-\_]+\.)+[A-Za-z]{2,4}/g){print "$&\n"}' database.sql > somefile