a "replacement" for awk and sed
[perl.git] / t / io.print
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";