in reply to Wget using backquotes
#!/usr/bin/perl use warnings; use strict; use IPC::Open3; $|=1; my $pid=open3(\*IN,\*OUT,\*ERR,'/bin/bash'); my $url = 'wget --spider -nv http://zentara.net'; # setup a while loop here and feed it urls # while(@urls){ print IN "$url\n"; my $buf = ''; sysread(ERR,$buf,4096); if($buf){print "ERROR-> $buf\n"} sysread(OUT,$buf,4096); if($buf){print "response->$buf\n"} #} waitpid($pid, 1);
|
|---|