File Perl

  1. Home
  2. Perl
  3. File
  4. Open for writing first, then reading
#!/usr/bin/perl
print "\n\n";
open(FH, "+>aFile") || die;
print FH "This line is written to joker.\n";
seek(FH,0,0);         # Go to the beginning of the file
while() {
    print;            # Reads from aFile; the line is in $_
}