Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
    $userlastname = trim($userlastname);
    my $userfull = $userfirstname.$userlastname;
    print "$userfull\n";
  2. or download this
    
print "The keys for $$userfull{name} are: @$userfullk\n";
mainmenu();
}
  3. or download this
    
sub records {
...
$userfullname = $userfirst.$userlast;
$userfullname = trim($studentfullname);
print "$userfullname\n";
  4. or download this
    print "\nInput record: ";
my $record = <>;
...
    $string =~ s/\s+$//;
    return $string;
}