ActivePerlをコマンドプロンプト上で実行させる際の環境変数の渡し方を知りたい。（渡したい値に=あり）

Question

お世話になっております。

基本的な事で質問して申し訳ございません。
WindowsServer上のPerlのエラーログにファイルオープンエラーを表示させる方法が知りたい
内でdodox86様よりご助力頂き上記問題は解決したのですが
新たな疑問点が出てきたため質問失礼いたします。

下記のようにPerl内でPOSTやGETデータを取得しております。

if ($ENV{'REQUEST_METHOD'} eq "POST") {
	read(STDIN, $a, $ENV{'CONTENT_LENGTH'});
}else{
	$a = $ENV{'QUERY_STRING'};
}
@a = split(/&/,$a);
foreach (@a) {
        ($variable,$value) =  split(/=/);
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        if($variable eq "year"){
            $year = $value;
        }
        if($variable eq "mon"){
            $mon = $value;
        }
        if($variable eq "title"){
            $title = $value;
        }
        if($variable eq "bukken"){
            $bukken = $value;
        }
}

$year   =int($year);
：

IIS上のPerlからでは

schedule.pl?bukken=yamagata&tab=yamagata&year=2020&mon=7

とデータを取得しています。

でしがデバッグしようとしている
コマンドプロンプト上からでは上記値をどうやって渡すのがスマートなのか
ググっても良く分からなかったので質問してよろしいでしょうか？

QUERY_STRINGに値をいれようと下記のようにしてみたのですが

D:\schedule2>set QUERY_STRING test
環境変数 QUERY_STRING が定義されていません

と表示されます。

お忙しいところ大変申し訳無いのですが上記お問い合わせいたします。

Comments

[dodox86]

> QUERY_STRINGに値をいれようと下記のようにしてみたのですが
> D:\schedule2>set QUERY_STRING test

回答は控えるつもりですが、ここだけコメントします。先のご質問のコメント欄で私が以下、例示したように、
例： C> SET QUERY_STRING=URLエンコードした文字列

「SET 環境変数名=値」です。"="'が抜けています。コマンドなのですから、ヘルプやリファレンスを確認しましょう。また、基本的にCGIの考え方はLinuxと同じです。

[DreamTheater]

環境変数の設定方法に関する質問なので、Perlタグは不要ですね。
タイトルも引数ではなく環境変数に変更しましょう。

[ma2hiro]

>dodox86さん
本当に度々申し訳ございません。
↓のKojiDoiさんの返答に書いたように
=をつけてやると
```
D:\schedule2>set QUERY_STRING=bukken=yamagata&tab=yamagata&year=2020&mon=7
'tab' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
'year' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
'mon' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
```
となってしまうのです……

>DreamTheaterさん
仰るとおりですね……
前回の流れで作成して失礼しました。
修正しました。

[dodox86]

＞@ma2hiroさん
> 'tab' は、内部コマンドまたは外部コマンド、
...
> となってしまうのです……
いや、そうではなく、「SET QUERY_STRING=URLエンコードした文字列」
って書いたではないですか。「URLエンコードした文字列」です。GETのURLに含まれるクエリー文字列の"key=value"...はそのままでは環境変数にセットできません。CGIの仕様自体を再度確認してください。正直、そこから確認、理解しないと本問題の解決、ひいてはCGIのデバッグはできないと思います。
老舗のとほほさんのサイトをご案内しておきます。[とほほのCGI入門]http://www.tohoho-web.com/wwwcgi.htm

[dodox86]

＞@ma2hiroさん
まぁ、"bukken=yamagata&tab=yamagata&year=2020&mon=7"のクエリー文字列に限って言うと、URLは恐らく以下のようなものだとして
http://server/cgi-bin/schedule.pl?bukken=yamagata&tab=yamagata&year=2020&mon=7

CGIに渡されるQUERY_STRING環境変数は以下のようになるはずです。(=は結局、そのまま)
bukken=yamagata&tab=yamagata&year=2020&mon=7

これをSETコマンドでそのままセットしようとしてもうまくいかないので、2重引用符で括るしかないでしょうか。
set QUERY_STRING="bukken=yamagata&tab=yamagata&year=2020&mon=7"
ただ、これをCGIのプロセス内で参照したとき、2重引用符がそのままかもしれないので注意してください。setコマンドのオプションなどを併用しても尚、使えなければ、別の方法を考える必要があると思います。

[dodox86]

私の[2020/07/16 10:47]のコメントより引用：
> これをSETコマンドでそのままセットしようとしてもうまくいかないので、2重引用符で括るしかないでしょうか。
> set QUERY_STRING="bukken=yamagata&tab=yamagata&year=2020&mon=7"
> ただ、これをCGIのプロセス内で参照したとき、2重引用符がそのままかもしれないので注意してください。

たびたびすみません、この点だけ確認してみました。SET QUERY_STRING="key=value" と実行すると、環境変数の値としては前後の2重引用符も含まれました。ご注意ください。

[ma2hiro]

dodox86さん
本当に度々ありがとうございます。
＞ set QUERY_STRING="bukken=yamagata&tab=yamagata&year=2020&mon=7"
とやると"も含まれますので
perlソース内で"は削除するようにして実装してみようと思います。

本当にご助力頂き感謝いたします。

[dodox86]

お使いのCGIの全ソースは分かりません（貼られても困ります）が、perlモジュールなどを使ってフォームのパラメータを解析するなどしていた場合、QUERY_STRING環境変数の処理タイミングなどに影響すると思いますのでご注意ください。以上です。

[ma2hiro]

本当にありがとうございました。
またご迷惑をおかけして本当に申し訳ございません。

一刻も早く皆様のお力添えが出来るように技術を学んで参ります。

Answer 1

DOSプロンプトで環境変数を設定したいという話なら、

set QUERY_STRing=test

ではないでしょうか。

Comments

[ma2hiro]

KojiDoiさん
コメントありがとうございます。
私の説明不足で大変申し訳ございません。

現在ActivePerlのデバッグをしようとしております。

そのソース内で引数を読む方法として以下のようにしております。
```perl
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $a, $ENV{'CONTENT_LENGTH'});
}else{
$a = $ENV{'QUERY_STRING'};
}
@a = split(/&/,$a);
foreach (@a) {
($variable,$value) = split(/=/);
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if($variable eq "year"){
$year = $value;
}
if($variable eq "mon"){
$mon = $value;
}
if($variable eq "title"){
$title = $value;
}
if($variable eq "bukken"){
$bukken = $value;
}
}
```
このスクリプトに読み込ませるため
```
D:\schedule2>set QUERY_STRING=bukken=yamagata&tab=yamagata&year=2020&mon=7
```
とやってみると
```
D:\schedule2>set QUERY_STRING=bukken=yamagata&tab=yamagata&year=2020&mon=7
'tab' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
'year' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
'mon' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

```
とPerlでの変数の渡し方が不明ですので質問してしまいました。

""で囲んでも駄目でしたのでどうするのかご助力頂けないでしょうか？
お忙しいところ大変申し訳無いのですが上記お問い合わせいたします。

Answer 2

受け取るperl側に

if ($ENV{'REQUEST_METHOD'} eq "POST") {
	read(STDIN, $a, $ENV{'CONTENT_LENGTH'});
}else{
	$a = $ENV{'QUERY_STRING'};
}
$a =~ s/"//g;

として

D:\schedule2>set QUERY_STRING="bukken=yamagata&tab=yamagata&year=2020&mon=7"

と強引に渡して

D:\schedule2>perl schedule.pl

で確認して解決しました。

コメント下さった皆様ありがとうございます。