hiding perl-wrapped command output

rockneybot has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: hiding perl-wrapped command output by redhotpenguin (Deacon) on Feb 02, 2005 at 02:46 UTC
You can use IPC::Run3 to redirect stdout to a perl data structure. Perhaps something like this might do the trick. `use IPC::Run3; my @cmd = qw( /sbin/sfdisk -uM -q -L -O disksave --no-reread /dev/hdz); my ($in, $out, $err); run3 \@cmd, \$in, \$out, \$err;` [download]	[reply] [d/l]
Re: hiding perl-wrapped command output by hsinclai (Deacon) on Feb 02, 2005 at 02:21 UTC
This isn't exactly "hiding" STDOUT, but you can send STDOUT to a scalar, which would also allow you to check to see if the output of your system command is what you expected, from within the script. `my $holder; sub command { open local(*STDOUT), '>', \$holder; your_system_command; }` [download]	[reply] [d/l]
Re: hiding perl-wrapped command output by fauria (Deacon) on Feb 02, 2005 at 03:13 UTC
If you use a Unix system, and bash or sh as command interpreters (this does not work under csh), you can allways relay on system file descriptors and redirect them to /dev/null: `system "ls ~ &>/dev/null"; #Supress both stderr and stdout system "ls ~ 2>/dev/null"; #Supress stderr system "ls ~ 1>/dev/null"; #Supress stdout` [download]	[reply] [d/l]
Re: hiding perl-wrapped command output by greenFox (Vicar) on Feb 02, 2005 at 03:08 UTC
You might want to read this very recent thread. -- Do not seek to follow in the footsteps of the wise. Seek what they sought. -Basho	[reply]
Re: hiding perl-wrapped command output by rockneybot (Novice) on Feb 02, 2005 at 03:03 UTC
I'll try both of these methods. Would something like this also be useful?: `open CMD, "/sbin/fdisk\|", '<', "-uM -q -L -O disksave --no-reread $dev +ice <<EOF\n0,\nEOF" or die "dude, what are you trying to do?";` [download] Perhaps not, but I'll mess around with it. Also, what does the '' indicate in open local(STDOUT)?	[reply] [d/l]
Re^2: hiding perl-wrapped command output by hsinclai (Deacon) on Feb 02, 2005 at 03:38 UTC
Include `$!` in your die statement if you need to learn the error.. what does the '' indicate in* typeglob on handle ... Search for "local on a glob" in this page which explains it..	[reply] [d/l]


Problems? Is your data what you think it is?
	PerlMonks