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

å°‚é–€ç”¨èªžï¼ˆã‚ãƒ¼ãƒ¯ãƒ¼ãƒ‰ï¼‰è‡ªå‹•æŠ½å‡ºç”¨Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« "TermExtract"ã®è§£èª¬

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

kat0usi 2010/12/16

perl
corpus

ãƒªãƒ³ã‚¯

perl 5.12

å°‘ã—é…ã‚Œã‚’ã¨ã£ã¦ã—ã¾ã„ã¾ã—ãŸãŒã€Fedora 14 Alpha ã‚’è©¦ã—ã¾ã—ãŸã€‚ ã“ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§ã¯ã€perl ãŒ 5.12 ã«ã‚¢ãƒƒãƒ—ã—ã¦ã„ã¦ã€æ‰‹æŒã¡ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’è©¦ã—ãŸã‚‰ã€ä¸€éƒ¨å‹•ã‹ãªããªã£ã¦ã„ã¾ã—ãŸã€‚ èª¿ã¹ãŸã¨ã“ã‚ã€split ã—ãŸçµæžœãŒ @_ ã«å…¥ã‚‹ã“ã¨ã‚’æœŸå¾…ã—ãŸã‚³ãƒ¼ãƒ‰ãŒNGã§ã—ãŸã€‚ãƒ©ã‚¯ãƒ€æœ¬VOLUME 2 28ç« ç‰¹æ®Šå¤‰æ•°ã«ã‚ˆã‚‹ã¨ã€æ—§å¼ã®æ©Ÿèƒ½ãªã®ã§ä½¿ã†ãªã¨ã®ã“ã¨ã€‚ å®Ÿéš›ã«ã‚„ã£ã¡ã‚ƒã£ã¦ã„ãŸã‚³ãƒ¼ãƒ‰ã¯æ¬¡ã®ã†ã‚ˆã†ãªã‚‚ã®ã§ã™ã€‚ ... split("\n", $temp) ; return @_ ; } ã“ã‚Œã‚’ã€ ... return split("\n", $temp) ; } ã¨ä¿®æ£ã—ã¾ã—ãŸã€‚ä»Šè€ƒãˆã‚Œã°ã€ãªãœã€åˆ†å‰²ã—ã¦ã„ãŸã®ã‹ã¨æ€ãˆã¾ã™ãŒã€perl ã®ç†è§£ãŒè¶³ã‚Šãªã‹ã£ãŸã¨ã„ã†ã“ã¨ã§ã™ãã€‚

kat0usi 2010/10/29

perl

ãƒªãƒ³ã‚¯

è¤‡æ•°ãƒ•ã‚¡ã‚¤ãƒ«å†…ã®æ–‡å—åˆ—ã‚’ç½®æ›ã—ã¦ä¸Šæ›¸ãä¿å˜ã™ã‚‹

ä¸€ç™ºã§è¤‡æ•°ãƒ•ã‚¡ã‚¤ãƒ«å†…ã®æ–‡å—åˆ—ã‚’ç½®æ›ã—ã¦ä¸Šæ›¸ãä¿å˜ã—ã¾ã™ã€‚ä¸€æ‹¬ç½®æ›ã§ã™ã€‚ ç½®æ›ã§ã™ãŒã€1ãƒ•ã‚¡ã‚¤ãƒ«ã¨ã‹ãªã‚‰æ¥½ãªã®ã§ã™ãŒã€ãƒ•ã‚¡ã‚¤ãƒ«ãŒå¤§é‡ã«ã‚ã‚‹ã¨ã‚„ã£ã¦ã‚‰ã‚Œã¾ã›ã‚“ã€‚find ã‚³ãƒžãƒ³ãƒ‰ã¨perl ã‚’çµ„ã¿åˆã‚ã›ã¦ä½¿ã£ã¦ã¾ã™ã€‚ Last Update : 2007å¹´04æœˆ29æ—¥ è¤‡æ•°ãƒ•ã‚¡ã‚¤ãƒ«å†…ã®æ–‡å—åˆ—ã‚’ç½®æ›ã—ã¦ä¸Šæ›¸ãä¿å˜ã™ã‚‹ é …ç›® æ–‡å—åˆ—ã‚’ç½®æ›ã—ã¦ä¸Šæ›¸ãã™ã‚‹ è¤‡æ•°ã®ãƒ•ã‚¡ã‚¤ãƒ«ã«å¯¾ã—ã¦è¡Œã† 1. æ–‡å—åˆ—ã‚’ç½®æ›ã—ã¦ä¸Šæ›¸ãã™ã‚‹ ã¾ãšã€æ–‡å—åˆ—ã‚’ç½®æ›ã—ã¦åŒã˜ãƒ•ã‚¡ã‚¤ãƒ«åã§ä¿å˜ã™ã‚‹ã‚³ãƒžãƒ³ãƒ‰ã®èª¬æ˜Žã§ã™ã€‚ å…·ä½“çš„ã«ä¾‹ã‚’ã‚ã’ã¦èª¬æ˜Žã—ã¾ã™ã€‚ index.htmlã®<html>ã‚’<html lang="ja">ã«ç½®æ›ã—ã¾ã™ã€‚ perlã‚’ä½¿ã£ã¦ã¾ã™ã€‚ æ›¸å¼ã¯ä»¥ä¸‹ã®é€šã‚Šã§ã™ã€‚ æ›¸å¼ perl -p -i -e 's/æ¤œç´¢æ–‡å—åˆ—/ç½®æ›æ–‡å—åˆ—/g' å¯¾è±¡ãƒ•ã‚¡ã‚¤ãƒ«å ä¾‹ [hoge@hoge ~]$ head -2 index.html

