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

endo_5501 id:endo_5501

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

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

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
endo_5501 2019/10/14
â€œãã—ã¦å…¥é–€æ›¸ã¨ã—ã¦ã€Œã‚‰ãã‚‰ãRakuå…¥é–€ã€ã¨ã„ã†æœ¬ãŒå‡ºã‚‹æ‰€ã¾ã§ã¯äºˆæƒ³ã§ãã‚‹â€

perl
ãƒªãƒ³ã‚¯
perlã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’ä½¿ãˆã‚‹ã¨ã‚«ãƒƒã‚³ã‚¤ã‚¤ã¨ã„ã†è©± - ã‚«ã‚¤ãƒ¯ãƒ¬ã®å¤§å†’é™º Second
ã¿ãªã•ã¾ã€perlä½¿ã£ã¦ã¾ã™ã§ã—ã‚‡ã†ã‹ã€‚ ã‚¿ã‚¤ãƒˆãƒ«ã¯é‡£ã‚Šã§ã™ãŒã€çµè«–ã‹ã‚‰è¨€ã†ã¨ã€ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’æ›¸ããªã‚‰perlã‚’ä½¿ã„ã¾ã—ã‚‡ã†ã¨ã„ã†è©±ã§ã™ã€‚ ç†ç”±ã¯å˜ç´”ã«ã€ãƒ‘ãƒƒã‚±ãƒ¼ã‚¸ã„ã‚Œãªãã¦ã‚‚ã™ãä½¿ãˆã‚‹ã®ã¨ã€perlã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’è§£èªã™ã‚‹ã®ã«çŸ¥è˜ãŒç”Ÿãã‚‹ã‹ã‚‰ã¨ã„ã†ç†ç”±ã‹ã‚‰ã§ã™ãã€‚Pythonã§ã‚‚åŒã˜ãªã®ã§ã€ãã“ã¯æ¢ã‚ã¾ã›ã‚“ã€‚ éšœå®³å¯¾å¿œã‚’ã—ã¦ã„ã‚‹ã¨ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’ä½¿ã†ã“ã¨ã‚‚éžå¸¸ã«å¤šã„ã®ã§ã€ä½¿ã„æ–¹ã‚’èª¬æ˜Žã—ã¦ã¿ã¾ã™ã€‚æ˜¯éžè¦šãˆã¦ã¿ã¾ã—ã‚‡ã†ã€‚ ã‚ªãƒ—ã‚·ãƒ§ãƒ³èª¬æ˜Ž ã¾ãšã€ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã®èª¬æ˜Žã‚’ã—ã¦ã„ãã¾ã™ã€‚ -lã‚ªãƒ—ã‚·ãƒ§ãƒ³ã¯æ”¹è¡Œã‚’å…¥ã‚Œã¦ãã‚Œã¾ã™ã€‚ã¾ãŸã€ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã®ã‚³ãƒžãƒ³ãƒ‰ã¨ã—ã¦å®Ÿè¡Œã™ã‚‹ã«ã¯-eã‚ªãƒ—ã‚·ãƒ§ãƒ³ãŒå¿…è¦ã§ã™ã€‚ 1 2 3 4 5 6 $ perl -le 'print "Hello"' Hello # lã‚’ã¤ã‘ãªã„ã¨ã€ã“ã†ãªã‚‹ $ perl -e 'print "Hello"' Hello% æ¬¡ã«ã“ã†ã„ã†ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ãƒ™ãƒ¼ã‚¹
endo_5501 2015/09/20
perl
ãƒªãƒ³ã‚¯
Perlã§èª¿ç†ã®è‡ªå‹•åŒ–â€¦ãªã‚“ã ã‹ã‚ˆãã‚ã‹ã‚‰ãªã„ãŒã¨ã«ã‹ãã™ã”ã„ç¬‘ #yapcasia #yapcasiaB
moznion @moznion ã¯ã¦ãªãƒ–ãƒã‚°ã«æŠ•ç¨¿ã—ã¾ã—ãŸ #ã¯ã¦ãªãƒ–ãƒã‚° #yapcasia YAPC::Asia Tokyo 2015 1æ—¥ç›® (Fri 8.21) 15:30 ã‹ã‚‰è©±ã—ã¾ã™ï¼ï¼ï¼ï¼ - ãã®æ‰‹ã®å¹³â€¦ moznion.hatenadiary.com/entry/2015/08/â€¦ 2015-08-20 21:02:06 ãƒªãƒ³ã‚¯ http://moznion.hatenadiary.com/ YAPC::Asia Tokyo 2015 1æ—¥ç›® (Fri 8.21) 15:30 ã‹ã‚‰è©±ã—ã¾ã™ï¼ï¼ï¼ï¼ - ãã®æ‰‹ã®å¹³ã¯å°»ã‚‚ã¤ã‹ã‚ã‚‹ã• Yet Another Perl Cooking - YAPC::Asia Tokyo 2015yapcasia.orgã“ã†ã„ã£ãŸè©±ã‚’ã—ã¾ã™ï¼Žä¸€éƒ¨çŠ¶æ³ãŒå¤‰ã‚ã‚Šã¾ã—ãŸãŒï¼Œå¤§ç‹ã§ã“ã†ã—ãŸè©±ã‚’ã—ã¾ã™ï¼Žæœ¬å½“ã«æ–™ç†ã®è©±ã‚’ã™ã‚‹ã®ã§ã™ï¼Ž è£ç•ªçµ„ãŒè¶…å¼·åŠ›ï¼ ã¨
endo_5501 2015/08/23
æ–™ç†

