?????????? ????????? - ??????????????? - /home/agenciai/public_html/cd38d8/02_parse.t.tar
???????
home/.cpan/build/HTML-TagParser-0.20-0/t/02_parse.t 0000644 00000002135 15127535232 0015007 0 ustar 00 # ---------------------------------------------------------------- use strict; use Test::More tests => 5; BEGIN { use_ok('HTML::TagParser') }; # ---------------------------------------------------------------- my $SOURCE = <<EOT; <html> <head> <title>Hello, World!</title> </head> <body> World, Hello! </body> </html> EOT # ---------------------------------------------------------------- my $html1 = HTML::TagParser->new(); my $num = $html1->parse( $SOURCE ); ok( $num, "parse by parse()" ); my $elemt = $html1->getElementsByTagName( "title" ); my $title = $elemt->innerText() if ref $elemt; is( $title, "Hello, World!", "title" ); # ---------------------------------------------------------------- my $html2 = HTML::TagParser->new( $SOURCE ); ok( ref $html2, "parse by new()" ); my $elemb = $html2->getElementsByTagName( "body" ); my $body = $elemb->innerText() if ref $elemb; is( $body, "World, Hello!", "body" ); # ---------------------------------------------------------------- ;1; # ----------------------------------------------------------------
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????