Распечатка списка секретных слов.
#!/usr/local/bin/perl -w while(defined($filename = glob("*.secret"))) { open(WORDLIST, $filename) die "can't open wordlist: $!"; if(-M WORDLIST >= 7.0) { die "Sorry, the wordlist is older than seven days."; } while($name = <WORDLIST>) { chomp($name); $word = <WORDLIST> ; chomp($word); write; } close(WORDLIST) die "could not open wordlist: $!"; } format STDOUT = @<<<<<<<<<<<<<< @<<<<<<<< @<<<<<< $filename, $name, $word . format STDOUT_TOP = Page @<< $%
Filename Nname Word ================ ========= ======= .
