examples/tutorial/40_file_ops.pir

   1 # Copyright (C) 2007-2009, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 File Operations
   5
   6 This example demonstrates basic file operations.
   7
   8 =cut
   9
  10 .sub main :main
  11     .local pmc fileout, filein
  12
  13     fileout = open '40_file_ops_data.txt', 'w'
  14     print fileout, "The quick brown fox jumps over the lazy dog.\n"
  15     close fileout
  16
  17     filein = open '40_file_ops_data.txt', 'r'
  18     $S0 = readline filein
  19     say $S0
  20     close filein
  21
  22     # Be nice and remove the temporary file we created.
  23     $P1 = new ['OS']
  24     $P1.'rm'('40_file_ops_data.txt')
  25 .end
  26
  27 # Local Variables:
  28 #   mode: pir
  29 #   fill-column: 100
  30 # End:
  31 # vim: expandtab shiftwidth=4 ft=pir:
  32