#! /usr/bin/env perl use strict; use warnings; use XML::LibXML; my $parser = XML::LibXML->new; my $doc = $parser->parse_file($ARGV[0]); my $root = "ex1/"; print < Triggered makefiles

Triggered makefiles

END foreach my $ml ($doc->findnodes("//makelog")) { (my $dir = $ml->findvalue("makeinfo/pwd")) =~ s/^.*$root//; print < END } print < END
makelevel pwd start time end time
@{[ $ml->findvalue("makeinfo/makelevel") ]} $dir @{[ substr($ml->findvalue("makeinfo/stime"),11,11) ]} @{[ substr($ml->findvalue("makeinfo/etime"),11,11) ]}