Help for this page

Select Code to Download


  1. or download this
    my $rec;
    sysopen(DF, $ARGV[0], O_RDONLY | O_CREAT) or die "$ARGV[0] : $!";
    ...
    sysopen(DF,"test.txt", O_WRONLY | O_CREAT);
    syswrite DF, $out;
    close DF;