通过网页更新文本文件的问题，无奈中？？？

luotuo_007

UID: 21323
帖子: 184
积分: 423
在线时间: 1 天 22 小时

1^# luotuo_007 发表于 2007-04-20 05:35

通过网页更新文本文件的问题，无奈中？？？

通过网页更新文本文件的问题，无奈中？？？
我有一个文本文件，里面有若干行。
然后又作了个pl文件，从文本文件里循环取出每行的数据，以网页的形式显示，并且数据都是在表单元素里显示的。
想要修改表单元素里的数据后，一按更新按钮就会将文本文件里对应的部分修改掉。

下面是我的当前的代码：

<文本文件> ./data/01.dat
name1<>case1<>img_2676.jpg<>aaa<>aaa<>
name1<>case1<>img_2677.jpg<>bbb<>bbb<>
name1<>case1<>img_2678.jpg<>ccc<>ccc<>

<pl文件> test.pl

#!/usr/bin/perl
require "img_path.pl";
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $query = new CGI;

$method = 'post';
$script = './test.pl';
$data_file01='./data/01.dat';

&kousin;

if ($query->param('mode') eq "update") {

open(DATATEXT,"+>$data_file01")||die"can't open $!\n";

my $b00=$query->param("new_location");
my $b01=$query->param("new_cose");
my $b02=$query->param("new_img");
my $b03=$query->param("new_setumei");
my $b04=$query->param("new_bikou");

$new_txt="$b00<>$b01<>$b02<>$b03<>$b04<>\n";
print DATATEXT $new_txt;
close DATATEXT;

}

sub kousin{
&header;

print <<"EOF";
<table width="600" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="$method" action="$script"><tr><td>
EOF
&view01;

print <<"EOF";
</td></tr>
<tr><td align="center">
<table width="200" class="box"><tr>
<td align="center"><INPUT type="submit" name="Submit0" value=" 更新 " class="submit2"></td><input type="hidden" name="mode" value="update"></form>
</tr></table></td></tr></table>
EOF

&footer;
}

sub view01{
open(DATATEXT,"<$data_file01")||die"can't open $!\n";
while (defined($contents=<DATATEXT>)) {
@arr_data=split(/<>/,$contents);
print <<"EOF";
<div>
<div class="col2">
<table width="280" border="0" cellpadding="3" cellspacing="1" bgcolor="#666666">
<tr><td class="font2" bgcolor="#FFFFFF"><b>$arr_data[0]</b></td></tr><input type="hidden" name="new_location" value="$arr_data[0]">
<tr><td class="font2" bgcolor="#ececec"><b>$arr_data[1]</b></td></tr><input type="hidden" name="new_cose" value="$arr_data[1]">
<tr><td bgcolor="#FFFFFF" align="center" height="140"><img src='$logfiles1$arr_data[2]'></td></tr><input type="hidden" name="new_img" value="$arr_data[2]">
<tr><td class="font2" bgcolor="#FFFFFF"><input type="text" name="new_setumei" value="$arr_data[3]" size="52"></td></tr>
<tr><td class="font2" bgcolor="#FFFFFF"><textarea rows="2" cols="36" name="new_bikou">$arr_data[4]</textarea></td></tr></table>
</div>
</div>
EOF

}
close DATATEXT;
}

sub header {
print "Content-type:text/html\n\n";
print <<"EOF";
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>$PAGE_TITLE</title>
<style type="text/css">

</style></head>
<body>
<center>
<br>
EOF

}

sub footer {
print "</body></html>";
}

luotuo_007

UID: 21323
帖子: 184
积分: 423
在线时间: 1 天 22 小时

2^# luotuo_007 发表于 2007-04-22 16:28

没有人能帮帮我吗，可能是.
没有人能帮帮我吗，可能是我表达的不清楚吧。

我想实现的功能是：用网页的形式来表示出文本文件中的内容，同时，可以直接修改网页的内容（因此在需要修改的地方以表单的文本框形式显示），然后按“更新按钮”就可以反过来更新文本文件中的内容。

想了很长时间也没有做出来，笨是笨了些，希望各位兄弟能指点一下。[CCB]10[/CCB]

beckheng

UID: 3408
帖子: 87
积分: 200
在线时间: 10 小时

3^# beckheng 发表于 2007-04-23 00:00

wiki?.

luotuo_007

UID: 21323
帖子: 184
积分: 423
在线时间: 1 天 22 小时

4^# luotuo_007 发表于 2007-04-23 01:21

多谢回复！！！[CCB]1[/CC.
多谢回复！！！[CCB]1[/CCB]

但不明白，能否说的详细些。[CCB]10[/CCB]

福尔马林

UID: 21234
帖子: 129
积分: 296
在线时间: 23 小时

5^# 福尔马林发表于 2007-04-23 07:25

你是说你的一行数据显示在.
你是说你的一行数据显示在一个表单里？这样网页上会显示好多个表单？还是不明白你遇到了什么问题。

luotuo_007

UID: 21323
帖子: 184
积分: 423
在线时间: 1 天 22 小时

6^# luotuo_007 发表于 2007-04-23 08:36

我想实现的功能是：用网页.
我想实现的功能是：用网页的形式来表示出文本文件中的内容，同时，可以直接修改网页的内容（因此在需要修改的地方以表单的文本框形式显示），然后按“更新按钮”就可以反过来更新文本文件中的内容。