[Perl] Новичкам: задаем вопросы

Как выбрать только первые 2а символа из ip адреса например из 10.33.235.101 ?
Зарание спасибо!

 

Code:

$ip = '105.189.235.101';

$ip =~ /^(\d\d?\d?)\.(\d\d?\d?)/;

В переменных $1 и $2 будет 105 и 189 соответственно.

 

Code:

$ip = '105.189.235.101';
($a,$b) = split(/\./,$ip);
print $a."-".$b;

 

Простите в регулярных выражениях я как в дремучем лесу..но меня наверно неправильно поняли,мне надо если ip 10.33.235.101 ,то значение переменной должно быть 10

 

Code:

$ip = '105.189.235.101';
($a) = split(/\./,$ip);
print $a; 

 

Подскажите кодеры, можно ли как нибудь укоротить кодес? У меня что то варианты кончились.

perl -e "$ARGV[0] =~ tr/A-Za-z/a-zA-Z/, print $ARGV[0];" QwErTy

Ну или так:

perl -e "$_ = shift, tr/A-Za-z/a-zA-Z/, print;" QwE

Всё равно не комильфо

 

Code:

perl -e "$_ = shift, tr/A-Za-z/a-zA-Z/, print;" QwE

perl -E "$_ = shift, y/A-Za-z/a-zA-Z/, say" QwE
perl -E "y/A-Za-z/a-zA-Z/, say for shift" QwE
perl -E "say $_ ^ ' ' x length for shift" QwE
perl -E "say $_^' 'x length for@ARGV" QwE

 

/<item num=(.*?) \/>/g

 

use Encode, Luke

 

Tigger, если страница в utf-8, то типа так:

Code:

use Encode;

$s = 'тут страница, которую парсишь';
Encode::from_to($s, 'utf-8', 'windows-1251');

 

Такая трабла:
при написании скриптов с использованием сервиса antigate.com юзаю модуль от Kaimi http://kaimi.ru/2009/05/anticaptcha-perl/
но вот проблема, на некоторых машинах отказывается работать, мотивируя этим:

хотя либа IO установлена и последней версии (пробовал переустанавливать)...
переустановка активперла не помогает.. Тестил на нескольких машинах (ХР, версия активперла на всех последняя)

С чем может быть связано..?!

 

Видимо с тем, что стоит попробовать вместо
new IO::Socket::INET (...
написать
IO::Socket::INET->new(...

 

Так и есть Большое спасибо..))

 

Здравствуйте,
можете мне помоч?вот суть проблемы,я пытаюсь вызвать подпрограмму ,название её передается в параметре get запроса.
пример кода

HTML:

my $sub_name=param("sub");
my $arg=param("arg");
&$sub_name($arg);
sub getvideo{
 #Code
}

&$sub_name($arg) -> как мне быть с этим ужасом?если прописываю use strict то начинаются ошибки которые ругаются на эту строчку

 

Помогите, нужно срочно отпарсить текс с содержимым:
klerpgh.ru
qekpgw.ru
wepigj.ru
и т.д.
Вначале каждой строки добавить http://
Очень нужно! Спасибо

 

вот пример работающей программы:

Code:

#!/usr/bin/perl

use strict;
my $sub_name = \&{$ARGV[0]};
my $arg = "hello";
&{$sub_name}($arg);
sub test {
	print $_[0],"\n";
}

# perl test.pl test
hello
# 

 

Что то не получается у меня perl ругается на строчку &{$sub_name}($arg); если что пишу под windows

 

хм, какая имено ошибка?

 

в вашем скрипте unable to create sub named (хоть и добавляю аргумент к запуску)
а в моем Can't use string ("getvideo") as a subroutine ref while "strict refs" in use at D:/web/cgi/api.pl line 9

 

Code:

{
no strict 'refs';
&$subname($argument);
}

при вызове функции если уж используете strict

но лучше всего это делать так:

Code:

use strict;

my $subname   = 'ololo';
my $subref = \&$subname;
&$subref("!!!1111");

sub ololo
{
print "HEY! $_[0]\n";
}