blob: 328e470889446f8a97616deeb5926028fead808f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!./perl
# $Header: op.exec,v 1.0 87/12/18 13:13:26 root Exp $
$| = 1; # flush stdout
print "1..4\n";
system "echo ok \\1"; # shell interpreted
system "echo ok 2"; # split and directly called
system "echo", "ok", "3"; # directly called
exec "echo","ok","4";
|
