find . -name "*.html" -print|xargs grep -l "Copyright" | xargs perl -pi -e 's/Copyright \(C\) 200\d/Copyright (C) 2011/ig' findする grepで絞る（perlの実行回数を減らすため） perlで置換する（s///ig なので大文字小文字無視、改変時気をつける）

一旦７を挟まないでも大丈夫かなーと思ったけどイけた 環境 cpu:pentium3 1Ghz mem:384Mb 作業フォルダ作成 以降のコマンドは全部ここで mkdir /usr/local/src/freebsdupdate/ cd /usr/local/src/freebsdupdate/ アップデートツール入手 fetch http://people…

リクエストを 5000/sec とかするときのための 200/secでよければ別にLWP使ってればいいよマジで、実際便利だし。 非並列なhttpアクセス LWP::RobotUA robots.txt見たりするので行儀が良い URI::Fetch キャッシュとかする、インターフェースがいい HTTP::Lite…

perlでcookieを入れて my $c_name = new CGI::Cookie(-name => 'yourNAME', -value => '山田太郎', -expires => $EXPIRETIME ); javascriptでそいつを取り出す function ReadCookie(key) { var sCookie = document.cookie; var aData = sCookie.split(";"); …

http://www.itmedia.co.jp/enterprise/articles/1004/03/news002.html3時間以内で合格だそうですが、7時間かかった。 はてブで見るほかの人たちは大体１〜4時間で終わっているご様子。 perlな上に麻雀だから優位なはずなのに、 やべぇ。 明日から飯が食えな…

Module::Starter Test::Morevia http://itpro.nikkeibp.co.jp/article/COLUMN/20071011/284280/?ST=develop&P=1

cpanでなんかインストールするときに[yes]って出るたびにENTERキーを押すのがだるい場合 # yes '' | perl -MCPAN -e 'install Task::Catalyst' yes はコマンドです。 試しにコンソールで実行してみると感心する。 yes '' は改行だけ送る。 yes '無駄無駄無駄…

Encode::EUCMSJPを使う。 標準モジュールじゃないし、pmだけじゃないからインストール必要。 CP50220は、半角カナを全角カナに変換しつつ他の文字もマッピング CP50221は、半角カナも他の文字もうまいことマッピング via http://d.hatena.ne.jp/shidho/20080…

locate結果削除 locate Thumbs.db | perl -l0ne unlink xargs(なんかうまくいかなかった、-Oオプションは必須らしい) locate Thumbs.db | xargs -O rm locate結果現存チェック locate .htaccess| perl -l0ne 'print "!"if(!-e);print;print"\n";' locate結果…

use Devel::Peek; Dump($x);via Perl で utf8 化けしたときにどうしたらいいか - TokuLog 改め だまってコードを書けよハゲ http://d.hatena.ne.jp/tokuhirom/20080408/1207619640

use Spreadsheet::ParseExcel; use Spreadsheet::ParseExcel::FmtJapan2; my $oExcel = new Spreadsheet::ParseExcel; my $oFmtJ = Spreadsheet::ParseExcel::FmtJapan->new(Code => 'CP932'); my $oBook = $oExcel->Parse("waritofutuuno.xls", $oFmtJ); sj…

Proc::Daemonhttp://perltips.twinkle.cc/perl/daemon.php

文字単位のdiffhttp://www.hyuki.com/yukiwiki/wiki.cgi?Algorithm%3A%3ADiff Algorithm::Diff - 2つのファイル/リスト間での'気の利いた'差異を求めます。 - perldoc.jp

via http://makeout.sakuraweb.com/archives/2006/07/02_124751.php $CPAN::Config->{makepl_arg} = 'PREFIX=/home/USER/perl LIB=/home/USER/perl/lib INSTALLMAN1DIR=/home/USER/perl/man/man1 INSTALLMAN3DIR=/home/USER/perl/man/man3';

Web 認証 API でサイトミックス - Tociyuki::Diary 全く同じこと考えていた人がいたのでとりあえず記録。 こーゆーとき考えをまとめる手間が省けたと思うんだが、 それは省いていいのか？ ただし、今の認証 API には、リダイレクト URI の横取り可能性という…

Spreadsheet::ParseExcel::FmtJapan2 を使う方法 on FreeBSD6.1. いいドキュメントが見つからなかったので調べた。 導入 cpanから必要なモジュールをインストールする。 >perl -MCPAN -e shell install Spreadsheet::ParseExcel install Unicode::Maphttp://…

http://qootas.org/blog/archives/2006/06/perl_regex_perf.html正規表現内部での | は遅いからダメ。外部で使うべし。 sub { $text =~ m/abc|def|ghi/ } sub { $text =~ m/abc/ or $text =~ m/def/ or $text =~ m/ghi/ }上より下のが早い

UIVERSAL::require Class::Accessor 「perldoc -m で学ぶCPANモジュールプログラミング」http://e8y.net/blog/2006/05/05/p117.html