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

Replies are listed 'Best First'.
Re^3: Short version of database push for multiple variables by Eliya (Vicar) on May 13, 2012 at 18:05 UTC
In case the original version doesn't work for you (error `"Search pattern not terminated at ..."`), your Perl might be too old (<5.10). In this case, you could say instead `my @a = map defined $_ ? $_ : 'NA', split /\t/, $line;` [download] Or upgrade Perl.	[reply] [d/l] [select]
Re^4: Short version of database push for multiple variables by Anonymous Monk on May 13, 2012 at 18:18 UTC
My version is 5.8.5. When I try your code I get the following error; Did not find leading dereferencer, detected at offset 14434String found where operator expected at Process.pl line 146, near "// 'NA'" Thanks for your help!	[reply]
Re^5: Short version of database push for multiple variables by Eliya (Vicar) on May 13, 2012 at 18:24 UTC
... near "// 'NA'" There is no "//" in my code, so it's unlikely you'd get this error :)	[reply]
Re^3: Short version of database push for multiple variables by BrowserUk (Patriarch) on May 13, 2012 at 18:00 UTC
I presume it was supposed to be //'NA'/. No. What I posted was tested, working code. The defined-or operator is: `//`. Ie. The full line with a couple of extra spaces is: `my @a = map $_ // 'NA', split /\t/, $line;` [download] The extra / you are adding is the cause of your divide by zero message. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l] [select]
Re^3: Short version of database push for multiple variables by Eliya (Vicar) on May 13, 2012 at 20:19 UTC
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]	[reply] [d/l] [select]
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]


Problems? Is your data what you think it is?
	PerlMonks