Re: Where to begin??!!??

[Greg Meckes]

try:

open(DAT, "file.dat") or die "Couldn't open the file: $!\n";
@DAT = <DAT>;
close(DAT);

#write to file
open (OUT, ">out.dat") or die "Couldn't open the file: $!\n";

foreach my $Line(@DAT) {
chomp $Line;

#remove first pipe
$Lines =~ s/\|//;

my ($date,$time,$name,$street,$town,$state ,$zip,$country,$email,$phone,@nums) =
split(/\|/,$Line);

    foreach my $Number(@nums) {
        if ($Number ne "") { #don't print lines without a number
        print "$name\|$street\|$town\|$country\|$zip\|$phone\|$email\|$Number\n";
        # OR print to a file
        print OUT "$name\|$street\|$town\|$country\|$zip\|$phone\|$email\|$Number\n";
        }
    }
}

close(OUT);




__________________________________________________
Do You Yahoo!?
Spot the hottest trends in music, movies, and more.
http://buzz.yahoo.com/