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

【Perl】初心者コーナー Part19

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん03/01/11 13:52ID:???
初めに→「perl」その物のスレです。

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

1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

あとは>>2-10にまかせた。
0698nobodyさん03/01/30 07:02ID:???
$tmp = "./hoge.dat"
として、$bufferと比較してみては
if($tmp eq $buffer){print "OK<br>";}
else{print "NG<br>";}
0699nobodyさん03/01/30 13:25ID:???
なんか、かわいいな＜>>695,696
0700nobodyさん03/01/30 14:28ID:NtdcRjvu
くだらない質問かもしれませんが、
変数名とかハッシュ名を変数で与えることって出来るんでしょうか?

for($i=0;$i<=$#avs;$i++) {
if ($avs[$i] =~ /^###(.+)_PROCESSING$/) {
$process_id = $1;
$process_id2 = "\L$process_id\E";
$avs[$i] = "${$process_id}{${$process_id2}}\n";
}
}

みたいな感じで、

###DEDOT_PROCESSING っていう行を、

$DEDOT{$dedot} で置き換えたいんですが、うまくいかないです。
何か根本的に勘違いしてますでしょうか?
jperl 5.005 です。
0701nobodyさん03/01/30 14:45ID:???
$avs[$i] = "\$${process_id}{\$$process_id2}\n";
070270003/01/30 18:34ID:tRX1dMh1
>>701
それだと $DEDOT{$dedot} っていう「文字列」にしかならんのでは...
私の書き方もアレでしたが、%DEDOT の $dedot の値で置き換えたいわけで....
070367903/01/30 18:46ID:???
解決しました。
lengthで$bufferを調べてみたところ、
"./hoge.dat"だから10でなければいけないのに16になっていました。
chompを使ってみたのですが値は変わらなかったので、substrで1文字目を削ってみると
"2E/hoge.dat"という値が返ってきました。もしかしたらと思い4文字目までを削ると
"2Fhoge.dat"が、11文字目までを削ると"2Edat"が返ってきました。
どうも"."は"\2E"、"/"は"\2F"としてFLASHから送られていたようです(最初の文字が\かどうかは分かりませんが…)。
結局FLASHからは"hoge"だけを送り、CGIで
$buffer = "./$buffer.dat";
とすることで正常にファイルを読み込むことが出来ました。
本当にどうもありがとうございました。
0704nobodyさん03/01/30 20:53ID:XHYONXXP
CGIを使ってWebからサーバの管理をしてるんだが、
CGIで行ってる処理が重すぎて処理が終わるまでに
ブラウザがタイムアウトしてしまいます。

そのためブラウザがタイムアウトしないように、
CGIで処理をしている間、ブラウザに30秒に1回データを送るとか
そんな方法でブラウザがタイムアウトするのを防げないですか？
0705nobodyさん03/01/30 20:57ID:???
>>704
作ってみれば？
0706nobodyさん03/01/30 21:01ID:???
>>705
処理が重いところってsystem関数でOSのコマンドを実行してて、
この1回のsystem関数を実行してる間にブラウザがタイムアウトするんです。
で、system関数でOSコマンド動かしながら同時にブラウザにデータ送れますか？
わかんないね！
0707nobodyさん03/01/30 21:24ID:???
>>706
fork pipe nph-
0708nobodyさん03/01/30 23:30ID:???
>>702
$hashname="myhash";
$keyval="key1";
%myhash=( key1=>"key1value",);
$val = "${$hashname}{$keyval}\n";
print ":$val";

で　
:key1val
と表示されたがこれじゃダメなのか？
0709nobodyさん03/01/30 23:54ID:???
>>700
シンボリックリファレンスを使いたいっていうことだね。

まず、これを理解しろ。
$a = 'DEDOT';
${$a}{key} = 1;
print $DEDOT{key};

