in reply to Extra Stuff

Some monks have suggested an array, but that is not always the best data structure (and splitting to lists of names in encouraged in the Camel book). I have used (expecting 3 fields): 
my $count = my ($fa, $fb, $fc, $stuff) = split;
die if $count != 3;

[download]
Of course, you needn't die and you can use the $stuff in an error message.

--traveler

Replies are listed 'Best First'.
Re: Re: Extra Stuff
by qball (Beadle) on Apr 17, 2001 at 02:32 UTC
    Well, here's my solution:
    foreach $rec (@CUSTDATA) {
    chomp $rec;
    
        @array = split(/,/,$rec);
    
    #count number of elements in array for error checking
    $num_of_elements = scalar @array;

    if($num_of_elements == '14'){

        do whatever... @array[0]...@array[10]...

     }
  }

    [download]

    Should work well...I'm currently testing it now, so we'll see what happens.

    qball~"I have node idea?!"
[reply]
[d/l]

      You may want to clean this code up a bit. Namely, the $num_of_elements variable is unnecessary and your check for '14' items should check for 14 items instead. Something like:
      #make sure we have the right number of elements
carp "Incorrect number of elements" if @array != 14;

#continue with the program...

      [download]
      Since you're checking the @array against a number it's automatically in scalar context. Also, putting it in one line allows you to continue your program without wrapping a large chunk of code in an if statement, which could confuse readability (where did this `}' come from?).

      Hope That Helps,
      jynx

[reply]
[d/l]
[select]
      So you are dropping data, don't know why, and have chosen to not log or investigate?

      I am glad that is not my data!

      Before going with a band-aid like this, you should go through the files looking for lines that don't split into 14 parts and try to figure out the cause...

[reply]

In Section Seekers of Perl Wisdom