Сижу, изучаю сабж. Так, для собственного развития. Подумал, что для закрепления навыков необходимо как-то попрактиковаться. Придумал вот такую вещь, которую засунул в .bashrc:
curl -s bash.org.ru/random | iconv -f cp1251 -t utf8 | perl bash.org.pl bash.org.pl:
my @mas;
$per=0;
while (<>) {
if ($per==1) {
$per=0;
$_=~s/<[^>]*>//g;
$_=~s/\&.*;//g;
$_=~s/^\t+//g;
@mas=(@mas,$_);
}
if ( $_ =~m{^\t\t\t\t\t</div>\n$} ) {
$per=1;
}
}
srand;
print $mas[int(rand($#mas))];
Сам знаю, что получилось фигово, зато, если потребуется разобраться в коде, не придется особо париться.
