Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - xames

Страницы: 1 2 3 [4] 5
46
Perl / проблема с сокетами
« : 20 Мая 2006, 08:40:53 »
попробуй вместо send - syswrite SOCK $x, или print SOCK $x

может что нибудь изменится. или еще осылать символ \\n  в в конце каждого послания.

47
Perl / RegExp кол-во вхождений
« : 18 Мая 2006, 07:23:58 »
Немного тестов:

timethese (10_000_000,{
   \'A\' => q|while ($data =~ m ~~g) { ++$open; }|,
   \'B\' => q|while ($data =~ m ~~go) { ++$open; }|,
   \'C\' => q|$count = ($data =~ m ~~g)|,
   \'D\' => q|$count = ($data =~ m ~~go)|});

Benchmark: timing 10000000 iterations of A, B, C, D...
         A:  5 wallclock secs ( 6.10 usr + -0.01 sys =  6.09 CPU) @ 1642305.80/s
 (n=10000000)
         B:  6 wallclock secs ( 6.09 usr +  0.00 sys =  6.09 CPU) @ 1642036.12/s
 (n=10000000)
         C:  3 wallclock secs ( 4.61 usr +  0.01 sys =  4.62 CPU) @ 2165908.60/s
 (n=10000000)
         D:  3 wallclock secs ( 4.56 usr +  0.00 sys =  4.56 CPU) @ 2194426.16/s
 (n=10000000)

=))

48
Perl / Определение номера элемента в массиве
« : 18 Мая 2006, 07:07:03 »
timethese (10_000_000,{
   \'A\' => q|for($i=0;$i   \'B\' => q|foreach (@var1) { ++$i; if ($var1[$i-1] == $mas1) { $nomelem = $i-1;last }}|});


Benchmark: timing 10000000 iterations of A, B...
         A: 38 wallclock secs (34.97 usr +  0.00 sys = 34.97 CPU) @ 285951.22/s
(n=10000000)
         B: 83 wallclock secs (79.12 usr +  0.06 sys = 79.18 CPU) @ 126288.14/s
(n=10000000)

49
Perl / RegExp кол-во вхождений
« : 17 Мая 2006, 11:43:34 »
$count = ($data =~ m ~~g)

50
Perl / socks5 прокси...
« : 14 Мая 2006, 21:50:52 »
Все же возьми из тех скриптов готовую реализацию и не парься.

51
Perl / Проблемы с запуском CGI-скрипта???
« : 14 Мая 2006, 21:47:59 »
1 #!/usr/bin/perl

2 use CGI::Carp qw(fatalsToBrowser);
3 ...
4 ...
5 ...

так ошибки будут сразу в браузер выводится - легче разобраться в причинах появления их появления

52
Perl / use LWP::UserAgent;
« : 12 Мая 2006, 20:47:45 »
Еще кстати глянь модули созданные на основе этого модуля, возможно понадобятся какие нибудь.

53
Perl / RegExp кол-во вхождений
« : 12 Мая 2006, 20:46:01 »
$data=~s##$open++#ge;
$data=~s##$close++#ge;

if($open != $close) ....

54
Perl / Почему 1.9-1.89= 0.00999999999930878
« : 12 Мая 2006, 20:43:27 »
На тему чисел в перле:

perldoc Math::BigFloat
perldoc Math::BigInt

Может что интересное найдете.

55
Perl / socks5 прокси...
« : 12 Мая 2006, 20:38:32 »
search.cpan.org -> ICQ
ищи бота аськи в инете, должны быть, если есть то смотри реализацию работы с проксей. Если очень захочешь - найти сможешь.
Так же ищи ICQ клиент на перле, где то видел.

56
Perl / RegExp в Perl
« : 06 Мая 2006, 14:36:33 »
undef $/;
$data=;

sub word
   {
      my ($data,$first_tag,$second_tag,$sd,@r) = @_;
      while($data =~ m#<$first_tag[^<>]*>(.+?)#isg)
         {
            $d=$1;
            while($d =~ m#<$second_tag[^<>]*>(.+?)#isg)
               {
                  push @r,$1;
               }
         }
      return @r;
   }

######################################

print word($data,\'div\',\'a\');

######################################

__DATA__

......

57
Perl / use LWP::UserAgent;
« : 06 Мая 2006, 10:45:12 »
все же попробуй модуль, он на основе LWP сделан, и  существенно облегачет работу!!!

58
Perl / use LWP::UserAgent;
« : 06 Мая 2006, 08:57:04 »
http://search.cpan.org/~petdance/WWW-Mechanize-1.18/lib/WWW/Mechanize.pm

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get( $url );
$mech->get( $url2 );
print $mech->{content};

59
Perl / Установка Crypt-SSLeay и OpenSSL
« : 05 Мая 2006, 15:26:10 »
это уже и есть небольшой гемор))

60
Perl / Установка Crypt-SSLeay и OpenSSL
« : 05 Мая 2006, 11:43:12 »
ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd

Под винду великолепно ставится. Лишь бы ваш интернет был не через прокси. Иначе чуток больше гемора с установкой.

Страницы: 1 2 3 [4] 5