Module::Installãã¤ãã£ã¦ããããcartonãã¤ãã£ã¦ãããä¾åã¢ã¸ã¥ã¼ã«ãPerl 5.18ã§ã³ã±ãããã¦Perler以å¤ã«ã¨ã£ã¦ã¤ã³ã¹ãã¼ã«ãé£ããç¶æ ã§ãããããã®ãã³æ´çãã¦CPANã«ãªãªã¼ã¹ãã¾ããã ããã§Perler以å¤ã«ã¨ã£ã¦ãç°¡åã«ã¤ã³ã¹ãã¼ã«ã§ããããã«ãªã£ãã¨æãã¾ãã®ã§ã試ããã ããã # webããcpanmï¼CPANããã±ã¼ã¸ããã¼ã¸ã£ï¼ãèªã¿è¾¼ãã§ãã¼ã«ã«ã«ã¤ã³ã¹ãã¼ã« # 権éã®åé¡ã§ã¤ã³ã¹ãã¼ã«ã§ããªããã° | perl - --sudo Text::Md2Inao 㧠curl -L http://cpanmin.us | perl - Text::Md2Inao https://github.com/naoya/md2inao
ä»ãããªããã CGIã®ç¥è©±ã¨ç¾å®ã¨ããã¨ã³ããªããã ãå 容ã¨ã¯ã¾ã£ããé¢ä¿ãªããã¹ã¯ãªããè¨èªã® shebang è¡ï¼#!ï¼ã§ã¹ã¯ãªããã¤ã³ã¿ã¼ããªã¿ãç´æ¥æ¸ããã« /usr/bin/env ã§ã©ããããã¨ããæªç¿ã¯ãã£ãã誰ãåºãããã ããããruby ãªäººã«å¤ãããã«æããããã ããããªããã hoge ã¨ããã¤ã³ã¿ã¼ããªã¿ã使ãã¹ã¯ãªããã®1è¡ç®ããã¨ãã° #!/usr/bin/env hoge ã¨ãã¦ããã¨ãhoge ã®å®è¡ãã¤ããªã /usr/bin/hoge ã§ã /usr/local/bin/hoge ã§ã $HOME/bin/hoge ã§ãã©ãã«ãã£ã¦ããã¹ãéã£ã¦ããããã°èµ·åã§ãããããã¯ã¡ãªãããªãã ããããããã«ã¯ããããã¡ãªããã«ããæããªãã /usr/bin/env ã使ãã¨ããã®ã¯ãPATH ã®å¤ã«ãããã£ã¦ã¤ã³ã¿ããªã¿ã®å ´æãæ¢ãã¨ããæå³ã§ãããã¤ã¾ã
2009å¹´02æ10æ¥01:00 ã«ãã´ãªLightweight Languages perl - open my $fh, "comand |"; # ã¯ã¢ãã³ãããªã ã¢ãã³Perlå ¥é ç§å¤§è¼ ãã¢ãã³Perlå ¥éãçºå£²è¨å¿µã¨ãããã¨ã§ãåæ¸ãè£è¶³ããentryãã åæ¸ã§ã¡ãã£ã¨æ®å¿µã ã£ãã®ãã[5.2 å¤é¨ã³ãã³ãã®å®è¡]ããã¾ãã¢ãã³ã§ã¯ãªãã®ã ã P. 141 system("/sbin/wget", "http://example.com"); ããã¯ããã®ã ãã以ä¸ãã¡ãã£ã¨ã¾ããã my $output = `/bin/ls tmp`; open(my $fh, '| cat -v'); ãããä½ãã¾ããããã¨ããã¨ãã³ãã³ãå®è¡ã®éã«/bin/shã使ã£ã¦ãã¾ãã®ã ããã®ãããã§command < from > to 2&>1ã®ãããªãªãã¤ã¬ã¯ãã使ãããªã©ã®å©ç¹ãã
ããã»ã¹ã並åã«ç«ã¡ä¸ãã¦è² è·ãæãããããªãã³ããã¼ã¯ãå®è¡ãããã¨ã£ã¦ãããããã¾ãããã(ä¾ : ã¯ã¨ãªãã£ãã·ã¥ãåã£ãã»ãããã¤ã«ï¼ ãã³ããã¼ã¯ãã¦ã¿ã - é æ¥è¨ ã¯ã¦ãªæ¯åº) Perl 㧠Parallel::ForkManager ã使ãã¨ããããå¦çãç°¡åã«æ¸ãã¦ä¾¿å©ãªã®ã§ãããä½åº¦ãåããããªã³ã¼ããæ¸ããã¡ã«ãããããã¡ãã£ã¨æ½è±¡åããã使ãããããããã¨æã£ã¦ Parallel::Benchmark ã¨ããã¢ã¸ã¥ã¼ã«ãæ¸ãã¦ã¿ã¾ããã ãªãã¸ããªã¯ãã¡ãã§ãã https://github.com/fujiwara/p5-Parallel-Benchmark ãã¨ãã°ãã£ããããæ° fib(10) ãæ±ãããã³ããã¼ã¯ã use Parallel::Benchmark; sub fib { my $n = shift; return $n if $n == 0 o
lestrratã§ããæ¬æ¥ãã§ããæ£å¼ã«STFããªã¼ãã³ã½ã¼ã¹ã¨ãã¦livedoor ã©ã EDGEä¸ã§ãªãªã¼ã¹ããã¾ããï¼ ãã¬ã¹ãªãªã¼ã¹ã¯ãã¡ãã ãã¾ã¾ã§ã¡ããã¡ããã¨å åºãå åºãã§æ å ±ãã ãã¦ãã¾ããããããã§æ¬å½ã«æ¬å½ã®æ£å¼å ¬éã§ããä¸å¿ä¸è¨ã®ãµã¤ã以å¤ã«ãå ¬å¼ããµã¤ãçãªãã®ãç¨æãã¾ãããã½ã¼ã¹ã³ã¼ãã¯githubä¸ã«å ¬éããã¦ãã¾ããã¨ãããã¨ã§ä½¿ã£ã¦æ¬²ããã®ã§ç´¹ä»è¨äºã§ãã STFã¯åæ£ãªãã¸ã§ã¯ãã¹ãã¬ã¼ã¸ã§ããPerlã¡ã¤ã³ã®ä¼¼ããããªã·ã¹ãã ã¨ãã¦ã¯MogileFSãæåã§ãããSTFã¯å¾çºã®ã¡ãªãããçããã¦PSGIäºæã«ãããã使ç¨ãããããã³ã«ãåºæ¬çã«HTTPã¨ãããªã¼ãã³ã§æ¯ããæè¡ãæ¡ç¨ãããã¨ã¡ã³ããã³ã¹ã»éç¨ã®å©ä¾¿æ§ãããã£ã¦ããã¨èãã¦ãã¾ãã æ´å² STFã¯å ã Apacheã¢ã¸ã¥ã¼ã«ã¨ããã¤ãã®Perlã¯ã¼ã«ã¼ã§æ¸ããã¦ãã¾ããããã²ãããªãã¨ã
Distributed Object Storage Made Easy! Use commodity hardware/software to build your own scalable object storage! Learn more » What is STF? STF is a simple, yet very scalable distribute storage system. STF powers sites like livedoor Blog, loctouch and many more, serving gigabytes after gigabytes of data. On one such system, it's serving 400Mbps of image at peak hours without a hitch. GET STF! STF i
[ã] Perl æ¨æºå ¥å㨠utf8 404 Blog Not Found:perl - PerlIO vs. <> ãã use open - odz buffer use open ':std'ã使ãã®ãä¸çªçãæ¸ãæ°ãããï¼ãã®å ´åSTDERRã:utf8ãéãã¦ããã®ã§encodeããã«åºåãããã¨ãã§ããï¼ #!/usr/bin/perl use strict; use warnings; use utf8; use open ':utf8'; use open ':std'; while (<>) { print if (/[ã-ã]/); print STDERR "$_\n"; } use open ':std'ã¯perldoc openã§èª¬æããã¦ããï¼ The ":std" subpragma on its own has no effect, but if comb
 Windowsã§Perl 5.8/5.10ã使ãã¢ã³ãããªã 2008.01.17 3008.02.13æ¹ç é·ãéã«ï¼ç§ã¯Perlã使ãã¨ãã«æ¬¡ã®ãããªãã³ãã¬ã¼ãã使ãããã«ãªã£ã¦ããã #!perl # utf8ã§ã»ã¼ã # --------------------------------------------------- # @ARGV = map { decode('cp932',$_) } @ARGV ; # --------------------------------------------------- # opendir(D,encode('cp932',"表")) ; # @nodes = map { decode('cp932',$_) } readdir(D) ; # closedir(D) ; # -----
