UBB.Developers Forums Community Development Programming PHP and Server-side Scripting Edit file

open(my $fh, '+<', 'path/to/the/file') or die "$!";
my @lines = <$fh>;
truncate($fh, 0) or die "$!";
for (@lines) {
   my @fields = split '|' => $_;
   print $fh $_ unless $fields[12] eq 'codenumber2';
}
close($fh) or warn "$!";

 
	open(FILE, "$cgipath/data.file") || &error("Error reading data.file");
	@filedata = <FILE>;
	close (FILE);

	foreach $line(@filedata) {
		@fields = split(/|/,$line);
		if ($fields[12] == '123456789') { 
				$line = "";
				open (FILE,">$cgipath/data.file") &#0124;&#0124; &error("Error writing to data.file");
				if ($flock) { flock FILE, 2 }
				print FILE @filedata;
				close (FILE);

}
}