Twimp - Mobile Twitter Gate
Twitterを携帯とかでスマートに使おうかなとか思ってでっちあげたPerlスクリプト。 [Download : twimp.txt] まぁ↑のtxtを保存してアカウント情報とか編集して、 拡張子をcgiに変更して適当なサーバにUPして実行権限与えればおｋとか、そんな。 モジュール足りなかったらインストールするなり.pmで置くなりでなんとか。 大したことしてないんで、適当にいじるなり、API使用のサンプルにでも使って下さいなー。 セキュリティホールとかあったら勘弁ね('x`) アカウント情報平文保存だし… 実際に使う時はBASIC認証とか掛けるのをオススメ。 $msgnumを0にしたりすると、余計な処理は入るけど簡単に投稿専用にできますよとか。 ＃ちなみにTwimpの名付け親はSOU1なんでご了承をというか何というか('x`) あと、制作にはtwmailを大いに参考にさせて頂きました。多謝
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
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と取り出すフィールドは二つでなければならな
Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
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
404 Blog Not Found:perl - Regexp::Assembleのススメ
2007年04月19日15:00 カテゴリLightweight Languages perl - Regexp::Assembleのススメ というわけで、Regexp::Assembleのご紹介。 PERL HACKS(日本語版) [英語版] odz buffer - それ Regexp::Assembleん？ループ云々を抜きにして、こういうのは Regexp::Assemble の出番じゃないの？ すでにPerl Hackers御用達のモジュールとなっていますが、まだ知らない方もいらっしゃるかも知れないので。 何をするモジュールか、といえば、以下を見れば一目瞭然でしょう。 Regexp::Assemble - Assemble multiple Regular Expressions into a single RE - search.cpan.org use Regexp::Asse
日付から曜日を割り出す - にししの 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";
Perl Lesson 10
[ ↑ INDEX ] [ ← PREV ] [ NEXT → ] Lesson 10 外部プログラム，ライブラリ，モジュールの利用 ■1. 外部プログラムの利用 ここでは Perl のスクリプトから UNIX のコマンドや他のプログラムを利用する方法について見る。(UNIX のコマンドに依存したスクリプトは他のプラットフォームでは使えなくなるので注意が必要。) ・バッククォート (` `) と演算子 qx/ / 文字列を ` ` (あるいは演算子 qx/ / ) で括ると，文字列はコマンドライン上で指定されたコマンドと同様に実行され，標準出力への出力を返り値として返す。` ` で囲まれた文字列中の変数は展開されて実行される。 次の例であれば，コマンドラインから wc dll.txt を実行した結果，標準出力へ出力される文字列が，変数 $wc に代入される。 $wc = `wc dll
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 文字
負荷について考える
共用サーバ 普通、1つのサーバには複数のユーザが登録されています。 そのため、1つのサーバでは同時に複数の CGI プログラムが実行される可能性があります。 共用サーバで、速度が遅くメモリを喰う CGI プログラムを動かすと すぐにマシンパワーが飽和してしまいます。 なるべく負荷のかからず実行速度が短い CGI プログラムを作らなければいけません。 ということを言い始めると、そもそも perl で CGI プログラムを書くこと自体 あまり お勧めできないのですが、perl を使いつつ なるべく負荷のかからない プログラムを書く方法を説明します。 実行頻度を考える ここでは掲示板を例にあげましょう。 掲示板というのは、発言回数よりも閲覧回数の方が圧倒的に多いものです。 例えばウチの掲示板を例にあげると、 1日あたり書き込みは 0〜3件程度ですが、閲覧は1日に100件以上あります。 つまり、発
HTML::Scrubber - Perl extension for scrubbing/sanitizing HTML - metacpan.org
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
Perlの5.8のデコードと from_to関数？
>use encodingはプラグマですが、副作用があるので使わない方が良いという内容の記事を読んだことがありますが、大多数の方は無問題で使っているということでしょうか？ その記事を読んだことはないし、他の大多数の人のことは知らないので、よくわかりませんが、 経験的には、 use encoding 'shiftjis'; とかでは（内部コードへの）マップに問題が有る時があります。 しかし Perlの内部フォーマットがUTF-8なので、UTF-8では問題は起こらないという認識（私的には）です。 また、クックブックに書かれている説明によると、 ”全てのオクテット文字列を有効なＵＴＦ－８文字列にはできないが、ＵＴＦ－８文字列は全て有効なオクテット文字列に変換できる”（Ｖｏｌ．１，１－１０） とあるので、ＵＴＦ－８を使っている場合は問題ないと思います。 ただ、以前unicodeから文字コード変換で
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
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
Perlの小技
Perlでは世界中の達人が開発したモジュールによってさまざまな機能が簡単に使うことができます。 OracleやAccessから情報を集計した結果をLHA形式で圧縮してメールに添付して送ったり、メールを受信してその内容をデータベースに登録するなんてなことまで簡単に（？）できます。最近話題のXMLまで扱えます。 ただドキュメントが英語なんですよね（まぁ当たり前）。そこで私がつたない英語能力を使ってなんとかかんとか、日本語にしてみたシリーズが「日本語チョウ訳」なのです。原著者の方々にはメールで了解をいただいております。みなさん快く応じてくれました。（本当にありがとうございます） あいにくと何かを保証するということもないのですが、モジュールの作者の方々のためにも、わかりやすく正確な内容にしたいと思っています。 間違っている点やご意見などありましたらメールをください。m(__)m また小技ではAct
★★★CGI-Perl 基礎編 (その八) 正規表現、マッチパターン、置換演算子、変換演算子 - SAK Streets
CGI-Perl 基礎編 (その八) 正規表現、マッチパターン、置換演算子、変換演算子 ■正規表現 ・過去扱ってきた言語に正規表現などと言うものは存在しなかった。 上手く使うと非常に便利である。(パターンマッチ、パターンマッチング) 以下、簡単にまとめておく。 ■マッチパターン演算子 i 大文字、小文字の区別なし s 単一行として処理 (^、$ は、\n を無視) m 複数行として処理 (^、$ は、行先頭、行末尾) x 空白を無視、# をコメント処理 ■メタ文字 . 改行を除く任意の 1 文字 * 0 回以上のパターン繰り返し + 1 回以上のパターン繰り返し ? 0 または 1 回のパターン ^ 先頭から $ 末尾から \ メタ文字クォート | パターン論理和 () パターングループ [] 文字クラス {} 量指定子 \n 改行 文字クラスでも指定可 \r キャリッジリターン 文字クラ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
perl-mongers.org
MyTools
移転しました
Perl基礎入門 (Kent Web)