headでファイル情報を取得する場合のRefererは？

質問

($type, $length, $time, $expires, $server) = head "http://www.example.jp/test.txt";
このような形でhead情報を取得する場合にRefererは送信されていないのでしょうか？
example.comからexample.jpのtxtファイルを読みに行く際に、example.jp側のhtaccessでRefererによるアクセス制限をかけるとexample.comをokにしていても蹴られてしまいます。
SetEnvIf Referer "^$" ref_okにすると読めるのでheadでの情報の取得の際にはRefererが送信されていないのではないかと考えています。
ただこれだとURL直接入力でtxtが表示できるのでセキュリティの意味はありません・・・
CGIプログラムが情報を取得する際（headでもconnectでも）先にRefererの送信ができれば可能な気がしますが、そんなことができるのかわかりません。
CGIでRefererの送信方法もしくは特定のURLのCGIからのみアクセスを許可するなどのアクセス制限方法などありませんか？

回答No.1

kirikirkaz · ベストアンサー

headってLWP::Simple::headですよね？

> CGIでRefererの送信方法
リファラを設定するにはLWP::UserAgentじゃないとできないようです。

http://www.google.co.jp/search?hl=ja&q=lwp+referer&lr=lang_ja
http://www.ksknet.net/perl/lwpuseragent_we.html

お礼

my $arr = $ua->simple_request($req);
my $arr = $arr->content;
こんな感じで取得したデータを書き出すことで全て解決しました！
ありがとうございました。

補足

use LWP::Simpleをuse LWP::UserAgentに変更し、

my $req = HTTP::Request->new(GET => 'http://www.example.jp/test.txt');
$req->referer('http://www.example.jp');
my $res = $ua->request($req);
my $time = $res->last_modified;

にて更新時間を取得することに成功しました。ありがとうございます。
ただ、@date = stat("test.txt")でローカルのファイルと時間比較して内容を取得するかプログラムしていて、取得する際のsocket、connectあたりでこけているようで、今度は内容の取得に手間取っています。
一度送信したrefererはどこまで有効なのでしょう。。。