вопрос не про перл, а про HTML:
(возможно надо форматировать при вставке в таблицу)
Код: Выделить всё
<table id="log_table">
<tr class="hilightoff" onMouseOver="className='hilighton';" onMouseOut="className='hilightoff';">
<td nowrap> ываыа ></td>
<td nowrap width="300" height="0">ываываываываываываываываыволаиывоаиывлиаылвоиапвылаопилваыопивлаыпилпиваполваыолаиывоаиывлиаылвоиапвылаопилваыопивлаыпилпиваполваыпоавылподрывалпорвыалопрвыолаиывоаиывлиаылвоиапвылаопилваыопивлаыпилпиваполваыпоавылподрывалпорвыалопрвыолаиывоаиывлиаылвоиапвылаопилваыопивлаыпилпиваполваыпоавылподрывалпорвыалопрвыолаиывоаиывлиаылвоиапвылаопилваыопивлаыпилпиваполваыпоавылподрывалпорвыалопрвыолаиывоаиывлиаылвоиапвылаопилваыопивлаыпилпиваполваыпоавылподрывалпорвыалопрвыпоавылподрывалпорвыалопрвыалодпрвлаоыдпрдловаырпловыапрлвоапдлвыапрдловаырпловаырпдловаырпдловаырполдвыпдваоыл></td>
</tr>
так стоит, а надо чтобы так
Код: Выделить всё
<td nowrap width="300" height="0">ываываываываываываываываывол
аиывоаиывлиаылвоиапвылаопилваыопивлаыпилпиваполваыпоавылподрыв
алпорвыалопрвыалодпрвлаоыдпрдловаырпловыапрлвоапдлвыапрдловаырп
ловаырпдловаырпдловаырполдвыпдваоыл></td>
это не слова, а буквы разные, логи с maillog
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'

