Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

had me going there for a moment.

by blue_cowdawg (Monsignor)
on Jun 10, 2014 at 17:47 UTC ( [id://1089435]=note: print w/replies, xml ) Need Help??


in reply to Re^3: different terminal
in thread different terminal

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);
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

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

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;

    All those lines in @lines come with "\n".

    perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1089435]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2024-03-29 07:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found