1009

2025年10月9日 2025年10月9日

kikuchiryuusei

#!/usr/bin/perl
BEGIN{ $| = 1; print “Content-type: text/html\n\n”; open(STDERR, “>&STDOUT”);}

use CGI;
$query = new CGI;

open(IN,”< save.txt”);
@data=<IN>;
close (IN);

$edit = $query->param(‘edit’);

print <<END;

</head>

<body bgcolor=”#FFFFFF” text=”#000000″>
<div align=”center”>
<h1><b>データベース初歩</b></h1>
</div>

<hr>

END

for($i=0;$i<@data;$i++){

if($i=~m/$edit/){

delete @data[$i]

}
}
@dat=@data;
open(FILE,”> save.txt”)||&error(“../data/data.txt 外部ファイルが開きませんでしたエラー”);

print FILE @dat;
close(FILE);

print”delete complete\n”;