[B! mycomment] fbisã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

fbis id:fbis

mycommentã«é–¢ã™ã‚‹fbisã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (70)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

__PACKAGE__ã‚’ä½¿ã‚ãªã„æ–¹ãŒã‚ˆã„ã¨ã - walf443's blog
ä¸€æ™‚æœŸç¤¾å†…ã§bless {}, __PACKAGE__ãŒæµè¡Œã£ã¦ã„ã¦ã€ã“ã®ã‚„ã‚Šæ–¹ã¯ç¶™æ‰¿ã—ãŸéš›ã«å•é¡ŒãŒã‚ã‚‹ã®ã§ä½¿ã‚ãªã„æ–¹ãŒã‚ˆã„ã‚“ã˜ã‚ƒãªã„ã§ã™ã‹ãã¨ã„ã†ã“ã¨ã§å•é¡Œã«ãªã‚‹ã‚±ãƒ¼ã‚¹ã‚’ã‚ã’ã¦ã¿ã‚‹ã€‚ package Foo; sub new { bless {}, shift; } sub call_foo { my $self = shift; return __PACKAGE__; } package Bar; use base qw(Foo); sub call_bar { my $self = shift; return ref $self; } package Hoge; sub new { bless {}, __PACKAGE__; } sub shared_method { return "Hoge"; } package Fuga; use base qw(Hoge); sub fug
fbis 2010/03/31
perl

mycomment
ãƒªãƒ³ã‚¯
ãƒ¡ãƒ¼ãƒ«ã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’ãƒ‰ãƒ¡ã‚¤ãƒ³æ¯Žã«åˆ†ã‘ã¦ã‚½ãƒ¼ãƒˆ - gosshujinâ€™s blog
æ²¢å±±ã®ãƒ¡ãƒ¼ãƒ«ã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’ã€ãƒ‰ãƒ¡ã‚¤ãƒ³æ¯Žã«ã‚½ãƒ¼ãƒˆã—ãŸã„å ´åˆã®å‡¦ç†ã‚’Perlã§æ›¸ã„ã¦ã¿ãŸã€‚ #!/usr/bin/perl -w use strict; use warnings; my @maddr_list = ( '[email protected]', 'aaa@yahoo.co.jp', 'bbb@yahoo.co.jp', 'ccc@gmail.com', 'bbb@softbank.ne.jp', 'ccc@yahoo.co.jp', '[email protected]', 'aaa@softbank.ne.jp', 'ccc@docomo.ne.jp', 'bbb@gmail.com', 'ccc@softbank.ne.jp', '[email protected]', 'ccc@ezweb.ne.jp', '[email protected]', 'aaa@gmail.com', );
fbis 2009/10/15
perl

mycomment
ãƒªãƒ³ã‚¯
if ã¨ exists ã¨ my ã¨ delete ã‚’ 1 è¡Œã§è¡¨ç¾ã™ã‚‹ - Craftworks Tech Blog - Branch
æ®µéšŽçš„ã«ã“ã†æ›¸ãã¨ã“ã‚ã‚’ if ( exists $hashref->{'key'} ) { my $value = $hashref->{'key'}; delete $hashref->{'key'}; do something... } key ã®å‰Šé™¤ã‚’å…ˆã«è¡Œã£ã¦ã‚‚å•é¡Œãªã‘ã‚Œã°ã€ã¾ã¨ã‚ã¦ã“ã†æ›¸ãã“ã¨ã‚‚å‡ºæ¥ã¾ã™ã€‚ if ( my $value = delete $hashref->{'key'} ) { do something... } ãƒãƒ¼ãƒ é–‹ç™ºãªã©ã§ã¯ä¸‹è¨˜ã®æ›¸ãæ–¹ã¯å‡¦ç†ãŒä¸€ç›®ã§åˆ¤ã‚Šã«ãã„ã®ã§é¿ã‘ãŸæ–¹ãŒè‰¯ã„ã§ã™ãŒã€ã²ã¨ã¤ã®çŸ¥è˜ã¨ã—ã¦ã€‚
fbis 2009/06/26
perl

