topic Re: Perl script to add comma if... in Operating System - HP-UX

Perl script to add comma if...

Ratzie — Tue, 21 Sep 2004 11:05:56 GMT

Thanks to the many that help with my script I have know been able to get it to working order.

There is something that I still need to do with it...
Sometimes I may have a column with empty data. I need to insert a comma there. (For a deliminated file)
So after all is said and down the script produces this output...

5555642,00 0 00 18,CUSTOMER HAS
5555656,MATCHING CUTTELN
5555661,00 0 06 08,TELN NOT

I need to put an if statement after my script..
while (<>) {
chomp; # Will remove the leading , or new line
s,^\s+,,; #Remove leading spaces
my @cols=split m/\s{2,}/, $_, -1; # Split on two (or more) white space characters
print join (',',@cols)."\n";
}

That will, if 7digits (together), comma then characters, add a comma.

So the output will look like this...
5555642,00 0 00 18,CUSTOMER HAS
5555656,,MATCHING CUTTELN
5555642,00 0 00 18,CUSTOMER HAS

Re: Perl script to add comma if...

Fred Ruffet — Tue, 21 Sep 2004 11:51:11 GMT

If I really understand, your script ends with 3 fields lines and 2 fields lines. For these ones, you want to insert an empty field between one and two...

here it is (to put before print) :
@cols=($cols[0],"",$cols[1]) if $#cols=1;

regards,

Fred

Re: Perl script to add comma if...

H.Merijn Brand (procura — Tue, 21 Sep 2004 12:16:15 GMT

Fred, better to write that using splice

@cols == 2 and splice @cols, 1, 0, "";

==>

while (<>) {
chomp; # Will remove the TRAILING optional new line
s/^\s+//; #Remove leading spaces
my @cols = split m/\s{2,}/, $_, -1; # Split on two (or more) white space characters
@cols == 2 and splice @cols, 1, 0, "";
print join (",", @cols), "\n";
}

Enjoy, Have FUN! H.Merijn

Re: Perl script to add comma if...

Fred Ruffet — Wed, 22 Sep 2004 03:00:50 GMT

Procura,

I never noticed that a 0 length in splice inserts elements... You are a living perldoc ! Are you eating a camel every morning for breakfast ? :)

Best regards,

Fred

Re: Perl script to add comma if...

Ratzie — Wed, 23 Feb 2005 09:06:40 GMT

Thanks