t/io/print.t

   1 #!./perl
   2
   3 print "1..18\n";
   4
   5 $foo = 'STDOUT';
   6 print $foo "ok 1\n";
   7
   8 print "ok 2\n","ok 3\n","ok 4\n";
   9 print STDOUT "ok 5\n";
  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;
  21 printf STDOUT @a;
  22
  23 $, = ' ';
  24 $\ = "\n";
  25
  26 print "ok","11";
  27
  28 @x = ("ok","12\nok","13\nok");
  29 @y = ("15\nok","16");
  30 print @x,"14\nok",@y;
  31 {
  32     local $\ = "ok 17\n# null =>[\000]\nok 18\n";
  33     print "";
  34 }