форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"При вызове функии в perl'e туда не добираюсь"
Сообщение от LESHIK on 01-Июл-03, 16:10  (MSK)
Учусь программировать на perl'e и вот такая проблема: при вызове функции что-то случается, причем в самой функции не выполняется даже первый оператор. С синтаксисом ( судя по perl -c forum.cgi ) все в порядке. sub postdecode {    PrintLog ( "here in\n" ); # до сюда почему-то не доходит    my $post = @_;    $post =~ s/\+/ /g;    $post =~ s/ /<BR>/g;    $post =~ s/%([0-9A-Ha-h]{2})/pack('C',hex($1))/ge;       return $post; } ..... sub ProcessInputPost {     PrintLog ( "IN PrecessInputPost\n" );     my $data = <STDIN>;     PrintLog ( "Before the call\n"); # тут все и обрывается     $data = postencode ( "$data" );     PrintLog ( "After the call\n");     ..... }        В логе получаю : IN ProcessInputPost Before the call и все    думал, что может быть это из-за того, что обявляю переменные как "my" , но , когда поменял на local ничего не изменилось. несомненно поискал бы в инете решение проблемы, да вот сформулировать не так просто в воисковике... Буду очень благодарен, если кто-нибудь поможет.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "При вызове функии в perl'e туда не добираюсь"
Сообщение от Xen on 03-Июл-03, 21:45  (MSK)
Мдя... у тя функция - postDEcode, а вызываешь ты postENcode... так что давай листинг нужной чачи
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "При вызове функии в perl'e туда не добираюсь"
	Сообщение от LESHIK on 07-Июл-03, 23:35  (MSK)
	>Мдя... у тя функция - postDEcode, а вызываешь ты postENcode... так что >давай листинг нужной чачи Извиняюсь за ошибку (в проге все в этом отношении правильно) sub postencode {    PrintLog ( "here in\n" ); # до сюда почему-то не доходит    my $post = @_;    $post =~ s/\+/ /g;    $post =~ s/ /<BR>/g;    $post =~ s/%([0-9A-Ha-h]{2})/pack('C',hex($1))/ge;       return $post; } ..... sub ProcessInputPost {     PrintLog ( "IN PrecessInputPost\n" );     my $data = <STDIN>;     PrintLog ( "Before the call\n"); # тут все и обрывается     $data = postencode ( "$data" );     PrintLog ( "After the call\n");     ..... }
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "При вызове функии в perl'e туда не добираюсь"
	Сообщение от LESHIK on 07-Июл-03, 23:46  (MSK)
	и ещё опечатка ... $post =~ s/\n/<BR>/g; (ну вообще perl -c дает Syntax OK)
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "При вызове функии в perl'e туда не добираюсь"
	Сообщение от pth on 09-Июл-03, 02:13  (MSK)
	>sub postencode >{ >   PrintLog ( "here in\n" ); # до сюда почему-то >не доходит >   my $post = @_; Ошибка! Нужно что-то вроде my ($post) = @_;  # или my $post = shift; # или my $post = $_[0]; >   $post =~ s/\+/ /g; >   $post =~ s/ >/<BR>/g; >   $post =~ s/%([0-9A-Ha-h]{2})/pack('C',hex($1))/ge; > >   return $post; >} > >..... > >sub ProcessInputPost >{ >    PrintLog ( "IN PrecessInputPost\n" ); >    my $data = <STDIN>; >    PrintLog ( "Before the call\n"); ># тут все и обрывается Текст PrintLog - в студию. У меня с sub PrintLog {    print join(", ", @_), "\n"; } ничего не обрывается, а к тебе, после фокуса с параметрами в postencode, доверия нет :) >    $data = postencode ( "$data" ); >    PrintLog ( "After the call\n"); >    ..... >}
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.