VPF::Снова скрипт для первоклассника

ReactOS

Дата 26.3.2008, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 165
Регистрация: 6.12.2007

Репутация: нет
Всего: 33

Привет всем!

Есть user.txt файл, его содержимое:

1117479114,1117429104,1217479104,1187479104,1177479104Через запятую указаны файлы которые нужно открыть (к каждому названию файла нужно дописать .txt)

Эти файлы c таким содержимым:

Код



Название|Имя|Почта|Время|имя|xx|0|ип|текст||||
Название|Имя|Почта|Время|имя|xx|0|ип|текст||||
Название|Имя|Почта|Время|имя|xx|0|ип|текст||||
Название|Имя|Почта|Время|имя|xx|0|ип|текст||||

С каждого такого файла нужно взять первую строчку и вывести с нее навазние, почту и текст.
Пытаюсь открыть эти файлы так:

Код


my %hash = ();
foreach my $fname (qw($fimena_failov)) {
  open (IMEN,"<","Messages/${fname}.txt") or die "Can't open file $!\n";
       flock(IMEN,LOCK_SH); # на открытие

          ***
     
  close(IMEN) or die "Can't close file $!\n";
}

Загвоздка в том что я не знаю как с каждого открытого файла взять только 1 первую строчку.

Помогите пожалуйста. Также может это можно сделать как-то более эстетично, профессиональней что ли чем у меня. Спасибо.

Unrealm

Дата 26.3.2008, 23:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 19.7.2007

Репутация: 1
Всего: 1

$a = <IMEN>; ?
Для истинных эстетов можно $a = readline(<IMEN>); smile

amg

Дата 27.3.2008, 09:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

Цитата(ReactOS @ 26.3.2008, 22:45

)

сделать как-то более эстетично

Эстетика - она у каждого своя. Например, кому-то может понравиться и такое:

Код


foreach ( first('imena_failov') =~ /(\d+)/g ) {
  my ($title,$mail,$text) = (split /|/, first("$_.txt") || next)[0,2,8];
  print "$_: $title,$mail,$text\n";
}

sub first { # вместо этого можно file_read из File::Slurp, например
  open my $f, '<', shift or return undef;
  <$f>;
}

tishaishii

Дата 27.3.2008, 17:22 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

scalar <FH>

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »