Nope.... not homework. However I am flattered. This is a
project for myself. It was something triggered my a conversation
with one of my friends .... who said it couldn't be done.
I see how quickly you monks have cobbled up text messages
rather than just pluck down script. I must surmise that it's
not that easy. Perhaps we should begin..... I have all night.
#!/usr/bin/perl -w
use strict;
my $infile = shift;
my $outfile = shift;
open (IN, $infile) || die "can't open $infile: $!";
open (OUT, ">$outfile")|| die "can't open $outfile: $!";
while (<IN>) {
chomp;
my @fields = split /,/;
#let's see what you can place here to make it work......
#Sorry about the mess.... but it looks better when I typed
#out the thing in the first place.
#BTW..... If this can't be done... to bad .... I'll just have
#to go back to the book and maybe in year or two.... I'll be
#able to write the script myself..... I'd rather not wait
#that long..... thanks
# Joachim
close (IN);
close (OUT);
__END__