=head1 File Operations

This example demonstrates basic file operations. Note the readmode.

=cut

.sub main :main
    .local pmc fileout, filein

    fileout = open '40_file_ops_data.txt', 'w'
    print fileout, "The quick brown fox jumps over the lazy dog.\n"
    close fileout

    filein = open '40_file_ops_data.txt', 'r'
    $S0 = readline filein
    say $S0
    close filein

    # Be nice and remove the temporary file we created.
    $P1 = new 'OS'
    $P1.'rm'('40_file_ops_data.txt')
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:

