перл не выдаёт весь файл

[AlterMann[RCK]]

Товарищи!
Проблема в том, что я хочу, пёрлом распечатать файлик...
Ну, например:

open(FILE,"txt.dat");
@mastext=
print @mastext;
close(FILE);

так он, зараза, не отдаёт весь файл... а режит его! Отдаёт только начало! прмерно килобайт 5... и всё!
Не подскажите, как это обойти? :confused:

[NeoNox]

open(FILE,"txt.dat");
$mastext=
print $mastext;
close(FILE);

[Mog.]

$mastext=
print $mastext;

и в итоге напечатана первая строка файла. К чему бы это?

[NeoNox]

open(FILE,"txt.dat");
print ;
close(FILE);

[NeoNox]

К чему бы это?

[OFF]к усталости.[/OFF]

[КшЫуфксрук]

А на какой системе это происходит (Вин или Юникс)? Файл точно текстовый, или там всякие нехорошие символы есть?

[AlterMann[RCK]]

Происходит всё дело на винде... Файл полюбому текстовый (ну допустим просто текст, про то, как я провёл лето )... Кстати, файл этот тоже пёрлом сгенерённый!

[Mog.]

всё дело на винде

У меня на винде если #!/usr/bin/perl -w то не факт, что скрипт закончит работу правильно, а не встанет на полпути. А вот без -w все ништяк.
И пример твой с массивом выводит весь файл целиком (~64 kb). Файл правда не твой, может правда в нем загвоздка.
А ты кроме винды гденьть попробовать можешь? Что получится?

[AlterMann[RCK]]

2 NeoNox

open(FILE,"txt.dat");
print ;
close(FILE);

спасибо огромное, помогло!!!

:-D