|
#!/usr/bin/perl ($gid,$gdata) = split (/&/,<STDIN>); ($n,$v) = split (/=/,$gid); ($n,$data) = split (/=/,$gdata); print"Content-type:text/html\n\n"; $filename = 'data.txt'; open(myfile,"$filename"); @getrec = <myfile>; close(myfile); $cntrec = @getrec; unlink("$filename"); open(myfile,">$filename"); for $i (0 .. $cntrec-1) { $id = $i + 1; if ($v ne $id) { print myfile $getrec[$i]; } else { ($oid,$odata) = split (/,/,$getrec[$i]); print myfile "$oid,$data,\n"; $found=1; } } close(myfile); if ($found){print'Update ok';}else{print'Not found';} |