Re^3: Short version of database push for multiple variables

BTW, AFAICT, split /\t/ on two consecutive tabs wouldn't return undef, but rather '' (the empty string):

$ perl -MData::Dumper -e'@a = split /\t/, "foo\t\tbar"; print Dumper \
+@a'
$VAR1 = [
          'foo',
          '',
          'bar'
        ];
[download]

So the whole "//" thing is moot anyway. It wouldn't even work:

$ perl -MData::Dumper -e'@a = map $_//"NA", split /\t/, "foo\t\tbar"; 
+print Dumper \@a'
$VAR1 = [
          'foo',
          '',
          'bar'
        ];
[download]

In other words, you probably want:

$ perl -MData::Dumper -e'@a = map $_ ne "" ? $_ : "NA", split /\t/, "f
+oo\t\tbar"; print Dumper \@a'
$VAR1 = [
          'foo',
          'NA',
          'bar'
        ];
[download]

Comment on Re^3: Short version of database push for multiple variables Select or Download Code

Replies are listed 'Best First'.
Re^4: Short version of database push for multiple variables by Anonymous Monk on May 13, 2012 at 20:59 UTC
Thanks Eliya that worked great. However as jwkrahn wrote the split need -1 so it won't miss the last element. Jwkrahn your code gives me "Warning: Use of "length" without parentheses is ambiguous at" which is a shame cause it's a nice and easy to understand code.	[reply]
Re^5: Short version of database push for multiple variables by jwkrahn (Abbot) on May 15, 2012 at 23:25 UTC
Then you just need to add parentheses: `my @fields = map length() ? $_ : 'NA', split /\t/, $Line, -1;` [download]	[reply] [d/l]