in reply to perl extraction from a file
outputs:use strict; use warnings; use HTML::TreeBuilder; use Data::Dumper; while ( <DATA> ) { my $tree = HTML::TreeBuilder->new_from_content($_); my $body = $tree->look_down("_tag" => "body" ); my $contents = ( $body->content_list() )[0]; print "$contents\n"; } __DATA__ <user_name>$userId</user_name> <job_id>$jobId</job_id> <finish_time>$timeF$ampmF</finish_time> <status>COMPLETED</status>
UPDATED: Same basic idea, but I like this better.$userId $jobId $timeF$ampmF COMPLETED
|
|---|