|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Golubitsky 2:5000/97.29 25 Jul 2000 21:25:22
To : Marsel Kirsanov
Subject : Как сделать такое...
--------------------------------------------------------------------------------
24 Aug 36 06:52, Marsel Kirsanov wrote to Dmitry Tweritin:
DT>> my $mood = 'плохое, хреновое, отвратительное';
DT>> my @mood = split /\,\s+/, $mood;
DT>> print 'Сегодня у меня '.$mood[rand @mood]." настроение\n";
MK> А как можно сделать, чтобы он из файла эти переменные брал, учитывая,
MK> что каждая переменная на новой строчке?
может так ?
my @mood;
open (FILE, "file.txt") or die "cannot open file.txt: $!";
my i=0;
while (<FILE>){
chomp;
$mood[i++]=$_;
}
close (FILE);
print "Сегодня у меня ...";
Всего наилучшего,
Sergey
--- GoldED 3.00.Alpha2+
* Origin: (2:5000/97.29)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
