关于mod_perl

chenyan1206

UID: 42408
帖子: 89
积分: 204
在线时间: 11 小时

1^# chenyan1206 发表于 2008-01-22 15:44

关于mod_perl

#!/usr/bin/perl
use vars qw($flag);
print "Content-type: text/html\n\n";
print $flag++;

在浏览器中不断刷新访问上面的mod_perl代码,结果是数字越来越大
怎么办呢?

pangj

UID: 34456
帖子: 85
积分: 195
在线时间: 10 小时

2^# pangj 发表于 2008-01-22 15:49

QUOTE:

原帖由 chenyan1206 于 2008-1-22 15:44 发表
#!/usr/bin/perl
use vars qw($flag);
print "Content-type: text/html\n\n";
print $flag++;

在浏览器中不断刷新访问上面的mod_perl代码,结果是数字越来越大
怎么办呢?

避免使用全局变量，改成my试试。
因为modperl程序是驻留在内存的，这个值为package变量，其值会始终keep在进程里。
详见"modperl编程指南"的开头节描述。

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

3^# xiaoyu9805119 发表于 2008-01-22 15:51

你这个例子是全局变量，一直会存在内存里面。建议少用。
可以在sub里面用my定义变量。

chenyan1206

UID: 42408
帖子: 89
积分: 204
在线时间: 11 小时

4^# chenyan1206 发表于 2008-01-22 16:12

噢,谢谢.

?????

UID: 5169
帖子: 102
积分: 234
在线时间: 14 小时

5^# ????? 发表于 2008-01-23 21:38

??

兰花仙子

UID: 7570
帖子: 195
积分: 448
在线时间: 2 天 4 小时

6^# 兰花仙子发表于 2008-01-23 21:43

QUOTE:

原帖由 chenyan1206 于 2008-1-22 15:44 发表
#!/usr/bin/perl
use vars qw($flag);
print "Content-type: text/html\n\n";
print $flag++;

在浏览器中不断刷新访问上面的mod_perl代码,结果是数字越来越大
怎么办呢?

en,这主要是作用域的问题,my变量最大也就文件作用域,所以用my申明的变量,脚本执行完后,就go out scope了.
package变量是全局的,只要modperl进程不退出,就始终keep在内存里.所以会一直递增.

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

7^# mouse.rice 发表于 2008-01-23 23:57

仙子天天在哪里逛啊?这是我登陆CU以来第一次见你在PERL版发帖,要顶的说!

兰花仙子

UID: 7570
帖子: 195
积分: 448
在线时间: 2 天 4 小时

8^# 兰花仙子发表于 2008-01-24 00:00

QUOTE:

原帖由 mouse.rice 于 2008-1-23 23:57 发表
仙子天天在哪里逛啊?这是我登陆CU以来第一次见你在PERL版发帖,要顶的说!

偶都很少来这里逛hoho~

thevoice

UID: 22286
帖子: 1
积分: 2
在线时间: 10 分钟

9^# thevoice 发表于 2008-01-24 08:54

仙子竟然回来了。。。。

chenyan1206

UID: 42408
帖子: 89
积分: 204
在线时间: 11 小时

10^# chenyan1206 发表于 2008-01-25 08:30

嗯,谢谢