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.

Replies are listed 'Best First'.
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";
}

    [download]
[reply]
[d/l]

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

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom