Вывод всех строк из файла на perl
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Вывод всех строк из файла на perl - 2004-03-29 14:38:52
|
|
|
n0xi0uzz
Сообщений: 3
Оценки: 0
Присоединился: 2004-03-20 14:00:55
|
Пишу свой движок на перл для сайта…
В процессе возник такой вопрос:
Имеется файл, строки из которого надо вывести в таблицу.
вот код:
====================
$file = "main.cfg";
open(MAIN,"$file");
$main = < MAIN > ;
print "$main";
====================
Но почему-то он выводит только 1 строку файла, а мне надо, чтобы выводил все строки.
Вопрос: как это сделать? =)
|
|
|
|
|
Вывод всех строк из файла на perl - 2005-08-19 23:56:30
|
|
|
Pessom
Сообщений: 2
Оценки: 0
Присоединился: 2005-08-16 10:09:10
|
$file = "main.cfg";
open(MAIN,"$file");
@main = < MAIN > ;
print "@main";
вот так будет правильнее!
$file = 'main.cfg';
open(MAIN,"$file");
my @main = <MAIN>;
close (MAIN);
foreach (@main){ print $_; }
Так будет более правильнее!! и техничнее
|
|
|
|
|
Вывод всех строк из файла на perl - 2005-08-20 04:42:44
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
open (MAIN, "$file");
while (<MAIN>) {
print $_;
}
|
|
|
|
|
|
