my $read; my $result; my @lines; open(OUTPUT, "ipvsadm -L -n|"); @lines = <OUTPUT>; close(OUTPUT); print @lines;
my @output; open(OUTPUT, "ipvsadm -L -n|") or die "unable to open pipe to ipvsadm $!"; while(my $line = <OUTPUT>) { push @output, $line if $line =~ /Masq 0/; } print $_ for @output;
open(OUTPUT, "ipvsadm -L -n|") or die "unable to create pipe to ipvsadm $!"; my @output = grep{ /Masq 0/ } <OUTPUT>; print $_ for @output;