で、本題に戻ると、$dedotが正体不明なんだけど、
$avs[$i] =~ s/^###(.+)_PROCESSING$/${$1}{lc $1}/;
もしかしてこうしたいとか?激しく意味不明だけど
0710nobodyさん03/01/30 23:56ID:???
>>702
それより気になるのがその処理内容なんだが……。
１つのハッシュに１つのキーしか入れないのでは、ハッシュの意味がないと思うんだけど。
あくまで例としてなら別にいいんだが、そうじゃないなら処理内容を見直したほうがいいかもよ。
0711 03/01/31 04:10ID:???
翻訳掲示板を作っています。書き込みは、例えば日本側なら英語訳、英語側なら
日本語訳も記録して、日英かかわらず全ての投稿を母国語で閲覧でき、コミュニ
ケートできる、というような感じのものです。

で、掲示板スクリプト自体は簡単にできるのですが、やはり翻訳がネックとなって
います。自分で翻訳ソフト用意して、高価なサーバーをレンタルしたり、自宅で
専用線でサーバー立てたりすると、かなりの金額がかかってしまうと思うのです
（非商用の個人サイト運営程度には）。

できれば、オンラインの翻訳サービスを自分のスクリプト内で利用したいのですが、
個人で翻訳機能だけレンタルすると幾らくらいかかるんでしょう？　無料でウェブ
翻訳、テキスト翻訳を公開しているところもありますが、そういう用途に
使うのは断り書きを出してもやはり不味いですかね？
0712nobodyさん03/01/31 06:28ID:/ObcG1bj
>>711
全然Perlと関係ないじゃん。
AMIKAIが翻訳サービスOEMの老舗だけど相当高そうだね。
自分で翻訳ソフト買ってもサーバとして使うにはライセンス料が
えらく高くなる。
結局のところ掲示板を見てもらうときにexcite翻訳を通して見てもらう
しかないのでは？掲示板に入る時にexcite翻訳へのリンクを作るとか。

自作CGIで勝手にexcite翻訳を使って翻訳することも可能だけど、
exciteの広告が表示されない利用方法は問題があるからやめた方がいい。
0713nobodyさん03/01/31 07:08ID:6uKSmBl3
★http://www6.ocn.ne.jp/~endou/index2.html★
　　　　　　★こんなサイト見つけました★
0714 03/01/31 07:52ID:???
>>712
すいません。掲示板自体はperlで作っていたもので。
私の方では無論、広告やそのサイトのバナーを掲示板に表示させることは
まったく構わないのですが、向こうの方でそういう利用法を了承するかは、
やはり難かしいですかね。

翻訳は、例えばフリーのテキスト翻訳サービスを利用すると、form getを
使ってurlに投稿文を含ませたのを送って（trans.cgi?text=$body&lang=....）、
帰って来た翻訳をまたPERLで処理して出力する、という感じです。
単なる個人サイトなので、値段が年1万円を超えるようだと少し辛いです…

好きな様に利用できる本当にフリーの翻訳サイトは何処かに無いでしょうかね。
企業が無料公開しているようなのではなくて、教育機関や個人がGNUライセンスで
作ったような…
0715nobodyさん03/01/31 07:58ID:0xsv6W8Z
http://www.kenmon.net/
↑
これってアリ？


0716nobodyさん03/01/31 08:00ID:/ObcG1bj
>>714
http://www.excite.co.jp/world/agreement/
他のサービスでもたぶん同じ規約でしょう。

韓日混在の掲示板というのは見たことあるから、英日混在っていいうのも
探せばあるかも。そこがどういうやり方でやっているか。
技術的には易しいけど、翻訳サービスを安く利用するというのが難しそう。
071771203/01/31 08:05ID:???
＞ユーザーは当該私的利用の範囲を超えて、例えば営利目的のために
＞本サービスによる翻訳結果を公表、引用、改変等により使用する
＞ことはできません。

