Программирование > Perl

Помогите прочитать файл

(1/1)

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

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

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

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

Навигация

[0] Главная страница сообщений