कोरो में गोटो :: अंतर्राष्ट्रीय :: बाहर निकलना - रेक कहाँ है?

मेरे पास एक CGI है जिसे मैं FastCGI के तहत चलाना चाहता हूं।



यह एक फ्रेमवर्क का उपयोग करता है जो एचटीएमएल टेम्पलेट्स को संसाधित करता है, ब्राउज़र में त्रुटियों (डाई) को प्रदर्शित करता है, सभी प्रकार के रीडायरेक्ट करता है, फाइलें देता है, आदि। - सब कुछ हमेशा की तरह है। STDOUT की प्रतिक्रिया को बनाने और आउटपुट करने के बाद, यह रूपरेखा, exit()



- जो सामान्य रूप से, मूल नहीं है।



इस exit()



को eval()



, या यहां तक ​​कि कई नेस्टेड eval-s के अंदर भी कहा जा सकता है - उदाहरण के लिए, यदि कहीं, गणना की गहराई में, CGI उपयोगकर्ता को पुनर्निर्देशित करने का निर्णय लेता है। उसी समय, यह फ्रेमवर्क के फ़ंक्शन को कॉल करता है, यह print "Location: ..."



और exit()



print "Location: ..."



करता है।



लेकिन FastCGI के तहत exit()



नहीं किया जा सकता है।



इसलिए, आपको इस निकास को रोकना होगा, और या तो die()



(जैसे mod_perl करता है , उदाहरण के लिए) या goto



। die()



साथ समस्या यह है कि अगर exit()



को eval()



अंदर कहा जाता है, और eval को कॉल करने के बाद, उपयोगकर्ता कॉल कॉल करने के लिए अनजाने में उसके पास अज्ञात त्रुटि नहीं करेगा die()



फिर से (लेकिन इस CGST बॉक्स में प्रत्येक अपवर्जन के बाद इस व्यवहार की गारंटी देने के लिए die()



मैं नहीं कर सकता - बल्कि, मैं गारंटी दे सकता हूं कि यह आमतौर पर नहीं होता है), फिर exit()



बस निकटतम निष्कासन eval()



से बाहर निकल जाएगा, जो कि उस सीजीआई शॉप का कारण है जो स्पष्ट रूप से गिनती नहीं करता है!

CGI छद्म कोड

sub that_cgi_script {

...

eval { do_something() };

...

}

sub do_something {

# 1) may return if everything ok

# 2) may die on error, but such error non-important to

# calling code in above case and will be catched by

# eval and ignored

# 3) may redirect: print Location header and call exit()

}



मर के माध्यम से बाहर निकलने का विकल्प

my $FCGI_EXIT = "FCGI NORMAL EXIT\n";

BEGIN { *CORE::GLOBAL::exit = sub { die $FCGI_EXIT }; }

while (CGI::Fast->new()) {

eval { that_cgi_script(); };

die $@ if $@ && $@ ne $FCGI_EXIT;

$CGI::Fast::Ext_Request->Finish();

}



गोटो के माध्यम से भिन्नता

BEGIN { *CORE::GLOBAL::exit = sub { goto EXIT }; }

while (CGI::Fast->new()) {

eval { that_cgi_script(); };

die $@ if $@;

EXIT:

$CGI::Fast::Ext_Request->Finish();

}



क्या कहा जाता है?

इसका उपयोग किसी भी निर्माण में जाने के लिए नहीं किया जा सकता है, जिसे प्रारंभ करने की आवश्यकता होती है, जैसे कि सबरूटीन या "फोरच" लूप। इसका उपयोग किसी ऐसे निर्माण में जाने के लिए भी किया जा सकता है जो कि अनुकूलित हो, या "सॉर्ट" करने के लिए दिए गए किसी ब्लॉक या सबरूटीन से बाहर निकले।

तो रेक कहाँ है?

ऐसा लगता है कि इस स्थिति के लिए लागू goto



साथ एकमात्र समस्या कॉल exit()



अंदर की sort



। :) मुझे पूरा विश्वास है कि यह CGI ऐसा काम करने की अनुमति नहीं देता है। आमीन।



CORE::GLOBAL::exit



में goto



का उपयोग करने पर और क्या हो सकता है CORE::GLOBAL::exit



? मुझे क्या चिंता है कि mod_perl goto



उपयोग नहीं होता है, हालांकि यह die()



तुलना में अधिक कुशल समाधान लगता है।