[B! perl] tmsanrinshaã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

tmsanrinsha id:tmsanrinsha

perlã«é–¢ã™ã‚‹tmsanrinshaã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (41)

${{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}}

ã‚‚ã—OSã«æ–çµ¶ãŒã‚ã‚Œã°Rubyã¯æ»ã‚“ã§ã„ãŸå¯èƒ½æ€§ãŒé«˜ã„ã€ã¾ã¤ã‚‚ã¨æ°ãŒRuby25å‘¨å¹´ã§è¬›æ¼”
Post author:sider Post category:Uncategorized Reading time:4 mins read Post published:2018-02-26 ã‚‚ã—éŽåŽ»ã®OSã«æ–çµ¶ãŒã‚ã£ãŸã‚‰ã€RubyãŒçµ¶å‘½ã—ã¦ã„ãŸå¯èƒ½æ€§ã¯ã‹ãªã‚Šé«˜ã„ã€‚25å¹´ã®Rubyé–‹ç™ºã®æ´å²ã‚’æŒ¯ã‚Šè¿”ã‚Šã¤ã¤ã€ãã‚“ãªæ„å¤–ãªè¦‹æ–¹ã‚’ç¤ºã—ãŸã®ã¯Rubyã®ç”Ÿã¿ã®è¦ªã¨ã—ã¦çŸ¥ã‚‰ã‚Œã‚‹ã€ã¾ã¤ã‚‚ã¨ã‚†ãã²ã‚æ°ã ã€‚ æ—¥æœ¬ç”Ÿã¾ã‚Œã®ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã€ŒRubyã€ï¼ˆãƒ«ãƒ“ãƒ¼ï¼‰ãŒ25æ³ã®èª•ç”Ÿæ—¥ã‚’è¿ŽãˆãŸã€‚RubyãŒç”Ÿã¾ã‚ŒãŸã®ã¯1993å¹´2æœˆ24æ—¥ã®ã“ã¨ã€‚ãã‚Œã‹ã‚‰ã¡ã‚‡ã†ã©25å¹´ç›®ã¨ãªã‚‹2018å¹´2æœˆ24æ—¥ã«ã€Ruby25å‘¨å¹´è¨˜å¿µã‚¤ãƒ™ãƒ³ãƒˆã€ŒRuby25ï¼ˆãƒ«ãƒ“ãƒ¼ãƒ»ãƒˆã‚¥ã‚¨ãƒ³ãƒ†ã‚£ãƒ¼ãƒ•ã‚¡ã‚¤ãƒ–ï¼‰ã€ãŒã€Rubyã‚¢ã‚½ã‚·ã‚¨ãƒ¼ã‚·ãƒ§ãƒ³ãŠã‚ˆã³æ—¥æœ¬Rubyã®ä¼šã®å¾Œæ´ã§æ±äº¬ã®å“å·ã‚¤ãƒ³ã‚¿ãƒ¼ã‚·ãƒ†ã‚£ãƒ¼ã§é–‹å‚¬ã•ã‚ŒãŸã€‚ åŸºèª¿è¬›æ¼”ã‚’è¡Œã£ãŸã¾ã¤ã‚‚ã¨æ°ã¯ã€25å¹´ã‚’æŒ¯ã‚Šè¿”
tmsanrinsha 2018/02/26
ruby

ruby25

ã¾ã¤ã‚‚ã¨ã‚†ãã²ã‚

perl
ãƒªãƒ³ã‚¯
Debugging Perl
tmsanrinsha 2017/12/02
perl

debug

cgi
ãƒªãƒ³ã‚¯
ãƒ–ãƒã‚° | S2ãƒ•ã‚¡ã‚¯ãƒˆãƒªãƒ¼æ ªå¼ä¼šç¤¾
tmsanrinsha 2017/12/02
perl

debug

CGI
ãƒªãƒ³ã‚¯
Perlã§é…åˆ—ã«ç‰¹å®šã®è¦ç´ ãŒå˜åœ¨ã™ã‚‹ã“ã¨ã‚’èª¿ã¹ã‚‹æ–¹æ³•
Perlã§ã€é…åˆ—ã«ç‰¹å®šã®è¦ç´ ãŒå˜åœ¨ã™ã‚‹ã“ã¨ã‚’èª¿ã¹ã‚‹æ–¹æ³•ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ ã“ã®ã‚¨ãƒ³ãƒˆãƒªãƒ¼ã¯ãƒ“ã‚®ãƒŠãƒ¼å‘ã‘ã®å†…å®¹ã§ã™ã€‚ ï¼‘ï¼Žå•é¡Œç‚¹ é…åˆ—å¤‰æ•°fooã®è¦ç´ ã«"hoge"ã¨ã„ã†æ–‡å—åˆ—ãŒã‚ã‚‹ã“ã¨ã‚’èª¿ã¹ãŸã„ã®ã§æ¬¡ã®ã‚ˆã†ãªèµ¤è‰²ã§ç¤ºã™ã‚³ãƒ¼ãƒ‰ã‚’ç”¨æ„ã—ã¾ã—ãŸã€‚ my @foo = ( "bar", "hoge", "fuga" ); for my $data ( @foo ) { print "OK" if $data eq "hoge"; } ã“ã®ã‚³ãƒ¼ãƒ‰ã§ã¯"hoge"ãŒé…åˆ—fooã«è¤‡æ•°å˜åœ¨ã™ã‚‹å ´åˆã€"OK"ãŒè¤‡æ•°å›žå‡ºåŠ›ã•ã‚Œã‚‹ã“ã¨ã«ãªã‚Šã¾ã™ã€‚ 1å›žã ã‘å‡ºåŠ›ã—ãŸã„å ´åˆã¯ã€ for my $data ( @foo ) { if ( $data eq "hoge" ) { print "OK"; last; } } ã¨lastã‚’è¿½åŠ ã™ã‚Œã°ã„ã„ã®ã§ã™ãŒã€ã‚‚ã†å°‘ã—ç°¡å˜ãªã‚³ãƒ¼ãƒ‰ã§å®Ÿè£…ã—ãŸã„ã¨ã“ã‚ã§ã™ã€‚ ï¼’ï¼Žé…åˆ—ã«è¦ç´ ãŒå˜åœ¨
tmsanrinsha 2017/10/19
perl

