Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
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: (9)
As of 2014-11-21 19:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (114 votes), past polls