【Perl 】初心者コーナーPart5

初めて来た方、初心者はまずこのスレッドから始めよう。
尋ねる前に同じ質問がないかこのスレや旧スレ、及び>>2のリンクを一通り見てみよう。
案外答えはもう書かれているかもしれない。

[関連スレッド]
Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521
Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156
【Perl,CGI】参考書籍　http://tako.2ch.net/test/read.cgi?bbs=perl&key=970166109

[総合]
□Perl Com: http://www.perl.com/pub/
□CPAN.com: http://search.cpan.org/
□ActivePerl: http://www.activestate.com/

[お薦め]
　・Perl Recipes: http://www.effectiveperl.com/recipes/
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html

[Module]
　・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module/
　・PPMPackages: http://www.activestate.com/PPMPackages/
　・河馬屋二千年堂's Page: http://member.nifty.ne.jp/hippo2000/index.htm

[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・PerlMonth - Online Perl Magazine - : http://www.perlmonth.com/index.html
　・use Perl All The Perl: http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Perl for Newbie: http://www.harukaze.net/~mishima/perl/index.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/

age

鯖移転したのかな？
本当にPart5はここでいいのかな？
最近はトップページ（インデクス）見てないからわからな〜い（はあと

小数点の含まれる引き算を行なうと、たまに0.000000000000001の
誤差が出ることがあります。
10.45-9.55の答えが0.899999999999999とかになるのですが、
どなたかこの現象の原因と解決法をご存知ないでしょうか？

>>5
いい所に気がついた。
長くなるので原因については割愛。

解決法は幾つかあるが、簡単なのは(s)printfだな。

printf '%.2f', 10.45 - 9.55;

$d = sprintf '%.2f', 10.45 - 9.55;
print $d;

>>6
ｶｺｲｲ。。。
有能な回答者はコテハン化きぼーん！

>>6
ありがとうございます。
とりあえずなんとかなりました。

後学の為に原因も知っておきたいのですが
どこかにそれを記載している場所などを
ご存知でしたら教えていただけないでしょうか？

重ねての質問申し訳ありません。

>>8
たとえばここ。
http://www.sail.t.u-tokyo.ac.jp/~aida/cp97/971219.html
Googleで「浮動小数 計算誤差」とか入れて検索すればわらわら
見つかる。

>>8

原因を一言でいうと「Perlの内部では数値は文字列として格納されているわけではない」って事だな。
変数に型のある言語（Cなど）を扱っていれば理解しやすいし、教えやすいのだろうが
あいにくPerlオンリーな俺に分かりやすく詳しい説明は無理だ。スマソ。

だが「後学の為に知っておきたい」という意欲があるのならラクダ本でも買ってみたらどうだろうか。
浮動小数点数の精度については少ししか載っていないが、損はしないと思うぞ。

代わりといっちゃなんだが>>5の別の方法
>>6の他に標準モジュールのMath::BigFloatを使うという手がある。
これなら精度は無限だ。
#!/usr/bin/perl
use Math::BigFloat;

$a = Math::BigFloat->new(10.45);
$b = Math::BigFloat->new(9.55);
$c = Math::BigFloat->new('0.123456789');#小数点以下が長い場合は文字列としてnewに渡す

print $a - $b, "\n"; #".9"
print $a + $b + $c. "\n"; #"20.123456789"

__END__



>>7
ヘタレをおだてないでくれ（ｗ；
ｺﾃﾊﾝはJapuさんや_gunzipさんくらいにならんとな･･･。

>>10
丁寧な解説ありがとうございます。
ラクダ本に載っているのは知りませんでした。
まだ途中までしか読めていないので。
これから頑張って続きを読んでいきたいと思います。
本当にありがとうございました。

すいません、教えてください
入力フォームからデータを受け取ってPostgreSQLにデータを渡す際に日本語は
文字化けしてしまいます。
どのようにしたらいいのでしょうか？

>>12
URIエスケープってオチは無いよな？

連想配列のサイズの制限は？

いまは、なんでもかんでも連想配列に放り込んでいる（だって、便利だもん）んだけど、
将来的には、データサイズが大きくなりすぎたら、自動的にＳＱＬのＤＢとかを叩く、みたいな
仕様を考えてます。
で、質問。
連想配列（にかぎらず、ＰＥＲＬの変数全般）に、サイズのリミットをかけることは
可能ですか？

＃ 心配しなくても、仮想記憶が解決してくれるよ、ってのはナシ。

>>14
サイズ＝キーの数って意味なら
擬似ハッシュというものがある。
通常のハッシュより遅いけどな。

データサイズが大きくなりすぎて困るってのなら
DB_Fileを使うという手もあるぞ。

追記

Perlの変数にサイズを設ける事は、可能。
tie()を調べよ。

フォームからの入力を受け取る
↓
ＥＵＣに変換
↓
insert into * values (hoge,hoge2);
↓
(ﾟдﾟ)ﾀﾞﾒﾀﾞｺﾘｬ

という感じなのですが

>>17
その文から想像するに
#--
$query = $ENV{QUERY_STRING}
or
read STDIN, $query, $ENV{CONTENT_LENGTH};
$query = Jcode->new($query)->euc;
#--
とでもやってるのか？
そりゃダメだわ（藁

表示は文字コード何？

フォーム（Shift_JIS）
↓
EUC-JPに変換
↓
DBに入れる
↓
表示（Shift_JIS）

とかDBから表示の際に文字コード変換してないとか言うオチじゃない？
もしくは半角カナ入れてるとか。

>>18さん>>19さんありがとう
>>19さんのご指摘の通りでした、修行しなおしてまいります。
半角はさすがに。。。

どなたか教えてください。
yomikomi.txtというテキストファイルにデータが
一行に一つずつ入っています。何個データが入ってるか判りません。
それを配列に入れて、とりあえずランダムで要素を一つだけ選びました。（kazu1）
もう一つ配列の中からランダムで選びたいです。
ただし、先に選んだkazu1以外の要素にしたいです。（kazu2）
↓のようにやってみたのですが上手くいきません。

#yomikomi.txtを@nyuuryokuという配列にする
open (KENSAKU,"<yomikomi.txt");
$count = 0;
while ($nyuuryoku[$count] = <KENSAKU>){
chop $nyuuryoku[$count];
$count = $count + 1;
}
close (KENSAKU);

#とりあえず、ランダムで要素を一つ選ぶ
srand();
$kazu1 = int (rand($count));

#もうひとつ、ランダムで要素を選ぶ
srand();
rand;
$kazu2 = int (rand($count));

#選んだ要素（kazu1　と　kazu2）が同じならkazu2を選びなおす
while (kazu1 == $kazu2){
rand;
$kazu2 = int (rand($count));
}

#表示して確認。※ここで$kazu1とkazu2がそれぞれ違っていれば
#良いのですが同じになってしまいます。
print "$count　←要素数\n";
print "$kazu1　←kazu1\n";
print "$kazu2　←kazu2\n";
exit;

http://chat.gaiax.com/ここのチャットには
「プライベートチャット」なるjavaでできた他人には見れない会話システムがあるのですが、
これらを全て丸見えに出来る方法があると聞きました。
これは本当ですか？あったら教えてください。
日曜の昼下がりですがお願いします。…ひょとして板違い？

>>21
ちょっと無駄が多いな。

open (KENSAKU,"<yomikomi.txt");
$count = @nyuuryoku = <KENSAKU>;
close (KENSAKU);

srand();
$kazu1 = int (rand($count));
$kazu2 = int (rand($count));

while ($kazu1 == $kazu2){
$kazu2 = int (rand($count));
}

print "$count　←要素数\n";
print "$kazu1　←kazu1\n";
print "$kazu2　←kazu2\n";
exit;


srandは１回にしろ。
『srand』（乱数の初期化）は、()を省略した場合、その時の時間を入れる。
sleepでもかけない限り、srandの結果は大抵同じになるってこと。
あと、所々$が抜けてるからそれも確認してみな。

#!/usr/bin/perl
use FileHandle;
srand;
chomp(my @in = FileHandle->new('< yomikomi.txt')->readlines);
my($n1, $n2);
until($n1 eq $n2){
($n1, $n2) = (int(rand(@in)), int(rand(@in)));
}
my $count = @in;
print <<EOD;
$count
$in[$n1]
$in[$n2]
EOD
__END__
ところどころvoidでrandが置いて有るのがよく分からんが

23さんありがとうございます。
> srandは１回にしろ。
親切に教えていただいてありがとうございます。
> あと、所々$が抜けてるからそれも確認してみな。
すみません。全く気づかなかったです。
-wcでチェックしたんですがエラーにならないんですね。

24さんありがとうございます。
> ところどころvoidでrandが置いて有るのがよく分からんが
何回も呼び出したほうが、よりランダム性が高まるかと思って使いました。
24さんのスクリプトは自分にはかなり難しいですが勉強になります。

＞-wcでチェックしたんですがエラーにならないんですね。

use strict 'subs';によりそのような間違いを回避することが出来ます。

perlってlinuxだと大抵デフォルトで入っているんだけど
HP-UXだと公式には入っていないのでソース持ってきてインストール
しなきゃならんですよね。SUNとかIBMとかはどうなんでしょか？

乱数にはrand()というのがありますが、かなり質の悪い乱数のように
思えます。
もう少し綺麗な乱数を作るにはどうしたら良いんでしょうか？

勿論、rand並に手軽に使えるぐらいの大きさで、ですが。

>>28
逆に聞きたい。
キミの言う綺麗な乱数とは何か？

>>28
前にプログラム技術板でよさげなやつを見たなあ。えーと、
http://piza.2ch.net/test/read.cgi?bbs=tech&key=978946000
これこれ。レス82にあるメルセンヌツイスターというやつです。
どうでしょ。

メルセンヌツイスターホームページ
http://www.math.keio.ac.jp/~matumoto/mt.html
Cで書かれたコードに直リンク
http://www.math.keio.ac.jp/~matumoto/mt19937int.c

いろいろ、
http://search.cpan.org/search?mode=module&query=random

Mersenne Twister使った、Math::Random::MT ってのもあるね。

がいしゅつかもしれないけど、昨日こんなコードではまってしまった.

function Ike($mojiretu = NULL)
{
//文字列があったら処理せよ.
if ($mojiretu)
{
echo "逝ってよし";
}
else
{
echo "文字列ないよん";
}
}
このコードは、 $mojiretu = "0"; がきたときには else に分岐してしまう.
ちゃんと、 if ($mojiretu != NULL) と、しないとだめなのだ...
実行時に型判別の恐怖.鬱だ.

PHPのスレと間違えました.
ごめんなさい.

CRとLFの改行って何が違うのですか？

文字が違います。

UNIX　LF　　　\n
Win　CR＋LF　\r\n
Mac　CR　　　\r
かな

>>36
ｼｯﾀｶはｶｺﾜﾙｲね
WinでもUnixでも（多分Macでも)改行は\nだよ

binmodeすればWinの\nとUnixの\nは同じになるけど。
（Macは知らん）

とりあえずLFは改行、WinだとCRというゴミが付くと思っていれば良いんじゃないの？>>34

CR \x0D \015 \cM
LF \x0A \012 \cJ

myの使い方について質問です。

1;foeeach my $var(@array){ }
2;my $var; foreach $var(@array){ }

この1の使い方、毎回my宣言しているので2と比べ効率が悪い気がするのですが、
JAPUさんなどはよく1の方法で回していますよね？
これは何か理由があるのでしょうか。

>>40
おれも無意識に1の方法を使ってるなあ。なぜかと考えるに、
$varのスコープをブロック内に局所化できるのが
気持ちいいから、ではなかろうか。

訂正) s/foeeach/foreah/;

>>41
簡単なベンチマークを取ったところ、数％ですが2の方が高速でした。
気にするほどではないと思いますが、
無意識に1の方法を取るほどいいメリットとも思えません…＜$varのforeachブロック内への局所化
他に利点は無いのでしょうか？

すみません新規質問です。
ASPで動くXML::DOMモジュールはどこにあるんでしょうか？

私が 1. の方法を利用するのは、>>41 さんと同じ理由です。
変数は可能な限り局所化する主義なので。

# その2%程度が気になるような人はアセンブラで組めば良い。:-p

>>44
なるほど。納得しました。
>>41, >>44 ありがとうございます。

ずっと気になっていたのでスッキリしました。

スクリプトＡ.plの中からスクリプトＢ.plを起動させるときに
Ｂ.plへ変数を渡す方法とＢ.plが終了した事をＡ.pl内で
判断する方法を教えてください

お願い致します

スクリプトＡ.pl内

　system(perl B.pl $A $B $C > $log_file)

open(LOG,"< $log_file")


というコーディングでよいのでしょうか？

>>46
require 'A.pl';
では不満なのか？

>>48
Ａの中から変数を与えてＢを実行し
Ｂのログをファイルにリダイレクトさせた物を
再びＡの中で加工したいのです。

チャットについて質問です。
チャットのリロード機能がついてる仕様は絶対にフレーム型でしょうか。
つまり、chat.cgiで入力フォームと会話表示（ログ表示）部分をlog.htm
などとします。
log.hmにrefreshを使い自動更新しますよね。
しかし、入力部分と会話表示部分がひとつ画面だと
chat.cgiを更新してしまうので入室画面に戻ってしまいます。
結論は、フレーム型のチャットが嫌なので一体型で自動更新したいのですが
何か方法はありますでしょうか？

>つまり、chat.cgiで入力フォームと会話表示（ログ表示）部分をlog.htm
>などとします。

ちょっとここは書き間違いです。

>>50
理屈の上ではフレームを使わないCGIも作れます。
でも書き込みしてる最中にリロードが起きると、
せっかく途中まで書いた文章が消えちゃうよ？
それって利用者から文句出まくりだと思うんだが。

>>49
とりあえず>>47でいいのでは。
systemの引数がクォートされてないのだけ気になったけど。
こうね => system("perl B.pl $A $B $C > $log_file");

ごく簡単な改造でイイと思うんだけど
作製依頼は何処で出したらイイですか？

>>54
それに最も近いスレッドは↓ここか。
[スクリプト改造工房] http://corn.2ch.net/test/read.cgi?bbs=php&key=988808396
ただし答える人はそう多くない。無視されたらあきらめること。

どのスレに書き込むか迷ったので初心者に書きます。

ある板でロゴの投票をしようという事になったのですが、
Win板のロゴ投票では、投票した人間のアクセスログも
わかっていたようです。
こういうのは投票用のCGiにアクセスログの機能もついてる
ものなのか、アクセスログ用のCGIの見る先が投票用のCGI
にしてるのかわかりません。

アクセスログ機能がついてる投票用のフリーCGIとか
あればいいんですが、探す限り最新の投票のホスト名だけ
とかばかりで一覧にバーッとログファイルができるようなのが
ないんですが‥うーん‥

>>56
なにが言いたいのかわからんぞ。もちっと整理してくれ。頼むよ。
Windows版がロゴ投票に使ったのと同じCGIが欲しいってことか？
しかしそれならWin板に行って話をすればいいだろうし・・・。

＃あ、もしかしたら、同じようなCGIが欲しいけど、
＃Win板に頭を下げるのがイヤなマッカーな人？

>>53
レスありがとうございます。
ログ加工までなんとかできました。

ついでといってはなんなのですが、
実際にスクリプトを実行せずにコーディングチェックだけを
行えるデバッグモードみたいなことはperlで出来ませんでしょうか？
環境はシステムがwin32でperlはperl5とjperlがあります。
（perl5とjperlの違いもよくわからないのですが・・・）

>>59
ん？　perl -wc <スクリプト> じゃだめ？
# Tもつけよう。

たびたびすみません。
配列@getに変数で値を追加していきたい時は

while(....){
@get = $hensu
}

で行えますでしょうか？

＞５７
Win板で聞いてきたんですが
誰も答えてくれません（泣）
ロゴ投票まとめてた人の目につかないだけかもしれませんが。

投票した人間のログを記録するようなCGIが
欲しいということです。
一応フリーの投票用の探したんですが
ログファイルとか残すタイプがなかったもので。

$i = 0;
while(....){
$get[$i] = $hensu;
++$i;
}

と行わなければ、やっぱり駄目でしょうか？

>>63
push @get, $hensu;
Perlの本でも買ってきたら？

>>63

while(...) {
        push @get, $hensu;
}

被った・・・

Perlで簡単なプロクシサーバー（つーかただのフィルタみたいなもんだけど）
を書いているのですが、ActivePerlで fork 使うと速攻で落ちます。
やっぱりWindowsで fork は無理ですか？ちなみにスクリプトの方のバグかと
思ってLinuxでテストしたら普通に動きました。なんかActivePerlは
かわりにスレッドが使えるとかなんとか聞いたような気がするんですが
どうなんでしょう。

>>67
Perlのバージョンは？

>>68
ActivePerl-5.6.0.616です

>>62
#---
sub logsave{
local *LOG;
open LOG, '>>log.dat' or return;
flock LOG, 2;
print LOG <<EOD;
${\time()}<>$ENV{REMOTE_ADDR}<>$ENV{HTTP_USER_AGENT}
EOD
close LOG;
}
#---

>>69
スマン、俺じゃ分からん。
Perl5.6.0.623でforkのテストをすると成功する事もあるがDLLのエラーで落ちる事もあった。
スレッドはｻﾊﾟｰﾘわからん。"perldoc Thread"とでもしてくれ。

>>71
あら、残念。ActivePerlじゃなくても最近のPerlは
スレッド使えるみたいだけど、スレッドに関する資料が
少なくてよくわからないよ。ちなみに perldoc は見た
んだけど、スレッドが使えるって言うのはこのモジュールの
ことを指すの？なんか実験的な機能とか書いてあるけど…
まあとりあえずちゃんと読んでみるよ

あと、とりあえず perl -V 打ったら
usethreads=undef
ってなってたからこのままじゃスレッドは使えない
のかな。もしかしてこれを有効にするにはソースから
なんかオプションつけてコンパイルしなくちゃならないの？

わから〜ん！誰かヒントを！

if($data[2] =~ /^$data2[0]/){
}

以上のようにコーディングしたら
if文のセンタックスエラーでこけてしまいました。
//で変数は使えないのでしょうか？

>>73
パターンマッチの中では[]は特別な意味あり
ちなみに変数は使える。

$tekito = $data2[0];
if ($data[2] =~ /^$tekito/) {}

とかにしたら？

syntax errorなら何処かでセミコロンが抜けているに一票

ちなみに>>74は不正解。
#!/usr/bin/perl
$data[2] = 'abc()';
$data2[0] = 'ab';
print $data[2] =~ /^$data2[0]/;
__END__

＞76
ほんとだ、真になってた。適当書いてスマソ

>>67-72
おおー。ActivePerlの5.6って、
スレッドを使ってforkのエミュレーションするようになったんだ。
perldoc perlfork をざっと見てみました。
まだpipeは使えないんだね。

二次元配列で配列の二次元目(?)の要素数を調べには
どうしたらいいでしょうか？
$hoge[0][$n]の$nが何個か知りたいんです
あんまりPerlでは二次元配列はつかわないんでしょか？

>>79
$size = scalar @{$hoge[0]}

Perlの2次元配列は実際には「配列へのリファレンス」の配列。
つまり$hoge[0]等は各々が配列へのリファレンスである。
@{$hoge[0]}としてデリファレンスすると配列の実体になる。
あとは定石通りscalar関数で配列サイズを取得。

>>79
自分が知らないというだけで「使われていない」と思うのはどうか。
まぁ修得が若干難しいというのは確かだが。

#!/usr/bin/perl
$aryref0 = [qw(0 1 2 3 4 5)];
$aryref1 = [qw(0 1 2)];
$aryref2 = [qw(0 1 2 3 4 5 6 7 8 9)];

@ary = ($aryref0, $aryref1, $aryref2);

print <<EOD;
$#{$ary[0]} + 1 = ${\($#{$ary[0]} + 1)}
$#{$ary[1]} + 1 = ${\($#{$ary[1]} + 1)}
$#{$ary[2]} + 1 = ${\($#{$ary[2]} + 1)}
EOD
__END__

>>80-81
サンキュー
{$hoge[0]}って囲む事を知らなかったから問題だったんだな
説明もわかりやすかったし
スクリプトもわかりやすくて助かりました
あまり使われていないのかって書いたのは
Cの参考書には二次元配列について書いてあっても
Perlの参考書には書いてなかったからさ
Perlはいろんな方法がある分二次元配列とかは
そんなに使わないのが普通なのかなって思って
サブルーチンの中でグローバル変数を
あんまりつかわないのと一緒で
大体他の方法で抜けるのが一般的かなと思ったんです

ほんとにありがとう

Perlの参考書に書いていないのは
CGIスクリプトを作る際に必須な概念ではないってのが大きいんじゃないかな。

>>82
そんな本はすてちまえぇ！

mod_perl
てなんて読むの。

もどぱーる?
もじゅーるぱーる?

う。なやまず「もっどぱーる」とよんでた。
どうなんだろう。

おれも「もっどぱーる」派

>>85
「もっとPerl！」を、方言にした感じで「もっどぱーる」

なにも知らずに動けばそれで良しな私は
　@data[x]
$data[x]
を一緒に使っちゃってますが、やはり問題ありますよね？

　詳しいことは知らないが、Perl6からは、@data[x]は、配列のスライスではなく、
配列の要素を指す記述方法になるらしい。
　配列のスライスは、別の記述方法が用意されるらしいです。

>>89
問題あり

半角カナの処理ってどうされてますか？
おいらはjcode.plで全角にしちゃってますがその他ってなにか方法
ありますか？

ﾍﾞﾂﾆ｡ﾒｰﾙｼﾞｬﾈｰﾝﾀﾞｶﾗﾒｸｼﾞﾗﾀﾃﾙｺﾄﾓｱﾙﾏｲ＜ﾊﾝｶｸ
ISO-2022-JPｯﾂｰﾜｹﾃﾞﾓﾅｲﾉﾆｾﾞﾝｶｸﾆｼﾁﾏｳﾉﾊﾄﾞｳｶﾄｵﾓｳ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

JavaScript で頑張る。

すごく恥ずかしい質問なのですが
JAVAのコメントアウトみたいに
/*
ココがコメントにょ
*/
みたいな機能はないのでしょうか？

>>95
POD形式のコメントにするのが正式だと思う。
参照： perldoc -q "comment out" および perldoc perlpod

ちょこっと部分的にコメントアウトしたいときは
=pod
この部分はパースしないよ
=cut
だけでいいかもな。

>>95
Cみたいに /* */ や // が使いたい場合は、
----------
#!/usr/bin/perl -MFilter::cpp

/*
複数行コメント
*/

print "ok!"; //一行コメント

----------
とする手もあります。
本当は96さんのようにするのがベストだし、自分も普段は
そうしているのだけれど、一応、雑学的知識として....
#事前にCプリプロセッサ(うちでは"gcc -E")に食わせているだけです。

96さん97さん、ありがとうございました。

#入門本に載って無くてずっと#を20行とか打ってました・・・

>>98
いや#を20行というのが間違いというわけではないよ。
PODにしろCプリプロセッサに食わせるにしろ、"完全に無視される存在ではなくなる"からね。

いろいろ方法があるんですねえ。ていうかそれがPerlというものか。
このスレのPart1から全部まとめて「Perlの雑学」っていう
サイトを作ったら面白いかもなあ。

>>100
> このスレのPart1から全部まとめて「Perlの雑学」っていう
> サイトを作ったら面白いかもなあ。

それマジで誰かやってくれないかな。
漏れは取捨選択できるレベルじゃないからダメっぽいけど…。

勉強がてらに作ろうかしらん

>>102
頼むよ。

>>102
場所を用意してくれるんなら少しは協力するぞ。

アカウント提供しようか？

PERL勉強できるHPある?
せっかくLINUXいれたので・・・。

ヒューレットパッカードのマシンですか?＞106

>>107
まだそんな事でつっこむのかよ。
ｻﾌﾞｯ

>>108

誰も突っ込まなくなったらもうダメだ。

>>106
このスレの>>2のリンク集の[お薦め]のとこ。って"の"が多いね。

Apache::PerlRunとApache::Registryの違いって何ですか。

パイオニアのＨＰアニメ板の奴らにハッキングされました。
http://ton.2ch.net/test/read.cgi?bbs=news&key=990241282&ls=100

>>102
http://xbbs21.virtualave.net/xbbs/up/
ここにﾍﾟｰｼﾞを圧縮してｱﾌﾟしてくれれば、
こっちで見られるようにするよ。

すみません助けてください。
perlでＡとＢのファイルのレコードマッチングで
同じレコードを抜き出してＣというファイルを作るのですが
foreachの入れ子で作るとどうしても抜き出すレコードが
２レコードずつ出力されてしまいます。

どこかによい例がありませんでしょうか？

すみません助けてください。
perlでＡとＢのファイルのレコードマッチングで
同じレコードを抜き出してＣというファイルを作るのですが
foreachの入れ子で作るとどうしても抜き出すレコードが
２レコードずつ出力されてしまいます。

どこかによい例がありませんでしょうか？

>>115
まずはそのスクリプトを書くなりｱﾌﾟするなりしたらどうだ。

すみません、こんなかんじです。

@new = <NEW>;
foreach $new_rec (@new){
#---関数　comp_update
$subname="comp_update";&local_time;
&comp_update;
$val = &comp_update;
if($val){
if($hit_sw eq "0"){
print OUT "$new_rec2---unm\n";
}
print OUT "$new_rec2\n";
}
}
#
sub comp_update{
# 新旧更新情報ファイルの比較
$hit_sw = "0";
$new_rec2 = $new_rec;
@new_data = split(/\s+/,"$new_rec");
@old = <OLD>;
foreach $old_rec (@old){
@old_data = split(/\s+/,"$oup_rec");
if(($new_data[0] eq $old_data[0]) && ($new_data[1] eq $old_data[1]) && ($new_data[2] eq $old_data[2])){
$hit_sw = "1";
if($new_data[3] eq $old_data[3]){
return[0];
}else{
return[1];
}
}
}
if($hit_sw eq "0"){
return[1];
}
}

段差がつかなくてすみません
あと４行目はファイルの突き合わせには意味のない
サブルーチンです。

なんつーか…いっちゃ悪いが無茶苦茶だな
思うに問題は"return[n]"じゃないか？勘だが。
真偽値を返すつもりなら"return(n)"と書いてみな。

>>119
nって数字ではないのですか？
アルファベットの“ｎ”ですか？
メインルーチン側はどうやって真偽を判断するのですか？

解決にはならないが、気になる点。
>return[0];
return(0);
[]じゃなくて()だよ。（このままだと、0という要素を持った配列へのリファレンスを
返すことになってしまうよ）

>$hit_sw eq "0"
数値を""でくくるのは、なんか変。
$hit_sw = 1; $hit_sw == 0;

>$new_rec2
こういった変数の付け方は、後から見ると（or 他の人が見ると）何を指しているのか
分かりづらいのでやめよう。（しかもグローバル変数で突然現れるし......）

>$old_data[0] eq $new_data[0] とか
どんなフィールドを比較しているのか.....わからん。

>@old = <OLD>;
毎回読むの？最初の一回でファイルの終端まで全部読んでしまうから
二回以降@oldは空じゃない？

#どういったことをやりたいのかを(114より詳しく)正確に書いて欲しい。

>２レコードずつ出力されてしまいます。
ってことは、

>if($hit_sw eq "0"){
>print OUT "$new_rec2---unm\n";
>}
>print OUT "$new_rec2\n";
>}
の後者のprintが要らない？......というか、よくわからん。

デバッグする気になれんよ・・・・・

>>121
やりたいことは　更新情報であるＮＥＷファイルのレコードを
ＯＬＤファイルのレコードと比べて、
互いのレコードデータの項目[0]〜[2]まで一致したら
日付（ＹＹＹＹＭＭＤＤ・・・）の入っている項目[3]を比べ
差異があればＯＵＴファイルへ出力させます。
但し、ＮＥＷファイルにしかないレコードもunmatchとして同じく出力させます。

>>@old = <OLD>;
>毎回読むの？最初の一回でファイルの終端まで全部読んでしまうから
>二回以降@oldは空じゃない？
ＮＥＷのレコード１行毎に、ＯＬＤファイルは頭から再び
探したいのですけど・・・意味ないのでしょうか？

>return[0];
>return(0);
>[]じゃなくて()だよ。（このままだと、0という要素を持った配列へのリファレンスを
>返すことになってしまうよ）

スミマセンここもう少し詳しく教えてください。
１度シンタックスエラーになり
リファレンスマニュアルを読むと［]と書いてあったので変えたのですが・・・
戻り値に真偽を与えメインルーチン側で真偽を判断する方法がよくわからないのです。

あと　一度、配列にファイルハンドルで全てあたえたら
繰り返し処理でやる意味はないのですか？
open...
＠old = <OLD>;
close...
とファイルを開いて全て読みこんでファイルを閉じるのが正しい
使い方なのでしょうか？

>>125
悪い事は言わないからまともな本買って勉強し直しな。
その方が君のためになる。

ああ、昼寝してた。すまん。

#!/usr/bin/perl -w

use constant NOT_EXISTS => 0;
use constant EXISTS => 1;
use constant LAST_MODIFIED => 3;

@old = map{ [ split ] } <OLD>;

while($rec = <NEW>){
    chomp $rec;
    $is_exists = NOT_EXISTS;
    @new = split(/\s+/,$rec);
    
    foreach $old (@old){
        if(($new[0] eq $old->[0]) && ($new[1] eq $old->[1]) && ($new[2] eq $old->[2])){
            $is_exists = EXISTS;
            if($new[LAST_MODIFIED] ne $old->[LAST_MODIFIED]){
                print $rec , "\n";
                last;
            }
        }
    }
    if($is_exists == NOT_EXISTS){
        print $rec , "---unmatched\n";
    }
}

やりたいのはこういったこと？

>print $rec , "\n";
print OUT $rec , "\n";
だな。それにNEW,OLDも開いてない。

綺麗なソースだ…。
流石_gunzipさんです。

ああ、また寝惚けて読んでなかった。すまん。
>>125
>１度シンタックスエラーになり
うーん。あり得ないような。
>リファレンスマニュアルを読むと［]と書いてあったので変えたのですが・・・
どんな記述だったのか知りたいなあ。
>戻り値に真偽を与えメインルーチン側で真偽を判断する方法がよくわからないのです。
うう....言ってることが分からない。戻り値として返されたものを評価すればいいだけでは(？)

>あと　一度、配列にファイルハンドルで全てあたえたら
一回目の&comp_update()の呼び出しで
>@old = <OLD>;
@oldには($/未変更時)ファイルハンドルOLDの各行が一行ずつ入る。
ついでにEOFもセットされる。（最後まで読んだので）
二回目の&comp_update()の呼び出しで
>@old = <OLD>;
OLDにはもう残っていないので@oldは空になる。

>>129
ありがとう。何か変なところがあったら指摘してくれると嬉しいです。

>>126
そうしたいのは山々なのですが（ここからは言い訳になります）
コンピュータはインターネットとゲームをするていどの
ど素人だったのが
ＣＯＢＯＬの研修を2週間程度受けて、いきなり配属され
一人ぼっちでperlと格闘している最中の新入社員なのです。
（でもperlってコンパイルしなくていいのが好き）

周りは年老いたおじサンばかりで若いというだけで引継ぎも
ままならないままサーバ管理をまかされてしまいました・・・・

>>127
あまりにも・・・高等すぎてよくわかりませんが
有り難くコピペさせて勉強させていただきます。

先ほどの突き合わせ処理の問題はなんとか解決できました。
やはり御指摘の通り　@old = <OLD>を繰り返し処理の中で
行っていた事が原因でした。
（２行づつ書きこむのは別の原因でしたが）
perlのマニュアルは沢山買いこみましたが
肝心の無い様が私にとってチンプンカンプンで・・・
今の仕事向いてないのかもしれません・・・


ありがとうございました。

追伸：どこかおすすめのPerlのサイトありませんでしょうか？

全角のＡ．．Ｚ１．．９を半角のA..Z1..9に置き換えたいんですが、
上手い方法ないですか？
tr/ａ/a/g; tr/１/1/g;
みたいにやってもだめでした。

>>131
関連サイトは>>2を参照

しかし…君を悪く言うつもりは無いが、
酷い会社だなそこは…それともそういうものなのか。
ま、頑張れや

>>132
jcode.pl(またはJcode.pm)のtr()関数を使えばいい
#!/usr/bin/perl
require 'jcode.pl';
$str = 'ＺＥＮＫＡＫＵ１２３';
jcode::convert(\$str, 'euc');
jcode::tr(\$str, 'Ａ-Ｚ０-９', 'A-Z0-9');
print $str, "\n";
__END__

>>131
リファレンスとして便利なPerlサイトはいっぱいあるけど、
Perlをいちから学ぶためのサイトは知らないなあ。

Perlの本を沢山買い込んであるなら、やっぱ最初はそれを
読むことから始めるほうがいいんじゃないの。
この↓参考書籍スレッドも参考になるよ。
http://corn.2ch.net/test/read.cgi?bbs=php&key=988809842&to=9

>@oldには($/未変更時)ファイルハンドルOLDの各行が一行ずつ入る。
>ついでにEOFもセットされる。（最後まで読んだので）

すみませんもう一つだけ
eofなんですけど、ファイルの一括処理
>@old = <OLD>;
を行った時も下記の様に使えますか？

@old = <OLD>;
foreach $old_rec(@old){
if(eof(OLD)){

#最終行の処理

}
}

マニュアルには　eof(ファイルハンドル）を指定すると
書いてあるのですが、この場合もファイルハンドルで
いいのでしょうか？

>>135
@old = <OLD>;
とした時点で配列"@old"とファイルハンドル"OLD"は何の関係も無くなる。
同じ事をしたいのならwhileで回せ

while(defined($old_rec = <OLD>))
{
&ｎｂｓｐ;&ｎｂｓｐ;if(eof(OLD)){
&ｎｂｓｐ;&ｎｂｓｐ;&ｎｂｓｐ;&ｎｂｓｐ;#最終行の処理
&ｎｂｓｐ&ｎｂｓｐ;;}
}

台無しだ(;´Д`)
while(defined($old_rec = <OLD>))
{
  if(eof(OLD)){
    #最終行の処理
  }
}

>>133
無事変換できました。3日悩んでいたのでとても嬉しいです。
ありがとうございました。

www.microsoft.com
http://www.microsoft.com
http://www.microsoft.com/
とかの入力から、これを
www
microsoft
com
に分解するにはどうすればいいの？

>>131
直接には役に立てなかったけど、上手くいってよかった。
お仕事頑張って。（ちょっと無責任かな.......）

>この場合もファイルハンドルでいいのでしょうか？
はい。ちなみに、
perldoc -f eof
でPerlの関数（この場合はeof）についてのマニュアル（英語）を読むことが出来ますよ。
他のも色々試してみてください。

>>139
これでいいか？

#!/usr/bin/perl

@url = split /\n/ , <<;
www.hogehoge.com
www.hogehoge-u.ac.jp
hogehoge.com
http://hogehoge.com/
http://hogehoge.com
http://www.hogehoge.com/

foreach(@url){
    m%([0-9a-z\-]+\.)*?([a-z0-9-]+)\.([a-z]{2,3})(?:\.([a-z]{2}))?([^a-z]|$|/$)%i;
    print "$_ :\t \$1 = $1, \$2 = $2, \$3 = $3, \$4 = $4\n";
}

>>139 こんな感じ？？

$str = "http://www.microsoft.com/";
$str =~s/(http:\/\/)?([^\/]+)(\/)?/$2/;
@array = split /\./, $str;

>>140-141
ﾏﾝｾｰありがと。

よくわかりませ〜ん

/を,に変換したいのですが美味くいきません
こんな感じです。

$moji = "111/222/333";
$moji =~ tr///,/;
print "$moji";

/という文字がやっぱ不味いんでしょうか？でも/をどうしても,
に変換したいんです。
宜しくおねがいします。

\/

>>144

美味くいきました。ありがとう
ネタじゃないっす。
すいませんもっと勉強します

>>144
たった2バイトの回答で感謝されるのも珍しい(笑)

>>146
気づく時は「あ〜っ」という感じなんだろう（笑）

すみません
「スカラー変数の値の左端からｎ桁を抜き出す」
コマンドってありませんか？

すみません
「スカラー変数の値の左端からｎ桁を抜き出す」
コマンドってありませんか？

すみません
「スカラー変数の値の左端からｎ桁を抜き出す」
コマンドってありませんか？

substr($str, n, 1)

ありがとうございます。

perlにC言語のファイルを組み込むことはできますでしょうか？
また、できるとすればどうやったらできるんでしょう？
やっぱり変換するしかないのかな・・・・。

そのファイルにアクセスされたら他のプログラムを動作させること
ってどうやるんでしょうか。
サブルーチンではなく、普通のファイルを、なのですが・・。

>>154
require "./file.pl";

>>156
$ perldoc perlxs

$ call japu

perlxs は既に提示されているので、別解を。
http://search.cpan.org/search?dist=Inline

少し前の The Perl Journal に載っていたんだったかな。

VisualC++みたいな形の、GUI環境のデバッグツールはありますか？

http://homepage1.nifty.com/wizman/
>>159
使ってみて報告してくれ

#!/usr/bin/perl

$str = "１２３４５";
$str =~ tr/０-９/0-9/;

print "Content-type: text/html\n\n";
print $str, "\n";
print "</body></html>\n";

とすると出力が

0203040506

となってしまいます、普通に　12345　とは表示できないのでしょうか？

>>161
>>133

eucで
-----------------------------------
require './jcode.pl';
$str = "１２３４５";
jcode::tr(*str, "０-９","0-9");
print $str;

eucで
-----------------------------------
require './jcode.pl';
$str = "１２３４５";
jcode::tr(*str, "０-９","0-9");
print $str;

かぶる・だぶる のワンツーパンチ。

あ、タイムスリップもしてる（ｗ

ＥＵＣでですね。。。できました（＾＾；
ありがとうございます

最近モジュールなるものを知ったのですが、
ローカル（win98/httpd）で使用することは出来ますか？

つーか使い方もまだ良く分からないんだけど（ぉ

>>167
モジュールを使ってみようとしましたか？

>>168
はい。

>>169
はいってアンタ…（ｗ
使ってみた結果は？

平和だね（ｗ

マターリとしたのもたまには ｲｲ!（・∀・）

age

よくあるフレーム式のチャットを組んでいるのですが、
メッセージを送信した後に記事表示部をリロードするには
どうすればいいのでしょうか？　教えてください。

>>174
HTMLの勉強をしよう。
<form method=POST action=undex.cgi target=under>

それともオートリロードの仕方かい？
<meta http-equiv="refresh" content="90;url=under.cgi">
必要ならunder.cgi?name=$nameとかにすればよろし。

タイプミスしたけど自分で修正してくれ。

>>175
無事解決しました。
ありがとうございました。

Perl6はいつ頃でるんでしょうか？

今年の夏あたりにコアが出来るとかいうのをどこかで読んだ気がする。

cronの使い方がイマイチ分からないのですが、
やはりtelnet設定してやらナイト無理ですか？
ちなみにサーバはf2sです。

CGIのソースをいろいろ見て参考にしたいのですが、
使用されているCGIのソースをこっそりダウンロードする方法ってありますか？

>>181
無い。あまりそんな質問されると厨房だと思われますよ。

>>182
IDが微妙にｶｯｺ(･∀･)ｲｲ!

今は去年の新人をいじめてる。
こいつはやめそうにないんで
とりあえず泣かそうと思ってる。

>>182
本気でIDｶｯｺ(･∀･)ｲｲ!
# アドゥソワ？

perlccで途中のcのファイルを残せないのでしょうか？perlからCへの
移植に使えるかと思ったんですが･･･。

メモ帳で
printf"Hello World\n";
と書いてsample001.plで保存。
Perlでperl sample001としてもなにも起こりません。ソースのパスを
指定してないからなんでしょうが、パスを変更する方法がわかりません。

>>186
[email protected]$ perl -MO=C foo.pl >foo.c

>>187
[email protected]$ export PATH=$PATH:/home/hoge/bin

>>187 なんでsample001.plの.pl抜かしてんだよ

>>187
・printf
・.plを抜かす
・「なにも起こらない」

ってことでネタと断定

>・printf
確かにあまり使わないが、別に誤りでもなかろ。

質問なんですけど、よく
open(FILE,"$filename") or die('...');
ってしてますよね？
sleep(1) until open(FILE,"$filename");
みたいなのは駄目なんでしょうか？

>>193
ファイルがずっと開けない状態にあったらどうなるのかな？

そもそもファイルがなかったりとかね

>>186

>perldoc perlcc

$ perlcc -c file # Creates a C file, 'file.c'
$ perlcc -c out.c file # Creates a C file, 'out.c' from 'file'
$ perlcc -c -e 'print q//' # Creates a C file 'a.out.c'

いやネタじゃないですよ、最初に書くソースってことでcのまね
してみただけです。ちなみに
perl e:/書類/ユーザー/perl/sample001.pl
ってやったらMS-DOS窓が閉じちゃいました。なにか表示されたのが
一瞬見えましたが。perl5.6.1です。

>>197
DOSプロンプトで起動してるのか？
system(exit);
でもやらんと閉じない気がするのだが。

＞DOSプロンプトで起動してるのか？

え？PerlのアイコンwクリックでDOS窓が開きませんか？

失礼しました。DOSじゃなかったです。
あれがPerlのインターフェイスですね。

system(exit);とやってもなにも起こらず・・・。
ActivePerl-5.6.1.626-MSWin32-x86-multi-thread
これ以外になにかインストールしないといけないんでしょうか。

試しにDOSプロンプト立ち上げてからPerl 〜とやってみたら
ちゃんと動作しました。これでなんとかなりそうです。
お騒がせしました。

>>202
>試しにDOSプロンプト立ち上げてからPerl 〜とやってみたら
・・・今まではどうやっていたの？

>>203
>>199の
> PerlのアイコンwクリックでDOS窓が開きませんか？
にあるとおり、Windowsで普通にActivePerlをインストールすると hoge.pl をダブルクリックで
DOS窓起動→hoge.plが起動→hoge.pl終了→DOS窓終了→一瞬で窓閉じたー
ってなる。
あと、DOS窓内で直接 hoge.pl ってやっても関連付けの関係で起動できたりする。

>>203
204さんの解説どおりです。204さんありがとう。

>>204
丁寧な説明ありがとう。
確かに一瞬で消えちゃうね。何をしたのかさっぱり分からない......

>>205
いちいちコマンドラインから
perl xxxx.pl
とするのが面倒なら、comファイルを作ってくれる
http://www.vector.co.jp/soft/dos/util/se028129.html
みたいなのもあるよ。
これなら、いちいちperl,sed,awkのどのスクリプトかを意識することなく
xxx | yyy | zzz みたいに書けるよ。

>>206
おおっ！
凄い便利そうですね。
205じゃないけど早速使ってみま…あれ？
…落として展開したらこんなドキュメントが…

＞本ディレクトリに収められているのは、受動喫煙(Passive Smoking、他人の煙
＞草の煙を吸わされること)による健康被害の問題に関する資料です。

(ﾟДﾟ)ﾊｧ?

AN HTTPD で、ImageMagick　を動作させたいのですが、
やっぱ無理っすかね？

>>206の_gunzip氏は偽物か？

なんか知らんがベクターのアーカイヴが壊れてたのだろうか(;´Д`)
↓こっからダウソしたやつはマトモだった。
今から使ってみる。

http://www.asahi-net.or.jp/~bi3t-aoym/sos111.lzh

>>209
つーわけで、_gunzip氏のミスとか偽者という訳ではなさそうです。

>>210
サンクス。
…漏れもビクーリしたよ（ｗ　＜受動喫煙

ああリダイレクトが、パイプが…！(嬉)
上等です。_gunzipさん感謝っ！
.
.
.
…ただ付属のmksos.comがうまくいかないのは俺だけ？(;´Д`)
デフォルトがjperlだし(;´Д`)

しょうがないのでrunperl.com
#perl %0 %@
($program = $0) =~ s{^.*[/\\]|\.[^./\\]*$}{}g;
exec 'perl', $program, @ARGV;
exit $!;

>>207
appeal/ディレクトリね。自分も展開してみて驚いた。(→削除)
自分も煙草は吸わんです。(´ー`)ｙ−~~

>>209-210
ちょっと事情が分からないのだけど・・・もしかしてappeal/ディレクトリしか無かったとか？
それと、1.11に上がっていたとは知らなかった。ありがとう。

>>212
>…ただ付属のmksos.comがうまくいかないのは俺だけ？(;´Д`)
>デフォルトがjperlだし(;´Д`)
うーん。これだけでは、どこが上手くいかなかったのか分からないけれど、
mksos.comを↓のように修正すればperl(≠jperl)でも動くし、
ちゃんとperl(≠jperl)用のcomファイルを吐くようになるよ。（1.11では一行づつずれる）
____________________________________________________

15c15
< #jperl %0 %@
---
> #perl %0 %@
22c22
< join($;, 'p','Perl (jperl)', 1, '.pl', 'Perl', 'jperl %0 %@'),
---
> join($;, 'p','Perl (jperl)', 1, '.pl', 'Perl', 'perl %0 %@'),
160c160
< close(HDR), last if /^#jperl/;
---
> close(HDR), last if /^#perl/;
____________________________________________________

>>213

＞ちょっと事情が分からないのだけど・・・もしかしてappeal/ディレクトリしか無かったとか？
そゆことです。
展開中にエラーが出て…(;´Д`)
展開ソフト(ﾗﾌﾟﾗｽ)のバグでしょうかね。

＞mksos.com
_gunzipさんうまくいきました？
俺の場合、jperlはともかく、mksosしても
mksosファイルの最後に目的のスクリプトが追加されるだけで、
動作はmksosと同じになってしまいます(;´Д`)

>>214
Ver1.13ではOKやった（らぷらす）

>>214
>そゆことです。
>展開ソフト(ﾗﾌﾟﾗｽ)のバグでしょうかね。
そうだったんだ・・・受動喫煙云々しかなかったら、そりゃ驚くね。
自分は五年以上前からLHAユーティリティ(16,32)使ってます。

＞mksos.com
あれ？>>213のように修正しても上手くいかなかった？
うちでは上手くいってるのだが・・・
>mksosファイルの最後に目的のスクリプトが追加されるだけで、
から推測するに、14行目だけしか修正していないのでは？
mksos.comは自分自身を開いて、#jperlから始まる行まで（ヘッダ部）を複写しているので、
(素直にsos.hdrを読めばいいのに、と思うが・・・158-161行参照)
14行目の#jperl %0 %@を#perl %0 %@に修正して、取りあえずperlで起動するようにしただけでは、
mksos.comは#jperlで始まる行を見つけられないので、自分自身を最後まで複写し、そしてその後ろに
指定されたファイルを読み込んで追加書き込みを行う、というわけ。
（って我ながら分かりにくい説明だな・・・）
うーん。とにかく>213のを試して欲しいなあ。（既にやっていたのならすまん）
____________________________________

・・・・・sos.hdrの中身・・・・・・
（改行をあけないで）
#perl %0 %@
____________________________________

というファイル(comhdr)でも作っておいて
cat comhdr example.pl >example.com
で連結するだけの方が手軽かも。

Perlの勉強を全てWEB上のものを使ってやろうとすれば
どういった感じ＆どういった資料を使ってで勉強します？
前もって知っているプログラム知識はCの初級者から中級者レベルぐらいだとして。

いや、急にそう言う奴にPerl教えろって言われて・・（鬱

>>217
まずこのスレの >>2 を見る。

#! /usr/local/bin/perl

open(IN,"count.dat");
@lines=<IN>;
close(IN);

($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);

$count=$lines[$hour];
$count=$count+1;


open(OUT,">count.dat");
flock(OUT,2);
print OUT "$count";
flock(OUT,8);
close(OUT);

時間毎のアクセス数の集計をしたいのだけど、
↑のプログラムじゃ駄目なんですか？
どこが駄目なのかわからんす

>>219
そりゃダメだろう。

chomp($lines[$hour]);
$lines[$hour] = $lines[$hour]+1 . "\n";


open(OUT,">count.dat");
flock(OUT,2);
print OUT @lines;
flock(OUT,8);
close(OUT);


じゃないのか？

XML::Parser (というかexpat)でxmlファイルをパースした時に、
テキストノード中の&gt;とか&lt; 等が
元の文字( > とか < )に戻るのを防ぐ方法(オプション)がありますか?
いちいち変換するのは鬱なので。
# でもモジュールのドキュメントにはそれらしい物もなかった…

>>216
あ…160行目をいじってませんでした。
お騒がせしてｽﾐﾏｾｿ(;´Д`)

>>220
ありがと!!!!
やってみます

CGIで、どんな串でも生IP引き出せる技あるんだけど
その技を知っている人いますか？

>>224
(ﾟДﾟ)ﾊｧ?
中学卒業してからこいや。な？

>>220

#! /usr/local/bin/perl

open(IN,"count.dat");
@lines=<IN>;
close(IN);

($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);

chomp($lines[$hour]);
$lines[$hour] = $lines[$hour]+1 . "\n";

open(OUT,">count.dat");
flock(OUT,2);
print OUT @lines;
flock(OUT,8);
close(OUT);

でやってみたんだけど駄目です。
時間毎のアクセス数の集計をしたいのだけど、
色々調べてやってみたんだけど、どこが駄目なのかわからんす。
誰か分かる人教えてください

>>226
はじめに
0
0
0
・・・・って感じに25行続いてるcount.datを用意ておくこと。
それでもだめなら、数回動かしたあとの count.dat を貼り付けてくれ。

>>226
１： count.datに２４行分の0が用意されていない
２： count.datにパスが通っていない
３： パーミッションがおかしい
４： Perlのパスが通っていない
５： flockが使えない

他にはなんだ？
つーか、何がどうダメなんだよ？
CGIは動くのか？
エラー表示はないのか？
count.datはどうなってる？

君の聞き方に問題はないのかい？
少なくともこっちがローカルで試した分にはきちんと動いてるぞ。

>>221
パーサオブジェクトをnewするときに、NoExpand => 1 を指定する
方法はどうかと思って試してみたけど、使えないですねー。

つーか、XML::Parserのソースを読んでみたら、
entityを展開するあたりは「TO-DO」事項となってて、
まだコードも流動的みたいです。

Perl で、Ｃの構造体みたいなのを
つくるときは、リファレンスとハッシュで作りますよね？

その場合で質問したいのですが、データ構造を「固定化」するのは
どうやるのですかね。
つまり、
foo.str1 / foo.str2 みたいなメンバ（Ｃでいえば、ですけど）しか
許してないのに、foo.srt1 とかタイプミスしてるお馬鹿さんに
エラーを出してほしいわけですよ。
ハッシュでやると、タイプミスでも、新たなキー、バリューのペアとして
認識されちゃうので・・・・。
ちなみに、constant pragma はダメっす。
やってみたけどうまくいかない。涙。

>>230
方法その一
擬似ハッシュを使う
#!/usr/bin/perl
use 5.005;
use constant NL => "\n";
$hash = [
    {
        a => 1,
        b => 2,
        c => 3,
    },
    "value a",
    "value b",
    "value c",
];

print $hash->{a}, NL; # $hash->[ $hash->[0]->{a} ] と等価

print $hash->{z}, NL; # 致命的エラー

#新たなフィールドを作成するには

$hash->[0]->{z} = 4;    # まずIndexをいじってから
$hash->{z} = "value z"; # 値を入れる
__END__

方法その二
　メソッドを介してのみアクセスする

方法その三
　Tie::Hashを使って、
　未定義のキーにアクセスしようとするとエラーを起こさせるクラスを書く。
　(探せば既にCPANにあるかも知れない。)

ＣＧＩ串を作ってみたんだけど、ウェブメールみたいに、レスポンスヘッダのロケーションで飛ばされる場合、
目的のファイルにアクセスできないのですが、対処方法がありますか？

use Socket;
read(STDIN,$_,$ENV{'CONTENT_LENGTH'});
($par0,$par1)=split(/=/);
$par0="";
$par1=~tr/+/ /;
$par1=~s/%([0-9a-fA-F][0-9a-fA-F])/pack('C',hex($1))/eg;
while($par1)
{
$par1=~/^http:\/\/([^:\/]+)([^\r\n]+)/;
$par1="";
socket(AUXFIL,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
connect(AUXFIL,sockaddr_in(80,inet_aton($1)));
select(AUXFIL);
$|=1;
select(STDOUT);
$|=1;
print AUXFIL "GET $2 HTTP/1.0\r\n\r\n";
while(<AUXFIL>)
{
s/\r*\n$/\r\n/;
if(/^set-cookie[\s:]+/i)
{
$par0.=$_;
next;
}
if(/^location[\s:]+([^\r\n]+)/i)
{
$par1=$1;
next;
}
if(/^content-type[\s:]+/i)
{
$par2=$_;
next;
}
if(/^\r\n$/)
{
$par2.=$_;
last;
}
}
close(AUXFIL) if $par1;
}

if($par2=~/^content-type[\s:]+image\/(\w+)/i)
{
$par1='TMPFIL';
$par2="temp.$1";
open($par1,">$par2");
}
else
{
$par1='STDOUT';
print $par0.$par2;
}
while(<AUXFIL>)
{
print $par1 $_;
}
close(AUXFIL);
if($par1 eq 'TMPFIL')
{
close($par1);
print $par0."content-type:text/html\r\n\r\n";
print "<html>\r\n";
print "<head>\r\n";
print "<meta http-equiv=\"content-type\" content=\"text/html;charset=x-sjis\">\r\n";
print "<title>image</title>\r\n";
print "</head>\r\n";
print "<body>\r\n";
print "<p><center><img src=\"$par2\">\r\n";
print "</center></p>\r\n";
print "</body>\r\n";
print "</html>\r\n";
}

(ﾟДﾟ)ﾊｧ?
レスポンスのヘッダのロケーションを見て目的のファイルにアクセスすればいいだろ？

>>235
書いたソースでも、ロケーションを辿っているのですが、目的のＵＲＬがロケーションの中に
出てこないんですよね。どうしてでしょう？

ありがとうございます。>>229

そうなんですよ＜NoExpandでできない
しょうがないんで、ファイルをパースする前に&を全部&amp;に変換してます。

>>236
アクセスできなかったURLって、たとえばどこよ。

http://www.email.com/login/snap/login.jhtmlからログイン後の
http://www2.email.com/snap/index.jhtml?dest=welcome
http://www.email.com/login/snap/login.jhtmlは、ＰＯＳＴでフォームを送信しているが、ＧＥＴで
http://ltd.snap.com/main/redirect/ab/1,295,,00.html?sn=em&mn=(username)&pw=(password)&fr=trueでも
http://www2.email.com/snap/index.jhtml?dest=welcomeへアクセス可能です。

http://www.email.com/login/snap/login.jhtmlからログイン後の
http://www2.email.com/snap/index.jhtml?dest=welcome
http://www.email.com/login/snap/login.jhtmlは、ＰＯＳＴでフォームを送信しているが、ＧＥＴで
http://ltd.snap.com/main/redirect/ab/1,295,,00.html?sn=em&mn=(username)&pw=(password)&fr=trueでも
http://www2.email.com/snap/index.jhtml?dest=welcomeへアクセス可能です。

オブジェクトからそのオブジェクトが属しているクラスの名前を呼び出すやり方は
わかったのですが、オブジェクトから現在のオブジェクトの名前を呼び出すには
どうしたらいいのですか？

「オブジェクトの名前」ってなに？例えばどんなの？

$objname = { foo => 'bar', hoge => 'fuga' };
$self= bless $objname;

コレの"$objname"ってのが知りたいとか(ﾑﾘ

自宅のローカルPCにApacheインストールして
perlもインストールして勉強してる人いますか？

ブラウザでhttp://127.0.0.1/~***/index.html
で表示できるようになりましたが
http://127.0.0.1/~***/*.plはそのまま文字列のまま
表示されたり、エラーが返ってきます。
↓のはCGIのためのPerl実践入門 技術評論者のｐ224のです。
#!/usr/local/bin/perl
$|=1;
print <<"HERE";
content-type: text/html


<html>
hello,world!
</html>
HERE
↑の場合は500servererroｒになってしまいます。
*.cgi拡張子のサンプルはうまくいくのですが
*.ｐｌはトラブルばかりです。Apacheのconfファイルに
何か追加記述が必要なのですかね・・・。

>>244
おれも Win2kにいちおうApache入れてます。
.plをCGIとして実行したいなら、httpd.confで
AddHandler cgi-script .cgi
を
AddHandler cgi-script .cgi .pl
とすればいいんじゃなかな？今試したら動きました。

>>245
245さん、レスありがとうございます。
書かれたようにhttpd.confに追加記述してみました。

ですが、やはり500のエラーが返ってきてしまいます・・。
なんでなんでしょうね？

私もWin2000でApacheはｃ\webにapache.exe、
その下にwwwwというフォルダを作り*.cgiも*.plも置いて実行しています。
perlは>>244で書いてあるとおりパスのところへインストールしてあるんです。

もうちょっと格闘してみます。245さん、ありがとうございます！

突然ですが、ちょっと質問です

ＣＧＩで
「ある時間になったら自動的に０にリセットされる」
プログラムってあるかな？

日にちごとのカウンターと言うのは
「本日のお客様は○○名です」と言うのは、最終更新した日と
　　　現在の日が異なった場合リセットするのはわかってます。

最終更新した時刻に関係なく、夜の０時になったら自動的に
カウンターがリセットされる。そんなプログラムってないですか？

cron
CGIとは無関係だが

あれ…？
STDINがキーボードの時、
eof(STDIN)をすると入力を促されるんですが、正常ですか？？

% perl -e "print eof(STDIN)"

>>248

247ではないですが、cronの設定が出来ないサーバで擬似的にcronを
実装するにはどうしたら良いでしょうか？

ってそんな方法あるわけないか。

WINのhttpdで勉強してますけど、上級テクニックを覚えるためにはやはり
unix系のOSで勉強しないとイケマセンかねぇ・・・。

>>247 さん

$filename = 'times.dat';

print "いらっしゃいませ\n";

($tmday, $tmon, $tyear )
  = ( gmtime( time + 9 * 60 * 60 ) )[3..5];

if( open fp,"$filename" ){
  ($mday, $mon, $year )
    = split ',',<fp>;
  close fp;
}

if( ($tyear>$year) or ($tmon>$mon) or ($tmday>$mday) ){
  print "今日最初のアクセスです(´ー`)\n";
  if( open fp,">$filename" ){
    print fp "$tmday,$tmon,$tyear";
    close fp;
  }
}

基本はコレでいいかと。

>>251 さん

補足っす

> 最終更新した日と
> 現在の日が異なった場合リセットする

と

> 夜の０時になったら自動的に
> カウンターがリセットされる

は，見た目には同じことだと思って↑を書きました。

>>251 じゃなくて >>247 さんへ。

Perlのデータの型を調べる方法ってありませんか？

Data::Dumperの出力を見ると数値を文字列をちゃんと識別してるようなのですが、
ソースを見ても分かりませんでした。
よろしければご教授願います。

>>254
とりあえず、ref $var; とかやってみれ。
String なのか ｉｎｔ なのかを調べたいって言うなら、
print "int" if ($var eq $var+0);
とかかな？

ヒアドキュメントの中で計算をすることってできますか？
（例
$foo=$bar=1;
print <<"EOF";
$foo+$bar
EOF

これだと「1+1」
って表示されますよね？「2」って表示したいんですが、、、
その前で$hoge=$foo+$bar;
として$hogeを表示すればいいのはわかるんですが
あんまり一時変数をつくりたくないもんで、、、
なにか、トリッキーでもいいんで一時変数を作らなくていいやり方などないでしょうか？

>>256
ヒアドキュメントじゃないとダメなの？
ヒアドキュメントじゃ出来ないと思うけど。

$foo=$bar=1;
print <<"EOF";
なにか
EOF
print $foo+$bar;
print <<"EOF";
なにか
EOF

>>256
キリ番おめでとう
#!/usr/bin/perl
$foo = $bar = 1;
print <<EOD;
${\
   ($foo + $bar)    # 括弧は必須
}
@{[
      $foo + $bar       # 括弧は不要
]}
EOD
__END__

>>257
かっちょいい答えありがとうございます！
リファレンスを使うのかな？とか思ってたんですけど
やはり（？）そういうかんじですかね。

${\($foo + $bar)}
んーでもどうしてそうなるのか若んないや。
()の中は2になるわけだから
スカラー変数のリファレンスに"\2"を渡してるわけですよね。
\ってのはどういう意味があるんだろ、、、

>>257
あ、確かにそういう風なやり方もできるんですけど
ヒアドキュメントを途切れないように長く続けたいんですよ。
（続いてないとhtmlデザインとプログラムの分離が起こってしまうから）
しかも単純な計算をするところはヒアドキュメントの中でやればわかりやすいですよね。
（ヒアドキュメントの前で計算して変数を作るより）
結構わがままな望みでしたけどね（＾＾；

あう、何度もすみません
>>259は
>>258さんへ向けてです

"\"ってのはリファレンスを得る演算子です

$foo = 2;
$bar = \$foo;
print ${ $bar };
print ${ \ 2 };

>>258に追加
無茶苦茶ですがこういうことも可能です。
print EOD;
${\do{
        use strict;
   print "Hello world\n";
 my $foo = my $bar = 1;
   foreach my $i(0 .. 5){
    $foo += $i;
    }
 $foo + $bar;
}
EOD

>>262
うひゃ、、、さすがにそこまでやるとなると
ヒアドキュメント切ります、、、
しっかしそんなこともできるんですねー

勉強になりました。

>>255
いや、そういうわけではなく、
例えば　"1"　と　1 の違いを調べることが出来るのか、
という事を知りたいのです。
数値じゃない文字列に0+をすると-wの元で警告が出るのも嫌ですし。

>>258
そんな事が出来るのか・・・。
勉強になりました。
サンクス。

>>264
Perlでは数値と文字列を区別しない。
これが素人ウケするところ。
だから"1"を数式にも使える。

>>266
それは承知ですが、それでも区別したいんですよ。
Data::Dumperでは確かに区別されているので、方法はあると思うのですが。

#!/usr/bin/perl
use Data::Dumper;
my @list = (1, '2', 0+'3', 4 . "");
print Dumper(\@list);
__END__

>>267
Perlは内部で数値と文字列を区別してるよ。ただ、
>数値じゃない文字列に0+をすると-wの元で警告が出るのも嫌ですし
が「数値か文字列か知りたい」理由ならば、use warningsして、numeric警告
をオフにするのが一番。
この辺りはperldoc perlexwarnが詳しい。

#!/usr/bin/perl -w

use warnings;
{
    no warnings qw[ numeric ];
    $str = "ABC";
    print $str * 5;
}
-------
0　（-w,-Wでも警告無し）
------
あと、内部でどのようにデータが格納されているかを知りたければ、
Devel::Peekの出力が助けになるかもしれない。
-----------
#!/usr/bin/perl -w
use Devel::Peek;
$str = "15";
$int = 15;
Dump($str);
Dump($int);
-----------
SV = PV(0x176eb98) at 0x1765768
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x176020c "15"\0
CUR = 2
LEN = 3
-----------
SV = IV(0x1763ce8) at 0x1765774
REFCNT = 1
FLAGS = (IOK,pIOK)
IV = 15
-----------
構造体のFLAGSメンバに注目。IOK,POKの意味についてはperldoc perlgutsほか、
http://gisle.aas.no/perl/illguts/
を読むのがいい。

>構造体のFLAGSメンバに注目。
じゃなくて、（flagsメンバなんて無いし）
SV = PV(0x176eb98)
SV = IV(0x1763ce8)
ここら辺ね。
あと、口調が変に偉そうになったのは申し訳ない。

なんか勘違いしてた。
>ソースを見ても分かりませんでした。
おそらく、Dumper.pmを読んだのだと思われるけれど、
Data::Dumper::Dumper()は大抵Dumpxsを呼ぶから、
おそらSvTYPE()マクロあたりで数値型か文字列型かを
判別しているのではないかと思うよ。
・・・とにかく、Dumper.xsを読めば分かると思ふ。

試しに、>267のスクリプトを
#!/usr/bin/perl
use Data::Dumper;
my @list = ("w",1, '2', 0+'3', 4 . "");
print Data::Dumper->Dumpperl([\@list]);
としてXSを呼ばないようにして、違いを比べてみては？

それと、昔
http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521
の828,829辺りで同じ事を書いた記憶が。

>>270
Perl内部の事はわかりません(泣)

が、一応求める答えはわかりました。
Data::DumperはXsubを使ってたんですね…

お手数かけました。ありがとうございます。

うー、もしかしてWindowsだとDB_Fileの$DB_RECNOって使えないんでしょうか。

>>272
そう判断した理由は？

>>273
このコードが動きません…。
間違ってはいないですよね…？
#!/usr/bin/perl
use DB_File;
use Fcntl;
use strict;
use warnings;
my @file;
my $db = tie @file , DB_File => 'hoge.dat' , O_RDONLY, 0666, $DB_RECNO
or die "can't open hoge.dat: $!$^E\n";

__END__

>>274
エラーメッセージは？

>>275

D:\> perl foo.pl
can't open hoge.dat:
D:\>

空です…わけ分からんです

>>276

#!/usr/bin/perl
use DB_File;
use Fcntl;
use strict;
use warnings;
my @file;
my $db = tie @file , DB_File => 'hoge.dat' , O_RDWR | O_CREAT, 0666, $DB_RECNO
or die "can't open hoge.dat: $!$^E\n";

ファイルが存在しなかった場合、作成するようにしないと。（O_CREAT）
詳しくはperldoc -f sysopen

メールアドレスをsendmailのBccに入れたいのですが入ってくれません。
$HOGE{$in{'hoge'}}に値が入っていることは確認できています。

%HOGE = (
'A','[email protected]',
'B','[email protected]',
);

open(OUT,"| $sendmail -t");
print OUT "To: $mailto\n";
print OUT "From: $mailfrom\n";
print OUT "Bcc: $HOGE{$in{'hoge'}}\n";
print OUT "\n";

途中で、
$mailbcc = $HOGE{$in{'hoge'}};
として
print OUT "Bcc: $mailbcc\n";
のようにしてもダメです。何がいけないんでしょう?

ちなみに、メールはBcc以外ちゃんと届きます。

>>278-279
普通はこれで問題なくBcc:に送れるよなー。
OSやsendmailのバージョン書いてみたら？

メールって改行はCRLFじゃなかったっけ？
この問題とは多分関係ないけど。

うーむ、やっぱり何かがおかしい？
FreeBSD 4.2 のバーチャルホスト
Sendmail 8.11.2
です。

>>277
いえ、ファイルが存在するのは確認済みですよ、当然。
だから何か別の…って、ありゃりゃ成功した！？

そんな…？
って、O_CREATを外しても成功…？

.
.
.

…これは…どうもRDONLYでオープンすることは出来ないって事らしいです。
ううぅ…かなり悩みましたが、これって仕様なんでしょうか。

DB_Fileの配列…むっちゃ速いですね…
indexがあるわけではないのに何故こんなに速いんでしょうか



Benchmark: timing 10000 iterations of DB_File, getline...
DB_File: 3 wallclock secs ( 2.58 usr + 0.00 sys = 2.58 CPU) @ 3875.97/s (n=10000)
getline: 4 wallclock secs ( 3.68 usr + 0.00 sys = 3.68 CPU) @ 2717.39/s (n=10000)

↑
#!/usr/bin/perl
use DB_File;
use Fcntl;
use strict;
use warnings;
use Benchmark;
my @file;
my $db = tie @file , DB_File => 'hoge.dat' , O_RDWR, 0666, $DB_RECNO;

open IN, 'hoge.dat';
binmode IN;my($t_length, $s, $i, @index) = (0);sub getline($);

my @list = (1, 100, 1000, 2000, 3000, 5000, 10000);
push @list, reverse @list;
timethese(10000, {
    DB_File => sub{
        foreach $i(@list){ $s = $file[$i];   }
    },
    getline => sub{
        foreach $i(@list){ $s = getline($i); }
    },
});

sub getline($){
    my $n = shift;
    if(defined($index[$n])){
        seek IN, $index[$n], 0;
        return scalar(<IN>);
    }
    local $_;
    while(<IN>){
        $index[$.] = ($t_length += length($_));
        $. == ($n +1) and last;
    }
    return $_;
}
__END__

perlでcookieを相手に送るには
どうしたいいんでしょうか？

らが抜けてますな、、
よろしくお願いします

>>287
print "Set-Cookie: $cookie\n";

言うまでも無いが、$cookieには適切な書式のクッキーが入っているものとする

カールさんのサイトって今どこかにありますか？
あったら教えてください。検索してもリンク切れのところばっかりで。

>>289
ほらよ
http://plaza28.mbn.or.jp/~curl/

sendmailでReceivedを隠す(または偽装)方法ってありますか？
ちょっとした事情で必要なのですが・・・・・
よろしくおねがいします。

> ちょっとした事情

SPAM

> ちょっとした事情

ボム

> ちょっとした事情

MLでｼﾞｻｸｼﾞｴﾝ

ちょっとずれているかもしれないが、Ｗｅｂ中継のことで質問です。
あれって、一体どのようにやればいいのでしょうか？
どんな道具が必要なのか、是非教えて下さい。

簡単にいうと、赤ちゃんが生まれいくまでの過程を全世界中に
オンラインムービーを流す技術が欲しいのです。

あっ、別に赤ちゃんじゃなくて、ディープな車レースを流したいだけです。

CGIスクリプトを配布してるところでお願いします。
もうないんでしたっけ？

勝手に流していいのか？

>>298
いいですよ。某会社の常務からの依頼ですので、
許可とやらの問題はありません。

こういうのがあるじゃんか。
http://www.realnetworks.com/products/producerplus/index.html?src=homeintl_jp&mcc=rlhmpg

こういうのがあるじゃんか。
http://www.realnetworks.com/products/producerplus/index.html?src=homeintl_jp&mcc=rlhmpg

わっ、タイムスリップ・・・
鬱だし脳

情けない質問で申し訳ないが質問させてください。

FreeBSD 4.2 / apache 1.3.20 にてperlのCGIを実行させたく
試行錯誤しているのですが、巧く行かずに苦労しています。
現在は〜/apache/cgi-bin/printenv の実行は正常に行われる環境です。

実行させたいperlスクリプトは、KENT-WEBさんのYY-BOARDです。
どう、巧く行かないのかと言いますと、perlを見つけられない???のではないかと。
試しにtelnetで該当dirに行きまして、./yybbs.cgiとタイプしますと
>./yybbs.cgi: コマンドが見つかりません.
と怒られてしまいます。
ですが、perl5 ./yybbs.cgiとタイプしますと希望の結果が帰って来ます。
yybbs.cgi1行目のperlへのパス指定は合っているハズなのにどうして
こんな事になるのでしょうか???

何方かアドバイスしていただけますでしょうか。

>>303
ブラウザで試して御覧なさい。

>>304
説明不足でした。
ブラウザでの表示は403 Forbiddenとなっています。
けど、、、うぅーむ???
馬鹿ですか？ワタシ

chmod 755 ./yybbs.cgi

>>306
確かに755としています。
ちなみにapacheのUserはnobodyからhttpdというユーザに変更
していますが、弊害ありますでしょうか？

んじゃ、
> yybbs.cgi1行目のperlへのパス指定は合っているハズなのに
がまちがってるんでは？
1行目と
which perl5
の結果でも見比べてー。
それ以上はわからん。

>>308
httpd.conf中の
Options Indexes FollowSymLinks
を
Options Indexes FollowSymLinks ExecCGI
に変更するのを忘れていたようです。大変失敬。

で、状況が変わりました。
ブラウザでは500 Internal Server Errorとなっており、
error.logには、Premature end of script headersが記録されました。
ん〜???

そのエラーだとどうせ改行コードだろ・・・・
なんか疲れた。

ヘッダ吐かずに死んだな。

えっと、ディレクトリにあるファイルの名前を取得して、リストにい
れたいですが、どうしたらいいでしょうか？

と言うか、
> 試しにtelnetで該当dirに行きまして、./yybbs.cgiとタイプしますと
> >./yybbs.cgi: コマンドが見つかりません.
> と怒られてしまいます。
をまず直せ。
CGI以前の問題。
多分、/usr/bin/perl5\r とか言うファイルを探しに行くからエラーになるの。
改行コードの問題じゃなければ、/usr/bni/perl5 とかを探しにいって略。
何も考えずにエラーメッセージをGoogleに突っ込んだら山ほど出てくるんだから、
多少は自分で考えたほうがいいと思うぞ。

opendir DIR, "./";
@dir = readdir DIR;
closedir DIR;
print "$_\n" for (@dir):

>>313
手を煩わせて申し訳ない。自分でもあれこれ探してはいるのですが…
>コマンドが見つかりません
これを解決しないことには、とは自分も考えています。
改行コードの問題は知りませんでした。

出直してきます。

>>314
ありがとです。

>>315
これで最後ね。
とりあえず、1行目の最後に -- を付けて、
#!/usr/bin/perl5 --
とか（もちろん自分の環境に合った奴）に変えてみ。
改行コードが原因なら ./yybbs.cgi で起動しないのはこれで直るはず。
原因は自分で調べること。

>>317
大変良く理解出来ました。
やはり改行コードの問題だったようです。
有難う御座いました。

>>300
何分、初心者なもので、そういうのがあることを
今初めて知りました。有難うございました。
あと、検索してみると、とても勉強になるサイトがありましたの
はっときます。
http://www.din.or.jp/~ya3/real/

WebProgの意味がわかりません。
誰か教えてください。お願いします。

>>320
まだ申請が受理されてないけど、こんな感じです。
http://teri.2ch.net/test/read.cgi?bbs=accuse&key=991479482

＃しかし↑この申請、下がりまくってるねえ。

ヒントだけでいいんで教えてください。
SAFEってありますよね。
変数のネームスペースにおけるCHROOTみたいなの。
あれの原理って・・・？
Perlには、あれを行うための秘密の機能とかがあるのですか？
モジュールのソースを読んだんですが、原理がわからんです。

>>321
有り難うごさいます。

このタイトルは、初めて来る人はわからないと思います。
Web_PG
こう書いてくれると助かる。

カンマ区切りで書かれた a.csv の、
4番目の項目が「ok」だったら、
その行の3番目と6番目のセルをタブ区切りで b.csv に保存する。
というのはどうしたらいいでしょう？

#!/usr/bin/perl
use IO::File;
use strict;
my $a = IO::File->new('a.csv');
chomp(my @b = grep{ (split/,/)[3] eq 'ok' } IO::File->new('a.csv')->getlines);
IO::File->new('>b.csv')->print( map{ join("\t", (split/,/)[2, 5]) . "\n" }@b );
__END__
>>324

ぬ、4行目の"my $a ..."は不要ね

>>325-326 さん、ありがとう
ばっちりでした。感謝感謝!!

>>322
ヒントになるかどうか分からないが。

#Safe.pm(209-222)
return Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
# $root には"Safe::Root1"のような文字列 $obj->{Mask} は制限用ビットマスク
# $evalsub はcoderef

/* Opcode.xs(257-295) */

void
_safe_call_sv(Package, mask, codesv)
    char *Package     #一時的なパッケージ
    SV *mask        #opコード制限マスク
    SV *codesv     #実行するサブルーチン
PPCODE:
    [中略]
    
    ENTER; #スコープに入ります
    
    [中略]
    
    # 内部API関数 void Perl_save_hptr(pTHXo_ HV** hptr) を呼び出し、
    # 他パッケージへのポインタを格納した最上位スタッシュ defstash への
    # ポインタを一時待避させる。（スコープ終了時に自動回復）
    save_hptr(&PL_defstash);
    
    # 内部API関数 HV* Perl_gv_stashpv(pTHX_ const char *name, I32 create)
    # により、パッケージ名 Package のHV(スタッシュ)へのポインタでdefstash
    # (メインスタッシュ)を置き換える。
    # パッケージ名 Package が存在していなければ（あり得ない）
    # GV_ADDWARN により警告
    PL_defstash = gv_stashpv(Package, GV_ADDWARN);
    
    [中略]
    
    # 引数として与えられたcodesv(SV*にキャスト済み)を呼び出す。
    perl_call_sv(codesv, GIMME|G_EVAL|G_KEEPERR);
    
    [後は眠いので略]
    

#間違いが有れば教えて欲しひ。

一時的なパッケージ -> 一時的な*ルート*パッケージ

すみません。今LWP使っていろいろ試してるんですが、LWPで取得してきた
HPに画像ファイル（.jpg）があったとして、それを自分のPCに保存する
プログラムを書いています。（ようは右クリックして保存を自動化するもの）
どうも上手くいかないので、わかる方いましたら教えてください。
宜しくお願いします。

>328さん

ふむふむふむ。
やはり、Perlの秘密（でもないのかな？）の
内部関数を呼び出していたのですね。
このヒントを頼りに、自力（←もう他力になってるけど（爆笑））更生を
目指します。

<input type="radio" name="hobby" value="野球">
<input type="radio" name="hobby" value="テニス">
として、両方$hobbyにぶち込みたいのですが、
DBに登録するときには、最後の一個しか入りません。
&hobby=....&hobby=....&となるせいなのですが。
初心者スミマセン

>>332
<input type="checkbox" name="hobby1" value="野球">
<input type="checkbox" name="hobby2" value="テニス">

>>330
間違っても共用鯖ではやらないように。
#!/usr/bin/perl
#getimage.pl
use LWP::Simple;
binmode(STDOUT);# Windowsでは必須
print get(shift);
__END__

C:\> perl getimage.pl http://hoge.net/foo/bar.image > bar.image

>>332
Queryを解析する時に
$data{$name} .= ", $value";
とでもすればよろしい

度々すみません。>>325 でrubbish_listerさんに教えていただいた

#!/usr/bin/perl
use IO::File;
use strict;
IO::File->new('a.csv');
chomp(my @b = grep{ (split/,/)[3] eq 'ok' } IO::File->new('a.csv')->getlines);
IO::File->new('>b.csv')->print( map{ join("\t", (split/,/)[2, 5]) . "\n" }@b );
__END__

で、6番目の項目が重複していたら b.csv に書き出さない、
とするにはどうしたら良いでしょう?

#!/usr/bin/perl
use IO::File;
use strict;
my %exists;
IO::File->new('>b.csv')->print(
    map{ sprintf("%s\t%s\n", @{ $_ }[3, 6]) }
        grep{ $_->[4] eq 'ok' and not $exists{ $_->[6] }++ }
            map{ chomp; [ undef, split /,/ ] }
                IO::File->new('a.csv')->getlines
);
__END__
>>335
あまり大きなファイルを処理するのには向かないが

たとえば、

　　../index.html<br>
　　../doraemon.html<br>
　　../nobita.html<br>
以下続く・・・

というふうにしたいのですが、

$chon = "../";

print << "EOF";
　　$chonindex.html
　　$chondoraemon.html
　　$chonnobita.html
EOF

とすると
$chonindex.htmlやら$chonnobitaやらの変数があることに
なって困っています。どないしたらいいでしょうか？

<form action="〜.cgi" method="post" target="_blank">
〜
</form>
という風に別ウインドウにCGIをpostで引き渡すのって反則なんでしょうか？
IE5.5+winやNN4.7+winでは問題なく作動するんですがNN6.0+winではpostした内容が一切引き渡されないんです。
NN6.0+winのバグであれば、これを回避する方法ってないでしょうか？

>>337
$chon = "../";

print << "EOF";
　　${chon}index.html
　　${chon}doraemon.html
　　${chon}nobita.html
EOF

俺も昔引っかかった。

ちょっと教えてください。

時間を使いたいんです。
例えば
$date_now　;#現在の日時
$date_soon ;#現在から１ヵ月後

とした場合、$date_nowの方は
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
で取れますよね？
一ヵ月後となると。。。難しいですか？

今現在はPostgreSQLに一回$date_nowを落としてから１ヶ月足して
それを$date_soonに入れなおしてますがあまり効率的ではないような
気がするんで。。。

>>340
$mon=$mon+2

>>340
1月31日の一ヶ月後は何月何日にしたいの？
30日後とかなら簡単だよ。
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+60*60*24*30);
じゃないのかな。

>>341
それだと１３月とかでませんか？

>>342
２月２８日にしたいんですが難しいですか？
閏年とかも計算して。。。
今のままの方がやっぱり楽なんですかね（＾＾；

>>340
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@dayinmonth = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
$year+=1900;
($year_next, $mon_next, $mday_next) = ($year, $mon, $mday);
$year_next++ if $mon == 11;
$mon_next++;
$uruu = 1 if $mon_next == 1 && ($year_next % 400 == 0 || ($year_next + 1900) % 4 == 0 && $year_next % 100 != 0);
print "$dayinmonth[$mon_next]\n";
print "$uruu\n";
$mday_next = $dayinmonth[$mon_next] + $uruu if $mday_next > ($dayinmonth[$mon_next] + $uruu);

う゛〜、ぜんぜんスマートじゃないけど。。。。

あ゛〜、ミスまでまじってるし。6行目の$year_next + 1900は$year_nextです。

それか、こんなのかなぁ。

$time_temp=time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time_temp);
$time_temp+=60*60*24*31;
do {
    (undef, undef, undef, $mday_next,$mon_next, $year_next,,,) = localtime($time_temp);
    print "$year_next $mon_next $mday_next\n";
    $time_temp-=60*60*24;
} while ($mday_next > $mday || $mon_next != ($mon + 1) % 12);

あ゛〜、確認用コードが残ってた。。
print "$year_next $mon_next $mday_next\n";
は要らないです…はぁ〜なにやってんだろ。

モジュールありそうな気がします
私は探してないですが探してみたらどうですか

ん〜、Date::Calc とかつかってみたら？
使ってないからどうかわからんけど。

>>336 rubbish_listerさん
再びたいへんありがとうございました。
非プログラマな私には救世主です。

>>339
ありがとうございました。

jcode.pl と jcode.pm とではどちらを使用するのが、
良いでしょうか。自分のPCだけでの使用範囲です。

Jcode.pm

別にどちらでも構わないと思いますよ。
ただ、予め文字コードが分かっていて、半角カナを使わないのなら
文字コード変換はNKF.pmの方が圧倒的に高速でした。
参考にどうぞ。

>>353さん、>>354さん、ありがとうございます。
NKF.pmもためしてみます。

NKF.ｐｍ は使い方がいまいちわからない・・・・・

cgi.pmを使用してparam()でフォームの内容を取得して
文字コード変換をおこなうのは可能ですか?

Ｔ女の竹田様

ありがとうございます。
ｽｸﾘﾌﾟﾄも大変勉強になりましたが、何事もめんどくさがらずにやると
いう姿勢も学ばせていただきました。

>>357 可能です。

>>359
「cgi.pmを使用して」がどこにかかるかによらない？（国語の問題）
「文字コード変換を行う」にもかかると考えると無理っぽい。

>>343
if ($mon eq 13){
$mon=1
}

perlとは関係ないかもしれませんが、
ゆいちゃっとのkill.datの書き方がわかりません。
どなたか教えていただけないでしょうか

ファイルの更新日時を変えたいんですが
追加オープンしてみたんですがうまくいかないようです。
上書きオープンならなんとかなるんですが
なるべくファイルを書き換えずに変更したいんです。
どうしたらいいんでしょうか？

漢字のパターンマッチングをやりたいんですが、うまくいきません。
教えてくださ〜い。

if($moji ne ~/[亜-龠]/ )

これで、$mojiが、漢字じゃなかったら、って感じになると思うんですが、うまくマッチングしません。何故でしょうか？

utime

>>364
・ 「=~」演算子の否定形は「ne ~」じゃなく「!~」。
・ 漢字のマッチは日本語モードでないと実行できない。

#!/usr/local/bin/perl -Lsjis
・・・
if ($moji !~ /[亜-龠]/)
・・・

＞＞366さん、ありがとーございます！！

で、それを実行してみました。そしたら、、

Internal Server Errorがでます。

たぶん、

#!/usr/local/bin/perl -Lsjis

これが原因だと思うのですが、エラーを出なくするには、どうしたらよろしんでしょうか？
宜しくお願いします。
この呪文は勿論、プログラムの最初に記述するのですよね？

formから送られてくるデータを格納の際の質問です。
<textarea>内の改行をそのままデータとして処理したいのです。
この改行と１レコードを区切る改行は、皆様どう区別されているのでしょうか？
１．データに入れる際に→すべて<BR>に置換する。
２．データにはそのまま入れ、表示するときに<BR>に置換する。

HTML表示だけならば１でよさげですが、１．２両方とも
CSV吐き出しでほかのアプリケーション（たとえばエクセル）で
扱うときに問題がありそうですが・・・。

１．だと文章中に<BR>があってわけわからん。
２．だとレコード構造が壊れる or 改行が"・"とか表示？
\r, \n \r\nと使い分けできるのかな？

データの保存形式によるのでは

私の場合は，1データ1行のデータとか1行で一つの内容を表すとかそういった場合は1(必ずしも<br>にするとは限らないけど)
xmlで保存だったらそのままかな

というかHTML表示もCSV吐き出しも原理は同じかと思われ

ファイルの内容を置き換えてコピーするスクリプトをつくったのですが、
スペースのところで改行されてしまいます。
配列そのままをコピー先のファイルに書き込むと、
もんだいはないのですが・・
よい方法ありませんか？


open(FILE_TO,">>file_to");
open(FILE_FROM,"file_from");

# modify string
@string_array = <FILE_BASE>;
foreach $string(<@string_array>){
$string =~ s/hogehoge/foofoo/;
print FILE_TO $string;
print FILE_TO "\n";
}

# write to file
close(FILE_TO);
close(FILE_FROM);

>>370
「スペースのところで」という意味がよくわかませんが…。

$string に改行が入ったままなので、
print FILE_TO $string ですでに改行されてます。次の行でさらに
print FILE_TO "\n"; とする必要はないです。

あ、先越されちゃった(^^；)

>>370
書き間違いだと思うけど、
FILE_BASEはFILE_FROM、あと<@string_array>は@string_arrayだよね。
念のため。

コピー元
<META name="GENExxxx
コピー先
<META
name="GENExxxxx
って感じだったんです。
>FILE_BASEはFILE_FROM、あと<@string_array>は@string_arrayだよね
これが原因でした。
直したらうまくいきました。

半日なやんだ原因がこれだけだったとは・・

でも思い切って聞いてみてよかった。
ありがとうございました

>369
サンクソ
>というかHTML表示もCSV吐き出しも原理は同じかと思われ
そうなんですど、つまり今度はデータとして使いたいときに、
改行があるから、レコードがおかしくなりますよね？
（$1 tab $2 tab $3 tab \n）で１レコードなのに、
$2の中に\nが入ってる訳です。
（$1 tab $2 tab $3 tab \n）が２レコードになってしまいます。

>369
サンクソ
>というかHTML表示もCSV吐き出しも原理は同じかと思われ
そうなんですど、つまり今度はデータとして使いたいときに、
改行があるから、レコードがおかしくなりますよね？
（$1 tab $2 tab $3 tab \n）で１レコードなのに、
$2の中に\nが入ってる訳です。
（$1 tab $2 tab $3 tab \n）が２レコードになってしまいます。

>>374
吐き出したCSVをそのまま別アプリで読みたいってわけ？
ならそのソフトが読める形式でデータ吐くしかないでしょ。

http://www.din.or.jp/~ohzaki/perl.htm
↑みりゃ分かんべ。

>377 おぅ、サンクソ！！！
印刷して、今晩ゆっくり勉強します。

>376　CSV→SQLで読める形式変換Perl書いてくだしゃい。
ODBC使ってもゴミと一緒に改行吐き出しやがるし、（バグ？）
いったいどうすりゃいいんだ？

クソクソうるせーぞ。黙れ。

ごめんクソ（大爆笑）

>>365
utime で変更日時とアクセス日時変更できるんですね。
ありがとうございます。
これから試してみることにします。

open(LOG,">>./log.dat")などとファイルに追加書き込みする場合、
ファイルロックは不要なのでしょうか。

プロセスA　　　　　　　　プロセスB　　　　　　　　　　　ファイルX
↓　　　　　　　　　　　　　↓　　　　　　　　　　　　　　　　　↓
writeシステムコール　　↓
↓　　　　　　　　　　　　　↓　　　　　　　　　　　　　　　　　↓　　　　
Xに"hoge"を出力せよ　writeシステムコール
↓　　　　　　　　　　　　　↓　　　　　　　　　　　　　　　　　↓
h　　　　　　　　　　　　　　Xに"foo"を出力せよ　　　　　h
↓　　　　　　　　　　　　　↓　　　　　　　　　　　　　　　　　↓
o　　　　　　　　　　　　　　f　　　　　　　　　　　　　　　　　　hof
↓　　　　　　　　　　　　　↓　　　　　　　　　　　　　　　　　↓
g　　　　　　　　　　　　　　o　　　　　　　　　　　　　　　　　　hofgo
↓　　　　　　　　　　　　　↓　　　　　　　　　　　　　　　　　↓
e　　　　　　　　　　　　　　o　　　　　　　　　　　　　　　　　　hofgoeo



↓
(´д`)ﾏｽﾞｰｰ

なるほど。

open(OUT, "+< outfile.txt");
flock(OUT, 2);
truncate(OUT, 0);
seek(OUT, 0, 0);
print OUT "........";
close(OUT);
と書いた場合、ロックが解除されるまで別プロセスは待つのでしょうか。
open(OUT, "+< outfile.txt") || die("ファイルオープンに失敗\n");
と書いた場合はロックがかかっていると書きこまずに終了してしまうので、
確実に書きこみをさせたいのです。
また、1つのファイルに対して読みこみ→処理→書きこみとする場合、
読みこみの時からロックするべきなのでしょうか。

openの成功はflockに関係ないが…。
何か疑問があればまずテストしてみてはどうだろうか。

>>382-384
>open(LOG,">>./log.dat")
(1) writeがアトミック動作
(2) openにappendモードがある
が満たされてればロック不要でしょ。
だからUNIX系やWin2000ならロック不要。
Win95はどうだったかな・・・。

「writeがアトミック」を満たすにはsyswriteを使わなくてはだめでわ?

>>388
あ、そのとおりだね。syswriteじゃないと、でかいデータは
複数回に分けて書き込まれるのでアトミック性がなくなる。

掲示板などのCGI起動回数をカウントするにはどうすれば良いですか？

最近、私のホームページにアクセスする人の多くは
掲示板(bbs.cgi)を直接ブックマーク登録しているらしく
アクセスカウンタが寂しい状態です

>>390
掲示板にカウンタをつけてトップページと共有する

会社に好きなおねーちゃんがいるんです。
そのおねーちゃんをひーひー悦ばすぱーる教えてください。
やっぱり真珠埋め込みですかね。

>>392
初心者がいきなりモジュール等に頼るのは感心しません。
まず基礎的な知識を覚えてから経験をつみましょう。

真珠が気持ちいいと思ってるのは馬鹿なヤクザだけ
無知な童貞逝ってよし

　　ﾊﾊﾊ
　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣
　（　＾∀＾）＜　　あほか 　この低脳が >>392
　（ つ ⊂ ）　＼＿＿＿＿＿＿＿＿＿
　 .）　 ）　）
　（_＿）＿）　　　　　（＾∀＾）ｹﾞﾗｹﾞﾗ 　ｼﾈ

392曰く

真珠が気持ち良くないって言ってるのは、
真珠入りヤクザにケツほられたことない
男だけ

とのこと。

>>387
syswriteってバッファリングしないって事ですよね？
やっぱり、一つのファイルをガリガリ読み書きする場合、
相当パフォーマンスは落ちるのでしょうか。

>>394
激しく同意！

>>397
バッファリングが効果を発揮するのは、
1文字ずつとか1行ずつとか小分けに読み書きする場合なので、
sysread/syswriteで一気にファイルを読み書きするんだったら
パフォーマンスは落ちないです。

ドキュンな質問ですいません。はじめてPerlをやるんですが、
いきなりつまずいています。
送信して書き込むと言う単純作業なんですが以下のように書いたんですが
動作しません。間違えがあったら指摘して下さい・・・

elsif ($in{'menu'}) {

open(IN,"stitle.log") || &error("Open Error : stitle.log","LK");
@line = <IN>;
close(IN);

# 更新
open(OUT,">stitle.log") || &error("Write Error : stitle.log","LK");
print OUT @line;
close(OUT);
}

print <<"EOM";
<form action="$script" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=mode value="admin">
一行目 <input type=text name=menu size=30>
<input type=submit value="サブタイトル">
</form>
EOM

>>400
何故それで動くと思えるのかが不思議だ

ドキュンな質問ですいません。はじめてPerlをやるんですが、
いきなりつまずいています。
送信して書き込むと言う単純作業なんですが以下のように書いたんですが
動作しません。間違えがあったら指摘して下さい・・・

elsif ($in{'menu'}) {

open(IN,"stitle.log") || &error("Open Error : stitle.log","LK");
@line = <IN>;
close(IN);

# 更新
open(OUT,">stitle.log") || &error("Write Error : stitle.log","LK");
print OUT @line;
close(OUT);
}

print <<"EOM";
<form action="$script" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=mode value="admin">
一行目 <input type=text name=menu size=30>
<input type=submit value="サブタイトル">
</form>
EOM


>>401
だからドキュンな質問なんです。本当にわからないです。

全部出しなさい。

>>402
何度も書くな。
どうせ自分で考えたスクリプトじゃないんだろうから、元のスクリプトを完全に写せ。
写し終わったら氏ね。

>>403

sub kanri {
local(@line, $menu);

if ($in{'menu'}) {

open(IN,"stitle.log") || &error("Open Error : stitle.log","LK");
@line = <IN>;
close(IN);

# 更新
open(OUT,">stitle.log") || &error("Write Error : stitle.log","LK");
print OUT @line;
close(OUT);
}

# 管理画面
&header;
print <<"EOM";
[<a href="$script?">初期画面に戻る</a>]
<table width="100%"><tr><th bgcolor="navy">
<font color="#FFFFFF">管理モード</font>
</th></tr></table>
<P><blockquote>
<form action="$script" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=mode value="admin">
一行目 <input type=text name=menu size=30>
<input type=submit value="サブタイトル">
</form>


EOM

}
exit;

まだ作り中ですが・・・

elsifは何処いったんだよ。

もう良い。お前CGI作成／改造に手出すな。

今日の教訓：ドキュソにも程がある

elsifは何処いったんだよ。

もう良い。お前CGI作成／改造に手出すな。

今日の教訓：ドキュソにも程がある

初心者コーナーだから仕方ないのでは…。

>>405
どういう風に「動作しない」のかきちんと書きましょう。
動くけど更新されてないとか、エラーで動かないとか…。

・ @line を全く更新していない。$menu を追加するのでは？
・ どうせファイル全体を @line に入れるなら、
　open(IN,"+<stitle.log");
　@line = <IN>;
　（@lineの更新処理）
　seek(IN,0,0);
　print @line;
　truncate(IN,tell(IN));
　close(IN);
　と一度のファイルオープンで終わらせるようにしましょう。

まちがえました。
print @line; → print IN @line;

syswrite と、$| = 1 でバッファリングoffした print とは
どう違うんですか？

>>410
お前には同じに見えるのか。
すげーな。

>>411
試しに説明してみて。

>>411
syswriteはstdioを通さないとかありましたけど、何が起こるのか良く解りません。
御分かりなら説明orポインタを示して貰えると有り難いです。

----

ところで、Perlで flush とかいう操作をするにはどうすればいいんでしょう。
select FILE; $| = 1; print '';
でできますか？

引数が全然違うだろうが。ヴァカか？（藁

>>414
もうちょっと説明して。馬鹿だから。

>>414
なんだその程度か。期待して損した。

>>414
久々に真性アホを見つけた。さらしあげ。

>>414
ﾌﾟ

あれ？syswriteって書き込むサイズを指定する必要があったと思うけど..........

>>413
perldoc -q flush すると出てくるよ。
http://www.perl.com/pub/doc/manual/html/pod/perlfaq5.html#How_do_I_flush_unbuffer_an_outpu

>>419
5.6からは指定する必要なし。
perldoc -f syswrite or perldoc perldelta

引数が二個しか無ければ、長さを勝手に計算してスタックに積んでくれる。
/* pp_sys.c */
PP(pp_syswrite)
{
    dSP;
    int items = (SP - PL_stack_base) - TOPMARK;
    if (items == 2) {
        SV *sv;
        EXTEND(SP, 1);
        sv = sv_2mortal(newSViv(sv_len(*SP)));
        PUSHs(sv);
        PUTBACK;
    }
    return pp_send();
}

バッファなしprintとsyswriteは何が違うんでしょうね。
小細工をしている分printの方が重いような…
と思いBenchmark.pmで測定するも、差は見られず…。

# やはりPerlを知るためにはCを学ばなければいけないのか…。

両者の違いは、でかいデータを書き込むとき、
バッファなしprintだと1KBごとに細切れに書き込むので
その境目でタスクスイッチが発生する可能性があるけど、
syswriteは全部いちどに書くのでアトミック性が保証される。
ということかも。
・・・根拠はFreeBSDのstdioのソース＋想像90％

>>414, >>419
言葉が足りなくてすみません。そういう違いは解ってます。
上のほうでも出てるアトミック性がどうのという話とか、
「stdio を経由しないので、 print と一緒に使うと混乱する」とか、
Programming Perl にも書いてある partial write（書き込み途切れてる？）とか、
ファイルシステムとの関連というか…そこらへんでの違いを知りたいと思いまして。
OS関連のことが良くわからないので…。

>>420
こちらも言葉が足りなくてすみません。
該当ページは以前読んだのですが、最初からautoflushにする方法しか無いようでした。
+> でオープンしたファイルに何か書き込んだあと、それを読むという操作を
したいのですが、でかいファイルにけっこう細かく書き込むので書き込みが
終わるまではバッファリングさせておきたいのです。

その後自分で実験したら、書き込んだあと読むために seek で巻き戻すと flush される
ようで、心配することもないのかな、という感じです…。

長文すみません。

こんにちは。もしかしたら板違いかもしれませんが、
http://cheese.2ch.net/test/read.cgi?bbs=art&key=982673377&st=508&to=509
こういうのって本当に問題あるんですか？
著作権法の侵害になってしまうのでしょうか？

>>423
んーいまいち具体的に何を知りたいのか見えないけれど、
処理の流れは↓のようになっていることは、知って置いた方がいいかな。

・syswrite()
PerlLIO_write()もといシステムコール
write(int filedes, const void *buff, size_t bytes)
    filedes --> syswriteに渡されたファイルハンドル(から得られるディスクリプタ)
    buff --> syswrite に渡した文字列
    bytes --> 書き込むバイト数（指定されなかった場合Perlが内部で計算する）
を呼び出してその場で書き込む。

・バッファリング無しのprint
PerlIO_write()（≠PerlLIO_write） もといstdioライブラリの
fwrite(const void *ptr, size_t size, size_t count, FILE *fp) に、
    ptr --> print に渡した文字列(ちょっと違う)
    size --> 1 固定だよ
    count --> 文字列長（Perlが内部で計算する）
    fp --> printに渡されたファイルハンドル(から得られるFILE構造体へのポインタ)
を渡して呼び出し書き込むよう指示する。
その後、IOフラグを調べてIOf_FLUSH ビットがセットされていた場合
（つまり、バッファリング無しに設定されていた場合）PerlIO_flush()もとい
stdioのfflush(FILE *fp)を呼んで、まだ書き込んでいないデータをカーネルに渡す。

>後
>書き込んだあと読むために seek で巻き戻すと flush されるようで
いや、そんなことはないと思うが......。たしかdo_seek()はそんなことはしないはず。
>最初からautoflushにする方法しか無いようでした。
IO::Handle を利用して、適宜バッファを書き出したいときに
$io->fflush();
するのが一番スマート && 安全じゃないかな。

>$io->fflush();
$io->flush();
癖が。

$datdirというディレクトリの中に
20010617.dat 最終更新日6/19 14:00
20010618.dat 最終更新日6/18 15:00
20010619.dat 最終更新日6/19 18:00
というファイルがあった場合、
最終更新日順に@fileに入れるにはどうsortすればいいんでしょうか？

>>427
@fileに入るのはファイル名のみですか？
#!/usr/bin/perl
use IO::Dir;
use File::stat;
my $dir = '.';
my @file = map{ $_->[0] }
        sort{ $b->[1] <=> $a->[1] }
            map{ [$_, stat($_)->mtime] }
                grep{ not /^\.\.?$/ }
                    IO::Dir->new($dir)->read;
foreach(@file){
    print $_, "\n";
}
__END__

>>424
法律板の方がいいと思うぞ。

　　ﾊﾊﾊ
　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣
　（　＾∀＾）＜　　あほか
　（ つ ⊂ ）　＼＿＿＿＿＿＿＿＿＿
　 .）　 ）　）
　（_＿）＿）　　　　　（＾∀＾）ｹﾞﾗｹﾞﾗ ｷｴﾛ ｶｲｾﾝｷｯﾃｸﾋﾞﾓｷﾚ ｹﾗ

>>428
はい、ファイル名のみです。ありがとうございました。

>>425
ありがとうございます。syswrite は最初からダイレクトに書き込む、
$| = 1 はバッファ（？）に書き込んだ後それを flush、という感じなんでしょうか。
こういう違いが知りたかったので勉強になりました。

>seek

open F, "+>hoge.txt";
print F 'hoge';
open F2, "<hoge.txt";
# seek F, 0, 1;
read F2, $buf, 1024;
print $buf;

こんなので試しました。このままでは何も表示されず、# を外すと "hoge" と出力されます。
seek すると書き込まれているように見えるのですが…。

あ、flush は flush.pl を見たら >>413 と同じことをしていたので、これを使おうと思います。
プロバイダのサーバではモジュールが使えないので。

そんなアホな。

下記のようなN88ベーシックをパールで書くとどうなりますか？
2:"A"; lbtmp
4input "?x(%)=";x:
input "? "p(mmhg)=";p
6:gosub 500
8:print "t="; using "####.####";t;"c"
10:end
12:lp:rem lb.pres
14:input"x(%)=";x:
input "t(c)=";t
16:gosub 514
18;print "p="; using "####.####";p;"mmhg
20:end
*lh :rem ent.lb
24:input"?x(%)"=";x:
input"? t(c)=";t
26:gosub 525
28:print "h="; using "####.####";h;"kc/kg"
30:end

よろしくお願いします。

>>435
スレ違いだ氏ねヴォケ。←おやくそく。
しかしまじでCGI-MLにはこんなのが流れるんですか？

クッキーに２バイト文字をかきたいのですが、どうしたらいいでしょうか？
現在、下のようにCGIでクッキーをセットしてるのですが・・・
　　print &setCookie("POSTNAME", $FORM{'postname'});
　　sub setCookie {
　　　　local($tmp, $val);
　　　　$val = $_[1];
　　　　$val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
　　　　$tmp = "Set-Cookie: ";
　　　　$tmp .= "$_[0]=$val; ";
　　　　$tmp .= "expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
　　　　return($tmp);
　　}

さげてしまったのでageます

何か問題でもあるん？

えっと、ジャバスクリプトでクッキーに格納された文字を以下のように読み出しているのですが、
文字化けした状態で出てくるのです。
--
<html><head>
<SCRIPT LANGUAGE="JavaScript">
<!--
getname = getCookie("POSTNAME");
if (getname == "") {
　　getname = "";
}

function getCookie(key, tmp1, tmp2, xx1, xx2, xx3) {
　　tmp1 = " " + document.cookie + ";";
　　xx1 = xx2 = 0;
　　len = tmp1.length;
　　while (xx1 < len) {
　　　　xx2 = tmp1.indexOf(";", xx1);
　　　　tmp2 = tmp1.substring(xx1 + 1, xx2);
　　　　xx3 = tmp2.indexOf("=");
　　　　if (tmp2.substring(0, xx3) == key) {
　　　　　　return(unescape(tmp2.substring(xx3 + 1, xx2 - xx1 - 1)));
　　　　}
　　　　xx1 = xx2 + 1;
　　}
　　return("");
}
// -->
</SCRIPT>
</head><body>
<SCRIPT Language="JavaScript">
<!--
mmbb = unescape(getname);
document.write("名前:<input type=text name=postname size=30 value=",mmbb,">");
// -->
</SCRIPT>
</body></html>

>>440
JavaScriptで呼び出す場合IEだと確かに化けるね。
NNだと問題ないけど。

$val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;

消すと大丈夫だよ。
その代わり;とか含むとCookieがちゃんと設定されない。
2chはそうなってるね。
IEのシェアが大きいから仕方ないのかな。

つか糞IEバグ直せよｺﾞﾙｧ

>>440
多分文字コードがUTF-8だからですね。

Perl5.6以上ならpackとJcode.pmで何とかなりますが、
それ以下のバージョンの場合はどうすればいいのやら…。

ん？UTF-8のせいなの？？
NNではOKだからIEのバグだと思ってたが。

確かそうだったと…
m/%u([a-fA-F0-9]{4})/
って形ならUTF-8なのではないか。

試してないでアレですが。

「UTF-8なのではないかと」です（汗

>>439
消してもダメでした・・・

>>rubbish_l
クッキーの中身をみたところ
テスト中＝%A5%C6%A5%B9%A5%C8%C3%E6
でした。UTF-8とやらみたいであります。
弱りました。当方Perl5.0の鯖なんす。

むぅ。俺が作った２ちゃん型BBSはそれで直ったんだが・・・。

あとはよう分からんスマソ。

>>446
え？
いやそれは(URIエスケープされているとはいえ)普通のEUC-JPですが…？

って、待てよ？

もしかしてCGIスクリプト側でセットしたクッキーをJavaScriptで読み出そうとしてます？
ちと勘違いしてました。すみません。
…となると…>>441さんの方法しか思いつきません。もうしわけない。

文字コードはEUCで、cgiスクリプト側で設定したクッキーをジャバスクリプトで読もうとしています。。。

>>437
ほういちさんの所は上手くいっていた記憶があるなあ。
http://www13.big.or.jp/~bell/nanashi/perl/

>>432
>という感じなんでしょうか。
そです。
syswrite --> write()でそのまま書き出し。
$| = 1 && print --> バッファリングされるけれど、print関数内で即フラッシュされる。
と考えればいいかと。

>>seek
>seek すると書き込まれているように見えるのですが…。
PerlIO_seekもといfseek()が、シークする前に__flshfp(FILE*,int)を呼び出して
バッファをフラッシュするのを忘れてた（鬱）すまん。
ちゃんと書き込まれますね。

>>337
IEのescape/unescapeは%uXXXXという形のUnicodeを使ってます。
なので、%XX の形のCookieはIEのunescapeでは戻せません。
クロスブラウザ（？）にするためには、JavaScriptかCGI内部のどちらかに
統一して、セットも取得も両方行う必要があります。
337のように取得をJavaScriptにするなら、セット(escape)もJavaScriptでやりましょう。

# USER_AGENT を見て、IE なら %uXXXX のように変換することもできますけど…。

>>440 だった。ｽﾏｿ

＞IEのescape/unescapeは%uXXXXという形のUnicodeを使ってます。

げげ、そうだったんですか…

とりあえず%uXXXXという形に出来ますが、
これはIE専用か…

use utf8;
use 5.6.0;
use Jcode;
$str = 'テスト中';
$str = Jcode::convert($str, 'utf8');
$str =~ s/(.)/ sprintf('%%u%x', unpack('U', $1)) /ge;

すみません
DOSで構文チェックすると
行数とエラーの内容がでてきますよね?
そのエラーの内容を解説してる本とかサイトとか
あったら教えてもらえないでしょうか?
ガイシュツだったらごめんなさい

>>452
おおすげー俺的にタイムリー
板違いになっちゃうけど、javascriptでURLエンコードする
ライブラリってありませんかね？
色々検索したんだけど、全然見つからない。
ここまで見つからないと、javascriptだと実装不可能なのかなぁ。
と思ってみたり。
perlだと一行なのに。

escape()

>>455
英語ならPerl付属のマニュアルの中の perldiag という項目に出てます。
日本語訳は http://www.att.or.jp/perl/man/ ここにあります。

>>456
IEの場合、Unicodeでないエンコードは無理です（Appletを使ってやってる人はいますが）。
デコードならできると思いましたが、日本語と認識してくれないです…。

var encoded = "%82%B1%82%F1%82%C9%82%BF%82%CD%81B";
var decoded = encoded.replace( /%([0-9A-Fa-f][0-9A-Fa-f])/g, url_unescape );
function url_unescape( matchedString, subMatch1 ){
　　return String.fromCharCode(parseInt(subMatch1,16));
}

>>458
ありがとうございます。
また何かあったらお聞きしますと思いますが
宜しくお願いいたします。

文字か、アスキーコードを取り出したいのですが、
Perlでは、難しいのでしょうか。

C言語の場合（なにも考えなくてもいい・・・）
int asciicode = 'A'; /* asciicode = 0x65; */

Perl の場合（仮定）
$str = "A";
$asciicode = getAsciiCode( $str); # asciicode = 65;
この getAsciiCode関数が欲しい・・。

my $val = unpack('H2','A');
とした場合、返ってくるのは "41" ですね。近いんですけど、
これは１６進数だから、なんとかして１０進数に変換しなければいけない・・。

しまったぁ！
こうすればいいんですね・・。jcode.pl のソースみて、
てきとーにやったら、出来てしまった・・。
my $val = unpack('CC','A');
失礼しました。
（なんで、こうやったら、できるのかはわからんが）

>>460
unpackはいろいろ使えて便利だけど、
動作が理解できないなら専用の関数使ったほうがいいぞ。

$code = ord('A'); # 10進文字コード←文字
$str = chr(65); # 文字←10進文字コード

$val = ord "A";

質問です。
ｉモードの掲示板で、絵文字を入力された場合の対策はどのように
されてますか？

開いたファイルに毎行処理を行うには

while (<FILE>) { 処理 };
と
foreach (<FILE>) { 処理 };

ではどちらが速いでしょうか？
また、一度配列に入れてからのほうが良いのでしょうか？
教えてください。

>>465
最初に配列にまとめて入れた方が良いと思われ。
whileもforeachも速さは変わらないと思われ。

>>465
配列に入れるとその分メモリを喰う。
あまりにも大容量な場合は配列に入れないほうがいい。

いや普通はwhileでは？
数キロバイトのファイルならいざ知らず、
メガバイト単位だと明らかにwhileの方が速いですよ？

ファイルの容量が大きければ配列に入れずにwhile,
小さければ配列に入れてforeach(配列に対してwhileは使えませんよね？？)
ということですね。
ありがとうございました。

>配列に対してwhileは使えませんよね
念のため

while (shift @array) {
　something;
}
とかたまに使うよ

っつーか…

> 最初に配列にまとめて入れた方が良いと思われ。

これは何故こんな考えが？
後学の為に聞いておきたい。

Win2000でActivePerl626 にTkモジュールを突っ込んだんですが、
「PerlCRT.dllがありません」って言われてTk.pmが落ちます。
どうしたらいいんでしょうか？

ちなみに、そのプログラムはSolarisのperl5.005_3で動いたものなので
コード的にはおかしくないはず・・・・

>>472
特定のコードで落ちるんですか？
それともTk使うと必ず落ちるのか。

perl -e "use Tk;"
でも落ちます。
これって、なにやっても落ちますよね・・・・

Win2000にTkを入れたばかりですけど、いちおう動いてまっせ。
"ppm install Tk"でインストールしました。

* ActivePerlのバージョン
v5.6.0 built for MSWin32-x86-multi-thread
Binary build 623

* Tkのバージョン
C>perl -MTk -e "print $Tk::VERSION"
800.022

perl.exe と同じディレクトリか system32 ディレクトリ内に
perlcrt.dll はありますか？

このスレ、勉強になるなあ…ありがたや。

そうだね

>>465
while(<>) --> ファイルを一行毎に読み出す。
foreach(<>) --> ファイルを一括して読み、インデックスを回す。
という違いがあります。
......どちらもスピードはあまり変わりませんから、普通はwhile()の方を使います。

________________________________________

#!/home/devel/5.7.1/bin/perl -Dtls

print while <>;
________________________________________

EXECUTING...
(while.pl:0) enter
(while.pl:0) ENTER scope 2 at pp_hot.c:1535
Entering block 0, type BLOCK
    =>
(while.pl:0) nextstate
    =>
(while.pl:3) enter
(while.pl:3) ENTER scope 3 at pp_hot.c:1535
Entering block 1, type BLOCK
    =>
______________________________________

(while.pl:3) gvsv(main::_)
    => UNDEF
--> gvsv()コードによりSV ${"main::_"} を取得(undef)、スタックに積む。
______________________________________

(while.pl:3) gv(main::ARGV)
    => UNDEF GV()
--> gv()コードによりGV ARGV（ファイルハンドル）を取得、スタックに積む。
______________________________________

(while.pl:3) readline
    => PV("1\n"\0)
--> スタックからpopしたファイルハンドルから一行読み出し、$_に設定。
PV とは文字列の意。（ちゃんと改行付き）
______________________________________

(while.pl:3) defined
    => SV_YES
(while.pl:3) and
    =>
--> while() 内のテスト。Perl5.001からは while (<>)は
while (defined($_ = <>)) と同義になっている。
(op.c pod/perlop.pod,Change.log --NETaa13486を参照)
この場合、テストはSV_YES(文字列"1")を返した。(-> true)
______________________________________

　

...続き

(while.pl:3) pushmark
    => *
(while.pl:3) gvsv(main::_)
    => * PV("1\n"\0)
(while.pl:3) print
    => SV_YES
--> $_の値を取得し、printする。成功したためSV_YESを返す。
______________________________________

(while.pl:3) unstack
    =>
--> スコープ終了。オールクリア (-->ループ繰り返し)
______________________________________

#< .....以上をARGVから読みとれる限り繰り返す..... >#

(while.pl:3) leave
Leaving block 1, type BLOCK
(while.pl:3) LEAVE scope 3 at pp_hot.c:1657
    =>
(while.pl:3) leave
Leaving block 0, type BLOCK
(while.pl:0) LEAVE scope 2 at pp_hot.c:1657
(while.pl:0) LEAVE scope 1 at perl.c:394

________________________________________

#!/home/devel/5.7.1/bin/perl -Dtls

print foreach <>;
________________________________________

EXECUTING...
(foreach:0) enter
(foreach:0) ENTER scope 2 at pp_hot.c:1535
Entering block 0, type BLOCK
=>
(foreach:0) nextstate
=>
______________________________________

(foreach:3) nextstate
=>
(foreach:3) pushmark
=> *
(foreach:3) gv(main::ARGV)
=> * GV()
--> while() の時と同じ（省略）
______________________________________

(foreach:3) readline
=> * PV("1\n"\0) PV("2\n"\0) PV("3\n"\0)

--> ファイルハンドルARGVから全て読み出し、一行毎にスタックに積む。
PV は文字列の意。（改行付き）
______________________________________

(foreach:3) gv(main::_)
=> * PV("1\n"\0) PV("2\n"\0) PV("3\n"\0) GV()
(foreach:3) enteriter
(foreach:3) ENTER scope 3 at pp_ctl.c:1703
(foreach:3) ENTER scope 4 at pp_ctl.c:1734
Entering block 1, type LOOP
=> PV("1\n"\0) PV("2\n"\0) PV("3\n"\0)
(foreach:3) iter
=> PV("1\n"\0) PV("2\n"\0) PV("3\n"\0) SV_YES
(foreach:3) and
=> PV("1\n"\0) PV("2\n"\0) PV("3\n"\0)
--> リストから一つ取り出し$_ にセット。その後 $_をテスト(SV_YES --> true)
______________________________________

...続き。

(foreach:3) pushmark
    => PV("1\n"\0) PV("2\n"\0) PV("3\n"\0) *
(foreach:3) gvsv(main::_)
    => PV("1\n"\0) PV("2\n"\0) PV("3\n"\0) * PV("1\n"\0)
(foreach:3) print
    => PV("1\n"\0) PV("2\n"\0) PV("3\n"\0) SV_YES
--> $_の値を取得し、printする。成功したためSV_YESを返す。
______________________________________

(foreach:3) unstack
    => PV("1\n"\0) PV("2\n"\0) PV("3\n"\0)
(foreach:3) nextstate
    => PV("1\n"\0) PV("2\n"\0) PV("3\n"\0)
--> 次の繰り返しのためのクリーンアップ (-->ループ繰り返し)
______________________________________

#< .....以上を全ての要素に対して繰り返す..... >#

(foreach:3) iter
    => PV("1\n"\0) PV("2\n"\0) PV("3\n"\0) PV("\n"\0) PV("aaa\n"\0) SV_NO
(foreach:3) and
    => PV("1\n"\0) PV("2\n"\0) PV("3\n"\0) PV("\n"\0) PV("aaa\n"\0) SV_NO
(foreach:3) leaveloop
Leaving block 1, type LOOP
(foreach:3) LEAVE scope 4 at pp_ctl.c:1821
(foreach:3) LEAVE scope 3 at pp_ctl.c:1822
    => PVNV(""\0)
-->もう要素が残っていないためSV_NO(文字列"")が返されループ終了
______________________________________

(foreach:3) leave
Leaving block 0, type BLOCK
(foreach:0) LEAVE scope 2 at pp_hot.c:1657
(foreach:0) LEAVE scope 1 at perl.c:394

=> スタックの内容
です。
.......それにしても長すぎた。申し訳ない。

初心質問で申し訳ない。

@aに配列が保存されており、

&subxx($xx,$xx,\@a); #ってな具合でサブルーチンにリファレンスで渡したあと、

sub subxx{
$a = $#$_[2];
}
こういう風に、要素数を読みとろうとすると、なぜかエラーがでます。
どうすればいいんっしょ。

ちなみに、いったん別の変数へぶちこむと、正常に動くんですけどねえ。

>foreach(<>) --> ファイルを一括して読み、インデックスを回す。
なるほど。
>480-484を見ると
>(foreach:3) readline
>=> * PV("1\n"\0) PV("2\n"\0) PV("3\n"\0)
全部読んじゃうのね。・・・知らなんだよ〜ありがとう。

＃うちのperlは-Dオプションが効かないよ・・・

>>489
$a = $#{$_[2]}

>要素数を読みとろうとすると
要素数じゃなくてインデックスの最大値だよ。
要素数は
$count = scalar @{$_[2]}

>>gunzipさん

ども、ありがとうございました。無事できたっす。
いや、しかし、perl面白いですなあ。かなりはまりそうです。

ディレクトリが無ければ作る、というときに
-d 'hoge' でチェックしたりしないでいきなり mkdir 'hoge' ...
すると、何か問題があるでしょうか？
-d より効率が悪いとか、ディレクトリ上書きしちゃうシステムがあるとか…。

よろしくおねがいします。

↑シェルで試したらエラーが出た。
mkdir: cannot make directory `try': File exists

ちょっと難題を抱えてしまったので質問よろしいでしょうか？

I saw a pan & pen.

と言う文字列があります。これをHTMLの実体参照で変換した後は、

I saw a pan & pen.

になりますが（文章の内容については突っ込まないこと）、この変換した後の文字列をsubstrのように文字を切り取りたいのです。

ちょっと分かりにくいので、先頭から１０文字を切り取る動作の結果を例としてあげます。

0123456789 欲しい答え
I saw a pa → I saw a pa

いざプログラムを組んでみるとちんぷんかんぷんです。どなたかご教授を！

>>493
Linux、FreeBSD、Win95、Win2000は、いきなりmkdirで問題なし。
上書きすると>>494みたいなエラーになり元のディレクトリは不変。
効率は、気にするほど違いないでしょ。どっちかいったら-dのほうが遅い？

>>495
あの、下の例文の意味がよくわからないのですが、 実体参照を
一文字としてsubstrしたいということですか？
手遊びに作ってみましたが、ちがったら無視して下さい。

# 開始位置は最初からのみ
# $str : 切り取り対象 $n : 何文字切り取るか
sub html_substr{
my( $str, $n ) = @_;

{
my $count = 0;
do{ last if $count++ >= $n }
while $str =~ /？\d{1,4};|&[A-Za-z]{1,7};|./gs;
}

substr $str, 0, pos($str);
}

うーん。遅そう。

ありゃ。なんか？になってる…。

while $str =~ /

の次は、 & と # です。

レスを下さった方々、ありがとうございます。勉強になります。
ですが、_gunzipさんのコードは私には高度過ぎてわかりませんでした・・・。
わざわざ書いてくださったのにすみません。

>>497
あ〜いけね〜、
実体参照が変換されるのを忘れていた

I&nbsp;saw&nbsp;a&nbsp;pan&nbsp;&amp;&nbsp;pen.のI&nbsp;saw&nbsp;a&nbsp;paです。鬱陀氏脳

>>497
先ほどは失礼いたしました。
私の質問の意図はSさんの通りです。

で、プログラムのほうは一見それでうまくいくかと思いきや、$nが$strの文字数より大きくなるとnullが帰ってくるようです。

ここからは私のほうで考えてみます。

UTF-8をsjisに変換する、または、utf-8でファイルに書きこみたい
のですが、どうすればいいのでしょうか。

Jcode

Jcode.pmを使う

被った、、、と今更気付く。

http://perl.gizo.net/download/imode/ezimode_cgi.txt
↑（ソースです）のi-mode掲示板をつけました。
どうしても、ＥＺ−Ｗeｂからだと文字化けがおこります。
しかも、｢タイトル(＝dai)｣(フォームサブルーチンより)
の部分だけが…。

EZからだと、書き込み方式が違う(ＵＴＦ−８？？)
てのだけ、突き止めましたが、
それって↓
&jcode'convert(*dai,"sjis");
で対応するんですよね？でも、ダメです。

万策尽きてしまいました。
ぜひ、知識人の方々のお力を…。
お願いいたします。

(それとも、送信メソッドをＪ−ｓｋｙのためにＧＥＴ
にしたんですが、そのせいでしょうか？)

utf-8ならjcode.plじゃ駄目だろ。
Jcode.pm使う。
http://openlab.ring.gr.jp/Jcode/index-j.html

すみません。Perlとは直接関係がないのですがよろしくお願いします。
画像ファイルにアクセス制限をかけるために、いちどプログラムにて
画像ファイルを読み込み、それを動的にクライアントへ返しているの
ですが、そのときに'Content-type: image/gif'だけでは、IEでだけ
表示されないのです。NN4.7ではOKでした。
１．Content-typeにおいて他に指定する必要のあるものがある
２．他のヘッダーとして指定されていないものがある。
このどちらでしょうか？それともまったく関係のないことなのでしょうか？

ひとつ思ったのですが、ファイルの拡張子はやはりgifやjpgのように、
なっていないとだめなのでしょうか？
いくらContent-typeで指定したところでブラウザが拡張子にて判断して
しまうなら仕方のないことですね。
(Servletなのでクラス名に"．"を含めることができません)

【かちゅ〜しゃHP】
http://yasai.2ch.net/test/read.cgi?bbs=win&key=992356600

【お約束】
・質問する時は過去ログ、【FAQ】を確かめてからにしてね。
・板が�d�jときの書き込みは控えてね。
・罵り合いはやめてちょ！

gethostbyaddr()でホスト名を取得しようとしているのですが
うまくいきません。（IPアドレスが表示されます）
他のCGIではgethostbyaddr()でホスト名が取得できているので
サーバがgethostbyaddr()が使えないということではないと思うんですが…
どのような原因が考えられるでしょうか？

>>511
http://corn.2ch.net/test/read.cgi?bbs=php&key=988727833&st=332&to=332&nofirst=true
マルチポストすな

きちんと動くCGIとやらと比較して自分で調べてみろ

>508
サーバーは何？
サーバーが何かヘッダーを追加してて、そのヘッダーがIEの場合だけ
理解されているとかじゃない？
あと、content-typeの改行コードを、CRLFにしてみるとか、
perlならbinmodeになっているかどうかとか。
それと、おっしゃるように拡張子が、クライアント側で関連付けられていて
それが優先されているとか。IEならありそう。

>511
↓でだめか？

my($host) = &nslook($ENV{'REMOTE_ADDR'}) || '???';

sub nslook{
my($x) = shift;

($x =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/)
? ((gethostbyaddr(pack('C4',$1,$2,$3,$4),2))[0] || $x)
: $x;
}

sub nslook{
my($x) = shift;

($x =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/)
? ((gethostbyaddr(pack('C4',$1,$2,$3,$4),2))[0] || $x)
: 0;
}

ちょっと修正

ＣＧＩ串をつくったけど、ウェブメールには通せなかったので、以前質問して、解決しなかった。自分なりにタグのリンクとか
置換する様にしてみました。あいかわらず、ロケーションで５回も飛ばされるけど、ゴールに到達できません。ＣＧＩ串なので
、当然、ブラウザには、ロケーションを吐き出せません。サーバー側で、クライアントのロケーションを調べる方法ってあるん
ですかね？リファラーも設定したけど、あいかわらずだし。今なぜか、サーバーも、落ちてるし。中止かなぁ。ちなみに、
http://www.email.com/login/snap/login.jhtmlからログイン後のhttp://www2.email.com/snap/index.jhtml?dest=welcomeです。

>>514=515
やってみましたがダメです。
何も表示されません…

簡単な質問ですが、

$a =~ /^aaa/; で$a の先頭に“aaa"があるかを確認できますが、
$st = "aaa"; $a =~ /^$st/; とやってもうまく動きません。

$a の先頭に $st が含まれているのかを確認する方法ってありま
すか？

>>518
if(index("$a","$st") == 0){  #$aの中にて$stが0バイト目に存在したら
    $ok = 1;
}

>>518
うそ？うまく動かない？そのスクリプト見せて？

実際のスクリプトでは $st の中に正規表現のメタキャラクタが入ってると思われ

>>521
多分そうだよね。
$a=~/\$Q$st$E/;
にしたらうまくいくはず。
ってゆーか自分は昔これ知らないで手動でエスケープしてたなー。ここに
来て勉強になったことのひとつ。

あれれ、めちゃくちゃだ。
$a=~/^\Q$st\E/;
だね。

「うそ？」って、正常に動作するのか？

>>523
試してみます。

\Q \E ってなに？　って調べればわかるかな。

>>523

とりあえず、ダメでした。
ちょっと別途試験プログラム作ってから、もう一度組み込みしてみます。

>>526
とにかくソースの一部を出せばすぐに解決するような気がするのだが。（保証はせんが）

はじめまして
チェックBOXに関してお聞きしたいんですけど
皆さんチェックBOXどのように使ってますか？
複数のチェックBOXにおいて渡す側でリストをつくりたい場合
私はチェックBOXの名前を配列にしてしまって受け取ったほうで
キーとリストを入れ替えるっていうなんか邪道なことやってるんですが
なんかほかにいい方法あるでしょうか？

>526
perlのバージョンは大丈夫か？

↑
え？関係あるの？

0/1/2のどれかがそれぞれ入っている$a,$b,$cのうち、
１つだけが"1"を含んでいることを確かめるにはどうしたら
良いのでしょうか。
どうしてもif文を大量に組み合わせたものしか考えられないのですが
もっと頭の良いプログラムにできないものかと思いまして。

>>531
その程度のサイズなら、3×3×3＝27個の要素のテーブルを作るかな。

@table = (0, 1, 1, 1, 0, ・・・以下略);
$hantei = $table[$a * 9 + $b * 3 + $c];

@tableのデータは手作業で作るのが早いと思う・・・。

if( ( "$a$b$c" =~ tr/1// ) == 1 )
なんていう、Perl批判の引き合いに出されそうな方法も。

>>531
いろいろ。
--------------------------------------------
if( (($a == 1) + ($b == 1) + ($c == 1)) == 1 ){
    # 処理
}

--------------------------------------------
@array = (); #作業用配列（ハッシュでも可）
$array[$_]++ for $a, $b, $c;
if( $array[1] == 1 ){
    # 処理
}

--------------------------------------------
#逝かれたコード(真似しないこと)

print "ok" if ($a ^ $b ^ $c) & !($a & $b & $c)

>($a ^ $b ^ $c) & !($a & $b & $c)

こんなのよく思いつくねえ (´ー`)ｙ−~~

どれが1を含んでいるか分からなくていいなら、これで十分じゃ？
if(($a+$b+$c)==1){
処理;
}

1がふたつ、0がひとつの時ダメですな。

ちがった。2,1,0とかのときにダメ。

なるほど、大変参考になります。早速、いろいろ試してみようと思います。
ちなみに自分が出していた結論は変数に2が入っていたらそれを2倍して、
$a+$b+$cが1or5or9になっていたら処理を行う、というものでした。
(組み合わせが
1/4/4
1/4/0
1/0/4
1/0/0
のパターンを識別する)
（かな〜り死んでますね。）

うーん・・自分のプログラミング能力に自信が無い（こんなプログラムしか書けない）
のですが、プログラミング能力を伸ばすにはやはり手を動かして
ひたすらプログラムを書いた方が良いのでしょうか？

>>539
他人の書き方を参考にするのも勉強。
例えばここで出された答えの意味を全部理解できてる？
理解できてなければどうしてそうなるかを勉強する。
理解できるようになったら「こういうやり方もあるんだ」と覚えておく。
もちろんその時に自分で書いてみるのが一番勉強になると思う。

>>539
要領が掴めていないのにたくさん書いてもよくわからんものができあがるだけ。
まずは人の書いたソースをどうやって動いているか分かるようになるまで読んでみては？

面倒くさい
自分のソースを添削してもらったほうば楽

ファイルのリネームって、事前にファイルをオープンする必要ありますか？
rename < 現在のファイル名 > , < 変更後のファイル名 > ;
なぜかうまくいかないのです

>>543
renameするのにopenの必要は無い。

まず$!を見ること。
Windowsなら$^Eもチェック。

>>543
「なぜかうまくいかない」というのは状況説明としては最低レベル。
エラーが出るならエラーメッセージを書く。

>543
権限無しだろどーせ

UNIXのおファイルについて質問です。
例えば、一つのディレクトリに10000のおファイルをぶち込むのと、
100のディレクトリに、100のおファイルをぶちこむのでは、
どちらがいいのでしょう。
UNIXのおファイルシステムは、線形検索との事ですが、
やっぱり入れすぎはよくないのでしょうか。

>>547
そのとおり。ディレクトリ検索はファイル数に比例して遅くなる。
単純計算で、1万ファイル×1ディレクトリ内のファイルアクセスは、
100ファイル×100ディレクトリの数十倍の平均時間を要する。

>548
どーもです。
安心した℃です。

>>547
って優香「お」とか「℃」ってなに？

下記はやっぱりb案の方が利口でしょうか？

@a = ("11-22-33","22-33-44","55-66-77","88-99-00","22-44-55");
#a案
foreach(0..$#a) {
(@split) = split(/\-/,$a[$_]);
if($split[0] eq '88'){ print $a[$_]."\n"; }
}
#b案
for(@a){
(@split) = split(/\-/);
if($split[0] eq '88'){ print $_."\n"; }
}

#c案
foreach (@a){
  print "$_\n" if (split '-')[0] eq '88';
}

d案

foreach( @a ){ print $_, "\n" if /^88-/ }

e案
print "$_\n" for(grep /^88\-/, @a);

そろそろ限界か？

>>551
a案とb案の比較なら当然bがベターだろ。a案は逝ってよし。

早速色々ありがとう。多分、こんな感じで色々出してくれるとおもいました。
速度的にはどれでしょうか？自分で測れってならいいですけど。

>>556
自分でベンチマーク実行すれ。
で、結果はここに公開してね。

そういえば表示ではなく代入でした。
for(@a){
(@split) = split(/\-/);
if($split[0] eq '88'){ $x = $_; }
}

こんな感じ？
foreach(@a){
if ((split '-')[0] eq '88'){ $x = $_; }
}

こんな感じ？
foreach(@a){ if (/^88-/){ $x=$_; } }

Benchmark: timing 10000000 iterations of x1, x2, x3, x4...
x1: 13 wallclock secs (13.05 usr + 0.00 sys = 13.05 CPU) @ 766342.25/s
(n=10000000)
x2: 12 wallclock secs (12.96 usr + 0.00 sys = 12.96 CPU) @ 771724.03/s
(n=10000000)
x3: 13 wallclock secs (12.97 usr + 0.00 sys = 12.97 CPU) @ 771128.93/s
(n=10000000)
x4: 25 wallclock secs (25.47 usr + 0.00 sys = 25.47 CPU) @ 392649.60/s
(n=10000000)

x1=b, x2=c, x3=d, x4=e, print は $x = $_ に変えた。
自明な結論： 細かいことを気にするな。

単純に(times)[0]で1万回繰り返した場合を測ってみました。
558の上から、AVG .90sec、AVG .60sec、AVG .25sec です。
次は、一応データをランダムにして測ってみます。

スクリプトのベンチなんてあるのか・・・

参照データ88の部分を毎回ランダムにしたら、
AVG .99sec、AVG .60sec、AVG .60secでした。

$x = $_ for(grep /^88\-/, @a); に決定。もう師脳。

良く考えたらケースバイケースだな。配列の大きさにもよるな。納得。

>>561
Perlのベンチマークなら
use Benchmark;
を使うのが定番。便利だよ。>>559の人もこれ使ったんでしょ。
まあやってる内容はtimesで測るのとあまり変わらないけどな。

foreach (@a) { print $_ if substr($_, 0, index($_, '-')) eq '88'; }

ってのも一応あるんだな
コピペじゃないので間違ってたらすまん

　サーバA　　　　　　　　　　　　サーバB
　　index.html　　　　　　　　　　　upload.cgi
　　edit.cgi　　　　　　　　　　　　　tmp/

上のようにサーバAの index.html 内のフォームから
サーバBの upload.cgi を呼び出してファイルを
tmp/ ディレクトリ以下に保存するようにしたあと、
Location: でサーバAの edit.cgi を呼び出して
index.html を書き換えると言うのはありですか？

サーバAはディスク容量は限られているが広告なし、
サーバBはディスク容量無制限だが広告あり、という
状況です。

>>567
サーバーＡからsocket 使っちゃダメなの？
…ってレンタルだから多分無理なんでしょうな。

Socket使えないサーバなんてあるの？（大爆笑）

>>569
ｱﾎﾃﾞｽｶ?

配送です。それがなにか？

アホ一丁お届けに上がりました〜

Socket使えないサーバなんてあるの？

話の腰折って悪いけど、少し疑問が。

print "hoge";

って１行ずつ出力していくのと、

print <<"EOM";
hoge
EOM

ってまとめて出力していくのはどう違うんだろう。
下の書き方のほうが楽なのに、世の中の多くのスクリプトでは
１行ずつ出力する方式を選んでるってのに疑問が。

やっぱ実行速度とか違うのかな？

>>574
実行速度はそれとわかるほど変わったりしないと思う。
個人的には下のやりかたのほうがよく使ってるよ。

>>569,>>573
例えばトクトクみたいなところでは別サーバーのデータを読み込むような
スクリプトは禁止されてるよ。

ファイルをコピーする関数ってありますか？
cp copyでさがしたのですが無いような・・

探し方が悪い。

#! perl
use File::Copy;
copy("./hogehoge.txt", "./copyhoge.txt");

トクトクはSocket使えるが・・・（微笑

いきなりすいません
フォームに書き込んだ文字をログファイルに記録すると言う
単純なものを作りたいのですが
↓のようにやってうまくいきません。どこが間違ってるのでしょうか？
#!/usr/local/bin/perl
#ファイルの読み込み
open(IN, "<./a.dat");
$domo = <IN>;
close(IN);

#ファイルへの書き込み
open(OUT, ">./a.dat");
print OUT $domo;
close(OUT);
$domo = $form{'koumoku'};
# サーバ出力
print <<END;
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>ファイルの読み込み</title></head>
<body>
<form action="a.cgi" method="POST">
項目 <input type=text name=koumoku size=30>
<input type=submit value="項目を追加">
</form>
</body>
</html>
END

>>580
一から勉強しなおせ。
間違ってるなんてもんじゃない。

>>580
明らかに流れがおかしいよ。
$domoに何が入ってるのか、よく考えながら見直してみ。

それ以前に、デコードもないな…（ﾜﾗ
>581 とかぶったし。

>>579
Socketは使えるけど規約で禁止されてるの。
＞・その他、コマンド発行を行うCGI
＞他サーバーへのアクセスおよび攻撃を目的とするため禁止
＞・proxy.cgi 系のCGI　もしくはそれを含むパッケージ
＞・whois.cgi 系のCGI　もしくはそれを含むパッケージ
＞・flood.cgi 系のCGI　もしくはそれを含むパッケージ
＞・sendmail.cgi 系のCGI　もしくはそれを含むパッケージ
＞・その他、他サーバーへのアクセスを行うCGI
＞上記CGIを設置の場合は一切の警告なしにアカウント削除を行います。


>>580
よぉく見てみよう。
データを読み込んでからデータを書き換える前に書き込みをしていないかい？
これじゃあ読み込んだデータをそのまま何の手も加えずに書き込み直す事になるよ？

>>584
なるへそさんくす（微笑）

ちょっと書き直してみましたがやっぱりだめです。
ドキュンな質問ですいません・・・
#!/usr/local/bin/perl

# サーバ出力
print <<END;
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>ファイルの読み込み</title></head>
<body>
<form action="a.cgi" method="POST">
項目 <input type=text name=item size=30>
<input type=submit value="項目を追加">
</form>
</body></html>
END

$domo = $form{'item'};

#ファイルへの書き込み
open(OUT, ">./a.dat");
print OUT $domo;
close(OUT);

「間違ってるなんてもんじゃない」
とあるのに「ちょっと書き直した」だけで動くと思うなよ(藁

>>580=>>586
>>2のリンクからお勉強サイトに行って勉強してきなさい。
基礎の基礎がなってない。

ここにいる人間だって数字を知らない人間に足し算を教えることは
できないんだよ。
数字から順に教える人間もいないと思うし。
まずは自分で勉強する。
その場は>>2に用意されている。

カウンターは作れたのに・・・・

CGI 自体のしくみがわかってないから
>>2 で Perl を学べてもどうしようもないような気がする。
「サーバ出力」「ファイルの読み込み」が謎すぎ

みんな、ネタにマジレスすんなYO!

そーいやヒアドキュメントってあんま多くまとめて出力するとエラー出たような。
勘違いかな？

本当はみんなやり方が分からないんだよｗ

こういうの見ると思うんだけど、
初心者はデコードとか自力でやんないで
素直にCGI.pm使ったほうが幸せなんじゃないかね。

$domo = $form{'item'}
↓
use CGI;
$domo = CGI::new()->param('item');

>>593
激しく同意！
中途半端なレス不要
最後まで丁寧に教えるか放置推奨

基礎がなっちゃいないやつにコード渡してﾊｲｻﾖﾅﾗってのが良いってか？
といって放置しちゃいつまでたっても厨房のままだから、勉強の方法を教えてるんじゃないか。

↑
それが中途半端なお節介って言うんだよ

懇切丁寧に指導してほしいんだったら２ちゃんねる以外で聞けば?

↑
放置すればいいだろ？
お前の理想の２ｃｈはここには無い！

>>595=>>597=>>599
以前ﾄﾞｷｭｿな質問をして煽られた事を根に持つ厨房

今度は特定厨房かよ（嘲笑）

つーかMZ-2000使いは時代遅れだろ

ロクなアドバイスができない連中に限って煽り叩きには積極的なんだよなぁ
いや、俺には支障無いけど基本的には>>595や>>599に賛成である
ここは初心者コーナー。無知な人間こそ積極的に参加するべきである

今数当てゲームを作ってます。３ケタの数字を生成し、それぞれの桁の数字に
ダブりがないかをチェックしたいのですが、いろいろやったのですがどうも
うまくいきません。

なにかよいスクリプトがありましたら、教えていただけるとうれしいです。
ちなみに、こんな感じで生成しています。

srand;
for (0..$place-1) {
$rand[$_] = int(rand(9))+1;
}

# $place = ケタ数

>それぞれの桁の数字にダブりがないかをチェックしたいのですが
999 とかはNGで、566 とか 583 とかはOKってこと?

>>605
説明不足ですいません。
999,566はNG、583はOKです。

昔、女神転生っていうゲームであったコードブレイカーっていうゲーム
なんですよー。だれも知らないだろうけど。

my $num;
my $nums;

srand;

for (0 .. $place - 1) {
while (1) {
$num = int(rand(9)) + 1
if ($nums !~ /$num/) {
$nums .= "\0$num";
last;
}
}
}

my @rand = split(/\0/,substr($nums,1));

なんか汚い・・

>>606

@map{@rand} = ();

if(keys %map == @rand){
    # ok
}

>608
解説きぼん

>>604
ヒットアンドブローで探せばいろいろ見つかるかも

>>609
#--------------------------------------------------------
# ハッシュ%mapをスライスで一気に初期化
#--------------------------------------------------------
# @rand = (7,5,9,1,0) の時、(重複無し)
# $map{'7'} = $map{'5'} = $map{'9'} = $map{'1'} = $map{'0'} = undef
# %map のキー数 = 5, @rand の要素数 = 5
#--------------------------------------------------------
# @rand = (8,8,4,3,2) の時、(重複在り)
# $map{'8'} = $map{'4'} = $map{'3'} = $map{'2'} = undef
# %map のキー数 = 4, @rand の要素数 = 5
#--------------------------------------------------------
@map{ @rand } = ();

# ハッシュ%map のキー数と元の配列の要素数が等しければ、重複は無い。
if(keys %map == @rand){
    # ok
}

うーん。綺麗に書くのは難しい…。
Perlらしいからいいか (´ー`)y-┛~~

1 while( (join("", sort(split //, $n = int( rand(999) )))) =~ /(\d)\1/ );
print $n;

私も>>608のスクリプトの解説きぼんぬ。

一歩遅れた(；´Д`)
なるほど>>611

>>607
>>608
ありがとうございます。おかげでとりあえず完成させることができました。
まだPerlを触りだしたばかりなので、_gunzipさんの方は理解できませんでしたが、
これから勉強していこうと思います。

ちなみに、こんな感じになりました。プログラム初心者なので笑わないように（ｗ
ttp://members.tripod.co.jp/up_for_2ch/test2.txt

大文字でHOGEと入力すると"Hello, HOGE"と返り、小文字、もしくは別の単語を
入力すると"Who are you?"、数字を入力すると"Type the letters"となるように
したいのですが、どうしてもうまく行きません。

elsif ( $input != /\w/)だとうまく行きます。しかし
elsif ( $input == /\W/)やelsif ( $input == /\d/)
だと全く意図しない結果が出てしまいます。

具体的には
elsif ( $input == /\W/)やelsif ( $input == /\d/)
数字を入力すると"Who are you?"
HOGE以外の文字だと"Type the letters"

なぜこうなってしまうのか教えてください。また、elsif ( $input == //)の
形で、//のところに/dを入れて意図した結果を得るのはどうすれば良いのでし
ょうか?

#!/usr/bin/perl -w

$test = "HOGE";

print "What is your name?: ";
chomp ( $input = <STDIN> );

if ( "$input" eq "$test" ) {

print "Hello,$input\n";

} elsif ( $input == /\d/ ) {

print "type the letter\n";


} else {

print "Who are you?\n";

}


__END__

PERLで、ファイルを作って、そこに書きこむことってできますか？
echoでリダイレクトするみたいに、、
やり方教えてください。

>>615
正規表現の表記方法って知ってる？
elsif ( $input !~ /\w/)
elsif ( $input =~ /\W/)
elsif ( $input =~ /\d/)

>>616
system('echo >foo.dat Hello');

or

open OUT, '>foo.dat';
print OUT 'Hello';
close OUT;

>>616
>>618さんの後者のやり方の場合
ディレクトリのパーミッションを変え忘れないようにね。

ありがとうございます。
これからやってみます。

>>617
やっと意味が分かりました。
すんません。

なぜかできないです。
ファイルを固定の名前にしても作成されませんし、書き込みもされません。
最終的には、配列の名前をくみ合わせた名前でファイルを作成して
そこに別の配列の内容を書き込みたいんですが、可能なのでしょうか？

パーミッション

具体的には、
$FORM{'namae'}_$zikan.txtみたいなファイルを作り、そこに
$NyuryokuNaiyoを書きこむということをしたいと考えています。
どうやったらいいんでしょうか？

サーバはWINDOWSなんですが、、、汁、、どうしたら、、

エラーメッセージくらい書けよ厨房

つーか、その程度の知識でCGIスクリプトを書こうとするなよ。危険すぎる。

>>626　>>627
エラーがでないんです。CGIの一部で、CSVにFORMの内容を時系列で(当たり前ですか)書き出すようにつくって、
そのバックアップ用に各々FORMの内容を保存しようと考えたんです。
で、理由はわかりませんが、ブラウザで見る限りエラーは表示されません。

また、WINDOWSでパーミッションを変更する方法を知りません。今、探してるんですが。
FTPでは777になっているんですが、WINDOWSでは無理ということだったのでしょうか、、

WindowsというとWebサーバはIIS？
IISがわかる奴ここは少ないからなあ。おれも知らない。
とりあえずエラー補足用に
use CGI::Carp qw(fatalsToBrowser);
をスクリプトの最初に入れて、
open(OUT, '>foo.dat') or die "$!";
とでもしてエラーメッセージ出してみたら。

>>629
ローカルでデーモンとか使ってる可能性も。

>>616=>>629
Win鯖って事はパスミスじゃないか？
相対パスじゃなくて絶対パスで試してみたら?
あと、""の中で使うなら、\を\\にするのを忘れないようにな。

open OUT, ">c:\\inetpub/wwwroot/user/cgi-bin/$FORM{'namae'}_$zikan.txt";
print OUT "$NyuryokuNaiyo";
close OUT;

もっとも効率よく（早くじゃなくて、メモリー、CPUをできるだけつかわずに）
ファイルを読み込むにはどうしたらいいでしょうか。

open(READ,'/my/file');
push(@line,$_) while (<READ>);
close(READ);

としてますが・・・

>>632
open(READ,'/my/file');
@line = <READ>;
close(READ);

>>632
ファイル内容の書き換えがないなら
open(READ,'/my/file');
while (<READ>){
処理
}
close(READ);
の方がメモリは食わないと思う

「、、、汁、、」が気になってしょうがない

確実なロックがしたいんですが、どういったものがあるんでしょうか。
（flock以外しりません
特徴なども教えてもらえるとありがたいです。

ごめんなさい確実なファイルロックシステムは存在しません

そうなのですか・・・
では、flockが使えない場合、何を使用すればいいのでしょうか？
見極め方も教えてもらえると非常にありがたいです。

time()を使って、いつからだったかからの秒数が取れますよね。
逆に例えば2001年,6月,29日,18時,30分,15秒みたいなモノから
time()を使った様な秒数って取れるのですか？
7月1日以降はコレを表示って感じのものをやりたいんです。

http://tako.2ch.net/test/read.cgi?bbs=perl&key=984388283
380 名前：JAPU 投稿日：2001/04/30(月) 21:19
NAME
Time::Local - efficiently compute time from local and GMT time

SYNOPSIS
$time = timelocal($sec,$min,$hours,$mday,$mon,$year);
$time = timegm($sec,$min,$hours,$mday,$mon,$year);

# 使うときは、use Time::Local; するように。


JAPUさんいつもありがとうございます。

はじめまして。
変数名を変数で制御する方法を、どなたかお教え下さいますでしょうか。
お願いします。

>>641
${$hensu}

SSI方式のカウンタを作ってます。
例えば２００まで来たら数値を０に戻すというようなことがしたいのですが。

$countfile = "./count.log";

というファイルにカウンタ値を格納していっているのですが
count.logの中身を０に戻すやり方を教えてください。

use IO::File;
IO::File->new('>./count.log')->print(0);

ありがとうございます。
ただ自分はほんとに初心者向けの本しか持ってなく
use IO::File;
については解説がなくよくわかりませんでした。すいません。
200以上って場合は200という数値は
どこに記入すればよいのでしょうか。

use IO::File;
IO::File->new('>./count.log')->print(200);

上級者になると簡単な事でもモジュールを使っているような気がするのですが、
大きな利点はなんでしょうか？
モジュールを使うことによっての、悪い点はないのでしょうか？
ご教授ください。
open(FILE,">$countfile"}
flock(FILEOUT,2);
print(FILE '0');
close(FILE);

>>647
簡単な事だからこそ標準モジュールで
てっとりばやく済まそうってことでしょ。
初心者の人もIOモジュールの使い方ぐらいは
早めに覚えとくといいっすよ。

>>647
モジュールは無関係だが、目をふさぎたくなるような酷いコードだな。
openの末尾はタイポとしても、酷さは変わらないぞ。

すいません。やっぱりできませんでした。
明日本屋でも行って調べてみます。

open(FILE,"+>$countfile");
ここは読み書き両方にしたほうがいいよ。flockの意味がない。

>648
マジレスありがとう。モジュールを使うと遅くなるとかは関係有りませんか？

>649 651
つっこみありがとう。わざとでした。スマン。

モジュールを使うと遅くなるってのは確かにある。
オブジェクト指向なモジュールは特にそう。
だが、簡単なものなら速度より簡潔さを重視するし、
そうでない場合も自分で書くより正確なことが多いので多用するね。

ただし、IO::*モジュールは簡単な一発もの以外では使わない。俺はね。

Intel, APi522e.exeがインストールできないんですが
どこがいけないんでしょうか？

>>654
「インストールできないんですが」で原因わかるわけねーだろ！
だいたいActivePerl-522て何だっけ？ 古すぎてわからんよ。。。
とりあえず最新版入れろ。

最新版もはいらん。
システムレジストリがどうのってでてるんだが。

>どうのって
それを書くのが一番。

アンインストレーションストリングへ書き込むことができない。
あなたはシステムレジストリでＨキーローカルマシーンへ書き込む
パーミッションをもっていない。
とかいてあるらしい。

>>658
Win2000やWinNTで、Administrator以外の一般ユーザでログインした状態で
インストールしたときと出てきそうなエラーメッセージだな。

Administratorでログインしてるんだがな・・・。
どうすりゃいいのよ？

HTTP_REFERER等を条件と比較して
別々のページに振り分けるものを作ろうとしているのですが・・・
困っています。
条件に一致するならPRINTで�@のHTML部分を出力して
一致しないなら�AのHTML部分を出力するように記述していますが
一致しない場合のHTMLが４０４になってしまいます。
何がいけないのでしょうか？
Perl厨房で申し訳ありません・・・

>>661
何故かって？
それはファイルが存在しないから。

#機種依存文字を使うのやめれ。

>>662
レスどうも。
エラーコードの意味はわかるのですが
なぜ４０４になってしまうのかが解決できません。
現状ではindex.cgiというスクリプト中に
ページ１とページ２のHTML記述をして出力させるようにしているのですが
両ページの記述方法は同じなのになぜ
後者の方の場合だけ出力されないのでしょうか？
よろしくお願いします

↑スクリプトを公開すべし。

ありがとうございます。
つい先日からperlをはじめたので恐縮なのですが
スクリプトを公開しますのでどうかよろしくお願いします。
http://www.geocities.co.jp/Technopolis/6437/index.txt
スクリプトに関するお叱りはありがたいですが
スクリプト以外のことでの誹謗中傷はご遠慮ください。

>>665
ざっと見た感じだけど、
# if ($ENV{'HTTP_REFERER'} eq $_){
こういうところで、改行コードを除外してないから
flagが1にならないんじゃないか？
それでflagが0でも1でもないから何も表示されないとか。

末尾を
#HTML出力部分
if($flag == 0){
print "$accept";
}elsif(flag == 1){
print "$deny";
}else{
print "$error";
}

とかにしてみるのがよさげ。

てか、perl -c やってる？
$flag の $が抜けてるよ。

ゴメソ。
チェック抜けるんだね…鬱…

>>667
そんなミスもあったのか。
ってコピペした場所にもあるじゃん！

チェック漏れスマソ。

教えてください
ｉモードの絵文字に悩まされてます、絵文字を除去するにはどうすれば
いいのでしょうか？

余り今時間無いんで眺めて見ただけだけど。
サーバに上げて見たけど動くんですよね。こっからどうしたいのかな？
強制的にリファ送ったけど認識するし。

>スクリプト以外のことでの誹謗中傷
若し機種依存文字の件だったら662さんは間違った事は言ってないかと。
Script書く上で文字コード・機種依存文字の問題はかなり難しい件であり、
各所でそのネタは重視されています。MLにも入って見れば、ウザイ
ぐらいそれ系のネタは飛び交ってます。
いっぱしのScript書きを目指すならその辺の認識は重要かと私は思うのですが？
その類のネタは知りたかったらすぐ見つかるので検索して勉強する事を
お勧めしますよ。

実は今書きたかったのはこっち(笑)。
私もどっちかというと趣味Script書きなんでへぼなんですわ。

>666
なるほど、ぱっと見で気づかんあほの私もなんだか。
PHPに嵌り切ってるからPerl忘れてるって言い訳しても通じなさそう。
暑い中逝って来ます…。

なんとか前進できました。
あとここからは自分で勉強して解決しようと思います。
ご意見のほう参考になりました。
レスくれた方々どうもありがとうございました。

>>670
ttp://www.specters.net/cgipon/labo/it_emoji.html

聞く前に検索くらいしよう。
http://www.google.com/search?q=%22i-mode%22+%8AG%95%B6%8E%9A&btnG=Google+%8C%9F%8D%F5&hl=ja&lr=
Googleで１発だ。
これじゃ初心者丸出しだろ？

>>674
お恥ずかしい限りです、ありがとうございました。

>>654-660
おれもMSI形式のActivePerlがインストールできなかったことがある。
ASPackage形式のやつだとインストールできた。
いやあんときはWin2kじゃなくてWin98使ってたんだっけかな？

ローカルマシン（ダイヤルアップ接続）から
ファックス送信するモジュールとかあります？

２０００なんすけど。

はじめまして。
変数名を変数で制御する方法をどなたかお教え下さいますでしょうか。

>>678
うちも Win2Kで、APi522e.exeで入れたけど
特に詰まった覚えはないよ。

ちなみにその他の関係しそうな環境。
Apache1.3.14 + PHP4.0.5
何か他のがわるさしてるとか？

>>679
別ｽﾚで同じ事言ってなかったか？
レスが付いていた気がするが。

>>641-642
違った、このｽﾚだ。（ﾜﾗ
どっちにしろ、何度も聞くなよ。

681さんへ。
詳しいことはここで聞いてくださいと言われましたので。

もう投稿していましたね。
答えてくださった方もいましたね。
申し訳ありません。

>>676
自分もMSI形式がインストール出来ない事がありました。
２〜３日後に再ダウンロードしたら無事にインストール出来ましたけど。
大きなファイルの時、こういう事って結構ある様な気が・・・。

６８０
とりあえずオーエス再インストールするよ。

Jade.pmの使い方、日本語で解説してあるところありませんか？

jcode.plと違う、Jade.pmの書き方を使いたいのですが。

>>687
IDかこいい！

>>687
Jcode.pmの使い方、日本語で解説してあるところありませんか？

jcode.plと違う、Jcode.pmの書き方を使いたいのですが。

スペル間違ってました。

http://www.google.com/search?num=100&hl=ja&safe=off&q=Jcode.pm&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

基本形：
my $jstr = Jcode->new("string");
print $jstr->xxx; # xxx = sjis, euc, jis, utf8
print Jcode->new("string")->xxx;
print jcode("string")->xxx;

だが俺は専らconvertしか使わない。
print Jcode::convert("string", "sjis");

>>691
ありがとうございます。

http://www.netfort.gr.jp/%7Ekiyoka/jcode_intro/index.html
ユーザーサイト
Jcodeを使おう（実用本位のJcode紹介）

こことか見てたんですがよくわからなくて

実際のところ、conver()tだけ使えれば十分だと思うがな。

>>684
具体的にどんなことが知りたいの？
ちょっと抽象的すぎてよく分からない。

リアル・プロデューサーは変換と転送を同時に行えることが
できるのでしょうか？
手元にパソコンが３台もあるわけがなく、確認しようがないんですので、
スマソ。

すいません。
↓ココのメーラーなんですけど、
http://ipveov.virtualave.net/hope/index.html
どうやって使うんですか？
管理人が放置してるみたいなんで
だれか教えてくださいm(_ _)m

----------------サポートは作者に頼みましょう----------------
--------使い方が判らないものは使わないようにしましょう--------

*.pm
ファイルの使い方が和歌欄所〜！

>>698
Perl Module

厨房質問ですみません。
ディレクトリ内のファイル一覧を表示するのに

#!usr/local/bin/perl
print "Content-type: text/html\n\n";
print <<"HEAD";
<html><head><title>ichiran</title>
</head><body>
HEAD
opendir(DIR,"./");
@list=readdir(DIR);
close(DIR);
@list=sort(@list);
foreach(@list){
print "$_<br>\n";
}
print "</body></html>";
exit;

という風に書いてローカルで動かしたところ、ちゃんと動いたので
サーバにアップロードして動かしてみたところエラーになって
しまいます。原因はなんなんでしょう？くだらない質問かもしれ
ませんがご教授願います。

ローカル：Win、ANHTTPd、Active Perl
アップ先：hypermart.net

'

>>700
#!/usr/local/bin/perl

>>702

あちゃ〜凡ミス・・。
鬱だ。逝ってきまス

あ、それとありがと。

Content-type: image/gif　のようにpngファイルを出力する事は可能ですか？
Content-type: image/png　？

>>704
可能だろ。
っつか、一度試行すればわかるだろうが。

http://www.isi.edu/in-notes/iana/assignments/media-types/media-types

たびたび申し訳ないっす
ｉモードの絵文字をＨＴＭＬで表示するのはわかったんだけどメールで
表示する場合ってどうすればいいんでしょう？

送信？
受信？
メーラーは？

WAKWAKざんまいでLWPをインストールしてる人いますか？
ディレクトリ構造を教えてください

perl 始めて三日目、現在言葉狩りの勉強をやってるんですが、
ちょっと解らないところがあるのです。

$kinsi='うひ';

@kinsiword = (
'死',
'殺',
);

sub kinsi {
foreach (@kinsiword) {
$com =~ /$_/gi;
$com =~ s/$_/$kinsi/gi;
}
}

コレで送られてきたメッセージ内 ($com) の文字は上手く置換できるのですが、

@kinsiword = (
'',
);

とすると、表示がおかしくなります。
例えば、$com が　あ　なら、 うひｂ､ひ�うひ　という風に。
空の文字が配列内にあっても何も起こらないようにするにはどうしたら良いのでしょうか。

perl 始めて三日目、現在言葉狩りの勉強をやってるんですが、
ちょっと解らないところがあるのです。

$kinsi='うひ';

@kinsiword = (
'死',
'殺',
);

sub kinsi {
foreach (@kinsiword) {
$com =~ /$_/gi;
$com =~ s/$_/$kinsi/gi;
}
}

コレで送られてきたメッセージ内 ($com) の文字は上手く置換できるのですが、

@kinsiword = (
'',
);

とすると、表示がおかしくなります。
例えば、$com が　あ　なら、 うひｂ､ひ�うひ　という風に。
空の文字が配列内にあっても何も起こらないようにするにはどうしたら良いのでしょうか。

@kinsiword = ();にする。又は
if ($kinsiword[0]) { &kinsi; }
てな感じに呼ぶ。

えっと、実は

@kinsiword = (
　'死',
　'殺',
　'',
　'',
);

のような形にも対応させたいのです。
見習い君氏の方法では、やはり同じ結果になるのですよ。

すみません、いきなり自己解決しました。

sub kinsi {
　if ($kinsiword[0]) {
　　foreach (@kinsiword) {
　　　if ($_){
　　　　　$com =~ /$_/gi;
　　　　　$com =~ s/$_/$kinsi/gi;
　　　}
　　}
　}
}

お騒がせして申し訳ない。