yeah most of my question has been answered. but i got it down now.. thanks all for the responses.. its greatly appreciated..
I knew how to get a random line read in a file but didnt quite understand how to get a random file opened and do what i needed until i started playing around with it and took advice of others and got a copy of perl cookbook..the following is what i came up with for what I need to be done
#!/usr/bin/perl
my @names = qw(x.txt l.txt m.txt);
my $random_file = $names[rand @names];
if($random_file eq "l.txt") {
open FILE, "l.txt" or die "Error Opening: Cannot open file!";
@emails = <FILE>;
close FILE;
$email = $emails[int(rand($#emails +1))];
chomp($email);
print "$email\n";
}elsif($random_file eq "x.txt"){
open FILE, "x.txt" or die "Error Opening: Cannot open file!";
@emails = <FILE>;
close FILE;
$email = $emails[int(rand($#emails +1))];
chomp($email);
print "$email\n";
}elsif($random_file eq "m.txt"){
open FILE, "m.txt" or die "Error Opening: Cannot open file!";
@emails = <FILE>;
close FILE;
$email = $emails[int(rand($#emails +1))];
chomp($email);
print "$email\n";
}
any feedback on this would also be appreciated... any suggestions or tips to better the way i am doing this? any and all information is always appreciated :) thanks again
|