Народ, подскажите как осуществить чтение все текста из одного файла, запись этого текста в переменную и запись этой переменной в другой файл (или несколько файлов).
Я потихоньку разбираюсь с ПЕРЛом, примерно что то похожее уже сделал, только почему то когда я записываю в файл переменную, записывается только последняя строка текста. Покажите элементарный пример как это правильно делается, а то срочно, по работе надо... Спасибо.

всё просто
открыть на чтение:

Код

open FH, "<file.name";

на запись:

Код

open FH, ">file.name";

читать:

Код

print <FH>;

писать:

Код

print FH "cool";

А вообще-то всё это есть в манулах!

Код

open (F1,"<file_for_read"); open (F2,">file_for_write"); while ($str = <F1>) {  print F2 $str; } close(F1); close(F2);

Вот один из вариантов копирования одного файла в другой

noder
Смотри, если ты читаешь так:

Код

while ($str = <F1>) {    что-то делаем }

то ты читаешь файл по одной строке. Если же ты хочешь прочиталь весь файл сразу, то читай его вот так:

Код

@strings = <F1>;

тогда в массиве @strings окажутся все строки файла.

Если тебе надо ВЕСЬ этот файл записать в другой, то можно вот так:

Код

print F2 join("", @strings);

здесь все строки из массива @strings объединяются в одну строку и записываются в файл.

вот способ прочитать весь файл в одну переменную (а не массив)
$oldsep = $/;
$/=undef;
$data = <F>;
$/ = $oldsep;

поясняю: переменная $/ это разделитеь при при чтении операторм <>, если его сделать undef,
то чтение будет производится пока не кончатся данные в потоке.

см. perldoc perlvar

Вопрос:
есть скрипт опрашивающий директории и записывающий это в файл... работает около 2 часов... надо бы сделать так, что бы в течении этого времени файл можно было смотреть на предмет уже записанных туда результатов, а то делаю это стандартным open(в начале скрипта) print(в цикле) close(в конце) - в результате в файле что-то появляется только когда скрипт полностью отработает и и закроет его... конечно можно прям в теле цикла открывать его дозаписывать и закрывать, но может есть более оптимальные варианты!? заранее спасибо за ответ...

$|++;

ElectricalStorm

Цитата

$|++;

прости... я не так давно за Перлом - что я должен увидеть или в чём смысл!? принтом вывести её на стдаут!?

Цитата

- в результате в файле что-то появляется только когда скрипт полностью отработает и и закроет его..

вот что бы вывод не буферизировать тоесть что бы сразу появлялось

сбрасываешь буферизацию

Код

$|++; # это просто другое написание $| = 1; :)

аааа.... это надо после функции write вставить!? попробовал, что-то не идёт...

Код

chdir($dir_name); opendir(D,$dir_name); while($s_root=readdir(D)) { if (-d "$s_root") {  dir_ls ($s_root); #вызываем рекурсию...  write();               # вот тут происходит запись в файл в цикле  write(FF);  $|++;                   # типа пытаюсь сбросить кэш  } }

Пускаю скрипт, жду пока пойдёт несколько циклов - смотрю в лог - ничего.... появляется что-то только после того как весь скрипт отработает и файл будет close! В чём ошибка!?

Это сообщение отредактировал(а) y0sh1 - 30.8.2004, 17:29

use strict;

$| = 1;

Далее Ваш код




Это сообщение отредактировал(а) ElectricalStorm - 30.8.2004, 17:30

Не идёт... а без use strict; работать будет!? А то у меня его нет, тк с ним ошибку на format выдаёт...!?

будет работать и без use strict;

весь код запостите

Код

$| = 1; # объвл переменных.... sub dir_ls {        my $save_dir;        my $root = shift;        local *DIR_LS;        opendir DIR_LS ,$root;        while (my $file = readdir (DIR_LS) ) {   next if $file =~ /^\.\.?$/;   next if $root =~ /^\.\.?$/;            if (-d "$root/$file") {               dir_ls ("$root/$file");               }     # вычисляем объём файлов в каталогах....        } } open (FF, ">> e:\\perl\\log.txt") or die "Oups: $!"; $dir_name="e:\\distr"; chdir($dir_name); opendir(D,$dir_name); while($s_root=readdir(D)) { next if $s_root eq "."; next if $s_root eq ".."; if (-d "$s_root") {  dir_ls ($s_root);  write();  write(FF);  $|++;  } } closedir(D); write(); write(FF); close (FF); # далее объявление форматов в которых в лог выводиться расч переменные...

$|++ вот это из кода уберите

ElectricalStorm

Цитата

$|++ вот это из кода уберите

вы же сами его сказала написать!!!???

понимаете $| - это флаг состояния буферизации вывода
так вот если он установлен в 0 (по умолчанию) значит идет буферизированный вывод а если в 1 то нет

$| = 1; или(!) не и $|++; все флаг установлен


за чем его еще увеличивать ... думайтье о нем как о булеан

это я был

ну включил небуферизированный вывод - не помогло.
Наверно я что-то туплю. (G)

весь код встудию весь весь .. .

отправил на почту, что бы не засорять топ...

ok ща посморю
Добавлено @ 13:20
на до перед open убрать $| = 1;

и поставить в начале скрипта $| = 1; и все заработает

почему!? какая разница где отключать буферизацию!? Перед объявлением переменных и подпрограмм или перед началом основного кода!?
Переставил - не идёт...

так давай те выяснять что имменно не идет может мы про разные вещи говорим ?