a "replacement" for awk and sed
[perl.git] / t / op.exec
1 #!./perl
2
3 # $Header: op.exec,v 1.0 87/12/18 13:13:26 root Exp $
4
5 $| = 1;                         # flush stdout
6 print "1..4\n";
7
8 system "echo ok \\1";           # shell interpreted
9 system "echo ok 2";             # split and directly called
10 system "echo", "ok", "3";       # directly called
11
12 exec "echo","ok","4";