Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
79072805 |
3 | # $RCSfile: print.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:32 $ |
8d063cd8 |
4 | |
378cc40b |
5 | print "1..16\n"; |
8d063cd8 |
6 | |
a687059c |
7 | $foo = 'STDOUT'; |
378cc40b |
8 | print $foo "ok 1\n"; |
9 | |
10 | print "ok 2\n","ok 3\n","ok 4\n"; |
a687059c |
11 | print STDOUT "ok 5\n"; |
8d063cd8 |
12 | |
13 | open(foo,">-"); |
14 | print foo "ok 6\n"; |
15 | |
16 | printf "ok %d\n",7; |
17 | printf("ok %d\n",8); |
18 | |
19 | @a = ("ok %d%c",9,ord("\n")); |
20 | printf @a; |
21 | |
22 | $a[1] = 10; |
a687059c |
23 | printf STDOUT @a; |
8d063cd8 |
24 | |
25 | $, = ' '; |
26 | $\ = "\n"; |
27 | |
28 | print "ok","11"; |
378cc40b |
29 | |
30 | @x = ("ok","12\nok","13\nok"); |
31 | @y = ("15\nok","16"); |
32 | print @x,"14\nok",@y; |