トップページ⇒php
1001コメント294KB

Perl コーディング初心者質問コーナー Part26

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん03/07/24 19:48ID:???
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【 スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10
00827303/07/25 18:00ID:???
>>81
それが許されないからヒアドキュメントなのです。
できればそうしたいのですが、ロードバランサーを使用した
サーバ3台体勢なため、どんなに説明しても1ファイルで
完結してくれと、、、

すみません、無駄にｽﾚ消費させているので書き込み自粛
します。
0083nobodyさん03/07/25 18:11ID:???
>>82
__DATA__ トークン以下に HTML データを書いて <DATA> で読む。
0084nobodyさん03/07/25 18:58ID:???
>>73
シングルクォートで囲んでおいて、変数部分を置換する。
0085nobodyさん03/07/25 20:25ID:cdWg8/H5
あるcgiでは<img src="$imgs/seee.png">できちんと画像が
表示されるのに、これでは画像が×印になってしまい
表示されません。何が抜けているのか何でも良いので
気付いた所を教えて欲しい。
sub wedd{
if(!$tpre){
$log .= "<img src=''$imgs/seee.png''><br>\n";
$tm=0;
$trpe='';
}
です。
0086nobodyさん03/07/25 20:36ID:???
>>85
サブルーチンだけでわかるわけないだろう
このサブルーチンを呼び出す前、あるいは呼び出した後のどこかが
おかしいだけ
0087nobodyさん03/07/25 20:37ID:???
$log .= "<img src=\''$imgs/seee.png\''><br>\n";
0088nobodyさん03/07/25 20:43ID:???
>>86
ﾊｽﾞｶｼｲﾈェ
0089nobodyさん03/07/25 21:06ID:???
みんな釣られたんじゃないの？
>>87は当然としても、エスケープしないと500エラーで
画像が×どころじゃないだろ
0090nobodyさん03/07/25 21:46ID:???
釣りで処理する回答者はいらね。
0091nobodyさん03/07/25 21:49ID:???
第1問はここまで

>>86さん　2点
>>87さん　5点
>>88さん　0点
>>89さん　10点

もうちょっとがんばりましょうね
0092nobodyさん03/07/25 22:04ID:???
>87,>89
ダブルクォーテーション内のシングルクォーテーションを、しかも２個の内一つだけエスケープして意味あるのか？
>85はただの間違い探しだろ。
0093nobodyさん03/07/25 23:21ID:???
$log .= qq{<img src="$imgs/seee.png"><br>\n};

これで何点貰えるのかなぁ。
0094nobodyさん03/07/25 23:31ID:uJCpPyXD
どこにシングルクウォーテーションがあるのかぜひ教えてもらいたいものだ
0095nobodyさん03/07/25 23:32ID:uJCpPyXD
クォー
の間違いだ。ｽﾏｿ
0096nobodyさん03/07/25 23:44ID:???
ここはクイズスレになったのか？
0097nobodyさん03/07/25 23:45ID:???
>>94
>>85をよく見ればわかる。一見ダブルに見えるシングル2個連続。
00988503/07/25 23:59ID:qXznWoh0
>>93
おお！
とりあえず、それで出来ました。
これで道は開けます。
どうも有り難うございました。
00994303/07/26 00:58ID:???
>>67-68
ありがとうございました。そうかreadlineか。PERLFUNCを読み直して
すっきりしました。

比較演算子は逆ですね。($count-- >　0)ですよね。
0100nobodyさん03/07/26 01:22ID:???
>>98
お前>>85のソースはコピペしたのか？
あと出力結果のHTMLソースは眺めたのか？
0101nobodyさん03/07/26 03:55ID:4h1zCzy4
perl5.005からしか使ったことがなかったのですが、
perl5.003の環境で使う状況になってしまいました、
5.003で使えない表現を纏めるにはどこをみれば良い
でしょうか？
また、HTML::Templateをつかいたいのですが、
対応していない表現が多いようで使えません。
書き換えることでつかえるようになるでしょうか？
0102あぼーんNGNG
あぼーん
0103nobodyさん03/07/26 06:32ID:???
>>101
perl -D

なんちて。
0104あぼーんNGNG
あぼーん
0105あぼーんNGNG
あぼーん
0106nobodyさん03/07/26 11:25ID:NdYn8w9o
perlのインデントとhtmlのインデントについて皆様の意見を聞かせて頂きたいと
思っております。

昔C言語を少しだけ使っておりまして、その習性に引きずられてか、htmlを作るときは
何となくインデントさせていました。例えば
<HEAD>
　<META HTTP-EQUIV="content-type" CONTENT="text/HTML;charset=euc-jp">
　<TITLE>title</TITLE>
</HEAD>
の様にですね(無駄といえば無駄なんでしょうけど…)。

そして上記のhtmlをperlで出力させる際には、
#!/usr/bin/perl
print "　<HEAD>";
print "　　<META HTTP-EQUIV=\"content-type\" CONTENT=\"text/HTML;charset=euc-jp\">";
print "　　<TITLE>title</TITLE>";
print "　</HEAD>";
等と書いてインデントされた状態のhtmlが出力されるようにしていました。

しかしif文やfor文内にてhtmlを出力する処理となった場合等、perlのソースを
インデントさせて、そこでまたさらにインデントされたhtmlを出力するために
文字列を記述していくと、なんだか非常に見づらいソースになってしまうように
感じてしまいます(ソース内でhtml部分のインデントが一致しない等)。

今後メンテするのはperlのソースなので、perlのソースとして読みやすいものにすれば
よいと思うのですが、かといって出力であるhtmlが読みづらいとメンテが大変であるとも
思います。皆様どのように考えて作られてますでしょうか?
010710603/07/26 11:42ID:???
すみません、自己レスで一部修正します。
> print "　<HEAD>";
print "<HEAD>";
ですね。
ソースからコピペして、インデントを全角スペースにする時に間違えました…
0108nobodyさん03/07/26 11:46ID:???
print でスタティックに html を出力するよりは別ファイルにしたほうがよくないか？
0109nobodyさん03/07/26 12:01ID:???
俺はperl自体の記述がもっとも見やすいようにしてる。
ループとかでテーブル生成、とかそーゆー時は、出力したところが見やすいようにする。

で、最終的にプログラムが完成し、出力するHTMLが意図した通りになったのを確認したら、
出力時のタブや改行などは全部消す（出力直前に正規表現で）。
文字のスペースは全て＆nbsp；を使ってるからスペースも消す。
0110nobodyさん03/07/26 12:19ID:???
別ファイルにすれば見た目に悩まなくてすむと思うけど
行数も減って処理の流れが読みやすくなるし
011110603/07/26 12:33ID:???
>>108
>>110
別ファイルということは、やっぱりrequire文でhtmlを出力するためのスクリプトを
呼び出すということでしょうか?

いろいろとあたっている時に、>>106で例に挙げているようなスクリプトで
TITLEタグの内容を変数で与えてあげられるようにしているのをよく見てまして、
やっぱり処理部分と出力部分は分けたほうがいいのでしょうねぇ、と思っては
います。
ちなみに別ファイル内でのhtml部分のインデントはどうされていますか?
0112nobodyさん03/07/26 12:36ID:???
ﾋｱﾄﾞｷｭﾒﾝﾄは？
またはprintの部分だけｲﾝﾃﾞﾝﾄしないとか。
011310603/07/26 12:36ID:???
>>109
デバッグ終了時に、出力時に不要な文字を消す処理を有効にする、という事ですか?
ちなみにそうなると、完成版が出力するHTMLはインデント無しですか?
0114nobodyさん03/07/26 12:45ID:???
>>112
そうですね。ヒアドキュメントも考えてみたのですが、bash等で使えるような
空白+終端文字列(<<-でしたっけ?)等が無さそうで、難儀しています…
0115nobodyさん03/07/26 12:58ID:???
>>111
ファイルオープン→読む→出力→ファイルクローズだと思うけど。

>>114
bashでシェルスクリプト組んでるの？
ちょっと良くわからない。。
0116nobodyさん03/07/26 13:12ID:???
>>115
> ファイルオープン→読む→出力→ファイルクローズだと思うけど。
それだと、外部ファイルをそのまま出力という形になって、例えばファイル中に
変数を仕込んでおいて、その変数の値を表示させる…等という事をしたい場合、
何か上手い方法はありますか?sed的な置換を駆使でしょうか?

> >>114
> bashでシェルスクリプト組んでるの？
実はOSがVineLinux2.6R1でして、/bin/sh -> bashとなっているので…
011710903/07/26 13:15ID:???
俺の場合、単純なのなら
＞ファイルオープン→読む→出力→ファイルクローズだと思うけど。
これと同じようにしてる。
ただ、やや複雑になってきたりするとやっぱプログラム内で生成する。
ループでテーブル生成、ってのを多用するから。

ヒアドキュメントは、絶対左側に書くって規則があるから使わない。
しかもヒアドキュメントだと状況によって細かく出力を変えれないからあんま使い道ない気が…。
ヒアドキュメント使うなら外部にHTMLを書いたtxtを置くかな。

＞別ファイルということは、やっぱりrequire文でhtmlを出力するためのスクリプトを
＞呼び出すということでしょうか?
プログラム内でHTMLを生成する必要がある上、あまりに縦長で邪魔になった時は、
こーゆーのも作った事あるよ。俺は。
0118nobodyさん03/07/26 13:30ID:???
requireのほうが簡単でしょ
変数だってリファレンス使えばいいし
0119あぼーんNGNG
あぼーん
012011503/07/26 14:02ID:???
>>116
独自なタグとか作って置換、splitで切り張りとか。
書き換える部分が一点に集中してる(単一テーブルなど)の場合、
二つのファイル(ヘッダ部とフッタ部)を作ったり。

>>117
>ヒアドキュメントは、絶対左側に書くって規則があるから使わない。
変数に入れれば、思いのままに整形できるよ。
クックブックのレシピ1.11
012111503/07/26 14:37ID:???
外部ファイルを使うなら、HTML::Templateモジュールを使うと便利になるかも。

連続カキコ失礼。
0122nobodyさん03/07/26 18:21ID:???
>>101
perldelta

http://www.att.or.jp/perl/change/5004pre.html
http://www.kt.rim.or.jp/~kbk/perl5.005/perldelta.html
0123nobodyさん03/07/26 23:22ID:UhENImdi
確か、perldocをWindows help形式に変換したものを、どこかで配ってたと思うのですが、
どこで配ってたか忘れてしまいました。
ぐぐったものの見つからず。

どなたかご存じだったら教えてください。
0124nobodyさん03/07/26 23:34ID:P3xPXFZK
}if($yh > 250 && $yh <= 280 && $gt < 51 && $iu < 71
&& $gg < 71 && $fd < 71 && $ar < 71 && $ss < 2500 ){

を書きました。
ちょっと長いから難しいかなあと思って一通りテスト
したんですが、なんと全部正しかったです。
しかし、やはりプログラム処理も間違える事
はあるんでしょうか？
0125nobodyさん03/07/26 23:36ID:???
Perlの場合って、変数名や関数名の付け方で、
ある程度、グローバルスタンダードというか、
おきまりの付け方って存在するんでしょうか？
0126nobodyさん03/07/26 23:47ID:???
>>123
ActivePerl ならインストールしたディレクトリ以下に入っているかも知れない。

>>125
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlstyle.html
0127nobodyさん03/07/27 02:46ID:???
<!HOGEHOGE>
これはHTMLだとコメントになりむしされる。
これを利用して、このように。

$hoge = "seiseishitai html no naiyou";
$hogehoge = "mouhitotsu seisei shitai html no naiyou";
open TEMP,"/path/to/template.html">
while(<TEMP>){
s/<!HOGEHOGE>/$hoge/g;
s/<!HOGE>/$hogehoge/g;
print;
}
0128nobodyさん03/07/27 03:12ID:???
>>127
> <!HOGEHOGE>
> これはHTMLだとコメントになりむしされる。
初めて知ったよ。
0129nobodyさん03/07/27 04:00ID:???
<!--HOGEHOGE-->
だった。
0130nobodyさん03/07/27 09:21ID:???
>>125
ない。「それにはいくとおりもやりかたがある」から。
C言語出身のやつはC言語での命名規則を、
Java出身のやつはJavaでの命名規則を、
使えばそれでいい。
0131nobodyさん03/07/27 09:51ID:???
"use 全部小文字"は予約されてるからパッケージ名に全部小文字は使わない。
全部大文字のsubも使わないほうが良かったような。
0132nobodyさん03/07/27 11:40ID:qAaynntQ
フォームから送られてきたデータを切り分ける処理を

foreach(split(/&/,$query)){略}

とした場合、splitは1回だけ実行されるのでしょうか。
ループのたびに実行されてたら馬鹿みたいなので。
0133nobodyさん03/07/27 11:47ID:???
ループのたびにsplitされたら、永久にまわり続けるだろう。
013413203/07/27 11:54ID:???
…そうか。少しは考えろよ俺。
くだらない質問失礼しました。
0135あぼーんNGNG
あぼーん
0136あぼーんNGNG
あぼーん
0137nobodyさん03/07/27 14:00ID:???
>>132
なんで最近こんな奴ばっかなんだよ。
＞splitは1回だけ実行されるのでしょうか。
他人に聞くよりPerlに聞いた方が正確だし早い。やればわかるだろ。
0138nobodyさん03/07/27 17:20ID:LVhmum4F
テキストから、条件にあてはまるものの件数、文字、を出力します。
件数を先に出力したいから、
$n=0;
open(DATA,"data.txt");
foreach(<DATA>){
if($_ =~ m/$keyword/){ $n+=1; }
}

print "$n件見つかりました。<br><br>";
close(DATA);
open(DATA,"data.txt");

foreach(<DATA>){
if($_ =~ m/$keyword/){ print "$_<br>"; }
}

こうやってるんですが、2回データ開くってのが、ソースが変だし、効率が悪いと思うんですが、効率いい方法ありませんか？
「件数」を先に出力するので、この方法以外考えられません。
条件に当てはまったものを、配列に入れて、後で出力ってのも考えましたが、
配列は効率わるそうで・・・
ご教授お願いします
0139nobodyさん03/07/27 17:22ID:???
無限ループが心配な場合は$f++>=100 last;
とかストッパーかけておくと良い。
0140nobodyさん03/07/27 17:25ID:???
while (??) {
if ( 表示する条件 ) { continue; }
$n++;
if (??) { contine; }
if(??) { contine; }
print $_; or $xx = $_;
}

$n件見つかりました
結果$xx
0141nobodyさん03/07/27 17:27ID:???
if (??) { contine; }
if(??) { contine; }
↑ｺﾞﾒﾝ s/contine/last/g
ついでに、ここは表示するページのはじめの数から後の行数を先に求めておく。
0142nobodyさん03/07/27 17:45ID:LVhmum4F
>>140
ｺﾞﾒﾝ。難しくて理解できない・・・
ちょっと解説お願いできますか？
0143nobodyさん03/07/27 17:54ID:???
配列は効率が悪いの？
0144nobodyさん03/07/27 17:59ID:???
同じファイルを２回読むよりは効率いいんでない？
メモリは食うだろうが。
0145nobodyさん03/07/27 18:09ID:???
$n=0;
open(DATA,"data.txt");
while(<DATA>){
if($_ =~ m/$keyword/){ $n+=1; $str .= "$_<br>"; }
}
close(DATA);
print "$n件見つかりました。<br><br>$str";


これじゃだめなのん？
オープン２回が気になるなら、seekで戻せば開きなおす必要はなし。
0146nobodyさん03/07/27 18:15ID:???
@hit = ();
$n=0;
open(DATA,"data.txt");
while(<DATA>){
if(/$keyword/o){
push(@hit, $_);
$n++;
}
}

print $n. '件見つかりました。<br><br>';

foreach(@hit){
print $_. '<br>';
}
close(DATA);

んじゃ、配列使うやつ。
DATAファイルハンドルは避けたほうがいいよ。
改行もしっかり処理しよー。
0147nobodyさん03/07/27 19:03ID:bAtOJVka
Aというサーバーで動くperlスクリプトが
Bというサーバーでは動きません。
原因として考えられるのって何があるでしょうか？
0148nobodyさん03/07/27 19:04ID:???
>>147
スレ違い
0149nobodyさん03/07/27 19:25ID:???
http://pc2.2ch.net/test/read.cgi/php/1056078605/820
0150nobodyさん03/07/27 19:58ID:LVhmum4F
>>143
効率は悪くないんですかね・

>>145>>146
ありがとうございます。
ソートもできたらなぁ、と今思っていたので配列にすることにします。

どうもありがとうございました
0151あぼーんNGNG
あぼーん
0152あぼーんNGNG
あぼーん
0153nobodyさん03/07/27 20:59ID:???
配列につっこんでまた回すよりも
文字列として $str .= $_;
ってやったほうが良いでしょう。
0154nobodyさん03/07/27 21:00ID:???
>>150
読んでなかった。ごめんにぇ。
0155nobodyさん03/07/27 21:35ID:???
>>154は引き篭もり板のコテハン「chan」か？？
0156(*ﾟpﾟ)Chan ◆ClChang/Go 03/07/27 22:01ID:???
>>155
(*ﾟpﾟ)σ違うにゃりよ！！！
　　　　　　　　　　　　　　ε=ε=ε=┌(*ﾟpﾟ)ﾉ　ｻｻｻｯ
0157nobodyさん03/07/27 22:11ID:???
(´-`).｡ｏＯ(どこにもバカコテっているもんだなぁ。。。)
0158nobodyさん03/07/27 22:14ID:???
コテハンはデフォルトでバカ。バカじゃないコテのほうが珍しい。
0159nobodyさん03/07/27 22:16ID:???
アクセスログをopen(FH,">>log.dat")で書き込みして生ログがどんどんかさばってく
スクリプトなのですが、どのへんまでたまったら古いログを消していくべきか
こまっています。

たとえば1MBのログファイルを開け閉めするのと10KBのログファイルを開け閉めするので
処理時間に差が出たりするのでしょうか？
0160nobodyさん03/07/27 22:41ID:???
>>159
＞たとえば1MBのログファイルを開け閉めするのと10KBのログファイルを開け閉めするので
＞処理時間に差が出たりするのでしょうか？
聞く前に試せよ。その試した結果に疑問があるなら質問しに来い。
0161nobodyさん03/07/27 22:42ID:???
>>159
あるんじゃないの？

何のアクセスログか知らないけれど、
ログを切る方法なんていろいろあるでしょ。

apacheのログ？
rotatelogs。。
logrotate。。。
あるいはシェルとか。
0162nobodyさん03/07/27 22:48ID:???
>>159
アペンドなら有意な差(特に1Mと10Kなら)はないと思う。実測した事ないので>>160が言ってるように
測定して報告してくれ。
0163nobodyさん03/07/27 22:57ID:???
>>161
いえ、apacheのじゃなくてよくある画像を用いたアクセスログです。
あくまで一般的な知識としてどうなのか、と思って訊いてみたんですが。
測定する方法を考えて出なおしてきます。
0164nobodyさん03/07/28 00:32ID:???
効率が気になる奴は自分でプロファイリングでもしてみろっつの。
DProfとかあんだろ。
0165nobodyさん03/07/28 00:39ID:???
>>163
use Benchmark;
0166nobodyさん03/07/28 01:03ID:???
なるほ。
016715903/07/28 04:46ID:???
やってみた。
空のファイルに対してopen(FH,">>$file")でlocaltimeを書き込んでいくループを
やらせてみたら、ファイルサイズが100KBだろうか1MBだろうが10MBになろうが
処理のスピードは変化無しでした。
まあ考えてみたら>>で書き込むのってファイルを開いてポインタを末尾に移動して
書き込むだけだから、そのファイルが小さかろうが大きかろうが関係無いっぽいけど。

ちなみに同じことを毎回行を配列化→pushで追加→>で新規書き込みっていう
ループでやってみたら、当然処理はだんだん遅くなりました。

16[4-5]のモジュールは使い方よくわかりませんでした。
0168nobodyさん03/07/28 06:36ID:+imB0DDx
教えてください。

サーバー上に掲示板のログが大量にあります。
これらを小さくまとめる&転送速度を上げるために、gzipで圧縮して閲覧可能にしたいと思っています。

gzipの圧縮は１度行えばいいので、Windows上かシェルで行い、サーバー上に置いておくことになりますが、
そのファイル名が、$FORM{url} だとすれば、

print "Content-type: text/html;charset=Shift_JIS\n";
unless($ENV{'HTTP_ACCEPT_ENCODING'} =~ /gzip/){&error($FORM{url}); exit; }
if($ENV{'HTTP_ACCEPT_ENCODING'} =~ /x-gzip/){ print "Content-encoding: x-gzip\n\n"; }
elsif ($ENV{'HTTP_ACCEPT_ENCODING'} =~ /gzip/){ print "Content-encoding: gzip\n\n"; }

if (!open(GURL,"<$FORM{url}")){ &error(1); exit; }
binmode GURL;
@gzipdata = <GURL>;
close(GURL);

print @gzipdata;
exit;
#エラーの場合はURLをリンクで示してダウンロードしてローカルで解凍してもらうよう表示する。

こうなるのかと、とりあえず書いてはみたものの、一度メモりに読むのは避けられないのか、
バイナリ扱うPerl書いたことないからこれでいいのか。

あるいはもっと効率的な方法をご存じの方は教えてください。
0169nobodyさん03/07/28 11:36ID:???
下のようにファイルの内容を処理しているのですが、一行ずつ処理する場合
後ろから処理するということはできないでしょうか？

while( <FILE> )　{　処理　}

配列などに入れてしまえばできるのですが、メモリとしてはこちらの方がよいと
思いまして、どうかよろしくお願い致します。
0170nobodyさん03/07/28 11:44ID:???
>169
逆順は難しいと思われ。
一行のバイト数が固定なら色々とやりようもあるだろうが。
可変行の場合、俺はやり方を知らない。

配列でやるんだったら配列の入れ方を工夫するといいかも。
@data = <FILE>;
@data = reverse(@data);
とやるよりも
@data = ();
while(<FILE>){unshift(@data);}
とした方がいいかもしれない。
0171nobodyさん03/07/28 11:45ID:???
>170 =~ s/可変行の場合/一行のバイト数が可変の場合/;
0172nobodyさん03/07/28 12:04ID:???
>>168
試してないけど。

binmode STDOUT;
my $CRLF = "\x0d\x0a";
my $encoding = $ENV{'HTTP_ACCEPT_ENCODING'};

print 'Content-Type: text/html; charset=Shift_JIS', $CRLF;

$encoding =~ /gzip/ or &error($FORM{url}, exit;
open GURL, '<' . $FORM{url} or &error(1), exit;

if ($encoding =~ /x-gzip/) { print 'Content-Encoding: x-gzip', $CRLF }
elsif ($encoding =~ /gzip/) { print 'Content-Encoding: gzip', $CRLF }

print $CRLF;
print while read GURL $_, 1024; # LENGTH は適宜調整
close GURL;

>>169
http://www.din.or.jp/~ohzaki/perl.htm#File_Reverse
0173nobodyさん03/07/28 12:09ID:???
>>169
File::ReadBackwards
0174nobodyさん03/07/28 12:16ID:???
>>168
Content Negotiationに任せればいいのでは?
0175nobodyさん03/07/28 13:21ID:ZypqctSD
変数はmyで局所化するのが基本みたいなんでそうしていますが、
例えば同じ変数をどこのサブルーチンで使いたい場合はどうするんでしょうか。
いちいち変数の受け渡しをしないといけないんでしょうか。
0176nobodyさん03/07/28 13:45ID:???
>>175
局所化しなきゃいい。
0177nobodyさん03/07/28 13:47ID:???
>>168
174が言ってるように、ファイル名に.gz追加
logfile1.html.gz
HTTP_ACCEPT_ENCODING見てサーバがファイルを選んでくれる。
0178nobodyさん03/07/28 13:49ID:mZs5gojb
>>175
our。バージョン古くて使えなければuse vars。
0179nobodyさん03/07/28 13:52ID:???
>>175
妙な静的変数

{
my $static;
sub hoge {
}
sub hogehoge {
}
sub hagehage {
}
}
0180nobodyさん03/07/28 14:33ID:MPvwsvte
画像掲示板をつくっています。参照ボタンでローカルパソコン内の画像を選んだあと、
確認ボタンでその画像がブラウザで確認出来るようにしたいのですが、
良い方法ないでしょうか？
0181nobodyさん03/07/28 14:34ID:???
>>180
帰れ。
■ このスレッドは過去ログ倉庫に格納されています