Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: EURO

by flgr (Sexton)
on Dec 18, 2001 at 22:59 UTC( #132912=note: print w/replies, xml ) Need Help??


in reply to EURO

Heh. I've done that, too, for the 'Deutsche Mark' or 'Deutschmark'. :)
It was as some sort of revenge to my IT-Teacher who showed us how to write a DM<>Euro-Converter in GW-Basic. What a sick language it is...

Just in case somebody is interested in my small converter:
print"Betrag? ";die"=",.01*int($$=<>)* 195.6," DM\n=",.01*int$$/.01956," E\n"


$=lc(sub{}^" \6 \n");$=~s/\(.*\)//;for(split
('',$)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://132912]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2016-08-30 03:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The best thing I ever won in a lottery was:















    Results (410 votes). Check out past polls.