![]()
- ハッシュとif文
CGIを改造しようと何とかがんばってます。 ハッシュから確答するものを表示したいのですが、うまく出来ません。 まずは、別ファイルにリストを保存しています。 %jlist = ( 11 => '項目1', 12 => '項目2', 13 => '項目3', 14 => '項目4', ～～ ); そして、ログファイルには数字が保存されています。 $genre←11から99までの数字が保存 これをwhileで繰り返し表示するリストにちゃんと項目名を表示させたいのですが、うまく出来ません。 foreach $key (keys(%jlist)){ if($key eq $genre){ print "[$value]\n"; } } とてつもなく変なことをしているかもしれませんが、どのようにしたら解決できるか教えてください。
- ベストアンサー
- Perl
- master-3rd
- 回答数1
- 正規表現で全角スペースと誤認
OS:solaris8 perlのver：5.8.6 perlで、”食器洗い乾燥機｜０”という文字列に対し、 空白文字（半角スペース、タブ、改行、全角スペース） が含まれているかを検査しているのですが、 空白文字有りとなってしまいます。 恐らく文字コードの問題だと思うのですが、 詳しくないため、解決方法が分からないでいます。 どのようにしたら解決できるでしょうか？ require "jcode.pl"; としているので、jcodeのモジュールで 解決できないでしょうか？ 文字コードはEUCです。 以下はソースです。 # 空白文字（半角スペース、タブ、改行、全角スペース）が #入力されていないかチェック $data = "食器洗い乾燥機｜０"; if ($data =~ /\s|(?:\xA1\xA1)/) { #含まれている場合 } よろしくお願いします。
- クッキー発行がFirefoxだとできるのにIEだとできない
たびたびすみません。以下ソース。 #現在時から何秒足すか、又は引くか。 $AddOrDeduct = 3600 * 24; print "Content-type: text/html\n"; #クッキーがないときの動作。 #クッキーがない場合クッキーを期限1日で発行する。 if(!$ENV{'HTTP_COOKIE'}){ #クッキーが存在する場合の動作 #1日先のグリニッジ標準時を取得し、weeksとmonthsを定義 ($gmSec, $gmMin, $gmHour, $gmMDay, $gmMon, $gmYear, $gmWDay, $gmYDay, $gmIsDst) = gmtime(time + $AddOrDeduct); $gmYear += 1900; @weeks = ('Sun', 'Mon', 'Tue', 'Web', 'Thu', 'Fri', 'Sat'); @months = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); #クッキーの有効期限をその日の1日後までにする $limitTime = sprintf("%s\n, %02d-%s-%04d %02d:%02d:%02d GMT", $weeks[$gmWDay], $gmMDay, $months[$gmMon], $gmYear, $gmHour, $gmMin, $gmSec); #クッキー発行 print "Set-Cookie: myBool=1; expires=$limitTime\n"; print "\n"; print "クッキーないない($limitTime)\n"; } else { #クッキーがあった場合の動作。クッキーありと表示するだけ。 print "\n"; print "クッキーあり。"; } 問題はタイトルのように、Firefoxだとちゃんと2度目以降は「クッキーあり。」と表示されるのですが、IEだとずっと「クッキーないない(ry」のままなんです。 まだクッキーに関しての知識があまりないので解決法が分からなく、質問させてもらいました。 よろしくおねがいします。
- 正規表現で$1...$9を超える数の場合
正規表現で "(.+?)","(\d+?)"なら $1 $2で取得できますが、 (\d+?)\.(\d+?)... \.(\d+?)と20個ある場合に $1から $20まで使えるのでしょうか？ できない場合は、どうすれば、スマートに取得できるのでしょうか？
- CSSでフォントの大きさを指定するとき
CSSでフォントの大きさを相対指定したいのですが、Bodyでフォントサイズを８０％にすると、テーブルの中はもとのままの１００％の大きさです。そこで、Tableのフォントサイズも８０％にすると、0.8*0.8したようにさらに小さくなってしまいます。 たとえば、下のようなページだと ----------------------------- <BODY> あいうえお<BR> <TABLE> <TR> <TD>アイウエオ<BR> <TABLE> <TR> <TD>aiueo<BR> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </BODY> ----------------------------- 「あいうえお」が８０％の大きさで、「アイウエオ」はさらに小さく、「aiueo」はゴミのように小さくなってしまいます。 どのように指定すれば良いのでしょうか？よろしくお願いいたします。
- ベストアンサー
- CSS
- sakurako77
- 回答数3
- フォームメールで空白を含んだメールを受信したい
初心者です。 下記のような形でメールを受信する場合に、 変数と変数の間に全角の空白を入れたいのですが、 どうすればよいのでしょうか？教えてください！ $mail_data2 = <<END; 電話番号：$phone お届け先名：$namae 郵便番号：$post 住所：$pref$address[ここに全角の空白を入れたい]$saddress END
- フォームメールで空白を含んだメールを受信したい
初心者です。 下記のような形でメールを受信する場合に、 変数と変数の間に全角の空白を入れたいのですが、 どうすればよいのでしょうか？教えてください！ $mail_data2 = <<END; 電話番号：$phone お届け先名：$namae 郵便番号：$post 住所：$pref$address[ここに全角の空白を入れたい]$saddress END
- document.form.actionでの処理
以下のようなソースにて、 ・<form>のactionでは"send.php"へPOSTしたい。 ・javascriptにて、<select>で選択した値をhoge.phpへ渡したい 上記の事を実現するため、 ・リストから選んだ値を画像クリックで"hoge.php"へ渡し別窓で表示 ・"text"に入力した値をsubmitで"send.php"へ渡す といった処理をしているのですが、 "hoge.php"を参照した後に"text"へ何か入力してsubmitすると 本来send.phpへとぶはずが、"hoge.php"へとんでしまいます。 何が原因なのか、また最良を方法がありましたら ご教授頂ければと思います。 <script> <!-- function form_submit(url){ document.form.action=url; document.form.target = "_blank"; } //--> </script> | <FORM METHOD="POST" name="form" action="send.php"> <SELECT name="sel"> <OPTION value="001">001</OPTION> <OPTION value="002">002</OPTION> </SELECT> <input type="image" src="sub.gif" onClick="javascript:form_submit('hoge.php')"> <input type="text" name="text"> <input type="submit" value="送信"> </FORM> |
- 締切済み
- JavaScript
- efqeq
- 回答数2
- 文字をinsertしたい。
C++のstringクラスのinsertメソッドのようなことが可能な perl関数/モジュール？はありますでしょうか？
- document.form.actionでの処理
以下のようなソースにて、 ・<form>のactionでは"send.php"へPOSTしたい。 ・javascriptにて、<select>で選択した値をhoge.phpへ渡したい 上記の事を実現するため、 ・リストから選んだ値を画像クリックで"hoge.php"へ渡し別窓で表示 ・"text"に入力した値をsubmitで"send.php"へ渡す といった処理をしているのですが、 "hoge.php"を参照した後に"text"へ何か入力してsubmitすると 本来send.phpへとぶはずが、"hoge.php"へとんでしまいます。 何が原因なのか、また最良を方法がありましたら ご教授頂ければと思います。 <script> <!-- function form_submit(url){ document.form.action=url; document.form.target = "_blank"; } //--> </script> | <FORM METHOD="POST" name="form" action="send.php"> <SELECT name="sel"> <OPTION value="001">001</OPTION> <OPTION value="002">002</OPTION> </SELECT> <input type="image" src="sub.gif" onClick="javascript:form_submit('hoge.php')"> <input type="text" name="text"> <input type="submit" value="送信"> </FORM> |
- 締切済み
- JavaScript
- efqeq
- 回答数2
- フォームに書く文字を自動的に全角から半角文字にする方法は？
質問です。よく会員登録なんかのページで、住所とか入力するフォームがあると思うんですけど、あれって たとえば郵便番号を入力する場合、文字の入力設定が全角ひらがなになっているのに、フォームに書くと自動的に半角になるっていうのあるじゃないですか。 あれってどういうしくみになっているのですか？ javascriptで動いていると思うんですけど、perlかPHPでもできますか？ご存知の方がいらしたら教えてください。よろしくお願いいたします。
- QUERY_STRINGSで'#'文字を受け取るには
次から次へと質問ばかりでスミマセン・・・ GETメソッド前提で、QUERY_STRINGでデータを受けるようなCGIを作っています。 ところが、普通の文字の受け渡しは何の問題も無いのに、途中に'#'が入ると、 そこから後ろが消えてしまっています。 '#'も含めて、全部受け取る方法って無いでしょうか・・？ よろしくお願いします。m--m
- ベストアンサー
- CGI
- megumi1893
- 回答数1
- 切り分けてソート(?)
CGIを改造しようと努力中です。 イベント開催一覧のようなものを表示させたいので、更新記録CGIを改造しつつ自分の目的にあった表示にしたいと思っています。 この中で、日付ごとに表示をさせたいと思っています。 「$no,$titles,$comment,$img,$date」の形でログに保存していっています。 もちろん「$date」の項目に日付が入っているのですが、「2005/00/00～2005/00/00」または「2005/00/00～00/00」という「開始日と終了日」で保存されています。これを終了日でソートし、早く終わるものを一番上に持って来たいのです。 しかし、方法がさっぱりです。 概念的には… 1.$dateの「～」の前までを削除する 2.日付を数字に変換(?) 3.ソートして一旦格納 4.foreachで表示を繰り返す って感じですよね? この1～3の仕方がさっぱりわかりません。方法を教えてください。 言語はジャンルでも書いてあるとおりperlです。 抜けている情報があったら指摘してください。すぐに書込みします。 以上お願いします。
- ベストアンサー
- Perl
- master-3rd
- 回答数10
- 切り分けてソート(?)
CGIを改造しようと努力中です。 イベント開催一覧のようなものを表示させたいので、更新記録CGIを改造しつつ自分の目的にあった表示にしたいと思っています。 この中で、日付ごとに表示をさせたいと思っています。 「$no,$titles,$comment,$img,$date」の形でログに保存していっています。 もちろん「$date」の項目に日付が入っているのですが、「2005/00/00～2005/00/00」または「2005/00/00～00/00」という「開始日と終了日」で保存されています。これを終了日でソートし、早く終わるものを一番上に持って来たいのです。 しかし、方法がさっぱりです。 概念的には… 1.$dateの「～」の前までを削除する 2.日付を数字に変換(?) 3.ソートして一旦格納 4.foreachで表示を繰り返す って感じですよね? この1～3の仕方がさっぱりわかりません。方法を教えてください。 言語はジャンルでも書いてあるとおりperlです。 抜けている情報があったら指摘してください。すぐに書込みします。 以上お願いします。
- ベストアンサー
- Perl
- master-3rd
- 回答数10
- perlのクラスについて
perlでクラスを作成しています。その際、コンストラクタnewで無名配列を定義して、funcメソッドで、この無名配列に値をいれるにはどうすればよいでしょうか？ sub new { my $class = shift; my $self->array = []; bless($self, $class); return $self; } sub func { my $self = shift; $self->arrayに配列のデータを入れる。 }
- 切り分けてソート(?)
CGIを改造しようと努力中です。 イベント開催一覧のようなものを表示させたいので、更新記録CGIを改造しつつ自分の目的にあった表示にしたいと思っています。 この中で、日付ごとに表示をさせたいと思っています。 「$no,$titles,$comment,$img,$date」の形でログに保存していっています。 もちろん「$date」の項目に日付が入っているのですが、「2005/00/00～2005/00/00」または「2005/00/00～00/00」という「開始日と終了日」で保存されています。これを終了日でソートし、早く終わるものを一番上に持って来たいのです。 しかし、方法がさっぱりです。 概念的には… 1.$dateの「～」の前までを削除する 2.日付を数字に変換(?) 3.ソートして一旦格納 4.foreachで表示を繰り返す って感じですよね? この1～3の仕方がさっぱりわかりません。方法を教えてください。 言語はジャンルでも書いてあるとおりperlです。 抜けている情報があったら指摘してください。すぐに書込みします。 以上お願いします。
- ベストアンサー
- Perl
- master-3rd
- 回答数10
- Perlで基本認証を済まし、ページを取得する方法
Perlで基本認証を済まし、ページを取得する方法がさっぱり分かりません。 できれば抽象的な説明より、プログラムそのまま書いてくれませんか？
- メールフォームから大きめの添付ファイル送信したら有効期限切れページになる
Pealで書かれたメール送信フォーム（添付ファイル送信機能付き）から大きめの添付ファイルを送信したら、「ページを表示できません。」というエラーページか、有効期限切れページになってしまいます。 ただし、送信先にメールと添付ファイルはちゃんと送られています。 小さめのファイルであれば、問題なく送信後の送信済み画面に切り替わります。 Pealのソースを見ているのですが、待機時間を持っているようなところが見当たりません。 どのくらいまでのファイルサイズを許可するかを指定するところはあるので、そこには大きめのサイズを指定しています。 どのあたりを探れば、改善できそうですか？ お分かりになる方がいらっしゃいましたら、お教え下さいませ。
- メールフォームから大きめの添付ファイル送信したら有効期限切れページになる
Pealで書かれたメール送信フォーム（添付ファイル送信機能付き）から大きめの添付ファイルを送信したら、「ページを表示できません。」というエラーページか、有効期限切れページになってしまいます。 ただし、送信先にメールと添付ファイルはちゃんと送られています。 小さめのファイルであれば、問題なく送信後の送信済み画面に切り替わります。 Pealのソースを見ているのですが、待機時間を持っているようなところが見当たりません。 どのくらいまでのファイルサイズを許可するかを指定するところはあるので、そこには大きめのサイズを指定しています。 どのあたりを探れば、改善できそうですか？ お分かりになる方がいらっしゃいましたら、お教え下さいませ。