[B! perl] totoonã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

totoon id:totoon

perlã«é–¢ã™ã‚‹totoonã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (29)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

PerlåŸºç¤Žæ–‡æ³•æœ€é€Ÿãƒžã‚¹ã‚¿ãƒ¼ - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º åŸºç¤Žæ–‡æ³• ITã®ç¾å ´ã§PerlãŒå¿…è¦ã«ãªã£ã¦ã€ä»Šå‹‰å¼·ã—ã¦ã„ã‚‹ã¨ã„ã†æ–¹ã¯ãŠã‚‰ã‚Œã¾ã›ã‚“ã‹? ä»–ã®è¨€èªžã‚’ã‚ã‚‹ç¨‹åº¦çŸ¥ã£ã¦ã„ã‚‹æ–¹ãŒã€ŒPerlåŸºç¤Žæ–‡æ³•æœ€é€Ÿãƒžã‚¹ã‚¿ãƒ¼ã€ã‚’èªã‚ã°ã€Perlã®ä½¿ã„æ–¹ã®åŸºç¤Žã‚’ãƒžã‚¹ã‚¿ãƒ¼ã—ã¦Perlã‚’æ›¸ãã“ã¨ãŒã§ãã‚‹ã‚ˆã†ã«ãªã£ã¦ã„ã¾ã™ã€‚ åŸºç¤Ž æ–‡æ³•ãƒã‚§ãƒƒã‚¯ æ–‡æ³•ã‚’ãƒã‚§ãƒƒã‚¯ã‚’åŽ³ã—ãã™ã‚‹ãŸã‚ã«æœ€åˆã«å¿…ãšæ¬¡ã®2è¡Œã‚’æ›¸ãã‚ˆã†ã«ã—ã¾ã™ã€‚ use strict; use warnings; ã€Œuse strictã€ã¨ã€Œuse warningsã€ã¨ã„ã†2è¡Œã‚’åŠ ãˆã‚‹ã“ã¨ã§äº‹å‰ã«æ–‡æ³•ãƒã‚§ãƒƒã‚¯ãŒè¡Œã‚ã‚Œã‚‹ã®ã§ã€ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã‚’è¨˜è¿°ã™ã‚‹ä½œæ¥ã¯é€Ÿããªã‚Šã€ã‚³ãƒ¼ãƒ‰ã®å“è³ªãŒä¸ŠãŒã‚Šã¾ã™ã€‚ printé–¢æ•° æ–‡å—åˆ—ã‚’å‡ºåŠ›ã™ã‚‹ã«ã¯printé–¢æ•°ã‚’ä½¿ç”¨ã—ã¾ã™ã€‚ print "Hello world"; Perlã§ã¯æ¨™æº–é–¢æ•°ã‚„äº‹å‰ã«å®šç¾©ã•ã‚Œã¦ã„ã‚‹é–¢æ•°ã§æ‹¬å¼§ã‚’çœç•¥ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ ã‚³ãƒ¡ãƒ³ãƒˆ Perlã®ã‚³ãƒ¡ãƒ³ãƒˆã§
totoon 2010/01/24
perl
ãƒªãƒ³ã‚¯
perl - use CGI; use Encode; # éžè‹±èªžWebãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°3åŽŸå‰‡ : 404 Blog Not Found
2009å¹´06æœˆ23æ—¥15:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - use CGI; use Encode; # éžè‹±èªžWebãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°3åŽŸå‰‡ ã“ã‚Œã¯ã€å®Ÿã¯Perlã«é™ã‚‰ãšæœªã ã«äº‹å®Ÿã ã£ãŸã‚Šã™ã‚‹ã®ã§ã™ãŒ.... Perl ã§ãƒ•ã‚©ãƒ¼ãƒ ãƒ‡ãƒ¼ã‚¿ã‹ã‚‰ UTF-8 æ—¥æœ¬èªžæ–‡å—ã‚’ã¨ã‚Šã ã™æ–¹æ³• (ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã®å°çŸ³ãƒ»å¤§çŸ³) UTF-8 ã®ãƒ•ã‚©ãƒ¼ãƒ ã«ã‚ˆã£ã¦ãŠãã‚‰ã‚ŒãŸãƒ‡ãƒ¼ã‚¿ã®ãªã‹ã‹ã‚‰æ—¥æœ¬èªžæ–‡å—ã‚’ã¨ã‚Šã ã™ã“ã¨ã¯ï¼Œæ—¥æœ¬ã® Perl CGI ãƒ—ãƒã‚°ãƒ©ãƒžãªã‚‰ãŸã„ã¦ã„å¿…è¦ã«ãªã‚‹ã“ã¨ã§ã‚ã‚‹ï¼Ž ã¨ã“ã‚ãŒï¼Œãã®æ–¹æ³•ã¯æ„å¤–ã«ç¢ºç«‹ã•ã‚Œã¦ã„ãªã„ã‚ˆã†ã«ã¿ãˆã‚‹ï¼Ž ã—ã‹ã—ã€å…ƒç™ºè¨€ã®æ–¹æ³•ã¯å…ˆç¥–å¸°ã‚Šã™ãŽã‚‹ã®ã§ã€‚ Perl ãƒ—ãƒã‚°ãƒ©ãƒžãƒ¼ä»¥å¤–ã«ã‚‚ã€Webãƒ—ãƒã‚°ãƒ©ãƒžãƒ¼ã§ã‚ã‚Œã°æœ‰ç”¨ãªentryã§ã™ã€‚ Perlã§Webãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã™ã‚‹å ´åˆã®ä¸‰åŽŸå‰‡ Queryã¯CGIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§å‡¦ç†ã™ã‚‹ æ–‡å—ã‚³ãƒ¼ãƒ‰ã¯Encode
totoon 2009/06/24
perl
ãƒªãƒ³ã‚¯
perl - use utf8; #ã£ã¦ä½•ã ? : 404 Blog Not Found
2009å¹´06æœˆ15æ—¥07:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - use utf8; #ã£ã¦ä½•ã ? id:otsuneã«å»ºè¨äºˆå®šãƒ•ãƒ©ã‚°ãŒãŸã¦ã‚‰ã‚Œã¦ã„ãŸã®ã§ã€‚ å†¬é€šã‚Šã«æ¶ˆãˆè¡Œãåˆ¶æœã‚¬ãƒ¼ãƒ«ã¯ã€å¤¢ç‰©èªžã«ãƒªã‚¢ãƒ«ã‚’æ±‚ã‚ãªã„ã€‚ - subtech Perl ã® utf8 é–¢ä¿‚ãŒæœªã å…¨ãç†è§£ã§ããªã„ã€‚ã‚ã‹ã‚‰ãªã„ã“ã¨ãŒã‚ã‹ã‚‰ãªã„ã®ã§æ•´ç† use utf8ã¯ã„ã¤ãƒ•ãƒ©ã‚°ã‚’ãŸã¦ã‚‹ã‹ use utf8 ã—ã¦ã¦ã‚‚ãƒ•ãƒ©ã‚°ãŸãŸãªã„ã“ã¨ãŒã‚ã‚‹â€¦â€¦ ã“ã‚Œã¯ã€ä»¥ä¸‹ã®å®Ÿä¾‹ã‚’è¦‹ã¦ã„ãŸã ãã®ãŒä¸€ç•ªã‚ˆã„ã ã‚ã†ã€‚ #!/usr/bin/perl use strict; use warnings; use utf8 (); sub check_flag{ my $str = shift; print qq("$str" ), utf8::is_utf8($str) ? 'is' : 'IS NOT',
totoon 2009/06/15
perl
ãƒªãƒ³ã‚¯
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
totoon 2009/03/23
perl

