|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Andrew Alakozow 2:5061/29.2 17 Apr 2002 18:04:19 To : All Subject : return --------------------------------------------------------------------------------
print ref(foo());
и
my $bar = foo();
print ref($bar);
может различаться.
например:
use strict;
use XML::LibXML;
use XML::LibXSLT;
my $style = parseXSLTFile('style.xsl');
print ref($style),"\n";
print ref(parseXSLTFile('style.xsl')),"\n";
sub parseXSLTFile{
my $fname = shift;
my $parser = XML::LibXML->new();;
my $tformer = XML::LibXSLT->new();
my $style_doc = $parser->parse_file($fname);
my $stylesheet = $tformer->parse_stylesheet($style_doc);
return $stylesheet;
}
выдает:
UNKNOWN
XML::LibXSLT::Stylesheet
причем, если поменять
my $style_doc = $parser->parse_file($fname);
my $stylesheet = $tformer->parse_stylesheet($style_doc);
на
my $stylesheet = $tformer->parse_stylesheet($parser->parse_file($fname));
то все работает нормально.
aa29.2
--- (.) ---
* Origin: Зукд ащкумук! (2:5061/29.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/27713cbdbef4.html, оценка из 5, голосов 10
|