Perl, прочитать случаайную строку
Приветстую!
Возможно мой вопрос туповат, но...
Нужно на перле прочитать из файла слуайную строку. Пытаюсь сделать это по рецепту из cokbook:
#!/usr/bin/perl
$/ = "%%\n";
$data = '/usr/share/games/fortunes';
open (F,$data);
srand;
rand($.) < 1 && ($adage = $_) while <F>;
print $adage;
close F;
Возможно мой вопрос туповат, но...
Нужно на перле прочитать из файла слуайную строку. Пытаюсь сделать это по рецепту из cokbook:
Цитата:
#!/usr/bin/perl
$/ = "%%\n";
$data = '/usr/share/games/fortunes';
open (F,$data);
srand;
rand($.) < 1 && ($adage = $_) while <F>;
print $adage;
close F;
Но код выводит не одну слуайную строку, а весь файл.
Как заставить это работать как положено?
[highlight=Perl]
#!/usr/bin/perl
use strict;
my $data = "/home/wat4dog/.bash_profile";
my $adage;
open (F,$data) || die "Can't open file";
srand;
rand($.) < 1 && ($adage = $_) while <F>;
print $adage;
close F;
[/highlight]
это работает.
#!/usr/bin/perl
use strict;
my $data = "/home/wat4dog/.bash_profile";
my $adage;
open (F,$data) || die "Can't open file";
srand;
rand($.) < 1 && ($adage = $_) while <F>;
print $adage;
close F;
[/highlight]
это работает.