勿論、「営利目的」ではないですが、個人サイトの掲示板で使用するというのは
「私的利用」の範囲を超えるのか…個人利用する分にはCDコピーはいい（？）けど、
Napsterとかで公開するのはまずい、という感じに近いのか…。
071871203/01/31 08:29ID:???
http://www.amikai.com/company/customers.jsp
あ、スタンフォード大学にもありますね。
教育機関だし、どんなもんかな、、、
0719nobodyさん03/01/31 08:35ID:???
>>704
CGIでサーバ管理するな。
0720nobodyさん03/01/31 10:13ID:NKGtpjno
掲示板を作っているのですが、
&を&amp;に変換したいんですよ。

でもそうすると、&hearts;とわざわざ入力したときに
&amp;hearts;となってしまいハートとかを出せなくなってしまう。

どういう変換方法にすれば、
&→&amp;
>→&gt;
<→&lt;
&hearts;→&hearts;（変換されない）

こういういい感じになるんでしょうか？

ちなみに2ちゃんはどうなってるんのかわかりますか？

よろしくお願いします。
0721nobodyさん03/01/31 10:20ID:???
>>720
s/&\[^([a-zA-Z].;)]/&/g
0722nobodyさん03/01/31 10:21ID:???
>>721
s/&\[^([a-zA-Z].;)]/&amp/g
0723nobodyさん03/01/31 10:21ID:???
s/&\[^([a-zA-Z].;)]/&amp/g
072472003/01/31 10:31ID:???
はげしくどうもです！
あまりにスマートな回答に感動しました。
私はまだまだ修行がたりないようです。

またどうしてもわからなくなったら相談させてください。
0725nobodyさん03/01/31 10:45ID:???
>>724
試してないからテストしてね。
0726nobodyさん03/01/31 10:46ID:???
ごめん、＆の後ろの￥もいらない。

2chの特殊文字変換に翻弄されまくっている私。
0727nobodyさん03/01/31 11:16ID:5ww5eJFm
ここの
http://www.salut.ne.jp/bf/wmh/seminar/c010/index.php3
この
http://www.salut.ne.jp/bf/wmh/seminar/c010/enquetesys.txt

このプログラムを動かしたのだが、シンタックスえらーがでて困ってます。
072872003/01/31 11:17ID:???
？
じゃぁつまり、
$value =~ s/&[^([a-zA-Z].;)]/&/g;

でＯＫですか？
セミコロンはエスケープしなくていいんですよね？

聞く前にとりあえず試してみます。
072972003/01/31 12:10ID:???
すいません・・・

動きません。

これでは
$value =~ s/&[^([a-zA-Z].;)]/&amp;/g;
エラーになります

&^([a-zA-Z].;)
だとエラーになりませんが変換されないし・・・

