http://www.perlmonks.org?node_id=92034

scottstef has asked for the wisdom of the Perl Monks concerning the following question:

Greetings friends, I did a super search for removing spaces, and wasn't quite sure how it carried over to an array. I am trying to read data from a file, split it, into an array and then print elements into another file.

Data format:

Dummy,Big I, <bdummy@name.com> Fool,Yuri A., <yfool@name.com> Stupid,Issac A., <istupid@name.com>
Here is the code i am using:

#!d:\perl.exe -w use strict; use warnings; my $oldfile = $ARGV[0]; my $newfile = $oldfile . ".clean.txt"; open (OLDFILE, "$oldfile") || die "Could not open $oldfile"; open (NEWFILE, ">$newfile") || die "Could not open $newfile"; while (<OLDFILE>) { my @record = split /(["<",">"])/; print NEWFILE "@record[0...4,]"; print NEWFILE "$record[6]\n"; } close OLDFILE; close NEWFILE;

Here is the data that gets generated:

Dummy , Big I , bdummy@name.com Fool , Yuri A. , yfool@name.com Stupid , Issac A. , istupid@name.com

I keep getting spaces added after the fields.

"The social dynamics of the net are a direct consequence of the fact that nobody has yet developed a Remote Strangulation Protocol." -- Larry Wall