The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"perl: считать и записать в файл, как???"
Вариант для распечатки  
Пред. тема | След. тема 
Форум Открытые системы на сервере
Изначальное сообщение [ Отслеживать ]

"perl: считать и записать в файл, как???"  +/
Сообщение от wqerty on 26-Ноя-02, 16:37 
задача на perl:
открыть текстовый файл, считать из него строки в список, удалить из него все строки, записать в него новые строки из списка... причем этот файл можно открывать только один раз, т.е. использовать только один оператор open (или какой другой)

по отдельности если открывать - я могу:
открыть для чтения, считать из файла - <FILE>
открыть для записи, записать в файл - print FILE
а как это все с одним открытеем - не знаю, пробовал открывать с параметром >+ - не получается...

научите как, плиз....

Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "RE: perl: считать и записать в файл, как???"  +/
Сообщение от LinaS email on 26-Ноя-02, 18:52 
>задача на perl:
>открыть текстовый файл, считать из него строки в список, удалить из него
>все строки, записать в него новые строки из списка... причем этот
>файл можно открывать только один раз, т.е. использовать только один оператор
>open (или какой другой)
>

а почему?

>по отдельности если открывать - я могу:
>открыть для чтения, считать из файла - <FILE>
>открыть для записи, записать в файл - print FILE
>а как это все с одним открытеем - не знаю, пробовал открывать с параметром >+ - не получается...
>
>научите как, плиз....

"+>" снесет содержимое файла еще до того, как ты успеешь его прочитать...
попробуй "+<" (на чтение и запись), может, подойдет?

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

2. "RE: perl: считать и записать в файл, как???"  +/
Сообщение от wqerty on 26-Ноя-02, 19:00 
>
>а почему?
>

нужно так, один раз открыть, заблокировать, и работать с ним

>
>"+>" снесет содержимое файла еще до того, как ты успеешь его прочитать...
>попробуй "+<" (на чтение и запись), может, подойдет?

буду пробовать

Ответить | Правка | ^ к родителю #1 | Наверх | Cообщить модератору

3. "RE: perl: считать и записать в файл, как???"  +1 +/
Сообщение от LinaS email on 26-Ноя-02, 19:21 
>>
>>а почему?
>>
>
>нужно так, один раз открыть, заблокировать, и работать с ним
>
>>
>>"+>" снесет содержимое файла еще до того, как ты успеешь его прочитать...
>>попробуй "+<" (на чтение и запись), может, подойдет?
>
>буду пробовать

у меня работает
вот примитивный кусок:

#!/usr/bin/perl

my @strings;
my $i;

open(TESTFILE, "+< test.file");
while(<TESTFILE>) {
    $strings[@strings]=$_;
}
seek(TESTFILE,0,0);
for($i=(@strings-1);$i>=0;$i--) {
    print TESTFILE $strings[$i];
}
close(TESTFILE);%

до его запуска:
йt test.file
rurururu
babababa
lalalala

после запуска:
%./test1.pl
йt test.file
lalalala
babababa
rurururu

удачи

Ответить | Правка | ^ к родителю #2 | Наверх | Cообщить модератору

4. "RE: perl: считать и записать в файл, как???"  +/
Сообщение от LinaS email on 26-Ноя-02, 19:24 

>йt test.file
~~~~

в оригинале это было йt test.file
:)

Ответить | Правка | ^ к родителю #3 | Наверх | Cообщить модератору

5. "RE: perl: считать и записать в файл, как???"  +/
Сообщение от wqerty on 27-Ноя-02, 10:21 
>
>>йt test.file
>~~~~
>
>в оригинале это было йt test.file
>:)

большое спасибо

Ответить | Правка | ^ к родителю #4 | Наверх | Cообщить модератору

6. "RE: perl: считать и записать в файл, как???"  +/
Сообщение от Lex (??) on 27-Июн-12, 09:29 
>>
>>>йt test.file
>>~~~~
>>
>>в оригинале это было йt test.file
>>:)
> большое спасибо

)))))))))))

Ответить | Правка | ^ к родителю #5 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру