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

ymm1x id:ymm1x

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

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

ä¸€è¡Œé‡ŽéƒŽ(one-liner)ã¯perlã«ãŠã¾ã‹ã›
åºæ–‡ ã‚‚ã—ã‚‚ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžãŒå®—æ•™ã ã£ãŸã‚‰â€¦â€¦ï¼ˆå…¨è¨³ç‰ˆï¼‰ï¼»çµµæ–‡éŒ²ã“ã¨ã®ã¯ï¼½2008/12/21 ã«ã‚ˆã‚‹ã¨ã€ãƒ–ãƒ¼ãƒ‰ã‚¥ãƒ¼æ•™å¾’ã‚‰ã—ã„ dankogai ã§ã™ã€‚ ãƒ–ãƒ¼ãƒ‰ã‚¥ãƒ¼æ•™å¾’ã‚‰ã—ãã€ã€Œä¸Šå¸ãŒã‚ãªãŸã«é‡‘æ›œå¤œ21æ™‚ã«ç·Šæ€¥ã®ä»•äº‹ã‚’å‘½ãšã‚‹ã¨ãã«ã—ã°ã—ã°ä½¿ã‚ã‚Œã‚‹ã€å‘ªæ–‡ã‚’ã“ã“ã§ã¾ã¨ã‚ã¦ãŠãã“ã¨ã«ã—ã¾ã™ã€‚ åŸºæœ¬ä¸ã®åŸºæœ¬ ã‚³ãƒžãƒ³ãƒ‰ã¨ã—ã¦ã®perlã¯ã€ã‚¹ã‚¤ãƒƒãƒãŒãªã„å ´åˆã€å¼•æ•°ã¯ã‚¹ã‚¯ãƒªãƒ—ãƒˆåã¨ã—ã¦æ‰±ã‚ã‚Œã¾ã™ã€‚ % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ä¸ã®æ–‡å—åˆ—ã‚’ã‚¹ã‚¯ãƒªãƒ—ãƒˆã¨ã—ã¦è§£é‡ˆã•ã›ã‚‹ã«ã¯ã€-eã‚’ä½¿ã„ã¾ã™ã€‚ % perl -e'print "Hello, World!\n"' Hello, world! % ã¡ãªã¿ã«ã€perlã¨ã‚³ãƒžãƒ³ãƒ‰åã ã‘ã§èµ·å‹•ã™ã‚‹ã¨ã€æ¨™æº–å…¥åŠ›ã‚’ã‚¹ã‚¯ãƒªãƒ—ãƒˆã¨ã—ã¦è¿”ã—ã¾ã™ã€‚ %
ymm1x 2022/05/27
perl
ãƒªãƒ³ã‚¯
Perlãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼é›† - ablog
éšœå®³å¯¾å¿œã§ã®ãƒã‚°è§£æžã€ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®èª¿æŸ»ã¨ã„ã£ãŸãƒ†ã‚ã‚¹ãƒˆå‡¦ç†ã§ä½¿ã£ãŸ Perl ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼é›†ã§ã™ã€‚ ãƒžãƒ«ãƒãƒ©ã‚¤ãƒŠãƒ¼ã‚„ã„ã‘ã¦ãªã„ã®ã‚‚ã‚ã‚Šã¾ã™w Perl ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã®å¥½ããªã¨ã“ã‚ Perl ã¯ Oracle Database (10gä»¥é™) ã«åŒæ¢±ã•ã‚Œã¦ã„ã‚‹ã®ã§ã€Windows ãƒ—ãƒ©ãƒƒãƒˆãƒ•ã‚©ãƒ¼ãƒ ã§ã‚‚ä½¿ãˆã‚‹*1ã€‚ awkã€sedã€grep ã®æ£è¦è¡¨ç¾ã®æ›¸ãæ–¹ãªã©ã‚’ãã‚Œãžã‚Œè¦šãˆã‚Œãªã„ã€‚awkã€sedã€grep ã§ã§ãã‚‹ã“ã¨ã¯ã ã„ãŸã„ Perl ã§ã§ãã‚‹ã®ã§ã€Perl ã«çµžã‚‹ã¨è¦šãˆã‚‹ã“ã¨ã‚’æ¸›ã‚‰ã›ã‚‹*2ã€‚ æœ€å°é™ã®åŠ´åŠ›ã§æœ€å¤§é™ã®ä»•äº‹ãŒã§ãã‚‹ã€‚ã¡ã‚‡ã£ã¨ã—ãŸãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ãã‚ˆã†ãªå‡¦ç†ã§ã‚‚ Perl ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’ä½¿ã†ã¨ãŸã£ãŸ1è¡Œã§æ¸ˆã‚€ã“ã¨ãŒã‚ã‚Šã¾ã™*3ã€‚ Perlãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼é›† ä¸€éƒ¨ã€Perl ä»¥å¤–ã« bashã€findã€xargs ãªã©ã‚‚å«ã‚“ã§ã„ã¾ã™ã€‚ ãƒ¬ã‚³ãƒ¼ãƒ‰ã‚»ãƒ‘ãƒ¬ãƒ¼ã‚¿ã‚’å¤‰æ›´ã™ã‚‹ perl -w
ymm1x 2022/05/26
perl
ãƒªãƒ³ã‚¯
ç”Ÿãã¦ã„ã‚‹ã®ãªã‚‰ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆã«ã ã£ã¦ãªã£ã¦ã¿ã›ã‚‹ã€ãã†Perlãªã‚‰ã - Sexually Knowing
ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ãã®ã‚’ã‚„ã‚ã‚‹ - blog.8-p.info ã“ã‚Œã‚’è¦‹ã¦: å¤¢ã®å¯èƒ½æ€§ãŒé«˜ããªã£ã¦ããŸã‚“ã§ã™ãŒã€Perlã®ãƒ—ãƒ©ã‚°ãƒžã‹ãªã«ã‹ã§ã€ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆã¨æ··åœ¨ã§ãã‚‹â€¦â€¦ã¨ã„ã†ã‹ã€å˜åœ¨ã—ãªã„ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³å‘¼ã³å‡ºã—ã‚’å¤–éƒ¨ã‚³ãƒžãƒ³ãƒ‰å‘¼ã³å‡ºã—ã«ã™ã‚‹ã‚„ã¤ã‚ã‚Šã¾ã›ã‚“ã§ã—ãŸã£ã‘â€” aereal / é’æœ¨è¯çµµ (@aereal) 2021å¹´9æœˆ16æ—¥ ã¾ã˜ã ... https://t.co/IF6SyBR4o8â€” Kazuyoshi Kato (@kzys) 2021å¹´9æœˆ16æ—¥ Shell - run shell commands transparently within perl - metacpan.org use Shell qw(cat ps cp); $passwd = cat('</etc/passwd'); @pslines = ps('-ww'), cp("/etc/passwd"
ymm1x 2021/09/19
perl

shell
ãƒªãƒ³ã‚¯
perl-howto-0.txt
Contents ä¸»ãªå½¢å¼ sed, Awk é¢¨ãªèª¬æ˜Ž sed, Awk é¢¨ãª Perl ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®æ¦‚è¦ ç°¡å˜ãªèª¬æ˜Ž Perl ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®æ¦‚è¦ åž‹ åˆ¶å¾¡æ§‹æ–‡ æ¼”ç®—å ç‰¹æ®Šå¤‰æ•° ã‚¨ã‚¹ã‚±ãƒ¼ãƒ—æ–‡å— çµ„ã¿è¾¼ã¿é–¢æ•° ç®—è¡“é–¢æ•° é…åˆ—é–¢æ•° ãƒªã‚¹ãƒˆé–¢æ•° ãƒãƒƒã‚·ãƒ¥é–¢æ•° æ–‡å—åˆ—é–¢æ•° å…¥å‡ºåŠ›é–¢æ•° ãã®ä»–ã®é–¢æ•° ä¾‹é¡Œ `cat` `head -n 1` `tail -n 1` `head -n 8` `tail -n 8` `wc -l` `wc -c` `wc -w` `grep '^$'` `grep -v '^$'` `grep -E '^.+'` `grep -E -v '^.+'` `cut -d ':' -f 1,6` `cut -d ':' -f 1,6 -s` `fold -b` `tee filename` `tr 'A-Za-z' 'N-ZA-Mn-za-m'` `cat -n` `cat
ymm1x 2021/07/13
perl
ãƒªãƒ³ã‚¯
grepã§ã¯å›°é›£ãªã€ç‰¹å®šæ–‡å—åˆ—ã®å˜åœ¨è¡Œã‹ã‚‰åˆ¥ã®æ–‡å—åˆ—ãŒå˜åœ¨ã™ã‚‹è¡Œã¾ã§ã®æŠ½å‡º (Perlã®flip-flopæ¼”ç®—åã®ä½¿ã„æ–¹) - ç†ç³»å¦ç”Ÿæ—¥è¨˜
ç‰¹å®šã®æ–‡å—åˆ—ãŒã‚ã‚‹è¡Œã‹ã‚‰ã€åˆ¥ã®ç‰¹å®šã®æ–‡å—åˆ—ãŒã‚ã‚‹è¡Œã¾ã§ã‚’æŠ½å‡ºã—ãŸã„ã¨ã„ã†ã“ã¨ãŒã‚ˆãã‚ã‚Šã¾ã™ã€‚ ã“ã‚Œgrepç‰ã‚’ä½¿ã†ã¨è‹¦åŠ´ã™ã‚‹è©±ãªã‚“ã§ã™ãŒã€flip-flopæ¼”ç®—åã‚’ä½¿ã£ãŸPerlã®one-linerã§å¯èƒ½ã§ã™ã€‚ ä¾‹ãˆã°æ˜¨æ—¥ã®è¨˜äº‹ã§ã¯git help commitã®ä¸ã‹ã‚‰--no-edit/ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã®èª¬æ˜Žã‚’æŠ½å‡ºã—ã¾ã—ãŸã€‚ ã“ã‚Œã¯--no-editã¨ã„ã†æ–‡å—åˆ—ãŒå‡ºã¦ãã‚‹ã¨ã“ã‚ã‹ã‚‰ç©ºè¡Œã¾ã§ã‚’æŠ½å‡ºã™ã‚Œã°è‰¯ã„ã€‚ã“ã‚Œã¯ä»¥ä¸‹ã®ã‚ˆã†ã«ã™ã‚Œã°å¯èƒ½ã§ã™ã€‚ $ git help commit | perl -nle 'print if /--no-edit/ ... /^\s*$/' è§£èª¬è‡ªä½“ã«ç©ºè¡ŒãŒæ··ã˜ã‚‹ã‚±ãƒ¼ã‚¹ã§ã¯ä»¥ä¸‹ã®ã‚ˆã†ã«ã™ã‚Œã°è‰¯ã„ã§ã—ã‚‡ã†ã€‚ ã“ã®ä¾‹ã§ã¯ã€--cleanupã¨ã„ã†æ–‡å—åˆ—ãŒå‡ºç¾ã—ã¦ã‹ã‚‰ã€æ¬¡ã®ã‚ªãƒ—ã‚·ãƒ§ãƒ³(-æ–‡å—åˆ—å½¢å¼)ãŒå‡ºã‚‹ã¾ã§ã‚’æŠ½å‡ºã—ã¦ã„ã¾ã™ã€‚ $ git help commit | pe
ymm1x 2021/02/28
perl

command

tips
ãƒªãƒ³ã‚¯
perl.com hijacked
The perl.com domain was hijacked this morning, and is currently pointing to a parking site.Â Work is ongoing to attempt to recover it. We encourage you NOT to visit the domain, as there are some signals that it may be related to sites that have distributed malware in the past. Some users may have it selected as their CPAN mirror.Â To update your mirror in CPAN.pm use o conf urllist http://www.cpan
ymm1x 2021/02/03
perl

security

domain
ãƒªãƒ³ã‚¯
ã€è§£æ±ºæ¸ˆã€‘Perlã®ãƒ‹ãƒ¥ãƒ¼ã‚¹ã‚µã‚¤ãƒˆ perl dot com ã®ãƒ‰ãƒ¡ã‚¤ãƒ³ãŒä½•è€…ã‹ã«ã‚ˆã£ã¦ä¸æ£ã«å–å¾—ã•ã‚Œã¾ã—ãŸ - JPA é‹å–¶ãƒ–ãƒã‚°
â€»ã‚¿ã‚¤ãƒˆãƒ«ã¯SNSç‰ã«ãŠã‘ã‚‹è‡ªå‹•ãƒªãƒ³ã‚¯ã«ã‚ˆã‚‹ãƒªãƒ³ã‚¯æ‹¡æ•£ã‚’é¿ã‘ã‚‹ãŸã‚ã«perlâ€‹.â€‹comã®è¡¨è¨˜ã‚’é¿ã‘ã¦ã„ã¾ã™ â€»æœ¬æ–‡ã®perlâ€‹.â€‹comã®è¡¨è¨˜ã«ã¯å„ç¨®ãƒ„ãƒ¼ãƒ«å¼•ç”¨å¾Œã®è‡ªå‹•ãƒªãƒ³ã‚¯é˜²æ¢ã®ãŸã‚ã€ãƒ‰ãƒƒãƒˆå‰å¾Œã«Unicodeã‚¼ãƒå¹…ã‚¹ãƒšãƒ¼ã‚¹ã‚’å…¥ã‚Œã¦ã„ã¾ã™ 2021/02/03 09:20 JST: å„ç¨®CPANã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆã®å®‰å…¨æ€§ã«ã¤ã„ã¦èª¤è§£ã‚’æ‹›ã„ã¦ã„ã‚‹ã‚±ãƒ¼ã‚¹ãŒè¦‹å—ã‘ã‚‰ã‚ŒãŸã®ã§è¡¨ç¾ã‚’æ”¹ã‚ã¾ã—ãŸ 2021/02/06 22:00 JST: å…¬å¼æƒ…å ±ãŒæ›´æ–°ã•ã‚Œã¾ã—ãŸã€‚ãƒ‰ãƒ¡ã‚¤ãƒ³ perlâ€‹.â€‹com ã®å¥ªé‚„ã«æˆåŠŸã—æ¨©å¨DNSã¯æ£ã—ã„ã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’è¿”ã™ã‚ˆã†ã«ãªã£ã¦ã„ã¾ã™ã€‚ã—ã‹ã—ã€ã„ã‚ã‚†ã‚‹DNSæµ¸é€å•é¡Œã«ã‚ˆã£ã¦ä¸€éƒ¨é©åˆ‡ã«æ–°ã—ã„ã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’è¿”ã—ã¦ã„ãªã„DNSã‚ãƒ£ãƒƒã‚·ãƒ¥ã‚µãƒ¼ãƒãƒ¼ãŒå˜åœ¨ã™ã‚‹ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ã€‚ã‚ˆã£ã¦ã€åˆ©ç”¨ã™ã‚‹æ–¹ã¯æ³¨æ„ã—ã¦åˆ©ç”¨ã—ã¦ãã ã•ã„ã€‚ æ£ã—ã„ã‚¢ãƒ‰ãƒ¬ã‚¹ã¯ 151.101.*.*/16 ã®ã‚‚ã®ã§ã™ã€‚é•ã†ã‚¢ãƒ‰ãƒ¬ã‚¹
ymm1x 2021/02/03
perl

security

domain
ãƒªãƒ³ã‚¯
GraphQLã‚µãƒ¼ãƒã‚’ä½œã‚‹è‹¦ã—ã¿ã¨è§£æ±ºæ‰‹æ³•
å‰ç¥¥å¯º.pm23 https://kichijojipm.connpass.com/event/182287/
ymm1x 2020/07/21
perl

graphql

##
ãƒªãƒ³ã‚¯
10å¹´ã§ã©ã†å¤‰ã‚ã£ãŸ? ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ã§ã®Perlã®ä½¿ã„æ–¹
2019-11-03 YAPC::Nagoya::Tiny 2019 https://yapcjapan.connpass.com/event/146727/
ymm1x 2019/11/03
perl

ã¯ã¦ãƒ–
ãƒªãƒ³ã‚¯
Perl 6ã€æ£å¼ã«ã€ŒRakuã€ã¸åç§°å¤‰æ›´ã‹ | ã‚¹ãƒ©ãƒ‰ ãƒ‡ãƒ™ãƒãƒƒãƒ‘ãƒ¼
Perl 6ã®åç§°ã‚’æ£å¼ã«ã€ŒRakuã€ã¸å¤‰æ›´ã™ã‚‹ã¨ã„ã†GitHubã§ã®ææ¡ˆã«å¯¾ã—ã€Perlç”Ÿã¿ã®è¦ªã®Larry Wall(TimToady)æ°ãŒæ”¯æŒã‚’è¡¨æ˜Žã—ã¦ã„ã‚‹(Larry Wallæ°ã®ã‚³ãƒ¡ãƒ³ãƒˆã€ blogs.perl.orgã®è¨˜äº‹ã€ The Registerã®è¨˜äº‹)ã€‚ æ¬¡ä¸–ä»£Perlã¨ã—ã¦é–‹ç™ºã•ã‚Œã¦ã„ãŸPerl 6ã ãŒã€æ£å¼ãƒªãƒªãƒ¼ã‚¹å¾Œã‚‚Perl 5ã®é–‹ç™ºãŒé€²ã‚ã‚‰ã‚Œã¦ãŠã‚Šã€ã€ŒPerlã€ã¨ã„ã£ãŸå ´åˆã«Perl 5ã‚’æŒ‡ã™çŠ¶æ…‹ãŒç¶šã„ã¦ã„ã‚‹ã€‚ãã®ãŸã‚ã€Perl 6ã®åå‰ã«ã€ŒPerlã€ãŒå…¥ã£ã¦ã„ã‚‹ã®ã¯ã‚ã‹ã‚Šã«ãã„ã¨ã—ã¦ã€8æœˆã‹ã‚‰GitHubã§åç§°å¤‰æ›´ãŒè°è«–ã•ã‚Œã¦ã„ãŸã€‚ã“ã®ã‚¹ãƒ¬ãƒƒãƒ‰ã§ã¯ã€ŒRaku (æ¥½)ã€ã¨ã„ã†æ—¥æœ¬èªžã«ã¤ã„ã¦ã€å‹˜é•ã„ã‚‚å«ã‚ã¦ã¡ã‚‡ã£ã¨é¢ç™½ã„è°è«–ã«ãªã£ã¦ã„ã‚‹ã€‚ ã‚‚ã¨ã‚‚ã¨ã€ŒRakuã€ã¨ã„ã†åå‰ã¯æ˜¨å¹´ã€Perl 6ã®ã‚¨ã‚¤ãƒªã‚¢ã‚¹ã¨ã—ã¦ä½¿ãˆã‚‹ã‚‚ã†ä¸€ã¤ã®åå‰ã‚’ä»˜ã‘ã¦ã»ã—ã„ã¨ã„ã†Zoffix Zne
ymm1x 2019/10/15
##

perl
ãƒªãƒ³ã‚¯
Japan Perl Associatonä»£è¡¨ç†äº‹ã«å°±ä»»ã—ã¾ã™ - æ™‚è¨ˆã‚’å£Šã›
SEE ALSO: blog.perlassociation.org ãªãœå¹³æˆã‚‚çµ‚ã‚ã‚‹ã“ã®ã”æ™‚ä¸–ã«ï¼Ÿã¨æ€ã†æ–¹ã‚‚ã„ã‚‰ã£ã—ã‚ƒã‚‹ã¨æ€ã„ã¾ã™ã€‚ æ€ã„ã®ä¸ˆã‚’æ›¸ã„ã¦ã¿ã¾ã™ã€‚ æ˜¨ä»Šã®Webé–‹ç™ºã®ãƒˆãƒ¬ãƒ³ãƒ‰ã¨ã—ã¦ã¯ã€å‹•çš„åž‹ä»˜ã‘è¨€èªžã‹ã‚‰é™çš„åž‹ä»˜ã‘è¨€èªžã¸ã‚·ãƒ•ãƒˆãŒé€²ã‚“ã§ã„ã¾ã™ã€‚ ã¾ãŸã€PaaS/SaaS/FaaSã®æ™®åŠã«ã‚ˆã‚Šè¨€èªžé¸æŠžã‚ˆã‚Šã‚‚æŠ€è¡“é¸æŠžã¨ãã®ã‚¢ãƒ¼ã‚ãƒ†ã‚¯ãƒãƒ£ãŒã‚ˆã‚Šé‡è¦ã«ãªã£ã¦ãã¦ãŠã‚Šã€ *1ã„ã¡ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã®é‡è¦æ€§ã¨ã„ã†ã‚‚ã®ã¯ã€(ç‰¹ã«å‹•çš„åž‹ä»˜ã‘è¨€èªžã«ãŠã„ã¦ã¯)æ˜”ã»ã©é‡è¦ã§ã¯ãªããªã£ã¦ã„ã‚‹ã®ãŒå®Ÿæƒ…ã‹ã¨æ€ã„ã¾ã™ã€‚ ãã®ä¸ã§ã‚‚Perlã¯ã€äººæ°—åº¦ã§ã„ãˆã°æ¯”è¼ƒçš„ä½Žã„è¨€èªžã¨ã„ãˆã‚‹ã§ã—ã‚‡ã†ã€‚ LLã¨å‘¼ã°ã‚Œã‚‹è¨€èªžã®ä¸ã§æœ€ä½Žã®äººæ°—ã¨è¨€ã£ã¦ã‚‚é–“é•ã„ã§ã¯ãªã„ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ã€‚ ã²ã©ã„ã¨ãã«ã¯ã€1987å¹´ã«ä½œã‚‰ã‚ŒãŸPerlã¨1959å¹´ã«ä½œã‚‰ã‚ŒãŸCOBOLãŒä¸¦ã¹ã¦èªžã‚‰ã‚Œã‚‹ã“ã¨ã™ã‚‰ã‚ã‚Šã¾ã™ã€‚*2 ãã‚Œã§ã‚‚ã€ã¼ãã¯PerlãŒå¥½ãã§
ymm1x 2019/04/22
perl

æ–‡
ãƒªãƒ³ã‚¯
How to get the last item of a split in Perl?
ymm1x 2019/03/07
perl

# |Ï‰ãƒ»)â€¦â€¦
ãƒªãƒ³ã‚¯
Perl - Wikipedia
Perlï¼ˆãƒ‘ãƒ¼ãƒ«ï¼‰ã¨ã¯ã€ãƒ©ãƒªãƒ¼ãƒ»ã‚¦ã‚©ãƒ¼ãƒ«ã«ã‚ˆã£ã¦é–‹ç™ºã•ã‚ŒãŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã§ã‚ã‚‹ã€‚å®Ÿç”¨æ€§ã¨å¤šæ§˜æ€§ã‚’é‡è¦–ã—ã¦ãŠã‚Šã€Cè¨€èªžã‚„sedã€awkã€ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆãªã©ä»–ã®ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã®å„ªã‚ŒãŸæ©Ÿèƒ½ã‚’å–ã‚Šå…¥ã‚Œã¦ã„ã‚‹ã€‚ã‚¦ã‚§ãƒ–ãƒ»ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã€ã‚·ã‚¹ãƒ†ãƒ ç®¡ç†ã€ãƒ†ã‚ã‚¹ãƒˆå‡¦ç†ãªã©ã€ã•ã¾ã–ã¾ãªãƒ—ãƒã‚°ãƒ©ãƒ ã®é–‹ç™ºã«åºƒãåˆ©ç”¨ã•ã‚Œã¦ã„ã‚‹ã€‚ è¨€èªžå‡¦ç†ç³»ã¨ã—ã¦ã®perlã¯è‡ªç”±ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã§ã‚ã‚‹ã€‚Artistic LicenseãŠã‚ˆã³GPLã®ã‚‚ã¨ã§é…å¸ƒã•ã‚Œã¦ãŠã‚Šã€èª°ã§ã‚‚ã©ã¡ã‚‰ã‹ã®ãƒ©ã‚¤ã‚»ãƒ³ã‚¹ã‚’é¸æŠžã—ã¦åˆ©ç”¨ã™ã‚‹ã“ã¨ãŒã§ãã‚‹ã€‚UNIXã€Windowsã€macOSã‚„Linuxã®ã‚ˆã†ãªUNIXäº’æ›OSãªã©å¤šãã®ãƒ—ãƒ©ãƒƒãƒˆãƒ•ã‚©ãƒ¼ãƒ ä¸Šã§å‹•ä½œã™ã‚‹ã€‚ å¼·åŠ›ãªæ–‡å—åˆ—å‡¦ç†ã®ä»•çµ„ã¿ã‚’å‚™ãˆã¦ãŠã‚Šã€æ£è¦è¡¨ç¾ã‚’åˆ©ç”¨ã§ãã‚‹ã€‚ é€£æƒ³é…åˆ—ï¼ˆãƒãƒƒã‚·ãƒ¥ï¼‰ã‚’ã‚µãƒãƒ¼ãƒˆã€‚ å¤šæ¬¡å…ƒãƒ‡ãƒ¼ã‚¿æ§‹é€ ãŒåˆ©ç”¨å¯èƒ½ã€‚ è‡ªç”±åº¦ã®é«˜ã„æ–‡æ³•ã€‚ç°¡æ½”ã«ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’è¨˜è¿°ã§ãã‚‹ã€‚ å¾Œæ–¹äº’æ›æ€§ã¯é«˜
ymm1x 2019/02/13
perl

programming
ãƒªãƒ³ã‚¯
JSerãŒæ¯”è¼ƒã‚³ãƒ¼ãƒ‰ã‚’æ›¸ããªãŒã‚‰Perlã®ãƒ‡ãƒ¼ã‚¿æ§‹é€ ã‚’å¦ã¶ - ã‚ã¨å‘³
åŽ³å¯†ã«è¨€ã†ã¨é–“é•ã£ã¦ã‚‹ã‹ã‚‚ã—ã‚Œãªã„ã“ã¨ã‚’æ„Ÿè¦šçš„ã«æ›¸ã„ã¦ã„ã‚‹ã®ã§ã€ã‚ã¾ã‚Šé–“ã«å—ã‘ãªã„æ–¹ãŒã„ã„ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ã€‚ JavaScriptã¯ã€è‡ªåˆ†ãŒè§¦ã£ãŸã“ã¨ãŒã‚ã‚‹è¨€èªžã®ä¸ã§ã¯ã€æœ€ã‚‚ä»•æ§˜ã‚’ç†è§£ã—ã¦ã„ã‚‹è¨€èªžã«ãªã‚‹ã¨æ€ã„ã¾ã™ã€‚ ãã‚ãã‚çœŸé¢ç›®ã«ã‚µãƒ¼ãƒãƒ¼ã‚µã‚¤ãƒ‰ã®è¨€èªžã‚‚å¦ã‚“ã§ã„ããŸã„ã¨æ€ã£ã¦ã„ã‚‹ã¨ã“ã‚ã§ã™ã€‚ åˆã‚ã¦è§¦ã‚ŒãŸè¨€èªžã§ã‚ã‚‹Perlã‚’ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã‚’æ›¸ããªãŒã‚‰æ¯”è¼ƒã—ã¦ç†è§£ã—ã¦ã„ã“ã¨ã„ã†è¶£æ—¨ã®ã‚‚ã¨ã€ãƒ¡ãƒ¢ãŒã¦ã‚‰å®Œå…¨ãªã‚‹ã²ã¨ã‚Šã”ã¨ã‚’ã‚¨ãƒ³ãƒˆãƒªãƒ¼ã¨ã—ã¦èµ·ã“ã—ã¾ã—ãŸã€‚ ä»¥ä¸‹ã€å»¶ã€…ã¨ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã¨æ„Ÿæƒ³ã‚³ãƒ¡ãƒ³ãƒˆã§ã™ã€‚ æ•°å—ã‚„æ–‡å—åˆ— Perl my $hoge = 1; print $hoge; JavaScript var hoge = 1; print hoge; JavaScriptã§è¨€ã†varã¯Perlã§ã„ã†myã€‚Perlã¯ä»–ã«ã‚‚localã¨ã‹ourã¨ã‹ã‚ã‚‹ã‘ã©ã€JavaScriptã«ã¯ãã‚Œã«ç›¸å½“ã™ã‚‹ã‚‚ã®ã¯ãª
ymm1x 2019/02/12
perl

javascript
ãƒªãƒ³ã‚¯
Perlã®ä¸€æ–‡å—å¤‰æ•°ã®æ”»ç•¥ | Hachioji.pm æ—¥ã‚ãã‚Šãƒ†ãƒƒã‚¯ãƒˆãƒ¼ã‚¯
xtetsujiã§ã™ã€‚ æ˜¨ä»Šã¯æ›¸ç±ã‚ˆã‚Šã‚‚æ¤œç´¢ã‚¨ãƒ³ã‚¸ãƒ³ã«é ¼ã£ã¦å‹‰å¼·ã™ã‚‹äººãŒå¤šããªã£ã¦ãã¦ã„ã‚‹ã®ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ãŒã€ãã†ã„ã†äººã‚’æˆ’ã‚ã‚‹ã‹ã®ã‚ˆã†ã«Perlã§ã¯ã€Œã‚°ã‚°ã‚Œãªã„ã€ä¸€æ–‡å—å¤‰æ•°ã‚„ä¸€æ–‡å—ã‚·ãƒ³ãƒœãƒ«ã‚„ãã‚Œã«é¡žã™ã‚‹ã‚‚ã®ã®æ•°ã€…ãŒã‚ã‚Šã¾ã™ã€‚ å®Ÿéš›ã®ã¨ã“ã‚ã€ã¡ã‚ƒã‚“ã¨æ›¸ç±ã‚’é€šèªã—ãŸã‚Šã€perldoc perlvar perldoc.jp/perlvar ã‚’èªã‚ã°ç†è§£ã§ãã‚‹ã®ã§ã™ãŒã€ãã‚Œã§ã‚‚ãƒãƒžã‚‹è½ã¨ã—ç©´ã¨ã„ã£ãŸã¨ã“ã‚ã‚’è§£èª¬ã—ã¦ã„ããŸã„ã¨ãŠã‚‚ã„ã¾ã™ã€‚ use English; ã¯ä½¿ã‚ãªã„ perlvar ã®è§£èª¬ã‚’èªã‚“ã§ã„ã‚‹ã¨ã€ä¸€æ–‡å—å¤‰æ•°ãŒå«Œãªå ´åˆã¯ use English; ã¨ã™ã‚Œã° $_ ãŒ $ARG ã¨ã—ã¦å‚ç…§ã§ãã¦å¬‰ã—ã„ã‚ˆã€ã¨ã„ã£ãŸè§£èª¬ãŒè¡Œã‚ã‚Œã¦ã„ã¾ã™ãŒã€é€šå¸¸ use English; ã¯ä½¿ã„ã¾ã›ã‚“ã€‚ã¨ã„ã†ã‹ã€use English; ã‚’ä½¿ã£ãŸãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆã‚’å†…å¤–ã§è¦‹èžãã—ãŸã“ã¨ãŒ10å¹´ã®é–“ã«ç§ã®çµŒé¨“ä¸Šã‚
ymm1x 2019/01/23
perl

##
ãƒªãƒ³ã‚¯
ãŠãã‚‰ãã¯ãã‚Œã•ãˆã‚‚å¹³å‡¡ãªæ—¥ã€…: ãƒ¢ãƒ€ãƒ³ãªPerlã‚’ã€Œèªã‚€ã€ä¸Šã§è¦šãˆã¦ãŠãã¨ã‚ˆã„æ§‹æ–‡ ç¬¬1å›ž(?)
Perlå¦ç¿’è€…ãŒã‚ã‚‹ç¨‹åº¦Perlã«æ…£ã‚Œã¦ãã‚‹ã¨ã€ä»–ã®äººã®æ›¸ã„ãŸã‚³ãƒ¼ãƒ‰ã‚’èªã‚€æ©Ÿä¼šã‚‚å¢—ãˆã¦ãã¾ã™ã€‚ãã“ã§ã¤ã¾ã¥ãäººã¯å¤šã„ã®ã§ã¯ãªã„ã§ã—ã‚‡ã†ã‹ã€‚ã‹ãè¨€ã†ç§è‡ªèº«ãŒãã®ä¸€äººã§ã™(ç¬‘) ãƒ¢ãƒ€ãƒ³ãªPerlã¯DSL(é»’é”è¡“?)çš„ãªæ›¸ãæ–¹ã‚’ã—ã¦ã„ã‚‹éƒ¨åˆ†ã‚‚å¤šãã€é›°å›²æ°—ã¨ã—ã¦å‡¦ç†å†…å®¹ã‚’ã¤ã‹ã¿ã‚„ã™ã„ã®ã§ã™ãŒã€é€†ã«æ–‡æ³•çš„ã«æ§‹æ–‡ã‚’ç†è§£ã™ã‚‹ã®ãŒé›£ã—ã„ã“ã¨ã‚‚å¤šã„ã§ã™ã€‚ ã€ŒçŸ¥ã£ã¦ã„ã‚‹äººã«ã¯å½“ãŸã‚Šå‰ã€çŸ¥ã‚‰ãªã„äººã«ã¯é»’é”è¡“ã€ Perlã«ã¯ãã†ã„ã†ã®ãŒå¤šã„ã®ã§ã€ãã†ã„ã£ãŸã¨ã“ã‚ã§æ‚©ã‚“ã§ã„ã‚‹äººã‚‚å¤šã„ã®ã§ã¯ãªã„ã‹ã¨æ€ã„ã€ã“ã®ã‚¨ãƒ³ãƒˆãƒªãƒ¼ã‚’æ›¸ã„ã¦ã¿ã‚‹ã“ã¨ã«ã—ã¾ã—ãŸã€‚æ°—ãŒå‘ã‘ã°ç¶šãã‚‚æ›¸ãã¾ã™ã€‚é–“é•ã£ã¦ã„ã‚‹éƒ¨åˆ†ã‚‚ã‚ã‚‹ã‹ã¨æ€ã†ã®ã§ã€ãƒ–ã‚¯ãƒžã‚³ãƒ¡ç‰ã§ã”æŒ‡æ‘˜ã„ãŸã ã‘ã‚‹ã¨åŠ©ã‹ã‚Šã¾ã™ã€‚ æœ¬æ—¥ã®ç›®æ¨™ã¨ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ è£¸ã®ãƒ¯ãƒ¼ãƒ‰(bareword)ã¯æ€–ããªã„ encode cp932 => $str; sub PI(){3.1415926535} ã¦ã“ã¨ã§
ymm1x 2019/01/15
perl
ãƒªãƒ³ã‚¯
How to watch for count of new lines in tail - Server Fault
ymm1x 2019/01/15
shell

perl
ãƒªãƒ³ã‚¯
LTSVãƒã‚°ã‚’ãƒ‘ãƒ¼ã‚¹ã™ã‚‹æœ€å¼·ã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼é›† Â· DQNEOæ—¥è¨˜
æœ€åˆã«çµè«– ã“ã‚Œæœ€å¼· cat accesslog | perl -F'\t' -nale '%h=map{split/:/,$_,2}@F;print"$h{time}\t$h{ua}"' ãªãœPerlãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ãªã®ã‹ï¼Ÿ LTSVãƒã‚°ã‚’è§£æžã™ã‚‹ã«ã¯ã€Perlã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã«é™ã‚‹ã€‚ ãªãœãªã‚‰Perlã¯ã»ã¨ã‚“ã©ã®ã‚µãƒ¼ãƒã«ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§å…¥ã£ã¦ã‚‹ã‹ã‚‰ã€‚ Perl 5.8ã§å‹•ããƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’è¦šãˆã¦ãŠã‘ã°ã©ã®ç’°å¢ƒã§ã‚‚ä½¿ãˆã‚‹ã€‚ ã€Œä½•ã«ã‚‚ä¾å˜ã—ãªã„ã€ ã“ã‚Œæœ€å¼·ã€‚ åŸºæœ¬ä¸ã®ã‚ãƒ›ãƒ³ ã¾ãšã¯åŸºæœ¬å½¢ã§ã™ã€‚ ã“ã‚Œã ã‘ã¯çµ¶å¯¾è¦šãˆã¦ã—ã¾ã„ã¾ã—ã‚‡ã†ã€‚ perl -nale 'print' % cat access_log | perl -nale 'print ' time:[22/Feb/2014:15:13:07 +0900] host:10.10.200.102 ident:- user:- method:GET
ymm1x 2019/01/15
shell

perl
ãƒªãƒ³ã‚¯
xargs ã‚’ä½¿ã£ã¦ã‚«ã‚¸ãƒ¥ã‚¢ãƒ«ã«ä¸¦åˆ—å‡¦ç† - ãŸã”ã‚‚ã‚Šã™ãƒ¡ãƒ¢
ã‚·ã‚§ãƒ«ã‹ã‚‰ã§ã‚‚é‡ã„å‡¦ç†ã¨ã„ã†ã®ã¯ã¡ã‚‡ã“ã¡ã‚‡ã“ã‚ã£ã¦ã€ä¾‹ãˆã°è¶…ãƒ‡ã‚«ã„ãƒã‚°ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ç§»å‹•ã—ã¦åœ§ç¸®ã—ãŸã‚Šã¨ã„ã†ãŠä»•äº‹ã¯ä¸–ç•Œä¸ã®ã‚ã‚‰ã‚†ã‚‹å ´æ‰€ã§æ¯Žæ—¥è¡Œã‚ã‚Œã¦ã„ãŸã‚Šã™ã‚‹ã€‚ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‹ã‚‰ã§ã‚‚å¤§é‡ã®åœ§ç¸®æ¸ˆã¿ãƒã‚°ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã„ã£ãºã‚“ã«å±•é–‹ã—ãŸã„ã€ã¨ã‹ã€‚ ã‚ã‚‹ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªä»¥ä¸‹ã«å˜åœ¨ã™ã‚‹ãŸãã•ã‚“ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’(åœ§ç¸®æ¸ˆã¿ã®ã‚‚ã®ã‚’é™¤ã„ã¦)å…¨éƒ¨ bzip2 åœ§ç¸®ã—ãŸã„ï¼ã¨æ€ã£ãŸã‚‰ã€ã¨ã‚Šã‚ãˆãšã•ãã£ã¨æ¬¡ã®ã‚ˆã†ã«ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã§å©ã‘ã°ã„ã„ã€‚ $ find . -not -name '*.bz2' | xargs bzip2 ã“ã‚Œã§ã€ã¾ã‚ãã‚“ãªã«å•é¡ŒãªãåŠ¹çŽ‡çš„ã«bzip2åœ§ç¸®ãŒã§ãã‚‹ã€‚ã ãŒã—ã‹ã—ã€‚ æœ€è¿‘ã¯è¤‡æ•°ã‚³ã‚¢ã®CPUãŒæ™®é€šã«è»¢ãŒã£ã¦ã‚‹ã—ã€ã‚ã¾ã¤ã•ãˆHyperThreadingãŒæœ‰åŠ¹ã«ãªã£ã¦ãŸã‚Šã—ã¦OSã‹ã‚‰è¦‹ãˆã‚‹è«–ç†CPUæ•°ãŒãƒãƒ³ãƒ‘ãªã„ã€‚æ™®é€šã«8ã¨ã‹ã‚ã‚‹ã€‚ãã®ä¸€æ–¹ã§è¤‡æ•°ã‚³ã‚¢ã‚’ä½¿ç”¨ã—ã¦ãã‚Œã‚‹ã‚³ãƒžãƒ³ãƒ‰ã¨ã„ã†ã®ã¯ã‚ã‚“ã¾ã‚Šãªãã¦
ymm1x 2019/01/10
perl

xargs

shell

performance

linux

##
ãƒªãƒ³ã‚¯
Perl ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã¨ãã®ä»²é–“ãŸã¡ - Qiita
ã“ã¡ã‚‰ã¯Perl Advent Calendar 2018ã®18æ—¥ç›®ã®è¨˜äº‹ã«ãªã‚Šã¾ã™ã€‚æ˜¨æ—¥ã¯ã€Morichanã•ã‚“ã«ã‚ˆã‚‹ã€ã‚¯ãƒ©ã‚¹å›³ã¨Perlã®å¯¾å¿œä»˜ã‘ ã§ã—ãŸã€‚ ã•ã¦ã€ã¿ãªã•ã‚“ã€æ—¥é ƒã‹ã‚‰ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã¯ä½¿ã£ã¦ã¾ã™ã§ã—ã‚‡ã†ã‹ï¼Ÿ ã“ã‚Œã¾ã§ä½•åº¦ã¨ãªãå‡ºã¦ããŸãƒã‚¿ã‹ã¨ã¯æ€ã„ã¾ã™ãŒã€Perlã«ã‚ˆã‚‹ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã«ã¤ã„ã¦æ”¹ã‚ã¦æ•´ç†ã—ã¦ã¿ã¾ã™ã€‚ (â€¦æœ¬è¨˜äº‹ã¯ä»Šå¹´ã®YAPC::Okinawa 2018 ONNASONã®ã€ŒPerlã‚’ä¸å¿ƒã¨ã—ãŸãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚ã‚Œã“ã‚Œã€ã®åŠ ç†ãƒ»è¨‚æ£ç‰ˆã§ã™ï½—) ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã¨ã¯ ã€Œãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã€ã¨ã¯ã€ãŸã£ãŸ1è¡Œã ã‘ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã§ã™ã€‚ ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ããŸã„ãŒã€ ã‚¨ãƒ‡ã‚£ã‚¿ã‚’èµ·å‹•ã™ã‚‹ã»ã©ã®æ‰‹é–“ã¯ã‹ã‘ãŸããªã„ã€ã¨ã„ã†ã¨ãã«å¨åŠ›ã‚’ç™ºæ®ã—ã¾ã™ã€‚ æ—¥æœ¬èªžã§è¨€ã†ã¨ã“ã‚ã®ã€ã„ã‚ã‚†ã‚‹ä¸€è¡Œé‡ŽéƒŽã§ã™ã€‚ æœ€è¿‘ç•Œéšˆã§äººæ°—ã®ã‚·ã‚§ãƒ«èŠ¸çš„ãªåˆ†é‡Žãªã©ã§ã‚‚ä½¿ãˆã‚‹ã¨æ€ã„ã¾ã™ã€‚ åŸºæœ¬ç·¨ perlã§ã¯ã€ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã®
ymm1x 2018/12/19
perl

shell

##
ãƒªãƒ³ã‚¯
1 2 æ¬¡ã®ãƒšãƒ¼ã‚¸