Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^5: Creating hash with my imput

by kejohm (Hermit)
on Aug 19, 2011 at 04:25 UTC ( #921142=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Creating hash with my imput
in thread Creating hash with my imput

last should cause the script to drop out of the loop and continue. Maybe post the code that you have so we can see what the problem might be.


Comment on Re^5: Creating hash with my imput
Download Code
Re^6: Creating hash with my imput
by rolandomantilla (Novice) on Aug 19, 2011 at 05:57 UTC
    Ok here is the code, is doing almost everything that I want ecxept for when I put exit I wanted to print the answer. For example put in my ID and my DNA X amount of times and them write exit and print out the hash. here is the code
    #!/usr/bin/perl use strict; use warnings; my %hash; print ("put ID fallowed by a comma "," with the DNA for that ID\n\n"); chomp (my $in=<STDIN>); while ($in) { if ($in=~ /exit/i){ exit,} #Split the input on a coma into a maximum of two fields my ($id,$dna)= split m/,/, $in, 2; $hash{$id}= $dna; print "Please enter another ID and DNA\n"; chomp ($in= <STDIN>); } #Print hash contents while(my($key,$value)= each %hash){ print ">$key $value\n"; }

      Just replace exit with last and it should work the way you want it to, ie: if ($in =~ /exit/i){ last }

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2014-07-31 06:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (245 votes), past polls