æ£è¦è¡¨ç¾
ãƒªãƒ³ã‚¯
ç¬¬1å›žã€€ã€Œãƒ¢ãƒ€ãƒ³Perlã€ã£ã¦ãªã‚“ã ã‚ã†ï¼Ÿ | gihyo.jp
ã€Œãƒ¢ãƒ€ãƒ³Perlã€ã¨ã„ã†è¨€è‘‰ã®æµè¡Œ å…ˆæ—¥ã€å›½å†…æœ‰æ•°ã®Perl ãƒãƒƒã‚«ãƒ¼ã§ã‚ã‚‹ç‰§å¤§è¼”æ°ãŒã€Žãƒ¢ãƒ€ãƒ³Perlå…¥é–€ã€ã¨ã„ã†æ›¸ç±ã‚’åˆŠè¡Œã—ã¾ã—ãŸã€‚ æ—¥æœ¬ã®Perlãƒ¦ãƒ¼ã‚¶ãƒ¼ã®ãƒãƒ–ã‚µã‚¤ãƒˆã‚’ç›®æŒ‡ã—ã¦ã„ã‚‹perl-users.jpã§ã‚‚ã€Œãƒ¢ãƒ€ãƒ³ãªPerlå…¥é–€ã€ã¨é¡Œã—ã¦ã€Œå¤æ¥ã‹ã‚‰è¦ªã—ã¾ã‚Œã¦ã„ã‚‹Perlå…¥é–€ã¨ã¯ã²ã¨å‘³é•ã†ã€ä»Šé¢¨ã®Perlå…¥é–€ãƒ†ã‚ã‚¹ãƒˆã€ã‚’ä½œã‚ã†ã¨ã„ã†å‹•ããŒã‚ã‚Šã¾ã™ã€‚ æµ·ã®å‘ã“ã†ã§ã¯ã€Perl 6ã®è¨€èªžä»•æ§˜ã®ç–å®šã«ãŸãšã•ã‚ã£ã¦ã„ã‚‹ã‚¯ãƒãƒžãƒ†ã‚£ãƒƒã‚¯ï¼ˆchromaticï¼‰æ°ãŒã€ŒModern Perl Booksã€ã¨ã„ã†ã‚¦ã‚§ãƒ–ã‚µã‚¤ãƒˆã‚’é–‹è¨ã—ã¦ã€ã€Œâ ãƒ¢ãƒ€ãƒ³Perlã€ã«ã¤ã„ã¦ã®è€ƒå¯Ÿã‚’å§‹ã‚ã¾ã—ãŸã€‚æ°ã¯ãã®åã‚‚Modern::Perlã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«[1]ã‚’å…¬é–‹ã—ã¦ã€Œãƒ¢ãƒ€ãƒ³Perlã€ã®å•“è’™ã«åŠªã‚ã¦ã„ã¾ã™ã€‚ å€‹äººã®ä¸»ç¾©ä¸»å¼µã«éŽãŽãªã„ã®ã§ã—ã‚‡ã†ã‹ï¼Ÿ ã§ã‚‚ã€ã“ã®ã€Œãƒ¢ãƒ€ãƒ³Perlã€ã¨ã¯ã„ã£ãŸã„ä½•ãªã®ã§ã—ã‚‡ã†ã‹ã€‚ å—é¢ã‹ã‚‰ã€Œä»Šé¢¨ã®
totoon 2009/02/23
perl
ãƒªãƒ³ã‚¯
Perl ã§ãƒ¢ãƒã‚¤ãƒ«ã‚¦ã‚§ãƒ–é–‹ç™º - ãƒ¢ãƒ€ãƒ³ãªPerlå…¥é–€
Perl ã§ã®ãƒ¢ãƒã‚¤ãƒ«ã‚¦ã‚§ãƒ–é–‹ç™ºã€‚CPAN ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¤ã‹ã„ã¾ãã£ã¦ç°¡å˜ã«é–‹ç™ºãŒã™ã™ã‚ã‚‰ã‚Œã¾ã™ã€‚ ç«¯æœ«æƒ…å ±ã‚’åˆ¶ã™ã‚‹(HTTP::MobileAttribute) HTTP::MobileAttribute ã‚’ã¤ã‹ã†ã¨ã€HTTP ãƒ˜ãƒƒãƒ€ã‹ã‚‰æƒ…å ±ã‚’ã¬ãã ã—ã€ã‚±ãƒ¼ã‚¿ã‚¤ç«¯æœ«ã®æƒ…å ±ã‚’ã‚ã¤ã‹ã„ã‚„ã™ãã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ use HTTP::MobileAttribute plugins => [ qw/ IS / ]; my $ma = HTTP::MobileAttribute->new(); $ma->is_docomo(); çµµæ–‡å—ã‚’ãµãã‚€æ–‡å—åˆ—ã‚’UTF8ã«ã¾ã¨ã‚ã¤ã¤ç›¸äº’å¤‰æ›(Encode::JP::Mobile) Encode::JP::Mobile ã‚’ã¤ã‹ãˆã°ã€çµµæ–‡å—ã®ç›¸äº’å¤‰æ›ã¯å®¹æ˜“ã«ãŠã“ãªãˆã¾ã™ã€‚ãƒ¦ãƒ¼ã‚¶ãŒãƒã‚¹ãƒˆã—ãŸç™ºè¨€ãªã©ã«ãµãã¾ã‚Œã‚‹çµµæ–‡å—ã‚’ã€å„ã‚ãƒ£ãƒªã‚¢ç”¨ã«ç›¸äº’å¤‰æ›ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ E
totoon 2009/02/09
perl
ãƒªãƒ³ã‚¯
Higher-Order Perl
by Mark Jason Dominus Order Higher-Order Perl online from Powell's Books Download full text here There are three versions available. You have your choice of structure or presentation, but not both. License reminder Higher-Order Perl is copyright Â©2005 by Elsevier Inc. Unauthorized reproduction or distribution is absolutely forbidden. You may download the book for your personal use, but you may not
totoon 2008/12/10
perl

