4406l3.txt

Listing 3: Retrieve-people.pl, a Program That Uses 
People.pm to Retrieve Information from the Database

#!/usr/bin/perl -w

use strict;
use People;

# Create a new People instance
my $people = new People;

# Set the current person by name
$people->set_current_person_by_name("Shai", "Re'em")
    || die "Error retrieving person.";

# Get information about this person
my $info = $people->get_current_info();

# Print the information
foreach my $key (sort keys %{$info})
{
    if (defined $info->{$key})         
 {
        print "$key => $info->{$key}\n";
    }
}

print "-" x 60, "\n";

# -------------------------------------------------
# Now insert a new person
my $success = $people->new_person(first_name => 
                                  "Reuven",
                                  last_name => 
                                  "Lerner",
                                  country => 
                                  "Israel",
                                  email => 
                             'reuven@lerner.co.il',
                                  phone => 
                                  '08-973-2225');

if ($success)
{
    # Get information about this person
    $info = $people->get_current_info();

    # Print the information
    foreach my $key (sort keys %{$info})
    {                                      
 if (defined $info->{$key})
        {
            print "$key => $info->{$key}\n";
        }
    }

}
else

{
    print "Error!\n";
}

exit;

# -------------------------------------------------
# Now set the first name to something different
$people->update_first_name("Yochai");

# Get information about this person
$info = $people->get_current_info();
                                          
# Print the new information
foreach my $key (sort keys %{$info})
{
    if (defined $info->{$key})
    {
        print "$key => $info->{$key}\n";
    }
}

print "\n";