Explain what the following code does:
package Person;
sub new {
my $self = {
_firstName => undef,
_lastName => undef,
_ssn => undef,
_address => undef,
_salary => undef,
_dept => undef
};
bless $self, 'Person';
return $self;
}
sub print {
my ($self) = @_;
printf( "Name:%s %s\n\n", $self->firstName, $self->lastName );
}
Describe two ways to concatenate strings in Perl. Contrast and compare.
Describe what the following Perl code does:
#!/usr/bin/perl
$numArgs = $#ARGV + 1;
print "$numArgs\n";
foreach $argnum (0 .. $#ARGV) {
print "$ARGV[$argnum]\n";
}
Write code to print the contents of the following array in Perl:
@fruit = ('banana', 'orange', 'apple');
In Perl, how would you allow functions to have private variables that retain their values from call to call?
What is a good way to fetch the contents of a web page in Perl, given a URL?
What is a common way of sending email from a Perl program?