home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PERL4036.ZIP / t / io / print.t < prev    next >
Text File  |  1993-02-08  |  451b  |  33 lines
  1. #!./perl
  2.  
  3. # $Header: print.t,v 4.0 91/03/20 01:51:08 lwall Locked $
  4.  
  5. print "1..16\n";
  6.  
  7. $foo = 'STDOUT';
  8. print $foo "ok 1\n";
  9.  
  10. print "ok 2\n","ok 3\n","ok 4\n";
  11. print STDOUT "ok 5\n";
  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;
  23. printf STDOUT @a;
  24.  
  25. $, = ' ';
  26. $\ = "\n";
  27.  
  28. print "ok","11";
  29.  
  30. @x = ("ok","12\nok","13\nok");
  31. @y = ("15\nok","16");
  32. print @x,"14\nok",@y;
  33.