|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alan Long 2:5030/1082.72 06 Feb 2003 21:03:24
To : Denis Knyazev
Subject : CGI.pm problem
--------------------------------------------------------------------------------
* Originally from Denis Knyazev (2:50/551.38) to Alan Long.
AL> Hу а изобрести велосипед - конечно можно, но нужно-ли. В данном
AL> случае видимо придется отлавливать вывод именно ссылок, и
AL> выводить их самому.
DK> Hе надо самому. Для формирования ссылок, соответствующих
DK> стандарту, в CGI.pm есть функция escape. Вот только её надо
DK> явно экспортировать: use CGI qw(:standard escape)
Hу в данном конкретном случае под формирование сылок я имел в виду примерно
следующее:
sub make_link {
my $self = shift;
my $ptr = {};
my @text;
my $rc = '';
foreach ( @_ ) {
if( ref $_ ) {
$ptr = $_;
} else {
push( @text, $_ )
if( defined $_ );
}
}
if( @text or keys %{ $ptr } ) {
$rc = ( @text ) ?
$self->cgi->a( $ptr, \@text ) : # Вызов метода `a' из CGI.pm
$self->cgi->start_a( $ptr ); # вызов метода `start_a' из CGI.pm
}
return $rc;
}
И мне вместо этого придется разбирать что-же там мне передали в $ptr, выводить
атрибуты, и делать все то-же самое что и делает CGI.pm за одним лишь исключением
что не преабразовывать '&' в аттрибуте href.
Hу а про escape/unescape - я в курсе. Hу а про импорт этих функций в сой name
space я обычно не забочусь, так как работаю с CGI как с объектом (мне так проще
и привычней)
DK> WBR, Denis.
--
With best,
Ъ-· Ъ
Е-ЧLaі\і <alan@x-rays.eu.org>
--- timEd/386 1.10+
* Origin: X - Rays Station (2:5030/1082.72)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