æœ¬

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
ãƒªãƒ³ã‚¯
Perlãƒ¡ãƒ¢/CGIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« - Walrus, Digit.
ãƒ•ã‚©ãƒ¼ãƒ ãƒ‡ã‚³ãƒ¼ãƒ‰ãªã©ã®æ©Ÿèƒ½ã‚’æŒã¤ã€CGIä½œæˆè€…ã®ãŸã‚ã®Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã€‚ CGIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯HTMLã‚„ãƒ•ã‚©ãƒ¼ãƒ ã®ç”Ÿæˆã€ãƒ•ã‚©ãƒ¼ãƒ ãƒ‡ãƒ¼ã‚¿ã®ãƒ‘ãƒ¼ã‚¹ã€Cookieã®å–å¾—ã¨å‡ºåŠ›ãªã©ã®æ©Ÿèƒ½ã‚’æŒã¤ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚ ã„ã•ã•ã‹é‡åŽšé•·å¤§ã®ãã‚‰ã„ã¯ã‚ã‚Šã¾ã™ãŒã€CGI::Liteãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ç•°ãªã‚ŠCGIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯å¤šãã®ç’°å¢ƒã§ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã¦ã„ã‚‹ã“ã¨ãªã©ã€CGIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’é¸ã¶ã¹ãç†ç”±ã‚‚å¤šãã‚ã‚Šã¾ã™ã€‚ CGIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ã¯å¤šãã®ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆãŒä»˜å±žã—ã¦ã„ã¾ã™ã€‚ ã“ã®å†…ã„ãã¤ã‹ã¯ã€Perldoc.jpã§å’Œè¨³ã—ãŸæ–‡æ›¸ã‚’è¦‹ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ http://perldoc.jp/docs/modules/ IBMã®ã‚µã‚¤ãƒˆã«ã¯ã€Œä¾¿åˆ©ãªCGIã‚¹ã‚¯ãƒªãƒ—ãƒˆä½œæˆã®ãŸã‚ã®ãƒ’ãƒ³ãƒˆï½žCGI.pmãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ç¶¿å¯†ã«æ¤œè¨Žã™ã‚‹ã€ã¨ã„ã†æ–‡æ›¸ãŒã‚ã‚Šã¾ã™ã€‚ ã„ã•ã•ã‹å¤ã„ã®ã§ã™ãŒã€CGIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã£ãŸãƒ•ã‚¡ã‚¤ãƒ«ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ€ã‚’æ¤œè¨Žã™ã‚‹ã®ã«
totoon 2008/10/30
perl

