回答数
気になる
-
Cookieを用いてのセッション管理
以前も問い合わせさせていただいた件なのですが、 未だ解決していないので、再掲させていただきます。 やりたいことは、 個人認証のページを作り、ログオフ後、ブラウザの戻るボタンを押しても、 ログイン中となるのを避けたい。 以下のような感じで、cookieを使って実現しようとしているのですが、 ログオフ時にcookieの削除は、うまくいったのですが、 ブラウザの戻るボタンでログイン中のページに戻ると、 $ENV{'HTTP_COOKIE'}の中身を見ると、実際にはCookieは削除されているにも関わらず、 Cookieの情報がよみこまれているため、ログイン中となってしまいます。 何か基本的なやり方を間違っているような気がします。 どなたかご教授願います。 ↓a1.cgi(ログイン画面)-------------- : (ID、パスワード認証後) #Cookie書き込み print "Content-type: text/html\n"; print "Set-Cookie: NAME=aaa; expires=Tue, 1-Jan-2030 00:00:00 GMT;\n"; print "\n"; : ↑a1.cgi(ログイン画面)-------------- ↓a2.cgi(ログイン中)-------------- : #Cookie読み込み $cookie01 = "$ENV{'HTTP_COOKIE'}\n"; : <HEAD> <!-- キャッシュクリア --> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="Thu, 01 Dec 1994 16:00:00 GMT"> : </HEAD> : ↑a2.cgi(ログイン中)-------------- ↓a3.cgi(ログオフ)-------------- : #cookie削除。 print "Content-type: text/html\n"; print "Set-Cookie: NAME=aaa; expires=Fri, 31-Dec-1999 23:59:59 GMT;\n"; print "\n"; : </HEAD> : ↑a3.cgi(ログオフ)-------------- ※a1.cgi、a2.cgi、a3.cgiは同じディレクトリです。 よろしくお願いします。
質問日時: 2011/02/23 06:20 質問者: asakichi00
ベストアンサー
1
0
-
PERL 文字コード
アップロードするファイルを指定して同じファイル名で拡張子を変えてログを出力したいのですが、半角カナなどがあると化けたファイル名になってしまいます。 どう変換すればよいのでしょうか?
質問日時: 2011/02/21 13:44 質問者: nagomitei
ベストアンサー
2
0
-
warnやdieの出力先を変更したい
お世話になります。 現在perlを勉強しているのですが(ActivePeal5.12.2) コマンドプロンプトから test.pl > test.log と実行した場合、test.pl内で標準出力した文字列がtest.logにリダイレクトされますが test.pl内で ~die "ERROR~"とした場合、"ERROR~"はtest.logに出力されません。 これを簡単にtest.logに出力する方法はないでしょうか。 リダイレクトせず実行した場合、画面に出力されているのでリダイレクトすればそのまま良いと思っていたのですが・・
質問日時: 2011/02/21 11:56 質問者: kingyo1022
ベストアンサー
3
0
-
ファイルサーバーのDBへのアクセス方法
以前、ORACLEにアクセスする方法で悩んでいたものです。 結局、ORACLEを直接アクセスすることをあきらめてACCESS経由にしました。 自分のパソコンでCGIと同じフォルダにACCESSのDBを作って試験しました。 この環境では、成功しました。 そこで、ACCESSのDBをファイルサーバー上(色々なPCからアクセスさせるため)に おいて、同じことをしようとしましたら、DBへCONNECTできなくなりました。 ホスト名やポート番号はあっています。 何か他に必要なことがあるのでしょうか? どなたか教えていただけないでしょうか? 宜しくお願いします。
質問日時: 2011/02/16 16:56 質問者: hirocyan999
ベストアンサー
2
0
-
mac で perl open関数について
お世話になります。 現在、perlの勉強中です。 状況は mac osx 10.6.6です。 使用参考書は「perl言語プログラミングレッスン[入門編]」です。 CGIは関係なしで行っております。 open関数について参考書を読みながら、 勉強をしているのですが、openでファイルをオープンするときについてなのですが、 参考書上では、「関数openは、指定されたファイル名を持つファイルをハードディスクから探し出し、オープンしようと試みます」と言う説明があるのですが、 今現在、試している文例では、特定の場所にファイルがあるときでないと、 オープンしてくれません。 文例は [test.pl] use strict; use warnings; my $filename = 'file.txt'; open(FILE, $filename) or die "$filename: $!"; while (my $line = <FILE>){ $line =~ s/ /_/g; print $line; } close(FILE); という形で、ファイルの " " (スペース)を抜き出して "_" (アンダースコア)に置き換えるという設問です。 ただ、現況は /Users/(myname)/Documents/test/test.pl #(myname)は私の名前のフォルダです。 にあるコードをターミナル上で実行すると、 /Users/(myname)/file.txt に配置しているときしか、読み込んでくれません。 そこから、ファイルを移動させてしまうと、 読み込んでくれないのです。 そこで、ご質問ですが、 1 「関数openは、指定されたファイル名を持つファイルをハードディスクから探し出し、オープンしようと試みます」 と参考書に記載がありましたが、実際には探し出しはしてくれないのでしょうか? それとも、自分のパソコン、コードに問題があるのでしょうか? 2 自分が指定した場所にあるファイルをオープンするには どのようにすればよいでしょうか? ターミナルで指示するのか、それともコードに加えるべきか、 ご指示くださいませ。 また、詳しい方がおられましたら、 お答えいただければと思います。 それでは失礼します。
質問日時: 2011/02/16 14:49 質問者: dummyplugineva
ベストアンサー
3
0
-
perl ファイルが開かない
perl でファイルを開きたいのですが、なぜか開けません。何がいけないのでしょうか?エラーは、 Name "main::file" used only once: possible typo とでます。エラーを見るかぎり、コードに間違いはなく、apacheかOSに何か原因があるのではないかとおもうのですが、悩んでいます。OSはubuntuです。 #!/usr/bin/perl -w open (IN, "<test.txt") or die ("Could not open $file: $!"); while(<IN>) { print "$_"; } close (IN);
質問日時: 2011/02/16 10:17 質問者: MASA0901
解決済
3
0
-
perlでDBアクセスする際にapache設定
本日、DBI->CONNECTで返ってこないと質問をしたものです。 色々と調べているうちに、もしかしたらDBアクセスはおわり、その後のCGIが表示できなくなっているかもしれないと思うようになりました。 ORCLE9iがあるあとで、PERL,Apacheをインストールしました。 DBアクセスをしない状況ですと、CGIのプログラムは何の問題も無く、動きます。 ただ、DBアクセスしようとするとエラーもでない状況で、画面に何も出ません。 ApacheのORACLEに関する環境設定が必要なのでしょうか? 環境は、Windows XP Active Perl 5.8.7.813 DBI 1.602 ,DBD-Oracle 1.17 Apache 2.0.54 どなたか、わかる方いらっしゃいますでしょうか? この件で2日悩んでおります。 宜しくお願いします。
質問日時: 2011/02/15 16:11 質問者: hirocyan999
ベストアンサー
5
0
-
PARでperlで作成したものを実行体形式に
perlでプログラムを作成しています。 作成後、複数の人にプログラムを配るために、実行体の形式にしたいと思います。 PARを使えば、できそうと聞いたのですが、具体的にどのようにすればいいかわかりません。 どなたかご教授願えないでしょうか? 宜しくお願いいたします。
質問日時: 2011/02/15 10:55 質問者: hirocyan999
ベストアンサー
1
0
-
perlのdbi-connect処理のエラー
active perlでdbi-connect処理から戻ってきません。教えてください。 以下のテスト的なプログラムで試しました。 Xには、数字が入ります。(会社のファイルサーバーになります) DBI->connectから戻ってきていないようです。(hhhhhhhhが表示されません) ちなみにDBI->connectをコメントにすれば表示されます。 申し訳ありませんが、どなたかご存知の方いらっしゃらないでしょうか? エラーがかえってこないと、何が悪いかわかりません。 困っています、宜しくお願いします。 ちなみにPerlは、Ver. 5.8.7.813でdbi,dbd-oracleは、昨日ppmでダウンロードしました。 # DBへコネクトする my $datasource = 'dbi:oracle:usrDB:xxx.xxx.x.xx:8080' ; my $usr = 'usrname' ; my $pass = 'usepass' ; my $dbh = DBI->connect($datasource,$usr,$pass) ; print "hhhhhhhhhhhh\n" ; if( ! $dbh ){ print "gggggggggggg\n" ; } $dbh->disconnect();
質問日時: 2011/02/15 10:24 質問者: hirocyan999
ベストアンサー
1
0
-
CGIでマイSQLからデータを取得できない。
Perl初心者です。レンタールサーバでmysqlからデータを取得して表示するプログラムを作りたいのですインターネットで捜したのですがよく分かりませんでした。申し訳ありませんが駄目出しでも結構ですので直すポイントになるようなアドバイス、お願い致します。 #!/usr/bin/perl #変数宣言 print "Content-type: text/html;\n\n"; use DBI; $ds = 'DBI:mysql:XXXXXXXXXXX:localhost'; $user = 'XXXXXXXXXX'; $pass = 'XXXXXXXXXX'; print "test<br>\n"; $db = DBI->connect($ds, $user, $pass) || die "Got error $DBI::errstr when connecting to $ds\n"; print "test<br>\n"; #$sth = $db->prepare("SELECT mei FROM name"); #$sth->execute; # バス経路票の中身を表示したかったたのですが出来ませんでした。 $sth= $db->prepare(qq(SELECT * FROM 'バス経路票')); $sth->execute; while(@row = $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); } # 経路票の中身を表示したかったたのですが出来ませんでした。 $sth = $db->prepare(qq(SELECT * FROM '経路票')); $sth->execute; while(@row = $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); } # 駅バス停関係票の中身を表示したかったたのですが出来ませんでした。 $sth = $db->prepare(qq(SELECT * FROM '駅バス停関係票')); $sth->execute; while(@row = $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); } # バス経路票の中身を表示したかったたのですが出来ませんでした。 print "@basskeiro<br>\n"; # 経路票の中身を表示したかったたのですが出来ませんでした。 print "@keiro<br>\n"; # 駅バス停関係票の中身を表示したかったたのですが出来ませんでした。 print "@bassteikeiro<br>\n"; print "test<br>\n"; $rc = $sth->finish; $rc = $db->disconnect; exit;
質問日時: 2011/02/14 07:24 質問者: gusutaf
ベストアンサー
3
0
-
macでperl perldocについての質問
お世話になっております。 Mac os X 10.6.6でperlに挑戦しています。 私の知識量としては、 プログラムは初めて、macを使いだしてから2ヶ月と超初心者です。 現在、初歩のperlの本を参考に取り組んでます。 ターミナル上から、perldocを見ようと思い、記入しているのですが、 何故か上手く行きません。(perldoc はperlのマニュアルということで私は認識してます。) 例えば、joinと言う関数を調べようと思い、 ターミナル上で 1、perldoc join また 2、perldoc -f joinと記入しているのですが、 1の場合であれば、 No documentation found for "join". 2の場合であれば、 No documentation found for "perlfunc".と表示がされます。 ちなみに、ターミナルで打つのもおぼつかないのですが、 3、join とだけ打つと、 Usage: open [-e] [-t] [-f] [-W] [-R] [-n] [-g] [-h] [-b <bundle identifier>] [-a <application>] [filenames] [--args arguments] Help: Open opens files from a shell. By default, opens each file using the default application for that file. If the file is in the form of a URL, the file will be opened as a URL. Options: -a Opens with the specified application. -b Opens with the specified application bundle identifier. -e Opens with TextEdit. -t Opens with default text editor. -f Reads input from standard input and opens with TextEdit. -R, --reveal Selects in the Finder instead of opening. -W, --wait-apps Blocks until the used applications are closed (even if they were already running). --args All remaining arguments are passed in argv to the application's main() function instead of opened. -n, --new Open a new instance of the application even if one is already running. -g, --background Does not bring the application to the foreground. -h, --header Searches header file locations for headers matching the given filenames, and opens them. と表示されます。 1の命令では、 perldocにある「join」を探せ、 2では perldocにある関数の「join」を探せと命令していると思うのですが、 3は何を意味しているのか少々わからないため、怖いなあと思っています。 また参考書上はperldoc -f join で関数の説明が出てくるとの記載があるので、 出てこない私のパソコンには何か問題でもあるのかと不安に思ったりもしています。 そこで、質問ですが 1、perldoc -f ~で出てこない私のパソコンは何か問題があるのでしょうか? また、あるのでしたらその対応方法をご教授ください。 2、単に関数を打った場合、これはどのような命令になっているのでしょうか? 上記2点ご回答いただければと思います。お願いします。
質問日時: 2011/02/13 01:21 質問者: dummyplugineva
ベストアンサー
1
0
-
Perlでの複数行の切り抜きに関して
perlを使用して指定した先頭文字がヒットした行から 別に指定した先頭文字がヒットする一行前までを 切り出したいと思っています。 [例] 【変換前】 aa bb cc dd ab bc cd de ac bd de ef ad bd de ef ad bc cd ef ae bc cd df 【変換後】 ab bc cd de ac bd de ef 変換内容は上記の例ですと先頭文字がabから始まる行から 先頭文字がadで始まる行の1行前までを抜き出したいと思っています。 この場合どのようにPerlで記述をしてあげればよいか教えて頂けないでしょうか。 よろしくお願いいたします。
質問日時: 2011/02/12 17:01 質問者: emo_ken
解決済
2
0
-
Perlでファイルを読み込みタグを削除する方法
以下のようなソースを書きました。 HTMLファイルを読み込み、タグを全て削除して他のファイルに書き込むソースです。 しかし、上手く動作しません。 問題点を教えていただけませんでしょうか。 お願いします。 #!/usr/local/bin/perl package www3sub2; sub main(){ open(FH, "<googlefile3_.txt"); my @file = <FH>; close(FH); open(OUTB,"> googlefile6.txt"); foreach(@file){ my $line = $_; $line =~ s/<("[^"]*"|'[^']*'|[^'">])*>//g; print OUTB "$line"; close(OUTB); } } 1;
質問日時: 2011/02/11 06:08 質問者: dai_gokuh
解決済
5
0
-
perlでのcsv形式のテキストファイルの変換
perlを使用してcsv形式のテキストファイルを下記のように変換したいと思っています。 【変換前】 10, abc , def , ghi ,jkl ----1行目 10, abc , def , aaa, bbb ----2行目 10, abc , def , ccc , ddd ----3行目 11, abc , def , eee , fff ----4行目 11, abc , def , aaa , ggg ----5行目 11, zzz , def , aaa , ggg ----6行目 12, abc , def , aaa ,ggg ----7行目 12, zzz , def, aaa , ggg ----8行目 【変換後】 10, abc , def , ghi ,jkl ----1行目 11, abc , def , eee , fff ----4行目 11, zzz , def , aaa , ggg ----6行目 12, abc , def , aaa ,ggg ----7行目 12, zzz , def, aaa , ggg ----8行目 変換内容はcsv形式のテキストファイルで、”,”で区切った先頭3列が 前の行の先頭3列と同じならその行は出力しない、といった 変換をしたいと思っております。 (例えば2行目ですと先頭3列は10, abc ,defになっており、 1行目の先頭3列と同じ文字列になっているためこの行は出力しない) 当方、Perl初心者で上記のようなことがPerlでできるかも よくわかっておりません。 そこで、上記のような変換はPerlで可能なのか、そしてもし可能であるのなら どのようにPerlで記述すればできるのか教えていただけないでしょうか。 よろしくお願いいたします。
質問日時: 2011/02/10 01:37 質問者: emo_ken
ベストアンサー
1
0
-
perlで読み込んだURLを配列に入れたい
以下のようにカテゴリーとURLが書いてあるファイルがあり これをPerlでカテゴリとURLに分けて処理したいと思っております。 例えば配列としてカテゴリとURLを自由に呼び出せるよう にしたいのですが、あまりに初心者で方法が思いつきません。。。 テキスト ------------------------------------- Search Engine http://www.yahoo.co.jp http://www.google.co.jp Shopping http://www.rakuten.co.jp http://amazon.co.jp Sports http://www.mlb.com http://www.j-league.or.jp その後多数のカテゴリとURLが続く。。。 ------------------------------------- どんな方法でもカテゴリと関連したURLが取り出せればよいのですが、 例えば下記のような配列や、 $shopping[1] = http://amazon.co.jp あるいは下記のような多重配列にしてURLを扱うにはどのようにしたらよいでしょうか? $url[0][1] = http://www.google.co.jp よろしくお願いいたします。
質問日時: 2011/02/09 20:33 質問者: tasmania_1919
ベストアンサー
4
0
-
macでperl→apacheの環境設定について
macで独学でperlを勉強しています。 私の状況としては、 macを使って2ヶ月。 macbookair の mac os x の バージョン10.6.6 です。 windowsは5年くらい使っていましたが 映像編集とかネットサーフィンくらいにしか使っていませんでした。 macを買ってからは、 htmlはだいたい使えるようになった。 perlというより、プログラムは初めて勉強する。周囲にプログラム経験者はいない。 という状況です。 perlの勉強を開始して、1週間程、 地道に教科書を勉強して、localhost上でアクセスカウンタは実行できる。 まできました。 ただ、本来であれば作成の環境設定の段階で行うapacheの設定が理解しがたく、 設定を行っていませんでしたので、 フォームをhtmlに送るという段階で躓いてしまいました。 教科書では、ターミナルでapacheの設定を行うとの記載があったのですが、 調べて、Finder上の移動→/etc で隠しファイルを見つけて、 httpd.confを開くまでなんとか、辿り着きました。 ただ、この後、どのように設定を変えればいいのかが、わかりません。 いろんなサイトを見ましたが、 それぞれ書いてあることや記述日が異なり、 また、中級者以上向けに記載のあることがほとんどです。 大変お手数ですが、 この後どのような設定を行えばいいのでしょうか。 ご存知の方がおられればお教えください。
質問日時: 2011/02/09 19:25 質問者: dummyplugineva
ベストアンサー
2
0
-
html →perlへフォームを渡そうとしてますが
独学でmacでパールを勉強しています。 始めてからまだ1週間すこしくらい。 教科書読みながら、 CGIへフォームを渡す所の段階まで進んできました。 現段階で、htmlからperlへフォームを渡そうとしているのですが、 上手く行きません。 状況としては、htmlのフォームを入力して、登録を押す。 成功であれば→実行結果が表示されるはずなのですが、 現段階ではFinderがその実行htmlの場所を開くだけという形になっています。 下記は実験用に使っているソースです。 ーーーーーーーーーーー htmlは <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> <title>test</title> <style type="text/css"> </style> </head> <body> <h1>メンバーズリスト</h1> <form method="post" action="form.cgi"> <p> 名前:<br/> <input type="text" name="name"/> </p> <p> 性別: <input type="radio" name="sex" value="male" checked>男 <input type="radio" name="sex" value="female">女 </p> <input type="checkbox" name="megane">メガネを付けてる </p> <p> <select name="kankei"> <option value="yuujin">友人 <option value="kaisya">会社関係 <option value="sonota">その他 </select> </p> <p> 住所: <textarea name="jyusyo" rows="5" cols="40" ></textarea> </p> <p> <input type="submit" value="登録"/><input type="reset" value="クリア"/> </p> </form> </body> </html> ーーーーーーーーーーーーーーーーー perlは #!/usr/bin/perl require 'cgi-lib.pl'; &ReadParse(*form); $name = $form{'name'}; $sex = $form{'sex'}; $megane = $form{'megane'}; $kankei= $form{'kankei'}; $jyusyo = $form{'jyusyo'}; print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD><TITLE>情報受け取り</TITLE></HEAD>\n"; print " <BODY>\n"; print "<H1>情報受け取り</H1><HR>\n"; print "名前:${name}<BR>\n"; print "性別:${sex}<BR>\n"; print "めがね:${megane}<BR>\n"; print "関係:${kankei}<BR>\n"; print "住所${jyusyo}<BR>\n"; print "</BODY>\n"; print "</HTML>\n"; __END__ です。 ちなみに localhost上で同一ファイルに入れて、 動かしてます。 ご確認の上、ご助言ください、 perlの教科書に書いてあった構文は、 htmlの学習をするために使ってきたものと全く違ったため、 要点だけ残す形で、再度書いたものです。 htmlの文章がおかしいのか、perlがおかしいのか、 頭が変になりそうです。お助けください。
質問日時: 2011/02/09 16:25 質問者: dummyplugineva
ベストアンサー
2
0
-
perl の printでのファイルへの指示で
独学でmacでパールを勉強しています。 始めてからまだ1週間くらい。 教科書みながら、print命令でファイルハンドルに指示を出してるのですが、 書き込めはできるのですが、 ファイルが無い場合、 新規に自動でファイルが作成されるはずとの記載があったのですが、 何故か、自動でファイルが生成されません。 調べても、設定が必要等言われてますが、 mac自体も初心者でほとんどわかりません。 どのような設定にすればいいのでしょうか? また、ソースに何か悪い所があるのでしょうか? お助けください。 下記は実験用に作ったソースですが、 作動もしてるのですが、 新規に自動でファイルが作成されるはず が 何故か作成されません。 ちなみに localhost上で動かしてます。 #!/usr/bin/perl print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD><TITLE>test</TITLE></HEAD>\n"; print " <BODY>\n"; print "<H1>test</H1><HR>\n"; open ( FH ,">tukuruzo.txt"); print FH "tukuruzo"; close ( FH ); print "</BODY>\n"; print "</HTML>\n"; __END__
質問日時: 2011/02/09 00:19 質問者: dummyplugineva
ベストアンサー
3
0
-
perl の printでのファイルへの指示にて
独学でmacでパールを勉強しています。 始めてからまだ1週間くらい。 教科書みながら、print命令でファイルハンドルに指示を出してるのですが、 書き込めはできるのですが、 ファイルが無い場合、 新規に自動でファイルが作成されるはずとの記載があったのですが、 何故か、自動でファイルが生成されません。 調べても、設定が必要等言われてますが、 mac自体も初心者でほとんどわかりません。 どのような設定にすればいいのでしょうか? また、ソースに何か悪い所があるのでしょうか? お助けください。 ちなみに下記がソースです。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーー #!/usr/bin/perl print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD><TITLE>アクセスカウンタ</TITLE></HEAD>\n"; print " <BODY>\n"; print "<H1>test</H1><HR>\n"; if ( open ( FH , "count.txt")){ $cnt = <FH>; close( FH ); $cnt++; print"<CENTER>あなたは${cnt}人目の訪問者です。</CENTER>\n"; if ( open(FH, ">count.txt" )){ print FH $cnt; close(FH); } else { print "ファイルの書き込みオープンに失敗しました。\n"; } } else { print "ファイルの書き込みオープンに失敗しました。\n"; } print "</BODY>\n"; print "</HTML>\n"; __END__ ーーーーーーーーーーーーーーーーーーーーーーーーーー
質問日時: 2011/02/08 22:34 質問者: dummyplugineva
ベストアンサー
1
0
-
perl localhostでgifを表示するには
超初心者からプログラムを初めて1週間、 プログラム言語にはperlを使用しています。 mac os x です。 perlの教科書読みながら、アクセスカウンタを作ろうとした所、 何故かgif画像が表示されません。 ネットの素材置き場からとってきましたが、パソコン自身、gif自体は認識してくれてます。 ただ、それをperlに組み込んで使おうとすると、表示されません。 ブラウザはfirefoxとsafariで試しましたが、両方認識してくれませんでした。 ちなみにソースは ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー #!/usr/bin/perl print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD><TITLE>アクセスカウンタ2</TITLE></HEAD>\n"; print " <BODY>\n"; print "<H1>test</H1><HR>\n"; if ( open ( FH , "count.txt")){ $cnt = <FH>; close( FH ); $cnt++; print"<CENTER>\n"; foreach $fld (split (// , $cnt)){ print "<IMG SRC=\"${fld}.gif\">"; } print"</CENTER>\n"; if ( open(FH, ">count.txt" )){ print FH $cnt; close(FH); } else { print "ファイルの書き込みオープンに失敗しました。\n"; } } else { print "ファイルの書き込みオープンに失敗しました。\n"; } print "</BODY>\n"; print "</HTML>\n"; __END__ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー です。 テキストファイルを確認しているので、 perl 自体の活動と、アクセスのログ?自体は正常に動いているみたいです。 お願いします。 助けてください!
質問日時: 2011/02/08 22:25 質問者: dummyplugineva
ベストアンサー
3
0
-
perlのメールフォームが文字化け
perlのメールフォームが文字化けして困っています。 メールフォームの出力HTMLは、shift_jis それを、ISO-2022-JPに直して、送信しています。 また、jode.pl、mimew.plを使用しています。 何が原因で文字化けしているのか、教えていただけないでしょうか? よろしくお願いします。
質問日時: 2011/02/04 22:42 質問者: umeya_umeya
ベストアンサー
1
0
-
csvファイルを統合する
あるディレクトリにtest1.txtとtest2.txtというカンマ区切り(拡張子はcsvではないですけど)があったとして、それらのファイルを1行ずつ読み込み、それを追加書き出しで1つのファイルに収めていこうとしています。 そこで以下のようなコードを書いてみたのですが、どうやらtest1.txtしか読み込んで書き出せていないようなのです。その原因が分からずに困っています。 $dir = 'C:/Perl/workdir';# 対象ディレクトリ名 open MYHANDLE, ">>out.txt";# 追加書き出しモードでファイルハンドルをオープン opendir DH, $dir or die "$dir:$!";# ディレクトリを開く while ($file = readdir DH) {# ディレクトリにあるファイル名を取得し、$fileに格納 next if $file =~ /^\.{1,2}$/;# '.'や'..'も取れるので、スキップする open MYFILE, "$file";# 取得したファイルを開く while (<MYFILE>) { chomp; @dat = split /,/;# 読み込むファイルは「カンマ区切り」としてレコードを読み込む。 $n = @dat; for($i=0; $i<$n; $i++){ print MYHANDLE $dat[$i];# ファイルに追加書き出し(ファイルがなければ新規作成される) print MYHANDLE ",";# カンマ区切りで書き出していく } print MYHANDLE "\n";# 1行読み終えるごとに改行 } close MYFILE;# i番目のファイルを読み終えたら閉じる print $file, "\n";# 読み込み・書き出しをしたファイル名を表示する } closedir DH; close MYHANDLE;
質問日時: 2011/02/02 11:34 質問者: backs
ベストアンサー
2
0
-
「type=submit」をボタンにしない
早速お世話になります。 標題のように、 <input type=submit value="処理">とやった場合、 「処理」と表示されたボタンになりますが、 これをボタンの形にせず、文字のママにしたいのですが。 方法はありますでしょうか。 宜しくお願いします。
質問日時: 2011/02/02 10:32 質問者: nagahaha
ベストアンサー
1
0
-
UTF-8でのメール送信の問題点
メール送信のシステムをPerlで作っています。 文字コードUTF-8で送信しようと思っていますが、UTF-8の場合の問題点を教えてください。 自分で調べた限りでは、昔は対応していないメーラーだと文字化けしていたが、今は対応していないメーラーはないので、大丈夫、という認識です。 しかしながら、大手のAmazonやYahoo!、プロバイダや銀行などから飛んでくるメールは、ほとんど全てがISO-2022-JPで飛んできます。 自分が知っている限り、UTF-8を使用しているところはありません。 なので、UTF-8でメール送信することに不安を感じています。 AmazonやYahoo!は、UTF-8だと何か問題があったので、あえてISO-2022-JPを使っているのでしょうか? ISO-2022-JPだと 髙 などが文字化けするはずなのですが、髙→高に変換してメール送信しているのでしょうか? よろしくお願いします。
質問日時: 2011/01/31 12:54 質問者: ps5550
ベストアンサー
4
0
-
bad interpreter:エラーについて
-bash: ./test.pl: usr/bin/perl: bad interpreter: というエラーについてです。 掲題のエラーが出てしまい、perlが動かないので困っています。 どうすればいいのか教えてもらえませんでしょうか。 【状況】 VMwareplayer3.1.2上で、CentOS5.5を動かし、デフォルトで入っているperlを使ったファイル「test.pl」を作っています。 test.plを実行しようとしているのですが、以下のエラーメッセージが表示されます。 -bash: ./test.pl: usr/bin/perl: bad interpreter: そのようなファイルやディレクトリはありません 実行した際のコマンドは./test.plです。 test.plの中身は以下。 ------------------------------------------------------ #!/usr/bin/perl use strict; use warnings; my $name = "morifuji"; print "Hello ". $name . "\n"; ------------------------------------------------------ 【確認済み事項】 test.plの置き場所は/usr/bin/perlです。 ls -lで権限をみたところ、rwxr-xr-x furukawa root 4096となっている。 perl test.plと命令するとエラーは返らずちゃんと表示されます。 (perlを省いて、test.plと命令するとエラーになる。これだと、webから表示されたときに動きません) FTPとかで転送すると文字コードの問題でバグが出る、という風な記事を見かけたが、VMwarePlayerなのでそういったやりかたはしていない。 which perlと命令してperlの場所を探したが、 /usr/bin/ にある。
質問日時: 2011/01/30 17:42 質問者: syouzyou
解決済
2
0
-
全角の比較は無理なのでしょうか。
比較が上手く機能していません。 下のように書いていますが、全て緑になってしまいます。 (真の結果が採用されてしまいます。) if ($trm14 eq "●") {print "<font color='green'>";} else {print "<font color='red'>";} 全角は比較できないのでしょうか。 $trm14には間違いなく「●」が入っています。 入らない場合は""になっています。 $trm14はファイルの1項目です。 ちなみに、 以下のようにやればチャンと期待通りに機能します。 ●の代わりに「8」を入れてみました。 if ($trm14 == 8) {print "<font color='green'>";} else {print "<font color='red'>";} 宜しくお願いします。
質問日時: 2011/01/29 19:50 質問者: nagahaha
ベストアンサー
3
0
-
スクリプトの繰り返しの防止
下記のようなスクリプトがあります。 これは、CSVファイルを1行表示し、編集可能にするスクリプトの1行表示部分です。 これを全行表示するスクリプトに変更したいと考えています。 while ($cnt) { foreach(@csv2){ .............................. } } とすると無限ループするようです。(サーバーが固まる) webで調べたのですが、$cnt = '1'or die "$!"としても抜けだせません。 行が無くなったら作業を終了するとしたいのですが、どうすればいいでしょうか? 初歩的な質問で恐縮なのですが、レンタルサーバーをこれ以上固まらせるわけ にもいかないため、ご教授頂ければと思います。 @csv2 = split(/\<>/,$csv[$param{'num'}]); $cnt = '1'; foreach(@csv2){ &trString(\$_, "1",); if($_ eq $csv2[-1]){ chomp($_); } print "<tr>\n"; print qq|<td><input type="text" name="$cnt" size="30" value="$_"></td>|; print "</tr>\n"; $cnt++; }
質問日時: 2011/01/29 10:25 質問者: tajix14
ベストアンサー
2
0
-
ソート順の配列に順位表示する
Perlで、大きいソート順になっている配列があります。 その中には重複しているデータもあります @list = (100,80,80, 50, 50, 45, 10, 0, 0, 0); のような配列を @ranking = (1,2,2, 4, 4, 6, 7,10,10,10); と順位を格納させたいです。 簡単な方法がありましたら、教えてください。
質問日時: 2011/01/29 00:35 質問者: tec_info
ベストアンサー
4
0
-
perlでメールフォームを作成したいのですが……
perlでメールフォームを作成しようとしています。 fakesendmailでフォームデータを送信するように設定していますが、うまくいきません。 perlは動作しているみたいですし、fakesendmailのエラーログも動作しているので、パイプも問題ないと思います。 ですが、設定したメールアドレスの方にフォームデータが送信されません。 受信サーバ、送信サーバ、メールアカウント、パスワードもプロバイダ(フレッツ光)に教えてもらった通り設定しています。 サーバソフトはhttpdです。 何が原因で送信されないのでしょうか? 原因だけでも、教えていただけないでしょうか? よろしくお願いします。
質問日時: 2011/01/25 16:10 質問者: umeya_umeya
ベストアンサー
1
0
-
Perlからメール送信で文字化け
Perl5.8からsendmailを使ってメール送信しています。 髙や﨑が入ると文字化けします。文字化けしないようにする方法を教えてください。 #!/usr/bin/perl require 'jcode.pl'; require 'mimew.pl'; $sendmail = '/usr/lib/sendmail'; print"Content-type: text/html\n\n test\n"; if (!(open(OUT,"| $sendmail -t -i -f xxxx\@hogehoge.co.jp"))) { ; } print OUT "To: xxxx\@hogehoge.co.jp\n"; print OUT "From: xxxx\@hogehoge.co.jp\n"; print OUT "Reply-To: xxxx\@hogehoge.co.jp\n"; $subject = "サブジェクト 髙﨑"; $subject = &mimeencode($mail_subject); print OUT "Subject: $mail_subject\n"; print OUT "Mime-version: 1.0\n"; print OUT "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n"; print OUT "Content-Transfer-Encoding: 7bit\n\n"; $honbun = "メール本文 髙﨑"; &jcode'convert(*honbun, 'jis'); print OUT "$honbun\n"; close(OUT);
質問日時: 2011/01/24 11:25 質問者: ps5550
ベストアンサー
1
0
-
特定の改行コードだけ削除する
CSVファイルを変換するPGを書きたいのですが、 変換したいCSVには改行コード\nと\r\nが混在しています。 改行コード\r\nはそのままにして \nだけ削除したいのですが どのように書けばよろしいのでしょうか。 Perlは5.12.2です。 よろしくお願いします。
質問日時: 2011/01/23 14:56 質問者: redic_ayustim
ベストアンサー
6
0
-
PerlでGOOGLEの検索結果を書き出す
単語をGOOGLEで検索すると、ソースでは以下のように表示されます。 <!doctype html><head><meta http-equiv="X-UA-Compatible" content="IE=8"><meta http-equiv=content-type content="text/html; charset=UTF-8"><title>シュウマイ - Google 検索</title><script>window.google={kEI:"oZQ7TdTAAcLMcNDKlYUH",kEXPI:"17259,20782,28186,28233,28290",kCSI:{e:"17259,20782,28186,28233,28290",ei:"oZQ7TdTAAcLMcNDKlYUH",expi:"17259,20782,28186,28233,28290"},ml:function(){},kHL:"ja",time:function(){return(new Date).getTime()},log:function(c,d, 以下略 この長い文章をテキストファイルに書き込みたいと思っています。 できればCGIフォームを使用して、そこに入力された言葉で検索、検索した結果のソースをtxtファイルに保存したいのですが、どなたか教えていただけないでしょうか。 言語はPerlです。 よろしくお願いします。
質問日時: 2011/01/23 11:46 質問者: dai_gokuh
解決済
4
0
-
perlでの入れ子文字列削除
perlを利用して文字列処理を行う際に、入れ子になった文字列を削除したいのですが、正規表現のうまいやり方が思い浮かびません。 例としましては 今日は雨(雪ではない(この辺の処理に困っている))が降っている。 という文章を 今日は雨が降っている。 と処理できるようにしたいです。 $data =~ s/(.*?)//g; $data =~ s/)//g; というやり方では、3重以上になった時の処理ができません。 できれば何重になっても可能な方法をご教示ください。
質問日時: 2011/01/22 23:52 質問者: v6arxzmd
ベストアンサー
3
0
-
Perl 教えてください。
下記のような簡単なスクリプトなんですが、なぜかサーバーにアップすると動きません。 ローカルでコマンドプロンプトから直接実行するとまともに動作します。 パーミッションは「755」と「705」でやってみましたが。 perlのパスは合っていますし、実際同じ場所に置いた他のCGIは動作します。 #!/usr/bin/perl open (DT, "<./data/***/***.csv") or die "File '***.csv' Open Error."; @data = <DT>; $data[0] = ",,,,,,\n"; open (OUT,">./data/***/***1.csv") or die "File '***1.csv' Open Error."; print OUT @data; close (DT); close (OUT); 原因が分からず困っています。 解決策でなく、原因と思えるだけの回答で結構ですので何卒よろしくお願いいたします。
質問日時: 2011/01/22 00:06 質問者: swinxa70827
ベストアンサー
3
0
-
perlで変換時に十申曾箪貼等がもじばけ
データ管理の為perlで データの保存先のパスを \から/に変換させる事をしたいのですが、パスの途中、ファイル名に 十 申 曾 箪 貼 能 表 等の文字が入ると 文字が化けてしまいます。いろいろ調べて化ける理由は分ったのですが、やりたい事が出来ません。対応できる方法があれば教えてください。 文字コードはSHIFT-JISです 例:c:\申請表\能力検定\貼付け\十分.txt を c:/申請表/能力検定/貼付け/十分.txt に変換したいがどうしても以下の様になってしまう。 c:/・請・・力検定/・付け/・分.txt
質問日時: 2011/01/21 20:01 質問者: drdrdr
ベストアンサー
3
0
-
Cookieを利用したユーザ管理
perl(CGI::Session)を利用したセッション管理について教えてください。 【実現したい機能】 会員DB(IDやパスワードを保持)を使用し、認証を行い、 認証成功したらCookieを発行し、会員別のページを表示する。 会員DBのIDとCookieを紐づける機能は、CGI::Sessionにあるのでしょうか。 CGI側でCookieから会員DBのIDを結びつけるためには新たにファイルなどを作成する必要があるのでしょうか。
質問日時: 2011/01/21 14:07 質問者: okwave40
ベストアンサー
2
0
-
ロボットを.htaccessで排除したい。
ロボットが回遊してきてcgiを実行され、被害が出るので、 .htaccessでアクセス制限を掛けたく調べています。 .htaccessファイルは以下のとおり作れました。 ***ここから order allow,deny allow from all deny from xxx.xxx.xxx.xxx ***ここまで ただ、このファイルを置く場所が分かりません。 プロバイダーの指定では、 /use/local/www/htdocs/user-id/public_html/目的のディレクトリ と在ります。 これは、.htaccessファイルをここに置け、ということかと思いますが、 ここはどのように指定するのでしょうか。 使っているのは、フリーウェアのffftpです。 ffftpを実行したとき、 サーバー側に表示されているアドレスは / となっています。 そしてそこに、cgi-binフォルダやindex.htmlが表示されています。 .htaccessの説明を読んだ限りでは、 制限を掛けたいフォルダ(ディレクトリ)に置け、となっていました。 であれば、このルート部分に置きたいのですが。 関連でもう一つ、やらなければならないことはこれだけで宜しいのでしょうか。 例えばcgiファイルなどで何か定義し直す必要とか。 宜しくお願いします。
質問日時: 2011/01/21 11:21 質問者: nagahaha
ベストアンサー
2
0
-
perl上でのgrepでエラーとなる文字の対応
perlプログラム内で、grepを行っております。 grep対象の中身に +、*、(、)、[、]などの文字列が含まれているため、エラーとなり、 プログラムがうまく動作しません。 grepしたい対象データ例:http://www.XXX.co.jp/○○+▲▲ http://www.XXX.co.jp/○○+▲▲の+を 文字として判断し、正規表現扱いではないとしたい。 http://www.XXX.co.jp/○○+▲▲を含む文字を抽出したい。 perl プログラムにおいて @line1 = grep(/$url/,<ARG>); という記述しておりますが、どのように変更すればよいでしょうか? また、grepしたい対象データがファイルに格納されておりますが、 その中で、+を \+ にファイル一括変換する場合、:%s/+/\+/g で やろうとしても、変換されません。 perlプログラムでの対応、grep元ファイルの変換処理方法 それぞれのやり方について教えてください。
質問日時: 2011/01/19 15:47 質問者: 1204533
ベストアンサー
3
0
-
英字の大文字小文字および混在の扱い
早速ですが、 現在、指定された単語を含む文字列を抜き出す様なcgiを作っています。 現在のコーディングです。 foreach $line (@lines) { $an = index $line,$skey; if ($an >= 0) { 上記では、 $skey と全く同じモノしか検索(抽出)出来ないため、 今回、$skey が英字の時は、大文字、小文字、およびその混在でも 抜き出せるように改善したいと思っています。 例えば、abc と指定されたら、abcでもABCでもAbcでも抜き出せるような。 (英字と数字の混在や、全角は対象外で構いません。) 考え方として、 指定されたキー(文字列)を基に大文字、小文字を作り、 (uc関数、lc関数) 両方で検索してやれば殆どokと思うのですが、 混在の場合はどうやればいいか思いつきません。 また、 そもそも指定されたキーが英字であるかの判断方法が分かりません。 (大文字、小文字の変換は英字に限りますので) ということで、 (1)大文字、小文字の混在時の対応方法 (2)指定されたキーが英字であるかの判断方法 を教えていただきたくお願いします。
質問日時: 2011/01/19 10:26 質問者: nagahaha
ベストアンサー
1
0
-
FTP接続時失敗時、接続先名をcsvに出力する
Perl 初心者です。 FTP接続時失敗時、接続先名をcsvに出力する(書き出す)プログラムを作成しております。 ※複数FTPサーバがあり順番に接続していき、接続失敗したところをcsvに一覧にして出力したいです。もし、csvファイルがない場合、C:/logの下にERROR.csvを作成する必要もあります。 今現在、私が作成しているプログラムが以下になります。 #!C:/Perl/bin/perl use Net::FTP; use strict; my $i; my $j; my @ftp_data = ( ['ftp','192.168.0.0'], ['ftp2','192.168.0.10'], ); sub error{ my $file = "ERROR.csv"; if(!-d"C:/log/$file"){ open(TFILE,"+>> $file") or die($!); print OUT "$ftp_data[$i][0]"; close(TFILE); } else{ open(OUT, ">> $file"); # 追加オープン print OUT "$ftp_data[$i][0]"; close(TFILE); } exit; } for ($i = 0; $i <= $#ftp_data; $i++){ #FTPサーバーへの接続 my $ftp = Net::FTP->new("$ftp_data[$i][1]") or &error; #ユーザー名とパスワードを指定してログイン $ftp->login('user','password') or die $ftp->message; print "connect $ftp_data[$i][1]\n"; #接続終了 $ftp->quit; } 実行してみると何もでないでずっとループ?しているみたいなのですが、 どこが悪いのかよく分からないのです。 ご教示いただけないでしょうか?
質問日時: 2011/01/18 12:19 質問者: damedame_sao
ベストアンサー
2
0
-
perlで指定範囲を複数ファイルに分割する方法は?
お世話になります。 perlを使用して、 下記の元ファイル[infile.txt]よりstart~endの範囲を各テキストファイルに 分割出力する方法をご教授いただけないでしょうか。 ※出力ファイル名は元のファイル名 (infile) + 1行目の文字列(単語)にします。 例>>infile_1111.txt , infile_333.txt よろしくお願いいたします。 [infile.txt] aaaa bbbb start 1111 2222 end dddd eeee start 3333 4444 end
質問日時: 2011/01/16 00:25 質問者: yontans
解決済
4
0
-
perlのプログラミングで悩んでいます
open(IN,"<data/list.cgi"); @list = <IN>; close(IN); このようなプログラムで、 'abc','def','ghi' とだけ書かれた「list.cgi」をdataディレクトリに用意しています。 そして、print "$list[0]";で読み込むと、 'abc','def','ghi' と全て表示されてしまいます。 原因がわからないので、質問しました。 お願いします。
質問日時: 2011/01/15 13:56 質問者: ani0105
解決済
2
0
-
正規表現でURLから任意の文字列取得
文字列 http://dailynews.yahoo.co.jp/fc/ の http://dailynews.yahoo.co.jp を削除する正規表現を試行中です。 はじめたばかりでスキルが乏しいのですが、 アドバイスいただきたくよろしくお願いします・
質問日時: 2011/01/14 19:22 質問者: makiton
解決済
4
0
-
多次元配列を使用してFTP接続・フォルダ作成をする
csvから接続先名とIPアドレスを多次元配列を利用して引っ張り for文等でcsvに書かれている全接続先につなぎデータを取ってくるプログラムを作成しようと思っております。 しかし、多次元配列の使い方やfor文を調べても良くわからず困っています。 csvは、例えば以下の通り設定します。 【hp_ftp.csv】 hp1 192.168.1.12 hp2 192.168.1.10 hp3 192.168.1.20 以下、perlのプログラムです。 #!C:/Perl/bin/perl use Net::FTP; use strict; #FTPサーバーへの接続 my $ftp = Net::FTP->new('各サーバIPアドレス') or die; #ユーザー名とパスワードを指定してログイン $ftp->login('user','password') or die $ftp->message; #保存先ディレクトリの存在確認・作成 if(!-d"C:/接続先名"){ mkdir "C:/接続先名"; } else{ print"Directory already exists!\n"; } #保存先ディレクトリの変更 chdir("C:/接続先名/") or die; 以下略 #取得元ディレクトリの変更 #データ取得(for文で) #接続終了 【質問】 ・IPアドレス(192.168.1.12....)をcsvから引っ張りperlの'各サーバIPアドレス'に入れたい ・接続先(hp1...)をperlの'接続先名'と書かれている部分に入れたい どのようにプログラムを組めば良いのでしょう? ご教授の程宜しくお願いいたします。
質問日時: 2011/01/14 18:03 質問者: damedame_sao
ベストアンサー
1
0
-
use Util;を使いたいのですが・・・
初歩的な質問で失礼いたします。 CentOSのサーバーでcgiでプログラムを作成しているのですが、 「use Util;」を宣言時にエラーが発生してしまいます。 【エラー内容】 Can't locate Util.pm in @INC (@INC contains: ./lib /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi yumやcpanのコマンドでUtilモジュールをサーバーに入れればよいのですが、 「use Util;」はどのモジュールになるのかがわからず困っております。 試しに、yum list コマンドで Util が付いているパッケージを探し、yum install してみましたが解決されませんでした。 (yum -y install perl-Util-SelfDestruct.noarch など) ご存じな方がおられましたら、ご教示お願いします。 宜しくお願い致します。
質問日時: 2011/01/14 12:38 質問者: s-tan1130a
解決済
3
0
-
ftpホスト設定名を変数に入れフォルダ名にする
perl初心者です。 FTPの設定で、ホストの設定名・ホスト名(アドレス)などありますが、 FTPホストの設定名(HPSERVER)を変数として代入させ、その変数でフォルダ名として 使用することは可能でしょうか? 例えば、以下の場合 #FTPホスト名(アドレス) 111.111.111.111 #FTPホストの設定名 HPSERVER #作成するフォルダ名(C直下に作成) FTPホストの設定名(HPSERVER)
質問日時: 2011/01/14 10:14 質問者: damedame_sao
ベストアンサー
1
0
-
「認証情報をヘッダに挿入したGETリクエストを送信
表題のとおり「GETリクエストのヘッダにX-WSSE認証を追加して送出する」方法がわからず困っています。 なぜそれをやりたいかと申しますと ライブドアブログに投稿するのに、XML::Atomを使った方法はわかったのですが、 XML::Atomを使わないでやるにはどうしたらいいのかとおもい試しています。 http://www.witha.jp/Atom/Chapter-3_The_Atom_Publishing_Protocol_or_AtomAPI.html#Atom3-4-3 によりますと、 ---- エンドポイントのhttp://cms.blog.livedoor.com/atomに認証情報をヘッダに挿入したGETリクエストを送信します. 生のHTTP通信は以下のようになります. リクエスト: GET http://cms.blog.livedoor.com/atom HTTP/1.1 X-WSSE: UsernameToken Username="***", PasswordDigest="eNSBiuFfcLpau1RfWc3lOWufje0=", Nonce="ZGFrZHZueGJ6aGh1", Created="2004-10-31T14:08:34Z" --- と、あっさり書いてあるのですが、 ◆「認証情報をヘッダに挿入したGETリクエストを送信」◆はどうやれば良いのやら・・・ 強引にこうかいてみたのですが・・ -------- use LWP::UserAgent; $request = HTTP::Request->new(GET => 'http://cms.blog.livedoor.com/atom', ['X-WSSE'=>'User nameToken Username="*****", PasswordDigest="KxZ4DElJVqsIBXiF9ZIWCp59ghM", Nonce="YWFh", Created="2004-01-20T01:09:39Z"']); $ua = LWP::UserAgent->new; $response = $ua->request($request); print $response->content; ---------- 以下のように成ってしまいました。 ---------------- <?xml version="1.0" encoding="utf-8"?> <error>Invalid login</error> ---------------- どうかよろしくおねがいします。
質問日時: 2011/01/13 10:01 質問者: azicyan
ベストアンサー
1
0
-
IIS7.0でPerlのCGIにてバックグラウンド
はじめまして、初心者の質問で恐縮ですが、以下の点を教えて欲しいです。 IIS7.0のWebサーバで、CGIプログラムをPerlで作っているのですが、forkした子プロセス で時間のかかるバックグラウンド処理を行って、親プロセスでWebブラウザに返す処理を しようとしていますがうまくいきません。重たい処理が終了するまでWebブラウザに応答 されません。(子プロセスの終了が終わるまで、親プロセスのHTML表示処理がWebブラ ウザに返答されません)通常、子プロセスでclose(STDOUT)で親プロセスのHTMLの 表示処理が出来ると思っていますが。。。 どのようにすれば良いか教えてもらえると幸いです。以下は参考のプログラムです。 よろしくお願いします。 $|=0; if ( $pid = fork){ #親プロセス &disp_html(); #HTMLを表示させるプログラム wait; }elsif (defined $pid) { #子プロセス close(STDIN); close(STDOUT); close(STDERR); &heaby_prog(); #重たい時間のかかる処理 exit 0; } else { die "Can't fork: $\n"; } よろしくお願いします。
質問日時: 2011/01/10 10:27 質問者: yamakiyo2
ベストアンサー
2
0
-
リンク先の画像サイズの取得
以下のようなリンク先の画像の縦横のピクセルサイズを取得することは可能でしょうか。 http://www.hogehoge.com/images/sample.gif 登録式の検索エンジンで登録バナーサイズの判定をしたいと思っております。 もし出来るということであれば具体的なソースも教えて頂ければ幸いです。 どうぞ宜しくお願い致します。
質問日時: 2011/01/08 18:43 質問者: das_horn
ベストアンサー
3
0
-
perlでの三次元配列の作り方
perlで三次元配列をテキスト入力から作りたいのですが、例えば二次元配列の場合 foreach $line (@input) push @data, [split /[:]/, $line]; で@dataが二次元配列になるのですが、三次元配列の場合このあとに push @output, \@data; とするとリファレンスが同じであるためループをまわしてもうまく三次元になりませんよね。 解決法はありますでしょうか?
質問日時: 2011/01/07 13:28 質問者: keishie
解決済
2
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Perl】に関するコラム/記事
-
タンス預金で旧紙幣を持ち続けるのは大丈夫?タンス預金のメリット・デメリットを紹介
今年7月、約20年ぶりに新紙幣が発行される。紙幣が変わることを改刷というが、この改刷には「タンス預金をあぶり出す目的があるのでは?」という見方をする人もいるという。「教えて!goo」にも「改刷で本当にタンス...
-
投資詐欺の手口や被害に遭わないためのポイント、被害後の対応策を弁護士が解説
新NISAが始まって間もなく半年が経過する。政府の旗振りの元、預貯金大国から脱却し、資産運用立国に向けた滑り出しは順調のようで、それはNISAの利用状況(2023年4月から2024年4月)を見ても明らかだ。 ・NISA口座...
-
メダロット:第247話「Vol.247※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
都内23区の火葬料金が6月からまた値上げ…(5万→7.5万→8万超→9万)なぜ?
都内23区には火葬場が合計9箇所あり、それらが区民の火葬のほぼ全てを支えているのだが、そのうちの6箇所(町屋斎場、四ツ木斎場、桐ケ谷斎場、代々幡斎場、落合斎場、堀ノ内斎場斎場)が6月から9万円に値上げをする...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストファイルで提出とは?
-
Strawberry Perl for Windows で Ou...
-
perlプログラミング 空白行削除
-
TeraPadエディターの操作方法について
-
bashスクリプト
-
INDIRECT 横に再度抽出したい
-
Perl ある特定の文字にある数値を1...
-
perlの正規表現などを用いたテキス...
-
Perlで時間の計算
-
積分計算の答えが合いません・・・
-
LinuxにおいてのPerlのプログラムの...
-
配列へのリファレンスへのリファレ...
-
perlで自動ログインをしたいが、方...
-
Windows版のPerlについて
-
Perl 正規表現
-
フローチャート 九九
-
アルファベットに付いて質問します...
-
#!/usr/bin/perlで書きだしたCGIを...
-
Perlのエラーについてご教授くださ...
-
perlのflock関数でロックをかけたま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストファイルで提出とは?
-
openした後、closeしないでプログラ...
-
perlをバージョンアップしたら、今...
-
アルファベットに付いて質問します...
-
Perl の外部モジュールの利用方法
-
Strawberry Perl for Windows で Ou...
-
Perlのエラーについてご教授くださ...
-
perlプログラミング 空白行削除
-
INDIRECT 横に再度抽出したい
-
Perlで時間の計算
-
Wallpaper Engineでおすすめの壁紙...
-
bashスクリプト
-
perlでリテラル値はメモリにどのよ...
-
perlのプログラミング 部分入れ替え...
-
Perlで特定文字列から特定文字列ま...
-
perl LWPでURLにアクセスした時にデ...
-
perlで2次元配列をサブルーチンに...
-
perlのrequireの動き方についての質問
-
ファイルアイコンの左下に緑の□の中...
-
C言語の問題について
おすすめ情報