kat0usi 2010/10/28

è¤‡æ•°ãƒ•ã‚¡ã‚¤ãƒ«å†…ã®æ–‡å—åˆ—ã‚’ç½®æ›ã—ã¦ä¸Šæ›¸ãä¿å˜ã™ã‚‹ : find . -type f | xargs perl -i -pe 's/ï½ž/ï½ž/g;'

linux
perl

ãƒªãƒ³ã‚¯

ç§»è»¢ã—ã¾ã—ãŸ

kat0usi 2010/09/15

perl

ãƒªãƒ³ã‚¯

Perl ã®æ•°å€¤å¤‰æ›

Last Updated: 2002/03/26 Perl ã§ã€16é€²æ–‡å—åˆ—ã€10é€²æ•´æ•°ã€2é€²æ–‡å—åˆ—ã€ãƒã‚¤ãƒŠãƒªãƒ¼æ–‡å—åˆ—ã®ç›¸äº’å¤‰æ›ã‚’è¡Œã†ãŸã‚ã®ã€ã‚¹ã‚¯ãƒªãƒ—ãƒˆãƒ¡ãƒ¢ã§ã™ã€‚ ç‰¹ã«æ–ã£ã¦ã„ãªã„é™ã‚Šã€Perl 5.001 ä»¥ä¸Šã§å‹•ä½œã—ã¾ã™ã€‚ ç›®æ¬¡ 16é€²æ–‡å—åˆ—ã‹ã‚‰ã®å¤‰æ› 10é€²æ•´æ•°ã‹ã‚‰ã®å¤‰æ› 2é€²æ–‡å—åˆ—ã‹ã‚‰ã®å¤‰æ› ãƒã‚¤ãƒŠãƒªãƒ¼æ–‡å—åˆ—ã‹ã‚‰ã®å¤‰æ› 16é€²æ–‡å—åˆ—â†’10é€²æ•´æ•°ã¸ã®å¤‰æ› hex() é–¢æ•°ã¯ã€16é€²æ–‡å—åˆ—ã‚’æ•´æ•°å€¤ã«ã€æ‰‹è»½ã«å¤‰æ›ã§ãã¾ã™ã€‚ $num10 = hex("4A"); # $num10 ã«ã¯ 74 ãŒå…¥ã‚‹ $num10 = hex("FFFFFF"); # $num10 ã«ã¯ 16777215 ãŒå…¥ã‚‹ ä½™è«‡ã§ã™ãŒã€æ•°å€¤ãƒªãƒ†ãƒ©ãƒ«ä¸ã§ã¯ 0x ã«ç¶šã‘ã¦ 16 é€²æ•°ã§è¨˜è¿°ã™ã‚‹ã“ã¨ã§ã€æ•°å€¤ã‚’è¡¨ã™ã“ã¨ãŒã§ãã¾ã™ã€‚ $num10 = 0x4A; # 74 $num10 = 0xFFFFFF; # 1677

kat0usi 2010/09/09

2/10/16é€²æ–‡å—åˆ—å¤‰æ›

perl

ãƒªãƒ³ã‚¯

ç¾ä»£çš„ãªPerlã®è¨˜è¿°æ–¹æ³•ä¸€è¦§ - Perlå…¥é–€ã‚¼ãƒŸ

Perl â€º here Perl5.8ä»¥é™ã«ãŠã‘ã‚‹æ¨™æº–çš„ãªPerlã®æ›¸ãæ–¹ã‚’è§£èª¬ã—ã¾ã™ã€‚ ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆã§æ¤œç´¢ã™ã‚‹ã¨Perl4ã®ã“ã‚ã®å¤ã„è¨˜è¿°ãŒãŸãã•ã‚“ã‚ã‚Šã¾ã™ã€‚ã¾ãŸæ›¸ç±ãªã©ã®å¤šãã‚‚Perl4ã®è¨˜æ³•ã§æ›¸ã‹ã‚Œã¦ã„ã¾ã™ã€‚Perl4ã®è¨˜æ³•ã¯è¤‡é›‘ã«ãªã‚Šã‚„ã™ãé–“é•ã„ã‚’ç”Ÿã¿ã‚„ã™ã„ã®ã§ã“ã‚Œã‹ã‚‰Perlã‚’æ›¸ãäººã¯Perl5ã®ç¾ä»£çš„ãªè¨˜æ³•ã§è¨˜è¿°ã™ã‚‹ã“ã¨ã‚’å¼·ããŠå‹§ã‚ã—ã¾ã™ã€‚ strictãƒ—ãƒ©ã‚°ãƒžã¨warningsãƒ—ãƒ©ã‚°ãƒž (å¿…é ˆ) strictãƒ—ãƒ©ã‚°ãƒžã¨warningsãƒ—ãƒ©ã‚°ãƒžã‚’æœ‰åŠ¹ã«ã—ã¾ã™ã€‚ use strict; use warnings; use strict;ã¨use warnings;ã®ï¼’è¡Œã¯ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®æœ€åˆã«å¿…ãšè¨˜è¿°ã—ã¦ãã ã•ã„ã€‚ã“ã‚Œã‚‰ã¯Perlã®æ–‡æ³•ãƒã‚§ãƒƒã‚¯ã‚’åŽ³ã—ãã™ã‚‹ãŸã‚ã®ã‚‚ã®ã§ã™ã€‚é¢å€’ã ã¨ã„ã†è»½ã„æ°—æŒã¡ã§ã“ã‚Œã‚’è¨˜è¿°ã—ãªã„ã¨å¾Œã€…æœ¬å½“ã«é¢å€’ãªã“ã¨ã«ãªã‚Šã¾ã™ã€‚ use strict;ã¨use wa

kat0usi 2009/11/12

perl

ãƒªãƒ³ã‚¯

CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«æ™‚ã«è‡ªå‹•ã§ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆé¸æŠžã‚’ã™ã‚‹æ–¹æ³• - Craftworks Tech Blog - Branch

ä½•é€šã‚Šã‹ã‚ã‚Šã¾ã™ã€‚ yes ã‚³ãƒžãƒ³ãƒ‰ yes '' | cpan -i Some::Module yes ã«ç©ºæ–‡å—åˆ—ã‚’å¼•æ•°ã«ä¸Žãˆãªã„ã¨ã€'y' ã‚’ãƒ‘ã‚¤ãƒ—ã«é€ã£ã¦ã—ã¾ã„ã€ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤é¸æŠžã§ã¯ãªãã€å¿…ãš y ã‚’é¸æŠžã—ã¦ã—ã¾ã†ã®ã§æ³¨æ„ï¼ ç’°å¢ƒå¤‰æ•° PERL_AUTOINSTALL PERL_AUTOINSTALL='--defaultdeps' cpan -i Some::Module or export PERL_AUTOINSTALL='--defaultdeps' cpan -i Some::Module è©³ã—ãã¯ã€Module::AutoInstall ã® ENVIRONMENT ã®é …ã‚’å‚ç…§ã®ã“ã¨ã€‚ cpan ã® prerequisites_policy ã‚ªãƒ—ã‚·ãƒ§ãƒ³ cpan> o conf prerequisites_policy follow cpan> o conf commit

kat0usi 2009/10/10

yes '' | cpan -i ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«å

perl

ãƒªãƒ³ã‚¯

#perl - utf8::decode()ã§ã¯ãªãEncode::decode_utf8()ã‚’ä½¿ã†ã¹ãç†ç”± : 404 Blog Not Found

2009å¹´09æœˆ13æ—¥13:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages #perl - utf8::decode()ã§ã¯ãªãEncode::decode_utf8()ã‚’ä½¿ã†ã¹ãç†ç”± é§„ç›®ã§ã™ã€‚ [ã‚’] Perl ã® utf8 ã¾ã‚ã‚Šã®ãŠã¾ã˜ãªã„ æœ€è¿‘è‰¯ãä½¿ã†ãŠã¾ã˜ãªã„ã€ã¨ã„ã†ã‹ã‚¤ãƒ‡ã‚£ã‚ªãƒ ã€‚ utf8::decode($text) unless utf8::is_utf8($text); ã“ã†ã„ã†å ´åˆã¯ã€Encode::decode_utf8()ã§ãªã„ã¨ã€‚ ä»¥ä¸‹ã‚’ã”ã‚‰ã‚“ãã ã•ã„ã€‚ #!/usr/bin/perl use strict; use warnings; use Encode; use Devel::Peek; for my $bytes ( "\x2F", "\xC0\xAF", "\xE0\x80\xAF", "\xF0\x80\x80\xAF" ) { my $u

kat0usi 2009/09/17

perl

ãƒªãƒ³ã‚¯

Perlã€Androidã‚¢ãƒ—ãƒªé–‹ç™ºã®å¯èƒ½æ€§ | ã‚¨ãƒ³ã‚¿ãƒ¼ãƒ—ãƒ©ã‚¤ã‚º | ãƒžã‚¤ã‚³ãƒŸã‚¸ãƒ£ãƒ¼ãƒŠãƒ«

When you need perl, think perl.org Androidã«ãŠã„ã¦Perlã«ã‚ˆã‚‹ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ãŒç¾å®Ÿã®ã‚‚ã®ã¨ãªã‚‹å¯èƒ½æ€§ãŒã§ã¦ããŸã€‚Perl coming to Android phones - PerlbuzzãŒä¼ãˆã‚‹ã¨ã“ã‚ã«ã‚ˆã‚Œã°ã€Android Scripting Environment (ASE)ã®ãƒªãƒã‚¸ãƒˆãƒªã«Perlã®ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªãŒè¿½åŠ ã•ã‚ŒãŸã¨ã„ã†ã€‚ãŸã—ã‹ã«ASEã®ãƒªãƒã‚¸ãƒˆãƒªã«ã™ã§ã«ã„ãã¤ã‚‚ã®Perlé–¢é€£ã®ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ãŒåŽã‚ã‚‰ã‚Œã¦ã„ã‚‹ã€‚ASEã«å¯¾ã™ã‚‹è¦æœ›å—ä»˜ã¯ã™ã§ã«ç· ã‚åˆ‡ã‚‰ã‚Œã¦ã„ã‚‹ãŸã‚ã€ASEã®æ¬¡æœŸå®‰å®šç‰ˆã§ã¯PerlãŒå®Ÿè¡Œã§ãã‚‹ã‚ˆã†ã«ãªã£ã¦ã„ã‚‹ã®ã§ã¯ãªã„ã‹ã€ã¨ã„ã†å†…å®¹ã ã€‚ ASEãƒªãƒã‚¸ãƒˆãƒªã«ã‚ã‚‹Perlã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ - hg/perl/ase/scripts/hello_world.pl Googleã¯6æœˆ8æ—¥(ç±³å›½æ™‚é–“)ã€Androidæºå¸¯ã§ã‚¹ã‚¯ãƒªãƒ—ãƒˆ

kat0usi 2009/08/25

perl
android

ãƒªãƒ³ã‚¯

Perl ã§åŠè§’ã‚«ãƒŠã¨å…¨è§’ã‚«ãƒŠã®å¤‰æ›ã‚’ã™ã‚‹ : Serendip â€“ Webãƒ‡ã‚¶ã‚¤ãƒ³ãƒ»ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°

Perl ã‚’ä½¿ã£ã¦åŠè§’ã‚«ã‚¿ã‚«ãƒŠã¨å…¨è§’ã‚«ã‚¿ã‚«ãƒŠã®å¤‰æ›ã‚’ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ã€æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã® Encode.pm ã¨ Unicode::Japanese ã¨ Lingua::JA::Regular::Unicode ã‚’ä½¿ã£ã¦ãã‚Œãžã‚Œå¤‰æ›ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ã„ã¦ã¿ã‚‹ã€‚ ã¾ãšã¯ã€æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã® Encode.pm ã‚’ä½¿ã£ãŸå ´åˆã€‚ å¤‰æ›ã‚’æ–‡å—ã‚³ãƒ¼ãƒ‰ euc-jp ã§è¡Œã†ãŸã‚ã«ã€å¤‰æ›å‰ã¨å¤‰æ›å¾Œã« utf-8 ã¨ã®æ–‡å—ã‚³ãƒ¼ãƒ‰å¤‰æ›ã‚’è¡Œã†å¿…è¦ãŒã‚ã£ãŸã€‚ use Encode; use Encode::JP::H2Z; my $str_z = "Hello ï¼·ï½ï½’ï½Œï½„.å…¨è§’ã‚«ã‚¿ã‚«ãƒŠãƒ‡ã‚¹ã€‚ 12345ã€€ï¼–ï¼—ï¼˜ï¼™ï¼"; my $str_h = "Hello ï¼·ï½ï½’ï½Œï½„.å…¨è§’ï½¶ï¾€ï½¶ï¾…ï¾ƒï¾žï½½ï½¡ 12345ã€€ï¼–ï¼—ï¼˜ï¼™ï¼"; # å…¨è§’ã‚«ãƒŠâ†’åŠè§’ã‚«ãƒŠ Encode::from_to($str_z, "utf-8", "euc-j

kat0usi 2009/08/19

perl

ãƒªãƒ³ã‚¯

perl - ã§å…¨è§’åŠè§’å¤‰æ›ã‚’ãƒ¢ãƒ€ãƒ³ã«è¡Œã† : 404 Blog Not Found

2009å¹´06æœˆ06æ—¥01:15 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - ã§å…¨è§’åŠè§’å¤‰æ›ã‚’ãƒ¢ãƒ€ãƒ³ã«è¡Œã† ä»Šãªã‚‰Lingua::JA::Regular::UnicodeãŒç¬¬ä¸€é¸æŠžè‚¢ã§ã™ãŒã€ã“ã†ã„ã†æ–¹æ³•ã‚‚ã‚ã‚‹ã¨ã„ã†ã“ã¨ã§ã€‚ Perl ã§åŠè§’ã‚«ãƒŠã¨å…¨è§’ã‚«ãƒŠã®å¤‰æ›ã‚’ã™ã‚‹ : Serendip - Webãƒ‡ã‚¶ã‚¤ãƒ³ãƒ»ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚° Perl ã‚’ä½¿ã£ã¦åŠè§’ã‚«ã‚¿ã‚«ãƒŠã¨å…¨è§’ã‚«ã‚¿ã‚«ãƒŠã®å¤‰æ›ã‚’ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ã€æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã® Encode.pm ã¨ Unicode::Japanese ã¨ Lingua::JA::Regular::Unicode ã‚’ä½¿ã£ã¦ãã‚Œãžã‚Œå¤‰æ›ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ã„ã¦ã¿ã‚‹ã€‚ CORE Moduleã®ã¿ã‚’ä½¿ã†ã¨ã„ã†ç¸›ã‚Šã‚’ã‹ã‘ã¦ã„ã¾ã™ã€‚ #!/usr/bin/perl use 5.008001; use strict; use warnings; use utf8; us

kat0usi 2009/08/19

Unicode-savvyãªPerlã®äº‹å®Ÿä¸Šã®æœ€å¤Versionã¯5.8.1ã¨è¦šãˆã¦ãŠãã¨ã‚ˆã„ã§ã—ã‚‡ã†

perl

ãƒªãƒ³ã‚¯

perl - use CGI; use Encode; # éžè‹±èªžWebãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°3åŽŸå‰‡ : 404 Blog Not Found

2009å¹´06æœˆ23æ—¥15:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - use CGI; use Encode; # éžè‹±èªžWebãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°3åŽŸå‰‡ ã“ã‚Œã¯ã€å®Ÿã¯Perlã«é™ã‚‰ãšæœªã ã«äº‹å®Ÿã ã£ãŸã‚Šã™ã‚‹ã®ã§ã™ãŒ.... Perl ã§ãƒ•ã‚©ãƒ¼ãƒ ãƒ‡ãƒ¼ã‚¿ã‹ã‚‰ UTF-8 æ—¥æœ¬èªžæ–‡å—ã‚’ã¨ã‚Šã ã™æ–¹æ³• (ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã®å°çŸ³ãƒ»å¤§çŸ³) UTF-8 ã®ãƒ•ã‚©ãƒ¼ãƒ ã«ã‚ˆã£ã¦ãŠãã‚‰ã‚ŒãŸãƒ‡ãƒ¼ã‚¿ã®ãªã‹ã‹ã‚‰æ—¥æœ¬èªžæ–‡å—ã‚’ã¨ã‚Šã ã™ã“ã¨ã¯ï¼Œæ—¥æœ¬ã® Perl CGI ãƒ—ãƒã‚°ãƒ©ãƒžãªã‚‰ãŸã„ã¦ã„å¿…è¦ã«ãªã‚‹ã“ã¨ã§ã‚ã‚‹ï¼Ž ã¨ã“ã‚ãŒï¼Œãã®æ–¹æ³•ã¯æ„å¤–ã«ç¢ºç«‹ã•ã‚Œã¦ã„ãªã„ã‚ˆã†ã«ã¿ãˆã‚‹ï¼Ž ã—ã‹ã—ã€å…ƒç™ºè¨€ã®æ–¹æ³•ã¯å…ˆç¥–å¸°ã‚Šã™ãŽã‚‹ã®ã§ã€‚ Perl ãƒ—ãƒã‚°ãƒ©ãƒžãƒ¼ä»¥å¤–ã«ã‚‚ã€Webãƒ—ãƒã‚°ãƒ©ãƒžãƒ¼ã§ã‚ã‚Œã°æœ‰ç”¨ãªentryã§ã™ã€‚ Perlã§Webãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã™ã‚‹å ´åˆã®ä¸‰åŽŸå‰‡ Queryã¯CGIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§å‡¦ç†ã™ã‚‹ æ–‡å—ã‚³ãƒ¼ãƒ‰ã¯Encode

kat0usi 2009/06/24

Queryã¾ãŸã¯PATH-INFOã«æ–‡å—ã‚³ãƒ¼ãƒ‰æƒ…å ±ã‚’å«ã‚ã‚‹

perl

ãƒªãƒ³ã‚¯

ã€ã‚¤ãƒ³ãƒ•ã‚©ã‚·ãƒ¼ã‚¯ã€‘Infoseek ï¼š æ¥½å¤©ãŒé‹å–¶ã™ã‚‹ãƒãƒ¼ã‚¿ãƒ«ã‚µã‚¤ãƒˆ

kat0usi 2009/06/17

ãƒãƒƒã‚·ãƒ¥ã‚ãƒ¼ã«å¼•ç”¨ç¬¦ãŒã‚ã£ã¦ã‚‚ãªãã¦ã‚‚ï¼¯ï¼«

perl

ãƒªãƒ³ã‚¯

IRCã®ãƒãƒ£ãƒ³ãƒãƒ«ã®ãƒã‚°ã‚’å–ã‚‹BOTã‚¹ã‚¯ãƒªãƒ—ãƒˆæ”¹è‰¯ - Lazy Programmer :-p

http://d.hatena.ne.jp/tomyhero/20070911/1189489871 è¤‡æ•°ã®ãƒãƒ£ãƒ³ãƒãƒ«ã‚’ãƒã‚°ã‚‹ç”¨ã«ä¿®æ£ã—ãŸã€‚ãƒã‚°ãƒ•ã‚¡ã‚¤ãƒ«æŒ‡å®šã˜ã‚ƒãªãã¦ã€ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªæŒ‡å®šã«å¤‰æ›´ #!/usr/bin/perl use strict; use warnings; use POE qw(Sugar::Args Component::IRC); use Class::Inspector; use IO::All; use Getopt::Long; use DateTime; use File::Spec; my @channels = (); my $logdir = '/tmp/'; my $nick = 'logbot'; my $server = 'localhost'; my $port = 6667; my $result = GetOptions ( "channel

kat0usi 2009/04/12

perl

ãƒªãƒ³ã‚¯

ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ - ã¯ã¦ãªã®å‘ŠçŸ¥

ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28

kat0usi 2009/04/12

perl

ãƒªãƒ³ã‚¯

Net::IRC - Internet Relay Chatãƒ—ãƒãƒˆã‚³ãƒ«ã®Perlã‚¤ãƒ³ã‚¿ãƒ¼ãƒ•ã‚§ãƒ¼ã‚¹ - perldoc.jp

åå‰Â¶ Net::IRC - Internet Relay Chatãƒ—ãƒãƒˆã‚³ãƒ«ã®Perlã‚¤ãƒ³ã‚¿ãƒ¼ãƒ•ã‚§ãƒ¼ã‚¹ æ¦‚è¦Â¶ use Net::IRC; $irc = new Net::IRC; $conn = $irc->newconn(Nick => 'some_nick', Server => 'some.irc.server.com', Port => 6667, Ircname => 'Some witty comment.'); $irc->start; èª¬æ˜ŽÂ¶ Net::IRCã¸ã‚ˆã†ã“ãï¼Žã“ã‚Œã¯é€²è¡Œä¸ã®ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆã§ã™ï¼ŽNet::IRCã¯æœ€åˆPerl ã§ç´ æ—©ãIRCã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ããŸã‚ã®ãƒ„ãƒ¼ãƒ«ã¨ã—ã¦è¨ˆç”»ã•ã‚Œã¾ã—ãŸãŒï¼ŒPerlã«ã‚ˆ ã‚‹IRCãƒ—ãƒãƒˆã‚³ãƒ«(RFC 1459)ã®åŒ…æ‹¬çš„ãªå®Ÿè£…ã«æˆé•·ã—ã¾ã—ãŸï¼ŽEFnetã®IRCãƒãƒ£ãƒ³ ãƒãƒ«#perlã®æ•°äººã®ãƒ¡ãƒ³ãƒã«ã‚ˆã£ã¦é–‹ç™ºã•ã‚Œï¼Œãƒãƒ£ãƒ³ãƒãƒ«#net-

kat0usi 2009/04/11

perl

ãƒªãƒ³ã‚¯

CPANã§ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã‚’è¡ŒãŠã†ã¨ã™ã‚‹ã¨ãŸã¾ã«ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ä»˜ãã§å•ã„åˆã‚ã›ã—ã¦ãã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã‚‹ã€‚ ä¸€å€‹ä½ãªã‚‰åˆ¥ã«æ§‹ã‚ãªã„ã‘ã©Plaggerãªã‚“ãžtestã—ã‚ˆã†ã‚‚ã‚“ãªã‚‰ã¨ã¦ã‚‚ã‚¦ã‚¶ã‚¤ã€‚ ã‚“ã§ã„ã‚ã„ã‚èª¿ã¹ã¦ã¿ã‚‹ã¨ PERL_MM_USE_DEFAULT=1 ã£ã¦è¨€ã†ã®ã‚’ç’°å¢ƒå¤‰æ•°ã«ã‚»ãƒƒãƒˆã—ã¦ã‹ã‚‰CPANã™ã‚‹ã¨ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ã§å…ˆã«é€²ã‚“ã§ãã‚Œã‚‹ã€‚ ã“ã‚Œã«SCREENã‚’çµ„ã¿åˆã‚ã›ã¦ãƒãƒƒã‚¯ã‚°ãƒ©ã‚¦ãƒ³ãƒ‰ã§èµ°ã‚‰ã›ã‚‹ã¨æ‰‹é–“ãŒå°‘ãªããªã‚‹ã€‚ ãŸã ã—ã€‚ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ãŒå«Œãªå ´åˆã¯è‡ªå‹•çš„ã«é€²ã‚“ã§ã—ã¾ã†ã®ã§ãã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®å…¥ã‚ŒãªãŠã—ã‚’ã—ãªã‘ã‚Œã°ãªã‚‰ãªã„æ™‚ã‚‚ã‚ã‚‹ã‹ã‚‰æ³¨æ„ã—ãŸæ–¹ãŒã„ã„ã€‚

kat0usi 2009/04/11

export PERL_MM_USE_DEFAULT=1

perl

ãƒªãƒ³ã‚¯

perl - tnek-cgi@CodeRepos - nms-cgi å†ã³ : 404 Blog Not Found

2009å¹´04æœˆ03æ—¥10:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - tnek-cgi@CodeRepos - nms-cgi å†ã³ ã“ã‚Œã‚’è¦‹ã¦ã„ãŸãŸã¾ã‚Œãªããªã£ãŸã®ã§ã€‚ perlã§ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ€ã‚’ä½œã£ãŸã®ã§ã™ãŒã€ã‚¯ãƒ©ãƒƒã‚¯ã‚’å—ã‘ã¦ã„ã‚‹æ§˜ãªã‚“ã§ã™ã€‚ ./up ã®é…ä¸‹ã«ã—ã‹ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ‰å‡ºæ¥ãªã„æ§˜ã«ã—ãŸã¤ã‚‚ã‚ŠãŒã€ãã®ä¸Šã®ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã«.htaccessã‚„ã‚‰i.. - äººåŠ›æ¤œç´¢ã¯ã¦ãª /lang/perl/tnek-cgi/trunk ? CodeRepos::Share ? Trac ã“ã‚Œã¯ã„ã£ãŸã„ä½•ã‹ã¨ã„ã†ã¨ã€ nms - web programs written by experts ã®æ—¥æœ¬ç‰ˆã¿ãŸã„ãªã‚‚ã®ã§ã™ã€‚nms-cgiã«ã‚‚ãƒ•ã‚¡ã‚¤ãƒ«ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ€ãƒ¼ãŒãªã‹ã£ãŸã®ã§ä½œã‚Šã¾ã—ãŸã€‚ãã®ä»–ã®ã€Œã‚ˆãä½¿ã†CGIã€ãªã©ã‚‚ã€ã“ã“ã‚’èµ·ç‚¹ã«ã¿ã‚“ãªã§æ·»å‰Šã—ã¦ãã‚Œã‚’é…å¸ƒã€ã¨ã„ã†å½¢ã«ã™ã‚Œã°

kat0usi 2009/04/03

perl

ãƒªãƒ³ã‚¯

æ—¥é ƒã‚ˆã‚Šæ¥½å¤©ã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã”åˆ©ç”¨ã„ãŸã ãã¾ã—ã¦ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ã€‚ ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã”åˆ©ç”¨ã„ãŸã ã„ã¦ãŠã‚Šã¾ã™ã¨ã“ã‚å¤§å¤‰ç”³ã—è¨³ã”ã–ã„ã¾ã›ã‚“ãŒã€ç¾åœ¨ã€ç·Šæ€¥ãƒ¡ãƒ³ãƒ†ãƒŠãƒ³ã‚¹ã‚’è¡Œã‚ã›ã¦ã„ãŸã ã„ã¦ãŠã‚Šã¾ã™ã€‚ ãŠå®¢æ§˜ã«ã¯ã€ç·Šæ€¥ã®ãƒ¡ãƒ³ãƒ†ãƒŠãƒ³ã‚¹ã«ã‚ˆã‚Šã€ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã—ã¦ãŠã‚Šã€èª ã«ç”³ã—è¨³ã”ã–ã„ã¾ã›ã‚“ã€‚ ãƒ¡ãƒ³ãƒ†ãƒŠãƒ³ã‚¹ãŒçµ‚äº†æ¬¡ç¬¬ã€ã‚µãƒ¼ãƒ“ã‚¹ã‚’å¾©æ—§ã„ãŸã—ã¾ã™ã®ã§ã€ ä»Šã—ã°ã‚‰ããŠå¾…ã¡ã„ãŸã ã‘ã¾ã™ã‚ˆã†ã€ãŠé¡˜ã„ç”³ã—ä¸Šã’ã¾ã™ã€‚

kat0usi 2009/03/22

Perl 5.004ä»¥é™ã§ã¯ã€è‡ªå‹•çš„ã«æœ€åˆã«srand(time)ãŒå‘¼ã³å‡ºã•ã‚Œã‚‹ã®ã§ã€srandã¯çœç•¥ã™ã‚‹ã“ã¨ãŒã§ãã‚‹

perl

ãƒªãƒ³ã‚¯

