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;
}
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
PS. Where is $Bill? Is he still around?
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
