in reply to Using Files
use CGI; $q = new CGI; $upd_id = $q->param('id'); $upd_title = $q->param('title'); $upd_description = $q->param('description'); open F, "file.txt" or die "Can't open file.txt: $!\n"; while (<F>) { chomp; ($id, $title, $description) = split /\|/; if ($id == $upd_id) { ($title, $description) = ($upd_title, $upd_description); $changed = 1; } $upd_file .= "$id|$title|$description\n"; } close F; if ($changed) { open U, ">file.txt" or die "Can't open file.txt: $!\n"; print U $upd_file; close U; }
-- tune
|
|---|