CGI::Application Session有効期限設定 - 備忘録。CGI::Applicationでセッション有効期限を設定する $self->session->expire('+1y') メソッドが、IE,Safari等のブラウザではexpireが設定されない。バグ？ $self->session_cookie(-expires => '+1y'); に変えるとOK。
スタンドアローンなPerl
Tk.pmとPAR.pmの実験 Perlでデスクトップアクセサリを作ろう！ Perlといえば、テキスト処理。そんなイメージがありますが、Tkモジュールを使えば、GUIなものも簡単につくれるわけです。そこで今回は癒し系アプリケーション、「アメリカン・ジョニィ」を作成しました。 起動するとデスクトップに亜米利加合衆国のナイスガイが常駐して、貴方の心を和ましてくれるでしょう。 Windows用アプリケーション ソースは一番最後に用意してあります。ただし、Tkモジュールが必要になりますので、場合によってはハードルが高いかもしれません。……しかしながら、今回の目玉は、このスクリプトをWindows用アプリケーションにしたことです。Windowsユーザーの方は、下記のプログラムをダウンロードして実行するだけで、ジョニィに会うことができるでしょう。これはPARというモジュールに付属のppというユーティリ
最速インターフェース研究会 :: PerlでIEの履歴にアクセスする方法
こんなんで出来た。 use strict; use Win32::OLE; use Data::Dumper; my $wshell = Win32::OLE->new('Shell.Application') or die "oops\n"; my $HISTORY_FOLDER = 0x22; my $history_dir = $wshell->Namespace($HISTORY_FOLDER); my $url_list = scan_folder($history_dir, []); print Dumper $url_list; sub scan_folder{ my ($folder, $ref) = @_; my $items = $folder->items; for(my $i = 0;$i < $items->count; $i++){ my $item = $it
ハッシュ - 2部 Perl言語仕様 - [SMART]
1.ハッシュへ値を代入 ハッシュ変数は、配列のインデックスが文字列となったもので、このインデックスを『キー』と呼びます。ハッシュの場合は要素の値がキーによって管理されます。 ハッシュの宣言 ハッシュへ値を代入 ハッシュの宣言 ハッシュを宣言するときは変数名の前にパーセント（ % ）を付けます。 %hash; ハッシュへ値を代入 配列では、[ ] でインデックスを囲みましたが、ハッシュは、 { }でキーを囲みます。例えば社員の名前とメールアドレスを管理する場合、次のような方法でハッシュを使った管理ができます。 $hash{'Akai'} = 'akai@domain.com'; $hash{'Ishikawa'} = 'ishi@domain.com'; $hash{'Ueda'} = 'ueda@domain.com'; 複数の値を一度にハッシュへ代入するには、キー、値の順番で記述します。
![ハッシュ - 2部 Perl言語仕様 - [SMART]](https://cdn-ak-scissors.b.st-hatena.com/image/square/efeb6493234f33406d242c048873a805fca99c63/height=288;version=1;width=512/https%3A%2F%2Frfs.jp%2Fwp-content%2Fthemes%2Fsmart%2Fogpimage.png)
ファイル演算子
Perl で取得出来るファイル演算子一覧。 -r 読み込み可能であれば -w 書き込み可能であれば -x 実行可能であれば -o 実行ユーザーと所有者が同一であれば -R 実行ユーザーでなく、実ユーザーで読み込み可能であれば -W 実行ユーザーでなく、実ユーザーで書き込み可能であれば -X 実行ユーザーでなく、実ユーザーで実行可能であれば -O 実行ユーザーでなく、実ユーザーのものであれば -e 存在すれば -z 存在し、サイズが 0 であれば -s ファイルサイズを返す -f 通常ファイルであれば -d ディレクトリであれば -l シンボリックリンクであれば -p 名前付きパイプであれば -S ソケットであれば -T テキストファイルであれば -B バイナリファイルであれば -b ブロック型の特殊ファイルであれば -c キャラクタ型の特殊ファイルであれば -u setuid ビットがセッ
不正なタグの除去
本来、私個人としては掲示板にタグを許可する必要はないと考えています。 タグは、掲示板を華やかな物にしてくれる反面、恐ろしい機能も有しています。 そのため当サイトのフリーウェアでデフォルトでタグが使用できるスクリプトは存在しません。 しかしながら、大変多くの御要望を頂いておりますので、「タグ」の使用を考えてみましょう。 一般的なタグの除去 現在公開されているスクリプトで、最も多く使用されているタグの除去法は、予め使用不可のタグを登録しておき、 本文中にそれらのタグが見つかれば、メッセージを表示するか書き込みをしないと言うシステムです。 $tags[0] = '<img'; $tags[1] = '<table'; $tags[2] = '<!'; $tags[3] = '<hr'; foreach $tag (@tags) { if ($comment =~ /$tag/i) { error
perl 5.8における日本語コード変換のメモ
perl 5.8ではEncode.pmが標準モジュールとなり、多バイト文字を標準で簡単に扱えるようになりました。が、jcode.plやJcode.pmを用いたコード変換の経験があると、逆にこれが仇となって文字化けの嵐に遭います。（私の場合そうだったというだけで、普通はそんなこと無いのかもしれないのですが。）漸く最近になって基本的な考え方が飲み込めるようになって来たので、この辺をまとめておこうと思います。なお、本メモは新たにperl 5.8.x的なperlスクリプトを書く際に気をつけることをまとめたものであり、基本的には既存のスクリプトにperl 5.8 + Encode.pmを適用するためのものではありません。また、utf8でスクリプトを書くことを前提にしています。が、どちらにせよ、この知識は参考になると思います。（たぶん。） 本文冒頭ですが、まず参照先を示しておきます。以下のドキュメント
ぱるも日記 - あなたがブログで勉強日記をつけるべき6つの理由
正規表現はほんの基礎しか解説しないつもりだったのに、ここ数日どんどん解説してしまいます。(笑) でも、他の人にわかるように書く事で、自分の理解が深まる気がします。こういったブログのようなパブリックなスペースでは、常に人の目を意識しなくてはいけないので、自然と「どう書けばわかりやすいかな」と考えるようになってきました。 わざわざ正規表現を解説してしまうのも、「このパターンがわからないと、このプログラムは理解してもらえないよなぁ……」と考えてしまうからです。 という文章を書いていたら、勉強日記の先輩である id:rubyco さんこと結城浩さんが、同じことを書いていました。(^_^;) どうやら、ブログで勉強日記を付けると、そういう効果があるようですね。そこで、勉強日記をブログでつけるメリットをまとめてみました。 題して「あなたがブログで勉強日記をつけるべき6つの理由」。この6つの理由が、あな
Acme::Chef - レシピがプログラムそのものな言語 : 404 Blog Not Found
2006年03月20日02:04 カテゴリLightweight LanguagesArt Acme::Chef - レシピがプログラムそのものな言語 どころか、レシピそのものの電脳言語もあります:-) Life is beautiful: ソフトウェアの仕様書は料理のレシピに似ている ちなみに、この話を書いていて思ったのだが、プログラムの仕様書は料理のレシピに似ている。その名はChef。Acme::Chefという名のPerlで実装された言語だ。 "Hello, world!"はこうなる。 Hello World Souffle. This recipe prints the immortal words "Hello world!", in a basically brute force way. It also makes a lot of food for one person. I
[を] Perl の特殊変数のうちときどき使うもの
Perl の特殊変数のうちときどき使うもの 2006-05-27-2 [Programming] Perl の特殊変数のうち自分が使っているものだけメモ。 $0 スクリプトのファイル名 $$ プロセス番号。see "perldoc -f srand" $^T スクリプトの実行開始時間 $. 読み込み中の行番号(レコード番号)。例: while(<>){print $.} $/ 入力レコードのセパレータ。例: undef $/; $a = <>; $| バッファリングの制御。$|=1 でバッファリングなし。 $! システムコールのエラー。例: chdir("aaa");print $! if $!; $@ evalでのエラー。例: eval '$a=f(1)';print $@ if $@; $, 出力フィールドの区切り。例： $,='/';@a=(1,2,3);print@a; 追記0
[を] Perl の -T スイッチ
Perl の -T スイッチ 2006-05-27-3 [Programming] プログラミング Perl 第3版 VOLUME 2 「23章 セキュリティ」より： デーモン、サーバ、および他人のために実行されるすべてのプログラム （例えばCGIスクリプト）には、-Tスイッチを指定すべきである。 [...] すべてのCGIスクリプトに-Tフラグを指定して実行するということは、単 に良い考えであるだけではない――それは、荒野のごときインターネット で生き延びるための掟なのである。 「掟」だそうです！！！ とはいえ、今まであまり意識してませんでした。反省。 というわけで説明。perlスクリプトの先頭を以下のようにする。 #!/usr/bin/perl -T すると、コマンドライン引数やCGIのパラメタなどの外から来た変数を ファイル名として開くときに Insecu
daily dayflower - 半角←→全角変換，Unicode::Japanese に未公開機能が…
2008-10-21 追記 いまだに（ありがたいことですが）検索で飛んできたりブクマされたりというのがちょいちょいあるので，最新動向を書いておきます。 id:tokuhirom さんが Lingua::JA::Regular::Unicode という Pure Perl Module をリリースなさいました（→ http://d.hatena.ne.jp/tokuhirom/20081018/1224300947）。 あなたが作っているアプリで文字列まわりを Unicode::Japanese インスタンスですべて持ちたいわけでなければ（そして，たいていのばあい，持つ必要はないのですが），この Lingua::JA::Regular::Unicode を使うのがベターです。依存性もなく，とても軽量ですので。 2008-10-21 追記おわり ウェブアプリを作っていると，ユーザが入力した半角
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
eiji8pou.net
サービス終了のお知らせ
Perlモジュール/Tk - Walrus, Digit.
IBM 高度なPerl/Tkウィジェットを使う
http://www.kibiwaka.com/blog/archives/2005/05/perltk_1.html
サービス終了のお知らせ
Business::Barcode::EAN13 - Perform simple validation of an EAN-13 barcode - metacpan.org
http://www.logical-collection.net/archives/2005/08/html.html