cgi
ãƒªãƒ³ã‚¯
Perlã§MySQLã‚’åˆ©ç”¨ã™ã‚‹
ãƒ†ãƒ¼ãƒ–ãƒ«åã¯tsumiki_tblã¨ã—ã¦ï¼Œä¸»ã‚ãƒ¼ã‚’idã¨ã™ã‚‹ï¼Židã¯ã‚ªãƒ¼ãƒˆã‚¤ãƒ³ã‚¯ãƒªãƒ¡ãƒ³ãƒˆ åž‹ã§è‡ªå‹•çš„ã«é€£ç•ªãŒæŒ¯ã‚‰ã‚Œã‚‹ã‚ˆã†ã«ã™ã‚‹ï¼Ž ã“ã®ãƒ†ãƒ¼ãƒ–ãƒ«ã‚’SQLæ–‡ã§ä½œæˆã™ã‚‹ï¼Ž create table tsumiki_tbl( id int not null auto_increment, name varchar(20) not null, age int not null, primary key (id) ) å…¥åŠ›ç”»é¢ã®ä½œæˆ ãƒ‡ãƒ¼ã‚¿ã®å…¥åŠ›ç”»é¢(touroku.html) ã‚’ä½œæˆã™ã‚‹ï¼Židã¯è‡ªå‹•çš„ã«ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã§é€£ç•ªã‚’å‰²æŒ¯ã‚‰ã›ã‚‹ãŸã‚ï¼Œå…¥åŠ›é …ç›®ã¯å å‰(name)ã¨å¹´é½¢(age)ã®ã¿ã«ãªã‚‹ï¼Žä»¥ä¸‹ã¯ï¼Œãƒ•ã‚©ãƒ¼ãƒ ã‚’ç”¨ã„ãŸãƒ‡ãƒ¼ã‚¿ã®å…¥åŠ›ç”»é¢ ã§ã‚ã‚‹ï¼Žç¶šã„ã¦ï¼ŒHTMLã®ã‚½ãƒ¼ã‚¹ã‚’ç¤ºã™ï¼Ž ãƒ‡ãƒ¼ã‚¿ã®å…¥åŠ›ç”»é¢ åå‰ï¼š å¹´é½¢ï¼š ãƒ‡ãƒ¼ã‚¿ã®å…¥åŠ›ç”»é¢ã®ã‚½ãƒ¼ã‚¹ <html> <body> <form action="cgi-b
totoon 2008/10/30
perl

