- ベストアンサー
1==0 ?
お世話になります。PERLは初心者で、なぜか、既存プログラムの解析を行うことになり、ご質問申し上げます。 if (1 == 0) { $UID = 'XXXXXXX'; $TARGET = 'XXXXXXX'; $MODE = 'M'; $SAMPLEMAKE = 1; } とあるcgiの中にという記述があり、どうもデバック用のロジックのような気もするのですが、そもそもPERLで if (1 == 0) と書くと1イコール0か?ってことですよね? そもそもそんなことありえないと思っているのですが、 どういう意味なのでしょうか? よろしくお願いいたします。
- cshoaucmoa
- お礼率75% (41/54)
- Perl
- 回答数2
- ありがとう数3
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
デバッグ用の為の行と思われます。 if (1==0)は成立しないため、そのif文内のステップは実行されません。 そのステップを実行したいときに if (1==1)と、置き換えれば、常に実行されることに なります。 perlの場合、行の先頭に#をつければコメントになりますが、複数行を一度にコメントアウトする機能がないので、このようにされているのでしょう。
その他の回答 (1)
- Ethersky
- ベストアンサー率71% (168/235)
> どういう意味なのでしょうか? そのまんま1と0が等価(イコール)かどうかの式ですね。 デバック用ということであれば、デバックモードで動作させるときだけ 1 == 1 または 0 == 0 と書き換えて $UID = 'XXXXXXX'; $TARGET = 'XXXXXXX'; $MODE = 'M'; $SAMPLEMAKE = 1; を定義させたいのかもしれません。 が、これだけでは何をするためのプログラムなのか分からないので確信はもてませんけど・・・。 (早い話が作者に訊くのが手っ取り早いです)
お礼
ありがとうございました。想像どおりでしたが、確認できてよかったです。(ちなみに、前担当者はもうやめてしまっていないのです・・・。PERL初心者の私にとって、プログラムが仕様書、というのはちょっときついです)
関連するQ&A
- cgiから別のcgiをコールする方法を教えてください。
いつもお世話になります。 プログラムとプログラムを結合しております。最初はサブルーチン化しようと思いましたが、元のプログラムの解析ができず。プログラムのコールしたいと考えております。perlから別のperlで作成したcgiをコールする記述方法を教えてください。初歩的な質問で申し訳ありません。
- ベストアンサー
- Perl
- CGI Perl のデバックで
CGI Perl のデバックで ブラウザーに出力指定しました。 記述したCGIがそのまま表示されますが、どこかおかしいところは 何か印が付くんじゃないんですか? str.fileNotFoundNote が出て困ってます。 サーバーのCGIのディレクトリーなどは確認済みで、その通り指定してますが。 CGIのデバックでは 判らないですかね? 初心者マークで ほんとに すみません。
- ベストアンサー
- Perl
- こういうことってできるんでしょうか?
まだまだ勉強中なので、よく理解できてない点が多いんですが、PerlでCGIプログラムを組まなければいけなくなりそうなので質問させていただきます。 したいことは ●あるログファイルが一定の量を超えると、他のサーバにそのログファイルを移したい。 ●他サーバに移したログファイルは削除し、新たなログファイルを生成する です。 これをおそらく既存のCGIに埋め込む形で作ることになりそうです。 フリーで公開されているスクリプトを見ていると、ログファイルを過去ログとして保存していくことができるのはわかっています。 それを他サーバに移すことは可能なんでしょうか? また、既存のCGIでは、そのログからアクセス解析等を行っています。 他サーバに古いデータが移ってしまうと、おそらく解析結果も変わってしまうことになりますよね? 仮に上記のようなプログラムが組めるものとして、やっぱりかなり難しいプログラムになるんでしょうか?
- ベストアンサー
- CGI
- Perlプログラム上でアラートを表示
現在、Perlにてチェックプログラム(チェック内容は省かせていただきます)を作っています。 もともとはweb上で「登録」をクリックすると以下のような csh で記述されたcgiが実行され、 ------------------------------ #!/usr/bin/csh echo "Content-type: text/html" echo "" ~中略~ ./既存プログラムA.exe ------------------------------ 最終的に「既存プログラムA.exe」が起動するというような物で、今回この「既存プログラムA.exe」が起動される直前にチェックプログラムを実行するというものです。 前置きはこのような感じで、教えていただきたい内容は、 チェックプログラム内の記述に以下のようなチェック項目があります。 ------------------------------ if(!(-e $CIRCUIT)){ print"END"; exit(0); } ------------------------------ 「$CIRCUIT」というフォルダが存在するか否か、存在すれば次のチェック項目へ、存在しなければ処理終了というような単純な構文なのですが、 このif文内に、"そのようなフォルダはありません"アラートを表示させるような記述を追加することは可能でしょうか? サンプルURLや情報等お持ちの方いらっしゃいましたら、 よろしくお願いいたします。
- ベストアンサー
- CGI
- 検索インデックスを複数指定したい場合
お忙しいところ、お世話になります。 例えば、検索用のa href=にXXXXX.cgi?mode=list&index=10と指定していて cgiに対し、listとindex=10に合致するものをtargetに表示するようにしておりますが、index=40も必要な場合は、どのように記述すればよろしいでしょうか? ただ単にlist&index=10&index=40では、うまくいきません。 mode=list&index=10とmode=list&index=40の結果を合わせてtargetに表示させるように命令をおこないたいです。 ご教授よろしくお願いします。
- ベストアンサー
- CGI
- perl オリジナルのアクセス解析を作成したい
Perlを使ってアクセス解析のCGIを作成したいのですが、参考になるサイト等ありましたら教えてください。 理想としては、メインのindex.htmlのページの中にこっそりとCGIプログラムを呼び出すjavaScriptを仕込んでおこうかと思っているのですが、可能でしょうか。
- ベストアンサー
- CGI
- CGIの最初の記述
つい先日、CGIをテキストエディタで開き編集をしていたところ最初にPerlの場所を示すパスらしきものが記述されていました。#!/usr/bin/perlみたいなのです。 そこで質問なのですが、/usr/bin/perlとはどこを示しているのでしょうか? 私、ウィンドウズPCでWWWサーバーを開設しておりますのでやはり気になってしまいます。それと言うのも、Apacheというソフトで開設しているのですがそのソフトでCGIを動かそうとすると、動かしたいCGIプログラムの最初の記述である/usr/bin/perlを私のサーバーのPerlをインストールしているフォルダへのルートに書き換えなくてはCGIが動かないからなんです。大変困っております。どうか、皆様私にお力をお貸し下さい。
- ベストアンサー
- CGI
- perlでステップイン
perlを勉強しています。 現在掲示板を作成しているのですが、思ったように動いてくれません。 例えば if ($FORM{'mode'} eq "test") { &test; } といった感じに記述しているのですが、mode=testでも sub testを通っていない状態なのです。 そこで、ステップイン実行が出来れば、どこがおかしいのかが わかりやすいと思ったのですが、そういうソフト等ってあるのでしょうか? ご存知でしたら教えてください<(__)>
- ベストアンサー
- Perl
- 解析タグについて
よろしくお願いします。 作成したホームページの解析を取りたく、フリーで利用させていただけるcgiを利用させていただいております。設置する際なのですが、記述がHTML用になっているようで、htmlチェッカーにかけると記述エラーが出てきます。このような場合、タグの大文字で記述されている箇所を小文字にすれば良いものなのでしょうか? また、そのような場合きちんと解析等も出来るのでしょうか? ご参考までに掲載させて頂きます。 よろしければ、ご覧になってください <SCRIPT language="JavaScript"> <!-- document.write("<IMG src='cgi/log.cgi?mode=rec" + "&swh=" + screen.width + " x " + screen.height + " pixel" + "&scd=" + screen.colorDepth + "&ref=" + document.referrer + "' " + "width=1 height=1>"); // --> </SCRIPT> <NOSCRIPT> <IMG src="cgi/log.cgi?mode=rec&swh=NoScript&scd=NoScript&ref=NoScript" width="1" height="1"> </NOSCRIPT> ご指導の程よろしくお願い致します。
- ベストアンサー
- HTML
- 携帯用 cgi プログラミングの参考サイト
携帯やモバイル端末用 cgi(perl) プログラミングに 参考となるようなサイトはありませんか。 通常のブラウザ用に作った perl プログラムが、携帯用のページに設置すると動かなかったりします。 記述に違いがあるのでしょうか。
- ベストアンサー
- Perl
お礼
ありがとうございました。確認できてよかったです。 確かに全部の行に#をつけていくと、何らかのミスが起こりえますが、0を1に変えるだけならミスの確立は減りますね。勉強になりました。