Lines Matching refs:FILE
105 if (!open(FILE, '+<', $f)) {110 binmode FILE;117 while (read(FILE, $data, 65536) > 0) {129 seek(FILE, 0, 0);140 while ( defined($line = <FILE>) ) {249 seek(FILE, 0, 0);250 print FILE @lines;252 if ( !defined($where = tell(FILE)) ||253 !truncate(FILE, $where) ) {259 close(FILE);