Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin perl -w
open (TEST,">t.txt);
seek (TEST,0,0);
print TEST "The\n";
close (TEST);
  2. or download this
    #!/usr/bin perl -w
open (TEST,"+>t.txt);
seek (TEST,0,0);
print TEST "The\n";
close (TEST);
  3. or download this
    #!/usr/bin perl -w
open (TEST,">>t.txt);
seek (TEST,0,0);
print TEST "The\n";
close (TEST);
  4. or download this
    #!/usr/bin perl -w
open (TEST,"+>>t.txt);
seek (TEST,0,0);
print TEST "The\n";
close (TEST);
  5. or download this
    #!/usr/bin perl -w
open (TEST,">t.txt);
sysseek (TEST,0,0);
syswrite TEST, "The\n";
close (TEST);
  6. or download this
    #!/usr/bin perl -w
open (TEST,"+>t.txt);
sysseek (TEST,0,0);
syswrite TEST, "The\n";
close (TEST);
  7. or download this
    #!/usr/bin perl -w
open (TEST,">>t.txt);
sysseek (TEST,0,0);
syswrite TEST, "The\n";
close (TEST);
  8. or download this
    #!/usr/bin perl -w
open (TEST,"+>>t.txt);
sysseek (TEST,0,0);
syswrite TEST, "The\n";
close (TEST);