Re: one liner need help

[John W. Krahn]

John W. Krahn wrote:

Toby Stuart wrote:

Hello All

Hello,

It's been almost 13 years since I last posted on this board and my
Perl skills are extremely rusty.  Could someone help me to convert
this to a one liner:-

use strict;
use warnings;

while (<>) {
  /^##\s*(.*)$/ && print $1;
  print " && " unless eof;
}

Input file looks like this:-

## sudo apt-key adv --recv-keys --keyserver keyserver.ubuntu.com ABF3B2646E619416 ## sudo apt-key adv --recv-keys --keyserver keyserver.ubuntu.com 1024R/43CBFCC0

perl -F'\n' -0aple's/^##\s*//mg; s/\n/ && /g'

Oops, should be:

perl -F'\n' -lap0e's/^##\s*//mg; s/\s+\z//; s/\n/ && /g'



John
--
Those people who think they know everything are a great
annoyance to those of us who do.        -- Isaac Asimov

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/