RE: Shortening a script, but aiming for efficiency

Warning: no fun :(

next doesn't skip the continue block where the print is done. Instead you
could:
perl -pe
$_="" if $. < 2;

You have materially changed the substitution
before: "|" -> ""
yours:  "|" -> " "

the effect of 4) is to mean that "\t\t" -> "| " and "\tA" -> "\tA. No idea
why this is being done.

Greg

-----Original Message-----
From: John W. Krahn [mailto:[email protected]] 
Sent: Friday, October 01, 2004 5:12 AM
To: Fun with Perl
Subject: 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


------------------------------------------------------------------------------
This message is intended only for the personal and confidential use of the designated recipient(s) named above.  If you are not the intended recipient of this message you are hereby notified that any review, dissemination, distribution or copying of this message is strictly prohibited.  This communication is for information purposes only and should not be regarded as an offer to sell or as a solicitation of an offer to buy any financial product, an official confirmation of any transaction, or as an official statement of Lehman Brothers.  Email transmission cannot be guaranteed to be secure or error-free.  Therefore, we do not represent that this information is complete or accurate and it should not be relied upon as such.  All information is subject to change without notice.