https://opennet.me/openforum/vsluhforumID9/7506.html Помогите пожалуйста написать регулярное выражение в Perl для поиска в файле.<br>Файл имеет вид:<br><br> ...............<br><br>Name Line Prefix Job Type<br><br>--------------------------------------------<br>mas_96 07EA3DS Lacona Extra<br> <br> ...............<br><br>Требуется найти "Job Type", опуститься вниз на 2 строчки и выкусить "Lacona Extra", точно 2 сроки под "Job Type".<br>Поиск "Job Type" я реализовал:<br><br>#! /usr/bin/perl<br>use strict;<br><br>open(FILE, "test.txt") or die $!;<br>while(&lt;FILE&gt;){<br>if(/Job Type/){<br>print "Job Type\n";<br>}<br>}<br><br>А вот как сдвинуться на две строки внизи считать третий столбец с помощью Perl?<br> https://opennet.me/openforum/vsluhforumID9/7506.html#2 Wed, 30 Jul 2008 18:02:47 GMT Спасибо за дельные советы. Буду работать над собой.<br>Но я не программист. Просто время от времени приходится систеатизировать данные по работе - вот я заглянул к Вам на форум.<br>Спасибо за помощь! <br> https://opennet.me/openforum/vsluhforumID9/7506.html#1 Mon, 28 Jul 2008 19:08:04 GMT &gt;А вот как сдвинуться на две строки вниз<br><br>несколько способов, но это к умению программировать вообще, а не на perl в частности. Учитесь решать елементарные задачи самостоятельно или завязывайте с программированием<br>&gt;считать третий столбец с помощью Perl<br><br>Обычно split, но так как у вас значения с разделителями внутри, то захватом:<br>perl -e '$_="mas_96 07EA3DS Lacona Extra";/^\S+\s+\S+\s+(.*)/;print $1'<br>Lacona Extra<br><br>P.S. почитайте еще про chomp, пригодится<br>