perl
ãƒªãƒ³ã‚¯
[ã‚’] Perlã«ã‚ˆã‚‹CSVã®èªã¿è¾¼ã¿ã¨CSVã‚’TSVã«å¤‰æ›ã™ã‚‹ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼
endo_5501 2012/03/11
perl

programming
ãƒªãƒ³ã‚¯
ãã‚Œã§ Perl 6 ã®ä½•ãŒã™ã”ã„ã‚“ã ã¨æ€ã£ãŸã‚ãªãŸã€‚ã“ã“ãŒã™ã”ã„ã‚“ã§ã™ã€‚ - ãƒ¤ãƒ«ã‚ãƒ‡ãƒŠã‚¤ã‚ºãƒ‰ã ã£ãŸ
ãŸã¨ãˆã°ã“ã‚“ãªã€‚ Rakudo Star ã§ã¯ã©ã‚Œã‚‚å®Ÿè£…æ¸ˆã¿ã€‚ä»Šã™ãä½¿ãˆã¾ã™ã€‚ å¼·åŒ–ã•ã‚ŒãŸæ£è¦è¡¨ç¾ Perl 6 ã®å…¬å¼ãªãƒ‘ãƒ¼ã‚µè‡ªä½“ã‚‚ Perl 6 ã®æ£è¦è¡¨ç¾ã§æ›¸ã‹ã‚Œã¦ã„ã¾ã™ã€‚ â€¦â€¦ã¯ç½®ã„ã¨ã„ã¦ã€‚10è¡Œã¡ã‚‡ã£ã¨ã§ CSV ã‚’ãƒ‘ãƒ¼ã‚¹ã™ã‚‹æ£è¦è¡¨ç¾ãŒæ›¸ã‘ã‚‹ã€‚ã‚¯ã‚©ãƒ¼ãƒˆã•ã‚ŒãŸå€¤ã«ã‚‚è¤‡æ•°è¡Œã«ã¾ãŸãŒã‚‹å€¤ã«ã‚‚å¯¾å¿œã€‚ # CSV ã‚¯ãƒ©ã‚¹ã¯ä»¥ä¸‹ã®ã‚‚ã®ã‚’ä¿®æ£ã—ã¦ä½¿ã£ã¦ã„ã¾ã™ # http://github.com/masak/csv/blob/master/lib/Text/CSV.pm # æ£è¦è¡¨ç¾ã‚’ã¾ã¨ã‚ãŸ grammar ï¼ˆã‚¯ãƒ©ã‚¹ã®ä¸€ç¨®ï¼‰ grammar CSV { regex TOP { ^ <line> ** \n <empty_line>? $ } regex line { <value> ** ',' } regex value { | <pure_text> | \s* \" <quoted_
endo_5501 2010/07/31
ä½•ã“ã‚Œãƒ¼ã‹ã£ã“ã„ã„ï¼

perl

programming
ãƒªãƒ³ã‚¯
10ç¨®é¡žã®è¨˜å·ã§æ›¸ãPerlãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã®ä½œã‚Šæ–¹ - ã™ãŽã‚ƒãƒ¼ã‚“ãƒ¡ãƒ¢
java-jaæ¸©æ³‰ã«ã¦ã€Pythonã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ãŒã‚ãƒ¢ã„ã¨ã„ã†è©±ãŒå‡ºã¦ã„ã¦ã€Perlã ã£ã¦ã“ã‚Œãã‚‰ã„ã‚ãƒ¢ã„ã®æ›¸ã‘ã‚‹ã‚ˆï¼ã¨ã‚¢ãƒ”ãƒ¼ãƒ«ã—ã¦ã¿ãŸ perl -e '""!~("(?{".("{^(?)!(?^{^^!){.^^~~?}{!~}^}^.(!~}!..^^!~}!~~.~^}"^"^}((~))~~^{.{^~?}^!^}(~{^)?()^)^!).^}!()){.^)(}.("^"!~!{}(!(!~((}}!})!^^{^){(.?}{}!~{^~!)^?..(~)!~.?."^"{{?}^(~)~^!..~)??){^.~){.~(!{.)}}^.}^~}?}.^}(^?{~"^".)^!?^(.)!~!)~{^{(}){?!^.~)({?)(^.^!.^{((^!!^(^(!"^"!})^?}^(?^(~{.)(}})!.?^~!!{~))}({^^!..)^^~?{.?).
endo_5501 2010/03/22
ã‚ãƒ¢ï¼

perl

ãƒã‚¿

programming
ãƒªãƒ³ã‚¯
PerlåŸºç¤Žæ–‡æ³•æœ€é€Ÿãƒžã‚¹ã‚¿ãƒ¼ - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º åŸºç¤Žæ–‡æ³• ITã®ç¾å ´ã§PerlãŒå¿…è¦ã«ãªã£ã¦ã€ä»Šå‹‰å¼·ã—ã¦ã„ã‚‹ã¨ã„ã†æ–¹ã¯ãŠã‚‰ã‚Œã¾ã›ã‚“ã‹? ä»–ã®è¨€èªžã‚’ã‚ã‚‹ç¨‹åº¦çŸ¥ã£ã¦ã„ã‚‹æ–¹ãŒã€ŒPerlåŸºç¤Žæ–‡æ³•æœ€é€Ÿãƒžã‚¹ã‚¿ãƒ¼ã€ã‚’èªã‚ã°ã€Perlã®ä½¿ã„æ–¹ã®åŸºç¤Žã‚’ãƒžã‚¹ã‚¿ãƒ¼ã—ã¦Perlã‚’æ›¸ãã“ã¨ãŒã§ãã‚‹ã‚ˆã†ã«ãªã£ã¦ã„ã¾ã™ã€‚ åŸºç¤Ž æ–‡æ³•ãƒã‚§ãƒƒã‚¯ æ–‡æ³•ã‚’ãƒã‚§ãƒƒã‚¯ã‚’åŽ³ã—ãã™ã‚‹ãŸã‚ã«æœ€åˆã«å¿…ãšæ¬¡ã®2è¡Œã‚’æ›¸ãã‚ˆã†ã«ã—ã¾ã™ã€‚ use strict; use warnings; ã€Œuse strictã€ã¨ã€Œuse warningsã€ã¨ã„ã†2è¡Œã‚’åŠ ãˆã‚‹ã“ã¨ã§äº‹å‰ã«æ–‡æ³•ãƒã‚§ãƒƒã‚¯ãŒè¡Œã‚ã‚Œã‚‹ã®ã§ã€ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã‚’è¨˜è¿°ã™ã‚‹ä½œæ¥ã¯é€Ÿããªã‚Šã€ã‚³ãƒ¼ãƒ‰ã®å“è³ªãŒä¸ŠãŒã‚Šã¾ã™ã€‚ printé–¢æ•° æ–‡å—åˆ—ã‚’å‡ºåŠ›ã™ã‚‹ã«ã¯printé–¢æ•°ã‚’ä½¿ç”¨ã—ã¾ã™ã€‚ print "Hello world"; Perlã§ã¯æ¨™æº–é–¢æ•°ã‚„äº‹å‰ã«å®šç¾©ã•ã‚Œã¦ã„ã‚‹é–¢æ•°ã§æ‹¬å¼§ã‚’çœç•¥ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ ã‚³ãƒ¡ãƒ³ãƒˆ Perlã®ã‚³ãƒ¡ãƒ³ãƒˆã§
endo_5501 2010/01/24
perl

