This domain may be for sale!
This domain may be for sale!
[Perl] ä½æããã¢ã¸ã¥ã¼ã«ãCPANã§å ¬éããæé ã®ã¨ã³ããªã¼ã¨id:yappoããã®ã¢ããã¤ã¹ã®å ãç¡äºã«ç³è«ãããã¨ãã§ãã¾ããã æ°æ¥å¾ã«ç³è«çµæãã§ããããããªãã¨ã®ãã¨ã§ãã ä¸çªå¤§åãªæå¾ã®é ç®ã®å 容ã«ã²ã©ããã¿çãªãã¨ãæ¸ãã¦ãã¾ã£ãã®ã§ããããå¢ãã§è½ã¨ãããããããã¾ããï¼ï¼ æé ã¯ä»¥ä¸ã®éãã§ãã 1.PAUSE: The CPAN back stage entranceã«ã¢ã¯ã»ã¹ããã 2.Request PAUSE accountãã¼ã¸å ã®ãã©ã¼ã ã«å¿ è¦äºé ãè¨è¼ããã Full name ãã«ãã¼ã ããã¼ãå Email ãã¹ã¯ã¼ããéã£ã¦ãããçºã®Emailã¢ãã¬ã¹ Web site CPANã«ã¢ãããã¼ãããæç¹ã§å ¬éããããå人WEBãµã¤ãã®URL Desired ID ftp://ftp.perl.org/pub/CPAN/authors/id/Y/
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
ããããé ããªãã¾ãããäºåéãå®å ¨çã®ä¸è¦§ãæ²è¼ãã¾ãããã®ãã¼ã¿ã¯åºæ¬çã«YAPCç´åã2008å¹´5æ15æ¥æç¹ã§ã®ãã®ã§ãããæããå¤æããworemacxããã®åã«ã¤ãã¦ã¯å ã»ã©ç®è¦ã§æ½åºãã¾ãããã»ãã®æ¹ã®YAPCå¾ã®æ´æ°ã«ã¤ãã¦ã¯åæ ããã¦ãã¾ããã®ã§ããããããäºæ¿ãã ããã ã¡ãªã¿ã«éå»ã®é¸æ権ã®çµæã¯nipotanããã®ãµã¤ãã«æ²è¼ããã¦ãã¾ãã 2006年度 2005年度 ã¨ããããã§ãããããã¦ãªãã¡ããããã¡ããåºã¦ãããããã¨ãªã ã¢ã¸ã¥ã¼ã«æ°5å以ä¸ã®é¨ éå»äºåã®é¸æ権ã§ã¯ã¢ã¸ã¥ã¼ã«æ°ã«ããåé¡ã¯ãªãã£ãã®ã§ããããã®ä¸è¦§ã®ãã¨ã«ãªã£ã¦ããCPANTSã®ä»çµã¿ä¸ãã¢ã¸ã¥ã¼ã«ç»é²æ°ã®å°ãªãæ°ããAuthorã®æ¹ãæå©ã«ãªãå´é¢ãããã®ã§ãä»åã¯æ¬å®¶CPANTSã®åé¡ã«ãããã£ã¦ã©ã³ãã³ã°ãåãã¾ãããYAPCå½æ¥ã«çºè¡¨ããã®ã¯ãã®ã°ã«ã¼ãã®ãã¹ã10ã§ãã表ã¯ã
Catalyst::Model::Adaptor - use a plain class as a Catalyst model è¦ã¯ã©ããªã¯ã©ã¹ã§ãCatalystã®ã¢ãã«ã«ãã¦ãããã¯ã©ã¹ã§ãã ãã¨ãã°ãããªã¯ã©ã¹ãä½ã£ã¦ lib/MyApp/DateTime.pm package MyApp::DateTime; use strict; use warnings; use base qw/DateTime/; use DateTime::Format::W3CDTF; sub now { my ($class, $args) = @_; $args->{time_zone} = 'local' unless $args->{time_zone}; return $class->SUPER::now(%$args); } sub parse { my ( $class, $str )
Perl/CPAN å ¥éWikiç®çPerlå¸æ CPANæ´»ç¨ã®ããã CPANã¢ã¸ã¥ã¼ã«ã®ãããCPANã¢ã¸ã¥ã¼ã«ãã¤ãããã°Perlã¯ä½ã§ãã§ãã¾ãã iPodãããããã¨ããOpenGLã§3Dã表示ãããã¨ããGUIã¢ããªãä½ããã¨ãã§ãã¾ããPHPãªãã¦ç®ããããã¾ããã ã§ãæ £ããªãã¨CPANã¯åããã¥ãããã©ããã£ã¦ä½¿ãã°ããã®ãããã©ã®ã¢ã¸ã¥ã¼ã«ã使ãã°ããã®ããåãããªãããã®ãããªCPANåå¿è ã®ãã¼ãã«ãç¡ããã®ãç®çã§ãã Perlèªä½ã®èª¬æã大æè¿ã§ãã ã³ã³ãã³ã説æ ããã ãã¾ãã CPANã®ä½¿ãæ¹ ActivePerlã®PPMããã ããããCPANã¢ã¸ã¥ã¼ã«ä¸è¦§ ããããã®ã¢ã¸ã¥ã¼ã«ä¸è¦§ã説æã¨ã使ãæ¹ã¨ã éå¼ãCPANã¢ã¸ã¥ã¼ã« ãããããã¨ããã¢ã¸ã¥ã¼ã«ãæ¢ã ãé¡ãæ°è¦åå ¥ãç¡ããªã£ããã³ãã¥ããã£ã¯çµããã ã¨æãã¾ãã (å°ãªãã¨ãæ¥æ¬ã®)Pe
ãã£ã¨CPANããã¥ã¼ãã¾ããããããªæãã§ãã ç»é²ãå ¬éã®æé ã¯ãå·å´ããã®ãã¼ã¸ã詳ããã¦ããããããã§ãã以ä¸ãæ¦è¦ãã¡ã¢ã PAUSEã¸ã¢ã«ã¦ã³ãç»é² PAUSEã«ã¦ã¼ã¶ç»é²ç³è«ããã è¾æ±å¼·ãå¾ ã¤ããWelcome new user XXXXXã ã£ã¦ã¡ã¼ã«ãè¿ã£ã¦ãããç»é²å®äº*1 (ãããªãã¦ãOK) Gravatar㧠[email protected] ã«å¯¾ãã¦ã¢ãã¿ã¼ãè¨å®ããã¨åçãè²¼ãã å®è£ ãã åç´ä½æãããã±ã¼ã¸ã³ã°ã«é¢ãã¦ã¯ç«¹è¿«ããã®è¨äºãåèã«ãªãã¾ããã ã¢ã¸ã¥ã¼ã«ã®åç´ãä½ãã(h2xsã¨ãmodule-starterã¨ãpmsetupã¨ã) t/*.t (ãã¹ã) ãå®è£ ã *.pm (å®ä½)ãå®è£ ã $VERSIONãè¨å® podãæ¸ã READMEãChangeLogãMANIFESTãæ¸ã (Build.PLã®å ´å)Makefile.PLãå¿ããã«æ¸
d:id:ZIGOROu:20070824:1187943710ã®ç¶ãã ã¡ãªã¿ã«ãã®ãã¯ãã³ã¡ã³ãã§ãå人æ å ±ããã¿ã«ãããã ä¸ããäºãid:nipotanãããçããæ¸ãã¦ã¾ããã 調ã¹ã¡ãã£ããï¼ï¼ï¼ï¼ï¼ URIã¢ã¸ã¥ã¼ã«ã®å ´å httpã¨è¨ãschemeã®å ´åã¯ãããããçµã¦URI::httpãªãã¸ã§ã¯ãã«ãªãã¾ãã URI::httpã£ã¦ããããªç¶æ¿ããªã¼ã«ãªã£ã¦ã¾ãã +-----+ +-------------+ | URI | | URI::_query | +-----+ +-------------+ \'-------v---\' +---------------+ | URI::_generic | +---------------+ | +--------------+ | URI::_server | +--------------+ | +----------
ã½ã¼ã¹ #!/usr/bin/perl use strict; use warnings; use URI; use URI::Escape qw(); local $\ = "\n"; my $uri = URI->new("http://d.hatena.ne.jp/ZIGOROu/"); $uri->query_form("key=a b c d e"); print $uri->query; print URI::Escape::uri_escape("key=a b c d e"); çµæ $ perl ~/tmp/uri.pl key%3Da+b+c+d+e= key%3Da%20b%20c%20d%20eãªã«ããããï¼ URI, URI::Escapeå ±ã«åããã£ã¹ããªãã¥ã¼ã·ã§ã³ãªã®ã«ã£ï¼
CSS::Parse::Packed ã¨ããã¢ã¸ã¥ã¼ã«ã CPAN ã« up ãã¾ããã®ã§ã使ãæ¹ãªããã解説ãããã¨æãã¾ããã¡ãªã¿ã« CPAN åç»é²ã§ããããµã 使ããã CSS ã¢ã¸ã¥ã¼ã«ã® parser ã®ã²ã¨ã¤ãªã®ã§ãCSS ã¢ã¸ã¥ã¼ã«ã®ä½¿ãããæºæ ã§ãã詳ãã㯠CSS ã¢ã¸ã¥ã¼ã«ã® POD ãªãããåç §ãã¦ãã ããã 以ä¸ããµã³ãã«ã§ãã #!/usr/bin/perl use strict; use warnings; use CSS; my @styles = ( q{body { background-color:#FFFFFF; font-size: 1em; }}, q{body { padding:6px; font-size: 1.5em; }}, ); my $css = CSS->new({ parser => 'CSS::Parse::Packed' }
å ã»ã©åæ ãããããã§ãããªãªã¼ã¹ãã¾ããã ä»åã¯çé¢ç®ã«ããã¥ã¡ã³ããæ¸ããã¤ãããªãã§ã詳細ã¯ããã¥ã¡ã³ãè¦ã¦é ãããã¨ã podããæç²ããã°ã use strict; use warnings; use MozRepl; my $repl = MozRepl->new; $repl->setup; ### You must write it. $repl->execute(q|window.alert("Internet Explorer:<")|); print $repl->repl_inspect({ source => "window" }); print $repl->repl_search({ pattern => "^getElement", source => "document"}); ãªãã¦æãã§ä½¿ãã¾ãã pluginã«ããæ¡å¼µãå¯è½ãªã®ã§ãããplugin
daemonã®èµ·å ä¸è¨ã®ããã«daemonã¨ãã¦èµ·åãã¾ãã daemonèµ·åãªãã·ã§ã³ã«é¢ãã¦ã§ãããPODã®è¨è¼ã¯èª¤ãã§--daemonizeã§ã¯ç¡ã--daemonã§ãã $ sudo gearmand --daemon --pidfile=/var/log/gearmand.pid --debug=1 é¢æ°ã®ç»é² 次ã«gearmanã«å®è¡ããããå¦çãäºãç»é²ããããã«job queãå¾ ã¡åããworkerãè¨è¿°ãã¾ãã #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use Gearman::Worker; use Storable qw(thaw); use List::Util qw(sum); my $worker = Gearman::Worker->new; $worker->job
Module::Pluggable import() ã¾ãModule::Pluggableã£ã¦ã®ã¯useæã«å種ãã©ã¡ã¼ã¿ãæå®ãã¦ä½¿ãã¢ã¸ã¥ã¼ã«ãªãã§ã ã¾ãã¯importã¡ã½ããããã sub import { my $class = shift; my %opts = @_; my ($pkg, $file) = caller; # the default name for the method is 'plugins' my $sub = $opts{'sub_name'} || 'plugins'; # get our package my ($package) = $opts{'package'} || $pkg; $opts{filename} = $file; $opts{package} = $package; my $finder = Module::Pluggabl
date 2007-04-02 14:05:29 category CPAN permlink here comment 0 trackback 0 ãããå¥éºã«ã¾ã¨ãã¦ãããã¨æã£ã¦ããã§ãããããæ©ä¼ãªã®ã§ãã®è¾ºãã§module-starterã®è©³ç´°ã¨ã«ã¹ã¿ãã¤ãºã«ã¤ãã¦æ¸ãã¦ã¿ã¾ãã ã¨ããã§ä»¥åModule::Starterã®pluginæ©æ§ãé¢ç½ã件ã«ã¤ãã¦ã¨è¨ãã¨ã³ããªãæ¸ããäºãããã®ã§ããããã¡ãã«é¢ãã¦é ã«å ¥ã£ã¦ããã¨ããç解ããããããããã¾ããã ååã¨ã¡ã¼ã«ã¢ãã¬ã¹ã®è¨å® æ¯åauthor, emailãæå®ããã®ãé¢åãªã®ã§ä¸è¨ã®ããã«è¨å®ãã¦ãã¾ãã¾ãããã ~/.module-starter/configã«è¨è¼ãã¾ãã author: Toru Yamaguchi email: [email protected] ããã§æ¬¡åãããã®ãã©ã¡ã¼ã¿ãæå®ããå¿ è¦ã¯ç¡ããª
åå¾ããçµæã map ãããgrepãã使ã£ã¦ãã«ããã«ããã¦ããããã§ããã© æ¤ç´¢ããã¨ãã«ã§ããªãããªã¨æãæ¸ãã¦ã¿ã¾ããã Friendãã¼ãã«ã¿ããã®ããã£ãã¨ã㦠my $friends = $schema->resultset('Friend')->search( {}, { '+select' => [ \ 'RAND() as rand', ], '+as' => ['rand'], cache => 1, page => 1, rows => 3, order_by => 'rand' } ãããªæãã§ã§ãã¾ããã +asã¯ãªãã¦ãããã§ããã©ããã¨ããªãã®ã§ããã ã¨ããã£ãã®ã§ããä»ããªãã¨ã«ã©ã ãããã¦ã¨ãã¦ãã¾ãã®ã§ ã¤ãã¾ããã çµæãããªã®ãåºã¾ã SELECT me.seq, me.name, RAND() as rand FROM FRIEND me O
ã¯ããã« ååã®ã¨ã³ããªã¯ãã¡ãã d:id:ZIGOROu:20061007:1160169000 ä»åã¯Componentã ãã«ãã©ã¼ã«ã¹ãå½ã¦ã¾ãã Componentã¨ã¯ä½ã åºæ¬çã«myapp_create.plã§ä½æããã¢ã¸ã¥ã¼ã«ã¯Componentã§ãã ããã§ä½ãããComponentã¯Catalyst::Controller, Catalyst::Model, Catalyst::Viewã¯ã©ã¹ã ãããã¯ãããã®æ´¾çã¯ã©ã¹ã§ããã¢ã¸ã¥ã¼ã«ã親ã¯ã©ã¹ã¨ããã¢ã¸ã¥ã¼ã«ã¨ãªãã¾ãã å¾ã£ã¦ãCatalystã®éçºã¯ã Pluginã«ãã$cã®æ¡å¼µ Componentã«ããå ·ä½å ãã¡ã¤ã³ã«ãªãã¨è¨ãã¾ãã ããä¸åº¦Componentã®å¦çããããã ã¨è¨ã訳ã§å度Catalyst->setup_components()ãè¦ã¦ã¿ã¾ãã sub setup_components
MyApp ãã OtherApp ã®ã¢ã¸ã¥ã¼ã«ãå¼ã³ããæã myapp.yml ã«ã¦ setup_components: search_extra: - OtherApp::Model ã®ããã«æ¸ãã¦ããã å®è¡æã« use lib ã«è¿½å ãã myapp_server.pl myapp_fastcgi.pl ããã㯠MyApp.pm ã« use lib "/path/to/OtherApp/lib ã追å ããã èµ·åæã«ã³ã³ãã¼ãã³ãã«è¿½å ãã¦ããã¾ããã ãµã³ãã«ã¨ãã§ä¾¿å©ããªã¨ããã
ååã®ã¨ã³ããªã®ç¶ãã§ãã 主ã«ä¸è¨ã®ãªã³ã¯å ãåèã«ã¤ã³ã¹ãã¼ã«ãã¦ãã¾ãã ããã¦æ¸ãããã§ããï½ http://mogilefs.schtuff.com/another_how_to_install_mogilefs_debian_sarge http://www.sixapart.jp/techtalk/2006/10/dev_mogilefs_install.html*1 storeå ã®ãã£ã¬ã¯ããªãä½æ # mkdir -p /var/mogdata/dev1 # mkdir -p /var/mogdata/dev2ã§ãã®dev1ã¨ãã¯å¾ã§åããã¾ãã databaseã®ä½æ ååsvnããåã£ã¦ãã人ã¯/trunk/serverã«ããmogdbsetupã使ãã¨ç°¡åã«åºæ¥ã¾ãã # mogdbsetup --help Usage: mogdbsetup [opts] Opti
ã©ã³ãã³ã°
ãç¥ãã
ã©ã³ãã³ã°
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}