This page moved.
同じように相手にメッセージを送ってみる #!/usr/bin/perl use strict; use warnings; use Net::DBus; my $target = "<相手のID>"; my $mesbody = "chat message from SkypeAPITest.pl"; my $bus = Net::DBus->session; my $hal = $bus->get_service("com.Skype.API"); my $manager = $hal->get_object("/com/Skype"); my $res = $manager->Invoke("NAME MYTEST"); print "$res\n"; if($res ne "OK") { print "ERROR: $res\n"; exit(1); } $res = $manage
W-ZERO3にPerl開発環境をインストール(覚え書き) Perlの勉強のため、W-ZERO3にPerlCEをインストールしてみました。以下はそのときの覚え書きです。 知らない人は読んでもなにがなんだかさっぱりとは思いますが、備忘録なのでご容赦を。 Perl for WinCEから、perl-wince-arm-pocket-wce300.zipと、celib-3.11-dll-src.tar.gzをダウンロード。 PerlIDEをこのページからダウンロード。ファイル名はperlide-wince-arm-pocket-wce300.tar.gz。 celibを解凍し、wince-arm-pocket-wce300-releaseフォルダのcelib.dllを、W-ZERO3の\windowsフォルダにコピー。 PerlCEを解凍し、libフォルダのConfig.pm内のパスを書き換える
「Perl初心者はどうやって勉強したらいいんですかね」というような質問を以前ある人から受けたのですが、ぶっちゃけ自分も大したコードは書けていないわけです。ずいぶん前に「プログラムも書けないで管理者と言えるか」みたいなことを言われて、「だったら書いてやろうじゃないの」と半ば反発しながら始めたのがきっかけで、毎日コードをガリガリ書いている本職(それ偏見)には遠く及ばない程度の実力なわけです。それでも、Perl4の頃のコードを見ると書き換えたくなるとか、「hash-basedなobjectよりinside-outですよ」と知ったかぶりしてみたりする程度にはmodernなPerlコードを書いているつもり。 で、質問に回答できるほどの経験も実力もないけれど、どうやってここまで学んできたかを振りかえってみた。 最初に手に取ったのは、「初めてのPerl」。訳文が理解を妨げるので今は原著しか読まないけど、
メールをheader部とbody部に分解・解析 (module)MIME-Parser back 単純に「最初の空行までがヘッダ、残りがボディ」ということで while (<FH>) { last if (/^$/); $header .= $_; } while (<FH>) { $body .= $_; } みたいな感じで。 各フィールド名とフィールドボディはうまいこと split するべし。 モジュールを使うなら、MIME::Parser で (MIME::Tools に同梱) ---- use MIME::Parser; my $parse = new MIME::Parser; $parse->output_to_core(1); my $buf = (メールデータの取得); my $entity = $parse->parse_data($buf); # 特定ヘッダのフィールド
Perl/CPAN 入門Wiki目的Perl布教 CPAN活用のすすめ CPANモジュールのすごさCPANモジュールがつかえればPerlは何でもできます。 iPodをいじることも、OpenGLで3Dを表示することも、GUIアプリを作ることもできます。PHPなんて目じゃありません。 でも慣れないとCPANは分かりづらい。どうやって使えばいいのかも、どのモジュールを使えばいいのかも分からない。そのようなCPAN初心者のハードルを無くすのが目的です。 Perl自体の説明も大歓迎です。 コンテンツ説明 トップ いまここ CPANの使い方 ActivePerlのPPMもここ おすすめCPANモジュール一覧 おすすめのモジュール一覧。説明とか使い方とか 逆引きCPANモジュール やりたいことからモジュールを探す お願い新規参入が無くなったらコミュニティは終わりだと思います。 (少なくとも日本の)Pe
ファイルを丸呑みで開く方法。 当たり前すぎるほど当たり前なのだが、通常私が使っていた方法が酷評*1されていたので。 open IN, $ARGV[0] ; my $test = join '', <IN> ; close IN ; open IN, $ARGV[0] ; my $test = do { local undef $/ ; <IN> } ; close IN ; ## 50Mbase 程の seq ファイルを開くのに 4.41s user 1.54s system 95% cpu 6.239 total # 前者 0.54s user 0.85s system 93% cpu 1.492 total # 後者 と言う事で、後者の方を使った方が良いと。 ただなあ、 do { local undef $/ ; <IN> } とか、 my $file_name = './hogeho
Net::POP3での受信とMIME::Parserでの解析について。 川合氏の「Perlでメールを受ける」を読み解いていった過程でまとめた両モジュールの使い方情報と、同資料で触れられているメール中の日本語の取り扱いについての補足情報です。 なお、ActivePerl 5.6系でもPPMで5.411a(2005年2月現在)のMIME-Toolsがインストールできるようになりましたので、同資料ではMIME-Tools5.410以降にあわせて書かれた「1.5 MIME-toolsの最新版への対応+HTMLメールに添付ファイル」を勉強対象にしています。 Net::POP3モジュールを利用できるなら、メールの受信は簡単です。 以下のスクリプトで、メールを受信して単純なファイル名(スクリプトのプロセスID+連番)で保存することができます。 use Net::POP3; # メールサーバとアカウントの
POP3 クライアント POP3 クライアントのサンプルプログラムです。 これも Socket モジュールを使っているので、perl5 専用です。 このプログラムは POP3 サーバに接続し、もしメールがあればそれを表示します。 メールが届いてなければ何も行いません。 pop3-client.pl 1: #!/usr/local/bin/perl -w 2: 3: # $Id: pop3-client.pl,v 1.2 2002/02/05 17:53:10 68user Exp $ 4: 5: # POP3サーバ名、ユーザ名、パスワード 6: $connect_host = 'pop3.foo.bar.com'; 7: $username = 'USERNAME'; 8: $passwd = 'PASSWORD'; 9: 10: use Socket; # Socket モジュールを使う
perl で携帯電話に絵文字入りメールを送信する方法を解説します。 目次 ・携帯電話に絵文字入りメールを送る方法の基本 - 基本はバイナリ文字列 - バイナリ文字列とは - バイナリ文字列のハンドリング - 文字コード体系の違い - 携帯端末では外字領域を絵文字用コードとして使用している ・メールを送る場合の方法 ・各キャリアの対処方法 - EZ Web の場合 - Vodafone の場合 - i-mode の場合 ・各キャリアの文字コード体系とメール送信方法の関係 - JISコード概説 - 本文作成時の文字列操作 - メール送信経路概要 - 文字コード体系 – EZ Web と Docomo の場合 - 文字コード体系 – Vodafone の場合 ・Softbank 3Gへの対応 ・更新履歴 携帯電話に絵文字入りメールを送る方法の基本 基本はバイナリ文字列 携帯電話に絵文字入りのメー
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く