Quick Grungy Poster | Envato Tuts+Unlimited fonts, graphic templates, mockups, add-ons & more! Unlimited asset downloads! From $16.50/m
perl ã®ä½œæ³• #5 ディスパッãƒãƒ†ãƒ¼ãƒ–ルã®æ´»ç”¨ | ブãƒã‚°ãŒç¶šã‹ãªã„ã‚ã‘
ã„ããªã‚Šå…·ä½“例ã‹ã‚‰è¡Œã“ã†ã€‚sub coloring { my ($color, $data) = @_; my $ret; if($color eq 'black') { $ret = "<font color=Â¥"#000000Â¥">$data</font>"; } elsif ($color eq 'red') { $ret = "<font color=Â¥"#FF0000Â¥">$data</font>"; } elsif ($color eq 'green') { $ret = "<font color=Â¥"#00FF00Â¥">$data</font>"; } elsif ($color eq 'blue') { $ret = "<font color=Â¥"#0000FFÂ¥">$data</font>"; } elsif ($color eq 'white') { $ret = "<
perl - å‹æ‰‹ã«æ·»å‰Šã€€- 神経質（A型）ãªPerlãƒãƒƒã‚«ãƒ¼ã‚ã‚‹ã‚ã‚‹ : 404 Blog Not Found
2008å¹´03月14æ—¥12:45 カテゴリLightweight LanguagesTips perl - å‹æ‰‹ã«æ·»å‰Šã€€- 神経質（A型）ãªPerlãƒãƒƒã‚«ãƒ¼ã‚ã‚‹ã‚ã‚‹ ã‚ãã¾ã¸ã‚“ãªã‚。 神経質（A型）ãªPerlãƒãƒƒã‚«ãƒ¼ã‚ã‚‹ã‚ã‚‹ - D-6 [相変ã‚らãšæ ¹ç„¡ã—] if ($foo eq 'XXX' || $foo eq 'YYY')ã‚’ if ($foo =~ /^(XXX|YYY)$/) ã«æ›¸ãç›´ã—ãŸããªã‚‹ 速度的ã«ã‚‚ã€æ£è¦è¡¨ç¾ã‚ˆã‚Šã‚‚ eq || eq ã®æ–¹ãŒã„ã„å ´åˆãŒå¤šã„ã®ã‚ˆã€‚ #!/usr/local/bin/perl use strict; use warnings; use Benchmark qw/timethese cmpthese/; my @mongers = qw/dankogai dconway dmaki drolsky/; my %who = map { $_ => 1
ランã‚ング
ãŠçŸ¥ã‚‰ã›
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
Design & Illustration Courses and Tutorials | Envato Tuts+
{{#tags}}- {{label}}
{{/tags}}