AutoMax

				
=**************************************
= Name: AutoMax
= Description:Very Basic Perl program, to insert clients and cars to a text file, also the script verify if the client or the car still exist in the text file.
= By: Monika007
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=768&lngWId=6=for details.=**************************************

#!/usr/bin/perl
use warnings;
use strict;
use auto;
printf(" #######################################\n");
printf(" ########## AutoMaX Version 0.1 ########\n");
printf(" ############ Author :: Monika ##########\n");
printf(" ---------------------------------------\n");
sleep(1);
while(1) {
printf("WHAT DO YOU WANT TO DO\n");
printf(" * * * * *\n");
printf(" 1-Add new client\n");
printf(" 2-Add new car\n");
printf(" 3-Search client\n");
printf(" 4-Search car\n");
printf(" 5-Exit \n");
printf(" * * * * *\n");
my $choose = <STDIN>;
chomp($choose);
if($choose eq 1) { auto->client; }
elsif($choose eq 2) { car(); }
elsif($choose eq 3) { auto->search(); }
elsif($choose eq 4) { auto->car(); }
elsif($choose eq 5) { printf("Good Bye :-)\n"); exit(1);};
};
sub car {
printf(" ------------------------------\n");
printf(" | ADD NEW CAR|\n");
printf(" ------------------------------\n");
printf("\n");
printf("*Car Type : ");
my $type = <STDIN>; chomp $type;
printf("*Car color : ");
my $color = <STDIN>; chomp $color;
printf("*Car Year : ");
my $year = <STDIN>; chomp $year;
printf("*Car Price : ");
my $price = <STDIN>; chomp $price;
open(AA,'>>car.txt') or die "$!\n";
print AA "------ Type -----\n";
print AA " $type\n";
print AA "------ Color -----\n";
print AA " $color\n";
print AA "----- Year ------\n";
print AA " $year\n";
print AA "----- Price ----\n";
print AA " $price \n";
print AA "-----------------\n";
print AA "\n";
close(AA);
printf("Execution made successfully\n");
sleep(1);
};
1;
#This is the module, need to save it under other #new file, by the name auto.pm;
package auto;
sub client {
printf(" ------------------------------\n");
printf(" |ADD NEW CLIENT|\n");
printf(" ------------------------------\n");
printf("\n");
printf("*Client name : ");
my $client = <STDIN>; chomp $client;
printf("*Client Social Security Number : ");
my $social = <STDIN>; chomp $social;
printf("*Client Address : ");
my $address = <STDIN>; chomp $address;
printf("*Monthly Payment : ");
my $payment = <STDIN>; chomp $payment;
printf("*Total loan made : ");
my $loan = <STDIN>; chomp $loan;
open(AA,'>>client.txt') or die "$!\n";
print AA "------ Name -----\n";
print AA " $client\n";
print AA "------ Social Security -----\n";
print AA " $social\n";
print AA "----- Address ------\n";
print AA " $address\n";
print AA "----- Monthly Payment ------\n";
print AA " $payment\n\n";
print AA "----- TOTAL LOAN ----\n";
print AA " $loan\n";
print AA "-----------------\n";
print AA "\n";
close(AA);
printf("Execution made successfully\n");
sleep(1);
};
sub search {
printf(" ------------------------------\n");
printf(" |VERIFY CLIENT|\n");
printf(" ------------------------------\n");
printf("\n");
printf("Insert name of customer to verify\n");
my $client = <STDIN>; chomp($client);
open(BB,'client.txt') or warn("$!\n");
@a = <BB>;
close(BB);
foreach my $client2 (@a) {
if ($client2 =~ /$client/) { print("$client2"); }
else { print(""); };
}
};
sub car {
printf(" ------------------------------\n");
printf(" | VERIFY CAR |\n");
printf(" ------------------------------\n");
printf("\n");
printf("Insert name of car to verify\n");
my $car = <STDIN>; chomp($car);
open(BB,'car.txt') or warn("$!\n");
@a = <BB>;
close(BB);
foreach my $car2 (@a) {
if ($car2 =~ /$car/) { print("$car2"); }
else { print(""); };
}
};
1;