From Rafiq.Ismail at MorganStanley.com  Wed Apr  9 06:43:56 2008
From: Rafiq.Ismail at MorganStanley.com (Ismail, Rafiq (IT))
Date: Wed, 9 Apr 2008 14:43:56 +0100
Subject: [Thamesvalley-pm] HTML reporting for Test::Builder related modules
Message-ID: <0F354FDFECA12647B75F7B154EC382850B65E522@LNWEXMB58.msad.ms.com>

I was wondering if anyone knows of any modules which might extend/wrap
Test::More, et.al. to render pretty reports in HTML?
 
Thanks,
 
Raf
--------------------------------------------------------

NOTICE: If received in error, please destroy and notify sender. Sender does not intend to waive confidentiality or privilege. Use of this email is prohibited when received in error.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/thamesvalley-pm/attachments/20080409/5655def8/attachment.html 

From print.crimes at yatterings.com  Fri Apr 11 05:32:05 2008
From: print.crimes at yatterings.com (Iain Emsley)
Date: Fri, 11 Apr 2008 05:32:05 -0700
Subject: [Thamesvalley-pm] Well-formed XML query and query on further
	transformation
Message-ID: <20080411053205.2b8uipvgg0cokgs4@webmail.yatterings.com>


I'm currently working on a text parser to work out the differences  
between manuscripts but have hit a snag. I'm trying to read a text  
file and output it as XML but I can't quite seem to get the  
well-formedness required for XSL Transformation. Any one got any ideas  
on a better way of doing this?

#!c:\perl\bin\perl.exe

use strict;
use warnings;

use XML::Writer;
use IO::File;

my $write;
my $read = "C:\\WebRoot\\dickens\\dicktest.txt";
my @outputxml;
my $output = new IO::File(">c:\\generate.xml");
my $count;

#my $writer = new XML::Writer(OUTPUT => $output, UNSAFE=>1);

open (IN, $read) || die "$file not found\n";
@outputxml = <IN>;
close (IN);
chomp @outputxml;

$writer->xmlDecl();
$writer ->startTag("text");
foreach $write ( @outputxml) {
	$count++;
	$writer ->startTag("lineno");
	$writer->characters($count);
	$writer->endTag("lineno");
	$writer ->startTag("line");
	$writer->characters($write);
	$writer->endTag("line");
	}
$writer->endTag("text");

$writer->end();
$output->close();

The stage after that is where I need to query a file (though it might  
move to a db table) to match line numbers so that if there is a  
difference, a div tag enabling a JavaScript box can be inserted. Is  
there a Perlish way of doing this or does it need to be done inside  
the XSL Transformation?

Any advice gratefully accepted as I'm trying to get some proof of  
concept code running by the end of the month.
MTIA,

Iain
--

Iain Emsley

Blog: www.yatterings.com
Mobile: 07942 259725

From Rafiq.Ismail at MorganStanley.com  Fri Apr 11 06:22:02 2008
From: Rafiq.Ismail at MorganStanley.com (Ismail, Rafiq (IT))
Date: Fri, 11 Apr 2008 14:22:02 +0100
Subject: [Thamesvalley-pm] Well-formed XML query and query on
	furthertransformation
Message-ID: <0F354FDFECA12647B75F7B154EC38285076DCC34@LNWEXMB58.msad.ms.com>

An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/thamesvalley-pm/attachments/20080411/2065d3f7/attachment.html