é…åˆ—
ãƒªãƒ³ã‚¯
perlsub - Perl ã®ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ - perldoc.jp
$subref = sub BLOCK; # ãƒ—ãƒãƒˆã‚¿ã‚¤ãƒ—ãªã— $subref = sub (PROTO) BLOCK; # ãƒ—ãƒãƒˆã‚¿ã‚¤ãƒ—ä»˜ã $subref = sub : ATTRS BLOCK; # å±žæ€§ä»˜ã $subref = sub (PROTO) : ATTRS BLOCK; # ãƒ—ãƒãƒˆã‚¿ã‚¤ãƒ—ã¨å±žæ€§ä»˜ã ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã‚’importã™ã‚‹ã«ã¯: use MODULE qw(NAME1 NAME2 NAME3); ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã‚’å‘¼ã³å‡ºã™ã«ã¯: NAME(LIST); # æ‹¬å¼§ãŒã‚ã‚Œã° & ã¯çœç•¥å¯èƒ½ NAME LIST; # predeclared/imported ã•ã‚Œã¦ã„ã‚Œã°æ‹¬å¼§ã¯çœç•¥å¯èƒ½ &NAME(LIST); # ãƒ—ãƒãƒˆã‚¿ã‚¤ãƒ—ã‚’å›žé¿ã™ã‚‹ &NAME; # å‘¼ã³å‡ºã•ã‚Œã‚‹ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã®ãŸã‚ã« @_ ã‚’å¯è¦–åŒ–ã™ã‚‹ èª¬æ˜ŽÂ¶ Like many languages, Perl pro
tmsanrinsha 2017/09/25
ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã®$$,$$$,$$;$ã¨ã‹ã®æ„å‘³

perl
ãƒªãƒ³ã‚¯
Perlã®ãƒãƒƒã‚·ãƒ¥ã‚’ç†è§£ã—ã‚ˆã† - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º ãƒãƒƒã‚·ãƒ¥ Perlã®ã€Œãƒãƒƒã‚·ãƒ¥ã€ã«ã¤ã„ã¦ã®è§£èª¬ã§ã™ã€‚Perlã®ãƒãƒƒã‚·ãƒ¥ã¯ã€ä»–ã®è¨€èªžã§ã„ã†ã¨ã“ã‚ã®ã€Œé€£æƒ³é…åˆ—ã€ã®ã“ã¨ã§ã™ã€‚ é…åˆ—ã§ã¯ã€ç•ªå·ã‚’æŒ‡å®šã—ã¦è¦ç´ ã‚’å–ã‚Šå‡ºã™ã“ã¨ãŒã§ãã¾ã—ãŸãŒã€ã€Œé€£æƒ³é…åˆ—ã€ã§ã¯ã€æ–‡å—åˆ—ã‚’ã‚ãƒ¼ã¨ã—ã¦æŒ‡å®šã—ã¦ã€è¦ç´ ã‚’å–ã‚Šå‡ºã™ã“ã¨ãŒã§ãã¾ã™ã€‚ ãƒãƒƒã‚·ãƒ¥ã®åŸºç¤Ž ãƒãƒƒã‚·ãƒ¥ã®åŸºç¤Žã€‚ãƒãƒƒã‚·ãƒ¥ã®å®£è¨€ã¨åˆæœŸåŒ–ã€‚ãƒãƒƒã‚·ãƒ¥ã®å‡ºåŠ›ã¨ä»£å…¥ã€‚ãƒãƒƒã‚·ãƒ¥ã¯ã€æ–‡å—åˆ—ã‚’ã€æ·»ãˆå—ã¨ã—ã¦ã€å€¤ã‚’å–å¾—ã§ãã‚‹é…åˆ—ã ã¨è€ƒãˆã‚Œã°ã‚ˆã„ã€‚æ–‡å—åˆ—ã‚’ã‚ãƒ¼ã¨ã—ã¦ã€å€¤ã‚’å–ã‚Šå‡ºã™ã“ã¨ãŒã§ãã‚‹ã€‚ ãƒãƒƒã‚·ãƒ¥ã®å®£è¨€ã¨åˆæœŸåŒ– ãƒãƒƒã‚·ãƒ¥ã®å®£è¨€ã¨åˆæœŸåŒ–ã¯æ¬¡ã®ã‚ˆã†ã«ã—ã¦è¡Œã„ã¾ã™ã€‚ my %fathers = ('Taro' => 'Kenji', 'Naoko' => 'Yoshio'); #ã‚ã‚‹ã„ã¯ my %fathers = (Taro => 'Kenji', Naoko => 'Yoshio'); å¤‰æ•°ã®æŽ¥é è¾žã¯ãƒ‘ãƒ¼ã‚»ãƒ³ãƒˆè¨˜å·
tmsanrinsha 2017/09/20
perl

ãƒãƒƒã‚·ãƒ¥

ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹
ãƒªãƒ³ã‚¯
(Perl) DBIã§ã®ã‚¨ãƒ©ãƒ¼å‡¦ç† (r271-635)
DBIã§ã®ã‚¨ãƒ©ãƒ¼ç™ºç”Ÿã§ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’çµ‚äº†ã•ã›ãšã«å‡¦ç†ã‚’è¡Œã†æ–¹æ³•ã®ãƒ¡ãƒ¢ æ¬¡ã®ä¾‹ã§ã¯ã€ã‚¨ãƒ©ãƒ¼ç™ºç”Ÿã§ã‚¹ã‚¯ãƒªãƒ—ãƒˆãŒä¸æ–ï¼ˆçµ‚äº†ï¼‰ã™ã‚‹ã€‚ #!/isr/bin/perl use warnings; use strict; use utf8; use DBI; my $str_dsn = 'DBI:SQLite:dbname=/var/www/perl-dbi-test/data/test.db'; my $dbh = DBI->connect($str_dsn, '', '', {PrintError => 0, AutoCommit => 1}) or die("connect error (".DBI::errstr.")\n"); my $str_query = "insert into test_tbl values(null,?,?)"; $sth = $dbh->prepare($str_q
tmsanrinsha 2017/01/11
Perl

DBI

error
ãƒªãƒ³ã‚¯
CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚’èª¿ã¹ã‚‹ï½œãƒ—ãƒã‚°ãƒ©ãƒ ãƒ¡ãƒ¢
ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‹ã‚‰ perl -Mã€Œãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åã€ -e 'print $ã€Œãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åã€::VERSION' ä¾‹ï¼‰ä¾‹ãˆã°ã€ŒDBIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã€ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚’èª¿ã¹ãŸã„ã¨ãã¯ perl -MDBI -e 'print $DBI::VERSION' ã§OKã€‚
tmsanrinsha 2016/12/24
DBD::mysqlãªã©

perl

pm

module

version
ãƒªãƒ³ã‚¯
æ£è¦è¡¨ç¾ã§ã€Œåˆ¶å¾¡æ–‡å—ä»¥å¤–ã€ã®ãƒã‚§ãƒƒã‚¯ - ockeghem's blog
ä¸€èˆ¬ã«ã€ã‚»ã‚ãƒ¥ã‚¢ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã®åŸºæœ¬ã¨ã—ã¦å…¥åŠ›å€¤ã®æ¤œè¨¼ï¼ˆValidationï¼‰ã‚’ã›ã‚ˆã¨ã„ã†ã“ã¨ã«ãªã£ã¦ã„ã¾ã™ãŒã€ã“ã‚ŒãŒå¤‰ãªæ–¹å‘ã«è¡Œãã¨ã„ã‚ã‚†ã‚‹ã€Œã‚µãƒ‹ã‚¿ã‚¤ã‚ºã€ã®ã‚ˆã†ãªæ‰‹æ³•ã«ãªã£ã¦ã—ã¾ã„ã¾ã™ã€‚ä»¥å‰ã‚‚æŒ‡æ‘˜ã—ãŸã‚ˆã†ã«ã€ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã¨ã—ã¦ã®Validationã¯ä»•æ§˜ã«å¾“ã£ã¦è¡Œã†ã¹ãã‚‚ã®ã§ã™ã€‚ ã§ã™ãŒã€æ¦‚ãã©ã®å ´åˆã§ã‚‚è¡Œã†ã¹ãæ¤œè¨¼ã¨ã—ã¦ä»¥ä¸‹ãŒã‚ã‚‹ã¨æ€ã„ã¾ã™ã€‚ æ–‡å—ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã®å¦¥å½“å§“ åˆ¶å¾¡æ–‡å—(\x00ã€œ\x1f, \x7f)ã®ãƒã‚§ãƒƒã‚¯ æ–‡å—åˆ—é•·ã®ãƒã‚§ãƒƒã‚¯ ã“ã®ã†ã¡å¾Œã‚äºŒã¤ã‚’æ£è¦è¡¨ç¾ã¨ã—ã¦æ›¸ãã«ã¯ã©ã†ã™ã‚Œã°ã„ã„ã‹ã‚’è€ƒãˆã¦ã„ã¾ã—ãŸã€‚ã¤ã¾ã‚Šã€ã€Œåˆ¶å¾¡æ–‡å—ä»¥å¤–ã®æ–‡å—ã§mæ–‡å—ä»¥ä¸Šnæ–‡å—ä»¥ä¸‹ã€ã¨ã„ã†ã‚ˆã†ãªãƒã‚§ãƒƒã‚¯ã§ã™ã€‚mæ–‡å—ä»¥ä¸Šã€næ–‡å—ä»¥ä¸‹ã¯ã€{m,n}ã§æ›¸ã‘ã‚‹ã®ã§ã€å•é¡Œã¯ã€Œåˆ¶å¾¡æ–‡å—ä»¥å¤–ã®æ–‡å—ã€ã§ã™ã€‚ã“ã‚Œã¯textã‚¿ã‚¤ãƒ—ã®inputè¦ç´ ã§ã€ã‹ã¤ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ä»•æ§˜ã¨ã—ã¦ã¯æ–‡å—ç¨®ã®åˆ¶é™ã‚’ã—ãªã„å ´åˆã‚’æƒ³å®šã—ã¦ã„
tmsanrinsha 2016/12/10
perl

ãƒã‚¤ãƒŠãƒª

æ£è¦è¡¨ç¾

regex
ãƒªãƒ³ã‚¯
perlã®ãƒ‡ã‚³ãƒ¼ãƒ‰ã¨ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ã«ã¤ã„ã¦(1) - ãƒ¡ãƒ¡ãƒ¡ãƒ¢ãƒ¢
ãƒ‡ã‚³ãƒ¼ãƒ‰ã™ã‚‹ ã‚ã‚‹æ–‡å—åˆ—ãŒä½•æ–‡å—ã‚ã‚‹ã®ã‹ã‚’æ±‚ã‚ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ãã¨ã—ã¾ã™ã€‚ perlã«ã¯lengthã¨ã„ã†é–¢æ•°ãŒã‚ã‚‹ã®ã§ã€ã“ã‚Œã‚’ä½¿ã£ã¦ä»¥ä¸‹ã®æ§˜ãªãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ãã¾ã—ãŸã€‚ # UTF-8ã§ä¿å˜ã—ãŸãƒ•ã‚¡ã‚¤ãƒ« use strict; use warnings; my $str = 'ãƒãƒãƒ¼ãƒ¯ãƒ¼ãƒ«ãƒ‰'; my $length = length $str; print $length . "Â¥n"; # 21ãŒå‡ºåŠ›ã•ã‚Œã‚‹ ã€Œãƒãƒãƒ¼ãƒ¯ãƒ¼ãƒ«ãƒ‰ã€ã¯ï¼—æ–‡å—ãªã®ã§ã€ã€Œ7ã€ã¨ã„ã†æ•°å—ãŒå‡ºåŠ›ã•ã‚Œã‚Œã°å¬‰ã—ã„ã§ã™ãã€‚ ã§ã‚‚å®Ÿéš›ã«ã¯ã€Œ21ã€ã¨å‡ºåŠ›ã•ã‚Œã¦ã—ã¾ã„ã¾ã™ã€‚ ã“ã‚Œã¯ã€Œ21ãƒã‚¤ãƒˆã€ã‚’æ„å‘³ã—ã¾ã™ã€‚ ã€Œãƒãƒãƒ¼ãƒ¯ãƒ¼ãƒ«ãƒ‰ã€ã¯ã€1æ–‡å—3ãƒã‚¤ãƒˆã§è¡¨ã›ã‚‰ã‚Œã‚‹ã®ã§ã€ã€Œ3 x 7 = 21ã€ã§ã™ã€‚ ã¤ã¾ã‚Šã€perlã«ã¯ã€ã€Œãƒãƒãƒ¼ãƒ¯ãƒ¼ãƒ«ãƒ‰ã€ã¯æ–‡å—åˆ—ã¨ã—ã¦ã§ã¯ãªãã€å˜ãªã‚‹ãƒã‚¤ãƒˆåˆ—ã¨ã—ã¦èªè˜ã•ã‚Œã¦ã—ã¾ã£ã¦ã„ã‚‹ã®ã§ã™ã€‚ perlã«ã€Œãƒãƒãƒ¼ãƒ¯
tmsanrinsha 2016/12/08
perl

encode
ãƒªãƒ³ã‚¯
Perl: æ–‡å—ã‚³ãƒ¼ãƒ‰ã¨utf8ãƒ•ãƒ©ã‚°ã«ã¤ã„ã¦
æ–‡å—ã‚³ãƒ¼ãƒ‰ã¨utf8ãƒ•ãƒ©ã‚° Perl ã«ãŠã„ã¦ã€ã€Œæ–‡å—ã‚³ãƒ¼ãƒ‰ã€ã¨ã€Œutf8ãƒ•ãƒ©ã‚°ã€ã¯åˆ¥ç‰©ã§ã™ã€‚æ–‡å—ã‚³ãƒ¼ãƒ‰ã®è©±ã®ä¸ã§ utf8ãƒ•ãƒ©ã‚°ãŒèªžã‚‰ã‚Œã‚‹ã®ã§ã€åŒã˜ã‚‚ã®ã®ã‚ˆã†ã«æ€ã£ã¦ã„ã‚‹äººã‚‚å¤šã„ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ãŒã€åˆ¥ç‰©ã§ã™ã€‚ã„ã‚„ã€ãŸã¨ãˆã°åŒã˜ã‚‚ã®ã ã¨ã—ã¦ã‚‚ã€åˆ¥ç‰©ã ã¨æ€ã£ãŸæ–¹ãŒç†è§£ã—ã‚„ã™ã„ã¨æ€ã„ã¾ã™ã€‚ æ–‡å—ã‚³ãƒ¼ãƒ‰ ã¯æ–‡å—ã¨ã‚³ãƒ¼ãƒ‰ã®ãƒžãƒƒãƒ”ãƒ³ã‚°ã«åå‰ã‚’ã¤ã‘ãŸã‚‚ã®ã§ã€utf8ãƒ•ãƒ©ã‚°ã¯ã€Perlã«ãŠã‘ã‚‹æ–‡å—åˆ—ã®æ‰±ã„ã«ä»˜éšã™ã‚‹ãƒ•ãƒ©ã‚°ã®ã“ã¨ã§ã™ã€‚ ãŸã¨ãˆã°ã€ä»¥ä¸‹ã®ã‚ˆã†ãªã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã‚’ãƒ¬ã‚¬ã‚·ãƒ¼ãªæ„Ÿã˜ã« EUC-JP ã§æ›¸ã„ã¦ã„ãŸã¨ã—ã¦ã€ my $euc_str = 'ã‚½ãƒ¼ã‚¹ãŒ EUC-JP ãªã®ã§ã“ã“ã¯ EUC-JP'; $euc_str ã«ã¯ EUC-JP ã®æ–‡å—åˆ—ãŒæ ¼ç´ã•ã‚Œã¦ã„ã¾ã™ã€‚ ã“ã‚Œã‚’ã€utf8ãƒ•ãƒ©ãƒƒã‚°ãƒ‰(utf8 flag on)ã«ã—ã¦ã¿ã¾ã™ã€‚ use Encode; my $euc_str = 'ã‚½ãƒ¼ã‚¹ãŒ
tmsanrinsha 2016/12/08
Encode::from_to

perl

UTF-8

encode
ãƒªãƒ³ã‚¯
UTF-8ãªæ–‡å—åˆ—ã‚’substrã™ã‚‹
ãšã„ã¶ã‚“ä»¥å‰ã‹ã‚‰Perlã§ç‰©ã‚’æ›¸ãã¨ãã«ã¯ã€æ–‡å—ã‚³ãƒ¼ãƒ‰ã‚’UTF-8ã«ã—ã€use utf8ã‚’ã—ãªã„ã§æ›¸ã„ã¦ã„ã‚‹ã€‚ ã§ã€ãã®éš›ã€substrãªã©ã§æ–‡å—åˆ—ã‚’åˆ‡ã‚Šå‡ºã—ãŸã„ã¨ã™ã‚‹ã¨ã€UTF-8ã¯1æ–‡å—ã‚ãŸã‚Šã®é•·ã•ãŒå¯å¤‰é•·ã§ã‚ã‚‹ãŸã‚ã€å…¥åŠ›æ–‡å—åˆ—ã«ã‚ˆã£ã¦ã¯å¤‰ãªæ–‡å—ãŒåˆ‡ã‚Šå‡ºã•ã‚Œã¦ã—ã¾ã†ã“ã¨ã«ãªã‚‹ã€‚ ã“ã‚Œã‚’æ£ã—ãåˆ‡ã‚Šå‡ºã™ã¨ãã«è‰²ã€…èª¿ã¹ã¦ã¿ãŸãƒ¡ãƒ¢ã€‚ use utf8ã«ã¤ã„ã¦ Perl 5.8.x Unicodeé–¢é€£ã«è¨˜ã•ã‚Œã¦ã„ã‚‹ã‚ˆã†ã«ã€ 1.ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ä¸ã®æ–‡å—åˆ—ãŒUTF8ã«ãªã‚‹ã€‚ 2.ãƒžãƒ«ãƒãƒã‚¤ãƒˆã®å¤‰æ•°åãªã©ã‚‚ä½¿ãˆã‚‹ã€‚ ãªã“ã¨ãŒã‚¦ãƒªã‚‰ã—ãã€è¡¨é¢ä¸Šã®æ„å‘³ã¯ã€Perlã«scriptãŒUTF-8ã§æ›¸ã‹ã‚Œã¦ã„ã‚‹ã“ã¨ã‚’æ•™ãˆã‚‹äº‹ãŒç›®çš„ã‚‰ã—ã„ã®ã§ã€æ¬¡ã®ã‚ˆã†ãªã‚³ãƒ¼ãƒ‰ã‚‚é€šã‚Šã¾ã™ã€‚*1 #!/usr/local/bin/perl use utf8; my $ã‚ã„ã†ãˆãŠ = "x"; print $ã‚ã„ã†ãˆãŠ; ã§ã€ã“ã®ã¨ãã«s
tmsanrinsha 2016/12/08
perl

UTF-8

substr
ãƒªãƒ³ã‚¯
ãƒã‚¤ãƒŠãƒªãƒ‡ãƒ¼ã‚¿ã‚’16é€²æ•°æ–‡å—åˆ—ã«å¤‰æ›ã€Perlã€‘ : morituriã®ãƒ–ãƒã‚°
â– ãƒã‚¤ãƒŠãƒªãƒ‡ãƒ¼ã‚¿ã‚’16é€²æ•°æ–‡å—åˆ—ã«å¤‰æ› é©å½“ãªåå‰ï¼ˆã€Œhex1ã€ãªã©ï¼‰ã§ä»¥ä¸‹ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ä¿å˜ã—ã€å®Ÿè¡Œæ¨©é™ã‚’ä¸Žãˆã‚‹ã€‚ #!/usr/bin/perl # æ¨™æº–å…¥åŠ›ã®çµ‚ã‚ã‚Šã¾ã§ãƒ«ãƒ¼ãƒ— while (<>) { # ãƒã‚¤ãƒŠãƒªãƒ‡ãƒ¼ã‚¿ã‚’16é€²æ•°æ–‡å—åˆ—ã«å¤‰æ› $hex = unpack("H*", "$_"); # çµæžœã®æ–‡å—åˆ—ã‚’æ¨™æº–å‡ºåŠ›ã«æ›¸ãå‡ºã™ print $hex; } â€»16é€²æ•°æ–‡å—åˆ—ã‚’ãƒã‚¤ãƒŠãƒªãƒ‡ãƒ¼ã‚¿ã«å¤‰æ›ã€Perlã€‘ã®é€†ã®æ“ä½œã‚’ã™ã‚‹ â– å®Ÿè¡Œä¾‹ ä¾‹ï¼šã€€ãƒ‘ã‚¤ãƒ—ãªã©ã§æ¨™æº–å…¥åŠ›ã‹ã‚‰ãƒã‚¤ãƒŠãƒªãƒ‡ãƒ¼ã‚¿ã‚’å…¥åŠ› echo ABC | ./hex1 å®Ÿè¡Œçµæžœ 4142430a â– åŒã˜ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ç‰ˆ echo ABC | perl -ne 'print unpack("H*", "$_");' â– å‚è€ƒ ãƒŸã‚±ãƒã‚³ç ”ç©¶æ‰€ / Perl / Perl ã®æ•°å€¤å¤‰æ› while/foræ–‡ã‚’ä½¿ã„æ¨™æº–å…¥åŠ›ã‹ã‚‰ç¹°ã‚Š
tmsanrinsha 2016/12/08
perl

ãƒã‚¤ãƒŠãƒª

16é€²æ•°

å¤‰æ›
ãƒªãƒ³ã‚¯
ç’°å¢ƒã«ä¾å˜ã—ãªã„ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’æ›¸ããªã‚‰sedã‚ˆã‚Šperlã®æ–¹ãŒã„ã„ - Qiita
ã¾ãˆãŒã sedã§ç’°å¢ƒã«ä¾å˜ã—ãªã„ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’æ›¸ããŸã‹ã£ãŸã‘ã©ã€BSDã¨GNUã®å®Ÿè£…ã§å¾®å¦™ã«æŒ™å‹•ãŒé•ã†ã›ã„ã§é›£ã—ã‹ã£ãŸã€‚ã§ã€ã„ã£ãã®ã“ã¨perlã§æ›¸ã„ãŸæ–¹ãŒã„ã„ã®ã§ã¯ã€ã¨ã„ã†çµè«–ã«ãªã£ãŸã€‚ããã£ãŸã‚‰perlã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã®æ›¸ãæ–¹å‡ºã¦ãã‚‹ã‘ã©ä½•ã§ãã†å‹•ãã®ã‹åˆ†ã‹ã‚‰ãªã‹ã£ãŸã®ã§ãã‚Œã‚‚èª¿ã¹ãŸã€‚ãã“ã‚‰ã¸ã‚“ã«ã¤ã„ã¦ã¾ã¨ã‚ã‚‹ã€‚ GNU sedã¨BSD sedã®é•ã„ã€perlã‹ã‚‰sedã¸ã®ä¹—ã‚Šæ›ãˆæ–¹ç°¡æ˜“ç‰ˆã€ãã®è©³ç´°ã€ã¨ã„ã†æ„Ÿã˜ã§ã¾ã¨ã‚ãŸã®ã§çŸ¥ã‚ŠãŸã„ã¨ã“ã‚ã‹ã‚‰ã©ã†ãžã€‚ sedã«ã¯GNU sedã¨BSD sedãŒã‚ã‚‹ sedã§ ã¨ã‹ã—ã‚ˆã†ã¨ã™ã‚‹ã¨å®Ÿè¡Œã™ã‚‹ç’°å¢ƒã«ã‚ˆã£ã¦å¤±æ•—ã™ã‚‹ã€‚ sedã«ã¯BSDã®å®Ÿè£…ã¨GNUã®å®Ÿè£…ãŒã‚ã‚‹ã‹ã‚‰ã ã€‚-Eã¯BSD sedã§æ‹¡å¼µæ£è¦è¡¨ç¾ã‚’ä½¿ã†ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã§ã€GNU sedã§æ‹¡å¼µæ£è¦è¡¨ç¾ã‚’ä½¿ã„ãŸã‘ã‚Œã°-rã‚’ä½¿ã†å¿…è¦ãŒã‚ã‚‹ã€‚ ã˜ã‚ƒã‚æ‹¡å¼µæ£è¦è¡¨ç¾ã‚’ä½¿ã‚ãšã«ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®æ£è¦è¡¨ç¾ã‚’ä½¿ãˆã°ã„ã„ã®
tmsanrinsha 2015/07/20
perl

awk

sed
ãƒªãƒ³ã‚¯
404 Blog Not Found:perl - Regexp::Assembleã®ã‚¹ã‚¹ãƒ¡
2007å¹´04æœˆ19æ—¥15:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - Regexp::Assem bleã®ã‚¹ã‚¹ãƒ¡ ã¨ã„ã†ã‚ã‘ã§ã€Regexp::Assem bleã®ã”ç´¹ä»‹ã€‚ PERL HACKS(æ—¥æœ¬èªžç‰ˆ) [è‹±èªžç‰ˆ] odz buffer - ãã‚Œ Regexp::Assem bleã‚“ï¼Ÿãƒ«ãƒ¼ãƒ—äº‘ã€…ã‚’æŠœãã«ã—ã¦ã€ã“ã†ã„ã†ã®ã¯ Regexp::Assem ble ã®å‡ºç•ªã˜ã‚ƒãªã„ã®ï¼Ÿ ã™ã§ã«Perl Hackerså¾¡ç”¨é”ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ãªã£ã¦ã„ã¾ã™ãŒã€ã¾ã çŸ¥ã‚‰ãªã„æ–¹ã‚‚ã„ã‚‰ã£ã—ã‚ƒã‚‹ã‹ã‚‚çŸ¥ã‚Œãªã„ã®ã§ã€‚ ä½•ã‚’ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‹ã€ã¨ã„ãˆã°ã€ä»¥ä¸‹ã‚’è¦‹ã‚Œã°ä¸€ç›®çžç„¶ã§ã—ã‚‡ã†ã€‚ Regexp::Assem ble - Assem ble multiple Regular Expressions into a single RE - search.cpan.org use Regexp::Asse
tmsanrinsha 2015/04/18
perl

regex

æœ€é©åŒ–
ãƒªãƒ³ã‚¯
Perlãƒ¡ãƒ¢
è¤‡æ•°ã®ãƒ—ãƒã‚»ã‚¹ã§ãƒãƒƒã‚¯çŠ¶æ…‹ãŒç•°å¸¸ã§ã‚ã‚‹ã¨åˆ¤æ–ã—ï¼Œãã®ã†ã¡ã® 1ã¤ãŒãƒãƒƒã‚¯ã‚’è§£é™¤ã—ãŸã“ã¨ã«ã‚ˆã‚Šï¼Œåˆ¥ã®ãƒ—ãƒã‚»ã‚¹ãŒãƒãƒƒã‚¯ã—ãŸã«ã‚‚ã‹ ã‹ã‚ã‚‰ãšï¼Œå…ˆã»ã©ãƒãƒƒã‚¯çŠ¶æ…‹ãŒç•°å¸¸ã§ã‚ã‚‹ã¨åˆ¤æ–ã—ãŸãƒ—ãƒã‚»ã‚¹ã«ã‚ˆã£ã¦ã“ã®æ£å¸¸ãªãƒãƒƒ ã‚¯ã‚’è§£é™¤ã•ã‚Œã¦ã—ã¾ã†å¯èƒ½æ€§ãŒã‚ã‚Šã¾ã™ï¼Ž ã“ã®æ–¹æ³•ã®å•é¡Œç‚¹ã¯ï¼Œç•°å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’è§£é™¤ã™ã‚‹æ“ä½œãŒæ£å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’ã‚‚ è§£é™¤ã§ãã¦ã—ã¾ã†ã“ã¨ã«ã‚ã‚Šã¾ã™ï¼Žé€†ã«è¨€ãˆã°ï¼Œç•°å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’è§£é™¤ã™ã‚‹æ“ä½œã« ã‚ˆã£ã¦æ£å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’è§£é™¤ã§ããªã‘ã‚Œã°å•é¡Œãªã„ã‚ã‘ã§ã™ï¼Žãã®ãŸã‚ã«ã¯ã©ã†ã™ ã‚Œã°ã‚ˆã„ã®ã‹ï¼Ÿ ç”ãˆã¯ãƒãƒƒã‚¯çŠ¶æ…‹ãŒå¸¸ã«å¤‰åŒ–ã—ã¦ã„ã‘ã° ã‚ˆã„ã¨ã„ã†ã“ã¨ã§ã™ï¼Žãã—ã¦ï¼Œã“ã‚Œã‚’å®Ÿç¾ã™ã‚‹ã®ã«éƒ½åˆãŒã‚ˆã„ã®ãŒ rename ã«ã‚ˆã‚‹æ–¹æ³•ã«ãªã‚Šã¾ã™ï¼Ž æœ€åˆã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã§èª¬æ˜Žã—ã¾ã™ã¨ï¼Œãƒãƒƒã‚¯ãƒ•ã‚¡ã‚¤ãƒ«ãŒ lockfile ã¨ã„ã† åå‰ã®ã¨ããŒãƒãƒƒã‚¯ãŒè§£é™¤ã•ã‚Œã¦ã„ã‚‹çŠ¶æ…‹ã§ï¼Œlockfile987654321 ã®ã‚ˆã† ã«å¾Œã‚ã«
tmsanrinsha 2014/06/17
perl

æ£è¦è¡¨ç¾

eucjp

ç½®æ›
ãƒªãƒ³ã‚¯
ãƒ•ã‚¡ã‚¤ãƒ«ãƒãƒ³ãƒ‰ãƒ«ã¨å‡ºåŠ› - 2éƒ¨ Perlè¨€èªžä»•æ§˜ - [SMART]
ãƒ•ã‚¡ã‚¤ãƒ«ãƒ†ã‚¹ãƒˆæ¼”ç®—åã®ä½¿ã„æ–¹ $file = "/home/httpd/html/index.html"; # ãƒ•ã‚¡ã‚¤ãƒ«ãŒå˜åœ¨ã™ã‚‹ã‹ç¢ºèª if ( -e $file ){ .... } ãƒ‘ã‚¤ãƒ— UNIX ç³» OS å…¨èˆ¬ã‚„ã€Windows NT ã¨ã„ã£ãŸã‚µãƒ¼ãƒ OSã«ã¯ã€ãƒ‘ã‚¤ãƒ—ãŒç”¨æ„ã•ã‚Œã¦ã„ã¾ã™ã€‚ãƒ‘ã‚¤ãƒ—ã¯ã€ãƒ—ãƒã‚»ã‚¹é–“ã§é€šä¿¡ã™ã‚‹ãŸã‚ã«ç”¨æ„ã•ã‚ŒãŸæ©Ÿæ§‹ã§ã€æ¨™æº–å‡ºåŠ›ã¨æ¨™æº–å…¥åŠ›ã‚’çµŒç”±ã—ã¦ãƒ‡ãƒ¼ã‚¿ã‚’å—ã‘æ¸¡ã—ã™ã‚‹ãŸã‚ã®ã‚‚ã®ã§ã™ã€‚ã“ã‚Œã«ã‚ˆã£ã¦ã€ä¸€æ™‚ãƒ•ã‚¡ã‚¤ãƒ«ãªã©ã‚’çµŒç”±ã›ãšã«ã€ãƒ€ã‚¤ãƒ¬ã‚¯ãƒˆã«ãƒ—ãƒã‚°ãƒ©ãƒ ãŒæ¨™æº–å‡ºåŠ›ã«å‡ºåŠ›ã—ãŸçµæžœã‚’ä»–ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã®æ¨™æº–å…¥åŠ›ã«æ¸¡ã™ã“ã¨ãŒã§ãã¾ã™ã€‚ open ã§ãƒ‘ã‚¤ãƒ—å‡¦ç† ä»¥ä¸‹ã§ã¯ Perl ã‹ã‚‰ãƒ‘ã‚¤ãƒ—ã‚’ä½¿ã£ãŸä¾‹ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ãƒ•ã‚¡ã‚¤ãƒ«åã®å…ˆé ã« | ã‚’ä»˜ã‘ã‚‹ã¨ã€ãã®ãƒ•ã‚¡ã‚¤ãƒ«åã‚’ã‚³ãƒžãƒ³ãƒ‰ã¨ã—ã¦è§£é‡ˆã—ã€ãã®ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã¸å‡ºåŠ›ã—ã¾ã™ã€‚ sendmail ã‚’ä½¿ã£ã¦ãƒ¡ãƒ¼ãƒ«ã‚’é€ä¿¡ã™ã‚‹ä¾‹ã§ã™ã€‚ open
tmsanrinsha 2014/03/11
<ã¨ãªã«ã‚‚ãªã—ã¯åŒã˜

perl

file

open
ãƒªãƒ³ã‚¯
æ£è¦è¡¨ç¾ã«ã‚ˆã‚‹ãƒãƒªãƒ‡ãƒ¼ã‚·ãƒ§ãƒ³ã§ã¯ ^ ã¨ $ ã§ã¯ãªã \A ã¨ \z ã‚’ä½¿ãŠã†
æ£è¦è¡¨ç¾ã«ã‚ˆã‚‹ãƒãƒªãƒ‡ãƒ¼ã‚·ãƒ§ãƒ³ç‰ã§ã€å®Œå…¨ä¸€è‡´ã‚’ç¤ºã™ç›®çš„ã§ ^ ã¨ $ ã‚’ç”¨ã„ã‚‹æ–¹æ³•ãŒä¸€èˆ¬çš„ã§ã™ãŒã€æ£ã—ãã¯ \A ã¨ \z ã‚’ç”¨ã„ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚Rubyã®å ´åˆ ^ ã¨ $ ã‚’ä½¿ã£ã¦å®Œå…¨ä¸€è‡´ã®ãƒãƒªãƒ‡ãƒ¼ã‚·ãƒ§ãƒ³ã‚’è¡Œã†ã¨è„†å¼±æ€§ãŒå…¥ã‚Šã‚„ã™ã„ãƒ¯ãƒŠã¨ãªã‚Šã¾ã™ã€‚Perlã‚„PHPã®å ´åˆã¯ã€Rubyç¨‹ã§ã¯ã‚ã‚Šã¾ã›ã‚“ãŒä¸å…·åˆãŒç”Ÿã˜ã‚‹ã®ã§ \A ã¨ \z ã‚’ä½¿ã†ã‚ˆã†ã«ã—ã¾ã—ã‚‡ã†ã€‚ ã¯ã˜ã‚ã« å¤§åž£ã•ã‚“ã®ãƒ–ãƒã‚°ã‚¨ãƒ³ãƒˆãƒªã€ŒPHPerå‘ã‘ã€Ruby/Railsã®è½ã¨ã—ç©´ã€ã«ã¯ã€Rubyã®è½ã¨ã—ç©´ã¨ã—ã¦ã€å®Œå…¨ä¸€è‡´æ¤œç´¢ã®æŒ‡å®šã¨ã—ã¦ã€æ£è¦è¡¨ç¾ã® ^ ã¨ $ ã‚’æŒ‡å®šã™ã‚‹ä¾‹ãŒã€Ruby on Rails Security Guideã‹ã‚‰ã®å¼•ç”¨ã¨ã—ã¦ç´¹ä»‹ã•ã‚Œã¦ã„ã¾ã™ã€‚ä»¥ä¸‹ã®æ£è¦è¡¨ç¾ã¯ã€XSSå¯¾ç–ã¨ã—ã¦ã€httpã‚¹ã‚ãƒ¼ãƒ ã‚ã‚‹ã„ã¯httpsã‚¹ã‚ãƒ¼ãƒ ã®URLã®ã¿ã‚’è¨±å¯ã™ã‚‹æ£è¦è¡¨ç¾ã®ã¤ã‚‚ã‚Šã§ã™ã€‚ /^https?:\/\/[^\n]+$/
tmsanrinsha 2014/03/04
PHP

