awstats is your friend - VoxEvery time you feel your code is ugly, go look at the source code of awstats. Then you feel yours is not that bad.
hide-k.net#blog: perlã§ãƒãƒ©ãƒã‚¤ãƒ‰é¢¨ã«ç”»åƒåŠ å·¥
最近ã€ã¾ãŸImageMagickã‚’ã•ã‚る機会ãŒã‚ã£ãŸã®ã§ã€ã¡ã¾ãŸã§äººæ°—ã®Polaroizeã¨åŒã˜ã“ã¨ãŒPerkMagickã§ã§ãã‚“ã‹ã¨ã“ã®è¾ºã‚’å‚考ã«è©¦ã—ã¦ã¿ã¾ã—ãŸã€‚ 手元ã«ã¾ã¨ã‚‚ãªImageMagickãŒä½¿ãˆã‚‹å…¬é–‹ã‚µãƒ¼ãƒãƒ¼ãŒãªã‹ã£ãŸã®ã§ã‚¹ã‚¯ãƒªãƒ—トã ã‘。 Fedora Core 6ã® ImageMagick-6.2.8.0-3.fc6.1 ImageMagick-perl-6.2.8.0-3.fc6.1 ã§è©¦ã—ã¾ã—ãŸã€‚ poralize.pl use strict; use Image::Magick; my $input = 'image.jpg'; my $output = 'polaroid.jpg'; my $img = Image::Magick->new; $img->Read($input); $img->Border( width => 10, height => 1
ã„ã‚„ãªãƒ–ãƒã‚° - スクリプト言語用ã®ãƒ‡ãƒãƒƒã‚¬ã®ä½¿ã„æ–¹ - Ruby, Python, Perl
スクリプト言語用ã®ãƒ‡ãƒãƒƒã‚¬ã®ä½¿ã„æ–¹ - Ruby, Python, Perl スクリプト言語用㮠CUIã®ãƒ‡ãƒãƒƒã‚¬ã®ä½¿ã„方を簡å˜ã«ã¾ã¨ã‚ã¾ã—ãŸã€‚対象言語㯠Ruby, Python, Perl ã§ã™ã€‚ ç§ã¯ C, C++ ã§ãƒ—ãƒã‚°ãƒ©ãƒ を書ã„ã¦ã„ã‚‹ã¨ãã¯ãƒ‡ãƒãƒƒã‚¬ (主㫠GNU/Linux 上㮠gdb) ã‚’é »ç¹ã«åˆ©ç”¨ã—ã¾ã™ã€‚ã—ã‹ã—ã€ã‚¹ã‚¯ãƒªãƒ—ト言語ã§ã¯ãã‚Œã»ã©ã§ã‚‚ã‚ã‚Šã¾ã›ã‚“。ã“ã‚Œã¯ãŠãらã次ã®ã‚ˆã†ãªç†ç”±ã«ã‚ˆã‚Šã¾ã™ã€‚ ビルドãŒä¸è¦ãªã®ã§ printf デãƒãƒƒã‚°ãŒå®¹æ˜“ (ã‚る程度大ãã„ C++ ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã§ã¯ãƒ“ルド時間ãŒé•·ã„ã®ã§ printf ã®æŒ¿å…¥ã¯ã—ã‚“ã©ã„) 異常終了時ã«ã‚¹ã‚¿ãƒƒã‚¯ãƒˆãƒ¬ãƒ¼ã‚¹ãŒè¡¨ç¤ºã•ã‚Œã‚‹ (Ruby, Python ãªã‚‰è‡ªå‹•ã€Perl ã®å ´åˆã¯ use Carp; $SIG{__DIE__} = \&Carp::confess; ãªã©) オブジェクトã®ã‚¤ãƒ³ã‚¹ãƒšã‚¯ãƒˆãŒç°¡å˜ (Ru
404 Blog Not Found:perl - åŠè§’スペースを自動ã§å…¥ã‚Œã‚‹
2007å¹´01月15æ—¥05:00 カテゴリLightweight Languages perl - åŠè§’スペースを自動ã§å…¥ã‚Œã‚‹ 是éžã¯ã•ã¦ãŠãã€å…¥ã‚Œã‚‹ã®ã§ã‚ã‚Œã°è‡ªå‹•ã§å…¥ã‚ŒãŸã„。ã¨ã„ã†ã‚ã‘ã§ã“ã¡ã‚‰ã€‚ portal shit! : åŠè§’スペース入れã¦ã¾ã™ã‹ï¼Ÿ åŠè§’スペース入れるã¹ãã€å…¥ã‚Œãªã„ã¹ã？spacer.pl #!/usr/local/bin/perl use strict; use warnings; use Encode; my $east = qr/(?!\p{M})(?:\p{Han}|\p{Katakana}|\p{Hiragana})/; my $west = qr/(?!\p{M})(?:\p{Latin}|\p{Greek}|\p{Cyrillic})/; binmode STDOUT, ':utf8'; while(<>){ $_ = decode 'utf8', $_
mizzy.org - Assurer - サーãƒãƒ†ã‚¹ãƒ†ã‚£ãƒ³ã‚°ãƒ•ãƒ¬ãƒ¼ãƒ ワーク #0
Assurer - サーãƒãƒ†ã‚¹ãƒ†ã‚£ãƒ³ã‚°ãƒ•ãƒ¬ãƒ¼ãƒ ワーク #0 Posted by Gosuke Miyashita Fri, 05 Jan 2007 15:44:44 GMT 構築ã—ãŸã‚µãƒ¼ãƒãŒã¡ã‚ƒã‚“ã¨å‹•ä½œã™ã‚‹ã‹ã©ã†ã‹ã®ãƒ†ã‚¹ãƒˆã‚’自動化ã—ãŸã„ãªãƒ¼ã€ã¨ã‚¹ã‚¯ãƒªãƒ—トを書ã“ã†ã¨æ€ã£ãŸã®ã§ã™ãŒã€Perler ã¨ã—ã¦ã¯ã“ã“ã¯ã‚„ã¯ã‚Šã€Plagger ã¨ã‹ Archer ã¿ãŸãã€ãƒ—ラガブル㧠YAML ã§è¨å®šæ›¸ã‘ã° OK ã¿ãŸã„ã®ã‚’作るã¹ãã ã‚ã†ã€ã£ã¦ã“ã¨ã§ã€Assurer (SVN) ã¨ã„ã†ã‚µãƒ¼ãƒãƒ†ã‚¹ãƒ†ã‚£ãƒ³ã‚°ãƒ•ãƒ¬ãƒ¼ãƒ ワークをã§ã£ã¡ã‚ã’ã¦ã¿ã¾ã—ãŸã€‚ テストã®ã“ã¨ã‚’ Quality Assurance ã¨ã‹è¨€ã£ãŸã‚Šã™ã‚‹ã—ã€Plagger ã‚„ Archer ㌠er ã§çµ‚ã‚ã£ã¦ã‚‹ã®ã§ã€ãã‚Œã«å€£ã£ã¦å‘½åã—ã¦ã¾ã™ã€‚ 今ã®ã¨ã“ã‚ Plagger ã‚„ Archer ã‹ã‚‰ã‚³ãƒ”ペã—ã¦ã€ã”ãç°¡å˜ãª HTTP テストプラグインをã¤
{perl,ruby} -nle 'print if /start/../end/' : 404 Blog Not Found
2006å¹´12月22æ—¥19:00 カテゴリLightweight Languages {perl,ruby} -nle 'print if /start/../end/' アルファギークã§ã‚‚知らãªã‹ã£ãŸã¨ã„ã†ã®ã¯ã€ä¸æ€è°ã§ã‚‚ã‚り当然ã®ã‚ˆã†ã§ã‚‚ã‚り。 naoyaグループ - naoyaã®æ—¥è¨˜ - if /regexp/../regexp/ Perl ã§æ£è¦è¡¨ç¾ã‚’ .. ã™ã‚‹ã¨ã€ãã®é–“ã«å«ã¾ã‚Œã‚‹æ–‡å—列ã¨ã„ã†æ„味ã§ãƒžãƒƒãƒã•ã›ã‚‰ã‚Œã‚‹ã€‚ % w3m -dump_source http://www.yahoo.com/ | perl -nle 'print if /^<style/../<\/style>/' ã¨ã™ã‚‹ã¨ã“ã‚Œã€å®Ÿã«ç”±ç·’æ£ã—ã„使ã„æ–¹ã§ã€ãŸã—ã‹ã¾ã perlãŒhashã™ã‚‰ã‚µãƒãƒ¼ãƒˆã—ã¦ã„ãªã„é ƒã‹ã‚‰ã‚ã£ãŸã¨è¨˜æ†¶ã—ã¦ã„ã¾ã™ã€‚ãªã«ã—ã‚sed/awkãŒèµ·æºã§ã™ã‹ã‚‰ã€‚ NAME operator - se
ã¾ã‚‹ã”ã¨Perl!
Web2.0をプãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã—よã†ã€‚
DBIx::Class::Schema::Loader 㧠34 秒ãらã„㧠Schema ã‚¯ãƒ©ã‚¹ç”Ÿæˆ - IT戦記
æ—¢å˜ DB ã‹ã‚‰ä»¥ä¸‹ã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ä¸€ç™ºã§ DBIx::Class ã® Schema ãŒç”Ÿæˆã§ãã‚‹ $ perl -MDBIx::Class::Schema::Loader=make_schema_at,dump_to_dir:./lib -e 'make_schema_at "Hoge::Schema", {relationships => 1, debug => 1}, ["dbi:mysql:hoge","user","password"]' ã‚„ã‚Šã‹ãŸã€‚ ã¾ãšã€ã‚¯ãƒ©ã‚¹ã‚’作りãŸã„ディレクトリ付近ã«ç§»å‹• ã•ã£ãã®ã‚³ãƒžãƒ³ãƒ‰ã® dump_to_dir: ã®ç®‡æ‰€ã«ã‚¯ãƒ©ã‚¹ãƒ„リーã®èµ·ç‚¹ã¨ãªã‚‹ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã‚’指定 make_schema_at ã®ç¬¬ä¸€å¼•æ•°ã«ç”Ÿæˆã™ã‚‹ Schema ã®ãƒ‘ッケージåを指定 外部ã‚ー制約ã¨ã‹ã‚’考慮ã—㦠has_many ã¨ã‹ belongs_to ã¨ã‹ã‚’自動ã§è¨å®šã—ã¦æ¬²ã—ã„å ´åˆ
POE ãŠã¼ãˆãŒã - daily dayflower
TIMTOWTDI ãªã“ã¨ãŒã„ã£ã±ã„㧠POE ã®ã“ã¨ãŒã‚ˆãã‚ã‹ã‚‰ãªã‹ã£ãŸã®ã§ã™ãŒï¼ŒCookbook ã¨ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚’èªã‚“ã§ãªã‚“ã¨ãªãã‚ã‹ã£ã¦ãã¾ã—ãŸã€‚ POE::Kernel ㌠POE システムã®ã‚³ã‚¢ã§å”¯ä¸€ç¥ž POE::Kernel->run()*1 を実行ã™ã‚‹ã¨ã‚¤ãƒ™ãƒ³ãƒˆãƒ«ãƒ¼ãƒ—ãŒå›žã‚Šå‡ºã™ イベントループã§ã‚„ã‚‹ã“ã¨ãŒãªããªã‚‹ã¨ POE::Kernel->run() ã‹ã‚‰æˆ»ã‚‹ï¼ˆæˆ»ã‚‹ã“ã¨ã‚’期待ã—ã¦ã¯ã„ã‘ãªã„） POE::Session ㌠POE システムã«ãŠã‘る，タスク/ステートマシン/プãƒã‚»ã‚¹/スレッド的ãªã‚‚ã®ã®å˜ä½ 複数生æˆã—ã¦ã‚ˆã„ セッションã®æœ€åˆã« _start イベントãŒç™ºç”Ÿã™ã‚‹ セッションã®æœ€å¾Œã« _end イベントãŒç™ºç”Ÿã™ã‚‹ イベントãƒãƒ³ãƒ‰ãƒ©ã¨ã—ã¦ï¼Œã‚µãƒ–ルーãƒãƒ³ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ï¼ˆinline_states），パッケージ関数（package_states），オブジェクトメソッド（o
404 Blog Not Found:perl - In-Memory File
2006å¹´11月08æ—¥04:30 カテゴリLightweight Languages perl - In-Memory File Perl 5.8以é™ã§ã¯ã€ã“ã®ã‚ˆã†ãªå ´åˆã«in-memory fileãŒä½¿ãˆã¾ã™ã€‚ ã€ç¶šã€‘ã‚„ã¯ã‚Š Perl ã¯ãƒ¡ãƒ¢ãƒªå–°ã„ãªè¨€èªžã€‚データ型ã®å†…éƒ¨æ§‹é€ :: Drk7jp ＤＢ上ã®å…¨ãƒ¬ã‚³ãƒ¼ãƒ‰ã‚’ã„ã£ãŸã‚“ perl å´ã®é…列ã«æ ¼ç´ã—ã¦ã€ãã®çµæžœã‚’è¿”ã™ã€‚ã£ã¦ã‚³ãƒ¼ãƒ‰ãªã®ã§ã™ãŒã€å½“然ãªãŒã‚‰ãƒ¬ã‚³ãƒ¼ãƒ‰æ•°ãŒå¤šããªã‚Œã°ãƒ¡ãƒ¢ãƒªã‚’食ã†ã®ã¯å½“ãŸã‚Šå‰ãªã®ã§ã™ãŒã€ä»¥å‰ã®è¨˜äº‹ã®å†…容を完全ã«å¿˜å´ã—ã¦ã¾ã—ãŸã€‚ã“ã“ã«ã¯è½ã¨ã—ç©´ãŒã‚ã‚‹ã®ã§ã™ã€‚使ã„æ–¹ã¯ã€ç°¡å˜ã§ã™ã€‚ my @array = (0x21..0x7e); my $memfile; open my $wfh, '>', \$memfile or die $!; print $wfh chr($_), "\n" for (@array); clos
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
PPI-1.279
Adam Kennedy Andy Lester Arnout Pierre bowtie Branislav ZahradnÃk brian d foy Chas. J. Owens IV Chris Capaci Chris Dolan Colin Newell Damyan Ivanov Dan Book Dan Church David Steinbrunner dependabot[bot] Edmund Adjei Elliot Shank Gabor Szabo Graham Knop Graham Ollis Guillaume Aubert James E Keenan Joel Maslak Julian Fondren Karen Etheridge Kent Fredric Lance Wicks Matt Church Matthew Horsfall Mike
2006/09/20 - memo - unknownplace.org
æ–‡å—コード変æ›ã™ã‚‹ãƒ—ラグインã§ããŸã€‚ term: utf-8 servers: irc.unknownplace.org: iso-2022-jp irc.freenode.net: - channel: '-ja$' charset: iso-2022-jp irc.fujisawa.wide.ad.jp: iso-2022-jp ã¿ãŸã„ã«YAMLã§å®šç¾©ã§ãる。ã„ã¾ã®ã¨ã“日本語ãƒãƒ£ãƒ³ãƒãƒ«ãƒãƒ£ãƒ³ãƒãƒ«åãŒæ—¥æœ¬èªžãªãƒãƒ£ãƒ³ãƒãƒ«ã«å¯¾å¿œã§ããªã„。 ã“ã‚Œã§tiarra脱å´ã§ãã‚‹ã‹ãƒ¼ã€‚ http://svn.unknownplace.org/public/library/perl/trunk/irssi_scripts/charset.pl è¨å®šYAMLã®ãƒ‘ス㯠~/.irssi/charsets.yml ã‚‚ã†æ¿€ã—ãçœ ã„ã®ã§èª¬æ˜Žã¯å…¨åŠ›ã§çœãã¾ã™ã€‚後ã»ã¨ã‚“ã©ãƒ†ã‚¹ãƒˆã—ã¦ãªã„ã™ã€‚ ã—ょã†ãŒãªã„ã®ã§ã•ã‚‰ã™ã‚ˆã€‚c
CPAN::Mini 㧠CPAN ã®ãƒŸãƒ©ãƒ¼ã‚’ãƒãƒ¼ã‚«ãƒ«ã«: blog.bulknews.net
CPAN::Mini 㧠CPAN ã®ãƒŸãƒ©ãƒ¼ã‚’ãƒãƒ¼ã‚«ãƒ«ã« DECON ã§è©±ã—ã¦ããŸãƒã‚¿ã§ã™ãŒã¡ã‚‡ã£ã¨è©³ã—ã。 飛行機やら電車ã®ä¸ã‚„らã§ã‚ªãƒ•ãƒ©ã‚¤ãƒ³ãƒãƒƒã‚¯ã™ã‚‹ã¨ãã«ï¼ˆãŸã¾ã«ï¼‰å•é¡Œã«ãªã‚‹ã®ãŒ CPAN モジュールã®ä¸è¶³ã§ã™ã€‚「ã‚ãã€ã“ã®ãƒžã‚·ãƒ³ã«ã¯ã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«å…¥ã£ã¦ãã‡ï½žã€ã¨ã‹ã§ãƒãƒƒã‚¯ãŒæ»žã‚‹ã®ã¯èŽãˆã¾ã™ã€‚ã¨ã„ã†ã‚ã‘㧠minicpan。CPAN::Mini ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã€CPAN モジュールã®æœ€æ–°ç‰ˆã ã‘ã‚’æŒã£ã¦ãã¦ãƒŸãƒ©ãƒ¼ã‚’ã¤ãã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ å°Žå…¥ã¯ç°¡å˜ã§ã€CPAN ã‹ã‚‰ install CPAN::Mini ã™ã‚‹ã¨ minicpan ã¨ã„ã†ã‚³ãƒžãƒ³ãƒ‰ãŒä»˜å±žã—ã¦ãã¾ã™ã€‚コマンドラインã‹ã‚‰ä½¿ã†ã«ã¯ã€ > minicpan -r http://ftp.funet.fi/pub/languages/perl/CPAN/ -l ~/minicpan ã¨ã‹ã™ã‚Œã° finet ã‹ã‚‰ HTTP ã§åŒæœŸã§
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠- ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠以下ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’目処ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—を終了予定ã§ã‚る旨をãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019年末を目処ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æ供を終了ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã“ã®ãŸã³ã€æ£å¼ã«çµ‚了日を決定ã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”確èªãã ã•ã„。 終了日: 2020å¹´1月31æ—¥(金) エクスãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1月31æ—¥(金) 終了日以é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“。日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„。 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„㦠- ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã”利用ã®ã¿ãªã•ã¾ã«ã¯ã”迷惑をãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 追記 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2月28
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
http://act.mongueurs.net/
void GraphicWizardsLair( void ); //
http://feather.perl6.nl:8080/cgi-bin/runpugs
http://blog.nowherenear.net/2006/10/shibuyapm_teck_talk_7.html
Hiveminder - Get busy!
{{#tags}}- {{label}}
{{/tags}}