Perl 之 Stream XML::Parser
发布时间:2020-12-15 21:08:55 所属栏目:大数据 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 use XML::Parser;my $parser = XML::Parser-new( Handlers = {Start=handle_start,End=handle_end,});$parser-parsefile( "yourXML.xml" );my @elem
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 use XML::Parser; my $parser = XML::Parser->new( Handlers => {Start=>&;handle_start,End=>&;handle_end,}); $parser->parsefile( "yourXML.xml" ); my @element_stack; # remember which elements are open sub handle_start { my( $expat,$element,%attrs ) = @_; my $line = $expat->current_line; print "$element starting on # $line!n"; push( @element_stack,{ element=>$element,line=>$line }); if( %attrs ) { print "Attributes:n"; while( my( $key,$value ) = each( %attrs )) { print "t$key => $valuen"; } } } sub handle_end { my( $expat,$element ) = @_; my $element_record = pop( @element_stack ); print "$element started on # ",$$element_record{ line }; } 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |