The Open Source Swiss Army Knife
|
|||||
| | |||||
#!/usr/bin/perl
$cmd = 'cat uni2.pl';
@all = `($cmd | sed -e 's//stdout: /' ) 2>&1`;
for (@all) { push @{ s/stdout: // ? \@outlines : \@errlines }, $_ }
print "STDOUT:\n", @outlines, "\n";
print "STDERR:\n", @errlines, "\n";
| Leave a Reply |