Part I
Introduction
2
Chapter 1
Managers and Management
2
History
Module
Part II
Planning
56
------------------
Code
------------------
use warnings;
use strict;
undef $/;
open(A3a,"a.xml") or die "$!";
open(B3a, ">a5.xml") or die("Sorry!");
my $tab_space = 16;
my ($xa, $ya, $wida, $heiga, $paga, $inxa, $xaa, $yaa, $widaa, $heigaa, $pagaa, $inxaa);
my ($content2, $wid_new1);
$content2 = ;
$content2 =~s/\n//gi;
while($content2 =~m/(.*?)<\/text>(.*?)<\/text><\/font>/msgi){
$xa = $4;
$ya = $5;
$wida = $6;
$heiga = $7;
$paga = $8;
$inxa = $9;
$xaa = $10;
$yaa = $11;
$widaa = $12;
$heigaa = $13;
$pagaa = $14;
$inxaa = $15;
if ($ya == $yaa && $paga == $pagaa){
$wid_new1 = $wida + $widaa + $tab_space;
$content2 =~s/(.*?)<\/text>(.*?)<\/text><\/font>/\n$inxa~~~$inxaa<\/text>\n/msgi;
}
else {
$content2 =~s/(.*?)<\/text>(.*?)<\/text><\/font>/\n$inxa<\/text>\n$inxaa<\/text>\n<\/font>\n/msgi;
}
print B3a $content2;
}
close (A3a);
close (B3a);