Mega Code Archive

 

Categories / Perl / Data Type

 

Reading float point number from keyboard

#!/usr/bin/perl -w use strict; print "Currency converter\n\nPlease enter the exchange rate: "; my $yen = <STDIN>; print "49518 Yen is ", (49_518/$yen), " dollars\n";