programming
ãƒªãƒ³ã‚¯
ç¬¬15å›žã€€DateTimeï¼šAPIã®æ¨™æº–åŒ–ã‚’ã‚ã–ã—ã¦ | gihyo.jp
Cã‹ã‚‰ç¶™æ‰¿ã—ãŸAPI ãƒ—ãƒã‚°ãƒ©ãƒžã«ã¨ã£ã¦ã€ãƒã‚°ã®è§£æžã‚„ä½œæˆãªã©ã«å«ã¾ã‚Œã‚‹æ—¥ä»˜ã‚„æ™‚åˆ»ã®æ“ä½œã¯åˆ‡ã£ã¦ã‚‚åˆ‡ã‚Šé›¢ã›ãªã„åˆ†é‡Žã®ã²ã¨ã¤ã§ã™ã€‚ã‚‚ã¡ã‚ã‚“Perlã«ã‚‚æ—¥ä»˜ã‚„æ™‚åˆ»ã‚’æ“ä½œã™ã‚‹ãŸã‚ã®é–¢æ•°ã¯çµ„ã¿è¾¼ã¾ã‚Œã¦ã„ã¾ã™ã€‚ ãŸã ã—ã€Cã‹ã‚‰ç¶™æ‰¿ã—ã¦ããŸlocaltime()ã‚„gmtime()ã®è¿”ã‚Šå€¤ã¯ã€ãŠä¸–è¾žã«ã‚‚ã‚ã‹ã‚Šã‚„ã™ã„ã¨ã¯ã„ãˆã¾ã›ã‚“ã€‚ãƒªã‚¹ãƒˆã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆã§å‘¼ã³å‡ºã›ã°å¹´æœˆæ—¥ã€æ™‚åˆ†ç§’ãªã©ã®å€¤ã‚’å–ã‚Šå‡ºã›ã‚‹ã¨ã¯ã„ãˆã€å˜ä¸€ã®é…åˆ—ã§å—ã‘å–ã‚‹ã¨ã€å€‹ã€…ã®è¦ç´ ã‚’ä½¿ã†ã¨ãã«ç›´æ„Ÿçš„ã§ã¯ãªããªã‚Šã¾ã™ã—ã€æ˜Žç¤ºçš„ãªåå‰ã‚’ã¤ã‘ãŸã‚¹ã‚«ãƒ©ãƒ¼å¤‰æ•°ã‚’ä¸¦ã¹ã¦å—ã‘å–ã‚‹ã®ã¯ã„ã‹ã«ã‚‚å†—é•·ã§ã™ã€‚ use strict; use warnings; # çŸã„ã‘ã‚Œã©éžç›´æ„Ÿçš„ my @tm = localtime(); $tm[5] += 1900; $tm[4]++; printf "%04d-%02d-%02d %02d:%02d:%02d\n", reve
endo_5501 2009/12/06
perl

