Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
009c130f |
3 | print "1..18\n"; |
8d063cd8 |
4 | |
a687059c |
5 | $foo = 'STDOUT'; |
378cc40b |
6 | print $foo "ok 1\n"; |
7 | |
8 | print "ok 2\n","ok 3\n","ok 4\n"; |
a687059c |
9 | print STDOUT "ok 5\n"; |
8d063cd8 |
10 | |
11 | open(foo,">-"); |
12 | print foo "ok 6\n"; |
13 | |
14 | printf "ok %d\n",7; |
15 | printf("ok %d\n",8); |
16 | |
17 | @a = ("ok %d%c",9,ord("\n")); |
18 | printf @a; |
19 | |
20 | $a[1] = 10; |
a687059c |
21 | printf STDOUT @a; |
8d063cd8 |
22 | |
23 | $, = ' '; |
24 | $\ = "\n"; |
25 | |
26 | print "ok","11"; |
378cc40b |
27 | |
28 | @x = ("ok","12\nok","13\nok"); |
29 | @y = ("15\nok","16"); |
30 | print @x,"14\nok",@y; |
009c130f |
31 | { |
32 | local $\ = "ok 17\n# null =>[\000]\nok 18\n"; |
33 | print ""; |
34 | } |