https://opennet.dev/openforum/vsluhforumID8/7809.html Имеем файл, его содержимое в многостроку<br><br>&lt;dia&gt;<br>bla<br>bla<br>&lt;/dia&gt;<br><br>нужно получить содержимое между &lt;dia&gt;&lt;/dia&gt;<br> https://opennet.dev/openforum/vsluhforumID8/7809.html#18 Tue, 26 Nov 2013 09:03:56 GMT &gt; ну что вы как маленькие спорите -- у вас кулаков поговорить нет чтоли.<br><br>Действительно, что у вас, рук нету? ))<br><br>&gt; идиала никто не скал <br><br>Но стремиться к нему надо?!<br><br>2[b]АССА[/b]<br>из 13 поста у меня не заработало ((<br>вот так да: while(&lt;&gt;){print if !/dia/}<br>ну и в однострочнике из командной строки пришлось заслешивать !<br>perl -e 'while(&lt;&gt;){print if \!/dia/}' file (нет пределов совершенству!?)<br><br>Но ведь с этими &lt;dia&gt; это частный случай, вырезания текста между тегами в HTML.<br>Ниже в общем виде.<br> https://opennet.dev/openforum/vsluhforumID8/7809.html#17 Tue, 26 Nov 2013 08:32:01 GMT &gt;[оверквотинг удален]<br>&gt;&gt; 2. $/ = "\n"; <br>&gt;&gt; При включеном, например, :crlf?<br>&gt; И? Заранее то это известно )) <br>&gt;&gt; Разумеется, в случае &lt;dia&gt; задача упрощается. Но это не повод разводить винрарный <br>&gt;&gt; бардак.<br>&gt; Родной, какой бардак - задачу уже решили )) бардака нет.<br>&gt;&gt; Мораль сей басни достаточно кратка - ".." a.k.a. "..." В оправдание менторского <br>&gt;&gt; тона замечу, что сам удивился наличию flip-flop. Perl следует курить до <br>&gt;&gt; просветления.<br>&gt; Эко накрыло торарисча ...<br><br>ну что вы как маленькие спорите -- у вас кулаков поговорить нет чтоли.<br><br>задача решена -- идиала никто не скал, да его и не требовалось.<br> https://opennet.dev/openforum/vsluhforumID8/7809.html#16 Tue, 26 Nov 2013 08:21:28 GMT &gt;&gt;&gt; Давай попробуем не так бессмысленно и менее беспощадно к PerlIO: <br>&gt;&gt; а собственно в чем бессмысленность и беспощадность? ) <br>&gt; 1. my $file = &lt;MYFILE&gt;; <br>&gt; Ничего, что файл может оказаться потоком на пару петабайт?<br><br>Первые два слова в топе "Имеем файл". К тому же формат XML like ...<br>Уважаемый, вам уже мерещаться потоки )) Надо отдыхать.<br><br>&gt; 2. $/ = "\n"; <br>&gt; При включеном, например, :crlf?<br><br>И? Заранее то это известно ))<br><br>&gt; Разумеется, в случае &lt;dia&gt; задача упрощается. Но это не повод разводить винрарный <br>&gt; бардак.<br><br>Родной, какой бардак - задачу уже решили )) бардака нет. <br><br>&gt; Мораль сей басни достаточно кратка - ".." a.k.a. "..." В оправдание менторского <br>&gt; тона замечу, что сам удивился наличию flip-flop. Perl следует курить до <br>&gt; просветления.<br><br>Эко накрыло торарисча ...<br><br> https://opennet.dev/openforum/vsluhforumID8/7809.html#15 Tue, 26 Nov 2013 07:30:28 GMT &gt;&gt; Давай попробуем не так бессмысленно и менее беспощадно к PerlIO: <br>&gt; а собственно в чем бессмысленность и беспощадность? ) <br><br> 1. my $file = &lt;MYFILE&gt;; <br>Ничего, что файл может оказаться потоком на пару петабайт?<br><br><br> 2. $/ = "\n"; <br>При включеном, например, :crlf?<br><br><br>Разумеется, в случае &lt;dia&gt; задача упрощается. Но это не повод разводить винрарный бардак.<br><br><br>Мораль сей басни достаточно кратка - ".." a.k.a. "..." В оправдание менторского тона замечу, что сам удивился наличию flip-flop. Perl следует курить до просветления.<br> https://opennet.dev/openforum/vsluhforumID8/7809.html#14 Tue, 26 Nov 2013 03:51:29 GMT &gt; Давай попробуем не так бессмысленно и менее беспощадно к PerlIO: <br><br>а собственно в чем бессмысленность и беспощадность? )<br><br> https://opennet.dev/openforum/vsluhforumID8/7809.html#13 Tue, 26 Nov 2013 00:05:23 GMT &gt; $/ = undef; <br>&gt; open(MYFILE, "tmp2_emacs"); <br>&gt; my $file = &lt;MYFILE&gt;; <br>&gt; close MYFILE; <br>&gt; $/ = "\n"; <br><br>Хорошая идея. Это не ты спрашивал, что такое "Out of memory: Kill process 12866 httpd score 883 or sacrifice child" ?<br><br>Давай попробуем не так бессмысленно и менее беспощадно к PerlIO:<br><br>[code]<br>while(&lt;&gt;) {<br> if (m!&lt;dia&gt;!o .. m!&lt;/dia&gt;!o) {<br> if (m!&lt;dia&gt;(.+)&#124;(.+)&lt;/dia&gt;!o) {<br> print "$1\n";<br> } else {<br> print $_;<br> }<br> }<br>}<br>[/code]<br> https://opennet.dev/openforum/vsluhforumID8/7809.html#12 Mon, 25 Nov 2013 09:39:50 GMT &gt; Имеем файл, его содержимое в многостроку <br>&gt; &lt;dia&gt; <br>&gt; bla <br>&gt; bla <br>&gt; &lt;/dia&gt; <br>&gt; нужно получить содержимое между &lt;dia&gt;&lt;/dia&gt; <br><br>Раз пошла такая пьянка..<br>cat file &#124; perl -pe 's/&lt;.*?&gt;//g;s/^\s+//'<br>cat file &#124; perl -pe 's/&lt;[^&gt;]*&gt;//g;s/^\s+//'<br> https://opennet.dev/openforum/vsluhforumID8/7809.html#11 Mon, 25 Nov 2013 07:37:03 GMT &gt;[оверквотинг удален]<br>&gt;&gt; @data = &lt;F&gt;; <br>&gt;&gt; close(F); <br>&gt;&gt; $cc = '0'; <br>&gt;&gt; while ( $#data&gt; $cc){ <br>&gt;&gt; print $data[$cc]=~m/&lt;dia&gt;(.*?)&lt;\/dia&gt;/imsg; <br>&gt; естественно нихера не будет искать когда у вас строки в разных элементах <br>&gt;&gt; $cc++; <br>&gt;&gt; } <br>&gt; мой скрипт проверен, и работает, каждая строка имеет смысл, возможно лишь проблема <br>&gt; с utf8 <br><br>Не не, дело не в utf-8<br>Просто я изначально не верно подошел к решению (тупанул), тут как бы масив построчно перебирается и понятное дело многостроки не словит. <br> https://opennet.dev/openforum/vsluhforumID8/7809.html#10 Mon, 25 Nov 2013 07:35:51 GMT echo '123&lt;dia&gt;<br>bla<br>bla<br>&lt;/dia&gt;123' &#124; perl -e 'my $mstr; while (my $str = &lt;&gt;) {$mstr.=$str;}; $mstr=~m@^.*?&lt;dia&gt;(.*?)&lt;/dia&gt;@s; print $1;'<br>