Forum Webscript.Ru

Программирование => Perl => Тема начата: от 22 Марта 2001, 23:26:29

Название: Помогите прочитать файл
Отправлено: от 22 Марта 2001, 23:26:29

Ребята помогите с решением такой задачи: Есть файл в котором к каждой строке фраза. Мне нужно узнать сколько строк начинается с определенной буквы.

Название: Помогите прочитать файл
Отправлено: cj от 23 Марта 2001, 00:49:14

Самый sloppy метод:

my $l = "a";
if(open(FH, "DB.txt"))
{
  my @lines = ;
  close(FH);
  my @req = grep(/^$l/, @lines);
  my $Size = int(@req);
  print "Найдено строк: $Size";
}

Название: Помогите прочитать файл
Отправлено: от 23 Марта 2001, 11:30:10

Огромное спасибо за быстрый и рабочий ответ!