ファイルの添付の研究 'PERL-LABO'
研究内容 メールにはファイルを添付することができます。 Perlとsendmailを使ってファイルを添付する方法を研究しましょう。 詳細 メールにファイルを添付する方法 sendmailを使用してPerlからメールを送信するには、 メールヘッダを含むデータをsendmailに渡してあげるんでした。 残念ながら、ファイル名を指定するだけでそのファイルが添付されるような 便利な機能はないようで、 メールデータの中に自力でファイルが添付されていることを示すヘッダや 添付するファイルデータなどを加える必要があるようです。 ファイルを添付したときの、ヘッダなどを含むメールの内容は次のようになります。 Content-Type: Multipart/Mixed; boundary="(バウンダリー文字列)" Content-Transfer-Encoding:Base64 From: 送信元 To:
にひりずむ::しんぷる - HTML::Filter::Callbacks の紹介
追記あり Yuji Shimada / HTML-Filter-Callbacks - search.cpan.org charsbar さんにパッチを送ったら、「commit bit 付けたから自分でリリースしてちょ」って言われたので、先ほど 0.07 をリリースしました。 それはさておき、このモジュールについての情報があんまり世の中に無いようなので、いい機会なので紹介しようかと思います。 このモジュールを使えば 不要なタグの除去 url の変換 属性の追加、削除 text の置き換え などなどが簡単にできます。 似たようなモジュールとして、HTML::Scrubber というのが昔からあって、よく使われてますが、長年メンテされていなかったり*1、インターフェースがとてもわかりにくかったり*2して、今から使うのは気が引けますが、HTML::Filter::Callbacks は大変直感的
常識を覆すソートアルゴリズム！その名も"sleep sort"！ - Islands in the byte stream (legacy)
TwitterのTLで知ったのだが、少し前に海外の掲示板で"sleep sort"というソートアルゴリズムが発明され、公開されたようだ。このアルゴリズムが面白かったので紹介してみる。 Genius sorting algorithm: Sleep sort 1 Name: Anonymous : 2011-01-20 12:22 諸君！オレは天才かもしれない。このソートアルゴリズムをみてくれ。こいつをどう思う？ #!/bin/bash function f() { sleep "$1" echo "$1" } while [ -n "$1" ] do f "$1" & shift done wait example usage: ./sleepsort.bash 5 3 6 3 6 3 1 4 7 2 Name: Anonymous : 2011-01-20 12:27 >>1 なん…だと
Wide character in print at ...
[Perl] Wide character in print atというエラーはUTF-8フラグが付いた文字列をprintしようとしているからである。なのでUTF-8フラグを取り外してからprintすればエラーがでなくなります。UTF-8フラグが付いているかどうかはutf8::is_utf8を使用すればよい。 #UTF8フラグが付いているかの確認 utf8::is_utf8では実際の文字列がUTF-8かどうかではなく、あくまでフラグがついているかどうかを確認します。そのため、UTF-8の文字列もフラグが付いていなければ上記の出力はno flagとなります。またutf8::is_utf8はuseしなくても使用できる。useすると全然違う意味あいになるので注意。 UTF-8フラグが付いていたら、encodeを使用してフラグをはずします。以下の例では$stringをutf-8に変換して出力します
perl でハッシュ(連想配列)のソート | perl/CGI | 阿部辰也のブログ――人生はひまつぶし。
perl でハッシュ(連想配列)のソートを行なう処理、今まで何度も何度も何度も何度も（ｒｙ 書いてきたのに、毎回忘れるんですよね。 どんだけ鳥頭なんだ、と。 というわけで、忘れても困らないようにここに書いておきます。 ハッシュのキーでソートする ハッシュのキーでソートするのは簡単です。 sort keys %hash; これでソートされたキーのリストが返ります。 foreach を使ってキー順にハッシュを処理したいなら、 foreach $key (sort keys %hash){ print qq|Key: $key\n|; print qq|Value: $hash{$key}\n|; } こんな感じになります。 ハッシュの値でソートする ハッシュの値でソートする場合は、以下のようになります。 sort {$hash{$a} <=> $hash{$b}} keys %hash; これ
perl で四捨五入を行なう方法 | perl/CGI | 阿部辰也のブログ――人生はひまつぶし。
perl で四捨五入の処理を行なう方法をあれこれまとめておきます。 sprintf を使う方法 あんまり推奨されていない方法だとは思いますが、sprintf で四捨五入をする場合。 小数点以下の部分を四捨五入する場合は "%.1f" "%.3f" などと指定します（1や3等の数字で小数点以下の四捨五入する桁を指定）。 $num = 1.4256; #-- 小数点第一位に四捨五入 $round_num = sprintf("%.1f",$num); # 1.4 #-- 小数点第三位に四捨五入 $round_num = sprintf("%.3f",$num); # 1.426 Math::Round::nearest モジュールを使う方法 sprintf を使うより、こちらの方が正確です。 nearest(桁数,数値); という形式で、四捨五入の結果を返してくれます。 use Math::R
perl で正規表現にマッチした文字列を配列に入れる方法 | perl/CGI | 阿部辰也のブログ――人生はひまつぶし。
ある文字列から、正規表現にマッチした文字列のリストを、配列に入れる方法です。 意外と最近までこれ知らなかったです。 #-- 文字列 $string = '0a12bc345def6789ghij'; #-- 数字だけを抽出して配列に入れる @nums = $string =~ /[0-9]+/g; #-- 配列に入った値を出力 foreach $num (@nums){ print $num."\n"; } 上記の出力結果は、 0 12 345 6789 となるはずです。 Twitter始めました。Followはお気軽にどうぞ。 関連するブログ記事 perl / PHP / JavaScript 各言語での URL(URI)エンコード・デコード方法まとめ [2009年12月 2日 18:47] perl の CGI や PHP でフォーム入力チェックによく使う正規表現のまとめ [2009年
プログラミング言語"Perl"の商標登録について - JPA 運営ブログ
一部の方はすでにご存じの通り、先日 "RUBY"や"OPENSOURCE"などの商標登録が出されていた他、"Perl"および"パール"の商標登録がプログラミング言語Perlの開発およびコミュニティと全く関係のない法人（テラ・インターナショナル）により出願され、受理されてしまっていることが発覚いたしました。 Japan Perl Association (JPA) としては本件に関して法的な対応をするかどうかを含め検討中ですが、取り急ぎ現実的にプログラミング言語「Perl」を日常的に使用されている皆様に向けて現在の状況とそれに対してどのように対応するべきかJPAとして調査した結果をお知らせいたします。 まず プログラミング言語「Perl」を自社製品、サービスに対して使用することについてはなんの問題もございませんし、それを使って作られた製品を使用・開発することに対して使用料等が発生することはあ
Chapter-4_Have_fun_with_AtomAPI - ウィザシステム - Witha System Ltd.
Blog Pet 「こうさぎ」 「こうさぎ」とは，ウェブログ界隈で爆発的な人気を誇る，非常に面白いサービスです．ウェブログを持っている人なら，自分のウェブログのサイドバーに動き回る「こうさぎ」を飼育することが出来ます．ただ単に可愛らしいこうさぎがウェブログに表示されるだけではなく，ウェブログの記事をRSSを通して取得して，言葉を覚え，たどたどしく言葉をしゃべるのです．いわゆる人口無能を応用した機能です． こうさぎをクリックすると，可笑しなことを叫んだり，似た自分のウェブログと関連したウェブログを見つけて教えてくれます．アクセス解析をしてくれるなど，お馬鹿なことを言うわりに以外に賢い側面もあります． さらに，XML-RPCやAtomAPIに対応したウェブログでは，こうさぎが投稿してくれます．自分が書いた記事に，こうさぎがツッコミをいれるなど，面白いウェブログをよく見かけたりします． このこう
Perlでアニメ顔を検出＆解析するImager::AnimeFace - デー
というのを作ったので自己紹介します。 2月頃から、コンピュータでアニメ顔を検出&解析する方法をいろいろ試しつつ作っていて、その成果のひとつとして、無理やり出力したライブラリです。 はじめに はじめにざっとライブラリの紹介を書いて、あとのほうでは詳細な処理の話を僕の考えを超交えつつグダグだと書きたいと思います。 Imager::AnimeFaceでできること Imager::AnimeFaceは、画像に含まれるアニメキャラクター的な人物の顔の位置を検出し、さらに目や口など顔を構成する部品位置や大きさの推定、肌や髪の色の抽出を簡単に行うことができるライブラリです。 これらが可能になると、 画像から自動でいい感じのサムネイルを作成できる 動画から自動でいい感じのサムネイルを作成できる 自動的にぐぬぬ画像が作れる 自動的に全員の顔を○○にできる 顔ベースのローカル画像検索 など、最新鋭のソリューシ
[J] Perl で phpinfo() のような処理をする - Jamz (Tech)
以前見たような気がしていた、ちょっとでも見かけて覚えておく事って大事ね。 そのものズバリ。以前は PHP::Perlinfo だったけど今は HTML::Perlinfo に名称変更されたようだ。 Michael Accardo / HTML-Perlinfo - search.cpan.org use HTML::Perlinfo; perlinfo(); perlinfo(INFO_MODULES); コマンドラインからもいけるっぽい。 perl -M HTML::Perlinfo -e perlinfo blosxomとPerlモジュール#2単にperlinfo();としただけではコアモジュールのみ列挙されるようで、全モジュールのインストール状況を知るためにはperlinfo(INFO_MODULES);としないといけないようです。しかし、INFO_MODULES と指定すると、サー
TokuLog 改め だまってコードを書けよハゲ - ドコモでも CSS を外部参照を使える HTML::DoCoMoCSS をリリース
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
WEBアプリケーション開発メモ - XML-RPCでの画像投稿 Perl
#!c:\perl\bin\perl #!/usr/bin/perl use strict; use warnings; use IO::Handle; use Data::Dumper; use XMLRPC::Lite; use File::Basename; { my $blogid = "ブログＩＤ"; my $username = "ユーザー名"; my $password = "パスワード"; my $proxyurl = "ブログのXMLRPC先"; # 画像パス my $filename = "C:/images/xxxx.jpg"; my $bits = read_bin_file ($filename); # # ここで画像を投稿する # いまのところ１枚単位 # my $picresult = XMLRPC::Lite -> proxy($proxyurl) -
Yahoo!日本語形態素解析APIをコマンドラインから使うサンプルプログラム
Yahoo!日本語形態素解析APIをコマンドラインから使うサンプルプログラム 2008-04-05-5 [Programming][NLP] とある経緯で、Yahoo!日本語形態素解析API[2007-06-18-1]を使った Perl のサンプルプログラムを作りました。 車輪の再発明的ですが（だれか作ってた気がする）気にしない！ - Yahoo!デベロッパーネットワーク - テキスト解析 - 日本語形態素解析 http://developer.yahoo.co.jp/jlp/MAService/V1/parse.html 以下コードです： #!/usr/bin/perl use strict; use warnings; use Encode; use URI::Escape; use LWP::Simple; use XML::Simple; use Getopt::Long; use
perl の作法 #5 ディスパッチテーブルの活用 | ブログが続かないわけ
いきなり具体例から行こう。sub coloring { my ($color, $data) = @_; my $ret; if($color eq 'black') { $ret = "<font color=¥"#000000¥">$data</font>"; } elsif ($color eq 'red') { $ret = "<font color=¥"#FF0000¥">$data</font>"; } elsif ($color eq 'green') { $ret = "<font color=¥"#00FF00¥">$data</font>"; } elsif ($color eq 'blue') { $ret = "<font color=¥"#0000FF¥">$data</font>"; } elsif ($color eq 'white') { $ret = "<
MT::ObjectこそがMTの本質であると勝手に思っている。 | Junnama Online
MT::ObjectこそがMTの本質であると勝手に思っている。 公開日 : 2007-12-16 02:27:47 MTとは何だ? MTって(あなたにとって)何? って聞かれたなら、僕は『MTとは「MT::Object」である』と答えるかな。 loadメソッドは間違いなく最も複雑なメソッドです。 とあるけれど、これこそが MTの本質なのですよ。きっと。 MT::Entry とか MT::Blog とか MT::Category とかみんな MT::Object のサブクラスであり、オリジナルのクラスを作ることも簡単にできる。 MTObjectBuilder(MT::Objectのサブクラスを作ってDBのテーブルを簡単に拡張するためのcgi)。 MT::Object についてちょっと書いてみる。 MTOSによって、これがオープンソースになるのです。だからMTOSは「ただで使えるブログソフト」
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
WWW-Shorten-Bitly-1.17
theta.ne.jp
perl-mongers.org
iMacros | Online Support Resources - Web Automation, Web Scraping, Web Testing