トップページ⇒php
981コメント366KB

【Perl 】初心者コーナーPart6

■ このスレッドは過去ログ倉庫に格納されています
0001undefさん2001/07/26(木) 00:40ID:???
初めて来た方、初心者はまずこのスレッドから始めよう。
尋ねる前に同じ質問がないかこのスレや旧スレ、及び>>2のリンクを一通り見てみよう。
案外答えはもう書かれているかもしれない。
01471462001/08/03(金) 15:13ID:???
>>145
ためしに 0バイトのログファイルをftpで送って 666 にするとどうなる？
0148名無しさん＠お腹いっぱい。2001/08/03(金) 15:27ID:???
滅茶苦茶なHTMLだな
0149名無しさん＠お腹いっぱい。2001/08/03(金) 15:43ID:???
system("/usr/bin/compress -e datafile.txt");
0150名無しさん＠お腹いっぱい。2001/08/03(金) 18:53ID:???
my宣言についてですが、

my($hoge);
$hoge = hoge;
$hoge = hoge;
$hoge = hoge;

と、

my $hoge = hoge;
$hoge = hoge;
$hoge = hoge;

は同じ効果が出ているのでしょうか。
01511452001/08/03(金) 22:37ID:???
>>147
いけました。
まさかパーミッションが絡んでいたとは思いませんでした。
cgiではなく、ファイルをオープンして書き込む部分を
普通のスクリプトとして実行すると666でなくても書き込めるのに・・・。
うーん。

ありがとうございました。
0152名無しさん＠お腹いっぱい。2001/08/04(土) 04:07ID:???
普通のスクリプトとして実行したときは実行したユーザー
cgiだとnobodyとかwwwとかになるんよ。（サーバーの設定によるが）
で、そのログファイルのあるディレクトリの属性ｗ（作成・削除）が
ついてないから新規作成ができなかったのね
ディレクトリを707にすれば作成もできると思うけど
cgiと同じディレクトリはさけたほうがいいよん
0153名無しさん＠お腹いっぱい。2001/08/04(土) 04:35ID:???
サーバ上でファイルをアーカイブ化・圧縮するためにはどうすれば良いですか？
0154名無しさん＠お腹いっぱい。2001/08/04(土) 04:55ID:eUp0QEZw
ふと思ったけど「初心者」ってどの程度のもの？
どこまで知ってれば中級者っていえるのかなー。
上級者の方に聞きたいです。
奥が深すぎて判断つかない。
0155名無しさん＠お腹いっぱい。2001/08/04(土) 05:37ID:vq//mZ8w
print "hello world"\n:

