#!/usr/bin/perl use strict; use Time::HiRes qw(gettimeofday tv_interval); use Data::Dumper; use XML::LibXML; use XML::LibXSLT; use HTML::Template; use Template; use File::Temp qw(tmpnam); my ($xslt_timer, $html_timer, $tt2_timer); my ($xml_parser, $xsl_parser) = (XML::LibXML->new, XML::LibXSLT->new); my $big_array = build_big_array(5000); my $xml_data = build_xml_data($big_array); my $template_obj = build_html_template(); my $html3 = render_tt2($big_array); my $xsl = build_xsl_processor(); my $html1 = render_html_template($template_obj, $big_array); my $html2 = render_xslt($xsl, $xml_data ); save_output($html1, $html2, $html3); print<parse_string($xml_data); $xslt_timer += tv_interval($t0, [gettimeofday]); return $dom; } sub build_xsl_processor { my $str = _read_chunk ('xsl'); my $xsl = $xml_parser->parse_string ($str); return $xsl_parser->parse_stylesheet($xsl); } sub build_html_template { my $tmpl = _read_chunk ('template'); return HTML::Template->new( scalarref => \$tmpl ); } sub _read_chunk { my $starter = shift; my ($running, $stop, $data) = (0,0); while () { next unless (/^\$$starter/ || $running); $running = 1; chomp; s/^\s+//; s/\s+$//; next if /^\$$starter/; $stop++ if length($_) == 0; last if $stop == 2; $data .= $_; } return $data; } sub render_html_template { my ($template_obj, $data) = @_; my $t0 = [gettimeofday]; $template_obj->param(TR_LOOP => $data); my $html= $template_obj->output; $html_timer += tv_interval($t0, [gettimeofday]); return $html; } sub render_xslt { my $xsl_proc = shift; my $xml_dom = shift; # timer starts here my $t0 = [gettimeofday]; my $html = $xsl_proc->output_string($xsl_proc->transform($xml_dom)); $xslt_timer += tv_interval($t0, [gettimeofday]); return $html; } sub render_tt2 { my ($data) = @_; my $o_tt2 = Template->new({ ABSOLUTE => 1, }); my $templ = _read_chunk('tt_template'); my $filename = tmpnam(); open (F, ">$filename"); print F $templ; close F; my $str; $o_tt2->process($filename,{data => $data},\$str); # need to process twice since first one would not use cached template my $str_new; my $t0 = [gettimeofday]; unless ($o_tt2->process($filename,{data => $data},\$str_new)) { print STDERR "TT2 ERROR ",$o_tt2->error(),"\n"; } $tt2_timer += tv_interval($t0); unlink $filename; return $str_new; } sub save_output { my ($h1, $h2, $h3) = @_; open (F, ">html_template.html") ; print F $h1,"\n" ; close F; open (F, ">html_xslt.html"); print F $h2,"\n" ; close F; open (F, ">html_tt2.html"); print F $h3,"\n" ; close F; } __DATA__ $data= { id => 100, p_name => 'JOHN', ap_time => '20050324 18-24-00', ap_tzr => 'US/Eastern', ap_tzra => 'EST', p_id => 109, ap_phone => '617 249 5000', ap => 'John Hopkins', ap_loc => 'Washington DC', ct_time => '20050405 10-32-00', ct_tzr => 'US/Pacific', ct_tzra => 'PST', count => 5, } $template=

ID	Patient Name	Appt Time	App Timezone	Timezone	Patient ID	Appt Phone	Appt Prov	Appt Location	Call Time	Timezone	Timezone	Count

$tt_template= [% FOREACH tr=data %] [% END %]

ID	Patient Name	Appt Time	App Timezone	Timezone	Patient ID	Appt Phone	Appt Prov	Appt Location	Call Time	Timezone	Timezone	Count
[% tr.id %]	[% tr.p_name %]>	[% tr.ap_time %]	[% tr.ap_tzr %]	[% tr.ap_tzra %]	[% tr.p_id %]	[% tr.ap_phone %]	[% tr.ap %]	[% tr.ap_loc %]	[% tr.ct_time %]	[% tr.ct_tzr %]	[% tr.ct_tzra %]	[% tr.count %]

$xsl= results_table statstabledata sort-table ID Patient Name Appt Time App Timezone Timezone Patient ID Appt Phone Appt Prov Appt Location Call Time Timezone Timezone Count

_resp.tableSelect.rollOver(this); _resp.tableSelect.rollOut(this); _resp.tableSelect.dblclick(this); _resp.tableSelect.click({rowObject:this}, _resp.tableselect); id

p_name

ap_time

ap_tzr

ap_tzra

p_id

ap_phone

ap_loc

ct_time

ct_tzr

ct_tzra

count