タグ

PerlとCGIに関するamayanのブックマーク (13)

  • 正規表現 - SMART 開発者のためのウェブマガジン

    正規表現の概要 正規表現は、Perlの中で最も重宝する機能のひとつです。正規表現にはテキスト処理のための様々な機能があり、文字列の中から特定のパターンを見つけ出したり、置換したりすることができます。 正規表現の基的な使用方法 たとえば、$strという変数に格納したデータの中から、「A」で始まって途中は何があるかわからないが最後が「E」という文字列を探したい場合、次のように記述することで、条件にマッチする文字列を見つけることができます。 $str =~ /A.*E/; 上記では、ドット( . )が改行以外の1文字を表し、アスタリスク( * )がその任意の文字の0回以上の繰り返しを意味します。このように、正規表現において特殊な働きを持った文字を正規表現演算子、またはメタ文字と呼びます。また、=~ はパターン結合演算子と呼ばれ、「左辺の値から右辺の値を検索する」という意味があります。 正規表現

    正規表現 - SMART 開発者のためのウェブマガジン
  • CGIモジュールで、同じ名前の入力フォームの値を全部取得するには

    2006年11月 7日(火) 21時52分42秒 [Perl/CGI] CGIモジュールで、同じ名前の入力フォームの値を全部取得するには HTMLのフォームから入力された文字列をCGIで受け取りたい場合、CGIモジュールのparamメソッドを使うと楽です。自力で、QUERY_STRING環境変数の中身を覗かなくても、パラメータ名(=HTMLの入力フォームに書いたname属性の値)を指定するだけで簡単に値を取得できます。 例えば、次のような感じで。 my $sakura = $cgi->param('sakura'); 上記の場合、HTMLのフォームにある「sakura」と名前を付けた入力欄から得られた情報が、変数$sakuraに格納されます。 例えば、1行入力欄であれば、次のよーなHTMLになるでしょう。 <input type="text" name="sakura"> というわけで、入

    CGIモジュールで、同じ名前の入力フォームの値を全部取得するには
  • http://perl.misty.ne.jp/06.html

  • メルマガ独自配信システム - ネットマニア

    クールサイトを作る為に。無料テンプレートで作るクールなホームページ。クールサイトを作るためのノウハウの公開から、PHPウェブログシステム・メルマガ独自配信システムの無料配布など。

  • 【CGI・Perl】全角数字を半角数字へ変換する

    CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー&ペーストで使える便利集! カテゴリー:数値 文字列  全角数字を半角数字へ変換する 全角数字を半角数字へ変換するにはJcodeモジュールで変換してやれば良い。 ;# ;#全角数字を半角数字へ ;# use Jcode; print Jcode->new('1234567890')->tr('[0-9]', '[0-9]')->sjis; 「tr('[0-9]', '[0-9]')」の部分の文字コードはEUCである必要がある。プログラム全体がシフトJISの場合は、変数に入れ、その変数をEUCへ変換した後に渡せば良い。 ■関連ページ ・半角数字だけかチェックする ・半角英字のみかチェックする ・半角英数字のみかチェックする ・半角数字を全角数字へ変換する ・全角カナを半角カナへ変換する ・半角カナを全角

  • CGIから送信するメールのヘッダに日本語を用いるには - とほほのWWW入門

    CGIスクリプトから送信する電子メールのヘッダに日語を用いるには、漢字コードを次のような形式に変換してやる必要があります。(EUCやシフトJISでもちゃんと届いて読める場合もありますが、電子メールの規約上は変換が必要です。) Subject: =?iso-2022-jp?B?GyRCJEgkWyRbGyhK?= これは、日語を一度JISコードに変換し、それを、BASE64という形式でエンコードし、前後に =?iso-2022-jp?B? と ?= をつけたものです。BASE64エンコードは、3バイト分のバイトコードを、6ビットずつの4つのコードに分割し、この6ビットを A~Z、a~z、0~9、+、/ の表示可能コードに振り分けるものです。perlスクリプトで、このエンコードを行う方法を次に示します。 jcode.pl は下記のページから入手できます。 ftp://ftp.iij.ad.

  • Perlモジュール/Walrus::Session::Lite - Walrus, Digit.

    以下のURLから取得して下さい。 http://digit.que.ne.jp/work/product/module/Walrus/Session/Lite/Lite_0.3.tar.gz このファイルはWalrus::Session::Liteモジュールと、それからDigest::Perl::MD5.pmを含んでいます。 従って、このファイルを展開すると、WalrusとDigestというディレクトリが作られますので、この2つをモジュールの検索対象になるディレクトリに置くだけで使用できます。 あらかじめ、セッションデータを保存するためのディレクトリを作っておいて下さい。 以下では、"./session/"がセッションデータ保存用だとします。 スクリプト中では、はじめにWalrus::Session::Liteをロードしておきます。 また、セッションデータに結び付けるためのハッシュを作成し

  • Kawa.net xp - Ajax&Perl技術情報(川崎有亮)

    Kawa.net は、川崎有亮(かわさきゆうすけ)のウェブサイトです。 このサイトでは主に、JavaScriptPerl・ActionScript などの技術情報を載せています。 Kawanet Blog II(ウェブリブログ) でも、日々の知ったこと・思ったこと・試してみたことを書いています。 2012年9月から、 Kawanet Blog III(はてなブログ)に引っ越しました。 国内・海外技術系カンファレンス Shibuya.pm、Shibuya.js、 YAPC(東京、シカゴ、コペンハーゲン、リスボン、リガ)、OSDC.TW(台北)、 Google Develoeprs Day、Adobe MAX などで講演したり、 The JUI、TokyoCloud などのイベント企画・運営も行っています。 ≫もっと詳しく 著書に、インプレスジャパン『ソーシャルストリーム・ビジネス』(共著

  • http://www.din.or.jp/~bigstone/cgilab/cgitips/mod_perl1.html

    amayan
    amayan 2006/10/16
    mod_perlはデフォルトではHTTPヘッダを出力しない
  • http://webs.xrex.net/k-shop/script/hash.php

  • XML::Generatorモジュール(日本語チョー訳)

    by Hippo2000(1999/10/18) XML::Generatorモジュールなのです。 なおこのドキュメントではXML::GeneratorのHTMLを元にしています。わかりにくい部分は物を見てください。(^^;; 原の著作権はBenjamin Holzmanさんがお持ちです。メールで了解をいただいています。 なお内容等が間違っていたら修正します。ご連絡ください 目次 名前 概要 説明 バグ 作者 参考資料 名前 XML::Generator - XMLを生成するPerl拡張 概要 use XML::Generator; my $x = new XML::Generator; print $x->foo($x->bar({baz=>3}, $x->bam()), $x->bar([qux],"Hey there,\n", "world")); __END__ #

  • [Perl] XML::TreePP - Pure Perl実装によるXMLファイル展開モジュール

    Kawa.netxp [Perl] XML::TreePP/Pure Perl実装によるXMLファイル展開モジュール XML::TreePP モジュールは、 XML ファイルを解析してツリー構造の多次元変数(ハッシュ/配列)に展開します。 XML テキストと Perl オブジェクト(ハッシュ&配列)間の相互変換が可能です。 コンパイル不要の Pure Perl 実装モジュールなので、 プロバイダのレンタルサーバ環境でも .pm ファイル単体のコピーのみで手軽に利用できます。 (Ajax で利用する JavaScript の XMLHttpRequest オブジェクトのように) サーバからの XML ファイルのダウンロード処理にも対応しています。 安定版アーカイブ: XML-TreePP-0.41.tar.gz TARGZ CPAN ←通常パッケージ 最新版ソースファイル: lib/XML/

  • :: Cepheid :: - ImageMagickの使用例 | 画像の入力・出力

    画像の入力・出力 基となる画像の読み書きです。Read()で指定した画像を読み込み、Write()で画像を書き出します。 #!/usr/local/bin/perl -w use strict; use Image::Magick; # 画像を指定 my $file = "sample.jpg"; # オブジェクト作成 my $image = Image::Magick->new; # 画像読み込み $image->Read($file); # 画像処理 $image->Emboss(radius=>2, sigma=>1); # 画像出力 $image->Write("output.jpg"); undef $image; exit; このスクリプトを実行すると、output.jpgが同じ階層に出力されるはずです。またWrite()に与えるファイル名の拡張子は自由に変更できます。例えば

  • 1