さっぱりです。
073072003/01/31 12:12ID:NKGtpjno
↑は一応しつもんなのでageさせていただきます
0731 ◆PerlqhxPVA 03/01/31 12:21ID:???
>>729
$value =~ s/&(?![\#0-9a-zA-Z]+;?)/&/g;
でどぉだ？
0732 ◆PerlqhxPVA 03/01/31 12:23ID:???
>>731
$value =~ s/&(?![\#0-9a-zA-Z]+;?)/&amp/g;
エスケープ忘れｽﾏｿ
0733 03/01/31 12:33ID:???
Strictを使った時にエラーが出ない様に、
冒頭でour ($aaa,$bbb)って感じで大量に
global variablesを列記してるのですけど、
これってやる意味あるのでしょうか？　
書かなくてもStrict外せばscript自体は動くのですが。
073472003/01/31 12:37ID:???
>>732
完璧です。泣ける。
すでに私には理解できない正規表現になっちゃってますが・・・。
勉強してきます。

ついでに、こういうときって、不明な実体参照をいれても
もちろんそのままになりますよね。

これは掲示板の仕様として正しいのでしょうか？

それともちゃんとした実体参照なのかどうかのチェックをいれてあげる
べきなのでしょうか。

ちょっとスレ違い気味の質問かも。
0735nobodyさん03/01/31 12:57ID:???
>>733
グローバル変数を極力使わないようなコーディングを心がけるべし。
0736nobodyさん03/01/31 13:14ID:???
>>732

a = j&p;

0737　03/01/31 13:38ID:???
くだらない質問ですが
「data」に書きこむ際に「http://〜」の文字を送ると「http//〜」のように「:」が抜けて
「data」に書きこまれるんですがなんでかわかりません。どうしてでしょう？
0738nobodyさん03/01/31 13:39ID:???
>>737
それだけで分かれと言う方が無理。
0739nobodyさん03/01/31 14:03ID:???
>>737
まぁ、データのセパレーターか何かでコロン使ってるんじゃないの？
スクリプト中で消されてるんだろ。
0740nobodyさん03/01/31 14:14ID:???
>>737
そもそも "data" って何だ？ファイル名か？ファイルハンドルか？
ファイルハンドルは大文字使ったほうがいいぞ。
ただし DATA ファイルハンドルは予約されてるから注意な。

とりあえずソース晒せ。
0741nobodyさん03/01/31 14:20ID:???
お前ら、このアホがPerlなんぞ書けるとでも思ってるのか？
0742nobodyさん03/01/31 14:27ID:Q0yPIF7u
MS-DOS上でPerlを動かしているのですが、
My Documentsのようにスペースの入ったフォルダのなかまでglobでファイル一覧を得ることはできないのでしょうか？
なるべくならワークディレクトリを移動せずに相対パスで指定したいのですが。

print glob("dc\\My Documents\\*");
0743nobodyさん03/01/31 14:40ID:???
>>742
ファイル名をMS-DOS形式で記述してみては？
My Documents → MYDOCU~1 とか。
0744nobodyさん03/01/31 14:48ID:???
すいません…
やってみましたが、WinMEなのでプロパティにはＤＯＳ形式のファイル名が表記されていませんでした。
あと、深いディレクトリまで自動探索していくバックアップ系ツール（のヘタレ品）なので、globで得たディレクトリ名を自動的にＤＯＳ形式のファイル名に変換するというのも漏れの技術では少々難ありです…

なんでか、ロングファイル名でglobに引っかかるんですよね。
0745nobodyさん03/01/31 14:51ID:???
>>744
dirコマンドのオプションを確認。
074674403/01/31 14:56ID:???
>>745様
globでdirコマンドのオプションが使えるということでしょうか？
dir /? してみたところ、 /p w a o s b l v 4 の各オプションがあるようですが、旧ファイル名で表示するオプションは見当たりませんでした…。
0747nobodyさん03/01/31 14:56ID:6uKSmBl3
★http://www6.ocn.ne.jp/~endou/index2.html★
　　　　　　★こんなサイト見つけました★
0748 03/01/31 15:02ID:???
>>735
ああ、つまりglobal関数は極力控える方が良いコーディングになる
ということなんですかね。
0749nobodyさん03/01/31 15:03ID:???
>>744
globじゃなくて、readdirでディレクトリ内を取得してみたら？
これでディレクトリを移動する処理を組んだけど、スペース入りディレクトリも
ちゃんと辿っていけたよ。
075074403/01/31 15:05ID:???
なるほど！！readdirですか！Σ（￣Д￣；）
さっそく試してみます。ありが沌でした！
0751nobodyさん03/01/31 20:42ID:???
>>734
すべて変換して実態参照を無効化する。必要なものは元に戻す。ってすればいい。

つまり、
s/</</g;
s/>/>/g;
s/&/&/g;
s/&hearts;/♥/g;

&hearts(セミコロンを忘れたもの)は無効なものとして処理しておけばいいじゃろう。
0752nobodyさん03/01/31 20:48ID:???
>>751
で、すべての実体参照にその論理で対応するわけか。ブルーだな。
0753nobodyさん03/01/31 21:09ID:???
>>752
そのぐらい工夫してよ。。
一番簡単で安全だと思ったから書いたんだけどー、
自分では分からなかったから悔しいのかな?

$text =~ s/</&lt;/g;
$text =~ s/>/&gt;/g;
$text =~ s/&/&amp;/g;

@allow = qw(hearts ... ...);
foreach my $str (@allow) {
　$text =~ s/&amp;$str;/&$str;/;
}
0754nobodyさん03/01/31 21:21ID:???
>>753
＞@allow = qw(hearts ... ...);
これがダサいと言ってるんだが・・・。
0755nobodyさん03/01/31 21:27ID:???
じゃあ速くて格好いいのを書いてください。
075672703/01/31 21:49ID:5ww5eJFm
require 'cgi-lib.pl';
&ReadPlarse(*form);
require 'jcode.pl';
&jcode'convert(*form,'sjis');
$data = $form{'name'}\n$form{'mail'}$form{'sex'}\n$form{'ryori'}\n$form{'message'}\n\n
open(ENQ, ">>$enqdata.dat")||do{print "ERR";exit;};
#flock(ENQ, 2);
print ENQ $data;
#flock(ENQ, 8);
close(ENQ);
print "Content-type:text/html\n\n";
print >> "END_OF_HTML";
<HTML>
<HEAD>
<TITEL>有難う御座いました</TITLE>
</HEAD>
<BODY>
アンケートは送信されました！<BR>
またのお越しをお待ちしています
</BODY>
</HTML>
END_OF_HTML

これを動かしたらシンタックスえらーがでたけどなんで？
公開されているプログラムなのに。
http://www.salut.ne.jp/bf/wmh/seminar/c010/index.php3
0757nobodyさん03/01/31 22:14ID:1gqujj9y
>>756
またおまえか。馬鹿かお前は。
エラーが出たんならどんなエラーがさらさんとわからんだろうが。
本気で答えて欲しいのならそれなりの情報を出せこの厨房が。
0758nobodyさん03/01/31 22:17ID:???
>>734
確か、&はいっさいCGI側で変換しない方がいいよ、
っていう文章を読んだことがある気がしたんだけどソース失念。

もし&ltr;のように封じたい文字参照があれば
狙い打ちでエスケープすれば済むし。
0759not75403/01/31 22:25ID:???
>>753
my %refchr = qw(hearts & clubs & diams & spades &);
$text =~ s/&(\w+?);/($refchr{$1} or '&')."$1;"/ge;
もちっとマシな書き方があるかも。

>>756
エラーをコピペ。
500 Inter(略は無意味だからね。
076075103/01/31 22:37ID:???
自分が想定しないゲロい実体参照を入れられる事が、危険だと考えるなら、
有効だと思うんだけどなぁー

>>759
&aaaaaみたいなものの&がそのまま残る可能性があるから、ブラウザに拡大解釈
される可能性が残るので良くない。
これに対処しようとすると、その方法だと異常にやることが増えて、>>751に書いた(変だけど)
単純な置換の方が圧倒的に速くなる、はず。
076175903/01/31 22:49ID:???
ほんとだ。
あちらを立てればこちらが立たず。
0762nobodyさん03/01/31 23:32ID:???
# 安全
s/&(?!(?:amp|#(?:[Xx][0-9A-Fa-f]+|[0-9]+));)/&/g;
s/"/"/g;
s/</</g;
s/>/>/g;

# 便利
s/&(?!#(?:[Xx][0-9A-Fa-f]+|[0-9]+);)/&/g;
s/&(?:amp;)([0-9A-Za-z]+;)/&$1/g;
s/"/"/g;
s/</</g;
s/>/>/g;
0763nobodyさん03/01/31 23:34ID:???
あー。

# 安全
s/＆(?!(?:amp|#(?:[Xx][0-9A-Fa-f]+|[0-9]+));)/＆amp;/g;
s/"/＆quot;/g;
s/</＆lt;/g;
s/>/＆gt;/g;

# 便利
s/＆(?!#(?:[Xx][0-9A-Fa-f]+|[0-9]+);)/＆amp;/g;
s/＆(?:amp;)([0-9A-Za-z]+;)/＆$1/g;
s/"/＆quot;/g;
s/</＆lt;/g;
s/>/＆gt;/g;
0764nobodyさん03/02/01 01:11ID:PH6PPkmG
↑にも出てるけど・・エラーメッセージってどうやって出すんですか？
俺今までInternalServerErrorがでると1行1行チェックしてた・・・・

誰かアホな俺に教えてくれ。。
0765nobodyさん03/02/01 01:21ID:???
>>756
スクリプトの記述ミス発見したところだけ
これ以上はしらん。後は自分で探してくれ。

誤：&ReadPlarse(*form);
正：&ReadParse(*form);

誤：print >> "END_OF_HTML";
正：print <<"END_OF_HTML";
0766nobodyさん03/02/01 01:33ID:???
>>764
http://www.harukaze.net/~mishima/perl/cgi-debug-env/deb-tech.html
0767 ◆PerlqhxPVA 03/02/01 01:43ID:???
うちの鯖は 500 鰓の時、エラー内容の出力をさせています。
でも、ディレクトリ構造がばれるのでこあいです（ｗ

♪なんだか & 処理が加熱しているねぇ、、、
　そこまで何にも考えていなかった、、、ｽﾏｿ
076876403/02/01 01:49ID:ofCxo2ei
>>766

ありがと〜
0769nobodyさん03/02/01 02:27ID:???
test
0770nobodyさん03/02/01 11:59ID:E95fdX8s
mod_perl で動かすとApacheのエラーログに
サブルーチンがなんたらかんたらと出ます。
なんでかな？

Subroutine main redefined at /usr/local/apache/perl/main.cgi line 16 (#1)
(W redefine) You redefined a subroutine. To suppress this warning, say

{
no warnings;
eval "sub name { ... }";
}
0771nobodyさん03/02/01 12:16ID:0/Z0vaJ7
こんな情報です。

http://pakopako.misty.ne.jp/enter.cgi?id=fdeai
0772nobodyさん03/02/01 12:23ID:???
>>770
コード出せハゲ。
0773nobodyさん03/02/01 12:23ID:???
>>770
関数の2重定義してない？
0774nobodyさん03/02/01 12:27ID:E95fdX8s
>>772
やだ。
>>773
それはないです。
perl -c で実行してもOK。
CGIで起動した時もOK。
mod_perl環境の時にだけエラーでる。
0775nobodyさん03/02/01 12:27ID:???
>>772
やだ。
>>773
それはないです。
perl -c で実行してもOK。
CGIで起動した時もOK。
mod_perl環境の時にだけエラーでる。
0776nobodyさん03/02/01 12:33ID:???
やだ？なら質問するな。
0777nobodyさん03/02/01 13:00ID:???
mod_perl(Apache::Registry)で動かしたいと思うなら、真面目に書かないと無理なんだよ。坊や。
0778nobodyさん03/02/01 15:48ID:???
Perlの入門書を見て勉強中ですが、
$|=1;
としてバッファを・・・・
とか言われるのですが
そもそもバッファとはなんぞや？
と初心者の私は疑問をもつわけで・・
その辺をうまく説明していただけないでしょうか？
0779nobodyさん03/02/01 15:51ID:???
>>778
ダムだよ。ダム。

ちょろちょろとしか来ないデータをある程度貯めておいて一気に取り出したり、
速い流れを取りあえずせき止めておいて自分のペースでゆっくり処理したり。

そう言うことに使う入れ物だ。
0780nobodyさん03/02/01 16:26ID:???
>>778
「おーい、ちょっと倉庫からこけし１００本持ってきてくれ。あ、一度に渡すのは１本でいいから」

倉庫に行って１本持って戻ってきて渡す。これを１００回繰り返す。（バッファなし）
一旦倉庫から１００本まとめて近くの机の上に持ってきて、そこから１本ずつ手渡す。（バッファあり）

この「近くの机の上」に相当するのがバッファ。
078177803/02/01 16:47ID:???
バッファあり、なしの違いはなんとなくわかったけど
プログラムを組む上で
バッファありとなしとでなんか変わりますか？
たとえばsysread()とread()で、
結局読み出すんなら一緒だと初心者の私は思ふ。
そこらへんプログラムを書く人はどのように
使い分ける必要があるんだろ？
0782nobodyさん03/02/01 16:56ID:???
速度が数倍から数十倍違う。
こういうことに気をつけることをせずにプログラムを組んでいくと
いずれ、「遅いぜっ！ヴァニラアイス！」
という感じで、体中を串刺しにされる運命を辿ることになる。
0783nobodyさん03/02/01 17:00ID:???
>>781
速度が全然違うよ。
バッファなしなんて遅すぎて使い物にならない。
……っていうのは、8ビット時代のお話。

Perlの場合、既にプラットフォーム上（UNIXなりWinなり）でバッファリングしてくれて
いるので、Perl自身がバッファリングしなくてもそれほど体感的な差はないと思う。
でも、バッファの考え方自体は覚えておいたほうがいいと思うよ。
ファイルを一旦リストに読み込んで処理…なんてのもバッファ的なやり方だし。
0784nobodyさん03/02/01 17:09ID:???
>>781
Socketを使う時はリアルタイムにやりとりが必要になるんで、
バッファを回避しないとまずい。
0785nobodyさん03/02/01 17:24ID:???
Perlで任意の時点でバッファをフラッシュする方法がわからん・・・fflushなんて関数もないし。
しかたないからunbufferedにしちゃっているけど。
0786nobodyさん03/02/01 17:56ID:???
$fh->flush;
0787nobodyさん03/02/01 18:17ID:???
>>785
私も知りませんでした。
>>786
FileHandleモジュールで、いいでしょうか。
調べたところIO::Handle由来の機能っぽいですね。
(FileHandleのドキュメントに無かった…)

旧来の書き方なら flush FH; とかですか。
0788nobodyさん03/02/01 18:49ID:???
IO::Fileじゃないと使えないぽい。

でも最近のFileHandleはIO::Fileを使うようになってるから、FileHandleでも使えるかも。
0789nobodyさん03/02/01 20:01ID:???
>>783
差が出る使い方すれば差が出る。
0790nobodyさん03/02/01 20:24ID:???
>>782
ちなみにバッファリング　あり、なし
でどっちが速いの？
0791nobodyさん03/02/01 20:58ID:???
>>790
人の話聞けよ。
0792nobodyさん03/02/01 21:32ID:DN2rKwgG
当方、ActivePerl5.6とApacheHTTPServer2.0.43で自鯖を構築したのですが、
掲示板スクリプトを自鯖にUPしたところ、bbs.cgiが表示されません。
真っ白です。なぜでしょうか？
ちなみに、管理モードに入るためのパスとログイン名入力のページは表示されます。
しかし、そこから、bbs.cgiに行っても、やはり真っ白です。
0793nobodyさん03/02/01 21:40ID:???
bbs.cgiなんてどこにでもあるようなものじゃわからん。
それにスレ違い。
ここはPerlのコーディングについてのスレッド。
0794nobodyさん03/02/01 21:44ID:???
>>793
板違いだよ。
0795nobodyさん03/02/01 21:47ID:DN2rKwgG
>>793
うっせぇぼけ。仕立てにでりゃ調子こいてんじゃねぇぞ。
答えれないだけだろ低スキル野郎。てめぇはチンカスほじって寝てろや。
0796nobodyさん03/02/01 21:47ID:DN2rKwgG
>>794
違げえよばーか。
0797nobodyさん03/02/01 22:00ID:???
>>792
(･∀･)ﾆﾔﾆﾔ
■ このスレッドは過去ログ倉庫に格納されています