PerlCasual #4 (2011/4/28, æ± è¢ã¸ã¥ã³ã¯å )ã§è¡ã£ããã¼ã¯ã®ã¹ã©ã¤ãã§ãã åç»ãYouTubeã§å ¬éãã¦ããã®ã§ããããã¦ã覧ãã ãããhttp://youtu.be/kLt2aYN7UYE, http://youtu.be/xVC9pqCe8cE Read less

PerlCasual #4 (2011/4/28, æ± è¢ã¸ã¥ã³ã¯å )ã§è¡ã£ããã¼ã¯ã®ã¹ã©ã¤ãã§ãã åç»ãYouTubeã§å ¬éãã¦ããã®ã§ããããã¦ã覧ãã ãããhttp://youtu.be/kLt2aYN7UYE, http://youtu.be/xVC9pqCe8cE Read less
ä»æã®Perl使ãã®æ¹ã¯ããã¼ã¿ãã¼ã¹ã¢ã¯ã»ã¹ã«ã¯Class::DBIã使ã£ã¦ããã®ã§ããããï¼ ãã¯ã¯ä»äºæClass::DBIã使ããªããµã¼ãã¼ã§åããCGIãä½ããã¨ãå¤ãã®ã§ãä»ã§ãDBIã使ã£ã¦ãã¾ããClass::DBIãåå¼·ããªãããªãâ¦ã ããã¯ã¨ããããSELECTæã®çµæãããã·ã¥é åã§åå¾ããæ¹æ³ãæ¸ãã¦ã¿ã¾ãã ãã¼ã¸ã§ã³1.20ããå¤ãDBIã§ã¯ã$dbhããã¼ã¿ãã¼ã¹ãã³ãã«ãªãã¸ã§ã¯ãã¨ããå ´åmy $sql = 'SELECT id, name FROM test WHERE age < ?'; my $rows = $dbh->selectall_hashref( $sql, undef, 20 );ã®ãããªããã°ã©ã ã§$rows = [ { id => 1, name => 'aaaa' }, { id => 2, name => 'bbbb' }, ]
ã¯ããã« ãããã¹ããã¼ã¿ãããå°éç¨èªãåãåºãããã®Perlã¢ã¸ã¥ã¼ã«"TermExtract"ã解 説ãã¾ãã æ¥æ¬èªã®æç« ä¸ããåèªãåãåºãå®çªã®ã½ããã¨ãã¦ããè¶ç ãããæ¡å±±åããã ãã¾ããããã®ã¾ã¾å°éç¨èªã®æ½åºã«ä½¿ãã«ã¯æ¬¡ã®ï¼ã¤ã®åé¡ãããã¾ãã ã²ã¨ã¤ã¯ãè¤åèªã«å¯¾å¿ãã¦ããªããã¨ã§ããå°éç¨èªã®å¤ãã¯åèªãçµã¿åããã¦ã è¤éãªæ¦å¿µã表ããã¨ãå¤ããªãã¾ããç¹ã«ãè¶ç ãã®å ´åã¯åèªãåè©åä½ã§ç´°ãã åå²ããããããã®ã¾ã¾ä½¿ãã«ã¯é£ãããã¾ãã ããã²ã¨ã¤ã¯ãã©ã®ç¨èªãéè¦ã§ãããå¤æããä»çµã¿ãæããªããã¨ã§ãã ãã®åé¡ç¹ã解決ããã½ããã«æ±äº¬å¤§å¦ã»ä¸å·è£å¿ææã横æµå½ç«å¤§å¦ã» 森辰åå©ææãä½æãããå°éç¨èªèªåæ½åºã·ã¹ãã ããããã¾ãã ããã¯ãï¼ï¼ãè¶ç ãã®å½¢æ ç´ è§£æçµæãè¤åèªã«çµã¿ç«ã¦ãï¼ï¼ãã®è¤åèªï¼åèªã®å ´ åãããï¼ãéè¦åº¦ã®é«ãé ã«è¿ããã®ã§ãã
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
Algorithm::Diff ã§é¡ä¼¼æååæ¤ç´¢ 2008-04-22-3 [Algorithm][Programming] Perl ã®ã¢ã¸ã¥ã¼ã« Algorithm::Diff[2004-12-12-2]ã使ã£ã¦ãç·å½¢æéã§é¡ä¼¼æååæ¤ç´¢ãããµã³ãã«ããã°ã©ã ã ã¾ãã agrep ãããã°ããã§ãããã§ããã©ãã ãµã³ãã«ã³ã¼ã(ads.pl)ï¼ #!/usr/bin/perl use strict; use warnings; use Algorithm::Diff; use utf8; use Encode; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $key = shift; my @seq1 = split(//, decode('utf-8', $key)); while (<
2008å¹´04æ09æ¥01:00 ã«ãã´ãªLightweight Languages perl - Encode å ¥é ãã§ã«OSCONã§ãYAPCã§ãããã¡ãã¡ãã¡ãã¡ã§ãã®åºæ¬æ¹éã«é¢ãã¦ã¯è©±ããã®ã§ããããã 404 Blog Not Found ã§ãæ¹ãã¦ã Perl 㧠utf8 åãããã¨ãã«ã©ããããããã - TokuLog æ¹ã ã ã¾ã£ã¦ã³ã¼ããæ¸ãããã² å ¥ãå£ã§ decode ãã¦ãå é¨ã§ã¯ãã¹ã¦ flagged utf8 ã§æ±ããåºå£ã§ encode ãããããããã¹ã¦ã§ãï¼ã¨ã«ãããã®åºæ¬æ¹éãã¾ãã£ã¦ããã°å¹¸ãã«ãªãã¾ããããã§ã¯ãEUC-JPã§ã¨ã³ã³ã¼ãããããã¡ã¤ã«ä¸ã®ãå°é£¼å¼¾ãããããã ãããã³ã¬ã¤ãã³ããKogai Danããæ£è¦è¡¨ç¾ã§æ¸ãæãã¦æ¨æºåºåã«EUC-JPã§åºåããããã°ã©ã ãä¾ã«ã¨ã£ã¦èª¬æãã¾ãã decode() then encode(
2008å¹´03æ30æ¥19:45 ã«ãã´ãªLightweight Languagesä¸æ¥ä¸è¡éé perl - ã¯ã³ã©ã¤ãã¼ã®æ¸ãæ¹å ¥é ã¾ããruby ã®ã³ãã³ãã©ã¤ã³ãªãã·ã§ã³ã£ã¦ãPerlç±æ¥ã§ãããã Rubyã§ã¯ã³ã©ã¤ãã¼ãæ¸ãæ¹æ³ã®ã¾ã¨ã ã¾ããPerlããããããã¾ãéè¦ãç¡ãã®ããç¥ãã¾ãããã ã¨ããããã§ãRubyistã«ãå½¹ç«ã¤Perlã®ã¯ã³ã©ã¤ãã¼å ¥éã§ãã åºæ¬ä¸ã®åºæ¬ ã³ãã³ãã¨ãã¦ã®perlã¯ãã¹ã¤ããããªãå ´åãå¼æ°ã¯ã¹ã¯ãªããåã¨ãã¦æ±ããã¾ãã % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % ã³ãã³ãã©ã¤ã³ä¸ã®æååãã¹ã¯ãªããã¨ãã¦è§£éãããã«ã¯ã-eã使ãã¾ãã % perl -e 'print "Hello, World!\n"' Hello, worl
Net::Amazon ã®ã¡ã¢ 2006-10-17-2 [Programming] Perlã§ã¢ãã¾ã³Webãµã¼ãã¹ããããã¨ãã¯ã ãã¤ããLWP 㧠XML åã£ã¦ãã¦æ£è¦è¡¨ç¾ã«ãããã¿ã¼ã³ãããã XML::Simple ã使ã£ã¦ãã«ããã«ããã¦ãããã ãã©ã ãCPANã«ãããªã使ãããã£ã³ãã¼ã³ãä¸ãªã®ã§ã ãã¾ãããªãããæã¢ã«ãã¡ã®ã¼ã¯æ°ãæãä¸çªå¥½ããªPerlã¢ã¸ã¥ã¼ã«ã ã¨ãã¦æãã¦ãããã¨ã§ç¥ããã Net::Amazon ã試ãã¦ã¿ãã Cache::File[2006-10-17-1]ã¨é£æºã§ããã®ãå¬ãããã Michael Schilli / Net-Amazon-0.35 - search.cpan.org http://search.cpan.org/~mschilli/Net-Amazon-0.35/ ã¨ããã§ãlocale ã jp ã«ããã¨ãçºå£²æ¥(
iTunes ã§è´ãã¦ãæ²ã« Amazon ã¢ãã£ãªã¨ã¤ããã¦ããã«ç»åã Hacking the Hack #92: iTunes COM API ã§ä»èãã¦ããæ²ã Blog ã¨ã³ããªã«æ²è¼: blog.bulknews.net Blog Hacks Hack #92 ã§ã¯ãWinamp ã¨ãã®ãã©ã°ã¤ã³ amip ã使ç¨ãã¦ãä»èãã¦ããæ²ãã¨ã³ããªã«è¿½è¨ããæ¹æ³ãç´¹ä»ãã¦ãã¾ãããiTunes ã®å ´å㯠COM ãå©ç¨ãã¦ãã£ã¨ã¹ãã¼ãã«ã§ãã¾ãã ææ°ããã®ãªã¯ã¨ã¹ãã§ããã«ã¢ã¼ãã¯ã¼ã¯ãã²ãã£ã¦ã㦠Amazon ã¢ãã£ãªã¨ã¤ããªã³ã¯ãã¤ãã¦ã¿ãã ActivePerl 㧠Net::Amazon ãå¿ è¦ãç°å¢ãç¨æã§ããªãå ´åã¯ãJScript çã§éã URL ããG-Tools ã¨ã amazlet ã¨ãã®æ¤ç´¢ãã©ã¼ã ã«ãã¦ãã¾ãã®ãæã£åãæ©ããããä½ã¹ããããå¢ãã¦ã
2007å¹´01æ24æ¥17:00 ã«ãã´ãªä¸æ¥ä¸è¡ééLightweight Languages perl - comm(1)ã¾ãã¯uniq -(d|u) ããã£ã¦Perlã®ä¸è¡éé㧠-- ããP1(ry ã¡ã¢å¸³ - uniq ã® -d 㨠-u åå¨æ義ãããããªãã£ããªãã·ã§ã³ã®ä½¿ãéãè¦ã¤ããã¨ãã¯å¦ã«æåãããa, b ã«å ±éãªè¡ãæãåºã perl -nle '$l{$_}++;END{$l{$_}>1 and print for keys %l}' a b ENDãããã¯ã¯ãã使ãã¨ããä¾ã«ããªã£ã¦ãã¾ãã a ã«ã ãå«ã¾ããè¡ãæãåºã -- å¼æ°ã®é åºã«æ³¨æ perl -nle 'if(@ARGV){$l{$_}++}else{print unless $l{$_}}' b a Perlã§<>ã使ãã¨ãã«ã¯ãã¾ã èªã¾ãã¦ããªããã¡ã¤ã«åã@ARGVã«å ¥ã£ã¦ãã¾ããããã空
2007å¹´7æ22æ¥ YAPC::NAã¡ã¢2æ¥ç®ï¼How I Learned to Stop Worrying and Love Email::: The 2007 PEP Talk!ï¼ã¡ã¼ã«é¢ä¿ã®Perlã¢ã¸ã¥ã¼ã«ã«ã¤ãã¦ï¼ ã¿ã¤ãã«ã¯æ ç»ã®ãDr. Strangelove, or: How I Learned to Stop Worrying and Love the Bombãã®ãããããã¬ã¼ã³ãã¼ã·ã§ã³è³æããã è¬æ¼ã®ä¸ã§è§¦ãããã¦ããããã©ã¡ã¼ã«é¢ä¿ã®Perlã¢ã¸ã¥ã¼ã«ã¯æ°ãå¤ããã¦ãããããããªãããã®ãããã¯CPANã®æ§é çãªåé¡ã ã¨ãæããã©ãããªãè¦éããè¯ããªã£ãã Perl Email Project ãã¨ãã¨Email::*ãã¤ããããã¸ã§ã¯ãã ã£ã å¤ãã¢ã¸ã¥ã¼ã«ã®ã¡ã³ããã³ã¹ãããã¸ã§ã¯ãã®è¦éã«å ¥ã£ã¦ãã Email::Simpleã¨Email::MIME
Today I've been thinking about what to talk in YAPC::EU (and OSCON if they're short of Perl talks, I'm not sure), and came up with a few hours of hacking with web-content scraping module using Domain Specific Languages. 使ã£ã¦ã¿ãã! #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use URI; use Web::Scraper; use Encode; use List::MoreUtils qw/uniq/; my $links = scraper { process 'a.key
ã¯ã¦ãªã°ã«ã¼ãã®çµäºæ¥ã2020å¹´1æ31æ¥(é)ã«æ±ºå®ãã¾ãã 以ä¸ã®ã¨ã³ããªã®éããä»å¹´æ«ãç®å¦ã«ã¯ã¦ãªã°ã«ã¼ããçµäºäºå®ã§ããæ¨ããç¥ãããã¦ããã¾ããã 2019å¹´æ«ãç®å¦ã«ãã¯ã¦ãªã°ã«ã¼ãã®æä¾ãçµäºããäºå®ã§ã - ã¯ã¦ãªã°ã«ã¼ãæ¥è¨ ãã®ãã³ãæ£å¼ã«çµäºæ¥ã決å®ãããã¾ããã®ã§ã以ä¸ã®éãã確èªãã ããã çµäºæ¥: 2020å¹´1æ31æ¥(é) ã¨ã¯ã¹ãã¼ãå¸æç³è«æé:2020å¹´1æ31æ¥(é) çµäºæ¥ä»¥éã¯ãã¯ã¦ãªã°ã«ã¼ãã®é²è¦§ããã³æ稿ã¯è¡ãã¾ãããæ¥è¨ã®ã¨ã¯ã¹ãã¼ããå¿ è¦ãªæ¹ã¯ä»¥ä¸ã®è¨äºã«ãããã£ã¦æç¶ãããã¦ãã ããã ã¯ã¦ãªã°ã«ã¼ãã«æ稿ãããæ¥è¨ãã¼ã¿ã®ã¨ã¯ã¹ãã¼ãã«ã¤ã㦠- ã¯ã¦ãªã°ã«ã¼ãæ¥è¨ ãå©ç¨ã®ã¿ãªãã¾ã«ã¯ãè¿·æãããããããã¾ãããã©ãããããããé¡ããããã¾ãã 2020-06-25 è¿½è¨ ã¯ã¦ãªã°ã«ã¼ãæ¥è¨ã®ã¨ã¯ã¹ãã¼ããã¼ã¿ã¯2020å¹´2æ28
use strict ãã©ãã®ããã®ã¨ãã話ããã£ã¦ãããããã°æèªåããããªãã¨æ¸ãããªãã¨æã£ã¦ããããèªåã®æ¸ãã Perl ã®è©±ãè¦è¿ãã¦ã¦ããã£ããã ããæä½ã®ã¾ã¨ãã§ãä½ã£ã¦ãããã¨æãã¾ãããã¨ããããæç« éããããªãã«ãã£ã¦ãã¾ã¨ã¾ãã®ãããã®ã ããè¦ç¹ã£ã¦ã¿ã¾ãã ä»è¦ãã¨ãå½æã®ç解ãä¸ååã§å¾®å¦ãªã¨ããããã£ãããã¾ããããã®ãããã¯ãæå¬ã ãã¾èªãã§ãã¾ã é³è åã¯ãã¦ãªããããªè©± ãè¦ãã® Perl æ¬ãããã¤ãç´¹ä» : NDO::Weblog Perlããããã®æ¸ç±ãæ å ±ãä»ãªãããã«Perlæå½ç æ£ã¨WEB+DB PRESSç·éç·¨ãå ¥ããããªã Perlããã°ã©ãã®ã¬ãã«10 - Perlããã°ã©ãã³ã°æå½ç æ£ãã - naoyaã®ã¯ã¦ãªãã¤ã¢ãªã¼ Perlããã°ã©ãã®ã¬ãã«10ããªããä»è¨èªã«ãé£ã³ç«ããã Perl ã®å¤æ°ã«é¢ããã¡ãã£ã¨ãã誤解ã¨ãåçãª
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}