You can accomplish your job easily by using Text::CSV::Simple.

I loved that, thanks !!! Simona

sub parseCSVrow {
  my ($row, $fdelim, $tdelim) = @_;
  chomp($row);
  my @ret = split(/$fdelim/,$row);
  my $i = 0;
  while($i < @ret) {
    if (($ret[$i] =~ s/$tdelim/$tdelim/ge) % 2) {
      if ($i + 1 == @ret) {
        die "ERROR: not ending text";
      } else {
        $ret[$i] = $ret[$i].$fdelim.$ret[$i+1];
        splice(@ret,$i+1,1);
      }
    } else {
      $i++;
    }
  }
  return \@ret;  
}
[download]

That's a nice trick, but will it work if you have escaped delimiters in your input?

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

I disagree:
When field delimiter appears as part of field value (beside text delimiters), the row will be split by this, but the parts will be joined after that.
And I do not remember if the field value can contain text delimiter - I think that yes, but doubled - and count of text delimiters modulo 2 is invariant in this case.

Thanks for your reply !!! What is the meaning of $fdelim, $tdelim ? Azaria

$tdelim is text delimiter, typically quotes or apostrophes, and $fdelim is field delimiter, typically comma (Comma Sepparated Value).

You might like to follow this thread and this thread for discussions of related CSV problems. There are many more such threads if you do a little searching!

while( <FILE> ) {
    if ( /^([^\,]*\,\s*[^\,]*)\,\s*(.*)$/ ) {
        print "Name: $1\n";
        print "Address: $2\n";
    }
}
[download]

([\,]) only matches a single non-comma character. It is missing a quantifier such as + or *.

Everytime I see (.*) I feel very uneasy, and usually I can think of a much simpler way to accomplish the same thing. In this case, all the regular expression is really doing is finding the first comma! Now, split normally splits on all the delimiters it finds in a string, but it can take an optional third argument which tells it exactly how much to split the line; in this case we just want two fields. As a bonus we can give the split fields names so we don't have to use $1 and $2.

while (<FILE>) {
  chomp;
  my ($name, $address) = split /,\s+/, $_, 2;
  print "$name lives at $address\n";
}
[download]

Another thing that would make me think twice about your solution is that you've got an if statement, but there's no sensible behaviour defined for when the if is false! Although I have to say that using a proper CSV module (Text::CSV, etc) is always preferable.

--
integral, resident of freenode's #perl

I spotted the lack of * shortly after posting.

re .*: having eliminated the first column and its delimiter, .* must be what is left over as the second and last column - why make the engine work harder?. It really is quite common that the remainder of a string is defined by elimination of specific features of the preceding characters and needs no further analysis - only when the .* is attempted earlier than such elimination is completed does it cause a problem.

re "if" - I opted for this rather than allowing any exceptions to just fall through the code, whereas no else is defined because neither was any provision for such exceptions stated in the requirement. Not seeing the benefit of this turns out to be a trap for habitual negative thinking: If there was a blank line in the data, your own solution, which apart from not filtering exceptions is fine, would accept the blank data and, for example, enter it into the database!

-M

Free your mind

That regex doesn't even work on the OP's data, and neither will it correctly split strings which contain delimiters within quotes. Read the top node again and you'll probably realise that a regular expression is not the right solution here.


Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. -- Brian W. Kernighan

I missed the fact there is a comma in the name field too and modified the regular expression accordingly. Someone more handy at regexp's could probably factorise this more succinctly, however.

But if we analyse the logic behind your argument we get "an error in analysing the requirement implies that all technical solutions resembling it must be wrong" - which I would hope reveals why I disagree with the argument, while remaining open-minded about variety of possible solutions.

-M

Free your mind

sub MySplit2 { 

    # args being like split but with the third INSTEAD a
    # preservation delimiter -- the OP requirement seems
    # to suggest that should be -1 for split anyway

    my $pat = shift;
    my $str = ( shift () || $_ );
    my $pat2 = shift; # a preservation delimiter
                      # i.e. not splits usual arg3
    my @return = ();
    my $inquotes = 0;

    for my $qs ( defined ( $pat2 )
                 ? ( split( /$pat2/, $str, -1 ) )
                 : ( $str ) ) {
        push @return, $inquotes
                      ? $qs
                      : split( /$pat/, $qs, -1 );
        $inquotes = !$inquotes;
    }
    return @return;
}
[download]

# example:
# while (<FILE>) {
#    ( $name, $address, $tel ) = MySplit( ',',,,'"' );
# }

sub MySplit { # a wrapper for split

    # args being like split but with a fourth for optional
    # preservation delimiter

    my $pat = shift;
    my $str = ( shift () || $_ );
    my $cnt = shift; # copy of split's normal third argument
                     # will be iterated down to zero here
    my $pat2 = shift; # the new argument

    my @return = ();
    my @topush;
    my $inquotes = 0;

    for my $qs ( defined ( $pat2 )
                 ? ( split( /$pat2/, $str, -1 ) )
                 : ( $str ) ) {
        $cnt or ( defined( $cnt ) and last ); # arg3>0  exhaustion
        @topush = $inquotes
                  ? ($qs)
                  : split( /$pat/, $qs, $cnt );

        # update @topush and $cnt to agree with each other
        if ( defined( $cnt ) and ( $cnt >= 0 ) ) {
            $cnt -= ( $#topush + 1 );
            if ( $cnt < 0 )
                $#topush += $cnt;
                $cnt = 0;
            }
        }

        $inquotes = !$inquotes;
        push @return, @topush;
    }
    return @return;
}
[download]