Perl ブログ等の記事の編集
記事の編集について教えてください。
ブログ等の記事を書き込むまではできました。
そこで、書き込んだ後に、記事を編集・修正をしたいと思い
ソースを考えているのですが、
わからなくなりました。
お力添えをお願い致します。
#log.txt
1,test1,name1,text1
2,test2,name2,text2
3,test3,name3,text3
4,test4,name4,text4
5,test5,name5,text5
open(FILE, "<$FILE") or die("error :$!");
eval{ flock(FILE, 1) };
@DATA = <FILE>;
close FILE;
#記事表示
for ($i=0;$i<5;$i++){
last if ($i > @DATA);
$data = $DATA[$i];
if ($data ne ""){
my ($category,$title,$name,$text) = split(/,/, $data);
print qq(<input type="radio" name="no" value="%02d">$category - $title - $name - $text\n), $i;
print qq(<input type="submit" name="edit" value="編集">\n);
print qq(<input type="submit" name="delete" value="削除">\n);
}
}
そこで、radioボタンを選択し、
submit「編集」をクリックすると
radioボタンで選択されている行のデータを取り出し
修正をするということをしたいのですが、どのようにすればいいでしょうか？
今回の求めている結果ですと
log.txtの3行目を取り出し
3,test3,name3,text3
↓
3,hen3,kou3,henkou3
にして
最終的なlog.txtは
1,test1,name1,text1
2,test2,name2,text2
3,hen3,kou3,henkou3
4,test4,name4,text4
5,test5,name5,text5
というふうにしたいです。
よろしくお願いいたします。
お礼
//item/description//text() 期待した通りの結果を得ることができました。 大変助かりました、ありがとうございます！