П О Р Т А Л                            
С Е Т Е В Ы Х                          
П Р О Е К Т О В                        
  
Поиск по сайту:
                                                 
Главная

О проекте

Web-мастеру
     HTML & JavaScript
     SSI
     Perl
     PHP
     XML & XSLT
     Unix Shell

MySQL

Безопасность

Хостинг

Другое








Самое читаемое:

Учебник PHP - "Для Чайника".
Просмотров 175057 раз(а).

Иллюстрированный самоучитель по созданию сайтов.
Просмотров 72048 раз(а).

Учебник HTML.
Просмотров 72106 раз(а).

Руководство по PHP5.
Просмотров 42727 раз(а).

Хостинг через призму DNS.
Просмотров 49221 раз(а).

Подборка текстов стандартных документов.
Просмотров 43145 раз(а).

Учебник PHP - Самоучитель
Просмотров 49487 раз(а).

Документация на MySQL (учебник & справочное руководство)
Просмотров 49749 раз(а).

Внешние атаки...
Просмотров 40275 раз(а).

Учебник PHP.
Просмотров 35309 раз(а).

SSI в примерах.
Просмотров 26581 раз(а).



 
 
| Добавить в избранное | Сделать стартовой | Помощь




Глава 1: Введение
1.5. Прогулка по стране Perl
1.5.16. Окончательные варианты программ

Здесь вашему вниманию предлагаются программы, которые мы писали в этой главе, в окончательном виде. Сначала — программа-приветствие:

#!/usr/bin/perl

&init_words() ;

print "what is your name? " ;
$name = <STDIN>;
chomp ($name) ;

if ($name =~ /^randalVb/i) { # обратно на другой путь :-)
  print "Hello, Randal! How good of you to be here!\n";

} else {
  print "Hello, $name! \n"; # обычное приветствие 
  print "What is the secret word? ";
  $guess = <STDIN> ;
  chomp ($guess);

  while (! good_word( $name, $guess)) {
    print "Wrong, try again. What is the secret word? ";
    $guess = <STDIN> ;
    chomp ($guess);
  }
}

dbmopen (%last_good, "lastdb", 0666);
$1ast_good{$name} = time;
dbmclose (%last_good);

sub init_words {

  while ($filename = <*.secret>) { 
    open (WORDSLIST, $filename) || die "can't open $filename: $!";

    if (-M WORDSLIST < 7) {

      while ($name = <WORDSLIST>) {
        chomp ($name);
        $word = <WORDSLIST> ;
        chomp ($word);
        $words {$name} = $word ;
      }

    } else { # rename the file so it gets noticed
      rename ($filename, "$filename.old") || die "can't rename $filename.old: $!";
    }

    close WORDSLIST;
  }
}

sub good_word {

  my($somename,$someguess) = @_; # перечислить параметры
  $somename =~ s/\W.*//; # удалить все символы, стоящие после первого слова
  $somename =~ tr/A-Z/a-z/; # перевести все символы в нижний регистр

  if ($somename eq "randal") { # не нужно угадывать
    return 1; # возвращаемое значение — true

  } elsif (($wordsf$somename( II "groucho") eq $someguess) {
    return 1; # возвращаемое значение — true

  } else {
    open MAIL, "| mail YOUR_ADDRESS_HERE";
    print MAIL "bad news: $somename guessed $someguess\n";
    close MAIL;
    return 0; # возвращаемое значение — false
  }
}

Теперь — листер секретных слов:

#!/usr/bin/perl

while ($filename = <*.secret>) {
  open (WORDSLIST, $filename) || die "can't open $filename: $!";

  if (-M WORDSLIST < 7) {

    while ($name = <WORDSLIST>) {
      chomp ($name) ;
      $word = <WORDSLIST> ;
      chomp ($word) ;
      write; # вызвать format STDOUT в STDOUT
    }
  }
  close (WORDSLIST) ;

  format STDOUT = @<“““““““ @““<““ @““““<“
  $ filename, $name, $word

  format STDOUT_TOP = Page @“$%
  Filename Name Word

И, наконец, программа выдачи времени последнего правильного ввода пароля:

#!/usr/bin/perl
dbmopen (%last good, "lastdb", 0666);
foreach $name (sort keys %last_good) {
  $when = $1ast_good ($name);
  $hours = (time - $when) / 3600; #вычислить истекшее время в часах
  write;
}
format STDOUT =
User @<“““““: last correct guess was @“< hours ago.
$name, $hours
.

Добавьте к этим программам списки секретных слов (файлы с именами что-то.secret, находящиеся в текущем каталоге) и базу данных lastdb.dir и lastdb.pad, и у вас будет все, что нужно.

Назад | Вперед
Содержание (общее) | Содержание раздела | Содержание подраздела



Если Вы не нашли что искали, то рекомендую воспользоваться поиском по сайту:
 





Copyright © 2005-2016 Project.Net.Ru