Using Shell code in Perl - `Backticks`
HI all. First time poster here, so please bear with me.
I have a real time data feed that I'm pulling data off of into a local port. The command I use to grab the data is
"netcat localhost 12345".
This command works perfectly in the shell command line. The problem is that it runs continuously. To have it run only for 100 ms would be perfect.
In the Perl Script I am implementing this command with, my goal is to put each line into a string so I can parse the data, filter if need be, and do it again as a loop. The following commands are in a while(1) loop. I tried a number of things to get the data into a string line by line...
while(`netcat localhost 12345`) #because I know that backticked system commands return their output to the STDOUT
while(!`netcat localhost 12345`) #I thought maybe it worked with negative logic
$new_line = `netcat localhost 12345`; #This just didnt work at all...
`echo |netcat localhost 12345 >> $new_line`;
Unfortunately none have worked. I know that you can netcat the data into a file, but I would like to like to cut out the middle man, if possible. Hopefully someone knows a simple command that can help me.
Comments
-
Yah, your issue is that ` ` and system(), etc would spawn a new shell, and netcat will still behave the way it normally does and just hold the socket open.
You might be better off writing your own socket code in perl. Perl implements 2 methods, the C socket() call, and there is a perl module that implments a more OOP method called IO::Socket. I've used both in the past, but it's beena long time (I do most of my scripting in Python lately). However, if I remember right, the perldoc documentation for IO::Socket includes a simple example that is pretty general and adaptable to your needs.perldoc IO::Socket::INET
That should do the trick for you. If you need more help than that, let me know, and I can probably whip up a skeleton for you.0 -
Hi gomer,
I have the simplest code I could wish for in this reply here. I am thinking that this is the code I want, for with I had used "netcat localhost 12345". The recieve (recv SOCKET,SCALAR,LENGTH,FLAGS) function I am thinking is the one I want, although the description for its FLAGS is too vague - "Takes the same flags as the system call of the same name. "
My -f is just a guess for a proper flag, but i cannot disclude any flags for they are a mandatory parameter.
I have included my code's test case below. When I ran this program, I expected when a line went through the data feed, it would be printed on the screen. I tested this with a separate shell and it was not the case. Do you have any ideas on what I might be doing wrong?
###
use IO::Socket::INET;
$sock = IO::Socket::INET->new(Listen => 1, #queue size for listen
LocalAddr => 'localhost',
LocalPort => 12345,
Proto => 'tcp');
while(1)
{
my $new_line;
recv($sock, $new_line, 200, -f);
if (!$new_line) {next;}
print $new_line."\n";
}
###0 -
my $new_line; while (1) { $sock->recv($new_line, 200, -f); if ...... ......
You EITHER use IO::Socket to create an object and then use the object methods, OR you create a file handle w/ socket() and then use recv() ....0 -
Beautiful, thank you so much for your help. It works!0
-
Also, if you are using the system tool nc (vs the GNU netcat utility), it has a -w timeout option that will close the connection after 'timeout' number of seconds of no activity on the connection.0
Categories
- All Categories
- 61 LFX Mentorship
- 114 LFX Mentorship: Linux Kernel
- 618 Linux Foundation IT Professional Programs
- 322 Cloud Engineer IT Professional Program
- 141 Advanced Cloud Engineer IT Professional Program
- 56 DevOps Engineer IT Professional Program
- 67 Cloud Native Developer IT Professional Program
- 6 Express Training Courses
- 6 Express Courses - Discussion Forum
- 2.3K Training Courses
- 19 LFC110 Class Forum - Discontinued
- 9 LFC131 Class Forum
- 31 LFD102 Class Forum
- 178 LFD103 Class Forum
- LFD110 Class Forum
- 24 LFD121 Class Forum
- LFD133 Class Forum
- 2 LFD137 Class Forum
- 62 LFD201 Class Forum
- 2 LFD210 Class Forum
- 1 LFD210-CN Class Forum
- 1 LFD213 Class Forum - Discontinued
- 128 LFD232 Class Forum - Discontinued
- LFD233 Class Forum
- LFD237 Class Forum
- 23 LFD254 Class Forum
- 659 LFD259 Class Forum
- 108 LFD272 Class Forum
- 1 LFD272-JP クラス フォーラム
- 4 LFD273 Class Forum
- LFS101 Class Forum
- LFS116 Class Forum
- 2 LFS145 Class Forum
- 28 LFS200 Class Forum
- 740 LFS201 Class Forum - Discontinued
- 1 LFS201-JP クラス フォーラム
- 13 LFS203 Class Forum
- 98 LFS207 Class Forum
- 301 LFS211 Class Forum
- 54 LFS216 Class Forum
- 47 LFS241 Class Forum
- 41 LFS242 Class Forum
- 38 LFS243 Class Forum
- 12 LFS244 Class Forum
- LFS245 Class Forum
- 41 LFS250 Class Forum
- 1 LFS250-JP クラス フォーラム
- LFS251 Class Forum
- 143 LFS253 Class Forum
- LFS254 Class Forum
- LFS255 Class Forum
- 1 LFS256 Class Forum
- LFS257 Class Forum
- 1.2K LFS258 Class Forum
- 10 LFS258-JP クラス フォーラム
- 108 LFS260 Class Forum
- 147 LFS261 Class Forum
- 39 LFS262 Class Forum
- 83 LFS263 Class Forum - Discontinued
- 15 LFS264 Class Forum - Discontinued
- 11 LFS266 Class Forum - Discontinued
- 21 LFS267 Class Forum
- 18 LFS268 Class Forum
- 26 LFS269 Class Forum
- 204 LFS272 Class Forum
- 1 LFS272-JP クラス フォーラム
- LFS274 Class Forum
- 3 LFS281 Class Forum
- 258 LFW211 Class Forum
- 178 LFW212 Class Forum
- 9 SKF100 Class Forum
- SKF200 Class Forum
- 908 Hardware
- 221 Drivers
- 74 I/O Devices
- 44 Monitors
- 116 Multimedia
- 210 Networking
- 102 Printers & Scanners
- 86 Storage
- 765 Linux Distributions
- 88 Debian
- 66 Fedora
- 15 Linux Mint
- 13 Mageia
- 24 openSUSE
- 144 Red Hat Enterprise
- 33 Slackware
- 13 SUSE Enterprise
- 357 Ubuntu
- 483 Linux System Administration
- 40 Cloud Computing
- 70 Command Line/Scripting
- Github systems admin projects
- 95 Linux Security
- 80 Network Management
- 108 System Management
- 52 Web Management
- 74 Mobile Computing
- 25 Android
- 34 Development
- 1.2K New to Linux
- 1.1K Getting Started with Linux
- 544 Off Topic
- 131 Introductions
- 223 Small Talk
- 22 Study Material
- 835 Programming and Development
- 284 Kernel Development
- 517 Software Development
- 975 Software
- 261 Applications
- 185 Command Line
- 3 Compiling/Installing
- 119 Games
- 318 Installation
- 65 All In Program
- 65 All In Forum
Upcoming Training
-
August 20, 2018
Kubernetes Administration (LFS458)
-
August 20, 2018
Linux System Administration (LFS301)
-
August 27, 2018
Open Source Virtualization (LFS462)
-
August 27, 2018
Linux Kernel Debugging and Security (LFD440)