programming
ãƒªãƒ³ã‚¯
Perl&CGIæœ€å¼·è¬›åº§ [smart]
indexã¯ã€ç¬¬1å¼•æ•°STRã®å…ˆé ã‹ã‚‰ç¬¬2å¼•æ•°SUBSTRãŒæœ€åˆã«è¦‹ã¤ã‹ã£ãŸä½ç½®ã‚’è¿”ã—ã¾ã™ã€‚ ç¬¬3å¼•æ•° POSITIONã§æ¤œç´¢ã™ã‚‹ä½ç½®ã‚’æŒ‡å®šã™ã‚‹ã“ã¨ã‚‚ã§ãã¾ã™ã€‚ç¬¬3å¼•æ•°POSITIONã«ã¯æœ€åˆã®æ–‡å—ã‚’ 0 ã¨ã—ã¦æŒ‡å®šã—ã¾ã™ã€‚ è¿”å´å€¤ã¯ 0ã€ã‚‚ã—ãã¯å¤‰æ•°$[ã«è¨å®šã—ãŸå€¤ã§ã™ã€‚SURSTRãŒè¦‹ã¤ã‹ã‚‰ãªã‹ã£ãŸå ´åˆã¯ -1 ã‚’è¿”ã—ã¾ã™ã€‚ indexã®ä½¿ã„æ–¹ $str = "How you always hurt the one you love."; print index($str,'you'); > 4
endo_5501 2009/12/06
programming

perl
ãƒªãƒ³ã‚¯
ãƒã‚¤ãƒŠãƒªãƒ•ã‚¡ã‚¤ãƒ«ã‚’è§£æžã™ã‚‹
Perlã¨ã„ãˆã°ãƒ†ã‚ã‚¹ãƒˆå‡¦ç†ã‚„æ£è¦è¡¨ç¾ãŒå¾—æ„ã§ã€ãƒã‚¤ãƒŠãƒªã‚’æ‰±ã†ã‚ˆã†ãªè©±ã«ã¤ã„ã¦ã¯ã‚ã¾ã‚Šèžã‹ãªã„å°è±¡ãŒã‚ã‚Šã¾ã™ã€‚PerlãŒæŒã¤é–¢æ•°pack/unpackç‰ã§ã‚‚ãƒã‚¤ãƒŠãƒªå‡¦ç†ã¯å¯èƒ½ã§ã™ãŒã€ä»Šå›žã¯Data::ParseBinaryã‚’ä½¿ã£ã¦ãƒã‚¤ãƒŠãƒªãƒ•ã‚¡ã‚¤ãƒ«ã‚’æ°—è»½ã«è§£æžã—ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ åŸºæœ¬ ãƒ•ã‚¡ã‚¤ãƒ«ã‹ã‚‰ã‚¹ãƒˆãƒªãƒ¼ãƒ ã‚’ä½œã‚‹ è§£æžã—ãŸã„ãƒ•ã‚¡ã‚¤ãƒ«ã‚’Data::ParseBinaryã§æ‰±ãˆã‚‹ã‚¹ãƒˆãƒªãƒ¼ãƒ ã«å¤‰æ›ã—ã¾ã™ã€‚ use Data::ParseBinary; my $stream = CreateStreamReader(File => $file_handle); è§£æžã—ãŸã„æ§‹é€ ã‚’å®šç¾©ã™ã‚‹ Structé–¢æ•°ã§è§£æžã—ãŸã„æ§‹é€ ã‚’å®šç¾©ã—ã¾ã™ã€‚Structä»¥ä¸‹ã«ã¯åŸºæœ¬ãƒ‡ãƒ¼ã‚¿åž‹ã‚„ã‚³ãƒ³ãƒ†ãƒŠåž‹ã€ãƒ“ãƒƒãƒˆ/ãƒã‚¤ãƒˆãƒ‘ãƒ‡ã‚£ãƒ³ã‚°åž‹ã€åˆ¶å¾¡æ§‹æ–‡åž‹ç‰ã‚’ä½¿ç”¨ã§ãã¾ã™ã€‚å„åž‹ã«æŒ‡å®šã—ãŸãƒ©ãƒ™ãƒ«ãŒè§£æžçµæžœã¨ã—ã¦å¾—ã‚‰ã‚Œã‚‹ãƒãƒƒã‚·ãƒ¥ã®ã‚ãƒ¼ã¨ãªã‚Šã¾ã™ã€‚
endo_5501 2008/12/25
perl
ãƒªãƒ³ã‚¯
ç›®æ¬¡ ï½žã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã«ã‚ˆã‚‹Perlå…¥é–€ï½ž
ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã®åŸºç¤Ž ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã¨ã¯ å¼•æ•° å¼•æ•°ã®ï¼“ç¨®é¡žã®å—ã‘å–ã‚Šæ–¹ã€‚ $_[0], shift, @_ é…åˆ—ã€ãƒãƒƒã‚·ãƒ¥ã‚’å¼•æ•°ã¨ã—ã¦æ¸¡ã™ é…åˆ—ã¨ãƒãƒƒã‚·ãƒ¥ã‚’åŒºåˆ¥ã—ã¦æ¸¡ã™ã€‚ æˆ»ã‚Šå€¤ ã‚¹ã‚«ãƒ©ãƒ¼ã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆã¨ãƒªã‚¹ãƒˆã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆ ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã®æˆ»ã‚Šå€¤ ã‚¹ã‚«ãƒ©ãƒ¼ã¨ãƒªã‚¹ãƒˆ ã‚¹ã‚«ãƒ©ãƒ¼ã‹ãƒªã‚¹ãƒˆã‚’ã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆã«å¿œã˜ã¦è¿”å´ã™ã‚‹ã€‚wantarray å˜ç‹¬ã®return ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã®å½¹å‰² Perlã®ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã®ç‰¹å¾´ ã‚ˆã„ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã‚’ä½œæˆã™ã‚‹ãŸã‚ã®å¿ƒãŒã‘ ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ä½œæˆã‚’ä½œæˆã—ã¦å˜ä½“è©¦é¨“( è‡ªå‹•è©¦é¨“ ) ã‚’å¯èƒ½ã«ã™ã‚‹ã€‚ ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã¯ãƒ—ãƒã‚°ãƒ©ãƒ ã®ç›®æ¬¡ã‚’ã¤ãã‚‹ãŸã‚ã®ã‚‚ã®ã§ãªã„ã®ã§æ³¨æ„ã™ã‚‹ã€‚ ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³æ¼”ç¿’ cvså½¢å¼ã®æ–‡å—åˆ—ã‚’ã€é…åˆ—ã®é…åˆ—ã«å¤‰æ›ã™ã‚‹ã€‚ cvså½¢å¼ã®æ–‡å—åˆ—ã‚’ã€ãƒãƒƒã‚·ãƒ¥ã®é…åˆ—ã«å¤‰æ›ã™ã‚‹ã€‚ æœ€å¤§å€¤ã¨æœ€å°å€¤ã‚’æ±‚ã‚ã‚‹ã€‚ ãƒãƒ–ãƒ«ã‚½ãƒ¼ãƒˆã™ã‚‹ã€‚ é™é †ã¨æ˜‡é †ã‚’é¸æŠžã—ã¦ãƒãƒ–ãƒ«ã‚½ãƒ¼ãƒˆã™ã‚‹ã€‚ ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ä½œæˆã®æŠ€è¡“
endo_5501 2008/11/13
perl
ãƒªãƒ³ã‚¯
æ£è¦è¡¨ç¾ã®oã‚ªãƒ—ã‚·ãƒ§ãƒ³ã«Perlã®æš—é»’é¢ã‚’è¦‹ãŸ - ã¯ã“ã¹ã«ã£ã â™¨
Perlã®æ£è¦è¡¨ç¾ã®oã‚ªãƒ—ã‚·ãƒ§ãƒ³ã¦ã”å˜ã˜ã§ã—ã‚‡ã†ã‹? ã†ã¡ã¯ã‚ã¾ã‚Šä½¿ã£ãŸã“ã¨ãŒãªã‹ã£ãŸã®ã§ã™ãŒï¼ŒåŠ¹çŽ‡ã®ã‚ˆã„æ£è¦è¡¨ç¾å‡¦ç†ã‚’è¡Œã†ã¨ãã«ã¯ä¾¿åˆ©ãªã‚ªãƒ—ã‚·ãƒ§ãƒ³ã§ã™ï¼Ž oã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’ä½¿ã†ã¨ï¼Œãã®æ£è¦è¡¨ç¾ã®ã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ãŒ1å›žã—ã‹è¡Œã‚ã‚Œãªããªã‚Šã¾ã™ï¼ŽãŸã¨ãˆã°ï¼Œæ£è¦è¡¨ç¾ã®è©•ä¾¡ãŒç¹°ã‚Šè¿”ã—ã®ãªã‹ã§ç¾ã‚Œã‚‹ã¨ï¼Œã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ãŒä½•åº¦ã‚‚è¡Œã‚ã‚Œã¦åŠ¹çŽ‡ãŒæ‚ªããªã‚Šã¾ã™ï¼Žãã†ã„ã£ãŸã¨ãã«oã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’ä»˜ä¸Žã—ã¦ãŠã‘ã°ï¼Œæ£è¦è¡¨ç¾ã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ã®ã‚ªãƒ¼ãƒãƒ¼ãƒ˜ãƒƒãƒ‰ã‚’æœ€å°é™ã«ã¨ã©ã‚ã‚‹ã“ã¨ãŒã§ãã¾ã™ï¼Ž chomp(my $pattern = <>); for my $n (0..100000000000) { # ã™ã”ãå›žæ•°ã®å¤šã„ãƒ«ãƒ¼ãƒ— # oã‚’ã¤ã‘ã‚Œã°æ£è¦è¡¨ç¾ãŒã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ã•ã‚Œã‚‹ã®ã¯ã¯ã˜ã‚ã®1å›žã ã‘ãªã®ã§å®‰å¿ƒ if ($n =~ m/^$pattern$/o) { say "match!"; } } æ£è¦è¡¨ç¾ãŒé™çš„ãªå ´åˆã¯ï¼ŒPerlã¯ã“ã®ã‚ˆã†ãªæœ€é©åŒ–
endo_5501 2008/11/04
ãŠã€ãã‚“ãªã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚ã‚‹ã®ã‹

perl
ãƒªãƒ³ã‚¯
2006å¹´1æœˆ - Walrus, Visit.
endo_5501 2006/01/26
perl

java

programming

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

perl

blog
ãƒªãƒ³ã‚¯
1