printing to console in perl

doughyi8u · 02-23-2015, 03:38 PM

I am having trouble getting the output from a hping3 command to the stdout. Here is what I have (a simplified version of the program I'm trying to write).

Code:

#!/usr/bin/perl -w

`hping3 -p 80 -S google.com`;

The program just hangs, outputting nothing to the screen. When I kill the command w/ ctrl + c I see the end of the command as if it were run on the console and not in a script. I tried it in a bash script too and it still just hangs.

smallpond · 02-23-2015, 03:42 PM

Backticks capture stdout in the code, which you are then ignoring. Try:

Code:

system "hping3 -p 80 -S google.com";

doughyi8u · 02-23-2015, 03:46 PM

That did the trick.

doughyi8u · 02-23-2015, 04:04 PM

Another question:

How do I iterate through a block of addresses putting each result from the hping command to the terminal? Here's the code I have but it doesnt' do what I need. Is there a way to call ctrl +c from the program and start another iteration?

Code:

#!/usr/bin/perl -w

use Net::IP;

$addr = $ARGV[0];

my $ip = new Net::IP($addr) or die "Can't resolve ip address";

do {
    $addrs = $ip->ip();
    system "hping3 -S -p 80 $addrs";
} while (++$ip->ip);

return 0;