#!/usr/bin/perl -w use strict; use util; my @files = get_files('BALANCED'); foreach my $f (@files){ my $folder = "BALANCED/$f"; my @file = get_file_data("$folder"); my $output = ''; my $inside = 0; my $inlist = 0; my $name = ''; my $result=''; $result.= "\n\n"; foreach my $line (@file){ if( $line =~ /.*<\/name>/ ){ $line =~ s///; $line =~ s/<\/name>//; $name = $line; $result.="

".$name."

"; } elsif( $line =~ /.*<\/stock>/ ){ $line =~ s///; $line =~ s/<\/stock>//; $result.= "Stock symbol: ".$line."
"; } elsif( $line =~ /

.*<\/address>/ ){ $line =~ s/

//; $line =~ s/<\/stock>//; $result.= "Address: ".$line."
"; } elsif( $line =~ /.*<\/ceo>/ ){ $line =~ s///; $line =~ s/<\/ceo>//; $result.= "CEO: ".$line."
"; } elsif( $line =~ /.*<\/focus>/ ){ $line =~ s///; $line =~ s/<\/focus>//; $result .= "FOCUS: ".$line."
"; } elsif( $line =~ /.*<\/website>/ ){ $line =~ s///; $line =~ s/<\/website>//; chomp($line); $result.= "WEBSITE: ".$line."
"; } } $result.= "\n\n"; $f =~ s/xml/html/; unless ( open(HTMLFILE, ">$f") ) { print "Cannot open file\n"; exit; } print HTMLFILE "$result"; close(HTMLFILE); } exit;