splitting a file query ....

[rabinski]

Gurus

I have a file in this format -

field1 field2

I am substituting the spaces for commas and then doing a foreach splitting on the comma - great -

But I have just found that the first field can be of differing lengths hence the number of commas inserted will change

eg - after the substitution

field1,,,,,,,,,,field2
f1,,,,,,,,,,,,,,field1

etc ...

Is Text::CSV the way to go ?

cheers guys

Rab

 

[duncdude]

I don't think you have given enough information - can you elaborate - or post some sample data?


Kind Regards
Duncan

 

[TrojanWarBlade]

Wy split on commas when you can split on whitespace?





(very injured) Trojan.

 

[duncdude]

I was thinking exactly the same thing...

Why convert 48 spaces to 48 commas - and then split it up??? Not much gain there...


Kind Regards
Duncan

 

[stevexff]

split uses a regex, so why not

use strict;
use warnings;

while (<DATA>) {
        print join(",", split(/\s+/, $_, 2));
}

__DATA__
a   b  
cd e
f g
h    i

?

I guess you want to do something with them rather than print them out comma-separated so

use strict;
use warnings;

while (<DATA>) {
        my @fields = split(/\s+/, $_, 2);
        chomp @fields; # newlines were a help in the last example, but not in this one

        # do stuff with @fields here
}

is probably going to be more use.

HTH

Steve