nyaa519323116のプロフィール

perl初心者ながら暇見て住所CGIフォームを作っています。 だんだん完成してきましたが今一歩です(T_T)ご指導下さい！ 名前、電話、都道府県、住所、の４つの項目があります。 {'nam'}　{'tel'}　{'pre'}　{'add'} {'pre'}はSELECToption　他はtextFORM 全部記入した時には、次に進めてOKなのです。 if ((($in{'nam'}) && ($in{'tel'}) && ($in{'add'}) && ($in{'pre'} > "0")) { print 全部未記入時でも、次に進んでも無記入なのでOKです。 エラー時に&errorのエラー画面に飛ばす事も出来ました。 ただ、書き忘れ時が困るので {'nam'}　{'tel'}　{'pre'}　{'add'}の内、１～３つとか記入して 他が抜けてたりした時だけエラーにしたいのです。 でも間違って空スペースとかでエラーが出て欲しくないし・・・ まずは下記でやってもまだダメです、($in{'pre'} > "0")が未選択時がダメです(T_T) 色々やってみたのですが、何か良い方法ありませんか？ #### ($in{'pre'} > "0")は、"1"以上が「真」の条件です。 if ((($in{'nam'} eq "") || ($in{'tel'} eq "") || ($in{'add'} eq "")) && ($in{'pre'} > "0")) { &error("エラー"); }

英語の電話応対について質問があります。 電話で伝言や予約などを受けた後、「私○○が承りました。」や、「私○○と申します。」と名乗りますが、それは英語では何と言えば良いのでしょうか。 また、色々、テキスト等を見ましたが、終わりに名乗っている例がありませんでした。英語では、最後には名乗らない文化なのでしょうか？

送信者のパソコンから、携帯に送られてきたメール本文は、読めるのですが、画像のみが開けません。 携帯から自分のパソコンに転送しても、同じです。 添付が、Winｍail.dat(4.34KB)となっており、 種類がｄａｔとなっております。 こちらのパソコンにはＤＡＴファイルはありませんので、インストールすると見れるのでしょうか・・・ 自分のパソコンはビスタです。 宜しくお願い致します

Perl初心者です。双方向に値を取り出せる　TwoWayMapクラスを作成し、以下の期待値を取得したいのですが、エラーが出てうまく実行できません。原因について、アドバイスをお願いいたします。 (エラーメッセージ） Can't locate object method "new" via package "TwoWayMap" at samplev2-2.pl line 6. （期待値） Apfel apple pear ----　TwoWayMap class ：ファイル名 samplev2.pl ---------------- package TwoWayMap; $forward_hash={}; $reverse_hash={}; sub put{ $forward_hash{$_[0]}=$_[1]; $reverse_hash{$_[1]}=$_[0]; } sub get{ return $forward_hash{$_[0]}; } sub rev{ return $reverse_hash{$_[0]}; } ---- main ファイル名：samplev2-2.pl------------------------ package main; use TwoWayMap; our $e2g = new TwoWayMap; $e2g->put('apple', 'Apfel'); $e2g->put('pear', 'Birne'); print $e2g->get('apple'), "\n"; print $e2g->rev('Apfel'), "\n"; print $e2g->rev('Birne'), "\n";

症状： perlのプログラム内でDBIを使うと、その後の行がすべてスキップされてしまいます。エラーをだしてくれることもなく、何が原因なのかさっぱりわかりません。 「 #!/usr/bin/perl use DBI; print "Content-type: text/html", "\n\n"; print "this is test"; $d = 'DBI:mysql:test:Localhost';# データソース $u = 'root';# ユーザ名 $p = 'mypass';# パスワード # データベースへ接続 $dbh = DBI->connect($d, $u, $p) or print "Can't connect to MySQL"; print "<br />success!"; 」 「this is test」は表示されるのですが、「success!」が表示されないのです。もちろん「Can't connect to MySQL」も、その他のエラー表示も表示されません。 「 $dbh = DBI->connect($d, $u, $p) or print "Can't connect to MySQL"; 」 の行を消すと、「success!」も表示されます。 DBIを再インストールしたほうがよいのでしょうか？　もともと、DBIをインストールするとき、いろいろてこずっていて、その時に何かおかしなことになってしまったのかもしれません。 それとも別の場所に問題があるのでしょうか。 ________________________________ 環境： Ubuntu8 Xampp ちなみにcpanで i DBIとやると、 「 CPAN: Storable loaded ok (v2.18) Going to read /root/.cpan/Metadata Database was generated on Fri, 20 Jun 2008 07:02:51 GMT Strange distribution name [DBI] Bundle Bundle::DBI (TIMB/DBI-1.605.tar.gz) Module = DBI (TIMB/DBI-1.605.tar.gz) 2 items found 」 とでます。 この問題のおかげでもう2日間作業がすすまないでいます。どなたか力をかしてください。おねがいします。