ãã³ãã³ã§è©±ãèããInline::Perl5ã®å°è±¡ãå¼·ããã¦ãã£ããåå¨ãå¿ãã¦ããã®ã§ãããç¹ã«è¤éãªãã¨ãããã®ã§ãªããã°ãææ°ã®Rakudo Starã«å梱ããã¦ããDBIishã¨ããã¢ã¸ã¥ã¼ã«ã使ãã¨ãPerl5ã®DBIã¨åããããªæ¸ãæ¹ãã§ããããã«ãªã£ã¦ãã¾ãããã¨ãã°SQLiteã®ãã¼ã¿ãã¼ã¹ãæ±ãã®ã§ããã°ãRakudo Starã¨SQLiteã®ã©ã¤ãã©ãª(libsqlite3çãªãã®)ãã¤ã³ã¹ãã¼ã«ãããã¨ããããªã³ã¼ããæ¸ãã°OKã use v6; use DBIish; my $dbh = DBIish.connect("SQLite", :database, :RaiseError); $dbh.do("CREATE TABLE IF NOT EXISTS foo (id, text)"); my $sth = $dbh.prepare("INSERT INTO
2006å¹´01æ10æ¥15:56 ã«ãã´ãªLightweight Languages Perl6ã®Closure ç¨éã«é¢ãã¦ã¯æ¸ããå°½ãããã¦ãã¦ãã¾ãã¤ã£ãã¿ã©ããããªãã®ã§ãPerl6ã®Closureã(å)ç´¹ä»ããã naoyaã®ã¯ã¦ãªãã¤ã¢ãªã¼ - Perl ã®ã¯ãã¼ã¸ã£ ã¾ã ä»ã«ãããããããã¨æãã®ã§ãããã³ããæè¦ãã®ä»ãNDOã¡ã½ããã§ãå¾ ã¡ãã¦ããã¾ããä¾ãã°ã以ä¸ã®closureãèããã sub mk_prompt{ my $p = shift; return sub { print "$p:", @_, "\n" }; } 使ãæ¹ã¯ããã ã my $todo = mk_prompt( qq[ε(ãããã v ï¾Ïï¾) ] ); $todo->(42); ããããPerl6ã§ã¯ãããªãã sub mk_prompt($p) { sub { print "$p:",
2006å¹´01æ06æ¥01:33 ã«ãã´ãªLightweight Languages ããã°ã©ã è¨èªã®æèã®å·®ãã³ã¼ãã«åºãã? ããè¦ã¦æãåºããã®ãPerl6ã®Junctionã [ã] ããã°ã©ãã¼ã®æèã®å·®ãã³ã¼ãã«åºãã ãã¨ãåç´ã« if (buf[i] == '\r' || buf[i] == '\n') ã§æ¸ã¿ãããªã®ã«ãã³ããããã°ã©ãã³ã°ã®å½±é¿ãã if (memcmp(&buf[i], "\r", 1) == 0 || memcmp(&buf[i], "\n", 1) == 0) ã¨ãªã£ã¦ãããããªã ããã if (buf[i] == ("\r" || "\n")) ã¨ãæ¸ãããã©ããªã«ããããPerl6ã®Junctionã¯ã¾ãã«ãããå¯è½ã«ããä»çµã¿ã§ãPerl5ã¾ã§ã ã£ãã if ( $buf =~ /[\r|\n]$/ ) ã¨æ£è¦è¡¨ç¾ã使ã£ããã if ( $
ã©ã³ãã³ã°
ã©ã³ãã³ã°
ã©ã³ãã³ã°
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}