perl fortune

[ocehb]

если у вас есть фортунки, но нет fortune...

# perl -e '$/ = "%\n"; rand($.) < 1 && ($line = $_) while <>;
 chomp $line; print $line;' \
  /usr/share/games/fortune/fortune-rus
Дон Кихот:
- Санчо - ты мне друг?
Санчо:
- Нет уж, Дон - хватит! Давай до баб доедем!!!
# perl -e '$/ = "%\n"; rand($.) < 1 && ($line = $_) while <>;
 chomp $line; print $line;' \   
  /usr/share/games/fortune/*
If you think nobody cares if you're alive, try missing a couple of car
payments.
                -- Earl Wilson
#