ã¯ã¦ãªã°ã«ã¼ãã®çµäºæ¥ã2020å¹´1æ31æ¥(é)ã«æ±ºå®ãã¾ãã 以ä¸ã®ã¨ã³ããªã®éããä»å¹´æ«ãç®å¦ã«ã¯ã¦ãªã°ã«ã¼ããçµäºäºå®ã§ããæ¨ããç¥ãããã¦ããã¾ããã 2019å¹´æ«ãç®å¦ã«ãã¯ã¦ãªã°ã«ã¼ãã®æä¾ãçµäºããäºå®ã§ã - ã¯ã¦ãªã°ã«ã¼ãæ¥è¨ ãã®ãã³ãæ£å¼ã«çµäºæ¥ã決å®ãããã¾ããã®ã§ã以ä¸ã®éãã確èªãã ããã çµäºæ¥: 2020å¹´1æ31æ¥(é) ã¨ã¯ã¹ãã¼ãå¸æç³è«æé:2020å¹´1æ31æ¥(é) çµäºæ¥ä»¥éã¯ãã¯ã¦ãªã°ã«ã¼ãã®é²è¦§ããã³æ稿ã¯è¡ãã¾ãããæ¥è¨ã®ã¨ã¯ã¹ãã¼ããå¿ è¦ãªæ¹ã¯ä»¥ä¸ã®è¨äºã«ãããã£ã¦æç¶ãããã¦ãã ããã ã¯ã¦ãªã°ã«ã¼ãã«æ稿ãããæ¥è¨ãã¼ã¿ã®ã¨ã¯ã¹ãã¼ãã«ã¤ã㦠- ã¯ã¦ãªã°ã«ã¼ãæ¥è¨ ãå©ç¨ã®ã¿ãªãã¾ã«ã¯ãè¿·æãããããããã¾ãããã©ãããããããé¡ããããã¾ãã 2020-06-25 è¿½è¨ ã¯ã¦ãªã°ã«ã¼ãæ¥è¨ã®ã¨ã¯ã¹ãã¼ããã¼ã¿ã¯2020å¹´2æ28
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
2009å¹´01æ16æ¥17:30 ã«ãã´ãªLightweight Languages perl - URI::Escape::XS 0.04 - URI Encode 㨠Punycode ã®å ±å URI::Escape::XS 0.04 ã Release ããã®ã§ãç¥ãããã¾ãã /lang/perl/URI-Escape-XS/trunk - CodeRepos::Share - Trac Dan Kogai / URI-Escape-XS - search.cpan.org (Wait till updated) ãã£ããã¯ãããã ã¯ã¦ãªããã¯ãã¼ã¯ - %E8%84%86%E5%BC%B1%E6%80%A7%E8%A8%BA%E6%96%AD.jp IDNãå½éåãã¡ã¤ã³åã¯ã URI Encode ã§ã¯ãªã Punycode 㧠encode ããªããã°ãªããªãããã£ã¦ãèå¼±
DoCoMo,EZweb,Softbankãå ±éã®å¤é¨CSSãã¡ã¤ã«ããã¹ã¿ã¤ã«ãåæ ãããã¢ã¸ã¥ã¼ã«ãä½ãã¾ããã http://search.cpan.org/~komoriya/HTML-MobileJpCSS-0.01/ 3ãã£ãªã¢éã§ã®å¤æã®å¿ è¦æ§ DoCoMoã§ã¯å¤é¨CSSãåç §ã§ããã¤ã³ã©ã¤ã³ã®ã¿ã®å¯¾å¿ã¨ãªã£ã¦ãã¾ãã DoCoMoã®ã¤ã³ã©ã¤ã³åã«ã¤ãã¦ã¯id:tokuhiromããã®ä½æããHTML::DoCoMoCSSãã¡ãã§å¯¾å¿ãå¯è½ãªã®ã§ããã3ãã£ãªã¢éã§å ±éã®CSSãåç §ããã¨ãªãã¨å±æ§ã®æå®æ¹æ³ã«å¾®å¦ãªå·®ç°ãåé¡ã¨ãªãã¾ãã ä¾ãã°å°ãããã©ã³ãã表示ãããæã¯ã DoCoMo --- font-size:xx-small EZweb --- font-size:10px Softbank --- font-size:smallã¨å±æ§ã®å¤ãç°ãªãã¾ãã hrã¿ã°
以åãCatalystã§ãã«ããã¤ããåãæ±ãã¨ãã®ã¾ã¨ãã¨ããè¨äºãæ¸ããã®ã§ãããæ å ±ãå°ãå¤ãã®ã§ãæè¿åããã£ã¦ããæ¹æ³ãç´¹ä»ãã¾ãã ãã®è¨äºã§ã¯ Catalyst 5.7015 Catalyst::View::TT 0.27 Catalyst::Plugin::ConfigLoader 0.22 Catalyst::Plugin::FillInForm 0.10 Catalyst::Plugin::Static::Simple 0.20 Catalyst::Plugin::Unicode 0.8 ã®ç°å¢ã§ç´¹ä»ãã¦ãã¾ãã ã¾ããåºæ¬çã«DBICã«é¢ãã¦ã¯ä»¥åã®è¨äºã®éãDBIx::Class::UTF8Columnsã使ãã¨ããæãã§ãã ã¾ãããããªæãã®ã¢ããªã±ã¼ã·ã§ã³ãç¨æãã¾ãã MyApp package MyApp; use strict; use warnings
é¡å Catalyst::Manual::Intro - ã¯ããã¦ã®Catalyst 説æ ããã§ã¯ãªããã¾ãã©ããã£ã¦Catalystã使ãã®ããç°¡åã«ç´¹ä»ãã¾ããCatalystã®æåã«ã¤ãã¦èª¬æããç°¡åãªã¢ããªã±ã¼ã·ã§ã³ãææ©ãç«ã¡ä¸ããæ§åãã覧ã«å ¥ãã¾ãã Catalystã¨ã¯ï¼ Catalystã¨ã¯ã¨ã¬ã¬ã³ããªã¦ã§ãã»ã¢ããªã±ã¼ã·ã§ã³ã»ãã¬ã¼ã ã¯ã¼ã¯ã§ãããããã¦æè»ãªã®ã«ãããã¦ã·ã³ãã«ãRuby on RailsãSpring (Java)ãããã¦Catalystã®å ã¨ãªã£ãMaypoleã«ããä¼¼ã¦ãã¾ãã MVC Catalystã¯ã¢ãã«ã»ãã¥ã¼ã»ã³ã³ããã¼ã©(MVC)ã¨ãããã¶ã¤ã³ã»ãã¿ã¼ã³ãè¸è¥²ãã¦ãããããã³ã³ãã³ãããã¬ã¼ã³ãã¼ã·ã§ã³ãããã¼ç®¡çã¨ãã£ãåé¡ãç°¡åã«åãåãã¦ç¬ç«ããã¢ã¸ã¥ã¼ã«ã«ãããã¨ãã§ãã¾ãããããã¦åãåãããã¨ã§ä»ã®åé¡ãå¦
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
京é½è¦³å ã§æ£è²¡ãããã¦è²¯éããªãmalaã§ããããã«ã¡ã¯ããã£ãã·ã¥ã®è©±ãæ¸ãã¾ãã è²ããªãã£ãã·ã¥ãããã¾ã ãã¼ã¿ãã¼ã¹ããå¼ãåã«memcachedããåå¾ããã ãã³ãã¬ã¼ãã¨ã³ã¸ã³ã®ã¬ã³ããªã³ã°çµæããã£ãã·ã¥ããã å種ã¦ã§ããµã¼ãã¹ã®ãªã¯ã¨ã¹ãçµæããã£ãã·ã¥ããã ãã®ä»è«¸ã CPUãé£ã£ããæéã®ãããå¦çããã£ãã·ã¥ããã ç°¡åã«æãã¤ãã®ã¯ãã®ç¨åº¦ã§ãããã¹ã±ã¼ã©ãã«ãªã¦ã§ããµã¤ããæ§ç¯ããã«ã¯å¸¸èçã«èãã¦ãããªã®ãã£ãã·ã¥ããã¼ã ããã¨ãããããªãã®ããã£ãã·ã¥ããå¿ è¦ãããã¾ãã DateTimeããã£ãã·ã¥ããã åãæå»ã«å¯¾ããDateTimeãªãã¸ã§ã¯ãããã£ãã·ã¥ãã¾ãã package MyDateTime; use strict; use base qw(DateTime); my %CACHE; sub now { my $class = shif
åºæ¬ ããã°ã©ã¹ã½ã¼ã¹ä½¿ã£ãæçãé£ã¹ãã cho45 ã§ããPerl ã¨ããã°æMMOã²ã¼ã ã¨åæã«èµ·åã§ããªãããã°ã©ã ã¨ãã¦æåã§ããä»åã¯ããã¨ã¯é¢ä¿ãªã話ã§ãã Ruby å¨ã®å¤ãã inject å¨ã§ããæ°ããã¾ã (ã¦ãã¨ã¼ã§ã) ãã Perl 㧠List::Util::reduce ã使ã£ã¦ããã¨ãããããã¾ãè¦ããã¨ããªãã®ã§ããã¤ã便å©ãªä¾ãç´¹ä»ãã¾ãã reduce ã¯ä½ãã¨ããã¨ãªã¹ãã1ã¤ã®å¤ã«çºãããã®ã§ããä¾ãã°ãªã¹ãã®è¦ç´ ã®åè¨ã¯ use Perl6::Say; use List::Util qw/reduce/; my $list = [1, 2, 3, 4, 5]; say reduce { say "$a,$b"; $a + $b } @$list; 1,2 3,3 6,4 10,5 15 ååã®ã«ã¼ãã®è¿ãå¤ã $a ã«å ¥ãã$b ã«ã¯æ®ãã®è¦ç´
åºæ¬çãªæ¸ãæ¹ use strict; use warnings; use utf8; # â Perl ããã«ã¼ã« DIS ãããªããªããã¾ããªã # Win32::GuiTest ã使ããã¾ããªã use Win32::GuiTest qw(:ALL); # æ¥æ¬èªã使ããããã«ãããã¾ããªã UnicodeSemantics(1); # ãã㧠Win32::GuiTest ã使ã ãã¦ã¹ãåãã use strict; use warnings; use utf8; use Win32::GuiTest qw(:ALL); # å°æ°ç¹ãããã¡ãã sleep é¢æ° use Time::HiRes qw(sleep); UnicodeSemantics(1); for (my $i = 0; $i < 500; $i++) { # 10 ms å¾ ã¤ sleep(0.01); # ãã¦
Q.以ä¸ã®ãã¹ãã±ã¼ã¹ã失æãããããªf()ãæ¸ãã¦ãã ããããã ãï¼ã©ã¤ãã©ãªã使ç¨ãã¦ã¯ããã¾ãããåçã¯ä¸é±éå¾ãããã«ã #!perl -w use strict; use Test::More 'no_plan'; sub f{ # ä½ããã } f(); is ref(bless({}, 'Foo')), 'Foo'; __END__ sv_derived_from()ãå»ãã§ãããã¡ã«è¦ã¤ããã¡ãã£ã¨å¤ãªæåã§ãã 2008/10/08 è¿½è¨ (ç¾ãã©ãã¯ããã¯æ°:7) çãã解çãããã¨ããããã¾ãï¼æå¤ãªããæ¹ãããã¤ããã£ã¦é©ãã¾ããã ãã¨ã§è©³ããç´¹ä»ï¼è§£èª¬ãããã®ã§ããï¼ä»ã¯å®ææ¼å¥ä¼ããå¦ç¥ããã§å¿ããã®ã§ï¼ã¾ãå¾ã»ã©ã
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;
ã¨ã³ã¸ãã¢ã«ã¨ã£ã¦ä»²éã¨ã¯ã©ãããåå¨ãªã®ã ãããã極端ãªãã¨ãããã°ãèªå1人ã§ä½æ¥ãå®çµã§ãã¦ãã¾ãã¨ã³ã¸ãã¢ã«ã¨ã£ã¦ã仲éã¨ã®ã³ãã¥ãã±ã¼ã·ã§ã³ã«ã¯ã©ããªæå³ãããã®ããã¨ã³ã¸ãã¢å士ã®ãããã¯ã¼ã¯ãéãã¦ãã¨ã³ã¸ãã¢ã«ã¨ã£ã¦ã®ä»²éã¨ã¯ä½ããæ¢ãã 第3åï½1ã2ï½æ¬¡ã®ãã¼ã¸ ãµã¤ãã¦ãºã©ã 竹迫è¯ç¯æ°ï¼ã³ãã¥ããã£ã¯ãç¥ãåãç³»ããããåºä¼ãç³»ãã¸å¤åããï¼ãã¢ãã¤ã«ãã¡ã¯ããªã¼ æ¾é徳大æ°ï¼æ¾é徳大ââãã ã¾ã£ã¦ã³ã¼ããæ¸ãããï¼ãKLab 廣ç¬æ£ææ°ï¼ã²ããã¾ãããââåå¼·ä¼ã¯ãåããããè¡ã£ã¡ãããï¼ã¨ã¤ãªãã£ãã¨ã³ã¸ãã¢ã®è¼ªããä»åã§4人ç®ãååã®å»£ç¬æ°ããç´¹ä»ãããã®ã¯ãpaperboy&co. äºæ¥æ¦ç¥æ¬é¨ å®®ä¸åè¼æ°ã ããYAPC::Asiaããã¯ãããå¤ãã®ã«ã³ãã¡ã¬ã³ã¹ãåå¼·ä¼ã§ã¹ãã¼ã«ã¼ãåããå®®ä¸æ°ã«ãããããæ´»åãããããã«ãªã£ãçµç·¯ãèããã â ã·ã£ã¤ãªã
2008å¹´06æ30æ¥04:00 ã«ãã´ãªLightweight LanguagesTips perl - use Carp; # warn() 㨠die() ã ããããªã㦠以ä¸ã®ã¨ã©ã¼å¦çã®æ¹æ³ã«ã¡ãã£ã¨å£ãæã¿ãããªã£ãã®ã§ã ã¨ã©ã¼å¦çãè¡ãã - ãµã³ãã«ã³ã¼ãã«ãã Perl å ¥é warn() vs. die() ã¾ããwarn()ã®ä½¿ãæ¹ãã¨ã©ã¼ã«å¯¾ãã¦ä½¿ã£ã¦ã¯ããã¾ãããwarnã¯ãã®åã®éããããã¾ã§ãã¨ã©ã¼ã§ã¯ãªãè¦åã§ããã¨ã©ã¼ã®éã«ã¯die()ã使ããªããã°ãªãã¾ããã è¦åã¨ã¨ã©ã¼ã®éãã§ãããè¦åã¯ãç¶ãã¦å¦çãã¦ããããã©ãããã¯ããªãã®æå³ã§ã¯ãªãããããã¾ãããã¨ããå ´åãã¨ã©ã¼ã¯ããã®ã¾ã¾ã§ã¯å¦çãç¶ãããã¾ãããã¨ããå ´åã§ãã ãã¨ãã°perlã®å ´åãæããå¼æ°ã¯undefãªã®ã§ãæ°å¤ã¨ãã¦ã¯0ãæååã¨ãã¦ã¯''ã¨ãã¦è§£éããã¾ãããããããã
Perl/CPAN å ¥éWikiç®çPerlå¸æ CPANæ´»ç¨ã®ããã CPANã¢ã¸ã¥ã¼ã«ã®ãããCPANã¢ã¸ã¥ã¼ã«ãã¤ãããã°Perlã¯ä½ã§ãã§ãã¾ãã iPodãããããã¨ããOpenGLã§3Dã表示ãããã¨ããGUIã¢ããªãä½ããã¨ãã§ãã¾ããPHPãªãã¦ç®ããããã¾ããã ã§ãæ £ããªãã¨CPANã¯åããã¥ãããã©ããã£ã¦ä½¿ãã°ããã®ãããã©ã®ã¢ã¸ã¥ã¼ã«ã使ãã°ããã®ããåãããªãããã®ãããªCPANåå¿è ã®ãã¼ãã«ãç¡ããã®ãç®çã§ãã Perlèªä½ã®èª¬æã大æè¿ã§ãã ã³ã³ãã³ã説æ ããã ãã¾ãã CPANã®ä½¿ãæ¹ ActivePerlã®PPMããã ããããCPANã¢ã¸ã¥ã¼ã«ä¸è¦§ ããããã®ã¢ã¸ã¥ã¼ã«ä¸è¦§ã説æã¨ã使ãæ¹ã¨ã éå¼ãCPANã¢ã¸ã¥ã¼ã« ãããããã¨ããã¢ã¸ã¥ã¼ã«ãæ¢ã ãé¡ãæ°è¦åå ¥ãç¡ããªã£ããã³ãã¥ããã£ã¯çµããã ã¨æãã¾ãã (å°ãªãã¨ãæ¥æ¬ã®)Pe
2008å¹´05æ12æ¥13:30 ã«ãã´ãªLightweight Languages翻訳/ç´¹ä» perl - stat()ã-X æ¼ç®åããã㦠_ ãã¡ã¤ã«ãã³ãã« ãããã£ãå ´åã®Tipã§ãã ãã¡ã¤ã«æ¼ç®åã -s ãã§ããã¡ã¤ã«ãµã¤ãºãåå¾ããã - ãµã³ãã«ã³ã¼ãã«ãã Perl å ¥é if( -f $file ){ my $file_size = -s $file; print "$file ã®ãã¡ã¤ã«ãµã¤ãºã¯ã$file_size ãã¤ãã§ãã\n\n"; } else{ print "$file ã¯ãåå¨ãã¾ããã§ããã\n\n"; } _ ãã¡ã¤ã«ãã³ãã« å®ã¯ã-Xæ¼ç®åã¯ããã®æ¼ç®åã«æå¾ ãããçµæãè¿ãã ãã§ã¯ãªãããã®ä»ã®ãã¡ã¤ã«æ å ±ãç¹æ®ãã¡ã¤ã«ãã³ãã«_ã«ã»ãããã¾ããããã使ãã¨ãä¸ã®ã³ã¼ã㯠if( -f $file ){ my $file_size =
2008å¹´05æ12æ¥18:15 ã«ãã´ãªLightweight Languages perl - @_ ã¯åç §ã§ãã ããã§ãæ£è§£ã§ã¯ããã¾ãããperlã®å ´åãã£ã¨ç°¡åãªæ¹æ³ãããã¾ãã åè¨èªéã®åç §ã¨å¤æ¸¡ã - @author pyridoxin sub swap { my ($x , $y) = @_; $$temp = $$y; $$y = $$x; $$x = $$temp } [codepad] sub swap { my $tmp = $_[0]; $_[0] = $_[1]; $_[1] = $tmp; } my ($a, $b) = (1, 2); print "\$a = $a, \$b = $b\n"; swap($a, $b); print "\$a = $a, \$b = $b\n"; ããã¯ãReferenceãåå¨ããªãã£ãPerl 4以åããã®ä»æ§ã§ãã
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}