mysql
ãƒªãƒ³ã‚¯
Database Programming in Perl::DBI
SQL(Structured Query Language)ã¨ã¯IBMãŒé–‹ç™ºã—ãŸã‚‚ã®ã§ relational databaseã®æ“ä½œã‚’è¡Œã†ãŸã‚ã®è¨€èªžã§ã‚ã‚‹ï¼Ž ä¸»ãªæ“ä½œæ–¹æ³•ã¯ä»¥ä¸‹ã®4ç¨®é¡žã§ã‚ã‚‹ï¼Ž SELECT æŒ‡å®šã—ãŸç‰¹æ€§ã‚’æŒã¤ãƒ¬ã‚³ãƒ¼ãƒ‰ã™ã¹ã¦ã‚’æŽ¢ã—å‡ºã™ SELECT firstname FROM people WHERE lastname='takeda' lastnameãŒ'takeda'ã•ã‚“ã®firstnameã‚’å–å¾—ã™ã‚‹ INSERT ãƒ¬ã‚³ãƒ¼ãƒ‰ã‚’ã‚ã‚‰ãŸã«è¿½åŠ ã™ã‚‹ INSERT INTO people VALUE ('Taro', 'Hanako', 987, NULL, 24, 'M') æ–°ãŸã«Hanako Taroã•ã‚“ã®ãƒ¬ã‚³ãƒ¼ãƒ‰ã‚’è¿½åŠ ã™ã‚‹ DELETE ãƒ¬ã‚³ãƒ¼ãƒ‰ã‚’å‰Šé™¤ã™ã‚‹ DELETE FROM people WHERE id = 29 idãŒ29ã®ãƒ¬ã‚³ãƒ¼ãƒ‰ã‚’å‰Šé™¤ã™ã‚‹ UPDATE ã™
totoon 2008/10/28
perl

