oneliner perl pt. cursul valutar

Din categoria "ma plictiseam si asta a fost primul lucru care mi-a venit in minte asa ca uite cum am pierdut util 20 de minute aseara":

perl -MLWP::Simple -MXML::Simple -le '$xml=XMLin(get("http://www.bnr.ro/nbrfxrates.xml")) ; $date= $xml->{Body}{Cube}{date} ; print "Date is $date"; foreach $curs (@{$xml->{Body}{Cube}{Rate}}) { my $mul = $curs->{multiplier}; $mul||=1; $rates{$curs->{currency}}=($curs->{content}/$mul) }; foreach (sort keys %rates) { print "$_\t$rates{$_}"}'

Comments are closed.