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

tkra id:tkra

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

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

Twimp - Mobile Twitter Gate
Twitterã‚’æºå¸¯ã¨ã‹ã§ã‚¹ãƒžãƒ¼ãƒˆã«ä½¿ãŠã†ã‹ãªã¨ã‹æ€ã£ã¦ã§ã£ã¡ã‚ã’ãŸPerlã‚¹ã‚¯ãƒªãƒ—ãƒˆã€‚ [Download : twimp.txt] ã¾ãâ†‘ã®txtã‚’ä¿å˜ã—ã¦ã‚¢ã‚«ã‚¦ãƒ³ãƒˆæƒ…å ±ã¨ã‹ç·¨é›†ã—ã¦ã€ æ‹¡å¼µåã‚’cgiã«å¤‰æ›´ã—ã¦é©å½“ãªã‚µãƒ¼ãƒã«UPã—ã¦å®Ÿè¡Œæ¨©é™ä¸Žãˆã‚Œã°ãŠï½‹ã¨ã‹ã€ãã‚“ãªã€‚ ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«è¶³ã‚Šãªã‹ã£ãŸã‚‰ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã™ã‚‹ãªã‚Š.pmã§ç½®ããªã‚Šã§ãªã‚“ã¨ã‹ã€‚ å¤§ã—ãŸã“ã¨ã—ã¦ãªã„ã‚“ã§ã€é©å½“ã«ã„ã˜ã‚‹ãªã‚Šã€APIä½¿ç”¨ã®ã‚µãƒ³ãƒ—ãƒ«ã«ã§ã‚‚ä½¿ã£ã¦ä¸‹ã•ã„ãªãƒ¼ã€‚ ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£ãƒ›ãƒ¼ãƒ«ã¨ã‹ã‚ã£ãŸã‚‰å‹˜å¼ã('x`) ã‚¢ã‚«ã‚¦ãƒ³ãƒˆæƒ…å ±å¹³æ–‡ä¿å˜ã ã—â€¦ å®Ÿéš›ã«ä½¿ã†æ™‚ã¯BASICèªè¨¼ã¨ã‹æŽ›ã‘ã‚‹ã®ã‚’ã‚ªã‚¹ã‚¹ãƒ¡ã€‚ $msgnumã‚’0ã«ã—ãŸã‚Šã™ã‚‹ã¨ã€ä½™è¨ˆãªå‡¦ç†ã¯å…¥ã‚‹ã‘ã©ç°¡å˜ã«æŠ•ç¨¿å°‚ç”¨ã«ã§ãã¾ã™ã‚ˆã¨ã‹ã€‚ ï¼ƒã¡ãªã¿ã«Twimpã®åä»˜ã‘è¦ªã¯SOU1ãªã‚“ã§ã”äº†æ‰¿ã‚’ã¨ã„ã†ã‹ä½•ã¨ã„ã†ã‹('x`) ã‚ã¨ã€åˆ¶ä½œã«ã¯twmailã‚’å¤§ã„ã«å‚è€ƒã«ã•ã›ã¦é ‚ãã¾ã—ãŸã€‚å¤šè¬
tkra 2009/02/07
twitter

perl
ãƒªãƒ³ã‚¯
perl - use warnings; # -w ã§ãªãã¦ : 404 Blog Not Found
2008å¹´06æœˆ19æ—¥21:45 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - use warnings; # -w ã§ãªãã¦ æœ€è¿‘ã¯ã€ã•ã™ãŒã«use strict;ã•ã‚Œã¦ã„ãªã„å®Ÿè·µã‚³ãƒ¼ãƒ‰ã‚’ç›®ã«ã™ã‚‹ã“ã¨ã‚‚ã»ã¨ã‚“ã©ãªããªã£ã¦ããŸã®ã ã‘ã©ã€ã¾ã æ®‹ã£ã¦ã„ã‚‹ã®ãŒuse warnings;åˆ©ç”¨ã€‚ä»¥ä¸‹ã¨ä½µã›ã¦èªã‚“ã§ã„ãŸã ã‘ã‚‹ã¨å¹¸ã„ã ã€‚ 404 Blog Not Found:perl - use strict; # and be happy -w ã£ã¦ä½•? warnings ã£ã¦ä½•? ã¾ãšã€ä»¥ä¸‹ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’è¦‹ã¦ã¿ã‚ˆã†ã€‚ #!/usr/local/bin/perl use strict; sub distance { my ( $a, $b ) = @_; return sqrt( $a**2 + $b**2 ); } print distance(@ARGV), "\n"; % p
tkra 2008/06/22
perl

programming
ãƒªãƒ³ã‚¯
perl-mongers.org
This domain may be for sale!
tkra 2008/06/05
perl

programming
ãƒªãƒ³ã‚¯
MyTools
This domain may be for sale!
tkra 2008/02/18
CGI

Perl
ãƒªãƒ³ã‚¯
perl - CSVã¯Text::CSV(_XS)?ã§ : 404 Blog Not Found
2007å¹´02æœˆ16æ—¥14:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - CSVã¯Text::CSV(_XS)?ã§ ã“ã®ã“ã¨ã«ç•°è«–ã¯ãªã„ã®ã ã‘ã©ã€ CodeZineï¼šPerlã«ã‚ˆã‚‹CSVãƒ•ã‚¡ã‚¤ãƒ«ã®é«˜é€Ÿé›†è¨ˆï¼ˆCSV, å…¥é–€, Perlï¼‰ ç‰¹ã«ã‚ˆãåˆ©ç”¨ã•ã‚Œã‚‹ãƒ†ã‚ã‚¹ãƒˆãƒ•ã‚¡ã‚¤ãƒ«ã¨ã—ã¦ã€CSVå½¢å¼ãŒæŒ™ã’ã‚‰ã‚Œã¾ã™ã€‚CSVã‚’é›†è¨ˆã—ãŸã„å ´åˆã€Excelã«èªã¿è¾¼ã¾ã›ã¦é›†è¨ˆé–¢æ•°ã‚„ãƒžã‚¯ãƒã‚’é§†ä½¿ã—ã¦ã„ã‚‹ã¨ã„ã†äººã‚‚å¤šã„ã‹ã¨æ€ã„ã¾ã™ãŒã€Perlã‚’åˆ©ç”¨ã™ã‚‹ã“ã¨ã§ã€é«˜åº¦ãªé›†è¨ˆä½œæ¥ã‚’ç°¡å˜ã‹ã¤é«˜é€Ÿã«ã§ãã¾ã™ã€‚ ã“ã‚Œã¯ã¡ã‚‡ã£ã¨å•é¡Œã€‚ my @d = split(/,/, $_); å®Ÿã¯CSVã¨ã„ã†ã®ã¯ä»¥å¤–ã¨æ‰±ã„ã«ãã„ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆã§ã€ä¾‹ãˆã°"I, Robot","Robots and Empire"ã¨ã‚ã£ãŸã‚‰ã€I, Robotã¨Robots and Empireã¨å–ã‚Šå‡ºã™ãƒ•ã‚£ãƒ¼ãƒ«ãƒ‰ã¯äºŒã¤ã§ãªã‘ã‚Œã°ãªã‚‰ãª
tkra 2007/07/30
perl

tips
ãƒªãƒ³ã‚¯
Perlãƒ¡ãƒ¢
è¤‡æ•°ã®ãƒ—ãƒã‚»ã‚¹ã§ãƒãƒƒã‚¯çŠ¶æ…‹ãŒç•°å¸¸ã§ã‚ã‚‹ã¨åˆ¤æ–ã—ï¼Œãã®ã†ã¡ã® 1ã¤ãŒãƒãƒƒã‚¯ã‚’è§£é™¤ã—ãŸã“ã¨ã«ã‚ˆã‚Šï¼Œåˆ¥ã®ãƒ—ãƒã‚»ã‚¹ãŒãƒãƒƒã‚¯ã—ãŸã«ã‚‚ã‹ ã‹ã‚ã‚‰ãšï¼Œå…ˆã»ã©ãƒãƒƒã‚¯çŠ¶æ…‹ãŒç•°å¸¸ã§ã‚ã‚‹ã¨åˆ¤æ–ã—ãŸãƒ—ãƒã‚»ã‚¹ã«ã‚ˆã£ã¦ã“ã®æ£å¸¸ãªãƒãƒƒ ã‚¯ã‚’è§£é™¤ã•ã‚Œã¦ã—ã¾ã†å¯èƒ½æ€§ãŒã‚ã‚Šã¾ã™ï¼Ž ã“ã®æ–¹æ³•ã®å•é¡Œç‚¹ã¯ï¼Œç•°å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’è§£é™¤ã™ã‚‹æ“ä½œãŒæ£å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’ã‚‚ è§£é™¤ã§ãã¦ã—ã¾ã†ã“ã¨ã«ã‚ã‚Šã¾ã™ï¼Žé€†ã«è¨€ãˆã°ï¼Œç•°å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’è§£é™¤ã™ã‚‹æ“ä½œã« ã‚ˆã£ã¦æ£å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’è§£é™¤ã§ããªã‘ã‚Œã°å•é¡Œãªã„ã‚ã‘ã§ã™ï¼Žãã®ãŸã‚ã«ã¯ã©ã†ã™ ã‚Œã°ã‚ˆã„ã®ã‹ï¼Ÿ ç”ãˆã¯ãƒãƒƒã‚¯çŠ¶æ…‹ãŒå¸¸ã«å¤‰åŒ–ã—ã¦ã„ã‘ã° ã‚ˆã„ã¨ã„ã†ã“ã¨ã§ã™ï¼Žãã—ã¦ï¼Œã“ã‚Œã‚’å®Ÿç¾ã™ã‚‹ã®ã«éƒ½åˆãŒã‚ˆã„ã®ãŒ rename ã«ã‚ˆã‚‹æ–¹æ³•ã«ãªã‚Šã¾ã™ï¼Ž æœ€åˆã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã§èª¬æ˜Žã—ã¾ã™ã¨ï¼Œãƒãƒƒã‚¯ãƒ•ã‚¡ã‚¤ãƒ«ãŒ lockfile ã¨ã„ã† åå‰ã®ã¨ããŒãƒãƒƒã‚¯ãŒè§£é™¤ã•ã‚Œã¦ã„ã‚‹çŠ¶æ…‹ã§ï¼Œlockfile987654321 ã®ã‚ˆã† ã«å¾Œã‚ã«
tkra 2007/07/12
perl
ãƒªãƒ³ã‚¯
perlã«ã‚ˆã‚‹å¤§è¦æ¨¡ãƒ‡ãƒ¼ã‚¿ã®å–æ‰±ã„
æœ¬ãƒšãƒ¼ã‚¸ã§ã¯ï¼Œperlã§ã©ã®ã‚ˆã†ã«ã—ã¦å¤§è¦æ¨¡ãªãƒ‡ãƒ¼ã‚¿ã‚’ä¿å˜ã™ã‚‹ã‹ã¤ã„ã¦ èª¬æ˜Žã—ã¾ã™ï¼Žä¸»ã«ã‚¹ã‚¿ãƒ³ãƒ‰ã‚¢ãƒãƒ³ã§å‹•ãã‚‚ã® (ã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆ<->ã‚µãƒ¼ãƒåž‹ ã§ãªã„ï¼Œã„ã‚ã‚†ã‚‹çµ„è¾¼ã¿åž‹) ã«ã¤ã„ã¦ç´¹ä»‹ã—ãŸã„ã¨æ€ã„ã¾ã™ï¼Ž Menu Berkeley DB BerkeleyDB DB_File SDBM SDBM_File GDBM GDBM_File CDB CDB_File QDBM Depot Curia Villa TDB TDB_File SQLight DBD::SQLite SUFFIX ARRAY SUFARY SARY è¤‡é›‘ãªãƒ‡ãƒ¼ã‚¿æ§‹é€ Data::Dumper Storable MLDBM ã„ã‚ã„ã‚ãªæ¯”è¼ƒ ãƒ•ã‚¡ã‚¤ãƒ«ã‚µã‚¤ã‚º Benchmark Link ã‚µãƒ³ãƒ—ãƒ«ãƒ‡ãƒ¼ã‚¿ã«ã¤ã„ã¦ Berkeley DB Berkeley DBã¯ï¼Œçµ„ã¿è¾¼ã¿å‘ã‘ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã§ã™ï¼Žé€šå¸¸ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã¨ã„ã† ã¨Oracl
tkra 2007/05/15
perl

programming
ãƒªãƒ³ã‚¯
404 Blog Not Found:perl - Regexp::Assembleã®ã‚¹ã‚¹ãƒ¡
2007å¹´04æœˆ19æ—¥15:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - Regexp::Assem bleã®ã‚¹ã‚¹ãƒ¡ ã¨ã„ã†ã‚ã‘ã§ã€Regexp::Assem bleã®ã”ç´¹ä»‹ã€‚ PERL HACKS(æ—¥æœ¬èªžç‰ˆ) [è‹±èªžç‰ˆ] odz buffer - ãã‚Œ Regexp::Assem bleã‚“ï¼Ÿãƒ«ãƒ¼ãƒ—äº‘ã€…ã‚’æŠœãã«ã—ã¦ã€ã“ã†ã„ã†ã®ã¯ Regexp::Assem ble ã®å‡ºç•ªã˜ã‚ƒãªã„ã®ï¼Ÿ ã™ã§ã«Perl Hackerså¾¡ç”¨é”ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ãªã£ã¦ã„ã¾ã™ãŒã€ã¾ã çŸ¥ã‚‰ãªã„æ–¹ã‚‚ã„ã‚‰ã£ã—ã‚ƒã‚‹ã‹ã‚‚çŸ¥ã‚Œãªã„ã®ã§ã€‚ ä½•ã‚’ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‹ã€ã¨ã„ãˆã°ã€ä»¥ä¸‹ã‚’è¦‹ã‚Œã°ä¸€ç›®çžç„¶ã§ã—ã‚‡ã†ã€‚ Regexp::Assem ble - Assem ble multiple Regular Expressions into a single RE - search.cpan.org use Regexp::Asse
tkra 2007/04/26
æ£è¦è¡¨ç¾

perl
ãƒªãƒ³ã‚¯
æ—¥ä»˜ã‹ã‚‰æ›œæ—¥ã‚’å‰²ã‚Šå‡ºã™ - ã«ã—ã—ã® Perl/CGI Tips ãµããã¨ã‚Šãƒ¼
use Time::Local; $time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year); ($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($time); @wdays = ("æ—¥","æœˆ","ç«","æ°´","æœ¨","é‡‘","åœŸ"); print "$yearå¹´$monæœˆ$mdayæ—¥ã¯ã€" . $wdays[$wday] . "æ›œæ—¥ã§ã™ã€‚\n";
tkra 2007/03/18
perl
ãƒªãƒ³ã‚¯
ç§»è»¢ã—ã¾ã—ãŸ
ç§»è»¢ã—ã¾ã—ãŸã€‚ https://mas3lab.net/perl/waza/getwday.html
tkra 2007/02/24
perl
ãƒªãƒ³ã‚¯
Perl Lesson 10
[ â†‘ INDEX ] [ â† PREV ] [ NEXT â†’ ] Lesson 10ã€€å¤–éƒ¨ãƒ—ãƒã‚°ãƒ©ãƒ ï¼Œãƒ©ã‚¤ãƒ–ãƒ©ãƒªï¼Œãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®åˆ©ç”¨ â– 1. å¤–éƒ¨ãƒ—ãƒã‚°ãƒ©ãƒ ã®åˆ©ç”¨ ã“ã“ã§ã¯ Perl ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‹ã‚‰ UNIX ã®ã‚³ãƒžãƒ³ãƒ‰ã‚„ä»–ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’åˆ©ç”¨ã™ã‚‹æ–¹æ³•ã«ã¤ã„ã¦è¦‹ã‚‹ã€‚(UNIX ã®ã‚³ãƒžãƒ³ãƒ‰ã«ä¾å˜ã—ãŸã‚¹ã‚¯ãƒªãƒ—ãƒˆã¯ä»–ã®ãƒ—ãƒ©ãƒƒãƒˆãƒ•ã‚©ãƒ¼ãƒ ã§ã¯ä½¿ãˆãªããªã‚‹ã®ã§æ³¨æ„ãŒå¿…è¦ã€‚) ãƒ»ãƒãƒƒã‚¯ã‚¯ã‚©ãƒ¼ãƒˆ (` `) ã¨æ¼”ç®—å qx/ / æ–‡å—åˆ—ã‚’ ` ` (ã‚ã‚‹ã„ã¯æ¼”ç®—å qx/ / ) ã§æ‹¬ã‚‹ã¨ï¼Œæ–‡å—åˆ—ã¯ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ä¸Šã§æŒ‡å®šã•ã‚ŒãŸã‚³ãƒžãƒ³ãƒ‰ã¨åŒæ§˜ã«å®Ÿè¡Œã•ã‚Œï¼Œæ¨™æº–å‡ºåŠ›ã¸ã®å‡ºåŠ›ã‚’è¿”ã‚Šå€¤ã¨ã—ã¦è¿”ã™ã€‚` ` ã§å›²ã¾ã‚ŒãŸæ–‡å—åˆ—ä¸ã®å¤‰æ•°ã¯å±•é–‹ã•ã‚Œã¦å®Ÿè¡Œã•ã‚Œã‚‹ã€‚ æ¬¡ã®ä¾‹ã§ã‚ã‚Œã°ï¼Œã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‹ã‚‰ wc dll.txt ã‚’å®Ÿè¡Œã—ãŸçµæžœï¼Œæ¨™æº–å‡ºåŠ›ã¸å‡ºåŠ›ã•ã‚Œã‚‹æ–‡å—åˆ—ãŒï¼Œå¤‰æ•° $wc ã«ä»£å…¥ã•ã‚Œã‚‹ã€‚ $wc = `wc dll
tkra 2007/01/23
ãƒ‘ãƒƒã‚±ãƒ¼ã‚¸é–¢ä¿‚

perl
ãƒªãƒ³ã‚¯
CGI-Perl åŸºç¤Žç·¨ (ãã®äº”) æ–‡å—åˆ—é–¢æ•° substrã€indexã€splitã€localtimeã€crypt - SAK Streets
CGI-Perl åŸºç¤Žç·¨ (ãã®äº”) æ–‡å—åˆ—é–¢æ•° substrã€indexã€splitã€localtimeã€crypt â– æ–‡å—åˆ—æ¼”ç®—å . æ–‡å—åˆ—ã®çµåˆ ã€ä¾‹ã€‘ $a = 'abc'; $b = 'def'; $c = $a . $b; ** $c ã«ã¯ã€'abcdef' ãŒã‚»ãƒƒãƒˆã•ã‚Œã¾ã™ã€‚ â– æ–‡å—åˆ—é–¢æ•° lc å°æ–‡å—ã«å¤‰æ› uc å¤§æ–‡å—ã«å¤‰æ› substr n ç•ªç›®ã‹ã‚‰ n ãƒã‚¤ãƒˆã®æ–‡å—åˆ—ã‚’åˆ‡ã‚Šå‡ºã— length ä½•ãƒã‚¤ãƒˆã‚ã‚‹ã‹æ•°ãˆã‚‹ index æŒ‡å®šæ–‡å—åˆ—ãŒä½•ç•ªç›®ã‹ã‚‰å˜åœ¨ã™ã‚‹ã‹èª¿ã¹ã‚‹ rindex æŒ‡å®šæ–‡å—åˆ—ãŒæœ€å¾Œã‹ã‚‰ä½•ç•ªç›®ã«å˜åœ¨ã™ã‚‹ã‹èª¿ã¹ã‚‹ sprintf æ›¸å¼æŒ‡å®šå¤‰æ›ã‚’ã™ã‚‹ chomp æœ€å¾Œã® CR/LF é™¤åŽ» s æ–‡å—å¤‰æ› tr æ–‡å—å¤‰æ› split ã‚»ãƒ‘ãƒ¬ãƒ¼ã‚¿ã«ã‚ˆã‚‹æ–‡å—åˆ—åˆ†å‰² join é…åˆ—æ–‡å—åˆ—çµåˆ reverse é…åˆ—åè»¢ localtime ãƒãƒ¼ã‚«ãƒ«æ™‚é–“ crypt æ–‡å—
tkra 2007/01/23
perl

programming
ãƒªãƒ³ã‚¯
è² è·ã«ã¤ã„ã¦è€ƒãˆã‚‹
å…±ç”¨ã‚µãƒ¼ãƒ æ™®é€šã€1ã¤ã®ã‚µãƒ¼ãƒã«ã¯è¤‡æ•°ã®ãƒ¦ãƒ¼ã‚¶ãŒç™»éŒ²ã•ã‚Œã¦ã„ã¾ã™ã€‚ ãã®ãŸã‚ã€1ã¤ã®ã‚µãƒ¼ãƒã§ã¯åŒæ™‚ã«è¤‡æ•°ã® CGI ãƒ—ãƒã‚°ãƒ©ãƒ ãŒå®Ÿè¡Œã•ã‚Œã‚‹å¯èƒ½æ€§ãŒã‚ã‚Šã¾ã™ã€‚ å…±ç”¨ã‚µãƒ¼ãƒã§ã€é€Ÿåº¦ãŒé…ããƒ¡ãƒ¢ãƒªã‚’å–°ã† CGI ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’å‹•ã‹ã™ã¨ ã™ãã«ãƒžã‚·ãƒ³ãƒ‘ãƒ¯ãƒ¼ãŒé£½å’Œã—ã¦ã—ã¾ã„ã¾ã™ã€‚ ãªã‚‹ã¹ãè² è·ã®ã‹ã‹ã‚‰ãšå®Ÿè¡Œé€Ÿåº¦ãŒçŸã„ CGI ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’ä½œã‚‰ãªã‘ã‚Œã°ã„ã‘ã¾ã›ã‚“ã€‚ ã¨ã„ã†ã“ã¨ã‚’è¨€ã„å§‹ã‚ã‚‹ã¨ã€ãã‚‚ãã‚‚ perl ã§ CGI ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ãã“ã¨è‡ªä½“ ã‚ã¾ã‚Š ãŠå‹§ã‚ã§ããªã„ã®ã§ã™ãŒã€perl ã‚’ä½¿ã„ã¤ã¤ ãªã‚‹ã¹ãè² è·ã®ã‹ã‹ã‚‰ãªã„ ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ãæ–¹æ³•ã‚’èª¬æ˜Žã—ã¾ã™ã€‚ å®Ÿè¡Œé »åº¦ã‚’è€ƒãˆã‚‹ ã“ã“ã§ã¯æŽ²ç¤ºæ¿ã‚’ä¾‹ã«ã‚ã’ã¾ã—ã‚‡ã†ã€‚ æŽ²ç¤ºæ¿ã¨ã„ã†ã®ã¯ã€ç™ºè¨€å›žæ•°ã‚ˆã‚Šã‚‚é–²è¦§å›žæ•°ã®æ–¹ãŒåœ§å€’çš„ã«å¤šã„ã‚‚ã®ã§ã™ã€‚ ä¾‹ãˆã°ã‚¦ãƒã®æŽ²ç¤ºæ¿ã‚’ä¾‹ã«ã‚ã’ã‚‹ã¨ã€ 1æ—¥ã‚ãŸã‚Šæ›¸ãè¾¼ã¿ã¯ 0ã€œ3ä»¶ç¨‹åº¦ã§ã™ãŒã€é–²è¦§ã¯1æ—¥ã«100ä»¶ä»¥ä¸Šã‚ã‚Šã¾ã™ã€‚ ã¤ã¾ã‚Šã€ç™º
tkra 2007/01/23
perl

programming
ãƒªãƒ³ã‚¯
HTML::Scrubber
NAME HTML::Scrubber - Perl extension for scrubbing/sanitizing HTML VERSION version 0.19 SYNOPSIS use HTML::Scrubber; my $scrubber = HTML::Scrubber->new( allow => [ qw[ p b i u hr br ] ] ); print $scrubber->scrub('<p><b>bold</b> <em>missing</em></p>'); # output is: <p><b>bold</b> </p> # more complex input my $html = q[ <style type="text/css"> BAD { background: #666; color: #666;} </style> <script l
tkra 2007/01/14
perl
ãƒªãƒ³ã‚¯
Perlã®5.8ã®ãƒ‡ã‚³ãƒ¼ãƒ‰ã¨ from_toé–¢æ•°ï¼Ÿ
>use encodingã¯ãƒ—ãƒ©ã‚°ãƒžã§ã™ãŒã€å‰¯ä½œç”¨ãŒã‚ã‚‹ã®ã§ä½¿ã‚ãªã„æ–¹ãŒè‰¯ã„ã¨ã„ã†å†…å®¹ã®è¨˜äº‹ã‚’èªã‚“ã ã“ã¨ãŒã‚ã‚Šã¾ã™ãŒã€å¤§å¤šæ•°ã®æ–¹ã¯ç„¡å•é¡Œã§ä½¿ã£ã¦ã„ã‚‹ã¨ã„ã†ã“ã¨ã§ã—ã‚‡ã†ã‹ï¼Ÿ ãã®è¨˜äº‹ã‚’èªã‚“ã ã“ã¨ã¯ãªã„ã—ã€ä»–ã®å¤§å¤šæ•°ã®äººã®ã“ã¨ã¯çŸ¥ã‚‰ãªã„ã®ã§ã€ã‚ˆãã‚ã‹ã‚Šã¾ã›ã‚“ãŒã€ çµŒé¨“çš„ã«ã¯ã€ use encoding 'shiftjis'; ã¨ã‹ã§ã¯ï¼ˆå†…éƒ¨ã‚³ãƒ¼ãƒ‰ã¸ã®ï¼‰ãƒžãƒƒãƒ—ã«å•é¡ŒãŒæœ‰ã‚‹æ™‚ãŒã‚ã‚Šã¾ã™ã€‚ ã—ã‹ã— Perlã®å†…éƒ¨ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆãŒUTF-8ãªã®ã§ã€UTF-8ã§ã¯å•é¡Œã¯èµ·ã“ã‚‰ãªã„ã¨ã„ã†èªè˜ï¼ˆç§çš„ã«ã¯ï¼‰ã§ã™ã€‚ ã¾ãŸã€ã‚¯ãƒƒã‚¯ãƒ–ãƒƒã‚¯ã«æ›¸ã‹ã‚Œã¦ã„ã‚‹èª¬æ˜Žã«ã‚ˆã‚‹ã¨ã€ â€å…¨ã¦ã®ã‚ªã‚¯ãƒ†ãƒƒãƒˆæ–‡å—åˆ—ã‚’æœ‰åŠ¹ãªï¼µï¼´ï¼¦ï¼ï¼˜æ–‡å—åˆ—ã«ã¯ã§ããªã„ãŒã€ï¼µï¼´ï¼¦ï¼ï¼˜æ–‡å—åˆ—ã¯å…¨ã¦æœ‰åŠ¹ãªã‚ªã‚¯ãƒ†ãƒƒãƒˆæ–‡å—åˆ—ã«å¤‰æ›ã§ãã‚‹â€ï¼ˆï¼¶ï½ï½Œï¼Žï¼‘ï¼Œï¼‘ï¼ï¼‘ï¼ï¼‰ ã¨ã‚ã‚‹ã®ã§ã€ï¼µï¼´ï¼¦ï¼ï¼˜ã‚’ä½¿ã£ã¦ã„ã‚‹å ´åˆã¯å•é¡Œãªã„ã¨æ€ã„ã¾ã™ã€‚ ãŸã ã€ä»¥å‰unicodeã‹ã‚‰æ–‡å—ã‚³ãƒ¼ãƒ‰å¤‰æ›ã§
tkra 2006/12/27
UTF-8

perl
ãƒªãƒ³ã‚¯
20060401-BundledLibraries - Perlish Magazine
æ¨™æº–æ·»ä»˜ãƒ©ã‚¤ãƒ–ãƒ©ãƒªç´¹ä»‹ ã€œEncodeã€œ æ›¸ã„ãŸäºº: Ktat æ¨™æº–æ·»ä»˜ãƒ©ã‚¤ãƒ–ãƒ©ãƒªç´¹ä»‹ ã€œEncodeã€œ ã¯ã˜ã‚ã« ã“ã®é€£è¼‰ã«ã¤ã„ã¦ Perlã®æ–‡å—ã‚³ãƒ¼ãƒ‰å¤‰æ›ã®çµŒç·¯ jcode.pl Jcode Encode Encode ã®å‰ã« UTF8 ãƒ•ãƒ©ã‚°ä»˜ãæ–‡å—åˆ— Perl ã®å†…éƒ¨è¡¨ç¾ (internal representation) ã‚½ãƒ¼ã‚¹ã«æ›¸ã‹ã‚ŒãŸæ–‡å—åˆ—ã¯ï¼Ÿ Encode Encode::encode Encode::decode Encode::from_to ã‚¨ãƒ©ãƒ¼ãƒãƒ³ãƒ‰ãƒªãƒ³ã‚° Encode::FB_DEFAULT( == 0) Encode::FB_CROAK( == 1) Encode::FB_QUIET Encode::FB_WARN ã‚³ãƒ¼ãƒ‰ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ Encode::Guess æ–‡å—ã‚³ãƒ¼ãƒ‰ã®æŽ¨æ¸¬ Encodeã®é–¢æ•°ã®å¼•æ•°ã« "Guess" ã‚’ä¸Žãˆã‚‹ guess_encodin
tkra 2006/12/26
perl

UTF-8
ãƒªãƒ³ã‚¯
Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«/WWW::Mechanize - Walrus, Digit.
ä»¥ä¸‹ã¯ã€ä»–ã‚µã‚¤ãƒˆã«æŽ²è¼‰ã•ã‚Œã¦ã„ã‚‹æœ‰ç”¨ãªWWW::Mechanizeä½¿ç”¨ä¾‹ã§ã™ã€‚ ç§è‡ªèº«ã€ã€ŒAmazon ã‚¢ãƒ•ã‚£ãƒªã‚¨ã‚¤ãƒˆãƒ¬ãƒãƒ¼ãƒˆã€ã‚’è¦‹ã¦ã€æœ¬å½“ã«ã“ã®WWW::Mechanizeã‚’ä½¿ãŠã†ã€ã¨æ€ã„ã¾ã—ãŸã€‚ Amazon ã‚¢ãƒ•ã‚£ãƒªã‚¨ã‚¤ãƒˆãƒ¬ãƒãƒ¼ãƒˆ(blog.bulknews.net)ã€‚ WWW::Mechanize ã‚’ä½¿ã£ã¦ bk1 ã®æ³¨æ–‡å±¥æ´ã‚’å–å¾—ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆ(www.asmate.net)ã€‚ mixiã®è¶³ã‚ã¨ã‚’å–å¾—ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆ(digit.que.ne.jp)ã€‚æ—¥è¨˜ã‚’æŠ•ç¨¿ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ã‚¢ãƒ¬ãƒ³ã‚¸ã§ã™ã€‚ æŒ‡å®šã—ãŸã‚«ãƒ†ã‚´ãƒªã®ã€ä»Šæ—¥ã®ä¸€è¦§ã‚’å–å¾—ã€‚ ã€Œæ¬¡ã®ãƒšãƒ¼ã‚¸ã€ã‚‚è¿½ã„ã‹ã‘ã¦å‡¦ç†ã—ã¾ã™ã€‚ use strict; use WWW::Mechanize; my $url = 'http://headlines.yahoo.co.jp/hl'; my $cate_label = 'ã‚³ãƒ³ãƒ”ãƒ¥ãƒ¼ã‚¿ä¸€è¦§'; m
tkra 2006/12/26
perl

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
ãƒªãƒ³ã‚¯
Perlã®å°æŠ€
Perlã§ã¯ä¸–ç•Œä¸ã®é”äººãŒé–‹ç™ºã—ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ã‚ˆã£ã¦ã•ã¾ã–ã¾ãªæ©Ÿèƒ½ãŒç°¡å˜ã«ä½¿ã†ã“ã¨ãŒã§ãã¾ã™ã€‚ Oracleã‚„Accessã‹ã‚‰æƒ…å ±ã‚’é›†è¨ˆã—ãŸçµæžœã‚’LHAå½¢å¼ã§åœ§ç¸®ã—ã¦ãƒ¡ãƒ¼ãƒ«ã«æ·»ä»˜ã—ã¦é€ã£ãŸã‚Šã€ãƒ¡ãƒ¼ãƒ«ã‚’å—ä¿¡ã—ã¦ãã®å†…å®¹ã‚’ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã«ç™»éŒ²ã™ã‚‹ãªã‚“ã¦ãªã“ã¨ã¾ã§ç°¡å˜ã«ï¼ˆï¼Ÿï¼‰ã§ãã¾ã™ã€‚æœ€è¿‘è©±é¡Œã®XMLã¾ã§æ‰±ãˆã¾ã™ã€‚ ãŸã ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆãŒè‹±èªžãªã‚“ã§ã™ã‚ˆãï¼ˆã¾ãå½“ãŸã‚Šå‰ï¼‰ã€‚ãã“ã§ç§ãŒã¤ãŸãªã„è‹±èªžèƒ½åŠ›ã‚’ä½¿ã£ã¦ãªã‚“ã¨ã‹ã‹ã‚“ã¨ã‹ã€æ—¥æœ¬èªžã«ã—ã¦ã¿ãŸã‚·ãƒªãƒ¼ã‚ºãŒã€Œæ—¥æœ¬èªžãƒãƒ§ã‚¦è¨³ã€ãªã®ã§ã™ã€‚åŽŸè‘—è€…ã®æ–¹ã€…ã«ã¯ãƒ¡ãƒ¼ãƒ«ã§äº†è§£ã‚’ã„ãŸã ã„ã¦ãŠã‚Šã¾ã™ã€‚ã¿ãªã•ã‚“å¿«ãå¿œã˜ã¦ãã‚Œã¾ã—ãŸã€‚ï¼ˆæœ¬å½“ã«ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ï¼‰ ã‚ã„ã«ãã¨ä½•ã‹ã‚’ä¿è¨¼ã™ã‚‹ã¨ã„ã†ã“ã¨ã‚‚ãªã„ã®ã§ã™ãŒã€ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ä½œè€…ã®æ–¹ã€…ã®ãŸã‚ã«ã‚‚ã€ã‚ã‹ã‚Šã‚„ã™ãæ£ç¢ºãªå†…å®¹ã«ã—ãŸã„ã¨æ€ã£ã¦ã„ã¾ã™ã€‚ é–“é•ã£ã¦ã„ã‚‹ç‚¹ã‚„ã”æ„è¦‹ãªã©ã‚ã‚Šã¾ã—ãŸã‚‰ãƒ¡ãƒ¼ãƒ«ã‚’ãã ã•ã„ã€‚m(__)m ã¾ãŸå°æŠ€ã§ã¯Act
tkra 2006/12/20
perl

ã¾ã¨ã‚
ãƒªãƒ³ã‚¯
â˜…â˜…â˜…CGI-Perl åŸºç¤Žç·¨ (ãã®å…«) æ£è¦è¡¨ç¾ã€ãƒžãƒƒãƒãƒ‘ã‚¿ãƒ¼ãƒ³ã€ç½®æ›æ¼”ç®—åã€å¤‰æ›æ¼”ç®—å - SAK Streets
CGI-Perl åŸºç¤Žç·¨ (ãã®å…«) æ£è¦è¡¨ç¾ã€ãƒžãƒƒãƒãƒ‘ã‚¿ãƒ¼ãƒ³ã€ç½®æ›æ¼”ç®—åã€å¤‰æ›æ¼”ç®—å â– æ£è¦è¡¨ç¾ ãƒ»éŽåŽ»æ‰±ã£ã¦ããŸè¨€èªžã«æ£è¦è¡¨ç¾ãªã©ã¨è¨€ã†ã‚‚ã®ã¯å˜åœ¨ã—ãªã‹ã£ãŸã€‚ ä¸Šæ‰‹ãä½¿ã†ã¨éžå¸¸ã«ä¾¿åˆ©ã§ã‚ã‚‹ã€‚(ãƒ‘ã‚¿ãƒ¼ãƒ³ãƒžãƒƒãƒã€ãƒ‘ã‚¿ãƒ¼ãƒ³ãƒžãƒƒãƒãƒ³ã‚°) ä»¥ä¸‹ã€ç°¡å˜ã«ã¾ã¨ã‚ã¦ãŠãã€‚ â– ãƒžãƒƒãƒãƒ‘ã‚¿ãƒ¼ãƒ³æ¼”ç®—å i å¤§æ–‡å—ã€å°æ–‡å—ã®åŒºåˆ¥ãªã— s å˜ä¸€è¡Œã¨ã—ã¦å‡¦ç† (^ã€$ ã¯ã€\n ã‚’ç„¡è¦–) m è¤‡æ•°è¡Œã¨ã—ã¦å‡¦ç† (^ã€$ ã¯ã€è¡Œå…ˆé ã€è¡Œæœ«å°¾) x ç©ºç™½ã‚’ç„¡è¦–ã€# ã‚’ã‚³ãƒ¡ãƒ³ãƒˆå‡¦ç† â– ãƒ¡ã‚¿æ–‡å— . æ”¹è¡Œã‚’é™¤ãä»»æ„ã® 1 æ–‡å— * 0 å›žä»¥ä¸Šã®ãƒ‘ã‚¿ãƒ¼ãƒ³ç¹°ã‚Šè¿”ã— + 1 å›žä»¥ä¸Šã®ãƒ‘ã‚¿ãƒ¼ãƒ³ç¹°ã‚Šè¿”ã— ? 0 ã¾ãŸã¯ 1 å›žã®ãƒ‘ã‚¿ãƒ¼ãƒ³ ^ å…ˆé ã‹ã‚‰ $ æœ«å°¾ã‹ã‚‰ \ ãƒ¡ã‚¿æ–‡å—ã‚¯ã‚©ãƒ¼ãƒˆ | ãƒ‘ã‚¿ãƒ¼ãƒ³è«–ç†å’Œ () ãƒ‘ã‚¿ãƒ¼ãƒ³ã‚°ãƒ«ãƒ¼ãƒ— [] æ–‡å—ã‚¯ãƒ©ã‚¹ {} é‡æŒ‡å®šå \n æ”¹è¡Œ æ–‡å—ã‚¯ãƒ©ã‚¹ã§ã‚‚æŒ‡å®šå¯ \r ã‚ãƒ£ãƒªãƒƒã‚¸ãƒªã‚¿ãƒ¼ãƒ³ æ–‡å—ã‚¯ãƒ©
tkra 2006/12/18
perl

æ£è¦è¡¨ç¾
ãƒªãƒ³ã‚¯
PerlåŸºç¤Žå…¥é–€ (Kent Web)
ã“ã®ã‚³ãƒ¼ãƒŠã¯ã€åˆå¿ƒè€…å‘ã‘ã®Perlå…¥é–€ãƒšãƒ¼ã‚¸ã§ã‚ã‚Šã€ã¾ãŸã€è‡ªåˆ†è‡ªèº«ã®è¦šãˆæ›¸ãã¨ã„ã†ä½ç½®ã¥ã‘ã§ä½œæˆã—ã¦ã„ãã¾ã™ã€‚ ä¸€äººã§ã‚‚å¤šãã®æ–¹ã€…ãŒã€Perlã®ç´ æ™´ã‚‰ã—ã•ã‚’æ„Ÿã˜ã¦ã„ãŸã ã‘ã‚Œã°å¹¸ã„ã§ã™ã€‚
tkra 2006/12/18
perl

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°

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