had me going there for a moment.

Actual demo code:

sh-4.1# cat demo.pl
#!/usr/bin/perl -w

use strict;

my $cmd=qq@
(
date
netstat -i
who
cat /etc/debian_version
)
@;

open PIPE,"$cmd |" or die "$cmd:$!";

my @lines=<PIPE>;

printf "%s\n",join("\n",@lines);
[download]

produces

sh-4.1# perl demo.pl
Tue Jun 10 13:46:05 EDT 2014

Kernel Interface table

Iface   MTU Met   RX-OK RX-ERR RX-DRP RX-OVR    TX-OK TX-ERR TX-DRP TX
+-OVR Flg

eth0       1500 0  19404144      0      0 0      23405161      0      
+0      0 BMRU

lo        65536 0   2016133      0      0 0       2016133      0      
+0      0 LRU

root     pts/0        2014-06-10 13:11 (144.160.226.53)

6.0.9
[download]

NOTE: there should be a chomp in there somewhere, but I forgot...

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

Comment on had me going there for a moment. Select or Download Code

Replies are listed 'Best First'.
Re: had me going there for a moment. by shmem (Chancellor) on Jun 11, 2014 at 07:11 UTC
NOTE: there should be a chomp in there somewhere, but I forgot... No, things should be kept simple. `- printf "%s\n",join("\n",@lines); + print @lines;` [download] All those lines in @lines come with "\n". perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'	[reply] [d/l]