> Here's a revised version of your code. It puts the data into a hash, whence
> you can retrieve it in any order you like (the output line at the end is
> just an example of one way).
I just put everything into the hash and dealt with it later:
---
use strict;
use warnings;
use vars qw(%H);
while ( <DATA> ) {
chomp;
if ( m#<Promet># .. m#</Promet># ) {
s#</?([^>]*)>##g or next;
$H{$1} = $_;
}
}
$H{DatumValute} =~ s/(....)(..)(..)/$3.$2.$1/;
$H{Iznos} = ($H{Oznaka} eq 'D' ? '-' : '+') . $H{Iznos};
printf("%-16s%-16s%-24s%-s",
@H{qw|DatumValute Naziv Svrha Iznos|});
__DATA__
<Promet>
<Referenca>0102017910001874</Referenca>
<DatumKnjizenja>20020409</DatumKnjizenja>
<DatumValute>20020409</DatumValute>
<Naziv>MEDICOM D.O.O.</Naziv>
<VBDI>2484008</VBDI>
<PartijaPrometa>1100342506</PartijaPrometa>
<VeznaOznaka>00</VeznaOznaka>
<Svrha>PLACANJE FAKTURE</Svrha>
<PNBOdobrenja>
<Model>00</Model>
<Broj>17-020305</Broj>
</PNBOdobrenja>
<PNBZaduzenja>
<Model>99</Model>
<Broj></Broj>
</PNBZaduzenja>
<IznosPrometa>
<Oznaka>P</Oznaka>
<Iznos>2712,06</Iznos>
</IznosPrometa>
</Promet>
---
09.04.2002 MEDICOM D.O.O. PLACANJE FAKTURE +2712,06
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
