ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  25 Jul 2000  18:06:03
 To : Marsel Kirsanov
 Subject : Re: Как сделать такое...
 -------------------------------------------------------------------------------- 
 

 <Marsel_Kirsanov@p91.f10.n5023.z2.fidonet.org> wrote:
 
  MK>>> Вот есть, к примеру, такая программа!
  MK>>> print "Сегодня у меня хорошее настроение\n";
  MK>>> А как сделать так, чтобы вместо слова "хорошее" печаталось любое
  MK>>> из перечисленных через запятую переменыых? $nastrornie = 'хлохое,
  MK>>> хреновое, отвратительное'; и т.д.
 
  DT>> my $mood = 'плохое, хреновое, отвратительное';
  DT>> my @mood = split /\,\s+/, $mood;
  DT>> print 'Сегодня у меня '.$mood[rand @mood]." настроение\n";
 MK>  А как можно сделать, чтобы он из файла эти переменные брал, учитывая, что
 MK> каждая переменная на новой строчке?
 
 А какое тебе нужно распределение? Если равномерное, то
 
 rand($.) < 1 && ($mood = $_) while <F>;
 print "Сегодня у меня $mood настроение\n";
 
 (c) Perl Cookbook.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор