tokuhirom blog
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
Perl-users.jp - 日本のPerlユーザのためのハブサイト
Perl Mongers Perl Mongers とは、日本各地に存在する、Perl ユーザーのコミュニティのことです。各種イベントが行われていますので、是非参加してみましょう。 Shibuya.pm Fukuoka.pm Kansai.pm (@kansaipm) Yokohama.pm (@yokohamapm) Hokkaido.pm (@hokkaidopm) Nagoya.pm (@nagoyapm) Kushiro.pm (@kushiropm) Kyoto.pm (@kyotopm) Kamakura.pm Niigata.pm (@niigatapm) Sendai.pm (@sendaipm) Tokyo.pm Hachioji.pm (@hachiojipm) Chiba.pm (@chibapm) Yomitan.pm (@yomitanpm) Machida.pm
Perlで日本語のメールを送信する方法
[2007-11-13-3] で Perlでのメールの送信方法について紹介しました。 今度は、日本語の入ったメールをPerlで送信する方法について、紹介します。 [2007-11-13-3] で紹介したPerlからのメール送信でも、問題ないケースもありますが、受信するメーラによっては、文字コードの認識を自動的に行ってくれず、化けてしまうことがあります。 そこで、件名や本文の文字コードをエンコードしたり、ヘッダに文字コード情報を追加してあげる必要があります。 メールの件名で、日本語を利用するには、JISコードで送信しなければならないという決まりあります。さらに、MIMEエンコードする必要があります。 文字コードの変換には、Perlのモジュール Jcode.pmを利用します。 Perl Jcode.pm のインストール方法には、 [2007-11-13-2] を参照してください。 ソース $t
CGI プログラムからのメール送信 (1)
sendmail メール送信を行う CGI プログラムを作成します。 メールを送るにしても色々な方法があるのですが、ここでは sendmail を例に上げます。 sendmail は、UNIX 界隈では有名なメール配送ソフトです。 メール受信機能と (SMTP サーバ)、メール送信機能の両方を持っています。 sendmail のメール送信機能を使う方法を説明します。 sendmail の簡単な使い方 まず、UNIX マシンにログインできる方は、 コマンドラインから実行してみましょう。 まず、sendmail のパスを捜します。 % which sendmail /usr/sbin/sendmail のように表示されたら OK です。OS によっては /usr/lib/sendmail の場合もありますし、もしかしたら sendmail が インストールされていない可能性もあります。 また、
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
Kazuho@Cybozu Labs: Perl で埋め込み SQL を使って楽をする話
« Japanize for IE バージョンアップのおしらせ | メイン | Filter::SQL を使って掲示板を書いてみました » 2008年04月16日 Perl で埋め込み SQL を使って楽をする話 DSL (ドメイン固有言語) は、プログラム開発の生産性を向上させる有力な手段です。そして、よく使われる DSL の代表例が正規表現と SQL だと思うのですが、前者に比して後者を嫌いな人が多いようです。なぜだろうと思ってつぶやいたところ、「SQL はリテラルじゃないから！」という答えが tokuhirom さんから返ってきました。そういえば例えば Pro*C のように C で Embedded SQL というのは良く聞く話なのに、Perl では同様の例がないような感じだったので、作ってみました。Perl で埋め込み SQL を実現するソースフィルター Filter::SQL で
404 Blog Not Found:perl - utf8::is_utf8("\x{ff}") == 0
2008年02月18日10:00 カテゴリLightweight Languages perl - utf8::is_utf8("\x{ff}") == 0 ちょうどいい機会なので、Perl 5.8以降におけるutf8フラグの立ち方を。 unknownplace.org - 2008/02/17 - utf8::is_utf8 ということで、"\x{6751}\x{702c}\x{5927}\x{8f14}" などというData::Dumper表記でかならずしも utf-8フラグがたつわけじゃない。ということがいいたかったんだと思うのだけれど、 \x{UUUUUU}とutf8 flag まずはクイズです。以下がどう出力されるかを答えなさい。 sub pfrag{ print utf8::is_utf8($_[0]) ? 1 : 0, "\n" } pfrag "Hell\xC3, worl
Perl で日本語テキストを字種分割
Perl で日本語テキストを字種分割 2008-02-06-2 [Programming] Perl で日本語テキストを簡単に字種かたまりに分割できないかな、 と思い、perlunicode を読みながらサンプルプログラムを書いてみました。 対象テキストは UTF-8。 chunker.pl : #!/usr/bin/perl use strict; use warnings; use Encode; use utf8; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; while (<>) { chomp; my @cs = m/(\p{M}+|\p{N}+|\p{P}|\p{S}+|\p{Z}+|\p{C}+ |\p{Latin}+ |\p{Han}+ |\p{Hiragana}[\p{Hiragana
perl - Inside-out Object : 404 Blog Not Found
2007年03月11日03:30 カテゴリLightweight Languages perl - Inside-out Object ところが、そのないはずの隠蔽化を強制する仕組みがすでに発見されているのです。 Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] ビンゴ中西のほげほげ Kansai.pm第8回ミーティングに行ってきました@荷造り中そして、Perlのオブジェクト指向には 隠蔽化を強制する仕組みはない いつか書こうと思っていたけど、ちょうどいい機会なので。 ここでは例として、name,uriという二つのインスタンス変数を持つオブジェクトを実装してみます。 InsideOut.pm { package InsideOut; use strict; use warnings; my %objects; sub new { my
ppencode - JavaScript demo
ppencode - JavaScript demo Input text Perl program Copyright(C) 2005 Yoshinori TAKESAKO. All rights reserved. return to top
perl - 5.10.0 released! : 404 Blog Not Found
2007年12月19日12:00 カテゴリLightweight LanguagesAnnouncement perl - 5.10.0 released! その 20歳の誕生日に、Perlは5.10.0になりました。 Rafaël Garcia-Suarez / perl-5.10.0 - search.cpan.org 日本時間では一日後の12月19日 03:11ですが、GMTではまだ12月18日。当初スケジュールより2ヶ月ほど押しましたが、ついに誕生です。 Dan the Perl Monger From: rgarciasuarez@gmail.com Subject: Perl 5.10.0 is released Date: December 19, 2007 03:11:46 JST To: perl5-porters@perl.org Message-Id: <b77c1d
perl - parser書くならgoto : 404 Blog Not Found
2007年04月24日18:00 カテゴリLightweight Languages perl - parser書くならgoto しかし、本当の本当の本番はこちらだったりする。 404 Blog Not Found:perl - POO と goto Perl 5のgotoは、仕組みを理解した上で使いどころを誤らなければかのごとく強力なのである。 前回の例では、それでも"One of many ways to do it"で、「知らなくても困らない」レベルのものであった。しかし、今回の例は、gotoがなければ本当にきつい。 以下の例を考えてみよう。 入力: (define (fact n) (if (= n 1) 1 (* n (fact (- n 1))))) 出力: [['define',['fact','n'],['if',['=','n','1'],'1',['*','n',['f
List::Util Perl 標準の配列操作ライブラリ
Landscape トップページ | < 前の日 2004-11-13 2004-11-14 次の日 2004-11-15 > Landscape - エンジニアのメモ 2004-11-14 List::Util Perl 標準の配列操作ライブラリ 当サイト内を Google 検索できます * List::Util Perl 標準の配列操作ライブラリこの記事の直リンクURL: Permlink | この記事が属するカテゴリ: [Perl] List::Util は配列の最大値、最小値、合計値を取得したり、配列をシャッフルしたりするためのルーチンを集めたPerl モジュール。Perl 標準ではなかったが結構前からあったモジュールらしい。Perl 5.8 から標準ライブラリとして組み込まれたようだ。Scalar-List-Utils が元なのかな? 私ははっきり言って全く知らなかった。あると便
perl - 文字列ばらしはsplit //, $strで : 404 Blog Not Found
2007年11月27日13:30 カテゴリLightweight Languages perl - 文字列ばらしはsplit //, $strで うーん、ここがあきまへん。 [を] 転置インデックスによる検索システムを作ってみよう！ 9 my @char = ($c =~ /([\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]| 10 [\xE0-\xEF][\x80-\xBF]{2}| 11 [\xF0-\xF7][\x80-\xBF]{3})/gsx); 文字列をばらして(utf8の)文字一つ一つの配列にするには、バイト列に正規表現をかますのではなく、utf8文字列にしてからそれにsplit //をかますのが一番です。単にわかりやすいだけではなく、その方がずっと高速です。以下、Benchmark。 #!/usr/local/bin/perl use strict; u
Perlの数値計算で有効桁数を上げたい - Perl 解決済み| 【OKWAVE】
perl -MMath::BigFloat -e "print $Math::BigFloat::VERSION" をコマンドラインから実行してみてそのバージョンが1.58(現時点での最新) かどうかを確認し、最新であれば >perl -MMath::BigFloat -e "print $Math::BigFloat::VERSION" 1.58 perl -MMath::BigFloat -e "my $x = Math::BigFloat->new(2); print $x->bsin(100);" 0.909297426825681695396019865911744842702254971447890268378973011530967301540783 5446201266889249593803 のように、Math::BigFloatクラスのメソッドが使えます。 最新のもので
Part1 正しいPerl/CGIの書き方：ITpro
Shibuya Perl Mongers 2代目リーダーにして，ppencodeの作者。広島市立大学卒業後，大企業向けmod_perl製品の開発に従事。2005年よりサイボウズ・ラボ株式会社に入社。LL Ringに参戦。Namazu for Win32，Plagger，Ajajaのコミッターでもある。 CGIといえばPerl。そんな風にいわれていた時期もありました。レンタル・サーバーのCGIで手軽にPerlが使えたこともあり，ちょっとした掲示板のスクリプトやアクセス・カウンタなど，CGIプログラムの多くがPerlで書かれていました。このためPerlが爆発的に普及したのです。Perlは日本のインターネット黎明期を支えたプログラミング言語として，広くその名が知られています。 その半面，Perlで書かれたプログラムの保守性に悩む声も聞かれるようになりました。事実，Perlのプログラミング経験が少
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Lisp
bayashi.net
Loading...
Perl の CGI.pm について質問致します。 自分は通常、 use CGI; $q = new CGI; $os= $q->param('OS'); という風にフォームからデータを受け取っているのですが…