ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vadim Sizikh                         2:5070/102.7   06 Apr 1999  21:33:00
 To : All
 Subject : Perl
 -------------------------------------------------------------------------------- 
 

 
 Есть программка. А должна она:
 1. Выводить "Здорово, Pэндал!", если в СТДИH ввести имя randal.
 2. Если введенное имя- не рэндал, то прога запрашивает пароль.
 Пароль должен совпасть с одним из паролей массива
 @words ('vad','fuck','off','birga').
 3. Если пароль не совпадает, то выводит, типа, Wrong и просит ввести
 заново.
  Так вот, если я в первый раз ввожу один из паролей массива @words,
 все работает нормально- прога выдает номер пароля в массиве и выходит.
  А если я в первый раз ввожу неправильный пароль, он выдает Wrong и
 еще одно приглашение ввести пароль. Теперь уже я ввожу правильный
 пароль, например vad, а он мне вместо его номера выдает Wrong.
 В общем, во второй раз ни один из паролей он не распознает.
 Хотелось бы узнать, почему.
 А вот вам сорс, предположительно грабли где-то после 16 строки кода:
 
 /ачали Windows Clipboard/
 #! /usr/bin/perl
 print "Content-type: text/plain \n\n";
 @words= ('vad','fuck','off','birga');
 print 'What is your name?';
 $name = <STDIN>;
 chomp ($name);
 if ($name eq 'randal')
  {print 'Hello, Randal! How good of you to be here!'; }
 else
  {print "Hello, $name! \n";
   $corr=10;
   print 'What is the secret word?';
   $guess = <STDIN>;
   chomp ($guess);
    $i=0;
   while ($corr==10) {
        if ($i<4)
       {#print "$words[$i]\n";
        #print "$guess\n";
        if ($guess eq $words[$i])
        {$corr=$i;
      print $corr;}
     $i+=1;
       }
     else
       {$i=0;
       print "Wrong\n";
       $quess=<STDIN>;
       chomp ($guess);}
  }
 print "$secretword[$corr]\n";}
 /Кончили Windows Clipboard/
 
 * Crossposted in RU.PERL
                 /*Hу, досвиданица! Может еще увидимся./*            *06 Apr 99*
 
 ---
  * Origin: Ламеры не рулят. (2:5070/102.7)
 
 

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