■

Perl Perl

メールアドレス判定 if( isMailAddress('m.ka-tsu-be@ichikoro.com') ){ print "メールアドレスです。\n"; } else{ print "メールアドレスではありません。\n"; } #--------------------------------------- #メールアドレスかチェックする #---------------…

2008-06-30

■

Perl Perl

絵文字にマッチさせる正規表現 #Shift_JIS体系におけるコード my $ascii = '[\x00-\x7f]'; #ASCIIと制御文字 my $two_bytes = '[\x81-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]'; #漢字 my $h_katakana = '[\xa0-\xdf]'; # 半角カタカナ #絵文字コード正規表現 my…

2005-12-05

■

perl perl

HTML::Templateモジュールを使ってCGIからテンプレートをセット際の、 TMPL_LOOPについて。TMPL_LOOPの基本的な使い方としては、・テンプレート記載・プログラム記載 my @value; my @val = ('ルフィ','ゾロ','ナミ','ウソップ','チョッパー','ロビン');…

2005-11-14

■

perl perl

GETでフォームからデータを送信する場合に、 URLエンコードという方法を使用します。文字列を '%a5%a8%a5%b9%a5%b1%a1%bc%a5%d7' こんな感じにエンコード(暗号化)します。 # $str を URLエンコードする $str =~ s/(＼W)/'%' . unpack('H2', $1)/eg; すると、…

2005-10-27

■

Perl Perl

sprintf sprintfは文字のフォーマットに使います。例えば、 my $month = 1; my $s_month = sprintf("%02d", $month); こうすると、1が、01という表示に変わります。 %02d というところが、何桁でどういった表示にするかという形式の部分ですね。詳しくは、…

2005-10-27

■

perl perl

Jcodeをつかって、半角→全角にしたりするには、 Jcodeのtrを使います。例： Jcode->new($str)->tr( 'アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨワヲン', '*')->euc(); カタカナを＊に置換して、カタカナか、そうでない…

2005-07-20

sort

Perl

ハッシュ値を並べ替えます。検索システムなどの時に使ったりするんですかね？昇順と降順は、$aと$bを入れ替えます。文字列を降順にする my @name_list = sort { $b cmp $a } @name; 数値を昇順にする my @num_list = sort { $a $b } @nums; ハッシュのキー…

2005-07-15

重複データの個数を数える

Perl

@fruits('みかん','もも','もも','みかん','みかん');このような配列があります。この配列で、「みかんが○個」「ももが○個」を調べたいとします。 foreach $name(@fruits) foreachで、配列の中身を一つずつ$nameに格納 { %hash; $hash{$name} => $hash{$nam…

2005-07-13

cookie

Perl

クッキーでは、ブラウザに情報を送ってユーザーを判別することができます。そのためには、HTTPヘッダを利用します。基本的には、クッキーを送るにはこのように書けばOKです。 print "Content-Type: text/html\n" print "Set-cookie: キー名=値; expires=有…

2005-07-07

半角カナを全角カナに。

Perl

jcode.pl版 require '../jcode.pl'; &jcode::convert(\$value,'euc'); &jcode::h2z_euc(\$value); Jcode.pm版 use Jcode; &Jcode::convert(\$value,'euc'); require Jcode::H2Z; &Jcode::H2Z::h2z(\$value); モジュールで使うときの記述 Jcode->new($query->…

2005-06-28

コンストラクタの継承

Perl

親 = Kaizoku.pm 子 = onepiece.cgiKaizoku.pm sub new { my $class = shift; my %args = @_; my $self = { tmpl_dir => $args{tmpl_dir}, tmpl_message => $args{tmpl_message} }; bless $self, $class; }これが、親のコンストラクタです。ここに、tmpl_for…

2005-06-27

修正で戻った時、フォームにデータを残す

Perl

確認画面で、「修正」で前の画面に戻った時に、データが残ってる場合と消えてしまう場合がありますよね。データが残っているのはブラウザによって違うので、確実に残すためにはプログラムできちんと指定してあげなければ。「戻る」ボタンで今まで使用して…

2005-06-22

メールアドレスチェック

Perl

では、以上のことをふまえて、メールアドレスのチェックをしてみましょう。今回は、携帯を含むことにします。携帯を含まない場合は、Perlメモを使うとほぼ完璧なメールチェックができると思います。まず、携帯で許可されているアドレスはというと、 AU .(…

2005-06-22

正規表現その３

Perl

$1 =~ /[^_0-9a-zA-Z\-\.]/ はて。なんですかね？これは。/パターン/これはOK。[^_0-9a-zA-Z\-\.]なんだこれ。。。文字クラスマッチングの対象となる文字列中に、[ ] （ブラケット）で囲んだ文字のいずれかをマッチさせるため表現です。ー(マイナス)は、…

2005-06-22

正規表現２(例題)

Perl

これはどういう意味か。 if ($str =~ /^(.+)@(.+)$/) /パターン/という形なので、中のものにマッチするかどうか調べています。^(.+)なんですかね？これ。複数の文字にマッチ ^ 文字列(行)の最初にマッチする $ 文字列(行)の最後にマッチする＊(アスタリスク…

2005-06-22

正規表現その１

Perl

パターン結合演算子スカラー変数（式）> =~ 演算子、置換演算子、変換演算子> 例： $input =~ s/&/&/g スカラー変数(式)とマッチ演算子、置換演算子、変換演算子を結合する。左側はスカラー変数(式)であること。マッチ演算子 /パターン/[修飾子]ある文字…

2005-06-17

文字数制限

Perl

文字の長さを調べるlength関数を使います。 $comment #制限したい文字 if(length($value)>10) { push(@message, '5文字以内で入力してください。'); } length関数で出る文字数は半角文字のバイト数なので、全角の場合は2倍した数字を入れなくてはいけません…

2005-06-16

HTML::Templateモジュール

Perl

ちょっと思い出しメモ。テンプレート作成 my $template = new HTML::Template(filename => 'kaizoku.html'); テンプレートに値をセット $template->param(prev => $perv); $teplate->param(next => $next); HTMLの作成 my $body = $template->output(); HTM…

2005-06-09

モジュール小技

Perl

小技です。子モジュールで属性(変数)をセットする部分がありました。to_email => ['mail'], from_mail => ['ruffy@kaizoku.co.jp']ここです。これは、メールフォームの作成で、問い合わせ相手に自動返信するものなんですが、ここに問い合わせてきた人のアド…