Intereting Posts
убить несколько процессов с помощью awk-инструментов какие порты необходимо открыть на брандмауэре? вставить и сохранить результат в 1-й аргумент без использования временных файлов Почему политики SELinux требуют перезагрузки системы? Как получить последнюю папку (отсортированную по алфавиту в порядке убывания и сопоставление шаблона) с помощью ls / find / etc? Где хранить медиафайлы на общем сервере linux Linux отключает / скрывает устройства mtdblock от lsblk Можете ли вы использовать grub для загрузки файла раздела RW, хранящегося на жестком диске FAT32? Telnet через Ethernet для Linux? Почему ln -s не говорит, что сбой при создании символической ссылки на существующий символический каталог? Форматированная SD-карта ext4 с правами rootfs.squashfs Установить статический IP-адрес в CentOS 6.4? Заменить все значения в одной строке на N / A Доступ к ретрансляции запрещен при использовании SMTP для внешних получателей POSTFIX FREEBSD Почему ping получает еще один пакет команд ping?

Как печатать первые три строки и последние две строки файла, используя perl?

Через командную строку я рисую один или несколько найденных шаблонов text.xml-файла:

perl -ln0e 'while(/<PMResult.*?<\/PMResult>/gs) { $x=$&;print $x if $x=~/BCCEL-[1-3]/}' text.xml 

Мне нужно создать новый файл с найденным шаблоном; новый файл будет иметь первые три строки файла Text.xml перед шаблоном и иметь последние две строки файла Text.xml после шаблона.