perlで検索文字がある場合ジャンプするプログラムが上手く行きません

Question

以下のように著述して、$IDに$agbがあったとしてもsystem("73.cgi");で73.cgiに飛びません。ここでは最初に改行文字とある文字列を足し合わせ最後に改行文字を足し合わせて検索しているのですがそれが無理なのでしょうか？なぜでしょうか？よろしくお願いします。

#ID検索
open(IN,"<kokyakusyouhinjouhou/ID.txt");
$ID = <IN>;
close (IN);
$agb="\n".$name."\n";
$pos2 = index($ID,$agb);
if($pos2 >= 0){
system("73.cgi");
exit;
}else{
$abc = "kokyakusyouhinjouhou/ID.txt";
open(OUT, ">> $abc") || die("ファイルを追記モードで開けませんでした");
$msg2 = "$name\n";
print OUT $msg2;
close(OUT);

$abd = "kokyakusyouhinjouhouhikae/ID.txt";
open(OUT,">> $abd") || die("ファイルを追記モードで開けませんでした。");
$msg3 = "$ID\n";
print OUT $msg3;
close(OUT);
}

Answer 1

このルーチンは不要になり、新しいルーチンうぃ作成しました。

Comments

[退会済みユーザー]

じゃあ、今後も廃棄を繰り返してくださいね（ｑ・

Answer 2

そもそも cgi が実行できる環境ですか？
エラーメッセージは出ていないのですか？
print デバッグをしましょう。
そろそろコードブロックを使いましょう。

Answer 3

あちこちおかしいので質問事項以外も大きく書き換えないとまともに動かないと思いますが、とりあえず質問事項についてのみ。

$nameは未定義のままのように見えますが、それではindex()はうまくいきません。
それから、正しくは$pos2 = index($agb,$ID);じゃないでしょうか。