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.
I keep getting spaces added after the fields.
Data format:
Here is the code i am using:Dummy,Big I, <bdummy@name.com> Fool,Yuri A., <yfool@name.com> Stupid,Issac A., <istupid@name.com>
#!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
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Why do spaces keep getting added after I print the elements of an array?
by japhy (Canon) on Jun 28, 2001 at 00:43 UTC | |
by tye (Sage) on Jun 28, 2001 at 00:58 UTC | |
Re: Why do spaces keep getting added after I print the elements of an array?
by chipmunk (Parson) on Jun 28, 2001 at 01:53 UTC |
Back to
Seekers of Perl Wisdom