Re: Shortening a script, but aiming for efficiency

Jose Alves de Castro wrote:
> To make it short: I have a small filter that I'd like to keep as compact
>  as possible, while not losing efficiency.
> 
> How it works:
> 
> 1) ignore the first line (it's a header line)
> 2) if a line ends in a tab, remove that character
> 3) replace all tabs with pipes
> 4) if the line now ends in a pipe, add a space at the end
> 
> This all looks pretty easy, right?

Change that to three steps:

1) ignore the first line (it's a header line)
2) replace all tabs with pipes
3) if a line ends in a pipe, change it to a space.

Even easier.


> So, here's an attempt:
> 
> #!/usr/bin/perl -lwn
> use strict;
> 
> $. - 1 || next;
> s/\t$//;
> y/\t/|/;
> s/\|$/ /;
> print;

#!/usr/bin/perl -lwp
use strict;

$. - 1 || next;
y/\t/|/;
s/\|$/ /;



John
-- 
use Perl;
program
fulfillment