↑初心者
0156名無しさん＠お腹いっぱい。2001/08/04(土) 06:22ID:???
>>155
はまった(w < n:
で、ここのスレで質問してる人は初心者だと思ってるんでしょ？
自分も思ってるし。
0157すごく初心者2001/08/04(土) 07:43ID:???
こんなCGI探してますスレッド
http://corn.2ch.net/test/read.cgi?bbs=php&key=988777987&ls=50

↑で見つけた自動更新cgi（？）なのですが、
どういう処理をしているのか、お暇な方、解説して欲しいのでありまする。


#!/usr/local/bin/perl
%html = ('0802' => 'index.html',
'0803' => 'nya.html',
'0804' => 'zzz.html',
);
@time = localtime();
$html = $html{ sprintf "%02d%02d", $time[4]+1, $time[3] };
printf "Location: $html\n\n";
0158名無しさん＠お腹いっぱい。2001/08/04(土) 07:56ID:DYf6StlI
適当な文から特定の文字だけ抜き出すにはどうすればよいのでしょうか？
たとえば、
てきとう6なぶん
なんて文があったとき(変な文だけど。。)数字の6を抜き出すにはどうすればよいのでしょうか？
いろいろ試行錯誤しましたがどうしてもできません。お願いします。
0159名無しさん＠お腹いっぱい。2001/08/04(土) 07:57ID:eUp0QEZw
0802だったらindex.html
0803だったらnya.html
・・・（続く）
っていう定義リストを作っておいて。
@time = localtime(); で現在の日付けを取得
$html = $html{ s・・・のところで、日付けを”0802”とかの数字の並びにする
すると、$html{'0802'}となるので、最初の定義で0802だったらindex.htmlとなる。
最後に、printf "Location: $html\n\n";
で、自動的にindex.htmlにジャンプ。
0160157＠すごく初心者2001/08/04(土) 08:38ID:???
>>159さん
どうもありがとうございます。
助かりました。
0161名無しさん＠お腹いっぱい。2001/08/04(土) 08:49ID:eUp0QEZw
>>159
$meta='てきとうな6文字';
if($meta=~/\d/){print "$& \n";}

数字だったらこれでいけるけど、抜き出したい特定の文字がなんなのかによる。
0162名無しさん＠お腹いっぱい。2001/08/04(土) 09:00ID:???
>>161
>>158へのレスだよね？
01631582001/08/04(土) 09:16ID:DYf6StlI
>>161
この場合はどうやればよいのでしょう？
適当な文字56<!--tekito6-->適当な文字65
とかいう文の場合<!--tekito6-->の6(数字)だけを抜き出して、他の変数に代入するには
どうすればよいのでしょうか？161さんの方法ではうまくできませんでした。
お願いします。
0164JAPU2001/08/04(土) 10:30ID:???
if(/<!--tekito(6)-->/) { $hoe = $1; }
0165JAPU2001/08/04(土) 10:31ID:???
あ、こうか。
if(/<!--tekito(\d)-->/) { $hoe = $1; }
01661582001/08/04(土) 12:36ID:DYf6StlI
JAPUさんありがとうございます！うまくできました！
0167名無しさん＠お腹いっぱい。2001/08/04(土) 12:37ID:DQ4jThjY
クッキーに関しての質問です。
クッキーに配列を保存できますかね？
例えば、
$data=array(
"a" => "hoge1",
"b" => "hoge2"
);
SetCookie("hogehoge", $data);
こんな感じで$data配列を作成しクッキーに保存して、
$c_data=$HTTP_COOKIE_VARS["hogehoge"];
で、データを呼び出して
echo"$c_data[a]";
で出力できるようにしたいのですが、
なかなかうまくいかないです。
0168JAPU2001/08/04(土) 13:41ID:???
>>167
それは本当に Perl なのか?
0169名無しさん＠お腹いっぱい。2001/08/04(土) 13:44ID:DQ4jThjY
>>168 すいません。
PHPでした。スレッド間違い（汗
0170名無しさん＠お腹いっぱい。2001/08/04(土) 16:54ID:PSOASf6I
まったくの初心者です。
WEBサイトを作りたいのですが技術的なアドバイスをお願いします。

・IDの作り方は？
ユーザーIDとメールアドレスを登録すると自動的にパスワード付の
メールが送られますよね？で、クッキーをオンにしてログインする。
そ〜いった技術です。ヤフーとかもそうですよね。
専門のスレがあれば教えてください。
まったくの初心者の教えて君で本当にすいません。
0171コメント無しさん2001/08/04(土) 17:42ID:???
>>170
>IDの作り方は？
登録順でいいんじゃない？
0172名無しさん＠お腹いっぱい。2001/08/04(土) 18:49ID:8Ac4eVMA
CGIファイルの中にHTMLを組み込んでる最中なんですけど
スタイルシートは使えませんか？

それと、HTMLファイルで   このように入力すると
半角スペースになりますが、CGIファイルの中ではこの
特殊文字をどのように置けば半角スペースになるでしょうか？
0173名無しさん＠お腹いっぱい。2001/08/04(土) 18:58ID:???
>>172
当然使える。
適当なところに CSS ファイルを置いて、link タグの href 属性で呼び出せば良い。

このようにって、見えん。
＆nbsp；って居れてるのかな？
＆と；は￥でエスケープしないとならないはず。
0174名無しさん＠お腹いっぱい。2001/08/04(土) 21:41ID:QrWijtIY
>>173
レスありがとうございます。
早速試してみます。

# 2chでもまともにレス返ってくるんですね。
# うれしいです(^^
0175IY2001/08/04(土) 21:53ID:???
そこにあるでしょ？
01761532001/08/04(土) 23:34ID:???
どうすれば・・・・。
0177名無しさん＠お腹いっぱい。2001/08/05(日) 00:44ID:???
>>153
モジュール使えばいいでしょ。
0178名無しさん＠お腹いっぱい。2001/08/05(日) 00:53ID:Y9qpbhzk
本当に初心者で申し訳ないのですが、セッションって
何でしょうか？　よくＴＣＰでセッションを張る？という
表現（この表現も正しいかわからないんどえすが）が
ありますが、通信経路を確保するということでしょうか？
01791532001/08/05(日) 05:43ID:???
モジュールはどうやったら使えますか？
0180名無しさん＠お腹いっぱい。2001/08/05(日) 06:05ID:???
>>153
useすればいいだけですが。
use Compress::Zlib;
アーカイブ作るんならこれか？
01811702001/08/05(日) 15:23ID:.gPxxl9o
>>171
説明の仕方が悪かったようですね。
お聞きしたいのは、‘どうやったらそ〜いうことができますか？’です。
親切な方教えてください。
0182JAPU2001/08/05(日) 17:45ID:???
Compress::Zlib はアーカイブは作れないんじゃない?

Compress::Zlib を入れたら、
perldoc Compress::Zlib
しましょう。
0183名無しさん＠お腹いっぱい。2001/08/05(日) 18:33ID:???
>>181
登録順のIDなら
現在のID取得して変数に突っ込んでそれに+1するだけでOKでは？
パスワードは、適当な文字ランダムで作ってcryptでもすればできるんじゃん？

# 永遠の初心者なのであんまり信用しない方がいいかも
0184コメント無しさん2001/08/05(日) 19:04ID:???
>>181
データベース使ってるなら「自動加算型」みたいなのがあるからそれ使う
使ってないなら、最新のIDをファイルに書いといて、登録のたびにそいつを
増やしていく。
01851532001/08/06(月) 04:28ID:???
やはりWIN98+HTTPDっていう夏厨装備ではモジュールは使えませんか？
ちなみにF2S使ってるんですが、一般の無料サーバでも試せませんよね？
0186名無しさん＠お腹いっぱい。2001/08/06(月) 04:57ID:QmPH6qXg
$ENV{"HTTP_REFERER"}と$ENV{'HTTP_REFERER'}という2種類の書き方を見かけるんですが、
"と'はどう使い分ければ良いんでしょうか?
0187名無しさん＠お腹いっぱい。2001/08/06(月) 05:41ID:???
>>186
使い分けなくても良いです。
お好みに合わせて使いましょう。
$ENV{HTTP_REFERER}
もありです。
0188名無しさん＠お腹いっぱい。2001/08/06(月) 05:46ID:???
>>185
f2sは鯖のコマンドでgzipが使えるね、と密かに選択肢を増やしてみたりする。
0189名無しさん＠お腹いっぱい。 2001/08/06(月) 11:09ID:???
ものすごく初心者で恐縮なんですが、perlに処理させている
数値演算をそのままSTDINから入力して電卓にする
と言う訳には行かないのでしょうか?
$n = <STDIN>;
print "$n\n";
ってして 1+1 と入力すると、当然 1+1 と表示されるだけです。
変数が展開されて、ついでに中の数式も計算してくれたりは出来ないですよね。
ちゃんと演算子と数値に分けて数値を変数に代入して、内部? で
計算した後表示するしかないのかなぁ、、
0190名無しさん＠お腹いっぱい。2001/08/06(月) 11:38ID:???
use strict;
$_ = <STDIN>;
@_ = split/\+/;
print $_[0] + $_[1];

あとは適当にやってね
0191名無しさん＠お腹いっぱい。2001/08/06(月) 11:39ID:???
>>189
eval
0192名無しさん＠お腹いっぱい。2001/08/06(月) 11:55ID:???
有難う御座います。>>190、えっと、すいません、そんな感じで
色々作ってみてるのですが、ふと最後の式が入力した式そのまま(あたり前ですが)
なので、perlの演算式をそのまま与えれば3行位で電卓が出来ちゃうかな
と考えてしまったんです。
>>191、
うわ、有難う御座います。4文字で解決です　　(笑)
馬鹿はevalを使っちゃ駄目と何処かで見たんで、、、
文字列をプログラムとして評価してくれるんですね。
なるほどー、危ない訳も良く分かりました。　感謝です。
0193名無しさん＠お腹いっぱい。2001/08/06(月) 12:15ID:???
こう言う事か････
$n =<STDIN>;
print eval("$n");
何か感動した　^ ^ )
0194名無しさん＠お腹いっぱい。2001/08/06(月) 13:57ID:c9LAtMIM
ある処理に要した時間をミリ秒単位で計測する方法はありませんか？
具体的には、webでGETに要した時間を計測したいのですが･･･
0195名無しさん＠お腹いっぱい。2001/08/06(月) 14:20ID:???
>>194
Time::Hires
http://www.bekknet.ad.jp/~bero/docj/module/06/Time_HiRes.html
01961942001/08/06(月) 15:01ID:???
>>195
何とか実現できました。ヽ(´ー`)ノ
情報ありがとうございました。
0197名無しさん＠お腹いっぱい。2001/08/06(月) 16:42ID:???
>>193
電卓なら、
$n =~ m/[^\d\+\*\/\.\s]/ && ...;
な感じで、入力値チェックもしたほうがいいかもね。
0198名無しさん＠お腹いっぱい。2001/08/06(月) 16:44ID:???
何もチェックしないと任意のコードを実行できちゃうからね。
馬鹿はevalを使うなってのもそういうことだろうね。
0199189 2001/08/06(月) 17:22ID:???
詳しい説明ありがとッス。なるほど、JAPUさんがサイトで書かれてる
汚染チェックってやつですね、確か僕が見た所でもそう言ったニュアンス
で書かれてました。
それにしても、、+-だけで演算子と数値は5個まで、とか言うダサイ
電卓をif ($_　=~ /\d/).... とかズラズラ並べて書いてたんで
目から鱗落ちまくりです。
了解しました、cgiでは当分使わないです　　(笑)
0200名無しさん＠お腹いっぱい。2001/08/06(月) 18:52ID:???
すでに解決済みかも知れないが、俺ならこうするかな。

$n = <STDIN>;
$n =~ tr{0-9\+\-\*\/\(\)\.}{}cd;
print eval($n);
02017292001/08/06(月) 23:51ID:Mx2WAaZU
Perlの書き方について質問させて。
「メモリの浪費」を抑えたいんだけど、いったい具体的にどういうことを
すればいい？そもそも「無駄に食う」ってのはどういう書き方をしたものなの？
初心者でｽﾏｿ｡
02021532001/08/07(火) 00:00ID:???
はわわ・・gzip・・頑張ります・・。
0203名無しさん＠お腹いっぱい。2001/08/07(火) 01:27ID:???
>>201
悪: @lines = <IN>;foreach (@lines){ ... }
良: while(<IN>){ ... }
0204名無しさん＠お腹いっぱい。2001/08/07(火) 01:48ID:bTCo0M5g
>>203で、<IN>のx行目を操作したいとき、@linesにセットしないで
なんとかすることは可能でしょうか？
0205名無しさん＠お腹いっぱい。2001/08/07(火) 02:01ID:???
>>204
可能です
0206名無しさん＠お腹いっぱい。2001/08/07(火) 02:06ID:bTCo0M5g
>>205
そうなんですか。。。
今まで、とりあえず配列にセットして、popやらspliceやらの関数使ってました。
勉強しに逝ってきます。
02077292001/08/07(火) 08:58ID:swpPnFjU
>>203
すっきり書けるものを、余計なプロセスを経てるということ？
他にはないっすかねぇ。気持ち的にforeach〜よりもuntilとかの
制御を使うほうが重い気がするんだけど、どう？
0208名無しさん＠お腹いっぱい。2001/08/07(火) 09:08ID:???
ちょっと質問したいんですが、

てきとー
<!--a-->
てきと

あああ
<!--b-->

と言う文があったとして<!--a-->と<!--b-->とその間の文を消したいんだけどどうすればいい？
s/<!--a-->.*<!--b-->//;だとできなかったんだけど。
0209名無しさん＠お腹いっぱい。2001/08/07(火) 09:21ID:???
>>729
根本的に違う気がする。
@line = <IN> ってのは全てに配列に読むことによって、メモリを非常に使う。
それに対してwhile (<IN>) {} は一行づつ読み込むことによって、
メモリの消費が大きくならない。スピードは殺しているだろうが。

>>208
s修飾子をつけて単一行として処理。
s/<!--a-->.*<!--b-->//s;
0210名無しさん＠お腹いっぱい。 2001/08/07(火) 12:17ID:???
場違いとは思いますが、あえて聞かせてください。
ton.2ch.net/test/read.cgi?bbs=sec&key=996966367&st=40&to=40&nofirst=true
これがperlプログラムのコーディング上のチェックミスらしいんですが
本当のperlhackerさんに掛かれば掲示板のタグチェックなんて意味を
なさないと言う事でしょうか?

どうしても興味が有ったので可能性と言う事で、お聞きしました。
方法を知りたいのでは無いんです。
場を乱したらごめんなさい。放置してくださいませ。
0211名無しさん＠お腹いっぱい。2001/08/07(火) 12:17ID:???
メモリ消費＝＝変数の数　と考えればわかりやすいんでは？
配列だってa[0]で一つの変数分のメモリを消費します、これが100個
あれば変数１００個分のメモリを消費します。

処理速度！＝メモリ消費　です、メモリ消費を抑えるために例えば
配列に入れるんではなく1行づつファイルに書き出したりしてたら
速度は遅くなります。

当たり前のことを長々と書いてしまって恥ずかしい。。。
0212名無しさん＠お腹いっぱい。2001/08/07(火) 12:56ID:???
配列が滅茶苦茶大きくなれば１行づつの方が早くなるけどな。
# そこまで大きいデータをTEXTで保存はせんだろうが
0213名無しさん＠お腹いっぱい。2001/08/07(火) 13:07ID:t8arwgAY
case sensitiveのサーチエンジンのスクリプトを
case insensitiveにしたいのですが
良い記述方法等ありますでしょうか？
0214名無しさん＠お腹いっぱい。2001/08/07(火) 13:12ID:???
>>210
フィーネはcgiの問題とは言ってるがbbs.cgiの問題とは言っていないところ
がポイント
0215名無しさん＠お腹いっぱい。2001/08/07(火) 14:12ID:???
>>210
ﾄﾞｷｭｿの俺にはどうやってるのかサッパリ分からん…。
しかもCGIのバグって…？
0216名無しさん＠お腹いっぱい。2001/08/07(火) 14:24ID:???
フィーネが前言ってたとおりログに直接書いてんだよ。
CGIのバグを利用して「書き込んでる」とは言っていない点にも注目。
02177292001/08/07(火) 15:25ID:m8P3Xhl6
ありがとう、みんなレベル高いな･･･。
「処理速度！＝メモリ消費」は目から鱗だったよ。
「箱庭」「FFなんたら」が敬遠されてるけど、サーバ側は何が不満なの？
どこかのサーバでは“メモリ消費が激しいCGI”と説明してたけど、
サーバにとって問題のあるCGIってのは「メモリ消費＞速度」なのかな。
0218名無しさん＠お腹いっぱい。2001/08/07(火) 15:48ID:???
リロードの回数がチャットの比じゃないとか? よく知らないけど。
0219名無しさん＠お腹いっぱい。2001/08/07(火) 15:52ID:???
メモリの話なので便乗質問です。

なるべくメモリ消費を少なくする為にundefで変数を初期化するのは
良い事なのでしょうか？
undefが入る分、処理は遅くなると思います。
よっぽどメモリを喰うようなスクリプトでなければ気にする必要は
ないのでしょうか？

いつも悩んでるんです・・・。
02202152001/08/07(火) 17:43ID:???
>>216
ﾅﾙﾌｫﾄﾞそれなら納得。サンクス
0221名無しさん＠お腹いっぱい。2001/08/07(火) 17:45ID:???
undefしてもメモリが開放されるとは限らん…よな、確か。
0222名無しさん＠お腹いっぱい。2001/08/07(火) 18:22ID:???
>>221
まじで？じゃあundefの存在意義は？
ソースが分かったら教えてちょうだい。
02232222001/08/07(火) 18:31ID:???
よく考えたらメモリ開放する意味以外でもundef使ってるや。
存在意義はあるね。
けどソースが分かったら教えてちょうだい。
02242212001/08/07(火) 19:41ID:???
たしかプログラミングPerlで見た気がするが…よく覚えておらん。ｽﾏｿ
Perlのｿｰｽ見れば分かるんだろうが…(；´Д`)
0225名無しさん＠お腹いっぱい。2001/08/07(火) 20:32ID:???
メモリの開放ってどうやるんだい？
そして同じ名前の変数を何度も使いまわせば浪費にならないのかい？
0226名無しさん＠お腹いっぱい。2001/08/07(火) 20:34ID:???
メモリの解放まで気にするならPerlを使ってはいけませんとか
0227名無しさん＠お腹いっぱい。2001/08/07(火) 20:41ID:???
詳しい人出て来て教えて欲しいage
0228名無しさん＠お腹いっぱい。2001/08/07(火) 20:48ID:???
数百KB程度のことなら>>226の言うことが正しいのかもしれぬ。
ハッシュ一要素につき1KBくらい消費するとか聞いたことあるし。
0229名無しさん＠お腹いっぱい。2001/08/07(火) 21:44ID:???
undefしたオブジェクトに関連する領域はすべて回収して再利用される。
しかし殆どのバージョンのUNIXでは、領域をシステムに返却されない。

青らくだにあるな。

>>219
結局、メモリリークをおさえるか、処理速度を優先させるか。
これはケースバイケースだったりするわけで。
どちらか問われない、又は問題無い状況であれば、好みで使えばいいかと。
0230名無しさん＠お腹いっぱい。2001/08/07(火) 22:34ID:???
$var = "ABC";
コレってメモリをいくらぐらい食いますか？
0231名無しさん＠お腹いっぱい。2001/08/07(火) 23:21ID:???
>>230
気になるのならどうにかして試して調べろ。
0232名無しさん＠お腹いっぱい。2001/08/07(火) 23:30ID:???
>>231
出来ないくせに大きな口叩くなよ（大爆笑）
0233名無しさん＠お腹いっぱい。2001/08/07(火) 23:39ID:???
やっぱり青らくだは一冊買っておくべきかな？初心者は。
箱庭風ゲームを作るつもりだが、メモリ消費と処理速度、どっちを
優先した方が良いと思う？箱庭みたいにご指名で「使用不可」
されたくはないからな…。
02342312001/08/07(火) 23:43ID:???
1KB程度。
OK？>>232
0235　2001/08/07(火) 23:45ID:iLCparaY
せめてPerlも整数型、文字列型、オブジェクト型くらいには分けるべきだ
0236Crow2001/08/07(火) 23:47ID:???
print <<test;

#この中でサブルーチンを直接読み込んだり、
#計算したりする事出来る？

$kotae=$tmp*$check;#こんな感じで

test
0237名無しさん＠お腹いっぱい。2001/08/07(火) 23:51ID:???
>>236
自分で試せよ。
0238名無しさん＠お腹いっぱい。2001/08/07(火) 23:56ID:???
>>236
print <<test;

test

$kotae=$tmp*$check;#こんな感じで

print <<test

test
0239名無しさん＠お腹いっぱい。2001/08/08(水) 00:04ID:???
print <<test;

${ \do{ $katae = $tmp * $check; } }

test
0240名無しさん＠お腹いっぱい。2001/08/08(水) 01:17ID:rNhUL.Uw
print <<test;

@{[ $katae=$tmp*$check;]}

test
0241名無しさん＠お腹いっぱい。2001/08/08(水) 06:02ID:???
メモリか…

　$hogege = 1024kb_str;#１Ｍぶんくらいの文字列
　hoge;

sub hoge{
　my $hoge = $hogege;

　$hoge = s/sage//g;
　$hoge = s/age//g;
　$hoge = s/hage//g;
　$hoge = s/uge//g;

　$hogege = $hoge;

　$hoge = 0;
}

最後に０でクリアするのって意味あるのだろうか…
0242名無しさん＠お腹いっぱい。2001/08/08(水) 08:52ID:???
>>241
無い。
プライベート変数はスコープ抜けると自動的に破棄されます。
というか、プライベート変数にコピーする理由も無いような。
0243名無しさん＠お腹いっぱい。2001/08/08(水) 13:01ID:79X/nc36
CGIで日本語ドメインを検索できるようにしたいんだけど、
PerlでSJISをUNICODEに変換するには、どのように記述すれば良いのですか？
0244名無しさん＠お腹いっぱい。2001/08/08(水) 13:42ID:???
>>243
モジュール使いましょう。
検索すればいくらでも出てくるかと。
02452432001/08/08(水) 14:54ID:2OjC6AHM
モジュールって jcode.pl みたいなやつですよね？
0246名無しさん＠お腹いっぱい。2001/08/08(水) 15:05ID:???
#!/usr/local/bin/perl

use strict;

print "Content-type: text/html; charset=EUC-JP\n\n";
print <<"EOM";
テキストを出力
EOM

exit;

use strict; を宣言すると上のようなスクリプトが動かなくなります。
こう言う場合は宣言してはならないものなのでしょうか。
■ このスレッドは過去ログ倉庫に格納されています