ãã®ãµã¤ãã¯ç§GIJOEãä½æããã¢ã¸ã¥ã¼ã«ãããã¯ã®ãµãã¼ãã主ç®çã«ãå®é¨çãªã³ã¼ãã®ã¨ã¼ã¸ã³ã°ãå¯ç®çã¨ãã¦ãã¾ãã ã²ã¹ãã«æ¸è¾¼æ¨©éã¯ä¸ãã¦ãã¾ããã®ã§ãä½ãæ¸è¾¼ããªããããå ´åã¯ãã¢ã«ã¦ã³ããä½æãã¦ä¸ããã
Perl CGIã使ã£ãWebã¢ããªã±ã¼ã·ã§ã³ã§ãã»ãã·ã§ã³æ å ±ã管çããã®ã«Walrus::Session::Lite[digit.que.ne.jp]ã使ããã¨ãã¦ããã®ã§ããããã¹ãç°å¢ã®Perl 5.8.1ã®ãã¨ã§ã¯æ©å«è¯ãåãã¦ããã®ã«ãPerl 5.6.1ã®å®ç¨¼åãµã¼ãã«ç§»ããã¨ããããã¼ã¿ãæ£å¸¸ã«ä¿åã§ããªããªã(ããããã°ãåå 調ã¹ããã¨æã£ã¦èª¿ã¹ã¦ãªãããããã¯ã¾ããã®ãã¡ã)ãæ¥é½CGI::Sessionã使ãæ¹åã«å¤æ´ãã¾ãããããããWalrus::Session::Liteã«ãã£ã¦ãCGI::Sessionã«ãªãæ©è½ã«ãæéåãã»ãã·ã§ã³ã®ä¸æ¬åé¤ãããã¾ããã»ãã·ã§ã³ã¨ããã®ã¯å¿ ãå®çµããã¨ã¯éããªãã®ã§ãæã ä½ãã®ã¿ã¤ãã³ã°ã§ãæé¤ããªãã¨ããã¤ãã¯ãã£ã¹ã¯ãåãå°½ããã¦ãã¾ããã¨ã«ãªããã¨ããããã§ããããªã¯ã©ã¹ãä½æãã¦ã¿ã¾ããããæé¤ããã®ã§ããã®åãã
Perl 㧠CGI ãéçºããããã§å½¹ã«ç«ã¤ Perl ã¢ã¸ã¥ã¼ã«ã¯ããã¤ãããã¾ããã ãã®ä¸ã§ãæåãªã¢ã¸ã¥ã¼ã«ã¨è¨ãã° CGI.pm ã§ãããã ãã¤ã¦ã¯ Perl5 ã«æ¨æºã¢ã¸ã¥ã¼ã«ã¨ãã¦çµã¿è¾¼ã¾ãã¦ããå®çªã¢ã¸ã¥ã¼ã«ã§ãã ããããPerl ã«ãã CGI éçºãå°ãªããªã£ã¦ããã¨ããååãå½±é¿ãããããã ææ°ã® Perl5 ã§ã¯æ¨æºã¢ã¸ã¥ã¼ã«ããå¤ããã¦ãã¾ãã¾ããã ãããããã¾ãªããå¤ãã®ã¬ã³ã¿ã«ãµã¼ãã¼ã§å©ç¨ãããã¨ãã§ãã¾ãã æ¬è¨äºã§ã¯ãCGI.pm ã®åºæ¬çãªä½¿ãæ¹ã解説ãã¾ãã ã¾ããããææ°ã® Perl5 ã®ç°å¢ã§ CGI.pm ãã¤ã³ã¹ãã¼ã«ããã¦ããªãã¬ã³ã¿ã«ãµã¼ãã¼ã§ãã CGI.pm ãçµã¿è¾¼ãæ¹æ³ã«ã¤ãã¦ã解説ãã¾ãã ç®æ¬¡ CGI.pm ã®ãã¼ã¸ã§ã³ã¢ããã«ä¼´ãå¤å åè¿°ã®éãããã¤ã¦ CGI.pm 㯠Perl5 ã®æ¨æºã¢ã¸ã¥ã¼ã«ã§ããã ãã®
åå¶ Tutorial - CGI::Sessionã®ããã«åºç¯å²ã«æ¸¡ã£ã¦è¨è¿°ãããããã¥ã¢ã« ç¶æ ã¡ã³ããã³ã¹ã®å¤§è¦Â¶ HTTPã¯ã¹ãã¼ãã¬ã¹ãªãããã³ã«ã§ãã®ã§ãWEBãµã¤ãã«å¯¾ããããããã® webãµã¤ãã«å¯¾ããã¯ãªãã¯ã¯webãµã¼ãã¼ã«ãã£ã¦æ°ãã訪åã¨ãã¦æ±ããã¾ãã ãµã¼ãã¼ã¯ç´åã®è¨ªåã¨ã¯ç¡é¢ä¿ã§ãããããã£ã¦å ¨ã¦ã®ãã以åã®ãªã¯ã¨ã¹ã ããã®ç¶æ ã¯å¤±ããã¾ãããã®ãã¨ã«ãã£ã¦ã·ã§ããã³ã°ã«ã¼ããã ãã°ã¤ã³èªè¨¼ã«ã¼ãã³ãã»ãã¥ãªãã£ã¼ä¸ã®å¶éãè¨ãããããªãµã¼ãã¹ãªã©ã¯ webä¸ã§ä¸å¯è½ã«ãªãã¾ãããã£ã¦äººã ã¯HTTPãæã ã絶æçãªç¶æ³ã«æãå ¥ãã ãã¨ã«å¯¾ãã¦ä½ããã®å¯¾çãåããªããã°ãªãã¾ããã§ããã æã ãæãã¹ããä¸å®æéã¦ã¼ã¶ã¼ã®ã»ãã·ã§ã³ãä¿ã¤HTTPã¯ããã¼ã ã¯ã¨ãªæååã¨è¨ã£ãæè¡ãèªçãã¾ãããã¯ããã¼åã³ã¯ã¨ãªæååã ãã§ã¯ RFC 2965, S
以ä¸ã®URLããåå¾ãã¦ä¸ããã http://digit.que.ne.jp/work/product/module/Walrus/Session/Lite/Lite_0.3.tar.gz ãã®ãã¡ã¤ã«ã¯Walrus::Session::Liteã¢ã¸ã¥ã¼ã«ã¨ãããããDigest::Perl::MD5.pmãå«ãã§ãã¾ãã å¾ã£ã¦ããã®ãã¡ã¤ã«ãå±éããã¨ãWalrusã¨Digestã¨ãããã£ã¬ã¯ããªãä½ããã¾ãã®ã§ããã®2ã¤ãã¢ã¸ã¥ã¼ã«ã®æ¤ç´¢å¯¾è±¡ã«ãªããã£ã¬ã¯ããªã«ç½®ãã ãã§ä½¿ç¨ã§ãã¾ãã ããããããã»ãã·ã§ã³ãã¼ã¿ãä¿åããããã®ãã£ã¬ã¯ããªãä½ã£ã¦ããã¦ä¸ããã 以ä¸ã§ã¯ã"./session/"ãã»ãã·ã§ã³ãã¼ã¿ä¿åç¨ã ã¨ãã¾ãã ã¹ã¯ãªããä¸ã§ã¯ãã¯ããã«Walrus::Session::Liteããã¼ããã¦ããã¾ãã ã¾ããã»ãã·ã§ã³ãã¼ã¿ã«çµã³ä»ããããã®ããã·ã¥ãä½æã
ã¯ããã« perlã§CGI::Session.pmã使ã£ã¦ã»ãã·ã§ã³ç®¡çãè¡ãï¼idã®çæã»æ¹æ¶ãã¯ããï¼ã»ãã·ã§ã³ç®¡çã«å¿ è¦ãªæ§ã ãªæ©è½ãæä¾ãã¦ããï¼é常ã«ä¾¿å©ã§ããï¼ CGI::Session.pmã¯å¿ è¦ãªãã¼ã¿ããµã¼ãã«ç½®ãï¼ããªãã¡ï¼ã»ãã·ã§ã³idãçæããå¾ï¼ãµã¼ãå ã«idã«å¯¾å¿ãããã¡ã¤ã«ï¼DBãæå®ãããã¨ãå¯è½ï¼ãçæããï¼ã»ãã·ã§ã³ã§å¿ è¦ãªãã¼ã¿ã¯ãµã¼ãã®ãã¡ã¤ã«ã«ä¿ç®¡ãï¼ããã°ã©ã éãè¡ãæ¥ããã®ã¯ã»ãã·ã§ã³idã®ã¿ã§ããï¼ CGI.pmãä¸ç·ã«ä½¿ãã¨å©ä¾¿æ§ã¯ããã«é«ããªãï¼ åä½ç°å¢ åä½ç°å¢ã¯ä»¥ä¸ã®éãã§ããï¼Windows XPä¸ã§Windowsçã®Apacheï¼cygwinçã®perlãåãã¦ããï¼ Windows XP Professional Apache 2.0.48ï¼Windowsçï¼ cygwin 1.5.7-1 perl 5.8.0 ã¤ã³ã¹ãã¼ã«
Rastã®Perl APIãRast.pmãä½ã£ã Sennaã ããããªãRastãè²ã è¦ã¦ãã§ãã ãããã¨è¨ã£ã¦ããCã°ã£ããã§æ¸ãã®ãããã©ãããã®ã§PerlããRastã®APIãå©ããã¢ã¸ã¥ã¼ã«ãä½ãã¾ããã 使ãæ¹ã¯ãã»ã¼C APIã¨åãã§ããããµã³ãã«ã¹ã¯ãªãããåèã«ãã¦ã¿ã¦ãããã æ¬å®¶Rastã®ãµã³ãã«ã¨åãä»æ§ã§ãã XSãæ¸ããäºãç¡ãã£ãã®ã§ãæ°æ§ã§å®è£ ãã¦ããã¾ãã 詳ããæã¾ã§èª¿æ»ãã¦ãã¾ããããrastå´ã«å°ãã ãç´°å·¥ãããå¿ è¦ãããã¾ãã 詳ããäºã¯ä»å±ã®READMEã§ã Rast-0.02.tar.gz Sennaåæ§Rastãä¸æ®µã¨æ·å± ãä¸ãã£ãã®ããããã¾ãããã ãã¡ããYapoLabsã®Rastæ¤ç´¢ã¯Perlçã«å¤æ´ããã¦ãã¾ãã Posted by Yappo at 2005å¹´04æ14æ¥ 01:46 | TrackBack | Perl 283
ä¸é±éãå¼å½ãä½ã£ã¦æã£ã¦ãã£ããæ¥è¨ å é±ãããããã家ã§ã§ããPCä½æ¥ãå¤ã«åºã¦ãããã¨ã«ããã å¹´æ«å¹´å§ã§ãã¾ãã«ãæ´é£²æ´é£ãã¦ããã®ã§ãéåã®ç¿æ £ãã¤ãããã£ãï¼éªãçç±ã«ãã®ã¾ã¾å®¶ã«å¼ãããã£ã¦ãã¾ãããã ã£ãã®ã§ããã®çæ´»ãæ¹åãããã£ãã®ãçç±ã æ®éã®å¤ã人ã¿ããã«ã9æï½16æâ¦
WWWä¸ã®ãã¼ã¿â主ã¨ãã¦ãã¼ã ãã¼ã¸çâãåå¾ã、å¦çããããã®ã©ã¤ãã©ãªã æ£å¼å称ã¯ãlibwww-perlããªã®ã§ãããPerl5ã§æ¬ä½ããLWPãã¨ããååã«ãªã£ã¦ãã、ä»ã§ã¯ãã¡ãã®å¼ã³æ¹ãä¸è¬çã«ä½¿ããã¦ãã¾ãã http://search.cpan.org/~gaas/libwww-perl/ HTTPã¯ã©ã¤ã¢ã³ãã¨ãã¦ã¯ãLWPã®ä»ã«HTTP::Liteã¨ããã¢ã¸ã¥ã¼ã«ãããã¾ãã LWPã®ä½¿ç¨ãé£ããç°å¢ï¼CGIãPerlCEï¼ãæèãããã®ã§ãHTTPSãftpçã«å¯¾å¿ãã¦ããªããã®ã®HTTPã ãã§ããã°ã使ãåæã®è¯ãã¢ã¸ã¥ã¼ã«ã§ãã
ã·ããã·ã¹ããã use HTTP::Lite; $http = new HTTP::Lite; $req = $http->request("http://www.cpan.org/") or die "Unable to get document: $!"; print $http->body(); HTTPãããã¼ã®ã¿ãåå¾ããHEADã³ãã³ãã¯æ´æ°ç¢ºèªãªã©ã«è¯ãç¨ãããã¾ãããHTTP::Liteã«ãããè¡ãããã®ã¡ã½ããã¯ãªãããã§ãã ããã§ä¹±æ´ã§ããã$http->{'method'}ãç´æ¥æå®ãããã¨ã§HEADãå®è¡ãããã¨ãã§ãã¾ãã use HTTP::Lite; $http = new HTTP::Lite; $http->{'method'} = 'HEAD'; $req = $http->request("http://www.cpan.org/") or d
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}