Project 1 Incremental Development "Answers"



#!perl

@names = qw(Adam Kara George);
foreach $fish (@names) {
  print "The name is $fish\n";
}

#!perl

@names = qw(Adam Kara George Fred Barney);
$n = @names;
print "The number of array elements is $n\n";
 

#!perl

$number = int(rand(scalar(11)));
print "The random number is $number\n";

#!perl

@names = qw(Eric Brad Owen Ronnie Creek);

foreach $name (@names) {
  if ($name eq "Owen") {
    print "Hey, found the name: $name\n";
  }
}

#!perl

@names = qw(Eric Brad Owen Ronnie Creek);

print "Enter a name to search for: ";;
chomp($find_name = <STDIN>);

foreach $name (@names) {
  if ($name eq $find_name) {
    print "Hey, found the name: $name\n";
    exit;
  }
}
print "Didn't find the name: $find_name\n";