[困惑]eval 在模塊中出現(xiàn)問題/？

Osment

搞文本Session。。。
已經以為成功。。
想到Session可能會自己損壞。所以。。自己做了測試，結果，發(fā)現(xiàn)人為改壞Session文本后，程序居然讀取失敗后 500 err？
明明是在模塊中  CheckSession時候用的eval呀。應該不會500err才是。但是err.log還是指向的那句

1. eval ( "require \"$self->;{_API}->;{_SESSION_FILE}\";" ) || $self->;NewSession();

復制代碼

附上完整代碼。 問題就出現(xiàn)在DiGiSession.pm模塊中。。。

http://www.easunstudio.com/upload/perl/usr/7/16/cgi_1105459562.rar  



測試代碼說明 ：
1。Session目錄需要可讀/寫 （777目錄+666文件）。
2。我用的相對路徑，如果你的主機不支持相對路徑，請把

1. my $session = DiGiSession->;new($c_ss_id,'Session','3m');

復制代碼

改成

1. my $session = DiGiSession->;new($c_ss_id,'你的路徑/Session','3m');

復制代碼

聲明：DiGiSession.pm模塊版權為Firzen<firzen@perlchina.org>;所有，我只是改了一點東西而已。呵呵：）

superdoctor

eval ( "require \"$self->;{_API}->;{_SESSION_FILE}\";" ) || $self->;NewSession();
我懷疑你這句用法就用問題可能,你print $@出來,看看到底什么錯

eval {
eval ( "require \"$self->;{_API}->;{_SESSION_FILE}\";" ) || $self->;NewSession();
}
print $@;

Osment

Can't locate object method "NewSession" via package "DiGiSession" at DiGiSession.pm line 49.

是這個。
不加 2級 eval err.log也是這個。指向的那句 就是這句了。

superdoctor

我確實沒有在你的文件里找到NewSession方法啊,只有一個SessionNew,是不是你寫錯了,你改過萊試試

Osment

err.log說的是 new()函數(shù)。。中間的::帖在論壇上被過濾掉了。汗。

Osment

[quote]原帖由 "superdoctor"]我確實沒有在你的文件里找到NewSession方法啊,只有一個SessionNew,是不是你寫錯了,你改過萊試試[/quote 發(fā)表：

汗。�；丶液笞屑殭z查，果真是這個原因。。
看來半點馬虎不得：）
謝謝：）
本帖可以結束了。