Recent content by xSirPotsAlotx

!/usr/bin/perl -w use strict; use warnings; my %directory = (); my $input; my $add = "add"; my $print = "print"; my $ended = "end"; my $deleted = "delete"; print " Welcome to your own Personal Address Book!\n"; print " What would you like to do?\n"; print "add Add An Entry Delete...

how come in my code when I run this, the print and show sorted does not display, it just leaves a blank #!/usr/bin/perl $end = 0; for ( $x=0; ! $end; ++$x ) { print "Enter number (-1 when done): "; chomp ($val = <>); if ($val == -1) { $end= 1; } else { $data[$x]=$val; } } #Sorting the...

I need this program to accept an infinite amount of numbers instead of just a set amount the user enters. Say after they typed in -1 how an I do this? I have it asking for the number of items but I went them to be able to do it how many times they want her is my code: #!/usr/bin/perl # get...

I need to write a palindrome program without using the reverse string command, and I am little confused on how to go about and doing it. Does anyone have any ideas? this is what I have so far: #!/usr/bin/perl -w use strict; use warnings; my ($a, $b, $result); print "Enter a item that is 7...