sql
ãƒªãƒ³ã‚¯
HTML::Templateãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«
HTML::Templateãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« v.1.8 by Hippo2000(2000/8/23ã€ 2001/6/14) HTML::Templateãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯åå‰ã®é€šã‚ŠHTMLã®ãƒ†ãƒ³ãƒ—ãƒ¬ãƒ¼ãƒˆã‚’å®Ÿç¾ã—ã€ãƒ‡ã‚¶ã‚¤ãƒ³ã¨ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’åˆ†ã‘ã‚‹ã“ã¨ã‚’ç›®çš„ã¨ã—ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚ ä½œè€…ã¯Sam Tregarã•ã‚“ã§ã™ã€‚ãƒ¡ãƒ¼ãƒ«ã§è¨±å¯ã‚’ã„ãŸã ãã¾ã—ãŸã€‚ å†…å®¹ç‰ãŒé–“é•ã£ã¦ã„ãŸã‚‰ä¿®æ£ã—ã¾ã™ã€‚ã”é€£çµ¡ãã ã•ã„ã€‚ 2001/6/14 yahoo-otuzuki ã•ã‚“ã‹ã‚‰ã®æŒ‡æ‘˜ã‚’å—ã‘ãŸéƒ¨åˆ†ã«ã¤ã„ã¦ï¼ˆã‚„ã£ã¨ï¼‰ä¿®æ£ã—ã¾ã—ãŸã€‚ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ã€‚ ã‚‚ã†å°‘ã—ã¡ã‚ƒã‚“ã¨ã—ãªãã¡ã‚ƒã€‚ ç›®æ¬¡ åå‰ æ¦‚è¦ èª¬æ˜Ž å‹•æ©Ÿ ã‚¿ã‚° <TMPL_VAR NAME="PARAMETER_NAME"> <TMPL_LOOP NAME="LOOP_NAME"> </TMPL_LOOP> <TMPL_INCLUDE NAME="filename.tmp
totoon 2008/10/26
perl
ãƒªãƒ³ã‚¯
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ - ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28
totoon 2008/07/04
perl
ãƒªãƒ³ã‚¯
perl - ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ã®perlã‚‰ã—ã„æŒ‡å®šæ³• : 404 Blog Not Found
2008å¹´07æœˆ02æ—¥23:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ã®perlã‚‰ã—ã„æŒ‡å®šæ³• Perl Cookbook (English) Christiansen / Torkington [é‚¦è¨³: Perlã‚¯ãƒƒã‚¯ãƒ–ãƒƒã‚¯] ã“ã‚Œã§ã‚‚ã‚ˆã„ã®ã ã‘ã©ã€ã•ã‚‰ã«æ°å¥½ã¤ã‘ã‚‹ã¨ã‚ˆã‚Šperlã‚‰ã—ããªã‚‹ã®ã§ã€‚ ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ã®æ‰±ã„ã€‚ - ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã«ã‚ˆã‚‹ Perl å…¥é–€ Scalarã«ã‚ˆã‚‹ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ sub num{ my $num = shift; # .... } ã“ã“ã¯ sub num{ my $num = shift || -1; # .... } ã®æ–¹ãŒã‚ã‹ã‚Šã‚„ã™ã„ã€‚0ã¾ãŸã¯''ã‚’å…¥åŠ›å€¤ã€ã™ãªã‚ã¡éžãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ã¨ã—ã¦æ‰±ã„ãŸã„å ´åˆã®ã¿ã€ sub num{ my $num = shift; $num = -1 if not defined $num;
totoon 2008/07/03
*tips

perl
ãƒªãƒ³ã‚¯
Emacsã§Perlé–‹ç™ºã™ã‚‹ä¸Šã§å¿…é ˆãªè¨å®š #2 - flymake
Emacs22ã‹ã‚‰æ¨™æº–æ·»ä»˜ã•ã‚Œã¦ã„ã‚‹flymakeãŒè¶…ä¾¿åˆ©ã§ã™ã€‚flymakeã¯ã€å‹•çš„ã«ã‚·ãƒ³ã‚¿ãƒƒã‚¯ã‚¹ãƒã‚§ãƒƒã‚¯ã‚’è¡Œã£ã¦ãã‚Œã‚‹elispã§ã€typoç‰ã«ã‚ˆã‚‹ãƒŸã‚¹ãŒã€ã“ã‚Œã§ã‹ãªã‚Šæ¸›ã‚‹ã“ã¨å—ã‘åˆã„ã€‚ä»¥ä¸‹ã®è¨å®šã«ã¯ã€set-perl5lib.elãŒå¿…è¦ãªã®ã§ã€ã‚ã‚‰ã‹ã˜ã‚load-pathã®é€šã£ãŸå ´æ‰€ã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¦ãŠãå¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ http://svn.coderepos.org/share/lang/elisp/set-perl5lib/set-perl5lib.el ä»¥ä¸‹ã€è¨å®šã€‚ ;; flymake (Emacs22ã‹ã‚‰æ¨™æº–æ·»ä»˜ã•ã‚Œã¦ã„ã‚‹) (require 'flymake) ;; set-perl5lib ;; é–‹ã„ãŸã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ãƒ‘ã‚¹ã«å¿œã˜ã¦ã€@INCã«libã‚’è¿½åŠ ã—ã¦ãã‚Œã‚‹ ;; ä»¥ä¸‹ã‹ã‚‰ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã™ã‚‹å¿…è¦ã‚ã‚Š ;; http://svn.coderepos.org/share/
totoon 2008/07/01
perl
ãƒªãƒ³ã‚¯
perl - use Carp; # warn() ã¨ die() ã ã‘ã˜ã‚ƒãªãã¦ : 404 Blog Not Found
2008å¹´06æœˆ30æ—¥04:00 ã‚«ãƒ†ã‚´ãƒªLightweight LanguagesTips perl - use Carp; # warn() ã¨ die() ã ã‘ã˜ã‚ƒãªãã¦ ä»¥ä¸‹ã®ã‚¨ãƒ©ãƒ¼å‡¦ç†ã®æ–¹æ³•ã«ã¡ã‚‡ã£ã¨å£ã‚’æŒŸã¿ãŸããªã£ãŸã®ã§ã€‚ ã‚¨ãƒ©ãƒ¼å‡¦ç†ã‚’è¡Œã†ã€‚ - ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã«ã‚ˆã‚‹ Perl å…¥é–€ warn() vs. die() ã¾ãšã€warn()ã®ä½¿ã„æ–¹ã€‚ã‚¨ãƒ©ãƒ¼ã«å¯¾ã—ã¦ä½¿ã£ã¦ã¯ã„ã‘ã¾ã›ã‚“ã€‚warnã¯ãã®åã®é€šã‚Šã€ã‚ãã¾ã§ã‚‚ã‚¨ãƒ©ãƒ¼ã§ã¯ãªãè¦å‘Šã§ã™ã€‚ã‚¨ãƒ©ãƒ¼ã®éš›ã«ã¯die()ã‚’ä½¿ã‚ãªã‘ã‚Œã°ãªã‚Šã¾ã›ã‚“ã€‚ è¦å‘Šã¨ã‚¨ãƒ©ãƒ¼ã®é•ã„ã§ã™ãŒã€è¦å‘Šã¯ã€Œç¶šã‘ã¦å‡¦ç†ã—ã¦ã‚‚ã„ã„ã‘ã©ã€ã“ã‚Œã¯ã‚ãªãŸã®æ„å›³ã§ã¯ãªã„ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ã€ã¨ã„ã†å ´åˆã€ã‚¨ãƒ©ãƒ¼ã¯ã€Œã“ã®ã¾ã¾ã§ã¯å‡¦ç†ã‚’ç¶šã‘ã‚‰ã‚Œã¾ã›ã‚“ã€ã¨ã„ã†å ´åˆã§ã™ã€‚ ãŸã¨ãˆã°perlã®å ´åˆã€æŠœã‘ãŸå¼•æ•°ã¯undefãªã®ã§ã€æ•°å€¤ã¨ã—ã¦ã¯0ã€æ–‡å—åˆ—ã¨ã—ã¦ã¯''ã¨ã—ã¦è§£é‡ˆã•ã‚Œã¾ã™ã€‚ãã‚Œã‚‰ã‚’ãƒ‡ãƒ•
totoon 2008/06/30
perl
ãƒªãƒ³ã‚¯
MOONGIFT: ï¿½ Windowsã§ã‚‚CPANã‚’æ´»ç”¨ã™ã‚‹ã€ŒStrawberry Perlã€:ã‚ªãƒ¼ãƒ—ãƒ³ã‚½ãƒ¼ã‚¹ã‚’æ¯Žæ—¥ç´¹ä»‹
PerlãŒå¾—æ„ã§ãªã„ç†è€…ã¯ã€Windowsã§Perl = Active Perlã¨ã„ã†å¼ãŒã§ãã‚ãŒã£ã¦ã„ãŸã€‚ãã—ã¦ã€CPANã‚’ä½¿ãŠã†ã¨æ€ã£ã¦ã‚¨ãƒ©ãƒ¼ãŒå‡ºã¦ã—ã¾ã„ã€PPMã‚’ä½¿ã†ã®ã ãŒã€ä½•ã‹ã„ã¾ã„ã¡â€¦ã¨ã„ã†æ„ŸãŒå¦ã‚ãªã‹ã£ãŸã€‚ Strawberry Perlã®å…¬å¼ã‚µã‚¤ãƒˆã€‚å·¨å¤§ãªã‚¤ãƒã‚´ãŒç›®å°ã€‚ æã‚‰ãWindowsã§Perlã‚’ä½¿ã‚ã‚Œã¦ã„ã‚‹æ–¹ã®ä¸ã«ã¯åŒã˜æ€ã„ã‚’ã—ãŸæ–¹ãŒã„ã‚‹ã¯ãšã ã€‚ãã“ã§ã€Perlã®å®Ÿè¡Œç’°å¢ƒè‡ªä½“ã‚’å¤‰ãˆã¦ã—ã¾ãŠã†ã€‚ ä»Šå›žç´¹ä»‹ã™ã‚‹ã‚ªãƒ¼ãƒ—ãƒ³ã‚½ãƒ¼ã‚¹ãƒ»ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã¯Strawberry Perlã€CPANãŒãã®ã¾ã¾ä½¿ãˆã‚‹Perlå®Ÿè¡Œç’°å¢ƒã ã€‚ ActivePerlãŒnmakeãƒ™ãƒ¼ã‚¹ã§ã‚ã‚‹ã®ã«å¯¾ã—ã€Strawberry Perlã¯gccã‚’ä½¿ã£ã¦ç’°å¢ƒã‚’æ§‹ç¯‰ã™ã‚‹ã€‚ãã®ãŸã‚ã€CPANãŒãã®ã¾ã¾åˆ©ç”¨ã§ãã‚‹ã‚ˆã†ã«ãªã£ã¦ãŠã‚Šã€ä½¿ã„å‹æ‰‹ãŒãšã„ã¶ã‚“è‰¯ããªã£ã¦ã„ã‚‹ã€‚ ãƒãƒ¼ã‚¸ãƒ§ãƒ³æƒ…å ± ã¾ãŸã€æœ€æ–°ç‰ˆã§ã¯PPMã‚„PARã‚‚ã‚µãƒ
totoon 2008/06/27
perl
ãƒªãƒ³ã‚¯
CPAN ã® ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰å…ˆï¼ˆURL ãƒªã‚¹ãƒˆï¼‰ã‚’å¤‰æ›´ã™ã‚‹æ–¹æ³•
ã€ŒSun Fire V20z ã‚’ Webã‚µãƒ¼ãƒç”¨ã«è³¼å…¥ã€ã‚„ã€ŒApache bench å¯¾æ±º ï¼š Xeon vs Opteronã€ã®è¨˜äº‹ã§æ›¸ã„ãŸã‚ˆã†ã«ã€æœ¬æ¥ã§ä½¿ã£ã¦ã„ã‚‹ web ã‚µãƒ¼ãƒã¯ Sun Fire V20z ã¨ã„ã†ã‚µãƒ¼ãƒãªã‚“ã§ã™ãŒã€Dell ã® Xeon ã‚µãƒ¼ãƒã¨ã‹ã«æ¯”ã¹ã¦ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã§æ¯”è¼ƒã™ã‚‹æ•°å€¤ä»¥ä¸Šã«å®Ÿå‹™ã‚¢ãƒ—ãƒªï¼ˆWeb + DB ã‚µãƒ¼ãƒã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ï¼‰ã®å‹•ä½œãŒã™ã“ã¶ã‚‹æ©Ÿæ•ã§ã™ã€‚ ã£ã¦ãªè¨³ã§ã€å†ã³ã‚µãƒ¼ãƒå¢—è¨ã§ Sun Fire V20z ã‚’è³¼å…¥ã—ã¦ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ä½œæ¥ã‚’ã—ã¦ã„ã‚‹ã®ã§ã™ãŒã€CPAN ã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã§è‹¦æˆ¦ä¸ã€‚ã©ã†ã‚‚ CPAN ã‚µãƒ¼ãƒã«ã‚ˆã£ã¦ MD5 - checksums ã§è»¢ã‘ã¦ã—ã¾ã†ã‚“ã§ã™ã€‚å…·ä½“çš„ã«ã¯ã€
totoon 2008/06/21
cpan

perl
ãƒªãƒ³ã‚¯
ãƒ©ãƒªãƒ¼ãƒ»ã‚¦ã‚©ãƒ¼ãƒ«ï¼ Perlã¯ã€ã¨ã£ã£ã¦ã‚‚æ„›å¦»å®¶ï¼ï¼ï¼´ï½…ï½ƒï½ˆç·ç ”
è³ªå•ã®ä¸€ã¤ã²ã¨ã¤ã«ç†Ÿè€ƒã—ã¦çœŸæ‘¯ã«ç”ãˆã¦ãã‚Œã‚‹æ…‹åº¦ã€æ·±ã¿ã¨å«è“„ã®ã‚ã‚‹è¨€è‘‰ã€åˆå¯¾é¢ã®äººé–“ã«å¯¾ã™ã‚‹å„ªã—ã„æŽ¥ã—æ–¹â€¦â€¦ãã—ã¦ã€è¿”ç”ã«çª®ã™ã‚‹ã¨éš£ã®å¥¥ã•ã‚“ã«ã€Œã©ã†ã ã£ã‘ï¼Ÿã€ã¨å‘¼ã³ã‹ã‘ã‚‹å¤«å©¦ä»²ã®ã‚ˆã•ã€‚ç§ã¯ãƒ©ãƒªãƒ¼ãƒ»ã‚¦ã‚©ãƒ¼ãƒ«ã•ã‚“ã®å¤§ãƒ•ã‚¡ãƒ³ã«ãªã‚Šã¾ã—ãŸã€‚ã‚‚ã¡ã‚ã‚“ã€å¥¥ã•ã‚“ã®ã‚°ãƒãƒªã‚¢ã•ã‚“ã®ãƒ•ã‚¡ãƒ³ã«ã‚‚ã€‚
totoon 2008/06/20
perl

ã‚¤ãƒ³ã‚¿ãƒ“ãƒ¥ãƒ¼

*ã‚ã¨ã§
ãƒªãƒ³ã‚¯
ä»Šæ—¥ã®CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ï¼ˆè·¡åœ°ï¼‰ ç›®æ¬¡
Redirectingâ€¦ Click here if you are not redirected.
totoon 2008/06/20
perl
ãƒªãƒ³ã‚¯
å›³è§£: Perl ã¨ Unicode æ–‡å—åˆ— - daily dayflower
id:tomi-ru ã•ã‚“ãŒ [http://e8y.net/mag/015-encode/:title] ã¨ã„ã†ã¨ã¦ã‚‚ãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚«ãƒ«ãª [http://search.cpan.org/perldoc?Encode:title=Encode] å…¥é–€ã‚’ãŠæ›¸ãã«ãªã£ãŸã®ã§ï¼Œã‚ãŸã—ã‚‚é•ã†åˆ‡ã‚Šå£ã§æ›¸ã„ã¦ã¿ãŸããªã‚Šã¾ã—ãŸã€‚ ã„ã¡ãŠã†ã®åŸºç¤Žï¼ˆèªã¿é£›ã°ã—å¯ï¼‰ æ–‡å—ã‚»ãƒƒãƒˆ, ã‚ãƒ£ãƒ©ã‚¯ã‚¿ã‚»ãƒƒãƒˆ, æ–‡å—é›†åˆ, æ–‡å—é›†åˆ - Wikipedia ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°, ç¬¦å·åŒ–æ–¹å¼, æ–‡å—ç¬¦å·åŒ–æ–¹å¼ - Wikipedia ã“ã®2ã¤ã¯ç•°ãªã‚Šã¾ã™ã€‚ã¨ãã«çŸ¥ã‚‰ãªãã¦ã‚‚ä¸‹è¨˜ã®æ–‡æ›¸ã‚’èªã‚€ã“ã¨ã¯ã§ãã¾ã™ãŒï¼Œç†è§£ã—ã¦ã„ã‚‹ã¨ãŸã‚ã«ãªã‚Šã¾ã™ã€‚ãã‚ã—ãçŸ¥ã‚ŠãŸã„äººã¯è‡ªç¿’ã—ã¦ãã ã•ã„ã€‚ æ–‡å—ã‚»ãƒƒãƒˆã®ä¾‹ Unicode JIS X 0208 ã²ã‚‰ãŒãªã¨ã‹ã‚«ã‚¿ã‚«ãƒŠã¨ã‹æ¼¢å—ã¨ã‹ ASCII æ–‡å— ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã®ä¾‹ UTF-8 ISO-202
totoon 2008/06/20
perl

unicode
ãƒªãƒ³ã‚¯
1 2 æ¬¡ã®ãƒšãƒ¼ã‚¸