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

вот есть код в файле

Code:

sub TopMenu($)
{
#верхнее меню
my ($dbh)= @_;
my @menu=();

$stroka="SELECT * FROM categories WHERE cat_place='2' AND cat_show='1' ORDER BY cat_datetime DESC";
$sth=$dbh->prepare($stroka);
$sth->execute;
while (@row=$sth->fetchrow_array)
{
$cat_name=MyDB::Replace_for_Show($row[1]);
$cat_name_menu="<a href='$scriptout?action=cat_article&cat_id=$row[0]'>$cat_name</a>";
my %str=(CAT_NAME => $cat_name_menu);
push (@menu, \%str);
}
return @menu;
}

потом далее он почему то несколько раз выводится

Code:

@menu=TopMenu($dbh);
$tmp->param(TOPMENU => \@menu);

как мне в этот код засунуть еще это:
что бы выводилось вместе контентом

Code:

"$ENV{DOCUMENT_ROOT}//SAPE.pm" =~ /^(.+)$/;
require $1;
my $sape = new SAPE::Client(
	user    => '',
	host    => '<ИМЯ_ХОСТА>',  # необязательно, по умолчанию: $ENV{HTTP_HOST}
	charset => 'windows-1251', # необязательно, по умолчанию: windows-1251
);
print $sape->get_links;

сапу не могу настроить

 

а где собственно вывод? если вывод в массиве @menu, то примерно так:

Code:

require $ENV{DOCUMENT_ROOT}."/SAPE.pm";
my $sape = new SAPE::Client(
	user    => '',
	host    => '<ИМЯ_ХОСТА>',  # необязательно, по умолчанию: $ENV{HTTP_HOST}
	charset => 'windows-1251', # необязательно, по умолчанию: windows-1251
);

@menu=TopMenu($dbh);
push(@menu, $sape->get_links); 

$tmp->param(TOPMENU => \@menu);

 

есть ли какие либо видеокурсы по перл и стоит ли их практиковать, так же не подскажите как его стоит учить:?(имею небольшой опыт программирования на с++) учу по книге перл за 24 часа, дошел до регулярок

 

Учи дальше не пожлееш, см по этой книге учу интересный язык и функциональный...

 

вопрос по 1 задаче:
задача:
Постарайтесь составить шаблон соответствующий стандартному шаблону времени.
Шаблон должен пропустить: 12:00am, 5:00pm, 8:30AM;
Не должен пропустить: 3:00,99:00am,3:0pm
написал такой скрипт

Code:

#!user/bin/perl -w  
@foo=qw(5:00pm 8:30AM 3:00 2:60am 3:0pm 99:00am 12:00am); 
 @a=grep /1{0,1}\d:[0-5]\d[pm|am|AM|PM]/,@foo  ;  
print @a; 

вывод такой:
C:\perl>perl time.pl
5:00pm8:30AM99:00am12:00am
почему попадает 99:00?

 

Попробуйте такой вариант

Code:

@a = grep /^[0-2]?\d:[0-5]\d(?:am|pm|AM|PM)$/, @foo;

Недостатки тоже есть, например, пропускаются строки типа 27:59am.
ЗЫ. По регуляркам найдите книгу Фридла

 

в итоге получилось так


#!user/bin/perl -w
@foo=qw(5:00pm 8:30AM 3:00 2:60am 3:0pm 99:00am 12:00am);
@a=grep /(?<![2-9])\d:[0-5][0-9](?m|am)/i,@foo ;
print @a;

 

помогите с авторизацией на фейсбуке
чтото не получается залогинится выдает ошибку

вот код.

Code:

my $resp = $ua->get("http://www.facebook.com/")->as_string;
  
   my ($lts) = $resp =~ /name="lsd" value="(.+?)" autocomplete/;
       $resp = $ua->post("https://www.facebook.com/login.php?login_attempt=1",
                            [
                             "charset_test" => "%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84",
"lsd" => $lts,
"locale" => "ru_RU",
"email" => $mail,
"pass" => $pass,
"default_persistent" => "0",
"charset_test" => "%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84",
"lsd" => $lts,
"timezone" => "-120",])->as_string;
#$resp = $ua->get("")->as_string;
wf("1.html", $resp);

 

Здравствуйте, в Perl совсем нуб, купил книгу Шварца "Изучаем Perl", упражнение 2, ввести
perldoc -i -f atan2, выдает ошибку. У меня Windows XP, Active Perl 5.14.2 и Abcsolute Perl 0.9 Beta. Подскажите, что делать?

 

А у меня все пашет

 

Ну так сделай, чтобы в запросе слался user-agent какого-нибудь современного браузера и попробуй снова.

 

И charset_test отправляй безо всяких урленкодов, лучше вообще со страницы спарсить...

 

Code:

€,´,€,´,水,Д,Є

перл ругается если без урлекода.

то Кaimi узерагенты и так последних версий .оперы хрома и лисы

 

Куки надо еще подсовывать. urlencode естественно нужно!

 

Ругается потому что в двойных кавычках отправляешь...

LWP::UserAgent сам урленкодит данные отправляемые через пост, будет просто двойной урленкод...

Хотя тут дело то не в этом параметре, и без него логинится я посмотрел...

 

куку присваиваются после авторизации.

подставляю юзерагент с лисы с которой логин проходит норм. не пойму в чем дело

 

mazaxaka, а ты мыло небойсь тоже в двойные кавычки взял..?!

$mail = "[email protected]";

 

нет мыло у меня вот так

Code:

"email" => $mail,

берется с ак.тхт
у меня во всех прогах двойные а что?

 

Code:

$mail = "[email protected]";
print $mail;

выдаст olololo.ru, так как @mail воспримется как массив, но если ты из тхт берёшь, то врядли проблема в этом, хотя всё-же проверь...

 

беру из тхт. поставил даже

Code:

"email" => '$mail',

всеравно таже фигня. не пойму где ошибка.