https://opennet.me/openforum/vsluhforumID1/23457.html задача на perl: <br>открыть текстовый файл, считать из него строки в список, удалить из него все строки, записать в него новые строки из списка... причем этот файл можно открывать только один раз, т.е. использовать только один оператор open (или какой другой)<br><br>по отдельности если открывать - я могу:<br>открыть для чтения, считать из файла - &lt;FILE&gt;<br>открыть для записи, записать в файл - print FILE<br>а как это все с одним открытеем - не знаю, пробовал открывать с параметром &gt;+ - не получается...<br><br>научите как, плиз....<br> https://opennet.me/openforum/vsluhforumID1/23457.html#6 Wed, 27 Jun 2012 05:29:47 GMT &gt;&gt; <br>&gt;&gt;&gt;йt test.file <br>&gt;&gt;~~~~ <br>&gt;&gt; <br>&gt;&gt;в оригинале это было йt test.file <br>&gt;&gt;:) <br>&gt; большое спасибо <br><br>)))))))))))<br> https://opennet.me/openforum/vsluhforumID1/23457.html#5 Wed, 27 Nov 2002 07:21:07 GMT &gt;<br>&gt;&gt;йt test.file <br>&gt;~~~~ <br>&gt;<br>&gt;в оригинале это было йt test.file <br>&gt;:) <br><br>большое спасибо<br> https://opennet.me/openforum/vsluhforumID1/23457.html#4 Tue, 26 Nov 2002 16:24:31 GMT <br>&gt;йt test.file <br>~~~~<br><br>в оригинале это было йt test.file<br>:)<br><br> https://opennet.me/openforum/vsluhforumID1/23457.html#3 Tue, 26 Nov 2002 16:21:31 GMT &gt;&gt;<br>&gt;&gt;а почему? <br>&gt;&gt;<br>&gt;<br>&gt;нужно так, один раз открыть, заблокировать, и работать с ним <br>&gt;<br>&gt;&gt;<br>&gt;&gt;"+&gt;" снесет содержимое файла еще до того, как ты успеешь его прочитать...<br>&gt;&gt;попробуй "+&lt;" (на чтение и запись), может, подойдет?<br>&gt;<br>&gt;буду пробовать <br><br>у меня работает<br>вот примитивный кусок:<br><br>#!/usr/bin/perl<br><br>my @strings;<br>my $i;<br><br>open(TESTFILE, "+&lt; test.file");<br>while(&lt;TESTFILE&gt;) {<br> $strings[@strings]=$_;<br>}<br>seek(TESTFILE,0,0);<br>for($i=(@strings-1);$i&gt;=0;$i--) {<br> print TESTFILE $strings[$i];<br>}<br>close(TESTFILE);D<br><br>до его запуска:<br>йt test.file <br>rurururu<br>babababa<br>lalalala<br><br>после запуска:<br>test1.pl <br>йt test.file<br>lalalala<br>babababa<br>rurururu<br><br>удачи https://opennet.me/openforum/vsluhforumID1/23457.html#2 Tue, 26 Nov 2002 16:00:11 GMT &gt;<br>&gt;а почему? <br>&gt;<br><br>нужно так, один раз открыть, заблокировать, и работать с ним<br><br>&gt;<br>&gt;"+&gt;" снесет содержимое файла еще до того, как ты успеешь его прочитать...<br>&gt;попробуй "+&lt;" (на чтение и запись), может, подойдет?<br><br>буду пробовать<br> https://opennet.me/openforum/vsluhforumID1/23457.html#1 Tue, 26 Nov 2002 15:52:11 GMT &gt;задача на perl: <br>&gt;открыть текстовый файл, считать из него строки в список, удалить из него <br>&gt;все строки, записать в него новые строки из списка... причем этот <br>&gt;файл можно открывать только один раз, т.е. использовать только один оператор <br>&gt;open (или какой другой) <br>&gt;<br><br>а почему?<br><br>&gt;по отдельности если открывать - я могу: <br>&gt;открыть для чтения, считать из файла - &lt;FILE&gt;<br>&gt;открыть для записи, записать в файл - print FILE <br>&gt;а как это все с одним открытеем - не знаю, пробовал открывать с параметром &gt;+ - не получается...<br>&gt;<br>&gt;научите как, плиз.... <br><br>"+&gt;" снесет содержимое файла еще до того, как ты успеешь его прочитать...<br>попробуй "+&lt;" (на чтение и запись), может, подойдет?<br><br>