はじめまして。
今、ＣＧＩにこってまして、色々本とかＷＥＢ上で検索したりとかで探してみたんですけど、
良くわからず、ココに頼ってしまたんですけど。

Ａ.cgiのクッキー取得部分。

sub get_cookie{
	$cooks = $ENV{'HTTP_COOKIE'};
	$cooks='' unless($cooks =~s/.*$cookie_name=(.*)waoend.*/$1/);
	($cname,$c_email,$c_url,$cnt) = split(/<>/, $cooks);
}

Ｂ.cgiのクッキー取得部分。

sub get_cookie {
	local($key, $val, @cook, %tmp);
	@cook = split(/;/, $ENV{'HTTP_COOKIE'});
	foreach (@cook) {
		($key, $val) = split(/=/);
		$key =~ s/\s//g;
		$tmp{$key} = $val;
	}
	%ck = split(/<>/, $tmp{"$cookname"});
	$c_name      = $ck{'name'};
	$c_pass      = $ck{'pass'};
	$c_email     = $ck{'email'};
}

Ｂ.cgiで取得した名前（$c_name）をＡ.cgiで表示させるにはどうしたら良いんでしょう？
説明不足でしたらすみません。よろしくお願い致します。

お答え
http://www.rescue.ne.jp/CGI-BBS/beginners/cgi_lib/20020527111421.shtml

呑兵衛さんレス有り難う御座います。
え〜〜っと、説明不足のようでした＾＾；すみません。
Ａ.cgiから飛ばすのではなくて、Ｂ.cgiのcookieをＡ.cgiで取得したいのですが・・・
例えば、Ａ.cgiはアクセス解析で他のＢ.cgi(ＢＢＳ)のクッキーに書きこんだ名前を表示したいんですけど
Ａ.cgiの配布サイトで改造のサポートをお願いした所、「方針ぐらいまでしかお答えできません」
って言われて・・・自分なりに色々調べたんですけど、
Ａ.cgiのクッキー取得部分の$cnameにＢ.cgiの名前部分を入れれば良いってわかったんです。
でＡ.cgiでのＢ.cgiのクッキー取得方法って言うか・・・記述方法と言うか・・・
今、自分で書いてみて、ローカルでテストしてもエラーも無く、サーバーにＵＰしてみたんですけど、
反映されなくって困っているんです。ちなみに書いたのは、

# 名前集計機能の使用(0=OFF / 1=ON)
$get_name = 1;

(略）

if($get_name == 1){
	&get_cookie;
	if($cname eq ""){
		&get_yasucookie;
}
}

(略）

sub get_pocketcookie{
	$cooks = $ENV{'HTTP_COOKIE'};
	$cooks='' unless($cooks =~s/.*$cookie_name=(.*)waoend.*/$1/);
	($cname,$c_email,$c_url,$cnt) = split(/<>/, $cooks);
}


sub get_yasucookie{
	local($key, $val, @cook, %tmp);
	@cook = split(/;/, $ENV{'HTTP_COOKIE'});
	foreach (@cook) {
		($key, $val) = split(/=/);
		$key =~ s/\s//g;
		$tmp{$key} = $val;
	}
	%ck = split(/<>/, $tmp{'profile'});
	$cname      = $ck{'name'};
	$c_pass      = $ck{'pass'};
	$c_email     = $ck{'email'};
}

こんな感じなんですけど・・・

どうかよろしくお願い致します。

すみません訂正です。


# 名前集計機能の使用(0=OFF / 1=ON)
$get_name = 1;

(略）

if($get_name == 1){
	&get_cookie;
	if($cname eq ""){
		&get_yasucookie;
}
}

(略）

sub get_cookie{
	$cooks = $ENV{'HTTP_COOKIE'};
	$cooks='' unless($cooks =~s/.*$cookie_name=(.*)waoend.*/$1/);
	($cname,$c_email,$c_url,$cnt) = split(/<>/, $cooks);
}

sub get_yasucookie{
	local($key, $val, @cook, %tmp);
	@cook = split(/;/, $ENV{'HTTP_COOKIE'});
	foreach (@cook) {
		($key, $val) = split(/=/);
		$key =~ s/\s//g;
		$tmp{$key} = $val;
	}
	%ck = split(/<>/, $tmp{'profile'});
	$cname      = $ck{'name'};
	$c_pass      = $ck{'pass'};
	$c_email     = $ck{'email'};
}