用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - perl代码库

perl 保存表单文件或邮件管

2012-10-15 作者: 神马举报

[perl]代码库

#-----------------------------
# first open and exclusively lock the file
open ( FH, ">>/tmp/formlog" )              or die "can't append to formlog: $!";
flock ( FH, 2 )                            or die "can't flock formlog: $!";

# either using the procedural interface
use CGI qw ( :standard );
save_parameters ( *FH );
# with CGI::save

# or using the object interface
use CGI;
$query = CGI->new();
$query->save ( *FH );

close ( FH )                               or die "can't close formlog: $!";
#-----------------------------
use CGI qw ( :standard );
open ( MAIL, "|/usr/lib/sendmail -oi -t" ) or die "can't fork sendmail: $!";
print MAIL <<EOF;
From:
$0 ( your cgi script )
To:
hisname\@hishost.com
Subject:
mailed form submission

EOF
save_parameters ( *MAIL );
close ( MAIL )                             or die "can't close sendmail: $!";
#-----------------------------
param ( "_timestamp", scalar localtime );
param ( "_environs", %ENV );
#-----------------------------
use CGI;
open ( FORMS, "< /tmp/formlog" )       or die "can't read formlog: $!";
flock ( FORMS, 1 )                     or die "can't lock formlog: $!";
while ( $query = CGI->new ( *FORMS ) )
{
	last unless $query->param();
# means end of file
	%his_env = $query->param ( '_environs' );
	$count  += $query->param ( 'items requested' )
	           unless $his_env {REMOTE_HOST} =~ / ( ^|\. ) perl\.com$/
                                          }
                                          print "Total orders: $count\n";
#-----------------------------


网友评论    (发表评论)

共1 条评论 1/1页

发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

输入口令后可复制整站源码

加载中,请稍后...