mycomment
ãƒªãƒ³ã‚¯
ã¼ããŒ DBI ã‹ã‚‰ DBIx::Class ã«ç§»è¡Œã—ãŸç†ç”± - ç†ç³»å¦ç”Ÿæ—¥è¨˜
2009-06-18 ã“ã®è©±ã§ã€ã¨ã‚Šã‚ãˆãš MySQL ä½¿ã£ã¦ã¿ã£ã‹ã£ã¦ã“ã¨ã«ãªã£ã¦ã€æœ€åˆã¯ DBI ã‚’ä½¿ã£ã¦ã‚¢ã‚¯ã‚»ã‚¹ã—ã¦ãŸã‚“ã§ã™ã‘ã©ã€ãã®éƒ¨åˆ†å…¨éƒ¨æ¶ˆã—ã¦ã€DBIx::Class ä½¿ã£ãŸã‚¢ã‚¯ã‚»ã‚¹ã«æ›¸ãæ›ãˆã¾ã—ãŸã€‚ åˆ¥ã« DBI ã§ã‚‚è‰¯ã„ã ã‚ã£ã¦æ€ã£ã¦ãŸã‚“ã§ã™ã‘ã©ã€ãã‚Œã§ã‚‚ä¹—ã‚Šæ›ãˆãŸã®ã¯ã€ç”Ÿã§ SQL ã‚’æ›¸ãã®ãŒã‚«ãƒƒã‚³ã‚ã‚‹ã„ã¨ã‹ã„ã†ç†ç”±ã§ã‚‚ãªãã€ãƒ¡ãƒ³ãƒ†ãƒŠãƒ³ã‚¹æ€§ãƒ»æŸ”è»Ÿæ€§ãŒä¹ã—ã„ã‚ˆãã£ã¦ç†ç”±ã§ã‚‚ãªãã€IN å¥ã§å¤‰æ•° bind ã—ã«ãã„ã‚ˆãã£ã¦æ€ã£ãŸã‹ã‚‰ã§ã™ã€‚ IN å¥ã«ä½•å€‹æŒ‡å®šã™ã‚‹ã‹å®Ÿè¡Œæ™‚ã«ãªã‚‰ãªã„ã¨åˆ†ã‹ã‚‰ãªã„ã®ã«ã€bind ã™ã‚‹å¤‰æ•°ã®æ•°ã‚’ã‚ã‚‰ã‹ã˜ã‚æ±ºã‚ã‚‹ã®ã£ã¦ã¤ã‚‰ã„ã‚ˆãªãƒ¼ã£ã¦æ€ã„ã¾ã—ãŸ*1ã€‚ "SELECT name, age FROM people WHERE name IN (?,?)" # two names ã‚‚ã—ã‹ã—ã¦ã€ãªã‚“ã‹è‰¯ã„æ–¹æ³•ã‚ã‚‹ã®ã‹ãªã€‚ãªã„ã®ã‹ãªã€‚ *1:ã‚‚ã¡ã‚ã‚“å®Ÿè¡Œæ™‚ã«ã€'
fbis 2009/06/22
perl

mycomment
ãƒªãƒ³ã‚¯
Perlã§+ã‚’ä½¿ã†ã¨å¹¸ã›ã«ãªã‚Œã‚‹ã‚ˆ (*Â´Ð”`)ï¾‰ - (ï¾Ÿâˆ€ï¾Ÿ)oå½¡ sasata299's blog
2009å¹´06æœˆ12æ—¥00:04 Perl Perlã§+ã‚’ä½¿ã†ã¨å¹¸ã›ã«ãªã‚Œã‚‹ã‚ˆ (*Â´Ð”`)ï¾‰ use constant ã‚’ä½¿ã£ã¦ã€ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚’å®šæ•°ã¨ã—ã¦å®£è¨€ã™ã‚‹ã¨ãã£ã¦ãŸã¾ã«ã‚ã‚Šã¾ã™ã‚ˆãã€‚ã“ã†ã„ã†å€¤ã‚’ãƒ‡ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã™ã‚‹ã«ã¯ã©ã†ã—ã¦ã„ã¾ã™ã‹ï¼Ÿï¼Ÿåƒ•ã¯ã“ã†ã—ã¦ã„ã¾ã—ãŸï¼žï¼œ #!/usr/bin/perl use strict; use warnings; use constant DATA => { aaa => 1, bbb => 2, ccc => 3, }; my $data = DATA; print join " ", keys %{$data}; # aaa bbb ccc ä¸€åº¦å¤‰æ•°ã«å€¤ã‚’å…¥ã‚Œã‚‹ã‚ãŸã‚Šã€ä½•ã‹ã„ã¾ã„ã¡ã§ã™ãã€‚ã€‚ã€‚ã“ã®è§£æ±ºç–ã‚’å®Ÿã¯ä»Šæ—¥ãŸã¾ãŸã¾ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°Perlã‚’èªã‚“ã§ã„ã¦ç™ºè¦‹ã—ã¾ã—ãŸã€‚ã“ã‚“ãªé¢¨ã«+ã‚’å®šæ•°ã®å‰ã«ä»˜ã‘ã¦ã‚ã’ã‚Œã°ã€æ–‡å—åˆ—ã§ã¯ãªãå®šæ•°å®£è¨€ã•ã‚ŒãŸå€¤ã ã¨åˆ¤æ–ã—
fbis 2009/06/12
perl

