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

m6u id:m6u

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

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

æ£è¦è¡¨ç¾ã«ã‚ˆã‚‹ãƒãƒªãƒ‡ãƒ¼ã‚·ãƒ§ãƒ³ã§ã¯ ^ ã¨ $ ã§ã¯ãªã \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]+$/
m6u 2017/12/12
ã‚‚ã—ã‹ã—ã¦ï¼šãŠã—ãˆã¦\A to \z

Ruby

perl

PHP

security

æ£è¦è¡¨ç¾

ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£
ãƒªãƒ³ã‚¯
Perlã®ãƒšãƒ¼ã‚¸
Shift-JISãƒ†ã‚ã‚¹ãƒˆã‚’æ£ã—ãæ‰±ã† [2006-10-28] swatchã¨swash [2006-10-21] Perlããžã‚æ›¸ã [2001-10-08] Shift-JISé–¢é€£ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« ShiftJIS/String.pm [tar.gz] v1.04 [2007-01-01] [ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆæ—¥æœ¬èªžç‰ˆ] Shift-JISæ–‡å—åˆ—ã‚’æ‰±ã†ã€‚ ShiftJIS/Regexp.pm [tar.gz] v1.00 [2007-01-02] [ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆæ—¥æœ¬èªžç‰ˆ] Shift-JISæ£è¦è¡¨ç¾ã‚’æ‰±ã†ã€‚ ShiftJIS/Collate.pm [tar.gz] v1.03 [2007-01-14] [ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆæ—¥æœ¬èªžç‰ˆ] Shift-JISæ–‡å—åˆ—ã®ç…§åˆã€æ¯”è¼ƒãŠã‚ˆã³ä¸¦ã³æ›¿ãˆã€‚ ShiftJIS/CP932/MapUTF.pm [tar.gz] v1.02 [2007-06-04] [ãƒ‰ã‚ãƒ¥ãƒ¡
m6u 2014/05/14
CP932ã‚„JIS X 0213ãŒã‚‰ã¿ã®æœ‰ç”¨ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ç¾¤

perl

JIS X 0213
ãƒªãƒ³ã‚¯
JIS X 0213:2004(JIS2004) ã§æœ¬å½“ã«æ–‡å—åŒ–ã‘ã™ã‚‹æ–‡å—
ã¨ã—ã¾ã™ã€‚Perl ã§æ–‡å—ã‚³ãƒ¼ãƒ‰ã‚’æ“ä½œã™ã‚‹æ–¹æ³•ã¯ã€Encode.pm ã¨æ—§Jcode.pm ï¼ˆ0.8ç³»ï¼‰ãŒãƒ¡ã‚¸ãƒ£ãƒ¼ã©ã“ã‚ãªã®ã§ã€ãã®ï¼’ã¤ã«ã¤ã„ã¦èª¿æŸ»ã—ã¾ã—ãŸã€‚Encode.pm ã«é–¢ã—ã¦ã¯ã€Encode::JP ã¨ Encode::JIS2K ã‚’å¯¾è±¡ã¨ã—ã¾ã—ãŸã€‚ ã¾ãšçµè«–ã‹ã‚‰ã€‚Encode::JIS2K ã‚’ä½¿ã†é™ã‚Šã€æ–‡å—åŒ–ã‘ã™ã‚‹ SJIS ã‚³ãƒ¼ãƒ‰ã¯ä»¥ä¸‹ã®ï¼“ï¼•æ–‡å—ã§ã™ã€‚ JIS2004 ã§è¿½åŠ ã•ã‚ŒãŸï¼‘ï¼æ–‡å—ï¼š879F 889E 9873 989E EAA5 EFF8 EFF9 EFFA EFFB EFFC ã‚«è¡Œã«åŠæ¿éŸ³ï¼ˆã‚œï¼‰ã‚’ä»˜ã‘ãŸæ–‡å—ãªã©ä¸€éƒ¨ã®æ–‡å—ï¼š 82f5 82f6 82f7 82f8 82f9 8397 8398 8399 839a 839b 839c 839d 839e 83f6 8663 8667 8668 8669 866a 866b 866c 866d 866e 8685 8
m6u 2014/05/09
Encode-JIS2Kã®å˜åœ¨ã‚’çŸ¥ã‚‹ã‚‚ã€Windowsã®ActivePerlã«å…¥ã‚Œã‚‰ã‚Œã‚‹Makefile.PLã®æ›¸ãæ›ãˆã«é “æŒ«ã€‚

Perl

encode

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
Mojolicious Web Framework
Did everything just taste purple for a second? Mojolicious is a fresh take on Perl web development, based on years of experience developing the Catalyst framework, and utilizing the latest web standards and techno logies. You can get started with your project quickly, with a framework that grows with your needs. The Mojo stack provides a consistent set of components that can be used in any project.
m6u 2013/08/20
ãªã‚“ã‹ã‚«ãƒƒã‚³ã„ã„ã€‚Perlå¥½ããªç§ã«ã¯ã‹ã£ã“ã‚ˆãã¿ãˆã‚‹ã€‚

perl

framework

web

ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯
ãƒªãƒ³ã‚¯
Perl 5.8.x Unicodeé–¢é€£
-> è¶£æ—¨ã¨æ³¨æ„æ›¸ã -> UTF8ãƒ•ãƒ©ã‚°ï¼Ÿ -> UTF8ãƒ•ãƒ©ã‚°ã¨PerlIOãƒ¬ã‚¤ãƒ¤ -> UTF8ãƒ•ãƒ©ã‚°ã®ã¤ã„ãŸæ–‡å—åˆ—ã‚’è¨˜è¿°ã™ã‚‹ -> Wide character in print ... -> Encode -> utf8::* -> use utf8; -> use encoding; -> use UTF8 ã¨ use encoding -> Jcodeã‹ã‚‰Encodeã¸ -> æƒ…å ±æº <- ãƒ¢ãƒ‰ãƒ« è¶£æ—¨ã¨æ³¨æ„æ›¸ã Perl 5.8.x ã®Unicode é–¢é€£ã§ã™ã€‚ æ£ç›´ã€5.8.x ã¯ã€ãƒã‚¿ã§ã—ã‹ä½¿ã£ã¦ãªã‹ã£ãŸã®ã§(ã‰ã€ã¡ã‚ƒã‚“ã¨ã„ã˜ã£ãŸã“ã¨ãŒã‚ã‚Šã¾ã›ã‚“ã§ã—ãŸã€‚ ä½¿ã£ã¦ã¿ã‚‹ã¨ã€ã‚ˆãã‚ã‹ã‚“ãªããªã£ãŸã®ã§ã€ã¡ã‚‡ã£ã¨ã¾ã¨ã‚ã¦ã¿ã¾ã—ãŸã€‚ ä»Šã§ã‚‚ã‚ã‚“ã¾ã‚Šã‚ã‹ã£ã¦ãªã„ã‹ã‚‚ã—ã‚Œãªã„ã®ã§ã€å†…å®¹ã¯ç„¡ä¿è¨¼ã§ã™ã€‚ çªã£è¾¼ã¿æ“è¿Žã€‚ Jcodeã€Encodeã®ãƒ¡ãƒ³ãƒ†ãƒŠã®å¼¾ã•ã‚“ã‹ã‚‰ã€ã”æŒ‡æ‘˜ã„ãŸã ã„ãŸã®ã§ã€
m6u 2012/12/10
perl

utf-8

encoding
ãƒªãƒ³ã‚¯
ãƒ•ã‚¡ã‚¤ãƒ«ã‚¿ã‚¤ãƒ ã®å–å¾— - Perlè¡¨æŠ€é›†
statã§æƒ…å ±ã‚’å–å¾—ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ãã®ä¸ã«ã‚¿ã‚¤ãƒ ã‚¹ã‚¿ãƒ³ãƒ—ã®æƒ…å ±ãŒå…¥ã£ã¦ã„ã¾ã™ã€‚ use strict; use warnings; my $filename = 'hoge.txt'; my @filestat = stat $filename; my $atime = localtime($filestat[8]); # ã‚¢ã‚¯ã‚»ã‚¹æ—¥ my $mtime = localtime($filestat[9]); # æ›´æ–°æ™‚åˆ» print $atime, "\n"; print $mtime, "\n"; é–¢é€£é …ç›® ãƒ»localtimeé–¢æ•° ãƒ»staté–¢æ•° ãƒ»utimeé–¢æ•° ãƒ»ãƒ•ã‚¡ã‚¤ãƒ«ãƒ†ã‚¹ãƒˆæ¼”ç®—å
m6u 2012/10/05
ãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚¿ã‚¤ãƒ ã‚¹ã‚¿ãƒ³ãƒ—ã®å–å¾—ã€‚stat()ã€‚ã‚¢ã‚¯ã‚»ã‚¹æ™‚åˆ»ã¯8ã€æ›´æ–°æ™‚åˆ»ã¯9ã€‚

perl
ãƒªãƒ³ã‚¯
ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã‚³ãƒ”ãƒ¼ã™ã‚‹ - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º ãƒ•ã‚¡ã‚¤ãƒ«æ“ä½œ â€º here ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã‚³ãƒ”ãƒ¼ã™ã‚‹ã«ã¯File::Copyãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®copyé–¢æ•°ã‚’ä½¿ç”¨ã—ã¾ã™ã€‚æˆåŠŸã™ã‚Œã°çœŸãŒã€å¤±æ•—ã™ã‚Œã°å½ãŒè¿”ã‚Šã¾ã™ã€‚ã¾ãŸcopyé–¢æ•°ãŒå¤±æ•—ã™ã‚Œã°ã€$!ã«ã‚¨ãƒ©ãƒ¼ã®å†…å®¹ãŒã€æ ¼ç´ã•ã‚Œã¾ã™ã€‚ use File::Copy 'copy'; copy $file, $copy_name; ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã®ä¸ã«ã‚³ãƒ”ãƒ¼ã™ã‚‹ã“ã¨ã‚‚ã§ãã¾ã™ã€‚ use File::Copy 'copy'; copy $file, $dir; ã‚µãƒ³ãƒ—ãƒ« ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã‚³ãƒ”ãƒ¼ã™ã‚‹ã‚µãƒ³ãƒ—ãƒ«ã§ã™ã€‚ use strict; use warnings; use Fcntl; use File::Copy 'copy'; # ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã‚³ãƒ”ãƒ¼ã™ã‚‹ã€‚ my $file = "sample_20080521_$$.txt"; my $dir = "dir_20080521_$$"; # æº–å‚™
m6u 2012/10/05
ãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚³ãƒ”ãƒ¼ã€‚File::Copy::copy()

perl
ãƒªãƒ³ã‚¯
perlãƒ¡ãƒ¢ï¼šãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚¿ã‚¤ãƒ ã‚¹ã‚¿ãƒ³ãƒ—ã‚’å¤‰æ›´ã™ã‚‹ã«ã¯ï¼Ÿ
ãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚¿ã‚¤ãƒ ã‚¹ã‚¿ãƒ³ãƒ—ã¤ã¾ã‚Šæ—¥ä»˜ã§ã™ãŒã€ã“ã‚Œã‚’å¤‰æ›´ã™ã‚‹ã«ã¯utimeé–¢æ•°ã‚’ä½¿ã„ã¾ã™ã€‚ ãƒ•ã‚¡ã‚¤ãƒ«ã®æœ€çµ‚ã‚¢ã‚¯ã‚»ã‚¹æ—¥æ™‚ã¨æœ€çµ‚å¤‰æ›´æ—¥æ™‚ã‚’å¤‰æ›´ã™ã‚‹ã“ã¨ãŒå‡ºæ¥ã¾ã™ã€‚ æ—¥ä»˜ã‚’å¤‰æ›´ã—ãŸã„ãƒ•ã‚¡ã‚¤ãƒ«ã¯ãƒªã‚¹ãƒˆå½¢å¼ã§è¤‡æ•°æ¸¡ã™ã“ã¨ãŒå‡ºæ¥ã¾ã™ã€‚ â—ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆã¯ã“ã‚“ãªæ„Ÿã˜ utime(æœ€çµ‚ã‚¢ã‚¯ã‚»ã‚¹æ—¥æ™‚,æœ€çµ‚å¤‰æ›´æ—¥æ™‚,ãƒ•ã‚¡ã‚¤ãƒ«ãƒ‘ã‚¹åˆã¯ãƒ•ã‚¡ã‚¤ãƒ«ãƒ‘ã‚¹ã®ãƒªã‚¹ãƒˆ); â—ã‚µãƒ³ãƒ—ãƒ«ï¼‘ #!/usr/bin/perl $atime = $mtime = time; utime $atime, $mtime, @ARGV; â—ã‚µãƒ³ãƒ—ãƒ«ï¼’ å˜ç´”ã«ä¸€å€‹ã®ãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚¿ã‚¤ãƒ ã‚¹ã‚¿ãƒ³ãƒ—ã‚’ä¿®æ£ã™ã‚‹å ´åˆã¯ã“ã‚“ãªæ„Ÿã˜ #!/usr/bin/perl $atime = $mtime = time; utime $atime, $mtime, â€˜./hogehoge.txtâ€™; â—æˆ»ã‚Šå€¤ã¯ã€å¤‰æ›´ã™ã‚‹ã“ã¨ãŒå‡ºæ¥ãŸãƒ•ã‚¡ã‚¤ãƒ«ã®æ•°ã€‚ â—perl 5.7.2ã‹ã‚‰ã¯
m6u 2012/10/05
ãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚¿ã‚¤ãƒ ã‚¹ã‚¿ãƒ³ãƒ—å¤‰æ›´ã€‚utime()

perl
ãƒªãƒ³ã‚¯
Perl XML HTTP Post to a web service.
Chapter 3. Make a SOAP client with Perl and SOAP::Lite 3.3. Perl XML HTTP Post to a web service.In the two following sections you will find sample code sending (with a Post) a SOAP message to a Java WSDP and a .NET web service. These post will work without the use of the package SOAP::lite. 3.3.1. Post a SOAP message to my Java WSDP web service.Our simple post example now. Let's see how it is so s
m6u 2012/09/19
SOAPãƒªã‚¯ã‚¨ã‚¹ãƒˆé€ä¿¡ã®ã‚µãƒ³ãƒ—ãƒ«

perl

HTTP

soap
ãƒªãƒ³ã‚¯
ç°¡å˜ï¼ãŸã£ãŸï¼‘ï¼“è¡Œã®ã‚³ãƒ¼ãƒ‰ã§HTMLå–å¾—ï¼†è§£æžã‚’ã™ã‚‹Perlã‚¹ã‚¯ãƒªãƒ—ãƒˆ - DQNEOèµ·æ¥æ—¥è¨˜
ï¼‘ï¼“è¡Œã®ã‚³ãƒ¼ãƒ‰ã§ã€Yahoo!Japanã®ãƒˆãƒ”ãƒƒã‚¯ã‚¹ä¸€è¦§ã‚’å–å¾—ã™ã‚‹ï¼ Perlã§HTMLå–å¾—ãƒ»è§£æžã—ãŸã„ã¨ãã¯LWP::UserAgentã¨HTML::TreeBuilderã¨ã„ã†ã®ã‚’ä½¿ã†ã¨ç°¡å˜ã«ã§ãã¾ã™ã€‚ LWP::UserAgentã‚’ä½¿ã†ã¨ã€Webãƒšãƒ¼ã‚¸ã®å–å¾—ãŒã§ãã¾ã™ã€‚ HTML::TreeBuilderã‚’ä½¿ã†ã¨ã€HTMLã®DOMè§£æžãŒã§ãã¾ã™ã€‚ ã“ã®ï¼’ã¤ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã£ã¦ã€Yahoo!Japanã®ãƒˆãƒ”ãƒƒã‚¯ã‚¹ä¸€è¦§ã‚’å–å¾—ã—ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ ã‚³ãƒ¡ãƒ³ãƒˆè¡Œã¨ç©ºè¡Œã‚’é™¤ãã¨ãŸã£ãŸã®ï¼‘ï¼“è¡Œã§ã™ã€‚ use strict; use warnings; use LWP::UserAgent; use HTML::TreeBuilder; # urlã‚’æŒ‡å®šã™ã‚‹ my $url = 'http://www.yahoo.co.jp'; # IE8ã®ãƒ•ãƒªã‚’ã™ã‚‹ my $user_agent = "Mozilla
m6u 2012/09/18
ãƒãƒœãƒƒãƒˆåŽé›†ã«å¤§æ´»èºã€‚

perl
ãƒªãƒ³ã‚¯
ã¯ã¦ãªãƒ–ãƒã‚° | ç„¡æ–™ãƒ–ãƒã‚°ã‚’ä½œæˆã—ã‚ˆã†
å°åŒ—å¸‚ç«‹å‹•ç‰©åœ’ã¨è¿ªåŒ–è¡—ã‚ãã‚Š åé€£ã‚Œå°æ¹¾#5 å¹´è¶Šã—å°æ¹¾ æ—…è¡Œ5æ—¥ç›®ã€ãƒ¬ã‚¸ãƒ£ãƒ¼ã‚„å‹äººã¨ã®é£Ÿäº‹ã‚’æ¥½ã—ã‚€æ—¥ã§ã™ã€‚å‰æ—¥ã®æ§˜åã¯ã“ã¡ã‚‰ www.oukakreuz.com å°åŒ—å¸‚ç«‹å‹•ç‰©åœ’ã¸ ãƒ‘ãƒ³ãƒ€é¤¨ ãƒ‘ãƒ³ãƒ€ãŒè¦‹ã‚‰ã‚Œã‚‹ãƒ¬ã‚¹ãƒˆãƒ©ãƒ³ è¿ªåŒ–è¡—ã¸ æž—èŒ‚æ£®èŒ¶è¡Œã§ãŠèŒ¶ã‚’è³¼å…¥ å°èŠ±åœ’ã§åˆºç¹ã‚°ãƒƒã‚ºã‚’è³¼å…¥ é»’æ¦å£«ç‰¹è‰²è€ç«é‹ã§å¤•é£Ÿ å°åŒ—å¸‚ç«‹å‹•ç‰©åœ’ã¸ æ¾â€¦
m6u 2012/04/04
grepæŠ€ä»¥å¤–ã«ã‚‚ã“ã‚“ãªã«ã‚ã‚‹ã¨ã¯ã€‚

perl
ãƒªãƒ³ã‚¯
ã€CGIãƒ»Perlã€‘åŸºæ•°å¤‰æ›ã—ãŸã„
CGIãƒ»Perlä¾‹æ–‡é›† CGI(Perl)ã®ã‚µãƒ³ãƒ—ãƒ«ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’ã‚³ãƒ”ãƒ¼ï¼†ãƒšãƒ¼ã‚¹ãƒˆã§ä½¿ãˆã‚‹ä¾¿åˆ©é›†ï¼ ã‚«ãƒ†ã‚´ãƒªãƒ¼ï¼šæ•°å€¤Â åŸºæ•°å¤‰æ›ã—ãŸã„ 2é€²æ•°ã‚’10é€²æ•°ã€10é€²æ•°ã‚’16é€²æ•°ãªã©ã€åŸºæ•°å¤‰æ›ã«ã¯ã€ŒMath::BaseCalcã€ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ç”¨ã™ã‚‹ã¨æ¥½ã«è¡Œãˆã‚‹ã€‚ Math::BaseCalcãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯åˆ¥é€”ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ãŒå¿…è¦ãªå ´åˆãŒã‚ã‚‹ã®ã§æ³¨æ„ã€‚ ;# ;#åŸºæ•°å¤‰æ› ;# use Math::BaseCalc; #-- 10é€²æ•°ã‚’2é€²æ•°ã«å¤‰æ› --# $calcÂ Â = new Math::BaseCalc(digits => [0,1]); $value = $calc->to_base(100); print $value, "\n"; #-- 10é€²æ•°ã‚’8é€²æ•°ã«å¤‰æ› --# $calcÂ Â = new Math::BaseCalc(digits => [0..7]); $val
m6u 2012/03/26
ãªã‚‹ã»ã©ã€‚

perl
ãƒªãƒ³ã‚¯
Perl5.8 ã® UNICODE å¯¾å¿œ
perl ã¯ 5.8 ã‹ã‚‰ Unicode(utf-8) ãŒã‚µãƒãƒ¼ãƒˆã•ã‚Œã¾ã—ãŸï¼Ž5.6 ã§ã‚‚ Unicode ã«å¯¾å¿œã¯ã—ã¦ã„ã¾ã—ãŸãŒï¼Œãœã‚“ãœã‚“ä½¿ã„ç‰©ã«ãªã‚‰ãšï¼Œã‚ˆã†ã‚„ã 5.8 ã§ã¾ã¨ã‚‚ã«ä½¿ãˆã‚‹ã‚ˆã†ã«ãªã£ãŸã¨ã„ã†ã“ã¨ã§ã™ï¼ŽãŸã ã›ã£ã‹ãä½¿ãˆã‚‹ã«ã‚‚ã‹ã‹ ã‚ã‚‰ãš perldoc ãªã©ã‚’è¦‹ã¦ã‚‚ã‚¤ãƒžã‚¤ãƒä½¿ã„æ–¹ãŒã‚ã‹ã‚‰ãªã„ã®ã§ï¼Œç‹¬è‡ªã«ã¾ã¨ ã‚ã¦ã¿ãŸã®ãŒã“ã®ãƒšãƒ¼ã‚¸ã§ã™ï¼Ž èª¤ã£ãŸæ›¸ãæ–¹ã‚„å‹˜é•ã„ã‚’ã—ã¦ã„ ã‚‹ã“ã¨ã‚‚ã‚ã‚‹ã®ã§ï¼Œå½¢å¼çš„ã§ã™ãŒã“ã®ãƒšãƒ¼ã‚¸ã®å†…å®¹ã¯ç„¡ä¿è¨¼ã§ã™ï¼Ž å†…å®¹ æ–‡å—ã‚³ãƒ¼ãƒ‰å¤‰æ› perlIO jperlã‹ã‚‰ã®ç§»è¡Œ UTF-8ãƒ•ãƒ©ã‚° æ–‡å—ã‚³ãƒ¼ãƒ‰è‡ªå‹•åˆ¤åˆ¥ Unicode Standard Unicode æ£è¦åŒ– ãã®ä»– å‚è€ƒè³‡æ–™ æ–‡å—ã‚³ãƒ¼ãƒ‰å¤‰æ› ã¨ã‚Šã‚ãˆãš perl5.8 ã§æ–°ã—ãçµ„ã¿è¾¼ã¾ã‚ŒãŸæ©Ÿèƒ½ã‚’è¦‹ã‚‹ãŸã‚ã«ï¼Œeuc-jp ã‹ã‚‰ shift_jis ã¸ã®å¤‰æ›ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ã„ãã¤ã‹è¼‰ã›ã¾ã™ï¼Ž openã‚’åˆ©ç”¨ã—
m6u 2012/03/26
ã“ã®ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã€ä¸å¯§ã ãªã€‚ã˜ã£ãã‚Šèªã¿ãŸã„ã€‚

perl

encode
ãƒªãƒ³ã‚¯
Perlã«ã‚ˆã‚‹æ—¥æœ¬èªžã‚³ãƒ¼ãƒ‰å¤‰æ›ã®ãƒ¡ãƒ¢ï¼ˆç¬¬äºŒç‰ˆï¼‰
Perlã«ã‚ˆã‚‹æ—¥æœ¬èªžã‚³ãƒ¼ãƒ‰å¤‰æ›ã®ãƒ¡ãƒ¢ï¼ˆç¬¬äºŒç‰ˆï¼‰ hikoboshi.home / Perlã«ã‚ˆã‚‹æ—¥æœ¬èªžã‚³ãƒ¼ãƒ‰å¤‰æ›ã®ãƒ¡ãƒ¢ï¼ˆç¬¬äºŒç‰ˆï¼‰ å‰ã«æ›¸ã„ãŸã¨ãã¨æ™‚ä»£èƒŒæ™¯ã‚‚çŸ¥è˜ã‚‚å¤§å¹…ã«é•ã†ã®ã§ã€æ›¸ãç›´ã—ã¦ã¿ã‚‹ã“ã¨ã«ã—ã¾ã—ãŸã€‚Perl 5.8ä»¥é™ã‚’å‰æã¨ã—ã¦è€ƒãˆã¾ã™ã€‚ ã“ã®æ–‡ç« ã§æ›¸ãï¼ˆã¤ã‚‚ã‚Šã®ï¼‰ã“ã¨ use utf8ç’°å¢ƒã§ã®ã€æ–‡å—ã‚»ãƒƒãƒˆã®è€ƒãˆæ–¹ ç™ºç”Ÿã—ãŒã¡ãªæ–‡å—åŒ–ã‘ã¨ãã®åŽŸå› è§£æ±ºã®ãƒ’ãƒ³ãƒˆ jcode.plæ™‚ä»£ã®æ–‡å—ã‚»ãƒƒãƒˆã®æ‰±ã„ ã¾ãšã¯ã€jcode.plãªã©ãŒå…¨ç››ã ã£ãŸæ™‚ä»£ã‚’æ€ã„å‡ºã—ã¦ã¿ã¾ã™ã€‚jcode.plã®æ™‚ä»£ã¯ã€Unicodeã¯ã»ã¼ä½¿ã‚ã‚Œã¦ãŠã‚‰ãšã€JIS, Shift_JIS, EUC_JPã‚ãŸã‚Šã®å¤‰æ›ã‚’è¡Œã†äº‹ãŒä¸»ã§ã—ãŸã€‚å®Ÿéš›ã®ã‚³ãƒ¼ãƒ‰ã‚’è¦‹ã¦ã€æ‰±ã‚ã‚Œæ–¹ã‚’è€ƒå¯Ÿã—ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ #!/usr/bin/perl # jcode.plã‚’ç”¨ã„ãŸã‚³ãƒ¼ãƒ‰å¤‰æ› require 'jcode.pl'; open my $
m6u 2012/03/09
ã“ã‚Œã®ãŠé™°ã§ã€å¤‰ãªã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ã«æ‚©ã¾ã•ã‚Œãšã«æ¸ˆã¿ã¾ã™ã€‚

perl

encode
ãƒªãƒ³ã‚¯
Perlãƒ¡ãƒ¢/Perlã§ãƒ¡ãƒ¼ãƒ«ã‚’å—ã‘ã‚‹ - Walrus, Digit.
Net::POP3ã§ã®å—ä¿¡ã¨MIME::Parserã§ã®è§£æžã«ã¤ã„ã¦ã€‚ å·åˆæ°ã®ã€ŒPerlã§ãƒ¡ãƒ¼ãƒ«ã‚’å—ã‘ã‚‹ã€ã‚’èªã¿è§£ã„ã¦ã„ã£ãŸéŽç¨‹ã§ã¾ã¨ã‚ãŸä¸¡ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ä½¿ã„æ–¹æƒ…å ±ã¨ã€åŒè³‡æ–™ã§è§¦ã‚Œã‚‰ã‚Œã¦ã„ã‚‹ãƒ¡ãƒ¼ãƒ«ä¸ã®æ—¥æœ¬èªžã®å–ã‚Šæ‰±ã„ã«ã¤ã„ã¦ã®è£œè¶³æƒ…å ±ã§ã™ã€‚ ãªãŠã€ActivePerl 5.6ç³»ã§ã‚‚PPMã§5.411aï¼ˆ2005å¹´2æœˆç¾åœ¨ï¼‰ã®MIME-ToolsãŒã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã§ãã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã—ãŸã®ã§ã€åŒè³‡æ–™ã§ã¯MIME-Tools5.410ä»¥é™ã«ã‚ã‚ã›ã¦æ›¸ã‹ã‚ŒãŸã€Œ1.5 MIME-toolsã®æœ€æ–°ç‰ˆã¸ã®å¯¾å¿œï¼‹HTMLãƒ¡ãƒ¼ãƒ«ã«æ·»ä»˜ãƒ•ã‚¡ã‚¤ãƒ«ã€ã‚’å‹‰å¼·å¯¾è±¡ã«ã—ã¦ã„ã¾ã™ã€‚ Net::POP3ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’åˆ©ç”¨ã§ãã‚‹ãªã‚‰ã€ãƒ¡ãƒ¼ãƒ«ã®å—ä¿¡ã¯ç°¡å˜ã§ã™ã€‚ ä»¥ä¸‹ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã§ã€ãƒ¡ãƒ¼ãƒ«ã‚’å—ä¿¡ã—ã¦å˜ç´”ãªãƒ•ã‚¡ã‚¤ãƒ«åï¼ˆã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ãƒ—ãƒã‚»ã‚¹IDï¼‹é€£ç•ªï¼‰ã§ä¿å˜ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ use Net::POP3; # ãƒ¡ãƒ¼ãƒ«ã‚µãƒ¼ãƒã¨ã‚¢ã‚«ã‚¦ãƒ³ãƒˆã®
m6u 2012/03/05
æ¥å‹™ãƒ¡ãƒ¼ãƒ«ä»•åˆ†ã‘ã®è‡ªå‹•åŒ–ã‚’Perlã§ã‚„ã£ã¦ã¿ã‚ˆã†ã‹ãªã€‚

perl

mail
ãƒªãƒ³ã‚¯
1