Re: Split output by tabs

in reply to Split output by tabs

print {$OUT} map "@$_\n", sort { $a->[10] cmp $b->[10] } @out;
[download]

Gratuitous use of curlies: sometimes it is necessary to employ a BLOCK returning a file handle, but here it isn't.

Then, - TIMTOWTDI - see the special variable $" in perlvar:

{
  local $" = "\t";
  print $OUT map "@$_\n", sort { $a->[10] cmp $b->[10] } @out;
}
[download]

Here, the curlies are necessary to localize the (otherwise global) variable $" to the enclosed block.

Comment on Re: Split output by tabs Select or Download Code

Replies are listed 'Best First'.
Re^2: Split output by tabs by perlnoobster (Sexton) on Nov 13, 2012 at 09:35 UTC
wow, it works great! thank you :)Just one more question, is there a way of specifying certain columns to be printed? e.g the 10th,18th and 20th column?	[reply]
Re^3: Split output by tabs by shmem (Chancellor) on Nov 13, 2012 at 09:41 UTC
is there a way of specifying certain columns to be printed? e.g the 10th,18th and 20th column? One way to do it - use an array slice: `{ local $" = "\t"; print $OUT map "@{$_}[10,18,20]\n", sort { $a->[10] cmp $b->[10] } @ +out; }` [download] See References quick reference.	[reply] [d/l]
Re^4: Split output by tabs by perlnoobster (Sexton) on Nov 13, 2012 at 09:52 UTC
wow that is perfect, where can i read up on in regards to skipping blank/empty values when splitting arrays? :)	[reply]
Re^5: Split output by tabs (not clear) by shmem (Chancellor) on Nov 13, 2012 at 10:07 UTC
Re^6: Split output by tabs (not clear) by perlnoobster (Sexton) on Nov 13, 2012 at 10:10 UTC
Some notes below your chosen depth have not been shown here
Re^2: Split output by tabs by choroba (Cardinal) on Nov 13, 2012 at 09:24 UTC
Perl Best Practices #136: Always put filehandles in braces within any print statement. It is easier to read, helps you not to write a comma, and you do not have to remember when to use braces and when not. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]
Re^3: Split output by tabs by shmem (Chancellor) on Nov 13, 2012 at 09:34 UTC
Perl Best Practices #136: Always put filehandles in braces within any print statement. It is easier to read, helps you not to write a comma, and you do not have to remember when to use braces and when not. Excellent example of a bogus "best practice", thank you: it is always better to know when to use curlies, and when not.	[reply]
Re^4: Split output by tabs by ColonelPanic (Friar) on Nov 13, 2012 at 11:23 UTC
I disagree as to the bogosity of this practice. There is nothing wrong with adding clarity to a statement that may otherwise be confusing or ambiguous. And there is nothing wrong with reducing the number of rules someone needs to know in order to correctly decipher a statement. This is just such a case, because an argument given to print can start with either a filehandle or a variable. Depending on what follows, it can be very hard to tell which is intended without braces. I do enjoy how Perl lets one push the boundaries of acceptable syntax, but that doesn't mean it's always a good idea to do so. That's just my opinion, of course. When's the last time you used duct tape on a duct? --Larry Wall	[reply]
Re^5: Split output by tabs by Anonymous Monk on Nov 13, 2012 at 13:45 UTC
Re^6: Split output by tabs by choroba (Cardinal) on Nov 13, 2012 at 13:58 UTC
Some notes below your chosen depth have not been shown here
Re^6: Split output by tabs by ColonelPanic (Friar) on Nov 13, 2012 at 14:13 UTC
Some notes below your chosen depth have not been shown here

In Section Seekers of Perl Wisdom