mycomment
ãƒªãƒ³ã‚¯
[perl] è¤‡é›‘ãªãƒ‡ãƒ¼ã‚¿æ§‹é€ ã®value ã‚’ä¸€æ°—ã«æ›¸ãæ›ãˆã‚‹æ–¹æ³• - harupiyoã®æ—¥è¨˜
ãƒãƒƒã‚·ãƒ¥ã¨é…åˆ—ã®å‚ç…§ãŒå…¥ã‚Šäº¤ã˜ã£ãŸã‚ˆã†ãªè¤‡é›‘ãªãƒ‡ãƒ¼ã‚¿æ§‹é€ ã®ã€å…¨value ã‚’å‡ç‰ã«åŠ å·¥ã—ãŸã‹ã£ãŸã®ã§æ¬¡ã®æ§˜ã«ã—ã¦ã¿ã¾ã—ãŸã€‚ use strict; use Perl6::Say; use Data::Dumper; sub cook_hash { my ( $rh, $rf_cook ) = @_; my %tmp; for ( keys %$rh ) { if ( ref $rh->{$_} eq '' ) { $tmp{$_} = $rf_cook->( $rh->{$_} ); # ã“ã“ã§åŠ å·¥ã‚’å®Ÿè¡Œ } elsif ( ref $rh->{$_} eq 'HASH' ) { $tmp{$_} = cook_hash( $rh->{$_}, $rf_cook ); } elsif ( ref $rh->{$_} eq 'ARRAY' ) { $tmp{$_} = cook_array(
fbis 2009/06/10
perl

mycomment
ãƒªãƒ³ã‚¯
Perlã§è¤‡æ•°ã®å€¤ã¨ã®ä¸€è‡´ã‚’èª¿ã¹ã‚‹ - ãã‚ˆã²ã“ã‰ï¼ã®æ—¥è¨˜
23:18ä»•äº‹ã§Perlä½¿ã£ã¦ã¾ã™ãŒã€æ”¿æ²»çš„ã‹ã‚‚ã—ã‚Œãªã„ç†ç”±ã§CPANä½¿ãˆã¾ã›ã‚“ã€‚ãªã®ã§ã€1ã‹ã‚‰ä½•ã§ã‚‚ä½œã‚‹ã—ã‹ãªã„ã®ã§CPANã«ä½•ãŒã‚ã‚‹ã¨ã‹å…¨ç„¶çŸ¥ã‚‰ãªã„é¦¬é¹¿è€…ãŒãŠé€ã‚Šã—ã¾ã™ã€‚ã“ã®ç¨‹åº¦ã ã£ãŸã‚‰å½“ç„¶ã©ã“ã‹ã«ã‚ã‚Šã¾ã™ãã€‚ã¾ã‚ã•ã£ãæš‡ã¤ã¶ã—ã«è‡ªåˆ†ã§è€ƒãˆã¦ã¿ãŸã ã‘ã§ã™ã€‚ã•ã¦ã€‚Perlã§ã€ã“ã†ã„ã†æ›¸ãæ–¹ã¯ä½•ã¨ã‹ãªã‚‰ã‚“ã‚‚ã®ã‹ï¼Ÿif ($x == 1 or $x == 2 or $x == 3) {Â Â Â Â ä½•ã‹ã®å‡¦ç†;}ã¨æ€ã£ãŸã®ã§ã€if ($x in (1, 2, 3)) {Â Â Â Â ä½•ã‹ã®å‡¦ç†;}ã¿ãŸã„ãªã“ã¨ã‚„ã‚ŠãŸã„ãªã€ã¨æ€ã£ãŸã‚“ã§ã™ãŒã€inã‚’æ¼”ç®—åã¨ã—ã¦æ‰±ã†æŠ€ã‚’çŸ¥ã‚‰ãªã„ã®ã§ã€if (match($x, (1, 2, 3)) {Â Â Â Â ä½•ã‹ã®å‡¦ç†;}ã§å¦¥å”ã—ã¦ã‚³ãƒ¼ãƒ‰è€ƒãˆã¾ã—ãŸã€‚å†å¸°ã¨whileãƒ«ãƒ¼ãƒ—ã®2ãƒ‘ã‚¿ãƒ¼ãƒ³ã€‚ã©ã£ã¡ãŒåŠ¹çŽ‡ã„ã„ã®ã‹ã¯ã‚ˆã†ã‚ã‹ã‚Šã¾ã›ã‚“ãŒã€æœ€è¿‘ãŠã„ã‚‰ã®ä¸ã§ã¯SchemeãŒæµè¡Œã£ã¦ã‚‹ã®ã§ã€å…ˆ
fbis 2009/06/04
perl

mycomment
ãƒªãƒ³ã‚¯
Perlã§ã¯ã¾ã£ãŸ - miyohide's blog
ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã§å¼•æ•°ã‚’å–å¾—ã™ã‚‹ã¨ãã€@_ã‹ã‚‰å–å¾—ã™ã‚‹ã£ã¦ã“ã¨ã‚’çŸ¥ã£ã¦ã€å–œã³å‹‡ã‚“ã§ä½¿ã£ã¦ã¿ã¾ã—ãŸã€‚ $arg="aaa"; hoge($arg); sub hoge { my $arg = @_; print $arg . "\n"; } ã“ã‚Œã ã¨ã€"aaa"ãŒè¡¨ç¤ºã•ã‚Œãšã«1ãŒè¡¨ç¤ºã•ã‚Œã‚‹ã€‚ãªã€ãªã‚“ã§ã€œã£ã¦æ‚©ã¿ç¶šã‘ã‚‹ã“ã¨æ•°æ™‚é–“ã€‚ å®Ÿéš›ã«ã¯ã€myã®æ‰€ã«æ‹¬å¼§ãŒå¿…è¦ã§ã—ãŸã€‚å…·ä½“çš„ã«ã¯ã€ $arg="aaa"; hoge($arg); sub hoge { my ($arg) = @_; print $arg . "\n"; } ã£ã¦ãªæ„Ÿã˜ã§ã€‚ @_ã¯ãƒªã‚¹ãƒˆãªã®ã§ã€å—ã‘å–ã‚Šå´ã‚‚ãƒªã‚¹ãƒˆã§ãªã„ã¨é§„ç›®ã‚ˆã£ã¦ã“ã¨ã‹ãªã€‚ãŸã¶ã‚“ã€‚
fbis 2009/06/03
perl

mycomment
ãƒªãƒ³ã‚¯
é…åˆ—ã®ç©ºè¦ç´ ã‚’å‰Šé™¤ã—ã¦åˆ‡ã‚Šè©°ã‚ã‚‹ã€‚ - Code is beautiful
PHPã§é…åˆ—ã®ç©ºè¦ç´ ã‚’å‰Šé™¤ã—ã¦åˆ‡ã‚Šè©°ã‚ãŸã„æ™‚ã€‚ $in = array("", "", "a", "", "b", "c", ""); $out = array_merge(array_diff($in, array(""))); è¦ã¯array_diff()ã§ç©ºè¦ç´ ã¨ã®å·®åˆ†ã‚’å–ã‚Šã€ãã®ã¾ã¾ã ã¨æ·»å—ãŒç¶æŒã•ã‚ŒãŸã¾ã¾ãªã®ã§array_merge()ã§æ·»å—ã‚’æŒ¯ã‚Šç›´ã™ã¨ã€‚ Perlã§array_diff()ã¯ç„¡ã•ã’ã ã‘ã©ã€æ™®é€šã«ã“ã‚Œã§è¡Œã‘ã‚‹ã¯è¡Œã‘ã‚‹ã€‚ my @out = (); my @in = ("", "", "a", "", "b", "c", ""); for($i = 0; $i < @in; $i++) { if($in[$i] ne "") { push(@out, $in[$i]); } }
fbis 2009/06/01
perl

mycomment
ãƒªãƒ³ã‚¯
å¤§èˆªæµ·æ™‚ä»£Onlineã‚’ç”ŸãæŠœãä¸Šã§ - tech-log æŽ§ãˆå®¤æ”¹ã‚ ã‚ã‚Šã‚“ãtech-log
fbis 2009/04/09
perl

mycomment
ãƒªãƒ³ã‚¯
ãƒãƒƒã‚·ãƒ¥ã«é…åˆ—ã‚’æ ¼ç´ã™ã‚‹ - ãƒ—ãƒã‚°ãƒ©ãƒžã§ã‚ã‚ŠãŸã„
OOå½¢å¼ã§ä½œã‚‹æ™‚ã«ã€ãƒ‡ãƒ¼ã‚¿ãƒ¡ãƒ³ãƒã®ä¸èº«ã«é…åˆ—ã‚’å…¥ã‚ŒãŸã„æ™‚ãŒç¨€ã«ã‚ã‚Šã¾ã™ã€‚æ…£ã‚Œã¦ã„ãªã„ã¨å‰²ã¨æ‚©ã¿ã¾ã™ã€‚ä½¿ã£ã¦ã„ãªã„ã¨ã™ãå¿˜ã‚Œã¾ã™ã€‚ï¼ˆâ†ä»Šã“ã®çŠ¶æ…‹ã€‚ï¼‰æ€ã„å‡ºã—ãŒã¦ã‚‰ã«ãƒ¡ãƒ¢ã€‚ Perlã‚¯ãƒƒã‚¯ãƒ–ãƒƒã‚¯ã«å€£ã£ã¦ã€unixã®ãƒã‚°ã‚¤ãƒ³ãƒ¦ãƒ¼ã‚¶ã‚’æ ¼ç´ã™ã‚‹ä¾‹ã§ã™ã€‚ #ã‚³ãƒ³ã‚¹ãƒˆãƒ©ã‚¯ã‚¿ sub new { my $class = shift; my $self = bless {}, $class; return $self; } #ãƒ¦ãƒ¼ã‚¶ãƒªã‚¹ãƒˆã‚’ãƒãƒƒã‚·ãƒ¥ã«ã‚»ãƒƒãƒˆ sub setUserList { open(WHO, "who|") or die "can't open who: $!"; while (<WHO>) { ($user, $tty) = split; push( @{$self->{user_list}},$1); } } #ãƒ¦ãƒ¼ã‚¶ãƒªã‚¹ãƒˆã‚’è¡¨ç¤º sub printUserList { foreac
fbis 2008/12/08
perl

mycomment
ãƒªãƒ³ã‚¯
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
fbis 2008/12/04
perl

mycomment

benchmark
ãƒªãƒ³ã‚¯
ã¯ã¦ãªãƒ–ãƒã‚° | ç„¡æ–™ãƒ–ãƒã‚°ã‚’ä½œæˆã—ã‚ˆã†
ã€èªæ›¸æ„Ÿæƒ³ã€‘è«–ç†çš„æ€è€ƒã¨ã¯ä½•ã‹ â˜†â˜†â˜†â˜† è«–ç†çš„æ€è€ƒã¨ã¯ä½•ã‹ (å²©æ³¢æ–°æ›¸ æ–°èµ¤ç‰ˆ 2036)ä½œè€…:æ¸¡é‚‰ é›…åå²©æ³¢æ›¸åº—Amazon Kindleç‰ˆã‚‚ã‚ã‚Šã¾ã™ã€‚è«–ç†çš„æ€è€ƒã¨ã¯ä½•ã‹ (å²©æ³¢æ–°æ›¸)ä½œè€…:æ¸¡é‚‰ é›…åå²©æ³¢æ›¸åº—Amazon è«–ç†çš„æ€è€ƒæ³•ã¯ä¸–ç•Œå…±é€šã§ã¯ãªã„ã€‚æ€è€ƒã™ã‚‹ç›®çš„ã‚’ã¾ãšæ˜Žç¢ºã«ã—ã¦ãã®ç›®çš„ã«åˆã£ãŸæ€è€ƒæ³•ã‚’é¸ã¶æŠ€è¡“ãŒè¦ã‚‹ã€‚â€¦
fbis 2008/10/29
perl

mycomment

dbic
ãƒªãƒ³ã‚¯
ã„ã‚ã‚“ãªè¨€èªžã®ã‚³ãƒ¼ãƒ‰ã‚’æ¯”ã¹ã¦ã¿ãŸ - ãªã‚“ãŸã‚‰ãƒŽãƒ¼ãƒˆç¬¬ä¸‰æœŸãƒ™ãƒ¼ã‚¿
ã™ã“ã—å‰ã«ã€ã‚³ãƒ¼ãƒ‰ã®å—é¢ã«ã¤ã„ã¦æ›¸ã„ãŸã®ã§ã€ã„ã‚ã„ã‚ãªè¨€èªžã§å…±é€šã—ã¦é »å‡ºã—ãã†ãªãƒ‘ã‚¿ãƒ¼ãƒ³ã‚’ä¾‹ã«ã€ç‰ä¾¡ãªã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã„ã¦ã¿ãŸã€‚ èª²é¡Œè¨å®š é…åˆ—ã®å„è¦ç´ ã‚’é–¢æ•°ã«æ¸¡ã™ãƒ«ãƒ¼ãƒ—æ‰‹ç¶šãã‚’æ›¸ã‘ã€‚ è¦ç´ ã¯è¾žæ›¸ã‚„ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã§ã€é–¢æ•°ã¯å¼•æ•°ã®å†…å®¹ã‚’åŠ å·¥ã™ã‚‹ã‹ã‚‚ã—ã‚Œãªã„ã€‚ ãƒ«ãƒ¼ãƒ—ãƒ–ãƒãƒƒã‚¯å†…ã®ãƒã‚¸ãƒƒã‚¯è¿½åŠ ã‚’å®¹æ˜“ã«ã™ã‚‹ãŸã‚ã«ã€è¦ç´ ã‚’ä¸€æ™‚å¤‰æ•°ã§å‚ç…§ã™ã‚‹ã“ã¨ã€‚ ã„ã‚ã‚“ãªæ–¹æ³•è«–(å˜ä½å‡¦ç†ã‚’ã‚¹ãƒˆãƒ©ãƒ†ã‚¸ã¨ã—ã¦å—ã‘ä»˜ã‘ã‚‹é›†åˆæ¼”ç®—ç”¨ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã¨ã‹ï¼Ÿ)ã¯ã‚ã‚Œã©ã€æ§‹é€ åŒ–ãƒ—ãƒã‚°ãƒ©ãƒ ã®å»¶é•·ã«ã‚ã‚‹ã‹ãŽã‚Šã€ç¾å®Ÿçš„ã«ã¯æ›¸ãä¸‹ã—ã«å‹ã‚‹é¸æŠžè‚¢ã¯ãªã„ã¨æ€ã†ã®ã§ã€è¨€èªžã‚’å•ã‚ãšæ¯”è¼ƒã§ãã‚‹ã‹ã¨æ€ã„ã¾ã™ã€‚åˆ†å²ã ã¨ã€æ›¸ãä¸‹ã—ã¨å¤šæ…‹ã®ã©ã£ã¡ãŒã„ã„ã‹ã¯ã€è¨€èªžã®é¸æŠžã‚„çŠ¶æ³ï¼ˆã‚ã¨ã€å¥½ã¿ã‚„ã‚¹ã‚ãƒ«ã«èµ·å› ã™ã‚‹æ„Ÿæƒ…ï¼‰ã«ã‚ˆã‚‹ã®ã§ã€‚ ã‚„ã‚„ã“ã—ã„ã‹ãªï¼Ÿè¦ã™ã‚‹ã«ã€ã€Œå…¬å¹³ã«è¨€èªžã‚’æ¯”è¼ƒã—ã‚ˆã†ã¨ã™ã‚‹ã¨ã€foreachãŒå¾—æ„ã‹ã©ã†ã‹æ¯”ã¹ã‚‹ã®ãŒã„ã„ã¨æ€ã†ã€ã£ã¦ã“ã¨ã€‚ è¨˜è¿°æ€§ã®è©•ä¾¡ã®æ¯”è¼ƒåŸºæº–ã¯ã€
fbis 2008/10/12
programming

mycomment
ãƒªãƒ³ã‚¯
Perlã§é–‹ç™º - å •è½ã—ãŸäººç”Ÿã‚’ç›®æŒ‡ã™æ—¥è¨˜
10å¹´ã¶ã‚Šãã‚‰ã„ã«Perlã®ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ã“ã†ã¨ã—ãŸã‚‰ã€ã™ã£ã‹ã‚Šå¿˜ã‚Œã¦ã„ã¦å¤§å¤‰ã ã£ãŸã€‚ç‰¹ã«ã€warning ãŒãªã‹ãªã‹æ¶ˆãˆãšå›°ã£ãŸã®ãŒã“ã‚Œã§ã—ãŸã€‚æ•°å¹´å¾Œã«ã‚„ã‚Šãã†ãªã®ã§ã€ãƒ¡ãƒ¢ã‚’ã€‚ CGI ã®ãƒ‘ãƒ©ãƒ¡ãƒ¼ã‚¿ã®æ‰±ã„ã§ warning ãŒã§ã¾ãã‚‹ä»¶ Use of uninitialized value in string ... ã¨ã„ã†ã‚ˆã†ã«ã€åˆæœŸåŒ–ã•ã‚Œã¦ãªã„ã‚ˆãƒ¼ã¨ã„ã†ã‚¨ãƒ©ãƒ¼ãŒå‡ºã¾ã™ã€‚ä¾‹ãˆã°æ¬¡ã®ã‚ˆã†ãªå ´åˆã€‚ #!/usr/bin/perl use strict; use warnings; use CGI; my $q = CGI->new(); my $m = $q->param('m'); if ($m eq '1'){ print "1\n"; } else { print "not 1\n"; } ã“ã‚Œã¯ã€$m ã®éƒ¨åˆ†ã«å€¤ãŒã¯ã„ã£ã¦ãªã„å ´åˆãŒèµ·ã“ã‚Šã†ã‚‹ã‚ã‘ã§ã€å®šç¾©ã•ã‚Œã¦ãªã„å ´åˆãŒã‚ã‚‹ã€‚ãã®ãŸ
fbis 2008/09/09
perl

mycomment
ãƒªãƒ³ã‚¯
+{ ã£ã¦ä½•ã ã‚ã†ï¼Ÿ - harupiyoã®æ—¥è¨˜
Plagger ã®ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã§æ°—ã«ãªã‚‹è¨˜è¿°ãŒã€‚ /usr/lib/perl5/site_perl/5.8.8/Plagger% ack '\+{' Plugin/Publish/CHTML.pm 82: $self->add(+{ Plugin/CustomFeed/Frepa/RecentComment.pm 33: push(@msgs, +{ Plugin/CustomFeed/Frepa/FriendDiary.pm 25: push(@msgs, +{ 46: $it em = +{ subject => $6, description => $7}; Plugin/CustomFeed/Frepa/FriendStatus.pm 25: push(@msgs, +{ ã“ã®ã€+{ ã£ã¦ä½•ã ã‚ã†ï¼Ÿï¼Ÿ ã«ã¤ã„ã¦ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹(O'REILLY ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°Perl)ã‚’èª¿ã¹ã¦ã¿ã¾ã—ãŸãŒ
fbis 2008/08/28
perl

mycomment
ãƒªãƒ³ã‚¯
ç½®æ› - èµ·æ¥æº–å‚™æ—¥è¨˜
ã¤ãã‚ŠãŸã„ã‚µãƒ¼ãƒ“ã‚¹ã®æ©Ÿèƒ½ã‚’æ´—ã„å‡ºã—ãŸã‚Šã€è¨è¨ˆæ›¸ã‚’ã¤ãã£ãŸã‚Šã—ã¦ã„ã‚‹ã€‚ ã“ã‚Œã‚’ãƒ—ãƒã‚°ãƒ©ãƒ ã™ã‚‹ã£ã¦è€ƒãˆã‚‹ã¨ã¡ã‚‡ã£ã¨ã²ã£ãã‚Šè¿”ã‚Šãã†ã«ãªã‚‹ã‚ˆï¼ ã•ã¦ã€Perlã¯å°‘ã—ãšã¤ã€‚ s//ã‚’ä½¿ã£ã¦ç½®æ›ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ #!/usr/bin/perl use strict; use warnings; my $_ = "He's out with Taro"; s/Taro/Yoko/; print "$_\n"; â†‘ã ã¨ã†ã¾ãã„ãã®ã§ã™ãŒ #!/usr/bin/perl use strict; use warnings; my $hoge = "He's out with Taro"; s/Taro/Yoko/; print "$hoge\n"; â†‘ã ã¨ã†ã¾ãã„ã‹ãªã„ã®ã¯ãªã‚“ã§ã˜ã‚ƒã‚ã†ã€‚ã€‚ ã†ã‚€
fbis 2008/07/16
perl

mycomment
ãƒªãƒ³ã‚¯
ã‚„ã£ã±ã‚Šundefãªã‚“ã‹ãª - ä»Šæ—¥ã®ã”ã¯ã‚“ã¯ç´ éººã§ã™
fbis 2008/05/01
perl

mycomment
ãƒªãƒ³ã‚¯
ã¯ã¦ãªãƒ–ãƒã‚° | ç„¡æ–™ãƒ–ãƒã‚°ã‚’ä½œæˆã—ã‚ˆã†
é¡”ã«è¦‹ãˆã‚‹ï¼Ÿæœ€è¿‘ã€Œé€æ°´å£ã€ãŒæ°—ã«ãªã‚‹ã¨ã„ã†è©± ã€Œé€æ°´å£ã€ãŒæ°—ã«ãªã‚‹ä»Šæ—¥ã“ã®é ƒ æœ€è¿‘è¡—ä¸ã§æ°—ã«ãªã‚‹å˜åœ¨ã€ãã‚ŒãŒã“ã®ã€Œé€æ°´å£ã€ã§ã™ã€‚åœ°ä¸Šã®ãƒ•ãƒã‚¢ãŒ7éšŽä»¥ä¸Šã‚ã‚‹ãƒ“ãƒ«ãªã©ã€ä¸€å®šã®æ¡ä»¶ã‚’æº€ãŸã—ãŸå»ºç¯‰ç‰©ã«ã¯è¨ç½®ãŒç¾©å‹™ä»˜ã‘ã‚‰ã‚Œã¦ã„ã‚‹ã‚‚ã®ã§ã€ç«äº‹ãŒç™ºç”Ÿã—ãŸãƒ•ãƒã‚¢ã«ãŸã ã¡ã«æ°´ã‚’é€ã‚‹ãŸã‚ã«ä½¿ã‚ã‚Œã‚‹ã‚‚ã®ã§ã™ã€‚ãƒãƒ³ãƒ—è»Šâ€¦
fbis 2008/05/01
mycomment

perl
ãƒªãƒ³ã‚¯
å˜åœ¨ã—ãªã„è¦ç´ ã«ã‚¢ã‚¯ã‚»ã‚¹ã—ãŸã¨ãã®NoticeãŒã†ã–ã„ - ã±ã›ã‚‰ã‚“ãƒ¡ãƒ¢
[PHP] å˜åœ¨ã—ãªã„é…åˆ—ã®ã‚ãƒ¼ã«ã‚¢ã‚¯ã‚»ã‚¹ã—ãŸã¨ãã®æŒ™å‹•ã¾ã¨ã‚PHP5ã§ã€é…åˆ—ã§ã¯ãªã„åž‹ã®å¤‰æ•°ã‚„ã€ é…åˆ—ã§ã‚‚å˜åœ¨ã—ãªã„è˜åˆ¥åã«å¯¾ã—ã¦ $array["key"] ã® ã‚¢ã‚¯ã‚»ã‚¹ã‚’è¡Œã£ãŸã¨ãã®æŒ™å‹•ã®ã¾ã¨ã‚ã§ã™ï¼ˆfrom ãã‚Œãªã‚Šãƒ–ãƒã‚°ï¼‰ ã‚ã‚“ãªåž‹ã‚„ã“ã‚“ãªåž‹ã«å¯¾ã—ã¦æ·»å—ã‚¢ã‚¯ã‚»ã‚¹ã‚’è©¦ã¿ãŸçµæžœãŒã¾ã¨ã¾ã£ã¦ã¾ã™ã€‚ stringåž‹ã®å ´åˆã¯ã€è˜åˆ¥åã‚’integeråž‹ã«ã‚ãƒ£ã‚¹ãƒˆã—ãŸä¸Šã§ã®å„æ–‡å—ã¸ã®ã‚¢ã‚¯ã‚»ã‚¹ã¨ãªã‚‹ã“ã¨ éžarrayåž‹ã«å¯¾ã—ã¦ $array["key"] ã¨ã‚„ã£ã¦ã‚‚ä½•ã‚‚ã‚¨ãƒ©ãƒ¼ãŒå‡ºãªã„ãã›ã«ã€arrayåž‹ã§å˜åœ¨ã—ãªã„è˜åˆ¥åã«ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ã¨Notice Errorã‚’åãã“ã¨ ã‚¯ãƒ©ã‚¹ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹ã«å¯¾ã—ã¦ã®ã¿ã€Fatal Error ã‚’åãã“ã¨ 1ç•ªç›®ã¨3ç•ªç›®ã¯åˆ¥ã«ã©ã†ã§ã‚‚ã„ã„ã‚“ã ãŒã€2ç•ªç›®ã«é–¢ã—ã¦ã€è‡ªåˆ†ã¯çµæ§‹ã‚¤ãƒ©ã‚¤ãƒ©ã•ã›ã‚‰ã‚Œã¦ã„ã‚‹ã€‚ <?php $data = get_something(); if
fbis 2008/04/04
php

mycomment
ãƒªãƒ³ã‚¯
1 2 3 4 æ¬¡ã®ãƒšãƒ¼ã‚¸