Commit | Line | Data |
---|---|---|
8d063cd8 | 1 | #!./perl |
2 | ||
3 | # $Header: io.print,v 1.0 87/12/18 13:12:55 root Exp $ | |
4 | ||
5 | print "1..11\n"; | |
6 | ||
7 | print stdout "ok 1\n"; | |
8 | print "ok 2\n","ok 3\n","ok 4\n","ok 5\n"; | |
9 | ||
10 | open(foo,">-"); | |
11 | print foo "ok 6\n"; | |
12 | ||
13 | printf "ok %d\n",7; | |
14 | printf("ok %d\n",8); | |
15 | ||
16 | @a = ("ok %d%c",9,ord("\n")); | |
17 | printf @a; | |
18 | ||
19 | $a[1] = 10; | |
20 | printf stdout @a; | |
21 | ||
22 | $, = ' '; | |
23 | $\ = "\n"; | |
24 | ||
25 | print "ok","11"; |