DaemonSuw, cпасибо за совет. В случае использования приведённого выше кода, ясно программа отправляет сообщение в файл при набранном неправильном секретном слове, или если срок со времени создания секретного слова превысил 7 дней.
Но что касается отправки сообщения на адрес электронной почты при помощи SendMail, здесь похоже помимо установки самого SendMail, необходима установка веб-сервера.
Да, и ещё вопросик при выполнении кода программы:
| Код |
#!/usr/bin/perl -w
&init_words ( );
print "What is your name? ";
$name = <STDIN>;
chomp ($name) ;
if ($name =~ /^randal\b/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);
$last_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 (($words[$somename] || "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"
}
}
|
когда введено имя и соответствующее ему секретное слово, программа выводит опять тот же запрос:
http://ipicture.ru/
и понятно посылает сообщение в файл, хотя время созданных файлов секретных слов не привышает 7 дней.
Например, если ввести используемое по умолчанию для всех имён секретное слово "groucho"
прграмма завершается удачно. |
По рекомендациям опытных начал изучение Perl по книге Р. Шварца и Т. Кристиансена "Изучаем Perl", но на определённом этапе освоения материала начались сложности. Программа почему то работает не корректно, хотя код в точности совпадает скнижным вариантом, а также были выполнены все пункты по размещению файлов секретных слов с расширением *.secret в рабочем каталоге. Там же были размещены файлы для записи базы данных lastdb.dir и lastdb.pag. Вот код программы:
