[B! Perl] rokujyouhitomaã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

rokujyouhitoma id:rokujyouhitoma

Perlã«é–¢ã™ã‚‹rokujyouhitomaã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (236)

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

å®‰å…¨ãªãƒ•ã‚¡ã‚¤ãƒ«æ›¸ãæ›ãˆã«ã¯ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã‚‚ fsync ã™ã¹ãã€‚ã ã‘ã© Perl ã§ã©ã†æ›¸ãã‹ - kazuhoã®ãƒ¡ãƒ¢ç½®ãå ´
é–“é•ã£ã¦ãŸã‚‰ãƒ„ãƒƒã‚³ãƒŸãŠé¡˜ã„ã—ã¾ã™ã€‚ ext4 ãŒå‡ºãŸã‚¿ã‚¤ãƒŸãƒ³ã‚°ã§è©±é¡Œã«ãªã£ãŸã“ã¨ã ã‘ã©ã€(ext4 ã«é–¢ä¿‚ãªãä¸€èˆ¬è«–ã¨ã—ã¦) ãƒ•ã‚¡ã‚¤ãƒ«ã‚’å®‰å…¨ã«æ›¸ãæ›ãˆã‚‹ãŸã‚ã«ã¯ã€ã„ãã¤ã‹ã®æ‰‹é †ã‚’è¸ã‚€å¿…è¦ãŒã‚ã‚‹ã€‚ã§ã€Perl ã ã¨ã ã„ãŸã„ä»¥ä¸‹ã®ã‚ˆã†ã«ãªã‚‹ã€‚ # 1) é©å½“ãªãƒ†ãƒ³ãƒãƒ©ãƒªãƒ•ã‚¡ã‚¤ãƒ«å (æ ¼ç´å…ˆã¨åŒãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒª) my $newfn = "tmp.$$"; # 2) ãƒ•ã‚¡ã‚¤ãƒ«ã‚’æ›¸ã„ã¦ fsync open my $fh, '>', $newfn or die "failed to open file:$newfn:$!"; print $fh $data; IO::Handle::flush($fh); or die "flush failed:$!"; IO::Handle::sync($fh); or die "fsync failed:$!"; close $fh; # 3) å¤ã„ãƒ•ã‚¡ã‚¤ãƒ«ã‚’åˆ¥
rokujyouhitoma 2021/11/25
Perl

FileSystem

C
ãƒªãƒ³ã‚¯
Perlã®æœ€æ–°å‹•å‘ 2021 - Mobile Factory Tech Blog
ã“ã‚“ã«ã¡ã¯ã€ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ã® id:mp0liiu ã§ã™ã€‚ 8æœˆ28æ—¥(åœŸ)ã® Learn Languages 2021 ã¨ã„ã†ã‚¤ãƒ™ãƒ³ãƒˆã® Language Update ã¨ã„ã†ã‚»ãƒƒã‚·ãƒ§ãƒ³ã§@charsbarã•ã‚“ã¨ä¸€ç·’ã«2018å¹´ä»¥é™ã®Perl5ã‚„Perlã‚³ãƒŸãƒ¥ãƒ‹ãƒ†ã‚£ã®æœ€æ–°å‹•å‘ã«ã¤ã„ã¦è©±ã—ã¦ããŸã®ã§ã€ãã®ã¨ãè©±ã—ãŸå†…å®¹ã«è£œè¶³ãªã©ã—ã¤ã¤è¨˜äº‹ã«ã—ã¦ã„ããŸã„ã¨æ€ã„ã¾ã™ã€‚ é…ä¿¡ã‚¢ãƒ¼ã‚«ã‚¤ãƒ–ã¯ã“ã¡ã‚‰ã‹ã‚‰è¦‹ã‚Œã¾ã™ã€‚ æ™‚ç³»åˆ— 2019/5/22 Perl5.30 ãƒªãƒªãƒ¼ã‚¹ 2020/6/20 Perl5.32 ãƒªãƒªãƒ¼ã‚¹ 2020/6/24 Perl7ã®ç™ºè¡¨ 2021/5/21 Perl5.34 ãƒªãƒªãƒ¼ã‚¹ Perl5.30 ã®å¤‰æ›´ç‚¹ æ£è¦è¡¨ç¾ã‚„æ–‡å—å‘¨ã‚Šã®ç´°ã‹ã„æ”¹å–„ãªã©ã¯ã‚ã‚Šã¾ã™ãŒã€æ£ç›´ã‚ã¼ã—ã„å¤‰æ›´ç‚¹ãŒè¦‹ã‚‰ã‚Œãªã„ã§ã™ã€‚ Perl5.32 ã®å¤‰æ›´ç‚¹ isa æ¼”ç®—åã®å®Ÿè£… å€¤ãŒã‚ã‚‹ã‚¯ãƒ©ã‚¹ã®ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹ã‚‚ã—ãã¯ãã®ã‚µãƒ–
rokujyouhitoma 2021/10/13
Perl
ãƒªãƒ³ã‚¯
Client Challenge
A required part of this site couldnâ€™t load. This may be due to a browser extension, network issues, or browser settings. Please check your connection, disable any ad blockers, or try using a different browser.
rokujyouhitoma 2021/02/22
NYTProf

Perl
ãƒªãƒ³ã‚¯
How to debug a perl script using gdb
ä½¿ç”¨ä¾‹ use IO::Socket::INET;sub baz { while (1) { my $sd = new IO::Socket::INET( PeerAddr => '10.1.0.0:80'); # ã“ã“ã§å›ºã¾ã‚‹ sleep(1); } } sub bar { baz($_[0]); } sub foo { bar(35, 5.98, "xyz", @_); } foo("abc"); gdb perl.pl ã«ã‚ˆã‚‹å‘¼å‡ºã—å±¥æ´å‡ºåŠ›ä¾‹ [10]IO::Socket::connect() <- /home/user/perl5/perlbrew/perls/perl-5.15.3/lib/5.15.3/i686-linux/IO/Socket/INET.pm:257(IO::Socket::INET) [9] IO::Socket::INE
rokujyouhitoma 2020/12/15
gdb

Perl
ãƒªãƒ³ã‚¯
Security GO | ã‚µã‚¤ãƒãƒ¼ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£ãƒªãƒ¼ãƒ€ãƒ¼ã®é¸æŠžã¨æ±ºæ–ã‚’æ”¯æ´
XDRã€Agentic SIEMã€Agentic SOARã§åŽé›†ã—ãŸæƒ…å ±ã‹ã‚‰æ”»æ’ƒã®ç«¯ç·’ã‚’å¯è¦–åŒ–ã€é˜²æ¢ã€‚æ”»æ’ƒè€…ã«éš ã‚Œã‚‹ä½™åœ°ã‚’ä¸Žãˆã¾ã›ã‚“ã€‚ è©³ã—ãã¯ã“ã¡ã‚‰
rokujyouhitoma 2019/08/13
Perl
ãƒªãƒ³ã‚¯
ç¬¬48å›žã€€Perlã§ã®ä»Šé¢¨ã®ã‚²ãƒ¼ãƒ ã‚µãƒ¼ãƒé–‹ç™ºã¨ãƒ†ã‚¹ãƒˆï¼ˆ1ï¼‰ | gihyo.jp
æœ¬é€£è¼‰ã§ã¯ç¬¬ä¸€ç·šã®Perl ãƒãƒƒã‚«ãƒ¼ãŒå›žæ›¿ã‚ã‚Šã§åŸ·ç†ã—ã¦ã„ãã¾ã™ã€‚ä»Šå›žã®ãƒãƒƒã‚«ãƒ¼ã¯è°·è„‡çœŸç´ã•ã‚“ã§ã€ãƒ†ãƒ¼ãƒžã¯ã€ŒPerlã§ã®ä»Šé¢¨ã®ã‚²ãƒ¼ãƒ ã‚µãƒ¼ãƒé–‹ç™ºã¨ãƒ†ã‚¹ãƒˆã€ã§ã™ã€‚ MySQLã‚’ä½¿ã£ãŸã‚³ãƒ¼ãƒ‰ã®ãƒ†ã‚¹ãƒˆã®æ§‹ç¯‰ã®ã—ã‹ãŸã‚„ã€æ™®é€šã®Webã‚µãƒ¼ãƒ“ã‚¹ã«ã¯è¦‹ã‚‰ã‚Œãªã„ãƒžã‚¹ã‚¿ãƒ‡ãƒ¼ã‚¿ã«å¯¾ã™ã‚‹ãƒ†ã‚¹ãƒˆãªã©ã€Perlã«ã‚ˆã‚‹ã‚²ãƒ¼ãƒ ã‚µãƒ¼ãƒã®é–‹ç™ºã«ã‚ˆã£ã¦å¾—ã‚‰ã‚ŒãŸçŸ¥è¦‹ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ æœ¬ç¨¿ã®ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã¯ã€WEB+DB PRESS Vol.102ã®ã‚µãƒãƒ¼ãƒˆã‚µã‚¤ãƒˆã‹ã‚‰å…¥æ‰‹ã§ãã¾ã™ã€‚ ã‚²ãƒ¼ãƒ ã‚µãƒ¼ãƒã®APIé–‹ç™º ã‚²ãƒ¼ãƒ ã¨ä¸€å£ã«è¨€ã£ã¦ã‚‚ã€å®¶åºç”¨æ®ãˆç½®ãã‚²ãƒ¼ãƒ æ©Ÿã‚„æºå¸¯ã‚²ãƒ¼ãƒ æ©Ÿã€ã‚¹ãƒžãƒ¼ãƒˆãƒ•ã‚©ãƒ³ãªã©ã€ã•ã¾ã–ã¾ãªãƒ—ãƒ©ãƒƒãƒˆãƒ•ã‚©ãƒ¼ãƒ ã«ã‚²ãƒ¼ãƒ ãŒãƒªãƒªãƒ¼ã‚¹ã•ã‚Œã¦ã„ã¾ã™ã€‚ç†è€…ã¯ãã®ä¸ã§ã‚‚ã€ã‚¹ãƒžãƒ¼ãƒˆãƒ•ã‚©ãƒ³å‘ã‘ã®ã‚²ãƒ¼ãƒ ã‚¢ãƒ—ãƒªã®é–‹ç™ºãƒãƒ¼ãƒ ã«ã„ã¾ã™ã€‚ã„ã‚ã‚†ã‚‹ã€ã‚½ãƒ¼ã‚·ãƒ£ãƒ«ã‚²ãƒ¼ãƒ ã‚¢ãƒ—ãƒªã¨è¨€ã‚ã‚Œã¦ã„ã‚‹ã‚‚ã®ã§ã™ã€‚ ç¾ä»£ã®ã‚²ãƒ¼ãƒ ã‚¢ãƒ—ãƒªã§ã¯ã€ã‚¢ãƒ—ãƒªãŒãƒ‡ãƒ¼ã‚¿ã‚’ä¿å˜ã™ã‚‹ãŸã‚ã‚„ã€ã»ã‹ã®
rokujyouhitoma 2018/04/18
Perl
ãƒªãƒ³ã‚¯
JSON::XSã§ãƒ‡ã‚·ãƒªã‚¢ãƒ©ã‚¤ã‚ºã™ã‚‹æ™‚ã«trueã¨falseã®æ‰±ã„ã‚’å¤‰æ›´ã™ã‚‹ - ãã®æ‰‹ã®å¹³ã¯å°»ã‚‚ã¤ã‹ã‚ã‚‹ã•
Perl5ã®è©±é¡Œã§ã™ï¼Ž JSON::XSã‚’ç”¨ã„ã¦ï¼ŒJSON Stringã‚’Perlã®HashRefã«ãƒ‡ã‚·ãƒªã‚¢ãƒ©ã‚¤ã‚ºã™ã‚‹æ™‚ã«trueã¨falseã®æ‰±ã„ã‚’å¤‰ãˆãŸã„ã¨ã„ã†è©±ã§ã™ï¼Ž ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆçŠ¶æ…‹ã§JSON::XSã‚’ç”¨ã„ã¦ãƒ‡ã‚·ãƒªã‚¢ãƒ©ã‚¤ã‚ºã™ã‚‹ã¨ï¼Œ true ã¯ Types::Serialiser::true ã™ãªã‚ã¡ JSON::PP::Boolean ã®çœŸå€¤ã¨ã—ã¦ï¼Œ false ã¯ Types::Serialiser::false ã™ãªã‚ã¡ JSON::PP::Boolean ã®å½å€¤ã¨ã—ã¦æ‰±ã‚ã‚Œã¾ã™ï¼Ž æ™®é€šã®å‡¦ç†ã§ã‚ã‚Œã°ã“ã‚Œã§å•é¡Œãªã„ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ãŒï¼Œä¾‹ãˆã°ã€ŒJSON Stringã‚’Perlã®HashRefã«ã—ã¦ãã‚Œã‚’æ›´ã«ä½•ã‚‰ã‹ã®ã‚·ãƒªã‚¢ãƒ©ã‚¤ã‚¶ã«é€šã™ã€ã¨ã„ã£ãŸã‚ˆã†ãªå‡¦ç†ã‚’ã—ã‚ˆã†ã¨ã™ã‚‹ã¨ï¼ŒJSON::PP::Boolean ã®ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã ã¨å–ã‚Šå›žã—ãŒæ‚ªã„å ´åˆãŒã‚ã‚Šã¾ã™ï¼Žãã†ã„ã£ãŸæ™‚ã«ï¼Œtrue/fa
rokujyouhitoma 2017/06/29
Perl

JSON
ãƒªãƒ³ã‚¯
join - é…åˆ—ã®çµåˆ
[Perl] => [æ–‡å—åˆ—æ“ä½œ] joiné–¢æ•°ã¯splité–¢æ•°ã®é€†ã®å½¹å‰²ã‚’æžœãŸã™é–¢æ•°ã§ã€å—ã‘å–ã£ãŸé…åˆ—ã‚’æŒ‡å®šã—ãŸåŒºåˆ‡ã‚Šæ–‡å—ã«ã¦ã€ã‚¹ã‚«ãƒ©ãƒ¼å¤‰æ•°ã«å¤‰æ›ã—ã¦ãã‚Œã¾ã™ã€‚ [æ›¸å¼] join('åŒºåˆ‡ã‚Šæ–‡å—', é…åˆ—); [ä¾‹] #!/usr/bin/perl my @array = qw /a b c d e/; my $scalar = join(';', @array); print "$scalar\n";
rokujyouhitoma 2017/03/28
Perl
ãƒªãƒ³ã‚¯
CentOS æ¨™æº–æè¼‰ã® Perl ã«è² ã‘ãªã„ã§å¼·ãç”Ÿãã‚‹ - Qiita
ã“ã®è¨˜äº‹ã§ã¯ã€OS æ¨™æº–ã® Perl ã§å‹•ã CLI ãƒ„ãƒ¼ãƒ«ã‚’ä½œã£ã¦ã‚‹éš›ã« CentOS ã§ãƒãƒžã‚‹ç‚¹ã«ã¤ã„ã¦èª¬æ˜Žã—ã¦ã„ã¾ã™ã€‚ TL;DR Linux / Mac OS X ã®å¤šãã®ç’°å¢ƒã§ã¯æ¨™æº–ã§ Perl 5 ãŒã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã„ã‚‹ ã—ã‹ã— CentOS æ¨™æº–ã® Perl 5 ã® ã‚³ã‚¢ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯æ¬ ã‘ã¦ã„ã‚‹ OS æ¨™æº–ã® Perl ã«ä¾å˜ã—ãŸ CLI ãƒ„ãƒ¼ãƒ«ã‚’ä½œã‚‹æ™‚ã¯æ³¨æ„ãŒå¿…è¦ ãªãœæ¨™æº–ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã® Perl ã‚’ä½¿ã†å¿…è¦ãŒã‚ã‚‹ã®ã‹ ç¾åœ¨ä½¿ã‚ã‚Œã¦ã„ã‚‹ Linux ã®å¤šãã‚„ Mac OS X ã«ã¯ã€æ¨™æº–ã§ Perl 5 ãŒã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã¦ã„ã¾ã™ã€‚ ã—ã‹ã—ã€Perl ã§ã‚¦ã‚§ãƒ–ã‚µãƒ¼ãƒ“ã‚¹ã‚’é–‹ç™ºã™ã‚‹éš›ã«ã¯ã€ãã‚Œã‚‰æ¨™æº–ã§ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã¦ã„ã‚‹ Perl ã§ã¯ãªãã€ç‹¬è‡ªã§ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã‚„ãƒ“ãƒ«ãƒ‰ã—ãŸ Perl ã‚’ä½¿ã†ã“ã¨ã«ãªã‚‹ã§ã—ã‚‡ã†ã€‚ ã—ã‹ã—ã€æ—¥å¸¸çš„ã« Perl ã‚’ä½¿ã£ã¦ã„ã‚‹äººå‘ã‘ã§ã¯ãªã„ CLI ãƒ„ãƒ¼
rokujyouhitoma 2017/03/28
Perl
ãƒªãƒ³ã‚¯
@INCã®è¿½åŠ
[Perl] perlã§@INCã«ãƒ‘ã‚¹ã‚’è¿½åŠ ã™ã‚‹ã«ã¯ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚¹ã‚¤ãƒƒãƒã«ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’æ¸¡ã™ã‹ã€BEGINæ–‡ã‚‚ã—ãã¯use libã«ã¦ãƒ‘ã‚¹ã‚’è¿½åŠ ã™ã‚‹æ–¹æ³•ãŒã‚ã‚Šã¾ã™ã€‚ [ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’æ¸¡ã™æ–¹æ³•]
rokujyouhitoma 2017/03/28
Perl
ãƒªãƒ³ã‚¯
carp - ã‚¨ãƒ©ãƒ¼ã®è¦å‘Š (å‘¼ã³å‡ºã—å…ƒã®è¦³ç‚¹ã‹ã‚‰); cluck - ã‚¹ã‚¿ãƒƒã‚¯ãƒãƒƒã‚¯ãƒˆãƒ¬ãƒ¼ã‚¹ã‚’ä¼´ã†ã‚¨ãƒ©ãƒ¼ã®è¦å‘Š (ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§ã¯ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã•ã‚Œã¾ã›ã‚“); croak - ã‚¨ãƒ©ãƒ¼ã‚’å‡ºã—ã¦dieã—ã¾ã™ (å‘¼ã³å‡ºã—å…ƒã®è¦³...
åå‰Â¶ carp - ã‚¨ãƒ©ãƒ¼ã®è¦å‘Š (å‘¼ã³å‡ºã—å…ƒã®è¦³ç‚¹ã‹ã‚‰) cluck - ã‚¹ã‚¿ãƒƒã‚¯ãƒãƒƒã‚¯ãƒˆãƒ¬ãƒ¼ã‚¹ã‚’ä¼´ã†ã‚¨ãƒ©ãƒ¼ã®è¦å‘Š (ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§ã¯ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã•ã‚Œã¾ã›ã‚“) croak - ã‚¨ãƒ©ãƒ¼ã‚’å‡ºã—ã¦dieã—ã¾ã™ (å‘¼ã³å‡ºã—å…ƒã®è¦³ç‚¹ã‹ã‚‰) confess - ã‚¹ã‚¿ãƒƒã‚¯ãƒãƒƒã‚¯ãƒˆãƒ¬ãƒ¼ã‚¹ã‚’ä¼´ã£ã¦dieã—ã¾ã™ shortmess - carpã¨croakãŒç”Ÿæˆã™ã‚‹ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’è¿”ã—ã¾ã™ longmess - cluckã¨confessãŒç”Ÿæˆã™ã‚‹ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’è¿”ã—ã¾ã™ æ¦‚è¦Â¶ use Carp; croak "We're outta here!"; use Carp qw(cluck); cluck "This is how we got here!"; print FH Carp::shortmess("This will have caller's details added"); print FH Car
rokujyouhitoma 2017/03/28
Perl
ãƒªãƒ³ã‚¯
çµ‚äº†ã‚¹ãƒ†ãƒ¼ã‚¿ã‚¹ - UNIX & Linux ã‚³ãƒžãƒ³ãƒ‰ãƒ»ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆ ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹
çµ‚äº†ã‚¹ãƒ†ãƒ¼ã‚¿ã‚¹ çµ‚äº†ã‚¹ãƒ†ãƒ¼ã‚¿ã‚¹ã¨ã¯ï¼Ÿ ã‚³ãƒžãƒ³ãƒ‰çµ‚äº†æ™‚ã«ã¯ã€Œçµ‚äº†ã‚¹ãƒ†ãƒ¼ã‚¿ã‚¹ã€€(exit-status)ã€ã¨å‘¼ã°ã‚Œã‚‹ã‚³ãƒžãƒ³ãƒ‰ã®æˆå¦ã‚’è¡¨ã™æ•°å€¤ãŒç‰¹æ®Šå¤‰æ•° $? ã«è‡ªå‹•ã§è¨å®šã•ã‚Œã‚‹ã€‚ å„ã‚³ãƒžãƒ³ãƒ‰ã«ã‚ˆã‚Šç•°ãªã‚‹ãŒã€ä¸€èˆ¬çš„ã«ã¯ã€ ã‚³ãƒžãƒ³ãƒ‰æˆåŠŸæ™‚ã«ã¯ã€Œ0ã€ å¤±æ•—æ™‚ã«ã¯ã€Œ1ã€(ã‚³ãƒžãƒ³ãƒ‰ã‚„ã‚¨ãƒ©ãƒ¼ã®ç¨®é¡žã«ã‚ˆã£ã¦ã¯ 0 ä»¥å¤–) ãŒè¨å®šã•ã‚Œã‚‹ã€‚ â†’ ç›´å‰ã«å®Ÿè¡Œã—ãŸã‚³ãƒžãƒ³ãƒ‰ã®æˆå¦ã¯ã€ç‰¹æ®Šå¤‰æ•° $? ã«è¨å®šã•ã‚Œã¦ã„ã‚‹å€¤ã§ç¢ºèªã™ã‚‹ã€‚ çµ‚äº†ã‚¹ãƒ†ãƒ¼ã‚¿ã‚¹ã‚’è¨å®š ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆã§ã¯ exit ã‚³ãƒžãƒ³ãƒ‰ã«æŒ‡å®šã—ãŸãƒ‘ãƒ©ãƒ¡ãƒ¼ã‚¿ (0 ã‚‚ã—ãã¯ 1 ï½ž 255 ã®æ£ã®æ•´æ•°å€¤ã®ã¿å¯) ãŒã€ãã®ã‚·ã‚§ãƒ«ã®çµ‚äº†ã‚¹ãƒ†ãƒ¼ã‚¿ã‚¹ã¨ãªã‚‹ã€‚ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆã«ãŠã„ã¦ã‚‚æ£å¸¸çµ‚äº†æ™‚ã¯ exit 0 ã§ã€ç•°å¸¸çµ‚äº†æ™‚ã«ã¯ exit 1 ã§çµ‚äº†ã™ã‚‹ã‚ˆã†ã«ã™ã‚‹ã®ãŒæ…£ä¾‹ã§ã‚ã‚‹ã€‚ é–¢æ•°ã‚‚åŒæ§˜ã« return ã‚³ãƒžãƒ³ãƒ‰ã«æŒ‡å®šã—ãŸãƒ‘ãƒ©ãƒ¡ãƒ¼ã‚¿ãŒçµ‚äº†ã‚¹ãƒ†ãƒ¼ã‚¿ã‚¹ã¨ãªã‚‹ã€‚ â†’ ã‚·ã‚§ãƒ«
rokujyouhitoma 2017/03/28
Perl
ãƒªãƒ³ã‚¯
perl ã§ã‚¹ã‚¿ãƒƒã‚¯ãƒˆãƒ¬ãƒ¼ã‚¹ - pgyã®æ—¥è¨˜
perl ã«ã¯ confess ã¨ã„ã†ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ãŒã‚ã‚Šã¾ã™ã€‚ confess ã¯ã‚¹ã‚¿ãƒƒã‚¯ãƒˆãƒ¬ãƒ¼ã‚¹ã‚’è¡¨ç¤ºã—çµ‚äº†ã™ã‚‹ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã§ã™ã€‚confess ã®å¼•æ•°ã«çµ‚äº†ã—ãŸç†ç”±ã‚’è¨˜è¿°ã™ã‚‹ã ã‘ã§ã€ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å¯èªæ€§ãŒå‘ä¸Šã™ã‚‹ã ã‘ã§ãªãã€éšœå®³æ™‚ã®ãƒˆãƒ©ãƒ–ãƒ«ã‚·ãƒ¥ãƒ¼ãƒˆãŒå®¹æ˜“ã«ãªã‚Šã¾ã™ã€‚ #!perl use strict; use warnings; use Carp; sub foo { confess "something wrong"; print "this line will not be executed.\n" } sub bar { foo; } sub baz { bar; } baz; exit; å®Ÿè¡Œçµæžœã¯æ¬¡ã®é€šã‚Šã€‚ $ perl stacktrace.pl something wrong at stacktrace.pl line 7 main::foo() called at s
rokujyouhitoma 2017/03/28
Perl
ãƒªãƒ³ã‚¯
à¹€à¸§à¹‡à¸šà¹„à¸‹à¸•à¹Œ jetsadabet à¸ªà¸¥à¹‡à¸à¸•à¸à¸à¸™à¹„à¸¥à¸™à¹Œà¹€à¸§à¹‡à¸šà¸•à¸£à¸‡ à¸£à¸±à¸šà¹‚à¸šà¸™à¸±à¸ªà¸ªà¸¹à¸‡à¸ªà¸¸à¸”
jetsadabet à¹€à¸§à¹‡à¸šà¹„à¸‹à¸•à¹Œà¸‚à¸à¸‡à¹€à¸£à¸²à¹€à¸›à¹‡à¸™à¸—à¸µà¹ˆà¸¢à¸à¸¡à¸£à¸±à¸šà¹à¸¥à¸°à¹„à¸”à¹‰à¸£à¸±à¸šà¸à¸²à¸£à¸£à¸±à¸šà¸£à¸à¸‡à¸§à¹ˆà¸²à¹€à¸›à¹‡à¸™à¸—à¸µà¹ˆà¸”à¸µà¸—à¸µà¹ˆà¸ªà¸¸à¸”à¹ƒà¸™à¸à¸²à¸£à¹€à¸¥à¹ˆà¸™à¸žà¸™à¸±à¸™à¸à¸à¸™à¹„à¸¥à¸™à¹Œà¹ƒà¸™à¸›à¸£à¸°à¹€à¸—à¸¨à¹„à¸—à¸¢. à¸£à¸°à¸šà¸šà¸à¸²à¸£à¹€à¸‡à¸´à¸™à¹à¸¥à¸°à¸à¸²à¸£à¹€à¸¥à¹ˆà¸™à¸žà¸™à¸±à¸™à¸à¸à¸™à¹„à¸¥à¸™à¹Œà¸—à¸µà¹ˆà¸¡à¸±à¹ˆà¸™à¸„à¸‡à¹à¸¥à¸°à¸›à¸¥à¸à¸”à¸ à¸±à¸¢ à¸ªà¸£à¹‰à¸²à¸‡à¸„à¸§à¸²à¸¡à¹€à¸Šà¸·à¹ˆà¸à¸–à¸·à¸à¹à¸¥à¸°à¸„à¸§à¸²à¸¡à¹€à¸›à¹‡à¸™à¸ªà¹ˆà¸§à¸™à¸•à¸±à¸§à¸—à¸µà¹ˆà¸„à¸¸à¹‰à¸¡à¸„à¹ˆà¸²à¸ªà¸³à¸«à¸£à¸±à¸šà¸œà¸¹à¹‰à¹€à¸¥à¹ˆà¸™à¸—à¸¸à¸à¸£à¸°à¸”à¸±à¸šà¹ƒà¸™à¸£à¸°à¸”à¸±à¸šà¹€à¸”à¸µà¸¢à¸§à¸à¸±à¸™. à¹€à¸‚à¹‰à¸²à¸£à¹ˆà¸§à¸¡à¸à¸²à¸£à¹€à¸”à¸´à¸¡à¸žà¸±à¸™à¸à¸à¸™à¹„à¸¥à¸™à¹Œà¸à¸±à¸šà¸—à¸²à¸‡à¹€à¸£à¸²à¹€à¸žà¸·à¹ˆà¸à¸„à¸§à¸²à¸¡à¸ªà¸™à¸¸à¸à¸ªà¸™à¸²à¸™à¹à¸¥à¸°à¸›à¸£à¸°à¸ªà¸šà¸à¸²à¸£à¸“à¹Œà¸—à¸µà¹ˆà¸«à¸¥à¸²à¸à¸«à¸¥à¸²à¸¢à¸—à¸±à¸™à¸ªà¸¡à¸±à¸¢à¸—à¸µà¹ˆà¸ªà¸¸à¸”à¸„à¹ˆà¸°! à¹€à¸ˆà¸©à¸Žà¸² à¹€à¸šà¸— à¹€à¸¡à¸·à¹ˆà¸à¸—à¹ˆà¸²à¸™à¸¡à¸µà¸à¸²à¸£à¹€à¸¥à¹ˆà¸™à¸žà¸™à¸±à¸™à¸à¸à¸™à¹„à¸¥à¸™à¹Œà¸à¸¢à¹ˆà¸²à¸‡à¸£à¸°à¸¡à¸±à¸”à¸£à¸°à¸§à¸±à¸‡ à¸—à¹ˆà¸²à¸™à¸ªà¸²à¸¡à¸²à¸£à¸–
rokujyouhitoma 2017/03/27
Perl
ãƒªãƒ³ã‚¯
[Perl] my ã¨ local ã¨ our ã®é•ã„ã«ã¤ã„ã¦ - ç«¹è¿«ã®è¿‘æ³å ±å‘Š
404 Blog Not Found:perl - myã¨ourã¨scopeã¨ ã¿ã‚“ãªé›£ã—ãè€ƒãˆã™ãŽã§ã™ã€‚ ï¼ˆä¾‹å¤–ã«ã¤ã„ã¦ã¯å¾Œã§è€ƒãˆã‚‹ã“ã¨ã«ã—ã¦ï¼‰ã¨ã‚Šã‚ãˆãšä»¥ä¸‹ã®åŸºæœ¬ã‚’ãŠã•ãˆã¦ãŠã‘ã°æ··ä¹±ã™ã‚‹ã“ã¨ã¯ãªã„ã¨æ€ã„ã¾ã™ã€‚ â– our å®£è¨€ã«ã¤ã„ã¦ our ã¯ã‚°ãƒãƒ¼ãƒãƒ«å¤‰æ•°ã‚’ã‚¹ãƒžãƒ¼ãƒˆã«ä½¿ç”¨ã™ã‚‹ãŸã‚ã®å®£è¨€ã§ã™ã€‚our ã¯ use vars ã¨ç‰ä¾¡ã¨è€ƒãˆã¦ãã ã•ã„ã€‚ our $var; ã¯ use vars qw($var); ã¨ç‰ä¾¡ã€‚ our $var = 1; ã¯ use vars qw($var); $var = 1; ã¨åŒã˜å‹•ãã‚’ã™ã‚‹ã‚‚ã®ã€ã¨è¦šãˆã¦ãŠã‘ã°OKã§ã™ã€‚ãã‚Œä»¥ä¸Šã®é•ã„ã¯åŸºæœ¬çš„ã«ãªã„ã¨è€ƒãˆã¦æ§‹ã„ã¾ã›ã‚“ã€‚ ã²ã¨ã¤å®Ÿç”¨ä¸Šã®é•ã„ãŒã‚ã‚‹ã¨ã™ã‚Œã°ã€our ã¯ Perl 5.6 ä»¥é™ã® built-in ãªã®ã«å¯¾ã—ã¦ã€use vars ã¯ vars.pm ã® Perlã‚¹ã‚¯ãƒªãƒ—ãƒˆã§å®Ÿè£…ã•ã‚Œã¦ã„ã¾ã™ã€‚ã—
rokujyouhitoma 2017/03/24
Perl
ãƒªãƒ³ã‚¯
Perlã§é…åˆ—ã‚’ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã«æ¸¡ã™ã¨ãã¯æ³¨æ„ï¼ - ãªãœã‚Šã‚“ã®ã¤ã‚Œã¥ã‚Œãªã‚‹ã¾ã¾ã«ã€‚
ä»Šå›žã¯ã€Perlã§ã‚„ã‚‰ã‹ã—ãŸé…åˆ—ã®æ‰±ã„æ–¹ã®å¤±æ•—ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ ã¾ãšã¯ã€ä¸‹è¨˜ã®ã‚³ãƒ¼ãƒ‰ã‚’ã”è¦§ãã ã•ã„ã€‚ #!/usr/bin/perl my $filename = 'daily_report.txt'; my @record; # @recordã¸å€¤ã®ä»£å…¥(0ã€œ9ã¾ã§ã®æ•°å€¤ãŒå„è¦ç´ ã«ä»£å…¥ã•ã‚Œã‚‹) for (my $i=0; $i<10; $i++) { $record[$i] = $i; } # ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³å‘¼ã³å‡ºã— output_answer(@record,$filename); ### ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ ### sub output_answer { my (@record,$filename) = @_; open my $out, '>', $filename or die "Can't open file '$filename' : $!"; foreach my $tmp (@re
rokujyouhitoma 2017/03/15
Perl
ãƒªãƒ³ã‚¯
å¤§äººã®ãŠã‚‚ã¡ã‚ƒã‚³ãƒ¬ã‚¯ã‚·ãƒ§ãƒ³
hi â€»æœ¬ãƒšãƒ¼ã‚¸ã«ã¯ã‚¢ãƒ•ã‚£ãƒªã‚¨ã‚¤ãƒˆãƒªãƒ³ã‚¯ãŒå«ã¾ã‚Œã¦ã„ã¾ã™ã€‚
rokujyouhitoma 2017/03/14
Perl
ãƒªãƒ³ã‚¯
4-2. Perl ã®å±é™ºãªé–¢æ•°
<body> </body>
rokujyouhitoma 2017/03/13
Perl

Security
ãƒªãƒ³ã‚¯
perlã®globã§ãƒ•ã‚¡ã‚¤ãƒ«ä¸€è¦§ã¨ã‹treeæ§‹é€ ã¨ã‹ã‚’ä½œã£ã¦ã¿ã‚‹ãƒ†ã‚¹ãƒˆã€‚ã¤ã„ã§ã«<>(fileglob)ã‚‚ãŠãŸã‚ã— - tweeeetyã®ã¶ã‚ãçš„ã‚ã‚‚
ã¯ã˜ã‚ã« ãƒ—ãƒã‚°ãƒ©ãƒ ã‹ãªã‚“ã‹ã§ãƒ•ã‚¡ã‚¤ãƒ«ã®ä¸€è¦§ã‚’å–å¾—ã—ãŸã„ãªãƒ¼ã£ã¦ã¨ãã‚ã‚Šã¾ã™ã‚ˆãã€‚ ä¸€è¦§ã ã˜ã‚ƒãªãã¦éšŽå±¤ã”ã¨å–ã‚ŠãŸã„ã£ã¦ã“ã¨ã‚‚ã‚ã‚‹ã¨ã‹ãªã„ã¨ã‹ã€‚ ãã“ã§ãƒ•ã‚¡ã‚¤ãƒ«ã®ä¸€è¦§ã‚’å–å¾—ã§ãã‚‹perlã®ã€Œglobã€ã‚’ä½¿ã£ã¦ã¿ã¾ã™ å‚è€ƒã¯ã“ã¡ã‚‰http://d.hatena.ne.jp/perlcodesample/20080529/1212075850 æ§‹æ–‡ã¯ä»¥ä¸‹ my $path = "/hoge/hoge/hoge/*"; # ä¸€è¦§ã‚’å–å¾—ã—ãŸã„ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã®ãƒ‘ã‚¹ my @files_list = glob "$path"; ã‚‚ã—ãã¯ my @files_list = <$path>; ã„ããªã‚Šã®è£œè¶³ã§ã™ãŒ<>ã§globã¨åŒã˜ã‚‰ã—ã„ã§ã™ã€‚ ãƒ€ã‚¤ã‚¢ãƒ¢ãƒ³ãƒ‰æ¼”ç®—åã¨åŒã˜ï¼Ÿã£ã¦ã„ã†ã®ã¯globãŒã‚ˆãã‚ã‹ã£ã¦ãªã„ã®ã§ã‚ã‹ã‚Šã¾ã›ã‚“w ã•ã£ãããƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ã„ã¦ãƒ†ã‚¹ãƒˆ è©¦ã™ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã®ä¸ã¯é©å½“ã«ãƒ•ã‚¡ã‚¤ãƒ«ã¨ãƒ‡ã‚£ãƒ¬ã‚¯
rokujyouhitoma 2017/03/13
Perl
ãƒªãƒ³ã‚¯
è³ªã®é«˜ã„ Perl ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’æ›¸ããŸã‚ã« - Qiita
æ¦‚è¦ å‹•çš„åž‹ä»˜ãè¨€èªžã§ã‚ã‚Šä¸ã§ã‚‚è‡ªç”±åº¦ã®é«˜ã„ Perl ã ãŒã€ãã‚Œã§ã‚‚ã‚³ãƒ¼ãƒ‰ã®å …ç‰¢æ€§ã‚’ãªã‚‹ã¹ãç¢ºä¿ã—ã§ãã‚‹ç¯„å›²ã§è³ªã‚’ä¸Šã’ã‚‹æ–¹æ³•ã‚’è€ƒãˆã¦ã¿ã‚ˆã†ã¨ã„ã†ãŠè©±ã€‚ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’æ§‹ç¯‰ã™ã‚‹éš›ã«ã‚ã‚‹ç¨‹åº¦å®Ÿç”¨çš„ã ã¨æ€ã‚ã‚Œã‚‹æ‰‹æ³•ã®ã¿ã¾ã¨ã‚ã€ä¾¿åˆ©ã ã‘ã‚Œã©ã‚‚è¶…å¤‰æ…‹çš„ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãªã©ã¯å¤–ã—ã¦ã„ã‚‹ã€‚ æ³¨æ„ å€‹äººçš„ãªè€ƒãˆæ–¹ãƒ»æ‰‹æ³•ã®ãƒ¡ãƒ¢ã«éŽãŽãªã„ã®ã§ã€ã™ã¹ã¦ã‚’ãã®ã¾ã¾å°Žå…¥ã™ã‚‹ã®ã¯ã‚ã‚±ãƒ³ã§ã™ã€‚ã¾ãšã¯èªã¿ç‰©ã¨ã—ã¦ã©ã†ãžã€‚ä¸ç´šè€…å‘ã‘ã€‚ ãªãŠã€Perl ã«èˆˆå‘³ã‚ã‚‹æ–¹ã«ã¯ Perl å…¥å¦å¼ ã¨ã„ã†æœ‰å¿—ã®å…¥é–€è€…å‘ã‘å®šæœŸã‚¤ãƒ™ãƒ³ãƒˆãŒã‚ã‚Šã¾ã™ã€‚ ã‚¢ã‚µãƒ¼ã‚·ãƒ§ãƒ³ï¼ˆè¡¨æ˜Žï¼‰ã‚’æ´»ç”¨ã™ã‚‹ ä»–ã®ï¼ˆç‰¹ã«é™çš„åž‹ä»˜ãï¼‰è¨€èªžã§ã¯ã‚ˆãè¨€åŠã•ã‚Œã‚‹ã®ã« Perl ã§è©±é¡Œã«ãªã‚‹ã“ã¨ã¯ã‚ã¾ã‚Šãªã„ã€ã‚¢ã‚µãƒ¼ã‚·ãƒ§ãƒ³ã€‚å …ç‰¢ãªãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ãã«ã¯æ¬ ã‹ã›ãªã„é“å…·ã§ã€ç«¯çš„ã«ã¯ãƒ—ãƒã‚°ãƒ©ãƒ ã«åŸ‹ã‚è¾¼ã‚€å°ã•ãªãƒ†ã‚¹ãƒˆã¨è¨€ãˆã‚‹ã€‚Carp::Assert ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã†ã€‚ assert()
rokujyouhitoma 2017/03/13
Perl
ãƒªãƒ³ã‚¯
1 2 3 4 5 6 7 8 9 10 æ¬¡ã®ãƒšãƒ¼ã‚¸