PerlCasual #4 (2011/4/28, æ± è¢ã¸ã¥ã³ã¯å )ã§è¡ã£ããã¼ã¯ã®ã¹ã©ã¤ãã§ãã åç»ãYouTubeã§å ¬éãã¦ããã®ã§ããããã¦ã覧ãã ãããhttp://youtu.be/kLt2aYN7UYE, http://youtu.be/xVC9pqCe8cE Read less
ã¨ã³ããªã®ç¶ãã¯ãã¡ãâCPANã¢ã¸ã¥ã¼ã«ã®ã¢ã³ã¤ã³ã¹ãã¼ã«ï¼æ¹è¯çï¼ - ãã«ãºã§åã@robarioã®æãã° ããCPANã¢ã¸ã¥ã¼ã«ï¼ä»¥ä¸ãã£ã¹ããªãã¥ã¼ã·ã§ã³ã¨å¼ã³ã¾ãï¼ãã¢ã³ã¤ã³ã¹ãã¼ã«ãã¦ã¿ã¾ãã ã¾ãã¯è²ã ç´¹ä»ããªããåããã©ããã£ã¦ã¿ã¾ããæå¾ã«ç°¡åãªæ¹æ³ãç´¹ä»ãã¾ãã æ¶ããããã£ã¹ããªãã¥ã¼ã·ã§ã³ãç¢ºèª èªåãæ¶ããããã£ã¹ããªãã¥ã¼ã·ã§ã³ãåãããªãã£ããã % perldoc -tT perllocal | grep Module # è¦ãç®ããéãåªå ãªããã£ã¡ % grep Module `perldoc -l perllocal` ã§ã¤ã³ã¹ãã¼ã«å±¥æ´ãåºã¾ããperllocal.podã«ã¯ã¤ã³ã¹ãã¼ã«ãããã£ã¹ããªãã¥ã¼ã·ã§ã³ã®ä¸è¦§ãæå»ã¨å ±ã«è¨é²ããã¦ãã¦ãæ¨æ¥ã¤ã³ã¹ãã¼ã«ããã¢ã¬ã¢ã¬â¦ä½ã ã£ãï¼ãã¨ããæã«ã¯å²ã¨ä½¿ãã¾ãã ã¢ã¸ã¥ã¼ã«åã¨ãã£ã¹ããªãã¥ã¼ã·ã§
2. ç§ï¼ä½è¤æç´ï¼ã®èªå·±ç´¹ä»ååï¼ä½è¤æç´ï¼ãã¨ãã¨ãã®ãï¼ID : overlastï¼Twitter : @overlastï¼key : èªç¶è¨èªå¦ç/æ©æ¢°å¦ç¿/æ¤ç´¢/å§ç¸®/é åºå¦ç¿blog : Overlasting::Life(http://diary.overlasting.net/) ç¥æ´2005å¹´4æã2008å¹´3æï¼æ±å·¥å¤§ã®å¥¥æç 究室èªç¶è¨èªå¦çï¼æ¯è¼é¢ä¿æ½åºï¼ã®ç 究2008å¹´5æã:æ大æãã¼ã¿ã«ãµã¤ãèªç¶è¨èªå¦çã»æ©æ¢°å¦ç¿æè¡ãWebææ¸ã«å¿ç¨é¡ä¼¼æååæ¤ç´¢ã©ã¤ãã©ãªã®ç 究ã»éçºã¹ãã«è¨æ£ã·ã¹ãã ã®ç 究ã»éçº2
ä¿¡ããããªãééããç¯ãã¦ãã¾ãããï¼ï¼ï¼ï¼ï¼ï¼ aliasãæ¸ãç´ãã¾ããã ãã以åã®aliasãæã£ã¦ããããè¦æ¯ã¹ã¦ï¾ï¾ï¾ï¾ãã¦ãã ããã½(;´Ðï½)ï¾ ä½ãCPANPLUSã§distroprefsã使ããªãï¼CPANã¢ã¸ã¥ã¼ã«ã®ãªã¬ãªã¬ããã - ãã«ãºã§åã@robarioã®æãã°ï¼ã®ã§ãä¸æ¦CPANã«æ»ã£ã¦ãã¾ããã ããã§ãCPANã§ã¯ã¢ã³ã¤ã³ã¹ãã¼ã«ã³ãã³ããç¡ãã®ã§ãcpan-uninstallï¼CPANã¢ã¸ã¥ã¼ã«ã®ã¢ã³ã¤ã³ã¹ãã¼ã« - ãã«ãºã§åã@robarioã®æãã°ï¼ã使ããããªãã§ãããè²ã ãã£ã¦cpan-uninstallãæ¹è¯ãã¾ããã ã³ã¼ãï¼aliasã¨ãã¦ã¯ã³ã©ã¤ãã¼ã§å®è£ ï¼ alias cpan-uninstall='\perl -MExtUtils::Install -MExtUtils::Installed -e "unshift@ARGV,n
ãã¨ãã°ãããªã Rakudo Star ã§ã¯ã©ããå®è£ æ¸ã¿ãä»ãã使ãã¾ãã å¼·åãããæ£è¦è¡¨ç¾ Perl 6 ã®å ¬å¼ãªãã¼ãµèªä½ã Perl 6 ã®æ£è¦è¡¨ç¾ã§æ¸ããã¦ãã¾ãã â¦â¦ã¯ç½®ãã¨ãã¦ã10è¡ã¡ãã£ã¨ã§ CSV ããã¼ã¹ããæ£è¦è¡¨ç¾ãæ¸ãããã¯ã©ã¼ããããå¤ã«ãè¤æ°è¡ã«ã¾ãããå¤ã«ã対å¿ã # CSV ã¯ã©ã¹ã¯ä»¥ä¸ã®ãã®ãä¿®æ£ãã¦ä½¿ã£ã¦ãã¾ã # http://github.com/masak/csv/blob/master/lib/Text/CSV.pm # æ£è¦è¡¨ç¾ãã¾ã¨ãã grammar ï¼ã¯ã©ã¹ã®ä¸ç¨®ï¼ grammar CSV { regex TOP { ^ <line> ** \n <empty_line>? $ } regex line { <value> ** ',' } regex value { | <pure_text> | \s* \" <quoted_
ã±ã¼ã¿ã¤åãSNSãã¢ãã²ã¼ã¿ã¦ã³ãã§ç¥ãããDeNAã¯ãWebä¼æ¥ã¨ãã¦ã®å´é¢ã¯è¦ãã¥ãããPCåãã®ECãµã¤ãããªã¼ã¯ã·ã§ã³ãµã¤ããéå¶ãã¦ããããæ¯çã¨ãã¦å¤§ããã®ã¯ã±ã¼ã¿ã¤é¢é£äºæ¥ã ããã ããããããµã¼ãå´ãè¦ã¦ã¿ãã°ãmixiãlivedoorã¨åæ§ã®Webä¼æ¥ãPerlãMySQLã使ãããªãã¦ã¹ã±ã¼ã«ã¢ã¦ããããã¦ãã¦ã«é·ããã¨ã³ã¸ãã¢éå£ãæ±ãã¦ãããã¢ãã¤ã«åãOpenSocial対å¿ã®ãã©ãããã©ã¼ã ãã¢ãã²ã¼ãªã¼ãã³ãã©ãããã©ã¼ã ããå®è£ ãã2人ã®ã¨ã³ã¸ãã¢ã«è©±ãèããã ããªã¼ã¯ã·ã§ã³ãµã¤ãã®ãããã¼ãºãèªç©ºå¸è²©å£²ãµã¤ãã®Skygateã§ã¯Javaã使ããã¦ãã¾ããããã以å¤ã¯ã»ã¨ãã©Perlã§ããã ããèªãã®ã¯ãDeNAã®æ¨æç§å¤«æ°ï¼ã½ã¼ã·ã£ã«ã¡ãã£ã¢äºæ¥æ¬é¨ãã©ãããã©ã¼ã çµ±æ¬é¨ ã·ã¹ãã ã°ã«ã¼ãï¼ã ãã¢ãã²ã¼ã¯ãã¡ããããã¿ããªã®ã¦ã§ãã£ã³ã°ãããããã·ã¼
CGI.pmã¨UTF8 flag CGI.pmã¨use utf8ã¾ãã¯use encodingãä¸ç·ã«ä½¿ãã¨ã #!/usr/bin/perl use strict; use warnings; use utf8; binmode STDOUT, ":utf8"; my $q = CGI->new; print $q->header(-charset=>'utf-8'); print "ã" , $q->param('test'),"ããå ¥å\n"; ããã¯ãã¾ãåããªããtestã®é¨åãæååããããuse utf8ãbinmodeã®ä»£ããã« use encoding "utf8"; ã¨ãã¦ãåãã ãªããã¨è¨ãã°ã$q->param('test')ã®æ»ãå¤ããutf8 flagãoffããããã¯å¤ãªç¶æ ã§onã«ãªã£ã¦ããã®ãåå ã ã¨æãããuse utf8ã§ã¯flagã¯ãããªãããus
Perl ⺠here Perl5.8以éã«ãããæ¨æºçãªPerlã®æ¸ãæ¹ã解説ãã¾ãã ã¤ã³ã¿ã¼ãããã§æ¤ç´¢ããã¨Perl4ã®ããã®å¤ãè¨è¿°ãããããããã¾ããã¾ãæ¸ç±ãªã©ã®å¤ããPerl4ã®è¨æ³ã§æ¸ããã¦ãã¾ããPerl4ã®è¨æ³ã¯è¤éã«ãªããããééããçã¿ãããã®ã§ããããPerlãæ¸ã人ã¯Perl5ã®ç¾ä»£çãªè¨æ³ã§è¨è¿°ãããã¨ãå¼·ããå§ããã¾ãã strictãã©ã°ãã¨warningsãã©ã°ã (å¿ é ) strictãã©ã°ãã¨warningsãã©ã°ããæå¹ã«ãã¾ãã use strict; use warnings; use strict;ã¨use warnings;ã®ï¼è¡ã¯ã¹ã¯ãªããã®æåã«å¿ ãè¨è¿°ãã¦ãã ããããããã¯Perlã®ææ³ãã§ãã¯ãå³ããããããã®ãã®ã§ããé¢åã ã¨ãã軽ãæ°æã¡ã§ãããè¨è¿°ããªãã¨å¾ã æ¬å½ã«é¢åãªãã¨ã«ãªãã¾ãã use strict;ã¨use wa
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}