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";