Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: syntax error at labmonkey.pl line 1, at EOF

by DigitalKitty (Parson)
on Mar 04, 2008 at 18:43 UTC ( #671980=note: print w/ replies, xml ) Need Help??


in reply to syntax error at labmonkey.pl line 1, at EOF

Hi redqueentheory.

Welcome to PM.

Perhaps a minor point but I'd rewrite your code as:

use warnings; use strict; my $value = 0; my $from = ''; my $to = ''; my $prefix = ''; my %prefixes = (); %prefixes = ( mega => 6, kilo => 3, milli => -3, micro => -6, nano => -9, pico => -12, femto => -15, atto => -18, zepto => -21, yocto => -24, ); print "Enter the unit that you are starting with: "; chomp( $from = <STDIN> ); print "Enter your target unit: "; chomp( $to = <STDIN> ); print "Enter the numerical amount: "; chomp( $value = <STDIN> ); if ( not exists $prefixes{$from} ) { die qq/I don't know about the prefix $from\n/; } if ( not exists $prefixes{$to} ) { die qq/I don't know about the prefix $to\n/; } $prefix = $prefixes{$from} - $prefixes{$to}; print "$value $from is ", $value * (10**$prefix), " $to. \n"; #Output: C:\perl pm_test.pl Enter the unit that you are starting with: mega Enter your target unit: kilo Enter the numerical amount: 10 10 mega is 10000 kilo.

Hope this helps,
~Katie


Comment on Re: syntax error at labmonkey.pl line 1, at EOF
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2015-07-30 04:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (270 votes), past polls