|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Reznikov 2:4600/220 30 Jun 2003 19:49:16
To : Max Teplov
Subject : вырезание UUE
--------------------------------------------------------------------------------
Как-то Max Teplov писал к Alexander Reznikov, но я услышал и решил ответить :
MT> не, не для этого. я сваял скpиптик, фоpмиpyющий словаpь (пpосто
MT> выpезyющий слова). натpавил на файлэхy book. потом пpиделал к hpt
MT> пеpевод пpохожящей чеpез меня почты в txt и натpавление скpипта на эти
MT> txt :) uue дико напpягало.
О, прикольно. А физический смыл этого какой? Какие-нибудь частотные
характиристики слов изучаешь? (в мыло, если можно)
В моём примере ошибка была. Думаю, ты заметил. Hо на всякий случай:
sub checkuueline
{
- $_ = shift;
+ my $line = shift;
return 0 if $line !~ /^\s*([\x60\x21-\x5f])([\x60\x21-\x5f]*)\s*$/;
my $uulen = ord($1) == 0x60? 0: ord($1)-0x20;
my $datalen = (int($uulen/3)+($uulen%3? 1: 0))*4;
return $datalen == length($2)? 1: 0;
}
Как я уже говорил, регексп для практического использования лучше сделать
как-нибудь так (чтобы не захватывать всякоразные идентификаторы и слова,
которые случайно подойдут под маску):
^\s*([\x60\x21-\x5f])([\x60\x21-\x5f]{5,})\s*$;
Баюшки !!
[ Черёмухин aka Гибкость TEAM ] [ UU9JЁКЛМH ]
--- Дедушка GoldED+ 1.1.5-2003.06.24 (Win9x 4.10.2222 i586)
* Origin: Скажи AreaFix'у: 'Я' ! (2:4600/220)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