ãƒ¢ãƒ€ãƒ³ãªã‚¯ãƒ©ã‚¹ï¼ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®ã‚ã‚Šæ–¹ã¯ï¼Ÿ Perlã§ã¯ãã‚‚ãã‚‚ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã¨ã„ã†è€ƒãˆæ–¹è‡ªä½“ãŒã€Perl 5ï¼ˆPerl 7æ³ï¼‰ã§ã¯ã˜ã‚ã¦ç™»å ´ã—ãŸã€å¾Œä»˜ã‘ã®ã‚‚ã®ã§ã—ãŸã€‚ã¾ãŸã€ãã®å®Ÿè£…ã‚‚éžå¸¸ã«ãŠãŠã‚‰ã‹ãªã‚‚ã®ã ã£ãŸãŸã‚ã€ã‚ˆã‚Šã€Œæœ¬æ ¼çš„ãªã€ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæ©Ÿæ§‹ã‚’å‚™ãˆãŸè¨€èªžã®ãƒ¦ãƒ¼ã‚¶ã‹ã‚‰ã¯ã—ã°ã—ã°æ‰¹åˆ¤ã•ã‚Œã¦ãã¾ã—ãŸã€‚ ãŸã ã—ã€è»¢ã‚“ã§ã‚‚ãŸã ã§ã¯èµ·ããªã„ã®ãŒPerl ãƒãƒƒã‚«ãƒ¼ãŸã¡ã®ã‚ˆã„ã¨ã“ã‚ã€‚ãã®ã‚ˆã†ãªæ‰¹åˆ¤ã‚’ç³§ã«ã€ã€Œâ ãƒ¢ãƒ€ãƒ³Perlã€ã®ä¸–ç•Œã§ã‚‚ã£ã¨ã‚‚æ¿€ã—ãã€å¤šæ§˜ã«é€²åŒ–ã—ã¦ããŸã®ãŒã“ã®åˆ†é‡Žã§ã™ã€‚ ä»Šå›žã¯ãã®ã‚ˆã†ãªã‚¯ãƒ©ã‚¹ï¼ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®é€²åŒ–ã®ä¸€ä¾‹ã¨ã—ã¦ã€ã‚¯ãƒ©ã‚¹ã®ç¶™æ‰¿ã¨ãƒ¡ã‚½ãƒƒãƒ‰ã®è§£æ±ºé †åºã«ã¾ã¤ã‚ã‚‹è©±é¡Œã‚’ã¾ã¨ã‚ã¦ã„ãã¾ã™ã€‚ ç¶™æ‰¿ã«ã‚ˆã‚‹ã‚¯ãƒ©ã‚¹ã®æ‹¡å¼µ ä¼çµ±çš„ãªbaseãƒ—ãƒ©ã‚°ãƒžã‚’ä½¿ã£ã¦ã‚¯ãƒ©ã‚¹ã‚’æ‹¡å¼µã™ã‚‹å ´åˆã€ç¶™æ‰¿å…ƒã¨ç¶™æ‰¿å…ˆã«åŒåã®ãƒ¡ã‚½ãƒƒãƒ‰ãŒã‚ã‚Œã°ç¶™æ‰¿å…ˆã®ãƒ¡ã‚½ãƒƒãƒ‰ã ã‘ãŒå„ªå…ˆçš„ã«å®Ÿè¡Œã•ã‚Œã¾ã™ã€‚ use strict; use warn

ç¬¬2å›žã€€mroï¼šæ¬¡ã®ãƒ¡ã‚½ãƒƒãƒ‰ã¯ã©ã“ï¼Ÿ | gihyo.jp

kat0usi 2009/03/12

ç¶™æ‰¿ã™ã‚‹ã®ã‚‚å¤§å¤‰ã

perl

ãƒªãƒ³ã‚¯

ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

ã‚¿ã‚°

é–¢é€£ã‚¿ã‚°ã§çµžã‚Šè¾¼ã‚€ (10)

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

ãŠçŸ¥ã‚‰ã›

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2024å¹´12æœˆç¬¬1é€±ï¼‰

æœˆé–“ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2024å¹´11æœˆï¼‰

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2024å¹´11æœˆç¬¬5é€±ï¼‰

å…¬å¼Twitter

ã‚ãƒ¼ãƒœãƒ¼ãƒ‰ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆä¸€è¦§

ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

å…¬å¼Twitter

ã¯ã¦ãªã®ã‚µãƒ¼ãƒ“ã‚¹

ã‚¿ã‚°

é–¢é€£ã‚¿ã‚°ã§çµžã‚Šè¾¼ã‚€ (10)

perlã«é–¢ã™ã‚‹kat0usiã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (53)

ãŠçŸ¥ã‚‰ã›

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚­ãƒ³ã‚°ï¼ˆ2024å¹´12æœˆç¬¬1é€±ï¼‰

æœˆé–“ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚­ãƒ³ã‚°ï¼ˆ2024å¹´11æœˆï¼‰

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚­ãƒ³ã‚°ï¼ˆ2024å¹´11æœˆç¬¬5é€±ï¼‰

å…¬å¼Twitter

ã‚­ãƒ¼ãƒœãƒ¼ãƒ‰ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆä¸€è¦§

å…¬å¼Twitter

ã¯ã¦ãªã®ã‚µãƒ¼ãƒ“ã‚¹

é–¢é€£ã‚¿ã‚°ã§çµžã‚Šè¾¼ã‚€ (10)

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

ãŠçŸ¥ã‚‰ã›

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2024å¹´12æœˆç¬¬1é€±ï¼‰

æœˆé–“ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2024å¹´11æœˆï¼‰

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2024å¹´11æœˆç¬¬5é€±ï¼‰

å…¬å¼Twitter

ã‚ãƒ¼ãƒœãƒ¼ãƒ‰ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆä¸€è¦§

å…¬å¼Twitter

ã¯ã¦ãªã®ã‚µãƒ¼ãƒ“ã‚¹