Сообщения

1

Perl / Как поменять набор букв на другой набор букв?

« : 18 Апреля 2001, 14:45:14 »

$cur =~ tr/БВЧЗДЕЪЙКЛМНОПРТУФХЖИГШЩЯЬбвчздеъйклмнопртуфхжигшщяь/abvgdezijklmnoprstufxc\'y\'eABVGDEZIJKLMNOPRSTUFXC\'Y\'E/;
 $cur =~ s{Ц}{zh}g;
 $cur =~ s{ц}{ZH}g;
 $cur =~ s{Ы}{sh}g;
 $cur =~ s{ы}{SH}g;
 $cur =~ s{Э}{sh}g;
 $cur =~ s{э}{SH}g;
 $cur =~ s{Ю}{ch}g;
 $cur =~ s{ю}{CH}g;
 $cur =~ s{С}{ya}g;
 $cur =~ s{с}{YA}g;
 $cur =~ s{А}{yu}g;
 $cur =~ s{а}{YU}g;
 $cur =~ s{б}{yu}g;
 $cur =~ s{Б}{YU}g;

2

Perl / Как поменять набор букв на другой набор букв?

« : 18 Апреля 2001, 12:09:47 »

AliMamed (18-04-2001 12:05):
я сделал через массивы

Как (пример)?

3

Perl / Как считать изменить и выкикуть обратно бинарный файл?

« : 20 Августа 2001, 11:30:55 »

Прям не знаю что делать!
Пробовал так
-------------------------------------
 open(PARSEFILE, "<187.mp3");
 binmode (PARSEFILE,":raw" );
 my $to_do_file=;
Считывает только первые 416 байт
-------------------------------------
Пробовал так
-------------------------------------
 sysopen(BINDAT, "187.mp3", O_RDONLY | O_BINARY)  || die "can\'t open records.data: $!";
 sysopen(FH, "188.mp3", O_RDWR | O_CREAT) || die "can\'t open records.data: $!";
 while (sysread(BINDAT, $buf, 1024)) {
        syswrite(FH, $buf, length($buf));
    }
------------------------------------------
Вообще ничего не происходит.

4

Perl / Подскажите где взять Perl + mySQL Форум?

« : 23 Апреля 2001, 14:30:43 »

pls

5

Perl / Как поменять набор букв на другой набор букв?

« : 18 Апреля 2001, 11:36:54 »

Как поменять набор букв на другой набор букв? Причем некоторые буквы надо преобразовать одну буквы в две(например при перекодировке Win->Latinica \'Ч\' -> \'СH\'...) .
Вот как мне кажется что-то похожее , но оно не работает так как надо.
 $cur =~ tr/абвгдежзийклмнопрстуфхцчшщьыъэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ/abvgde(zh)zijklmnoprstufxc[ch][sh][sh]\'y\'[e\'][yu][ya]ABVGDE[ZH]ZIJKLMNOPRSTUFXC[CH][SH][SH]\'Y\'[E\'][YU][YA]/;

6

Perl / Как сгенерить хорошее случайное число ?

« : 27 Марта 2001, 12:44:20 »

Мне надо гененить случайное число
    srand(time|$$);
   $random = int(rand(@fake_files));

7

Perl / Как в LWP::UserAgent получать cookies и отдавать их.

« : 14 Июня 2001, 09:55:41 »

Помогите pls.
Я инициализирую UserAgent запрашиваю страничку на какомто сервере а он хочет записать моету UserAgent в куки ряд переменных и при сл. запрсе их проверяет.
Все сделал, но UserAgent не дает (с сервера с которого он запрашивает страничку) записать в себя куки и соот потом их отдать.

8

Perl / Хочу из браузера Upload File (картинку) сделать. Почемуто упорно Аплодит в ASCI режиме?

« : 15 Мая 2001, 19:16:51 »

Хочу из браузера Upload File сделать.
У меня Апач под BSD
Вроде формочка  METHOD="POST" и  ENCTYPE="multipart/form-data"
И все такое но !
Почемуто упорно Аплодит в ASCI режиме?


UploadFile($q->param(\'file-to-upload\'),\'tttt.jpg\');

sub UploadFile
{
 if ($_[0] ne \'\')
  {
    $CGI::POST_MAX=1024 * 1000;
    undef $buffer;
    open(OUTFILE, ">/home/motozona/public_html$_[1]")||&error("Can\'t open $dir$file. $!");
    binmode(OUTFILE);
    $encoding=\'multipart/form-data\';
    while ($bytesread=read($_[0],$buffer,1024))
    {print OUTFILE $buffer; }
    close (OUTFILE);
    return 1;
   }
 else {    return 0;}
}