Perl

http://127.0.0.1/test2.cgi?jikanst=0&jikanend=24&youbi=0&rinji=0 以上のデータを、取得したいのですが、参文献の通りのつもりなのですが、「サーバーが見つからないか、DNS エラーです。」という表示がでてきます。なぜでしょうか？ よろしくお願いします。 #!/usr/bin/perl $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; $buffer = $ENV{'QUERY_STRING'}; @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($key, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $form{$key} = $value; } $jikanst = $form{'jikanst'}; $jikanend = $form{'jikanend'}; $youbi = $form{'youbi'}; $rinji = $form{'rinji'}; print "Content-type: text/html"; print "$jikanst,$jikanend,$youbi,$rinji";

正規表現の素人です。 サンプル豊富なサイトで勉強させていただきたいのですが、適当なサイトをご紹介いただけないでしょうか。 ＃perlはわかりません。 ＃aspのコンポネントでperl互換の正規表現を利用するための勉強。 ＃aspも初心者レベル。

ネットゲームを作るのに、Perlが必要だと お聞きして少し尋ねたいことがあるのでお書きしました。 僕は今からネットゲームを作成しようとしています。 しかし、まったくといっていいほど知識がありません。 はじめは誰でも知識がなかったと思います。 そこで、今はネットゲームを作れる方々にお尋ねします。 みなさんはどうやって学びましたか？ もしよかったら参考URLや参考文献を書いていただきたいです。 よろしくお願いします。

現在perlを使ってCGIに挑戦しています。 アンケート用紙のようなフォームを作りそこに 文字を入力してもうらうプログラムを作成しています。 そこで質問なのですが、アンケート用紙のような物に文字を入力してもらってオーケーボタン を押した時に、必ず入力してもらいたい所の入力漏れ注意や数字を入れてもらう所をかな入力で入れている人に注意をうながすようなサンプルを探していますがなかなか見つかりません。 どうかそのような本、ホームページ等、又それに関する資料等ありましたらどうかおしえていただけませんでしょうか？ どうかよろしくお願いします。

題名のとおりです。誰か知ってませんか？

system から得た情報を変数に入れるには、どうしたらよいでしょうか。 $ls = system("ls -l"); これをスクリプトの中に置いてコマンドライン上から実行すると、そのまま、ｌｓの結果が表示されてしまいました。 $ls は　0 を返します。 どうしたらよいのでしょうか。

boundary0 = multipart/form-data; boundary=---------------------------7d1723a5d04e6 boundary1 = 7d1723a5d04e6 本当ならば上記のようになるのですが、 下記のように連呼してでてきてしまうのはどうしてでしょうか？教えて下さい。 DIR = datafile PASS = sample TITLE = nowhere ACT = 登録１ CMT = 5435 SaveFile::boundary0 = multipart/form-data; boundary=---------------------------7d114e361370146,multipart/form-data; boundary=---------------------------7d114e361370146 SaveFile::boundary1 = 7d114e361370146,multipart/form SaveFile::boundary2 = 7d114e361370146,multipart/form print " $ENV{'CONTENT_TYPE'}<br>

perlのメーリングリストを行なっている所があれば教えて頂けないでしょうか。 お願します。

前回と同じ質問で、不可能との解答で締め切りましたが、 可能との意見が有るみたいですので、再度上げさせてもらいます。 print "<P><INPUT TYPE=submit NAME=\"送信\" VALUE=\"送信\"> <INPUT TYPE=submit NAME=\"削除\" VALUE=\"削除\"> <INPUT TYPE=reset NAME=\"クリア\" VALUE=\"クリア\">\n"; 上記のようなコーディングで、ボタンを表示させてますが、 どちらのボタンを押しても、送信しか受け取れません。 どこで、何をどのようにコーディングすれば読みとれるのでしょうか？

print "<P><INPUT TYPE=submit NAME=\"送信\" VALUE=\"送信\"> <INPUT TYPE=submit NAME=\"削除\" VALUE=\"削除\"> <INPUT TYPE=reset NAME=\"クリア\" VALUE=\"クリア\">\n"; 上記のようなコーディングで、ボタンを表示させてますが、 どちらのボタンを押しても、送信しか受け取れません。 どこで、何をどのようにコーディングすれば読みとれるのでしょうか？

htmlファイルに記述してあるメールアドレスをフォームCGIの送信先フィールドに入れたいのですがお教え下さい。 一般によくあるフォームCGIですと管理人等決まったアドレスに送信するようになっていますが、 これをhtmlファイルからsubmitボタンを押すと送信先(mailto)に入るようにするにはCGIの中にvalueで定義するのでしょうか？ その方法等ご存知でしたらご教授願いませんでしょうか？ perl初心者です。

$a=ccc として、 open(IN,"aaa/bbb/$a.csv"); っていうのは、うまく行くんですけど、 $a=aaa/bbb/ccc open(IN,"$a.csv"); っというのが、うまくいきません、なにかいい方法ありませんでしょうか、 それとも、こんな書き方はダメなのでしょか？

ある二つのファイル（moto1.csvとmoto2.csv）の２番目のフィールドが おなじときに二つのファイルの中身をあわせて別のファイル（kekka.csv）を 作る作業をしています。 下記のソースで※２の場所で何回もファイルをオープンさせるととても重いので ※１でファイルを一回だけオープンさせて処理しようと思ったら。 内側のループ（moto2_Log）が一回しか処理されないので困っております。 何かよいアイデアがありましたらよろしくお願いします。 open(moto1_Log,"< moto1.csv"); open(kekka_Log,"> kekka.csv"); ※１open(moto2_Log,"< moto2.csv"); while( <moto1_Log> ) { chop; @moto1_List=split(/,/); ※２ #open(moto2_Log,"< moto2.csv"); while( <moto2_Log> ) { chop; @moto2_List=split(/,/); if($moto1_[1] eq $moto2_List[1]){ print kekka_Log $S_List[0]; print kekka_Log ","; print kekka_Log $S_List[1]; print Export_Log ","; print Export_Log $S_List[2]; print Export_Log ","; print Export_Log $S_List[3]; print Export_Log ":"; print Export_Log $E_List[0]; print Export_Log ","; print Export_Log $E_List[1]; print Export_Log ","; print Export_Log $E_List[2]; print Export_Log ","; print Export_Log $E_List[3]; print Export_Log "\n"; #改行コード continu; } } } close (moto2_Log); close(kekka_Log); close(moto1_Log);

perlにてログの解析プログラムを作成しております。 ログは各データの区切り文字がスペースで出力されます。 その為、例えば文字列で「プログラムの異常が発生しました (発生ノード)」が出力されている場合split関数によって配列に格納しようとすると「プログラムの異常が発生しました」と「(発生ノード)」に分解されて格納されてしまい後ほどの処理に影響が出てしまいます。ログの仕様として文字列を出力するときには直前に文字列の長さを提示しております。例えば「43 プログラムの異常が発生しました (発生ノード)」のような形で出力されます。これらの条件で文字列を一つの配列に格納するにはどのようなプログラムを組めばよろしいでしょうか。 現時点で考えているのは文字列の長さが出ているのでその回数分文字を1文字づつ読み込むことを考えております。ただし全角と半角の区別が自動でついてしまうと厄介なので全部半角として取り込めないかなどを検討しております。 なにか他にいいアイデアがありましたら教えてください。

はじめて質問します。よろしくお願いします。 フォームからデータを受け取って、なんらかの処理をしてから、 locationで別のページへジャンプしたいのです。 下のソースで、ローカル（win95）では正常に動いたのですが、 サーバーに移すと送信後のtest.cgiがエラーになってしまいます。 text.txtへの書込みはちゃんと行われています。 原因がわからなくて困っています。 locationの使い方が間違っているのでしょうか？ ↓↓　test.cgiソース　↓↓ ------------------------------------------------------------ #!/usr/bin/perl require 'jcode.pl'; &decode; if ($FORM{'cmd'} eq "regist") { &write; # ファイル書込み print "Location: index.html\n\n"; } else { print <<END; Content-type: text/html <HTML><HEAD><TITLE>タイトル</TITLE></HEAD> <FORM ACTION="test.cgi" METHOD="POST"> <INPUT TYPE=TEXT NAME="message" VALUE=""> <INPUT TYPE=SUBMIT NAME="submit" VALUE="送信"> <INPUT TYPE=HIDDEN NAME="cmd" VALUE="regist"> </FORM> </BODY></HTML> END } exit; # ファイル書込み sub write { open OUT, ">test.txt"; print OUT "$FORM{'message'}\n"; close OUT; }

下記のショッピングカートを長く使っているのですが、 http://www.rescue.ne.jp/ 先週から、買物カゴに入れても価格が０円になったりするエラーが続いています。商品数も多くて、どのようにチェックしたらよいのか困惑しています。 ＃perlのことは何もわかりません。 ＃CGIを設置するのは自分でやりました。

htmlの中でcheckboxのデータをcgifile で表示できません。構成は 入力用のhtml file、それを受け取るcgi file、表示用のalert.htmlファイルです。 my $kako = $query->param('kako');　#html fileからのデータ受け取り用です #下のスクリプトは表示のためのperlコードとして書いています。 if($e_kako){ $t_kako.="<input type=\"checkbox\" name=\"kako\" value=\"裁断\"> 裁断 "; $t_kako.="<input type=\"checkbox\" name=\"kako\" value=\"中とじ\"> 中とじ "; $t_kako.="<input type=\"checkbox\" name=\"kako\" value=\"無線綴\"> 無線綴 "; $t_kako.="<input type=\"checkbox\" name=\"kako\" value=\"穴開け\"> 穴開け"; }else{ $t_kako = "$kako <input type=\"hidden\" name=\"kako\" value=\"$kako\">\n"; } #alert.htmlには下のようにして渡しています。 sub replaceTags{ foreach (@html){ s/<CGI:error message>/$errMsg/i; s/<CGI:error num>/$errNum/i; s/<CGI:kako>/$t_kako/i; データの渡し方がわからないのでよろしくお願いします。 下の場合はうまくいってます。 # page $t_page="<input type=\"text\" size=\"10\""; $t_page .= "name=\"page\" value=\"$page\">\n";

CGIで画像をアップロードできる掲示板をつくっているのですが、 gif、png、bmp、jpgなどの画像ファイルの縦横のサイズを取得する方法がわかりません。 縦横の比率を変えないでサムネイル表示させたいと思っているのですが、どうしたらよいでしょうか？？

問合せフォームでのことです。 HTML fileからの入力内容をCGI fileで表示させ送信ボタンを押して、 確認のalert.htmlに表示させることにしてます。 CGIfileの変数が一部alert.htmlで表示できません。 スクリプトは以下の通りです。 # imag_o　下の2行はうまくいってます。 $t_imag_o="<input type=\"text\" size=\"10\""; $t_imag_o.= "name=\"imag_o\" value=\"$imag_o\">\n"; #comment　下のスクリプトはうまくいきません。 $commentの内容が渡せなくCGI fileで表示された内容が空白になります。 $t_comment="<textarea cols=\"40\" rows=\"5\""; $t_comment.= "name=\"comment\" value=\"$comment\"></textarea>\n"; このスクリプトでデータを渡しています。 sub replaceTags{ foreach (@html){ s/<CGI:error message>/$errMsg/i; s/<CGI:error num>/$errNum/i; 　s/<CGI:imag_o>/$t_imag_o/i; s/<CGI:comment>/$t_comment/i; if ($errNum > 0){ s/<CGI:submit>/<input type="submit" value="送信">/i; }else{ s/<CGI:submit>//i; } } return 1; } 質問内容が不十分の所もあるかもしれませんが、よろしくお願いします。

投稿フォームにフリガナ欄を付けたのですが、 フリガナがカタカナかどうかを調べる箇所でつまづいています。 「ポケットリファレンス」を見よう見まねで下のように作ってみたのですが、 配列furiganaの各要素に一文字ずつ入ってくれません。 （文字列を数字に変換したものがひとつの要素に代入されてしまう） ループを使えば解決してしまうのですが、 「ポケットリファレンス」によると各文字ごとに各要素に入ってくれるようなので 納得がいきません。 いまいちunpackの使い方が分からないので、アドバイスありましたらよろしくお願いいたします。 #フリガナ欄の文字列を16進数に変換して配列に入れる。 @furigana = unpack("H*", $QUERY{furigana}); foreach (@furigana){ #シフトJISの0x8346より前もしくは0x8396より後なら if(($_ < 8340) || (8396 < $_)){ #フラグを上げる。 $flag = 1; } }