Perlコーディング初心者質問スレ Part 42
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2005/05/25(水) 06:36:28ID:PVpWgcdf【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0220nobodyさん
2005/06/05(日) 00:02:38ID:???0221nobodyさん
2005/06/05(日) 00:43:39ID:???0222nobodyさん
2005/06/05(日) 04:55:26ID:???0223nobodyさん
2005/06/05(日) 13:21:23ID:???0224nobodyさん
2005/06/05(日) 15:28:16ID:???↓のような場合で、
for($i=0;$i<=10;$i++){
$po[$i] .= int(rand(6));
}
これはあくまで例なのですが、似たような場合などでも、
randで選ばれる数字が同じものが続けて入ってしまう事が良くあるのですが、
これをもっとばらけさせたいのですが、何か方法があるのでしょうか？
上手く説明できずにすみませんが何卒よろしくお願いします。
0225nobodyさん
2005/06/05(日) 16:27:58ID:???0〜5までの数字から完全にランダムに選んだ場合、
直前と同じ数字になる確率は1/6もあるわけで、
10回も続けてやれば一度でも同じになる確率は
8割以上だからまあ当たり前だろうな...
同じ数字が続くのがいやならひとつ前の数字を
保存して同じ数字にならないように細工すりゃ
いいんじゃねーの。
お手軽コース:
同じ数字の間はやり直す
少し考えたコース:
0〜4までの乱数を求めて、前の数字と等しいか
大きければ1を加える。
0226nobodyさん
2005/06/05(日) 16:42:19ID:???コード書いてみたがね。
同じ数字が並びそうなら振りなおすなも。
my @numbers;
my $last = $num = -1;
for(my $i = 0; $i <= 10; $i++){
$num = int(rand(6)) while($last == $num);
$numbers[$i] = $last = $num;
}
print @numbers;
# 11回振ってるようだが、いいんきゃーも？
0227nobodyさん
2005/06/05(日) 18:10:57ID:???下のテーブルをセレクトしたいだけなんですが、mysqlのコマンド上ではちゃんと表示される日本語がPerlで出力させるとクエスチョンマークで表示されてしまいます。
↓こういう風に表示させたい。
>2005-06-05 17:27:47<>0<>ニュースタイトル！<
>2005-06-05 17:27:48<>0<>news title!<
↓こういう風になってしまう。
>2005-06-05 17:27:47<>0<>?????????<
>2005-06-05 17:27:48<>0<>news title!<
どうやったら日本語を出力できるんでしょうか。どなたかご教授お願いします。m(__)m
◆ソース(perl v5.8.6)
$dbh = DBI->connect("DBI:mysql:$dbname", $dbuser, $dbpass, {PrintError => 0, RaiseError => 0, AutoCommit => 0});
$datasp = $dbh->selectall_arrayref(q{
SELECT * FROM NEWS
});
for($n = 0; $n < scalar(@$datasp); $n++){
printf(">%s<>%s<>%s<\n",$datasp->[$n][0], $datasp->[$n][1], $datasp->[$n][2]);
}
0228nobodyさん
2005/06/05(日) 18:11:25ID:???◆テーブル
| NEWS_DATE | NEWS_IMPORTANCE | NEWS_TITLE |
| 2005-06-05 17:27:47 | 0 | ニュースタイトル！ |
| 2005-06-05 17:27:48 | 0 | news title! |
◆ＤＢステータス
mysql Ver 14.7 Distrib 4.1.12a, for Win32 (ia32)
Connection id: 1
Current database: testdb
Current user: root@localhost
SSL: Not in use
Using delimiter: ;
Server version: 4.1.12a-nt
Protocol version: 10
Connection: localhost via TCP/IP
Server characterset: sjis
Db characterset: sjis
Client characterset: sjis
Conn. characterset: sjis
0229nobodyさん
NGNGmy @dice_seed = (1..6);
my @dice_rand;
for(reverse (0..$#dice)){
push @dice_rand, splice @dice_seed, rand $_, 1;
}
みたいな。。。
0230nobodyさん
2005/06/05(日) 19:24:15ID:???たぶんこれ。オレも以前はまった。
ttp://www.mysql.gr.jp/frame/modules/bwiki/?FAQ
の「mysql コマンドでは大丈夫なのに、PHP,perl,accessなどで文字が ? に化けるのは? 」
0231227
2005/06/05(日) 20:35:05ID:???ログイン直後に SET NAMES sjis を追加したらできました！
ありがとう！！！
もう、perlあきらめてphpで開発しようかと思ってたら
phpでも同じだったんですね・・・
◆ソース(変更後)
$dbh = DBI->connect("DBI:mysql:$dbname", $dbuser, $dbpass, {PrintError => 0, RaiseError => 0, AutoCommit => 0});
$dbh->do('SET NAMES sjis'); # ←追加
$datasp = $dbh->selectall_arrayref(q{
SELECT * FROM NEWS
});
for($n = 0; $n < scalar(@$datasp); $n++){
printf(">%s<>%s<>%s<\n",$datasp->[$n][0], $datasp->[$n][1], $datasp->[$n][2]);
}
1： HTMLを取得して例えば
<A href="http://www.**.co.jp/~sample/image/a.jpg">
<A href="image/a.jpg">
<A href=http://www.**.co.jp/~sample/image/a.jpg>
<A href=image/a.jpg>
とあるものをすべて
<A href="http://www.**.co.jp/~sample/image/a.jpg">
に統一したい。
2：
$url = $ENV{'QUERY_STRING'};
$url =~ s/$0//gi;
$surl = $url;
if($surl !~ /\/$/){$surl =~s/(.*)\/.*/$1\//i;}
use LWP::Simple;
$html = get $url;
&jcode'convert(*html,'sjis');
#携帯で見れるようにしたいのでテーブル等不要と思われるものを削除
#出来ればここも1行に統一できればうれしいです
$html =~ s/<(?:TABLE|TD|TR|TH|script|TBODY|font|B|U|I|center|form|dl|dt).*?>//gi;
$html =~ s/<\/(?:TABLE|TD|TR|TH|script|TBODY|font|B|U|I|center|form|dl|dt).*?>//gi;
3： 相対パスと絶対パスの相互の方法がまったく思い浮かばずにいます
これぐらいでよろしいのでしょうか。よろしくお願いいたします。
0233nobodyさん
2005/06/06(月) 01:24:14ID:???>これぐらいでよろしいのでしょうか。
もう少しやりたいことと何が問題なのかを整理して書いてくれ。
1と3って同じことだと思っていいのか？
とりあえず hoge/./ を取り除いたりまではしてない。
my $server = 'http://www.example.com'; # サーバのところまで
my $base = 'http://www.example.com/~sample/'; # 相対パス起点
sub absolute($)
{
my $str = shift;
$str =~ s/^"//;
$str =~ s/"$//;
if($str =~ m,^/,) {
return qq("$server$str");
} elsif($str =~ m,^http://,) {
return qq("$str");
} else {
return qq("$base$str");
}
}
$target =~ s,(<A[^>]*\s+href=)("[^"]*"|\S*)([^>]*>),$1.absolute($2).$3,eigm;
2: まとめればいいんだな？
$html =~ s/<\/?(?:TABLE|TD|TR|TH|script|TBODY|font|B|U|I|center|form|dl|dt).*?>//gi;
個人的には
$html =~ s,</?(?:TABLE|TD|TR|TH|script|TBODY|font|B|U|I|center|form|dl|dt)[^>]*>,,gi;
の方が好きだな。
0234nobodyさん
2005/06/06(月) 01:26:42ID:???$target =~ は $html =~ だと思ってくれ。
0235nobodyさん
2005/06/06(月) 01:31:08ID:???度々申し訳ない。>>1 のテンプレ？に合わせようとしてたんだな。
でもやっぱり何が問題なのか、どこがポイントなのかを整理して欲しいとは思う。
0236nobodyさん
2005/06/06(月) 14:15:56ID:nLjgLi0Tflockを使わずにflockと同じ動作する方法って、ありますか？
0237nobodyさん
2005/06/06(月) 14:29:00ID:???0238nobodyさん
2005/06/06(月) 15:25:52ID:???0239nobodyさん
2005/06/06(月) 15:44:24ID:???【Perl】ファイルロック(排他処理)について語ろう
http://pc8.2ch.net/test/read.cgi/php/1024795138/
0240nobodyさん
2005/06/06(月) 23:17:43ID:???0241nobodyさん
2005/06/06(月) 23:52:50ID:7fi2eBpp多分超簡単なものを作ってます。
ファイルをオープン後
$buff=<DAT>;
@buff=<DAT>;
としました。
これは、データの1行目と全てのデータを表示させたかったからなのですが
どうやら上記のように書くと@buffには、$buffを除いたものしか入ってこないようです。
簡単に、データの1行目、1行目を含む全データを格納したいのですが
どうしたらいいでしょうか。
0242nobodyさん
2005/06/06(月) 23:58:16ID:???$buff=$buff[0];
できました、ありがとうございます
整理できていなくてすいませんでした
いまさらですが整理というか用途を書きますと
携帯からこのcgiにアクセスし、
****.cgi?http://www.abc.*.jp/
と言う形でみたいページのアドレスを指定します
指定されたアドレスをcgiで取得し、テーブルなどの携帯では不要なタグを切り捨てます
次に、アンカー?<A〜タグにあるhrefにこのcgiをかえすように、
href=****.cgi?リンク先
と言うようにかえたいので、hrefのぶぶは絶対パスに統一する必要があるのですがこの方法が分からずにいました
あともう一つ間違えてたら分かればでいいので教えていただきたいのですが、
>>232のソース+>>233パスを統一するソースのみのソースで何故かbodyタグまで消されるのですが、理由分かりますでしょうか
0245nobodyさん
2005/06/07(火) 09:57:36ID:???Blockquote とか UL とかも消されてるはず。
もうちょっと正規表現考えた方が良かったね。 ﾌﾟ
たしかに…
気づきませんでした
ありがとうございます
0247nobodyさん
2005/06/07(火) 12:03:54ID:???↓これだけの文章だと、"newdir"というフォルダがなければ、作るまで永遠に繰り返すってことになりますかね？
while (!mkdir("newdir", 0755)) {
}
0248nobodyさん
2005/06/07(火) 12:32:22ID:???0249nobodyさん
2005/06/07(火) 14:54:20ID:???while (!mkdir("newdir", 0755)) {
rmdir("newdir");
}
0252nobodyさん
2005/06/07(火) 17:02:56ID:???なので、もし既にnewdirフォルダが存在していた場合、無限ループになるわけで。
0254nobodyさん
2005/06/07(火) 17:46:05ID:???0255 ◆wSkAcTBWJw
2005/06/07(火) 17:50:20ID:Jzx4SwvB\%hogehoge と記述した場合、どのような意味を成すのでしょうか？
具体的には↓のような文章なのですが、
return \%hogehoge if (rename($hogehoge{path}, $hogehoge{cureer}));
ifの中が真(renameに成功)の場合は\%hogehogeの中に何かを入れているのでしょうけども、
よく分かりません。どなたか教えてください。
0256nobodyさん
2005/06/07(火) 18:06:11ID:???0257nobodyさん
2005/06/07(火) 18:22:21ID:???「perl リファレンス」でぐぐれって事な
0258nobodyさん
2005/06/07(火) 18:39:51ID:???hogehoge{path}を戻り値がリファレンスとして返される。
0259nobodyさん
2005/06/07(火) 18:46:16ID:???renameに成功した場合は
$hogehoge{cureer}を戻り値とし、リファレンスとして返される。
0260nobodyさん
2005/06/07(火) 18:56:32ID:???> \%hogehogeの中に何かを入れているのでしょうけども、
何も入れてないでしょ。
renameに成功したら、return \%hogehoge を実行してるだけ
0261nobodyさん
2005/06/07(火) 19:59:03ID:???つーかそれからの話などそれで消えてなくなる。
0264nobodyさん
2005/06/07(火) 20:33:44ID:B1nXEBrs$xx = <FILE>;
$xx++;
print FILE $offCount;
close(FILE);
ファイルから値とって、１増やして上書きしたいんですけど、上の通りにしてもできないんです。
$fileの初期値を1にして、上の通り実行すると、$fileが空っぽになる
open(FILE, "+<$file");
$xx = <FILE>;
$xx++;
print FILE $offCount;
close(FILE);
こんな感じで追加書き込みモードにすると、うまく行くので、変数にはちゃんと値が入ってるみたいです。
ご指摘お願いします。
0265nobodyさん
2005/06/07(火) 20:44:04ID:???$offCount ってなんだよ。
+> はまず最初にファイルを真っ白にするんだが。
0266nobodyさん
2005/06/07(火) 21:48:12ID:???@hoge という配列に適当な文字列を複数pushして、
<textarea>@hoge</textarea>とすると、テキストエリア内で各要素の間に半角スペースが入ってしまいます。
簡単にこの半角スペースを消す方法や、別の楽な書き方はないでしょうか？
foreachで書いていくのが妥当でしょうか？
0267nobodyさん
2005/06/07(火) 22:01:43ID:B1nXEBrsすいません、$offCount は $xx と脳内変換しといてください・・・
追加書き込みモードじゃなくて、上書きしたいんですができます？
0271nobodyさん
2005/06/07(火) 22:48:25ID:???>>267
seek truncate tell とかで検索しとけ。
0273nobodyさん
2005/06/08(水) 02:11:43ID:3Bw2MIjpごめんわからへん
0274nobodyさん
2005/06/08(水) 07:35:48ID:???俺も若い頃 print FILE "@log"; とか書いてスペース入るのが困って foreach (@log) { print FILE $_; } とか書いてた甘酸っぱい記憶を思い出したよ・・・ orz
0275nobodyさん
2005/06/08(水) 09:55:34ID:???↑を見てsysopenを使おうとしたんですが、Fcntlを使わなければmodeの指定は出来ないんでしょうか？
固定の数値なら直値で打っちゃうんだけど、環境依存するものですか？
0276nobodyさん
2005/06/08(水) 10:04:49ID:???建前上は環境依存するものなのでFcntl使っとけ。
いちいちいくつになってるか調べたりこの環境では
OKか気にするのは無駄。
0278nobodyさん
2005/06/08(水) 18:09:13ID:iGltiuvK配列の要素をすべてではなく一部飛び飛びで
取り出したいのです。
$count = @DATA_N;
foreach (5..$count) { 処理 ｝
とすれば5番めの項目から最後までと言うことらしいのですが
では1番目と5番目以降というように
いくつか項目を飛ばして取り出すには
どのようにすればいいのでしょうか？
よろしくお願いいたします。
0279nobodyさん
2005/06/08(水) 18:33:55ID:???つーか配列の "5番目の項目" の添え字は [4] なのは理解してるよね？ 一応釘
0280nobodyさん
2005/06/08(水) 18:47:04ID:iGltiuvK＞添え字は [4] なのは理解してるよね？ 一応釘
はい[0]から始まると言うことは理解しております：汗
そうですね「,」で区切ればいいのですね。
「..」は「から〜まで」と言う風に理解すればいいのですね！
勉強になりました。
ありがとうございました。
0281nobodyさん
2005/06/09(木) 01:19:34ID:???CGI.pm だと使ってるようだから？、後始末さえしっかりやればいいのかのう。
0282nobodyさん
2005/06/09(木) 11:30:41ID:???@log = <LFILE>;
($sec,$min,$hour) = localtime(time);
$aftertime = "$hour:$min:$sec unixtime:" . time ;
$data = "$aftertime \n";
unshift(@log,($data));
while($log){
print LFILE $_;
}
close(LFILE);
質問です
$logfileに時間を一番上に追加してゆく処理を行いたいと思い、
↑のようにコーディングしたのですが、全く更新されません。
なぜですか？
0283nobodyさん
2005/06/09(木) 11:51:59ID:???問題点1:
while($log) → foreach (@log)
問題点2:
LFILEの中身を呼んだ後seekしてないのでこのままでは続きから書かれるだろう
問題点3:
そもそもファイルの頭に追加するという設計を見直した方がいい。
末尾への追加は簡単だが、頭へ追加しようとすると全部書き直しになるので
普通はそういうことははじめからしなくていいようにしとくものだ。
0284nobodyさん
2005/06/09(木) 12:12:41ID:???0285nobodyさん
2005/06/09(木) 12:27:48ID:???頭に追加したほうが、見やすいので、そういう設計にしました。
ありがとうございました！
0286nobodyさん
2005/06/09(木) 13:53:02ID:r/eHxoG7送信できなくてこまってます・・
www.hoge.co.jp サーバで
メール送信CGI mail.cgi があって
ここからメールを送信させているんですが
送信先メールアドレスが
[email protected] とか [email protected] のような
hoge.co.jp サーバ以外への送信ならうまくいくんですが
[email protected] とか [email protected] への
送信だとうまく送信されない（届かない）ようなんです。
mail.cgi自体は同じものを使用していて
@hoge.co.jp 以外のメールアドレスへの送信はうまくいっているので
sendmail の問題？なのかもしれませんが
何か調べる必要がある点などありましたらご教授お願いします。
0287286
2005/06/09(木) 13:55:21ID:r/eHxoG7メールが届かないメールアドレス（[email protected] とか [email protected] ）自体は
他のメーラやWEBメールから送信されたメールを
正常に受信できてます。
あくまで www.hoge.co.jp 上の mail.cgi から
[email protected] へメール送信しても届かない・・・という感じです。
0288nobodyさん
2005/06/09(木) 13:55:42ID:???0289286
2005/06/09(木) 14:19:27ID:r/eHxoG7www.hoge.co.jp 上に mail.cgi を設置しています。
mail.cgi の内容は次のような感じです。
mail.cgi
----------------------------------
$head = "From: [email protected]\n";
$head .= "To: [email protected]\n";
$head .= "Subject: TEST MAIL\n";
$head .= "Date: $Date\n";
$head .= "Content-type: text/plain\n";
$head .= "Mime-Version: 1.0\n\n";
$body = "テスト";
open(MAILER, "| /usr/sbin/sendmail -t") || exit(0);
print MAILER $head;
print MAILER $body;
close(MAILER);
----------------------------------
0290286
2005/06/09(木) 14:20:03ID:r/eHxoG7$head .= "To: [email protected]\n";
の送信先部分が [email protected] だと
メールを送信してもメーラ側で受信できず（届いていない）
$head .= "To: [email protected]\n";
のように [email protected] 以外へメールを送信した場合は
正常にメーラ側でメールを受信できる状況です。
なので、コードがおかしい分けでなく
www.hoge.co.jp 上の sendmail か何かの設定がおかしいのかも
しれませんが・・・。なんなんでしょう・・。
ちなみに [email protected] のメールアドレス自体は
他のメーラやWEBメールから送信したメールを
正常に受信できています。
0291nobodyさん
2005/06/09(木) 14:54:19ID:???シングルクオートで囲むか "\@hoge" とエスケープしてみ。
ていうか、 abc.co.jp とか test.co.jp とか実在するドメインを例に使うな。
予約ドメインの example.co.jp とか example.ne.jp とか example.jp とかを使え。
0292nobodyさん
2005/06/09(木) 17:33:54ID:???モジュールを使わないという前提で、参考になるサイトはありませんでしょうか。
ぐぐり疲れました・・・ｏｒｚ
0293nobodyさん
2005/06/09(木) 18:27:43ID:???http://www.studyinghttp.net/body#Form-data
理解できなきゃ素直に CGI.pm 使うなり、
CGI.pm バラして必要なトコだけパクりなされ。
0294nobodyさん
2005/06/10(金) 00:38:57ID:gI851X9W0295nobodyさん
2005/06/10(金) 00:52:30ID:gI851X9W質問なんですけど、shiftやpopは先頭か末尾ですよね。
そういうのじゃなくて配列の任意のデータを削除したいんですが、どうやるんでしょう？
0296nobodyさん
2005/06/10(金) 01:22:16ID:???0299nobodyさん
2005/06/10(金) 11:01:32ID:n3jB9OmG# 処理
my %in;
&decode;
&html if (!$in{send});
$inや%inは何か特別なのでしょうか？
0300nobodyさん
2005/06/10(金) 11:07:59ID:???0302nobodyさん
2005/06/10(金) 12:00:39ID:???<input type="radio" name="yes" value="1">はい
<input type="radio" name="yes" value="2">いいえ
を
<input type="radio" name="yes" value="1" id="yes1"><label for="yes1">はい</label>
<input type="radio" name="yes" value="2" id="yes2"><label for="yes2">はい</label>
にしたい。
メソッド改造は汎用性が無いので
正規表現とかでなんとかならないでしょうか？
0303nobodyさん
2005/06/10(金) 12:01:26ID:???cgi-lib.pl使った時のデフォじゃね？
ttp://amateras.sourceforge.jp/cgi-bin/fswiki/wiki.cgi/free?page=cgi-lib.pl
0304nobodyさん
2005/06/10(金) 12:04:13ID:???0305299
2005/06/10(金) 12:06:16ID:n3jB9OmGページを読みましたが$inはなかったです。
0306299
2005/06/10(金) 12:12:11ID:n3jB9OmGありがとうございます。
早速cgi-lib.plをみてみます。
0307nobodyさん
2005/06/10(金) 12:26:18ID:???0308302
2005/06/10(金) 12:29:51ID:???私もそう思うけど
<input type="radio" name="yes" value="1" id="yes1"><label for="yes1">はい</label>
なら、とりあえず
%labels =('1','<label for="yes1">はい</label>');
$co->radio_group(
-name=>'yes',
-values=>['1','2'],
-labels=>\%labels);
で、いけるんで・・・。
これもむちゃくちゃ使いにくいけど。（・・`）
0309nobodyさん
2005/06/11(土) 01:51:46ID:KxmWI2vs配列の中から文字列を検索して、
その文字列が含まれている配列の添え字を取得することはできますか？
例えば、
$data[0]="おじいちゃん<>76歳";
$data[1]="おばあちゃん<>72歳";
$data[2]="おとうさん<>56歳";
$data[3]="おかあさん<>52歳";
みたいな配列@dataがあって、そのなかから"72歳"という文字が
含まれている配列の添え字(この場合だと1)を取得したいのですがどうすればよいでしょうか？
0310nobodyさん
2005/06/11(土) 02:23:38ID:???my @data;
$data[0]="おじいちゃん<>76歳";
$data[1]="おばあちゃん<>72歳";
$data[2]="おとうさん<>56歳";
$data[3]="おかあさん<>52歳";
my $str = "72歳";
for ( 0..$#data ) {
if ( $data[$_] =~ /$str/ ) { print; }
}
__END__
0311nobodyさん
2005/06/11(土) 02:46:40ID:???$data[1]="おばあちゃん<>72歳";
$data[2]="おとうさん<>56歳";
$data[3]="おかあさん<>52歳";
my$str = "72歳";
for(0..$#data){
print $_ if [split(/<>/,$data[$_])]->[1] =~ /$str/;
}
0312nobodyさん
2005/06/11(土) 03:03:41ID:???0313nobodyさん
2005/06/11(土) 03:03:43ID:???0314313
2005/06/11(土) 03:05:12ID:???0315312
2005/06/11(土) 03:06:40ID:???ｵﾏｲので気付いた('A`)
print grep { (split /<>/, $data[$_])[1] =~ m/$str/ } 0 ..$#data;
0316nobodyさん
2005/06/11(土) 09:07:57ID:???変数名を変数で扱うことができますでしょうか？
分かりにくいので例を示しますと、
$TEST = "test";
$OUTPUT = "[[[TEST]]]";
$OUTPUT =~ s/\[\[\[(.*)\]\]\]/$$1/g;
print "$OUTPUT";
↑これで、”test”という出力がほしいのですが…
3行目のコーディングはWindows版のActiveperlでは動くのですがLinux版ではエラーになってしまいます。（もともと、あんなコードで動くことが予想外なんですが。）
よろしくお願いします。
0318nobodyさん
2005/06/11(土) 10:58:39ID:???それであってるはずだがsymbolic referenceを使うことに
なるのでstrict refsな時は問題がでるかもしれん。
というかエラーになるというのならエラーメッセージぐらい
示せよ...
0319nobodyさん
2005/06/11(土) 12:06:49ID:???そのファイルをほしいと言う人がいるので、その人にファイルを与えようと思っています。
しかし、そのファイルを再びダウンロードしてアップロードするとすれば 1 日ぐらいかかってしまいますので、
CGI からそのファイルにリンクしようと思っています。
しかし、 perl 初心者なので、自分が作ったプログラムをサーバ上で実行していいかわかりません。
どうか、以下のプログラムは大丈夫か確認していただけないでしょうか。
#!/usr/bin/perl
&output;
sub output {
open(IN,"（ここにファイルパス）");
print "Content-type: application/x-zip-compressed\n\n";
binmode(IN);
binmode(STDOUT);
print <IN>;
close(IN);
exit;
}
0320nobodyさん
2005/06/11(土) 12:11:42ID:???迷惑だからやめれ。
そのファイルへのリンク貼るか教えるだけでいいじゃん。
■ このスレッドは過去ログ倉庫に格納されています