use CGI qw(:standard); if(param('delete')) { $lineNum = param('delete'); open(FILE, "$filename"); @lines = <FILE>; close(FILE); splice(@lines, $lineNum, 1); open(FILE, ">$filename"); print FILE (@lines); close(FILE); }
In reply to CGI parameter of 0 behaving strangely by Ming
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |