Perl Quiz - Practice of Programming
ã“ã¡ã‚‰ã®å•é¡Œã€‚ http://d.hatena.ne.jp/gfx/20081007/1223340787 回ç”ãŒã™ã§ã«ã„ã‚ã„ã‚出ã¦ã‚‹ã‘ã©ã€‚ ã“ã‚Œã§ã€‚ #!/usr/bin/perl use strict; use Test::More 'no_plan'; sub f{ my $builder = Test::More->builder; my $out = $builder->output; print $out <<_TEST_; not ok 1 # Failed test at q.pl line 17. # got: '' # expected: 'Foo' _TEST_ $builder->output(*HOGE); sub Foo::DESTROY {$builder->output($out)} } f(); is ref(bless({}, 'Foo')), 'Foo
Perl Quizã§éŠã‚“ã§ã¿ã‚‹ - Unknown::Programming
Perl Quiz - packageåã«ã¤ã„㦠- Islands in the byte stream #!perl -w use strict; use Test::More 'no_plan'; sub f{ package main::Foo; } f(); is ref(bless({}, 'Foo')), 'Foo'; ã¨ã‹ #!perl -w use strict; use Test::More 'no_plan'; sub f{ package Foo; our @ISA = ('Foo'); } f(); is ref(bless({}, 'Foo')), 'Foo'; æ»ã¬ã®ã¯ç„¡ã—？ã§ã‚‚f関数ã§æ»ã¬ã‚ã‘ã˜ã‚ƒãªã„ã‹ã‚‰æœ‰ã‚Šï¼Ÿ #!perl -w use strict; use Test::More 'no_plan'; sub f{ }__END__ } f(); is
tokuhirom blog
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
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠- ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠以下ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’目処ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—を終了予定ã§ã‚る旨をãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019年末を目処ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æ供を終了ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã“ã®ãŸã³ã€æ£å¼ã«çµ‚了日を決定ã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”確èªãã ã•ã„。 終了日: 2020å¹´1月31æ—¥(金) エクスãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1月31æ—¥(金) 終了日以é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“。日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„。 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„㦠- ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã”利用ã®ã¿ãªã•ã¾ã«ã¯ã”迷惑をãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 追記 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2月28
Perl Quizã‚€ã¥ã‹ã—ã™ãŽã‚“ãžï¼ - Yappo::タワシ
Perl Quiz - packageåã«ã¤ã„㦠- Islands in the byte stream Q.以下ã®ãƒ†ã‚¹ãƒˆã‚±ãƒ¼ã‚¹ãŒå¤±æ•—ã™ã‚‹ã‚ˆã†ãªf()を書ã„ã¦ãã ã•ã„。ãŸã ã—，ライブラリを使用ã—ã¦ã¯ã„ã‘ã¾ã›ã‚“。回ç”ã¯ä¸€é€±é–“後ãらã„ã«ã€‚ #!perl -w use strict; use Test::More 'no_plan'; sub f{ # 何ã‹ã™ã‚‹ { package Foo::Encoding; sub cat_decode { my $self = shift; my(undef, undef, $idx, $quot) = @_; my ( $rdst, $rsrc, $rpos ) = \@_[ 0, 1, 2 ]; my $pos = $idx; while ((my $tmp = index $$rsrc, $quot, $pos) > 0) { $pos = $tm
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
PerlQuizã«ã“ãŸãˆã¦ã¿ãŸ - ã¯ã“ã¹ã«ã£ã ♨
Big Sky :: Perl Quiz ã«ç”ãˆã¦ã¿ã‚‹
wakaponã•ã‚“ã®è¶…☆Perl備忘帳: テストãªã‚“ã¦ç„¡ã‹ã£ãŸã“ã¨ã«
{{#tags}}- {{label}}
{{/tags}}