Okay. Ill play. You really shouldn't need all those externs, they're completely unnecessary. Also their is more than one type of loop, you should have to rely on setting that $x variable. Here is a quick hack I wrote up:
#!/usr/bin/perl
use strict;
do {
cls();
print "Address Book\n";
$_ = <>;
if (/l/) { entry_list(); }
elsif (/a/) { entry_add(); }
elsif (/r/) { entry_rem(); }
elsif (/s/) { entry_sea(); }
else { print "Invalid Entry\n" if not /[lars(q|quit)]/; }
} until(/q|quit/);
exit;
sub entry_list {
cls();
open ADBK, "<adbk.db" || die "Datebase file does not exist\n";
while(<ADBK>) {
print join(" ", split /:/);
}
close ADBK;
print "Press any key to contine...\n";
$_ = <>;
}
sub entry_rem {
my $tmp = ();
my $num = 0;
print "Enter the infomation:\n";
foreach("First Name: ", "Last Name: ", "Email: ") {
print;
chomp(my $line = <>);
$tmp .= "$line:";
}
cls();
open ADBK, "<adbk.db" || die "Could not open database to read\n";
my @file = <ADBK>;
close ADBK;
open ADBK, ">adbk.db" || die "Could not open database to open\n";
foreach ( @file) {
next if /$tmp/;
$num++;
print ADBK $_;
}
close ABDK;
print "No entries found\n" if $num == 0;
print "Press any key to contine...\n";
$_ = <>;
}
sub entry_sea {
my $tmp = ();
my $num = 0;
print "Enter the infomation:\n";
foreach("First Name: ", "Last Name: ", "Email: ") {
print;
chomp(my $line = <>);
$tmp .= "$line:";
}
cls();
open ADBK, "<adbk.db" || die "Could not open database to read\n";
while(<ADBK>) {
if(/$tmp/) { print "Entry ", ++$num, ":\n", join("\n", split /:/)
+; }
}
close ABDK;
print "No entries found\n" if $num == 0;
print "Press any key to contine...\n";
$_ = <>;
}
sub entry_add {
my $tmp = ();
foreach("First Name: ", "Last Name: ", "Email: ") {
print;
chomp(my $input = <>);
$tmp .= $input.":";
}
open ADBK, ">>adbk.db" || die "Could not open database to append\n";
print ADBK $tmp, "\n";
close ABDK;
}
sub cls {
print "\033[2J";
print "\033[0;0f";
}
