2011-01-01ãã1å¹´éã®è¨äºä¸è¦§
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠here MySQLã®ãã¼ã¿ãã¼ã¹ã®å·®åãããå·®åããªãããããªã³ãã³ããèªåçæãããã¼ã«ãæ¢ãã¦ããããMySQL::Diffã¨ããã¢ã¸ã¥ã¼ã«ãçºè¦ããããã®ã¢ã¸ã¥ã¼ã«ã«ã¯mysqldiffã¨ããã³ãã³ãã©ã¤ã³ãã¼ã«ãã¤ãã¦ããã®ã§ãé常ã¯ãã¡â¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here DBIx::Custom::Orderã¯ã©ã¹ãå©ç¨ããã¨order byå¥ãç°¡åã«è¨è¿°ãããã¨ãã§ãã¾ãããã¨ãã°ãããã©ã«ãã®é åºãæåã«æå®ãã¦ããã¦ãç¶æ³ã«å¿ãã¦é åºãã«ã¹ã¿ãã¤ãºãããã¨ãç°¡åã«ã§ãã¾ãâ¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here DBIx::Customã§ããã£ã«ã¿ãªã³ã°ããå©ç¨ããæ¹æ³ã解説ãã¾ãã ååã«ãããã£ã«ã¿ãªã³ã° DBIx::Customã§ã¯ååãæå®ãã¦å¤ããã£ã«ã¿ãªã³ã°ãããã¨ãã§ãã¾ãããã¼ã¿ãã¼ã¹ã«ãã¼ã¿ãéä¿¡ããâ¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here DBIx::Customã§ãåçã«whereå¥ã使ãããæ¹æ³ã解説ãã¾ãã åçãªWhereå¥ã®çæ DBIx::Customã§ã¯åçã«Whereå¥ãçæãããã¨ãã§ãã¾ãããã¨ãã°ãä¸ãããããã©ã¡ã¼ã¿ã«titleããå«ã¾ãã¦â¦
hypnotoadãµã¼ãã¼ã¯Mojoliciousã®æ¬çªç°å¢ã§ãããã¤ããããã«å©ç¨ãããããªãã©ã¼ã¯ãµã¼ãã¼ã§ãã éçºç°å¢ã§morboã§éçºãã¦ãã¦ãæ¬çªç°å¢ã§ã¢ããªã±ã¼ã·ã§ã³ãåããã¨ãã«ã¯ãã¿ã¤ã ã¢ã¦ãã«æ³¨æããå¿ è¦ãããã¾ãã hypnotoadã¯ããªãã©ã¼ã¯ãµã¼â¦
Perl ⺠Mojolicious Mojoliciousã¯IOç£è¦ã¨ãã¦IO::Pollãããã©ã«ãã§ã¯ä½¿ç¨ãã¾ãããããéãEVãå©ç¨ãããã¨ãã§ãã¾ããMojoliciousã¯EVãã¤ã³ã¹ãã¼ã«ããã¦ããã¨èªåçã«IOç£è¦ã§EVãå©ç¨ããããã©ã¼ãã³ã¹ãåä¸ãã¾ããEVã¯ä»ã®CPANã¢ã¸ã¥ã¼ã«ã¨â¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here DBIx::Customã®ããã¼ãã«ãã¨ãåãã®æ å ±ã調ã¹ãã¡ã½ãããç´¹ä»ãã¾ãã ãã¹ã¦ã®ãã¼ãã«ã®æ å ±ãé çªã«èª¿ã¹ã each_table ãã¹ã¦ã®ãã¼ãã«ã®æ å ±ãé çªã«èª¿ã¹ãã«ã¯each_tableã¡ã½ããã使ç¨â¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here æå¾ã«å®è¡ãããSQLãåå¾ãã - last_sql æå¾ã«å®è¡ãããSQLãåå¾ããã«ã¯last_sqlã¡ã½ããã使ç¨ãã¾ãã my $last_sql = $dbi->last_sql; ãããã°ãè¡ãã¨ãã«ä¾¿å©ã§ãã å®è¡ãããSQLã確â¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠here ãImagerãã¢ã¸ã¥ã¼ã«ã使ç¨ããã¨ãç»åã®ç·¨éããç°¡åã«ã§ãã¾ããTipsãç´¹ä»ãã¾ãã ãæ¥æ¬èªããæç»ãã Imagerã§æ¥æ¬èªãæç»ããã«ã¯æ¬¡ã®ããã«ãã¾ãã use strict; use warnings; use utf8; use Imager; my $img = Imageâ¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here DBIx::Customã§ãã¢ãã«ããå©ç¨ããæ¹æ³ã解説ãã¾ãã ã¢ãã«ãçæãã - create_model ã¢ãã«ã使ããã«ã¯create_modelã¡ã½ããã使ç¨ãã¾ãã $dbi->create_model( table => 'book', primaryâ¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here DBIx::Customã§ãSQLãçæãããããã®ã¡ã½ãããç´¹ä»ãã¾ãã selectæã§å©ç¨ããååãç°¡åã«çæãã - column selectæã§å©ç¨ããååã®é¨åãç°¡åã«çæããã«ã¯columnã¡ã½ããã使ç¨ãã¾ããâ¦
ã¡ã¤ã³ã¦ã¤ã³ãã¦ã®å¹ ã¨é«ããæå®ããã«ã¯g_wm_geometryã¡ã½ããã使ç¨ãã¾ãã # Width and height $mw->g_wm_geometry("600x300"); å¹ ã¨é«ãã¯ãå¹ xé«ããã¨ããå½¢å¼ã§æå®ãã¾ãã 表示ä½ç½®ãåæã«æå®ãããå ´åã¯æ¬¡ã®ããã«ãã¾ãã $mw->g_wm_geometâ¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here DBIx::Customã§ãè¡ããã§ãããããæ¹æ³ã解説ãã¾ãã è¡ããã§ãããã executeãselectã¡ã½ããã®æ»ãå¤ã¯DBIx::Custom::Resultãªãã¸ã§ã¯ãã§ããDBIx::Custom::Resultã¯ã©ã¹ã¯è¡ããã§ãããâ¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here SQLãå®è¡ããã«ã¯executeã¡ã½ããã使ç¨ãã¾ãã # Execute SQL my $result = $dbi->execute("select * from book"); æ»ãå¤ã¯DBIx::Custom::Resultãªãã¸ã§ã¯ãã§ãããã¹ã¦ã®è¡ãåå¾ããã«ã¯allâ¦
Perl ⺠ãã¼ã¿ãã¼ã¹ ⺠here (CentOS5.5, CentOS5.7ã§ç¢ºèª) Perlã¢ã¸ã¥ã¼ã«ã®DBD::Oracleãã¤ã³ã¹ãã¼ã«ããã®ã§ã¡ã¢ã DBD::Oracleãã¤ã³ã¹ãã¼ã«ããããã«ã¯ä»¥ä¸ã®ã©ã¤ãã©ãªãå¿ è¦ã§ããã oracle-instantclient11.2-basic-11.2.0.2.0.i386.rpm oracle-iâ¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠Text::CSV::Encoded æ¥æ¬èªãå«ãã CSVãã¡ã¤ã«ãæ±ãã«ã¯Text::CSV::Encodedã¢ã¸ã¥ã¼ã«ã使ç¨ãã¾ãã以ä¸ã«CSVãå¦çãããµã³ãã«ã示ãã¾ããã¹ã¯ãªããã¯UTF-8ã§ä¿åãã¾ãã use strict; use warnings; use utf8; use Text::CSV::Eâ¦
Perl ⺠Mojolicious Mojoliciousã®ã¿ã°ãã«ãã¼ã®ä¸è¦§ã§ãã ããã¹ããã£ã¼ã«ã text_fieldã¿ã°ãã«ãã¼ã使ãã¨ããã¹ããã£ã¼ã«ããç°¡åã«è¨è¿°ãããã¨ãã§ãã¾ãã <%= text_field 'first_name' %> <%= text_field first_name => 'Default name' %> <%= â¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠here Errnoã¢ã¸ã¥ã¼ã«ã使ç¨ããã°ãã·ã¹ãã ã®ã¨ã©ã¼çªå·ããããã宿°ãã¤ã³ãã¼ããããã¨ãã§ãã¾ãã use Errno qw/EAGAIN EINTR ECONNRESET EWOULDBLOCK/; ã¤ã³ãã¼ãã§ãã宿°ã®ç¨®é¡ã«ã¤ãã¦ã¯ãã¡ããåèã«ãã¦ãã ããã Unâ¦
form_forãã«ãã¼ã使ãã¨ãã©ã¼ã ãç°¡åã«è¨è¿°ãããã¨ãã§ãã¾ãã <%= form_for login => (method => 'post') => begin %> <%= text_field 'first_name' %> <%= submit_button %> <% end %> <%= form_for login => {foo => 'bar'} => (method => 'post') â¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠here Data::Pageã¢ã¸ã¥ã¼ã«ã¯ãã¼ã¸ã³ã°ã®å¦çã便å©ã«ããã¢ã¸ã¥ã¼ã«ã§ããå¿ è¦ãªæ å ±ãã³ã³ã¹ãã©ã¯ã¿ã«ä¸ããã¨ããã¾ãã¾ãªæ å ±ãåå¾ãããã¨ãã§ãã¾ãã use Data::Page; my $page = Data::Page->new($total_entries, $entries_pâ¦
Perl ⺠Mojolicious Mojolicious::Liteã§ãã¾ãã¾ãªã«ã¼ããè¨è¿°ãã¦ã¿ã¾ãããã GETã¡ã½ããã¨POSTã¡ã½ãã GETã¡ã½ããã«ããã/ãã¸ã®ã«ã¼ãã§ããGETã¡ã½ããã¯ãã¼ã¸ãåå¾ããã¨ããæ¤ç´¢ãè¡ãã¨ãã«å©ç¨ããããã¨ãå¤ãã§ãã # Via get method useâ¦
Perl ⺠Mojolicious Mojoliciousã«ããHello Worldã¢ããªã±ã¼ã·ã§ã³(hello.pl)ã¯æ¬¡ã®ããã«æ¸ãã¾ããMojoliciousã«å«ã¾ããMojolicious::Liteã¨ããã¢ã¸ã¥ã¼ã«ãå©ç¨ãã¾ãããã£ãã®3è¡ã§ããã²ã¨ã¤ã®å®å ¨ãªWebã¢ããªã±ã¼ã·ã§ã³ã«ãªã£ã¦ãã¾ãã use Mojolâ¦
Mojoliciousã¯åãªãPerlã®ã¢ã¸ã¥ã¼ã«ã§ãã®ã§ãä»ã®ã¢ã¸ã¥ã¼ã«ã®ã¤ã³ã¹ãã¼ã«ã¨åãããã«ã¨ã¦ãç°¡åã«ã¤ã³ã¹ãã¼ã«ãããã¨ãã§ãã¾ãã cpan Mojolicious Windowsã§Mojoliciousã試ãããã®ã§ããã°ããã§ååã§ããã(YAMLã®ã¨ã©ã¼ãã§ãå ´åã®å¯¾å¦æ³ãâ¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here ãã¼ã¿ãã¼ã¹ã¸æ¥ç¶ããã«ã¯connectã¡ã½ããã使ç¨ãã¾ãããã¼ã¿ãã¼ã¹ã¨ãã¦SQLiteã«æ¥ç¶ãã¦ã¿ã¾ãã my $dbi = DBIx::Custom->connect( dsn => "dbi:SQLite:dbname=bookshop" ); ãã¼ã¿ãã¼ã¹ã«â¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠ãã¼ã¿ãã¼ã¹ ⺠DBIx::Custom ⺠here DBIx::Customãã¤ã³ã¹ãã¼ã«ã«ã¯cpanã³ãã³ãã使ç¨ãã¾ãã cpan DBIx::Custom Windowsã§ãUnixç³»ã®OSã§ãã¤ã³ã¹ãã¼ã«ãããã¨ãã§ãã¾ããcpanã³ãã³ãã§ã¯ã«ã¼ã権éããªãã¤ã³ã¹ãã¼ã«ãè¡ããâ¦
Perl ⺠Mojolicious HTTPããããåå¾ããã«ã¯Mojo::Headersã¯ã©ã¹ã®headerã¡ã½ããã使ç¨ãã¾ãã my $x_forwarded_host = $headers->header('X-Forwarded-Host'); ã¾ãMojo::Headersã¯ã©ã¹ã«ã¯ä¸è¬çãªããããåå¾ããããã®ã·ã§ã¼ãã«ããã¡ã½ãããããâ¦
Perl ⺠Mojolicious Mojoliciousã§ãã©ã¡ã¼ã¿ã¼ã¨ãã£ãå ´åæ¬¡ã®ä¸ã¤ã®è¦ç´ ãå«ããã¨ãå¤ãã®ã§ãã¾ã次ã®ä¸ã¤ã®ãã®ã®åºå¥ããã¦ããã¾ãããã ã¯ã¨ãªæååã«å«ã¾ãããã¼ã¿ POSTã§éä¿¡ãããHTTPããã£ã«å«ã¾ãããã¼ã¿ URLã®ä¸ã§ãã£ããã£ããããã¼â¦
select_fieldãã«ãã¼ãå©ç¨ããã¨selectã¿ã°ã¨optionã¿ã°ãç°¡åã«è¨è¿°ã§ãã¾ãã <%= select_field country => [qw/ãã¤ã æ¥æ¬/] %> <%= select_field country => [['ãã¤ã' => 'de'], ['æ¥æ¬' => 'ja']] %> 以ä¸ã®ãããªHTMLã«å±éããã¾ãã <select name="country"> <option value="ãã¤ã">ãã¤ã</option> <option value="æ¥æ¬">æ¥</option></select>â¦
Perl ⺠Mojolicious ãã©ã¡ã¼ã¿ã¼ãããã·ã¥ãªãã¡ã¬ã³ã¹ã«å¤æããã«ã¯ãMojo::Parametersã¯ã©ã¹ã®to_hashã¡ã½ããã使ç¨ãã¾ãã my $hash_data = $params->to_hash; Mojolicious::Liteã®ãµã³ãã«ã§ãããã©ã¡ã¼ã¿ã¼(ã¯ã¨ãªæååãPOSTãã¼ã¿ãURLã®ä¸ã§â¦
Perl ⺠Mojolicious HTTPã¡ã½ãããåå¾ããã«ã¯Mojo::Message::Requestã¯ã©ã¹ã®methodã¡ã½ããã使ç¨ãã¾ãã my $method = $req->method; 以ä¸ã¯Mojolicious::Liteã§ã®ä¾ã§ããMojo::Message::Requestãªãã¸ã§ã¯ãã«ã¯Mojolicious::Controllerãªãã¸ã§ã¯ãâ¦