Lines Matching refs:FILE
105 if (!open(FILE, '+<', $f)) {110 binmode FILE;117 while (read(FILE, $data, 65536) > 0) {129 seek(FILE, 0, 0);139 while ( defined($line = <FILE>) ) {168 seek(FILE, 0, 0);169 print FILE @lines;171 if ( !defined($where = tell(FILE)) ||172 !truncate(FILE, $where) ) {177 close(FILE);