![Perlを使用してファイルの最初の3行と最後の2行を印刷する方法は？ [閉鎖]](https://linux33.com/image/36945/Perl%E3%82%92%E4%BD%BF%E7%94%A8%E3%81%97%E3%81%A6%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%AE%E6%9C%80%E5%88%9D%E3%81%AE3%E8%A1%8C%E3%81%A8%E6%9C%80%E5%BE%8C%E3%81%AE2%E8%A1%8C%E3%82%92%E5%8D%B0%E5%88%B7%E3%81%99%E3%82%8B%E6%96%B9%E6%B3%95%E3%81%AF%EF%BC%9F%20%5B%E9%96%89%E9%8E%96%5D.png)
コマンドラインを介してtext.xmlファイルに1つ以上のパターンを描画します。
perl -ln0e 'while(/<PMResult.*?<\/PMResult>/gs) {
$x=$&;print $x if $x=~/BCCEL-[1-3]/}' text.xml
見つかったパターンを使用して新しいファイルを作成する必要があります。新しいファイルには、パターンの前の Text.xml ファイルの最初の 3 行と、パターンの後の Text.xml ファイルの最後の 2 行が含まれます。