ruby

perl

æ£è¦è¡¨ç¾

ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£

Validation

regex

security

xss
ãƒªãƒ³ã‚¯
ã‚ã‚‹æŠ€è¡“è€…ã®å‚™å¿˜éŒ² >> Perlã§ãƒ•ã‚¡ã‚¤ãƒ«å†…å®¹ã‚’ä¸€æ‹¬ã—ã¦èªã¿è¾¼ã‚€ã«ã¯
Perlã§ã¯ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ä¸€æ‹¬èªã¿è¾¼ã¿ã™ã‚‹å ´åˆã€ã‚ˆãä»¥ä¸‹ã®ã‚ˆã†ã«æ›¸ã‹ã‚Œã¾ã™ã€‚ open( IN, "<$fileName" ); my @data = <IN>; close(IN); ãŸã ã€ã“ã‚Œã ã¨èªã¿è¾¼ã‚“ã ãƒ‡ãƒ¼ã‚¿ãŒæ”¹è¡Œã§åŒºåˆ‡ã‚‰ã‚Œã¦é…åˆ—ã«å…¥ã£ã¦ã—ã¾ã„ã¾ã™ã€‚PHPã§ã„ã†ã¨ã“ã‚ã® file_get_contents ã¿ãŸã„ã«æ”¹è¡Œã‚‚å«ã‚€æ–‡å—åˆ—ã¨ã—ã¦ä¸€æ‹¬ã—ã¦èªã¿è¾¼ã‚€ã«ã¯ã€æ¬¡ã®ã‚ˆã†ã«ã—ã¾ã™ã€‚ open( IN, "<$fileName" ); local $/ = undef; my $data = <IN>; close(IN); ã“ã‚Œã¯ã€ç‰¹æ®Šå¤‰æ•°ã§ã‚ã‚‹$/ï¼ˆæ”¹è¡ŒåŒºåˆ‡ã‚Šï¼‰ã‚’ä¸€æ™‚çš„ã«ç„¡åŠ¹ã«ã—ã¦ã‹ã‚‰ä¸€è¡Œåˆ†ã®ãƒ‡ãƒ¼ã‚¿ã‚’èªã¿è¾¼ã‚€ã¨ã„ã†ã“ã¨ã‚’ã—ã¦ã„ã¾ã™ã€‚ã“ã®æ”¹è¡Œã®ç„¡åŠ¹åŒ–ã«ã‚ˆã‚Šã€ã€Œä¸€è¡Œåˆ†ã®ãƒ‡ãƒ¼ã‚¿ï¼æ–‡æœ«ã¾ã§ã®ãƒ‡ãƒ¼ã‚¿ã€ã¨ã„ã†ã“ã¨ã«ãªã‚Šã¾ã™ã€‚
tmsanrinsha 2014/01/22
perl

ãƒ•ã‚¡ã‚¤ãƒ«
ãƒªãƒ³ã‚¯
å®Ÿè¡Œã•ã‚Œã¦ã„ã‚‹ Perl ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®çµ¶å¯¾ãƒ‘ã‚¹ã‚’å–å¾—ã™ã‚‹æ–¹æ³•ãŒçŸ¥ã‚ŠãŸã„ã§ã™ã€‚â€¦
å®Ÿè¡Œã•ã‚Œã¦ã„ã‚‹ Perl ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®çµ¶å¯¾ãƒ‘ã‚¹ã‚’å–å¾—ã™ã‚‹æ–¹æ³•ãŒçŸ¥ã‚ŠãŸã„ã§ã™ã€‚ __FILE__ ã§ãƒ•ã‚¡ã‚¤ãƒ«åã‚’å–å¾—ã§ãã‚‹ã“ã¨ã¯çŸ¥ã£ã¦ã„ã‚‹ã®ã§ã™ãŒã€å–å¾—ã—ãŸãƒ•ã‚¡ã‚¤ãƒ«åã‚’æŽ¢ã™å‡¦ç†ã‚’å…¥ã‚Œã‚‹ã¹ããªã®ã‹ã€CPAN ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ãã«è§£æ±ºã§ãã‚‹ã®ã‹è¦‹å½“ãŒã¤ãã¾ã›ã‚“ã€‚ ã‚°ã‚°ãƒƒã¦ã¯è¦‹ãŸã®ã§ã™ãŒã€è©²å½“ã™ã‚‹çµæžœãŒå¾—ã‚‰ã‚Œã¾ã›ã‚“ã§ã—ãŸã€‚
tmsanrinsha 2014/01/22
perl

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