2009/3/13 Toby Stuart <toby.stu...@figtreesys.com.au>
> Hello All
>
> 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;
> }
>
> try this:
perl -n -w -e'/^##\s*(.*)$/ && print $1.((eof)?"":" && ")' tmp.txt
>
>
> Input file looks like this:-
>
> ## sudo apt-key adv --recv-keys --keyserver
> keyserver.ubuntu.comABF3B2646E619416
> ## sudo apt-key adv --recv-keys --keyserver keyserver.ubuntu.com1024R/43CBFCC0
>
>
>
>
> PS. Where is $Bill? Is he still around?
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
