【Perl】初心者コーナーPart9

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

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

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

参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part5】
http://pc.2ch.net/test/read.cgi/php/1009331505/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/

過去ログ、その他の役立ち情報は>>2-10を見よう。

[過去ログ]
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　参照不能
Part5　http://pc.2ch.net/test/read.cgi/php/988728069/
Part6　http://pc.2ch.net/test/read.cgi/php/996075607/
Part7　http://pc.2ch.net/test/read.cgi/php/1000267444/
Part8　http://pc.2ch.net/test/read.cgi/php/1003900311/

[ひまぢん氏のミラー]
Part1　http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2　http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3　http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4　http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5　http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html

[総合]
　・Perl Com: http://www.perl.com/pub/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/
[お薦め]
　・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
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/
[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/

[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
[Security]
　・安全なプログラミングのためのガイドライン：http://www.FreeBSD.org/ja/security/#spg
　・Perl security：http://www.perldoc.com/perl5.6/pod/perlsec.html
　・CGI and Security http://www.japu.org/cgi/security/
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・The Unofficial Web Hack FAQ：http://www.nmrc.org/faqs/www/
　・How to Write Secure Code：http://www.shmoo.com/securecode/
　・Safe CGI Programming ：http://www.improving.org/paulp/cgi-security/safe-cgi.txt
[OS]
　・Linux日本語マニュアル：http://www.linux.or.jp/JM/
　・FreeBSD日本語マニュアル：http://www.jp.freebsd.org/man-jp/

ごめん。ついでにこれも。

Perl6 & Parrot VM についての情報
http://dev.perl.org/perl6/

--------------------
Parrot Hello world!
--------------------
# hello.pasm
print "Parrot Hello world!\n"
end

PERLでSharedMemory使ったりセマフォ切りたい
時のお勧めサイトって有る？

>>5
TryAndCatch萌え　ヽ(´ー｀)ノ

FILE *handle1 = NULL, *handle2 = NULL, *handle3 = NULL;
try {
handle1 = fopen ( ... );
handle2 = fopen ( ... );
handle3 = fopen ( ... );
...
}
catch ( ... ) {
if ( handle1 ) close ( handle1 );
if ( handle2 ) close ( handle2 );
if ( handle3 ) close ( handle3 );
throw;
}

try-catchはいいやね。
文字列検索よりは早そうだし。

age

>1
スレ立てお疲れ様です。
さっそく質問させていただきます。

Win98にActivePerlをインストールしましたが、
DOSプロンプトから起動できません。
「コマンドまたはファイル名が違います」と言われてしまいます。

sample.plをダブルクリックすると、一瞬だけですが起動するので
Perl自体のインストールは出来ていると思いますが……。

何がおかしいのか、考えられることを教えてください。

>>10
DOSプロンプトから perl -v でVersion情報が出力されますか？
問題無く出力されるようなら、
　perl C:\somewhere\sample.pl
で実行できるはずですが。(C:\somewhere\は適当に読み替えて下さい)

スクリプトの多分岐にわたる
セッションのテストってどんな風にしてます?
モンキーレンチとか使えるのかなぁ･････

>>10
PATHが通ってないだけじゃないの？

ちょっと読んだ
能動的な型付けとか、最適化に関わる所が結構突っ込まれてるのかな
Class eq Package じゃ無くなるってのも中々よさげ
今よりずっとOOusefulになると良いな

でもオペレータ変更しすぎなんだよ先生よぅ・・・・
%hash{foo} ← これが参照外したスカラーなんて・・・　（死

あ、>>5 @ _gunzipさんね
>>10
同じくPATHに一票
SETENVだかPATHだかでSET出来たかな(適当)
キーワード書くから調べて栗　ｗ
「PATH」「環境変数」「DOS」「追加」「SET」

>14
間違えてんぞ〜
$hash->{foo} が $hash{foo} or $hash.{foo} だろ、んで
$hash{foo} が %hash{foo} だよん
つーか嫌すぎこれ

%tmp = ("aa0"=>"00","aa1"=>"11","aa2"=>"22");
foreach(0..2){$tmp[$_] = $tmp{aa$_};}
みたいな事をやりたいのですが、
foreach(0..2){$tmp = "aa$_"; $tmp[$_] = $tmp{$tmp};}
しかわかりません。
もっとスマートな方法があれば教えて下さい m(_ _)m

WEB上でアイコンがUP出来る掲示板とかありますか？

>17
ん？
foreach(0..2){$tmp[$_] = $tmp{aa$_};}
　　↓
foreach(0..2){$tmp[$_] = $tmp{aa.$_};}

>19
あっ、そうですね。恥。。
即レスどうもありがとうございます。

>11、>13、>15
どうもお答えありがとうございます。
カレント\binでは、perl -vもちゃんと動いていましたが、
他の場所からでは起動できませんでした。
だからアドバイスどおり、PATHが通っているかをまず疑いました。

autoexec.batには、SETで始まる\binまでの行がちゃんとありました。
しかし実際にはうまくいっていないため、
試みにこの行を上の方にもってきて、再起動をすると、なぜかうまくいきました。

というわけで(一応無事に)解決したようです。
どうも助かりました。ありがとうございました。

open DAT,">>$file";
上の様に追記でファイルをオープンした場合
ファイル内容が空になる瞬間というのはあるのですか？

>>22
ある。

* 他のプロセスが空にする。
* 自分で空にする。

その他では、新規ファイル作成時も

今2個のプロセスで追記しまくった所
平気だったです。

もう一個質問よろしいですか？
$tmp = "o(";
@data=grep(!/$tmp/,@data);
↑これを実行するとエラーとなるんですが、
何故でしょうか？

$tmp= "o(";
　　↓
$tmp = "o\\(";

"("はRegexpのメタ文字なんだよ。

$tmpの部分は入力フォームから入力してもらい、
さらにgrepした後入力を表示させたいのですが、
こういう場合$tmpに格納されている文字はただの文字として
検索するという方法は無いのでしょうか？
またo(以外にも「ソ」もエラーになるのは文字コードが
メタ文字とかぶっているからですか？

とりあえず
@data=grep{($tmp1,$tmp2)=split /\t/,$_;$tmp1 ne $tmp}@data;
で緊急避難しました。
29の方法あったら教えて下さい。

>22
無い。但し存在しないファイルならサイズはO
>30
キーワード出たら検索な
http://www.google.com/search?hl=ja&q=PERL+%83%81%83%5E%95%B6%8E%9A+%83G%83%89%81%5B&lr=lang_ja

>>30=22
CGIかなにかだと思うけど、内部の処理でS-JISを使用するのはお勧めしない。
入出力と内部の処理は分けて、内部ではEUCなんかを使うのが吉。

あと参考までに、quotemeta() や \Q も調べておくとよいでしょう。
　perldoc -f quotemeta
　perldoc perlre

>>31
どうもすいませんです;;
と検索どうもです。
>>32
なるほどです。
quotemeta()　調べてみます。

ご親切にどうもありがとうございました。

超初心者なんですが、、、。
逆スラッシュが打てません。
\になっちゃうんです。
どうしたらよいのでしょうか？

http://www.kt.rim.or.jp/~ksk/yen2bs/indexj.html
これをインストールしよう！

>>34-35
34のOSのバージョンわかんないじゃん。。
ちゃんとそれくらい言おうよ>>34

>>34
おれにはちゃんと逆スラッシュに見えてるが？

>36
すみません。
Mac OS 9.04
MacJPerl 5.2.Or4 J1
です。
よろしく！

みなさん、おめでとうございます！
perlfuncだとdbm〜〜の変わりにtie,untieを使えと書かれてますが
レンタルサーバでモジュールの依存関係(標準も入ってないdeath)何かが面倒な時
はdbm〜を使っても良いですか?
1000件程度なんでそれ程速度も気になりません

>>34
\のままで良いよ　(^-^
全角はダメだよ

@char=('0'..'9','a'..'z','A'..'Z');

という62文字を使って 1 （あるいは 0）から ZZZZZZZZ までの
62進数を順番に生成したいのですが、上手にやる方法はありますか?

>40
ハードコーディングで良いなら
push (@value,0) for (1..8);
これを初期値(つまり$value[0]が1桁目、$value[1]が2桁目)にして
値を1増やす関数と、@valueを分解しながら$char[$value[$_]]とかして
表示する関数を書いてみ。
それが出来たら桁とか@charを可変に出来る様にしてみよう。

Benchmarkモジュールについて教えて下さい。

Benchmark: timing 10000 iterations of for,foreach...
for: 27 secs (27.18usr 0.00 sys = 27.18 cpu)
foeach: 11 secs (10.54usr 0.00 sys = 10.54 cpu)

この出力結果はどういう意味なんでしょうか。forとforeachというアイテム?を比べて、
forが27秒かかってforeachは11秒、これはforeachの方がお得だね、というのは判るんですが、
usrとsysの意味が判らないです。この二つからcpuの使用率を出してるようなんですけど…

usrが動かしてるべんちに掛かった時間じゃﾈｰﾉ
んでsysが他のプロセスが使った時間じゃﾈｰﾉ
んでcpuがトータルのCPU時間って事じゃﾈｰﾉ
適当に想像だけどね
つーかその結果の方が気になるわっ　（ｗ

なるほど、何やってもsysが0のままなのが不思議でした。
ありがとうございました。

>>39
dbmかndbm入っているんだったら、dbmopen使ったって別にいいんじゃないかと思うけど。
将来のバージョンでの対応が保証がされないだけで(笑)
動けばいいやっていうんだったら、全然かまわないかと。

>>1 参照不能と言いつつ参照できるぞ

皆が2ch用ブラウザを利用しているわけではない。

3Gくらいのテキストファイル処理をしたくすったもんだやっています。
GDBMを使ってDB化（？）しているのですが、
tell & seek のサイズ限界にひっかかっているようです。
この場合は、ファイルを分割するしかないのでしょうか？
初心者です。よろしくお願いします。

Tie::Handle::BigFileを自分で実装してみるとか。
なかなか面白そうだ。

ぐぅ〜　そんな力も時間もないでちゅ・・・・・

わしのIDｶｺｲｲな。

>>49
教えてちゃんですみません。ロジックのヒントをお願いします。

既出かもしれませんが。教えてください。
あるCGIで生成した結果を表示後それをHTMLファイルとして保存するにはどうしたらよろしいでしょうか？

ファイル(F)→名前を付けて保存(A)...

追記
HTMLとして保存するスクリプト、または関数をご存知の方お教えください

>>54たぶんそんなつっこみがくるとおもってました。(藁
追記です
HTMLとして保存できるスクリプトか関数をお教えください

>>53
初心者だけど。

HTMLで結果吐いて、
同じ内容をtimeなりでファイル名決めて書き出せばいいのでは？

あとは自分で調べる努力を。

>>57
マジ、わからないんですが、おっしゃられているのは「ファイル(F)→名前を付けて保存(A)...」
で保存してってことですか？

>53
ﾀﾞｲｼﾞｮｳﾌﾞ？

この辺とか。
http://www.google.com/search?num=100&hl=ja&q=perl+%83t%83@%83C%83%8B%83n%83%93%83h%83%8B+print&lr=lang_ja

あとは自分で調べる努力を。

>>61
ありがとうございます

板にgzipをとり入れようと思うんだけど
どのように記述すればいいんでせう？
よろしくお願いします。

それPerlの質問か？

>>48
分割したファイルが一つのファイルのように見えるようにインターフェイスを整えるのだ。
だから本当に大きなファイルが扱えるわけではない。
それでいいならちょいと書いてみるが？

KENTのPetitBoardに新記事のマークを付けるにはどうしたらようのでしょうか？

>>65
ありがとうございます。お願いいたします。　；；

ファイルサイズはこの先大きくなる一方なのですが、分割していくしかないでしょうか？
もしくは、データベースに突っ込むか・・・・・・

「Cで書け！」と言われてしまいました。
齢20代後半で今からCは身に付くでしょうか？　ソース見てもｸﾗｸﾗします　；；

そんなに期待されると…(汗

あくまでも個人的に面白いと思うから作るだけなんで。
だからといって適当な物を書くわけじゃないですが。

ついでに言うと*DBM_Fileとの連携は出来ないかと。

166 名前：名無しさん＠お腹いっぱい。 投稿日：02/01/04 16:48 ID:ZcIQHoBD
KENTのPetitBoardに新記事のマークを付けるにはどうしたらようのでしょうか？？？


167 名前：名無しさん＠お腹いっぱい。 投稿日：02/01/04 16:51 ID:???
↑何でマルチすんだよ糞ガキ消えろ


168 名前：名無しさん＠お腹いっぱい。 投稿日：02/01/04 16:56 ID:ZcIQHoBD
うるせぇ俺は20歳だ。そんだけ気になっとんだ。


169 名前：名無しさん＠お腹いっぱい。 投稿日：02/01/04 16:57 ID:ZcIQHoBD
そんな事より即効で文句言うてめぇの方がガキだ。

>>67
バイナリで書くよりはCの方が簡単です。

まぁマジレスすると身につかないことは無い。
構文自体はPerlに似てるし。ただ、Perlに比べて
もっと「プログラムらしい規約」が多々出てくるので
Perl以外にプログラムをやったことが無かったら
馴染めないかもね。

おれは逆にZ80からCやFortran、RINGOやAppleScript等を
経てからPerlに来て、なかなかPerlに馴染めなかったけど。

>>68
すみません。ヒント程度の気楽なもので十分です。
ありがとうございます。
やりたいのはレコードの検索なので、DBMと連携なりは、考えます。

>>70
ありがとうございます。道のりの割に、使う機会が少なそうで・・・・
でも追い込まれないと勉強しないし・・・・・
自分は、N88BASIC -> 永い永い月日 -> Perl, PHP, VBScript群
しょぼ。

とりあえず

・配列にファイルハンドル(以下FH)を入れておく

・そのFHを通じて何か書き込みをする度にサイズをチェック(stat()してもいいし長さを記録しておいても良い)
・サイズが一定値を超えたら新しいファイルを作成して配列に新しいFHを追加
・seek()やらtell()やらは合計ファイルサイズを考慮して計算
・これらのことを通常のIOインターフェイスを通じて行えるようにタイクラスに閉じ込める。

って感じで(超適当な説明だが)

DBMと連携するにはまた別のことを考えなきゃいけないね。
複数のDBMハッシュを保持したタイハッシュクラスを考えればいけるんじゃないだろうか。

PostgreSQL使ってみるとか。

後は検索ルーチン次第だけど、検索項目ごとにインデックス用のDBM作って、
メインデータは、データのカテゴリごとに分割する。
データ自体に一意のID振っておけば、それでデータの抽出が出来る。
そもそも、そんな巨大なデータをwhileとかで回しても、効率よくないだろうし。

>72
うをー！　ありがとうです！　ｴﾝｼﾞﾝかかってきた！　やるでー！！

>73　>74
ありがとー
DBに入れるのも考えましたが、ディスク資源も既に虫の息なので、ﾎﾝﾄ ﾂﾗｲです。

>>75
シーラカンス本（約\3,500）説明ﾜｶﾘﾔｽｲﾖ.
プログラミング一から勉強するよりよっぽど楽勝ですし。

アクセスカウンターやその他のデータを
ファイルに記録する時などでファイルを
open (FILE,"+<$file");
で開いて変更するのと

open (FILE,"$file");
書き換え作業
open (FILE,">$file");

という方法だと後者だと良くないのでしょうか？

良くなくない

>>77
どういう考えでそういう結論に至ったのか問い詰めたい

即レスどうもです。
いろいろスクリプト見てると前者の方が多いと感じまして
後者の方はいかんのかな？と思ったです。
特に問題は無いと考えて良いみたいですね。
他に美しくない、負荷がかかる、なんかの問題も
無いのでしたら、何故前者の方がよく使われてるのでしょうか？

前者の方がコードが簡単だからではないだろうか。
処理中に落ちてデータが壊れる確率も大差ない気がする。

消えにくいようにするならこれかな？

open IN, "<$file" or die;
# ...
close IN;
open OUT ">$file.tmp" or die;
# ...
close OUT;
rename "$file.tmp" => "$file" or die;

>処理中に落ちてデータが壊れる確率も大差ない気がする。

後者の方が壊れる確率高いよ。

1度のopenで、ファイルに書き込むデータのサイズが
減る可能性がある場合はtruncateは必須なんでしょうか？

>>83
まず自分で試して見れ。

どう言う意味が分からないよぅ。
ファイルサイズを揃えておきたい時なんかはそのまま書き出して
閉じたりするよ
必須と聞かれればNOになる

>>84-85
ごめんです
試したら思いっきり変になりました。
これってOSによって実装されてない場合あるんですよね？
あんま使いたくなかったなぁ。
レスどうもでした。

すいません。もう１つ質問よろしいでしょか？
皆さんはチャットやらカウンターなんか作らない
かもしれないですが、
カウンターの場合は読み書き両用で1度だけopenするのに対して
チャットなんかだと読み込みのみでopenして
書きこみはまた後で書き込みのみでopenしてるのですが
この違いは何なのでしょうか？

作ったヤツに聞け。

カウンターだからチャットだからと言う事は無い
ただCGI(だよな??)は排他とかトランザクション取らなきゃならないので
色んな手法でデータの同一性を保証出来るようなコードを書く必要は有る
チャット位ならどうって事ないような気がするが

指定した個数の固有な乱数を効率良く得る方法ってありますか？
例えば1から100の範囲で４つ乱数を生成して、それを一つの配列に入れたいんですが。

$max = 乱数の最大値
$num = 個数
@kekka = 得られた乱数を[0..($num-1)]で格納する配列

という風にしたいんですが、どうしてもうまくいきません。
単純に指定個数の乱数を作って配列に入れるならできるんですが、
重複を許さないためにifやwhileで今までの結果を参照させようと
するとうまいコードが思い浮かびません。
もしかしたら簡単な解決方法があるのかと思いここに書き込ませてもらいました。

uniqな値って事かな

until ($n == $max) {
　$r = rand(100);
　push(@ary,$r) and $n++ if(!grep /$r/,@ary);
}

あ、ちょっと違うか
until (my $n == $num) {
　my $r = rand($max);
　push(@kekka,$r) and $n++ if(!grep /$r/,@kekka);
}

なんとなく90は「整数を」欲しがってるきがするので、その書き方をしてみる。

my @kekka;
my $max = 100;
my $num = 4;

die('$max の値が $num より多いとダメだから注意な。') if $num > $max;

my %temp;
my $rnd;
my $n = $num;
!$temp{($rnd = int(rand $max) + 1)}++ and push(@kekka, $rnd) and --$n while $n;

あ、dieのメッセージが逆だ（ｗ

おお！早速有り難うございます。そうです、uniqueな値を指定個数生成したいんです。
でも実行してみたらループしてる・・・うーん、どっか変数間違えたかな。
こんな感じでやってみたんですが

#ここから

$max="10";
$num="4";

until (my $n == $num) {
my $r = int(rand($max));
push(@kekka,$r) and $n++ if(!grep /$r/,@kekka);
};

print "@kekka";

#ここまで

これってgrepの結果が真だった場合は同じ$nでまたループしてるんですよね。
ということは、grepが真を返してない（？_？）

ちかごろは、srand;しないでも良くなったんですか？

お！！！93さんの動いた！！！
助かった〜〜〜
91さんも93さんも有り難うございます。
解読して考え方を参考にしますね。

>>96
perl5だといらないそうです

>96
らしき話をどこぞで見たような。

自己レス。 5.004　以降だとsrandが無い場合は最初のrandが自動的に
呼び出しているそうです。その場合はtimeとprocess IDを元にsrandしている
ことになるそうです。受け売り。

>>98-100
なるほど〜、ありがとうございます。
5.003以前だとsrandしないといけないって事ですね。
バージョン依存は難しいです、いろいろ。。。

初めまして、今回仲間内のHPで出席簿を作ってみようということになって少しやってみたのですけど
まったくうまい子といきません。
やりたいことは、名前入力　名前に対してのカウント数
これくらいです。
一応ソース載せます、めちゃくちゃだと思うので一から出直せとかきついこといってください。
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
foreach $pair(split(/&/, $query)){
($name,$value)=split(/=/,$pair);
$name=$value;
}

OPEN(FILE, ">+./$name/count.dat);
$count=<FILE>;
print FILE ++$count;
close<FILE>;
OPEN(NAME, ">+./namedata.dat");
while ($check=<NAME>){
if ($check ne $query){
seek(NAME,0,2);
print NAME $query\n;}
}

####ｽﾐﾎﾏ
print"content-type: text/html\n\n";
print"<table border=\"1\">";
while($uname[$list]=<NAME>){
$data="./$uname[$list]/count.dat";
print"<tr><th>$uname[$list]</th><td>$data</td>\n";
}
print"content-type: text/html\n\n";
print"<table border=\"1\">";
foreach $key (sort keys %uname){
print"<tr><th>$key</th><td>
まだ途中です。

>>102
それだとフォームからのを ほとんど読み捨てない？
あと
OPEN(hoge,">+ filename");
だと関数名が違ううえに 開いた途端ファイルが空になりそう。
http://tohoho.wakusei.ne.jp/wwwperl.htm

>103
ううむ、もっかいやり直して載せてみます。
頑張ります。ありがとー

>>102
何を参考にしたらそんなソースになったのか知りたい。

perlのファイルをupすると、一行目のパスの頭になぜか<がついて
<#!/usr/bin/perl
となってしまいます。windowsからアップしているのですが、
LFでアップしようがなんだろうが<がついてしまいます。
原因わかるかたいらっしゃったら教えてくださいー

>>106
どこに？

tellが取る位置が納得いかない。 毎行index化したいのですが

open(F, file) || die;
tie(%IDX, 'GDBM_FILE', file.gdbm);
$id = tell(F);
while(<F>) {
$name = $_;
　#ｺｺ？
$IDX{$name} = $id;
$id = tell(F);　#この行は
}
untie %IDX;
close F;

これはうまくいくのですが、「$id=tell(F);」を、「ｺｺ？」に入れる方が
正しい気がしてなりません。
しかし、そうやって作ったgdbmファイルの返す結果はｽﾞﾚｽﾞﾚです。
えらい勘違いしてるのかもしれませんが、よろしくお願いします。

が実行される度に次の行の始点にいくのでうまくいかなくて当然です。

>>102
まったくうまい子といきません。
ﾜﾗﾀ

>>106
鯖の問題では？
タグ埋め込もうとしてるとか

>109
「ポインタは行頭にしか置かれない」と思い込んでました。ｱﾎｰ
前行の行末 = 次行の行頭 なんですね。
スッキリしました。ありがとうございました。

ttp://homepage1.nifty.com/wizman/app/perlfactory/

これ使ってる人って居ます？

2ch書き込み補助プログラムを作ろうと思ってるんだけど，
ソース見てると出てくる
<input type=hidden name=time value=1010730193>
って何？　時間みたいだということはわかるんだけど・・・

あと，perlで書かれた2ch書き込みプログラムのサンプルが
あったらきぼんぬ

>114
time関数で取得した書き込み時間をhidden属性で渡してると思われ。

>>115
何の為に？　(笑

>>116 二重投稿チェック。

どうやってそれでチェックするの？　（＾∀＾）

>>118 わからんなら気にするな。

ごめんなさいごめんなさい
本当に困っています
教えて下さい

わからんものはいらないんだからマネしなくていいじゃん。

>>120 = >>114　なの？
>>114でゆってる「ｿｰｽ」ってブラウザ画面からとってきたやつ？

そう言うアナタは解るんですね　　　:-)

>>121
あ，>>120じゃないです，けどThx．IEやネスケの「ページのソースを見る」
ってやつだとオモタ（IEもネスケも使ってないから知らん）．
生timeを10進数で書いただけなのね

…あ，もしかして，これをいじると連続投稿できたりするの？
もしかして（って，そこまで杜撰じゃないか）

これ何の意味も無いって、御まじない
HTMLにID埋めて判別出来なる訳ないじゃん

>122　わかりませんです。
ｿｰｽ見てない作者でもない　>115で書いたことくらいしかわがんねっす。

>>125 実際に試してみて書き込めるかどうか試してみる
こときぼんぬ

>126　ｵﾚ？

分数の計算するにはどうすれば？

>>128
電卓を使いましょう。

sub get_time{

$ENV{'TZ'} = 'JST-9';
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$day = ('日','月','火','水','木','金','土')[$wday];
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",$year+1900,$mon+1,$mday,$day,$hour,$min,$sec);

}

とあって、時間表示で秒を表示させたくないとか年を表示させたくないとか、
色々変えたいのですが初心者すぎてどうしたらいいのかわかりません。
時間表示をどういう風にカスタマイズしたらいいのか、
解説してあるサイトを教えていただけませんか？
他の所も勉強すべきなんでしょうけど、急いでいるので
とりあえず時間表示の部分だけどうしたらいいのか知りたいのです。
検索しようにも漠然としててどうしたらいいかわからないし、よろしくお願いします。

> 130
;### 時分秒・年月日・曜日を取得するなら以下で充分
($sec,$min,$hour,$mday,$mon,$year,$wday)= (localtime)[$[ .. $[+6];

;### 年および月は次のようにする
$year+= 1900; $mon++;

;### 時・分・秒・月・日は、ゼロサプレス無しにするなら次のように
;### する。(sprintf関数がオーバーヘッドは大きくてらっしゃるから)
if ( $sec < 10 ){ $sec= '0' . $sec; }

>>131
ありがとうございます…
一生懸命理解しようとしたのですがよくわかりませんでした。
どこにどうやって記述したらいいのかが…

年表示は2002年なら02にするか非表示にしたいんです。曜日表示も消したいんですが…
例えば（02/01/12/04:38）か（01/12/04:38）のようにしたい。
途中経過を無視して答えだけクレクレ厨してるようで心苦しいのですが
どう書けばいいのか丸ごと教えてくださればうれしいです。
本当にすみません。

＞途中経過を無視して答えだけクレクレ厨してるようで心苦しいのですが
＞どう書けばいいのか丸ごと教えてくださればうれしいです。

ここはPerlのコーディングで困ってる人のスレです。

スクリプト改造工房 Part3
http://pc.2ch.net/test/read.cgi/php/988808396/

スクリプト改造工房 Part3
http://pc.2ch.net/test/read.cgi/php/988808396/

「こういうふうにスクリプトを改造したいけどやりかたわかんないよー」
という人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。

>>133
あ、すみませんでした。
>>134-135
どうもですー。逝ってみます。

> 132

;### 年表示フラグ
$DISP= 1;　　　　　　　　　　# (0:年非表示, 1:年表示)

;### 年月日・時分の取得
$get_time= &get_time;

;### 年月日・時分取得用サブルーチン
sub get_time{
　　my( $min, $hur, $day, $mon, $year )= (localtime)[$[+1 .. $[+5];
　　$year+= 1900; $mon++;
　　if ( $min < 10 ){ $min= '0' . $min; }
　　if ( $hur < 10 ){ $hur= '0' . $hur; }
　　if ( $day < 10 ){ $day= '0' . $day; }
　　if ( $mon < 10 ){ $mon= '0' . $mon; }
　　$year= $DISP ? substr($year, -2, 2).'/' : '';
　　"$year$mon/$day/$hur:$min";
}

> 137

補足しておきますが、字下げのために全角スペースを使用していますので、
コピペする場合は半角スペースに書き替えてください。

>>137-138
ご丁寧にありがとうございます…
スペースを半角にしてそのままコピペしましたが、
でもそれでやると、[]となって一つも表示されません…
素直に改造スレへ逝って来た方がよさそうです…

> 139

これをやっても表示されないとなると困ったことですね。
念のため次の実行でワーニングが出るかどうか試してみては？
perl -wc xxx.pl

（月/日 時:分）なら
sub get_time{

$ENV{'TZ'} = 'JST-9';
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$date = sprintf("%02d/%02d %02d:%02d",$mon+1,$mday,$hour,$min);

}

>>140-141
やっとわかりました！
希望通りにできました。
色々と変える変更も好きなようにできました。
脱線話題なのにつきあってくださって教えてくださって本当に感謝します、
ありがとうございました。

perl言語をわかり易ーく説明しているサイトを教えてください。
それと、CGI作る際に覚えといたほうがいい言語って何ですか？perlは駄目？？

>>143
とほほとか。
CGIはPerlでもいいけどPHPの方が簡単だと噂

>>143
ちゃんと削除依頼も出していたみたいやから、えらいね。
144がいう。とほほはここ。
http://tohoho.wakusei.ne.jp/wwwperl.htm
PHPもいいけど、RubyができるならeRubyでもいいかも。
言語として簡単と言うより、PHPやeRubyはCGIを作るのが簡単。
CGIはPerlが一番資料があると思うけど、
配布されているPerlのCGIのソース見るとわかるように、
ほとんど暗号だから。
保守性やOOで組みたいなら、PythonやRubyを使った方がいいかもね。

あのーAN HTTPD Daemonを使って
CGIを使いたいのですが
自分で色々やってみたんですがどうしてもできませんでした
やったことはActive PerlとJperlをInstallして
落としてきた掲示板CGIにそのパスを書いたんですが
FTPからそのCGIの属性変更をしようとしても変更できず
HTTP 500内部サーバエラーが出てできませんでした
どなたか詳しく教えていただけませんか？

悪ロダみたいな掲示板のスクリプトを探しています

テキストファイルやMIDIファイルを主に扱いたいのですが
JPEGファイルだけでなくいろいろな形式のファイルを
アップロードできる掲示板のスクリプトで
デファクトスタンダードっぽい有名なものとかあるのでしょうか？
イメージ掲示板にはどこに行ってもこれと同じのを使っているなぁという
有名なのがあるみたいですが

>>146
ネタだろ？

>>147
http://www.google.co.jp/search?hl=ja&q=%83A%83b%83v%83%8D%81%5B%83_+cgi%81@%83t%83%8A%81%5B&lr=
これでもくらえ。

おおおおお！喰らった816件！

おれも「アップローダー」＆「CGI」＆「フリー」&「配布」で
検索して同じように膨大な結果になったんですけど

無難なとこで、みんなが使っている有名なやつにしたいなぁなんて

ダメっすか？(^^;

試験

僕はネタと思われるほどおかしい事をやっているのでしょうか
ここでこんな事を聞くのはお門違いなのでしょうか

>>152
いちいち反応しないでじっくり待ってみなよ。

>>146
属性とは何か。パーミッションとは何か。
調べれば自ずと答えが見つかる気がする。
あとはhttpdのヘルプでも読んでくれ。

要するにPerlの問題じゃないって事。

test

２ちゃんねらーの多く出入りする掲示板を運営しています。
掲示板にトリップ機能を組み込みたいんですが、誰かわかりますか？

>>156
みちのくんとこにある２ちゃんコピーの掲示板についてる。

requireとサーバーの負担について質問です。

#!/usr/bin/perl

print "Content-type:text/html\n\n";

require "a.cgi";
print $tmp;
require "b.cgi";
print $tmp;
require "a.cgi";
print $tmp;

exit;

a.cgiには $tmp="a";
b.cgiには $tmp="b";
と書いてあります。

と書くと、結果はabaとしたいのですが、abbとなるんです。
3回目のrequireが1回目と同じために3回目の処理を勝手にスキップ
してるのではないかと推測してみたんですがあってますでしょうか。

別の案として、
require "a.cgi";
$tmpa=$tmp;
require "b.cgi";
$tmpb=$tmp;
print "$tmpa$tmpb$tmpa";

と考えたんですが、a.cgi b.cgiは本来40個くらい変数格納していて、
全て変数に取っとくのもどうかと思い最初の案を考えたのですが。

日本語が不鮮明だな…。まとめてみると、
「2度目のrequireを有効にすることができるか、できるならその方法」
「別の案の場合、サーバーに掛かる負担ってのは憂慮するほどのものであるか」
の二点が疑問です。

どなたかご教授頂ければ幸いです。

>>158
それは、requireの仕様。
# てか、requireの使い方を激しく勘違いしているような、、、
とりあえず、perldoc -f requireしてみること！
158の知りたいことが全て解説されている。

どうも有難う御座います。
requireの使い方は人のCGIを見て使い方を自分の中で勝手に認識したので…。

perldoc -f requireやってみます。
というかどこで(?)やればいいのかも解らないのでとりあえず調べてきます。

それでは。

>>160
> というかどこで(?)やればいいのかも解らないので
コマンドラインから

lolipop.jpの鯖にapeboard+を置いたんですけど、
505で動きません。
アスキーモードで転送したし、
Perlのパスは指定のものに変更したし、
パーミッションも755にしているのに動きません。
何故かしらー？？
どころか、テストのために同じ状態でＵＰした、
Hello World!クラスのcgiも動かないのです。
鯖が悪いのか？FTPソフト（FFFTP）が悪いのか？
お分かりの方おりましたらお教えください。

POSIXモジュールを使っている人はいる？
使いまくると見づらい？
例えば、$ENV{'QUERY_STRING'}を参照すればいいものをPOSIX::getenv("QUERY_STRING")とやるということ。

>>162
Perlのエラーログ見ました？

>>164
httpdのログだろ？

るせｳﾞｫｹ

>>166
横から煽るな。

>>162
ＣＧＩだけど、なんか質問ある？Part 5
http://pc.2ch.net/test/read.cgi/php/1009331505/

すいません、>>157のみちのくの意味がわかりません。
もしよろしければ、もう少し詳しいことを教えてください。

>>169
http://www.google.co.jp/search?q=%82%DD%82%BF%82%CC%82%AD%81@%8Cf%8E%A6%94%C2%81@cgi&hl=ja&lr=

>>170
申し訳ない。わざわざ有難うございます。

2ch猛威を振るう宣伝業者の書き込みを撲滅すべく活動し
ております。Q2接続プログラムの解析、関係団体へのメール等、ランキングクリックに
よる宣伝業者へのアクセス数減少と人手はまだまだ必要です。
WEBプログラム板の皆さんの技術を貸していただけないでしょうか。

下記のスレをご覧の上で、ご協力戴ければ幸いです。
「■ 悪徳宣伝業者の画像や動画をばらまくスレ２ ■」
http://wow.bbspink.com/test/read.cgi/ascii/1010876229/

Perlでfork関数を使用した際、
子プロセスがいくつ生成されているか、
親プロセスが知るにはどうすれば良いのでしょうか？
具体的にはHTTPのGETをしたりするスクリプトで
子プロセスの数を(例えば3個までとかに)制限したい
ということなんですけど。

現在perlを始めたばかりのプログラミング初心者です。
HC　Editorというフリーのテキストエディエターで
perlを書いているんですが、保存時の漢字コードをEUCにすると
なぜか保存して、再び読み出したときに中身が文字化けしてます・・・
OSはWINDOWSです、よろしくお願いします。

>174
なぜその製作者のサイトで聞かない？
それが一番確実なはずだけど。

>>174
全然Perlと関係ないぞ、それ

そっか（汗
そーします。

パッケージ関数bar を標準で入っている関数die の別名として使おうとして
package foo;
*bar = \&CORE::die;
bar("hoge");
と書いてみましたが，そんな関数知らんと怒られてうまくいきません。
どうやればできますか？

スレ違いだけど妥当なスレが見当たらなかったので
書き込ませてください。
CGIかうんた設置を試みてるのですが、どうもうまくいきません。
FFFTPを最近使い始めたのですが、転送する前・・・つまり
こちら側にあるファイルのサイズと、鯖に転送したファイルのサイズが
微妙に違うのです。
20000バイトなら、鯖のは19621バイトといったふうに。
こういうのって、CGIの誤作動に繋がりますか？
何度転送してもそのようなサイズになってしまいます。

>>179
もしかして広告とか？

でも、やっぱりここで訊くのは間違ってる

>>179
それはFTP転送がASCIIモードだと改行コード変換が行われるから(多分)。
WindowsだとCR/LFで改行だけど、他のOSだとLFだけだったり。
つまり、改行一つにつき1バイト分、サイズが少なくなる勘定。

ちなみにCGI関係は
http://pc.2ch.net/test/read.cgi/php/1009331505/

お邪魔してしまってすみませんでした＜（＿＿）＞
他の板で聞いてみます

広告とは？
>>179

>>182
> 広告とは？
ｺﾞﾒｿ。適当に言っただけ。忘れて下さい。

このリファレンスの使い方って、マズいですか?
(sub内のmyな変数のリファレンスを返却)

sub foo {
my %ret;
$ret{"bar"} = "baz";
\%ret;
}

my $r = &foo();
print $$r{"bar"} . "\n";

>184
結果はどうなの？
最後の一行を
print $r->{"bar"}."\n";
でどうよ。

(　´ ・∀・｀)　へー

>184
なんだ。そのままで動くやん。
「sub内でのmy変数のﾘﾌｧﾚﾝｽを返す」こと自体は全然ﾏｽﾞくないよ。

>187
>「sub内でのmy変数のﾘﾌｧﾚﾝｽを返す」こと自体は全然ﾏｽﾞくないよ。
ああ、そうなんだ。ありがとう。

ふーむ。sub呼ぶ度にheapに%retが確保されるようなイメージですかね。

sub foo {
my ($k, $v) = @_;
my %ret;
$ret{$k} = $v;
\%ret;
}

my $r1 = &foo('key1', 'var1');
print $r1 . "\n";
print $$r1{"key1"} . "\n";

my $r2 = &foo('key2', 'var2');
print $r2 . "\n";
print $$r2{"key2"} . "\n";

print $r1 . "\n";
print $$r1{"key2"} . "\n";

$ ./x.pl
HASH(0x8105ce4)
var1
HASH(0x80f857c)
var2
HASH(0x8105ce4)

$

どうも、以前にも質問しました。
時間が空いたのでもう一度書き直してみましたが、動作しません。
出席簿みたいな感じのCGIです、
少しチェックして欲しいです。


require'jcode.pl';
require'cgi-lib.pl';

&ReadParse(*answer);

$name="$answer{'name'}";

open(DATA,">>./log.dat");
while(@dname=<DATA>){
foreach $key(@dname){
($namelist,$count)=split(/,/,$key);
if($namelist eq $name){
++$count;
}
}
print DATA "$name,$count";

>>102 です。

openの後が意味不明、何がしたいのか説明してみてくれる？

（名前、カウント数）
でデータを保存したいのです。
それを参照して同じ名前があったらカウント数増加、
なかったら新規で作成という感じにしたいのです。

>open(DATA,">>./log.dat");
追記モードで開いてもポインタがファイルの終端を指しているから
データの読み込みは無理。
SEEKするか？

>while(@dname=<DATA>){
↑これは
>@dname = <DATA>;
こうするか
>while(<DATA>){
こうしなさい。
どちらにしても、追記モードでオープンしてるんじゃ無理。

おぉ、分かりました。
open(DATA,"+>./log.dat");
にして入出力用にすればいいのかな
もうちょっとのところまできてるんでしょうか？
とりあえずもうちょっと修行します。
また、報告させていただきます。

>SEEKするか？
(　´ ・∀・｀)　へー

>196
追記モードだとSEEKでも前に戻れなかったね。
スマソ。

>195
とりあえず書いてみろよ。
ローカルでテストする分には誰も文句言わないから。

Grepについて教えてください

open IN, "highschool.csv";
while ($line = <IN>){
if ($line eq '') { print "(空行)<hr>\n"; next;}
@splited = split (/\n/, $line);
$test = @splited;
@test = grep (/東京/, @splited);
print "@test<hr>\n";
}
close IN;
とhighschool.csvを読んで「東京」というキーワードでGrepかけ、検索結果を<HR>つきで表示させたいのですが
マッチしなかったところにも<HR>がついちゃいます。どのように回避するのかお教えください、

@splited = split (/\n/, $line);
これが何やってるかが分からないから
その後も何やってるかが分からない
@splited に何を入れたいんだろう･･･

open (IN, "highschool.csv");
while (<IN>) {
if ($_ eq "") {
print "空行<hr>";
} elsif (index($_, "東京") >= 0) {
print $_, "<hr>";
}
}
close (IN);

>>199
一応読んだcsvを改行コードで区切って@に入れてるんですが。間違ってますか？
それと198で訂正がありましたすみません
open IN, "highschool.csv";
while ($line = <IN>){
if ($line eq '') { print "(空行)<hr>\n"; next;}
@splitted = split (/\n/, $line);
@test = grep (/東京/, @splitted);
print "@test<hr>\n";
}
close IN;

>201
一行ずつ読み込んで、改行マークでsplitしたって、全文が$test[0]に入るだけでしょ？
csvファイルの区切り文字って\nでしたっけ？

>>202
いえこの時点でカンマで区切る必要はなく、改行で区切る必要があったんです。

＞while ($line = <IN>){
これはなにをしてる所？
俺は「ファイルから1行ずつ呼び出す」ものだと思ってるんだが。
つまり\nが二つ以上ある可能性はないのだけれどね。

open IN, "highschool.csv";
while ($line = <IN>){
$c++;
print qq($c行目 $line\n);
@splitted = split (/\n/, $line);
foreach $i(0 .. $#splitted){
print qq($c行目$i個目の要素 $splitted[$i]\n);
}
}
close IN;

とりあえずこれを実行してみて何が起きているか考えてみてくださいな。

つか200で良いべさ。

皆様。ご指導ありがとうございました。
>>200さんのアドバイスでできました。
ホントお恥ずかしい・・・

@char=('0'..'9','a'..'z','A'..'Z');

という62文字を使って 1 （あるいは 0）から ZZZZZZZZ までの
62進数を順番に生成したいのですが、上手にやる方法はありますか?

http://pc.2ch.net/test/read.cgi/php/1009549309/40-41

2週間もやってるのか　　（笑

>208
生成した数値(文字列)をどうしたいのか
配列に入れると218340105584895個要素が居るがそれでも良いのか
つーか41で分からんの?

リンクを張られた文字の隣にクリックされた回数を表示するにはどうすればいんですか？

> 208
簡単過ぎ

@char= ('0'..'9','a'..'z','A'..'Z');
for $char ( @char ){
print &xxx($char),"\n";
}
sub xxx{
my( $ret, $flg );
for ( reverse split(//, $_[$[]) ){
unless ( $flg ){
if ( $_ eq 'Z' ){
$_= '0';
}
else {
if ( $_ eq '9' ){ $_= 'a'; }
elsif ( $_ eq 'z' ){ $_= 'A'; }
else { $_++ ; }
$flg= 1;
}
}
$ret= $_ . $ret;
}
$flg ? $ret : "1$ret";
}

$foo->{hoge};
と
$foo->hoge;
は、上がハッシュだとして、下のは何を表すんでしょうか？

>214 メソッド。

ありがとうございます。これがメソッドか…

えと、Perlのスクリプトの速度比較、つまりベンチマークをしたいのですが、なにか方法はないでしょうか？

>>217 Benchmark.pm

>>218さんありがとうございます。
試しに「for」と「while」のベンチマークをしてみたところ
やや「while」の方が効率がいいようですね。<読み込むスクリプトでは
まだ簡単なスクリプトでしか試してないので、分かりませんが。

perlでこの行を入れてアップすると500エラーになるんですよ。
my $query = $ENV{'QUERY_STRING'};
Win用のアパッチでテストした時は良かったんです。
理由を教えていただけませんか

Perlが腐ってるから
myを外そう

ありがとうございます。即効解決しました。
Perlが腐ってるんですね。
感謝

>>221
解説希望。うちだとエラー起きないから、何処が腐ってるのかわかんない・・・

>>223
Perlが5より古くてlocalしかないとか？

俺のプロバのPerlが4なんだけど、myを入れるとエラーになるよ。
ということで>224に同意。

腐ってるって、そういう意味か・・・・・・

ぷ

今、perlの勉強していて、SSIを使ってアクセスカウンターを作りました。
それで、できたplファイルとshtmlを同じ階層に入れて、
shtmlをブラウザ（IE6.0）で開いて確認しようと思ったんですが、
開けないんです。どーしたらいいんでしょーか。
スクリプトは間違ってないと思うんですが。。。

ﾊﾟｰﾐｯｼｮﾝはどうよ？

パーミッションはどうなってるか分かりません。
Apache起動して、ローカルでテストしてます。
ブラウザの右下にある青いバーが
増えていってるだけで画面は何も変わりません。

正規表現で「?」を検索したいんですが、「\?」だと上手く動作しません。
別の方法があるのでしょうか。

>230
アクセスカウンターが無限ループしてるとかじゃないの？

>>231
\?で大丈夫のはずだよ。
念の為にローカルで試してもみたけど、普通に出来た。
その前後の文に問題があるんじゃないのかな？

＞232
無限ループは無いと思います。サンプルファイルでもやってみました。
アドレスに、
127.0.0.1/*.shtmlとやってますが、白いまんま。
shtmlをhtmlにかえると表示はされるのですが、スクリプトは動かないです。
shtmlのアイコンは、IEのアイコンにならないの？

>232
そのカウンタを直接呼び出したら？

てゆーか、ApacheのＳＳＩの設定が通ってないとかは？

アイコン変える方法は、ファイルの関連付けでしょう。

できました。
原因は、本に誤りがあったようです。ホームページで確認しました。
<!--#exec cmd="*.pl"-->
を
<!--#exec cgi="*.cgi"-->
に変えろということでした。変えたところ、上手くいきました。
どうもありがとうございました。

カレンダーを作ろうとしています。
例えば2002年1月1日の曜日を知りたい場合、以下の式で分かるのですが、なぜこ
れだけで分かるのでしょう？

($year + ($year-1)/4 - ($year-1)/100 + ($year-1)/400) % 7

上の式で出た余りを対応させれば2002年の最初の日の曜日が出ますが、これだけ
でなぜそうなるのか全く分かりません。

また、

$i = ($year + ($year-1)/4 - ($year-1)/100 + ($year-1)/400);

とした上で、

2002年4月1日の曜日を知りたい場合はその前の月(1月から3月まで)の日の合計
(31+28+31)を$iに足して7で割り余りを出すと出て来ます。

($i+(31+28+31)) % 7

でもこの仕組みが良く分かりません。そもそもなぜ年だけで、任意の年の最初の
日の曜日が分かるのか、また、それをもとにしてどうして任意の年の任意の月の
最初の曜日まで分かるのか全く分かりません。

どなたか説明をお願いできますか。

上の100で割ったりするのは、まあ公式だ
Zellerの公式で検索してみて

ここに、日付け絡みのサンプルが色々出てるから必読
他にも役に立つしね
http://www.din.or.jp/~ohzaki/perl.htm

すいません・・・超初心者なんですが、よろしくおねがいします！

win98に、間違ってwinNTのPerlをインストールしてしまったんですが、
アンインストールはどうすればいいのでしょうか？？？

C:を「Perl」とか「NT」で探したら、Temporaryフォルダにしか
ないみたいなんで大丈夫かな？と思ったんですが、
インストーラーをもう一回起動させたら、
『指定されたサービスはすでに存在します』
ってエラーメッセージが！！！！

『アプリケーションの追加と削除』には、何もできてません。
どなたかお助けーーーー！

> 238
Ｃ：がダメならＤ：があるさ

すんまそん。Web制作板から来ました。

$a = 1;
$a = $a++;

Perlで$aの値はどうなりますか？

> 240
「すんまそん」って、出だしから寒すぎて手がかじかんでうまく答えがかけないよー。
どうしよー。

分かったー！

Perl : 1
Java : 1
C(gccだっと思う) : 2
JavaScript : 1

>>241 お前もなかなか

$a = 1;
$a = $a++; # $aは 1
$a = ++$a; # $aは 2

上書きで無事アンインストールできたよーーーー＾＾

>244
おめでとう

Flash5とcgiの絡みの勉強してるのですが、
FlashからデータをPOSTで送信しようとすると、
データが渡ってないようです。
GETだとちゃんとわたってます。
cgiはこんな感じです。(一部ですが）

#フォームデータの取得
if($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN,$query,$ENV{'CONTENT_LENGTH'});
}
else{
$query=$ENV{'QUERY_STRING'};
}

Perlで書かれたCGIスクリプトを自分で読んで解析しています

サブルーチンの定義のところで

sub FormThList($;$)
{
　　　処理･･･
}

という部分をいくつも見かけます

引数にある"　$;$ "　という部分は何をあらわしているのでしょうか？
自分で書籍やWebを調べてみたりしたのですが、引数なのか、リフ
ァレンスなのか、それとも他のものなのか、さっぱりわかりませんでした。

どなたかお分かりの方ご教授ください。宜しくお願いいたします。

あげ

$_は、あれ、をあらわします。
ほら、あれもってきて。って、よく、彼女とかにいってるでしょ。
そのあれ。だよ。

>>247
引数の形式を指定してる。
$はスカラー。;以降は省略可。　ほかにもいろいろ指定できる。
詳しくはperldoc perlsubか，プログラミングPerl改訂版133Pを参照のこと。

勉強ついでに指定ディレクトリのファイル全文検索作ってみたんですけど、キーワードに日本語入れるとうまく動かないんですがなぜでしょう？

$dir = ''; # 指定ディレクトリ
$file = '.html'; # 検索対象ファイルの拡張子
$key = ''; # キーワード
opendir(DIR,$dir);
@files = readdir(DIR);
closedir(DIR);
foreach (@files){
if(/$file$/){
open(FILE,"$dir/$_");
@data = <FILE>;
close(FILE);
foreach (@data){
$seach = $seach . $_;
}
if($seach =~ /$key/i){
push(@list,$_);
}
}
}
foreach (@list){
print;
print "\n";
}

>251
URLデコードをしてないとか。
「ー」が含まれてるとか。


余談だけど無駄が多いからもうちょっとシェイプアップした方がいい。
grep使うとか。

>>251
EUCの場合

$EUC_JP = '(?:[\x00-\x7F]|[\xA1-\xFE][\xA1-\xFE]|\x8E[\xA1-\xFE]|\x8F[\xA1-\xFE][\xA1-\xFE])';
if $seach =~ /^$EUC_JP*$key/i {
...

perlメモだかに、詳しく載ってた気がする。

> 250
それにしてもサブルーチンに引数の形式を指定するメリットがわかんないんだけど、
どういうことYO!

単に引数形式を明確にするだけのこと？

うーん！こんやも眠れない。

>>254
眠れないんだったらperlsub読みなよ。
どういうときに使うのか書いてある。

仮引き数書けない方がずっと異常です
逝っちゃってますねもう

> 256
なるほど、漏れが異常なのか。チョットだけ安心しました。
255さんの提案でperlsub読んでだいたいはわかりました。
それにしても今までラクダ本しか読んでなっかったからバージョンアップに伴う追加・更新部分は
未知な部分が多いネー。

Win98+ActivePerlで勉強しようと思うのですが、
日本語部分は（メッセージなど）EUCで書くのが正解と聞きました。
ところが、DOSプロンプトだとEUCは文字化けします。
Shift-JISで書けば、DOS上では問題ないですが・・・。
どうしたらよいですか？
print "日本語いーゆーしーだ！";
とかでやると
ﾆ・ﾜｸ・､｡ｼ､譯ｼ､ｷ｡ｼ､ﾀ｡ｪ
になります。

>258
S-JISで全然問題ない。

フォームメールのCGIを作ってみてるんですが、半角スペースが入るとスペース
以降のデータが受取れません。

流れとしては、HTMLフォームから入力して送信ボタン→確認画面で送信ボタン→メール送信
というもので、確認画面ではスペースはちゃんと入ってて、例えば「山田 まさし」
と入るのですが、その確認画面から「送信」ボタンを押して再度同じCGIを呼びだして
データを受取ると「山田」で切れてしまうです。
$value =~ tr/+/ /;この行で送られてきたスペースコード（+）をスペースに変えて
いるのですが、再送信するときには変換されたスペースをまた（+）のようなコードに
戻してあげないとダメなんでしょうか？
試しに普通の＋に戻してみたらそのまま＋が出てきてしまいました。。
わかりづらくてｺﾞﾒﾅｻｲ、アドバイス貰えればありがたいです。

Perl関連のほしい本があるんですが、その本が5.6対応では
ありませんでした。(elements programming with Perlです。)
5.5?やってから5.6本やってもおそくないですか？
あと、支障とかないですか？

テキストファイルを読み込んで、１行目を<title>と<h1>に、２行目を<h2>にするようにしたいのです。

open FILE,"xxx.dat";
@page = split(/\n/,<FILE>);

print <<"EOH";
<html>
<head>
<title>$page[0]</title>
</head>
<body>
<h1>$page[0]</h1>
<h2>$page[1]</h2>
EOH

$count = 0;
foreach $i(@page){
if ($count > 1){
print $page[$i];
}
}
print "</body></html>";

close FILE;

２行目を$page[1]として<h2>に、３行目以降をforeachで順に出力するつもりで
以上のように書いたのですが、$page[2]以降を取得できないようです。
どこで勘違いしているのでしょうか？

>262
＞foreach $i(@page){
ここに問題がある。
この場合、$iには何が入るのかな？
俺は数字じゃないように思えるんだが。

＞foreach $i(1 .. $#page){
との違いはわかるかな？

＞foreach $i(2 .. $#page){
こっちが正しいな。
修正する前に書き込んじまった、スマソ。

あともう一つ質問。
$countはずっと0のままでいいのかな？
数字が全然増えてないから、if文の中に入れないようにも見えるぞ。

>>252
URLをデコードするってどういうことでしょうか？
よくわからないのですが。

検索したらすぐ出てきました。迷惑かけてすいません。
逝ってきます。

>>264
をっとｽﾏｿ
うまくいかないので別の方法で無理やり辻褄あわせてて、もとのスクリプトと
違うこと書いちゃいました。

$count++をforeachの最後に入れて、print $page[$count];にしてたはず・・・

うがー　なんでこんなところにひっかかってんだ私；

>267

俺ならこんな感じ。チェックしてない。

open (FILE,"xxx.dat"); @page = (<FILE>); close (FILE);
$page[0] =~ s/\n//g;
$page[1] =~ s/\n//g;

print <<"EOH";
Content-type: text/html; charset=Shift_JIS

<html>
<head>
<title>$page[0]</title>
</head>
<body>
<h1>$page[0]</h1>
<h2>$page[1]</h2>
EOH

$count = @page;
for($i = 2;$i <= $count; ++$i) {
$$page[$i] =~ s/\n/<BR>\n/g;
print $page[$i];
}
print "</body></html>";

>268
ミス
＞$$page[$i] =~ s/\n/<BR>\n/g;
$一個おおいっすｽﾏｿ

>>260
print "Content-Type: text/plain\n\n";
print $ENV{QUERY_STRING}
とかやってデータを確認したら？
確認後のエンコード周りがあやしい。

>>261
5.6触ったこと無いが，
Perl5.6は仕様を足しただけみたいだから
Perl5やってからでも特に支障無いと思う。

>>268
あ　何となくどこで勘違いしているのかわかったかも。
さっそく試して報告するです。
ありがとうございました。

shift @page;
foreach (@page){
print $_;
}
じゃいけんの？
$countってどこでインクリメントするの？

print <<"EOH";
Content-type: text/html; charset=Shift_JIS

<html>
<head>
<title>$page[0]</title>
</head>
<body>
<h1>shift(@page)</h1>
<h2>shift(@page)</h2>
EOH

foreach (@page){
print $_;
}
具体的にはこうか？

あ、全然だめだ。スマソ。逝ってきます。

268完璧だと思うんだけど、文句いう奴いるんだよな

268でいいと思われ

できました。
268は完璧でした。

>>272
$countがインクリメントしていないのは私の転記ミスです。

>>275-276 = 268
名前変えてもID出てるぞ。

>>275-276
TMTOWTDIってことで、色々出てくるのはいいんじゃねーの。

>>273
おしい。
ヒアドキュメントの中では @{[shift @hoge]} のように使うと吉。

あ！、もう出来たんだね。
でも、せっかく作ってきたので書いちゃう。

どうしてもforeach使うんだったらこんな感じ。
やっぱしチェックしてない。

open (FILE,"xxx.dat"); @page = (<FILE>); close (FILE);
$page[0] =~ s/\n//g;
$page[1] =~ s/\n//g;

print <<"EOH";
Content-type: text/html; charset=Shift_JIS

<html>
<head>
<title>$page[0]</title>
</head>
<body>
<h1>$page[0]</h1>
<h2>$page[1]</h2>
EOH

$i = 0;
foreach (@page){
if ($i ne "0" && $i ne "1"){
$_ =~ s/\n/<BR>\n/g; print $_;
}
++$i;
}
print "</body></html>";

>278
お、おれ？
おれかよ！(笑)

open (FILE,"xxx.dat");
@page = (<FILE>);
close (FILE);
$title = shift(@page);
$h2 = shift(@page);
print <<"EOH";
Content-type: text/html; charset=Shift_JIS

<html>
<head>
<title>$title</title>
</head>
<body>
<h1>$title</h1>
<h2>$h2</h2>
@page;
</body></html>
EOH

みなさんありがとう。
それぞれのサンプルもきちんと見て勉強させてもらうです。
WebProg板ｻｲｺｰ(・∀・)ｲｲ!

>>282ｽﾏｿ勘違い
ということで>>275-276はｷﾞｬﾌﾝと言え

改行をつけたい場合は2回目のshiftのあとに
@page = map {$_ . <BR>} @page;
だね。

@page = map {$_ . "<BR>"} @page;
やろがぁ！
@page;のセミコロンはいらん。ｵｹ？

しょうもない質問だと途端に元気になるな
このスレの回答者は　　（笑）

>>288
しょうもない質問で悪かったな（ｗ

>270 レスどもです。

GUIで次のようなプログラムを書け、という問題が学校でだされました。
ちんぷんかんぷんです。しかもスレ違いの予感もしてます。ごめんなさい。

プログラムはグレー色のウィンドウで表すこと。
しかもユーザーに赤、青、緑から好きな色を選ばせられるようにすること。
なおかつ１度ではなく何度もユーザーにその色を何度も変える事ができるようにすること。

誰か教えてください。

プラットフォームを書くこと。

ほんとごめんなさい
プラットフォームとは何ですか・・・？

Windowsとか、Linux, BSD, HPとか。
それと、言語はPerlなの？

>>293　頑張れ！
君の開発環境を書くのだ。

しかし、宿題をスレに投げる　という安直さがｺﾞﾙｧ！だ。

全て英語で書かれてて、なんだか注文をそのまま英語にしたみたいです

Your name? Lucy
Occupation/Job Title? Comedian

Nice to meet you Lucy, Comedian!

名前を入れればそのままその名前が文章につかわれる
ってなのを前回説明されました。
これはPerlなのでしょうか？

>>296
うーん・・・・・　他になんかないの？　
全部英語で書かれてて、一行目が「#!/usr/local/bin/perl」です、とか。

291と296の関係がよくわからん。
取りあえず、環境を書いてくれ。
UNIX系なのか、Windowsなのかぐらいは判別できるだろ？

書かれてないんです。ってか質問しか書いてないので・・・。
とりあえず次の授業にきっぱりと出来ませんでしたって胸はって言います。
一緒に考えて下さってありがとうございました。
ところで、授業のレジュメにAlgorithmも学ぼうって書いてあります。
このAlgorithmもなにかの言語なのでしょうか？

>>291に関連して素朴な疑問。
PerlでGUIのプログラムなんて出来ないよね？
ただ、適切なスレに誘導するために情報聞き出してるんだよね？
まさかPerlで書けるから聞いてるんじゃないよね？

ビクビク…。

何のための言語バインディングだよ。素人か？

>>299
ていうか授業出てなかったろ…。
出てれば絶対こんな質問しないぞ…。

Perl, Ruby, Python, とか大抵ののスクリプト言語でGtk, Tk, Qt, Win32用のバインディングが用意されてるだろ。

はい、素人です
やっぱりどうも難しいのでもっと初心者用のスレから出直してきます
ありがとうございました。。。

>>304
300向けであって、あんたに言ってるんじゃないと思うぞ。

>296
どう見てもこれはＣの課題だよな。

>291
VBかVCの課題だろ？

★必見★
パチマガで池上蓮から「旧友の自殺狂言騒動に抑えきれない嫌悪感」
で晒された本人（謎の人物）が池上に対して怒りまくってるぞ！！

謎の人物ホームページ↓
http://www.geocities.co.jp/Bookend-Hemingway/4715/

関連スレッド
謎の人物公式スレッド↓
http://kaba.2ch.net/test/read.cgi/pachi/1009686980/l50

>>301
はい。初心者です。
みんな当然のように答えてたから疑問に思ったです。
言語バインディング、検索逝ってきます。
ありがと。

>>300 きつい事言ってごめんな。

>>306-307
ってことは、ここで聞いたコーディングがコンパイルされる可能性が
あったわけですね？（ｗ

>>308
マルチポストｳｻﾞｲYo!

>>311
何を聞きたいの?
もうちょっと分かりやすく書いてみて

ていうか、やっぱり釈然としないんだけど、
PerlでWindowsアプリケーションは作れないよね？
なんつーか、
> プログラムはグレー色のウィンドウで表すこと。
とか。。
それと同様にX Window のアプリケーションも作れないよね？
ってことはGUIのプログラムって作れないんでは？

んー。どこの考え方が間違ってるんだろう。。
「GUI」を勘違いしてるのかな…。

>>313
一例。
http://freshmeat.net/img/screenshots/19044.jpg
(freshmeatで"Perl Gtk"とか"Perl Tk"で検索してみ。併せて100以上でてくるから)
検索エンジンなどでGtk-Perlとか、Perl/Tk, Perl/Qt. PythonならPyUI, PyQtとかを調べるよろし。

>>311　あのさ、重箱の隅だけど、「コーディング」はコンパイル出来ないよ
(ｗ　とか言わずに一緒に勉強しようよ
>>313
Perlでは出来ないけど、TkとかGtk使えばperlの文法で出来るんだから
全然間違えて無いよ。
もし無くてもPerlが叩けるライブラリ書けば良いでしょ？

質問者と同レベルの人が居るのがおかしいね

>315
TkとかGtkを課題に出す情報処理系の宿題かこれ？
というそもそも論に帰ってしまった私です。

>>314-315
なるほど。ありがとうございます。

>>316
初心者だけどなんか役に立つこと出てくるかなぁと思って
かちゅ〜しゃのお気に入りに入れて巡回してますが。。

３１１の意味が分からんのは俺だけかな････

311はことばの用法を間違ってましたｽﾏｿ
聞き流してくだされ>all

で、話は変わりますが。

Webサーバ上の特定のディレクトリにあるファイルをリストアップして、
ファイル一覧を表示するスクリプトを作りました。
せっかくだから各ファイルの更新日時を自動的に表示させたいのですが、
これはPerlでは無理なのでしょうか？

.cgiでSSIを許可するのはなんか怖いし、JavaScriptは自分自身あまり
ONにしないので、できたら避けたい今日この頃なんですが。

んー、自動的と言うのはどう言う意味だろう(CGI殆ど書かないので。。)
基本的にそのディレクトリに有るファイルが、CGIのみから更新されるなら
SSIでincludeする(execは殺す)為のファイルを書き出すだけで良い。

もし、CGIが感知しない部分でダイナミックに更新されるなら
素直にCGIで表示するか、呼び出し元のHTMLを書き換えるしか無いんじゃ
無いかな

>>321
早レスさんくす。

実はファイルリスト表示も各ファイルの内容閲覧も同じスクリプトでまかなっています（リストされるファイルはすべてHTMLのbody部分です）。

例）
hoge.cgi
　→引数がない場合はファイルリストを表示
hoge.cgi?page=020121
　→ファイル名が020121のファイルをbody部に取り込んで表示

なので、更新日時を表示するときの拡張子が.cgiなわけです。
SSIを使うには、.cgiからSSIを使えるようにしなければならないわけで、
これは320に書いたように避けたいのです。

てことは、ファイルリスト表示は.shtmlで出力してやるのが無難っぽいですね。
短いスクリプトなので、頭の体操だと思って最初から組み直してみます。
ありがとうございました。

と書いてから気がついたのだけど、
組み直さなくてもHTML出力部分だけ付け足して、
そのあとリダイレクトすればいいのか？

>>322
> hoge.cgi?page=020121
Taint check をしっかりとやるようにね。

初めてご質問をさせていただきます。今、
$abcd = "AAAA";
open(CF, "./a.txt") || die "Can't open Header File $!";
　while (<CF>){
chop;
print;
}
close;
と記述しました。
a.txtには
$abcd
と書きました。ですが、どうしても上記プログラムを実行したら
$abcdと表示されるだけでAAAAと表示されません。どうにかして
$abcdを変数としてファイルより読みだすことはできないでしょうか？

print eval($_);
かな？

eval

>>326>>327
ありがとうございます。早速やってみます。
evalは、shでしか使ったことありませんでした。
勉強します

>325=328
細かいことだけど、自分がたずねる質問に「ご」をつけるのは
ちょっと変だと思うよ。

すみません。お教えください
日記帳のように画像アップして1行コメントを入れるスクリプトを書いてるんですが
うまくいきません。
どこかによいサンプルはないでしょうか？

>>330
http://pc.2ch.net/test/read.cgi/php/1003132904/l50

すみません。質問なんですが、
htmlファイル内の&を%44になおすプログラムを作っていて
以下のとおりやってはみたもののうまくいきません。
#!/usr/local/bib/perl

while(<stdin>){
s/&;/%44;/;
print;
}

どうしても置き換えてくれません。
教えてください。

>>332
Perlへのパス
stdinからデータが読み込まれているか
検索・置換する文字列
を確認してみてわ

>333
遅れてすみません
３３３さんがおっしゃられるところは確認しました。
自分で気になっているところは
test→test1みたいな普通の文字の置き換えはできるのですが
＆とか％がはいっているとまったく駄目なのです。
どうしたら解決できるかわからなくて。。。

>>334　ほい。　

#!/usr/local/bin/perl

while(<stdin>){
s/&/%44/g;
print;
}

メール件名をMIMEエンコードしようと思い、
CGIファイルと同ディレクトリに「mimew.pl」
http://www.cc.rim.or.jp/~ikuta/mime_pls/index.html を設置して、
CGI内のメールのヘッダ情報記述部分で
$mimew = './mimew.pl';
require $mimew;
$subject = "[カタログ請求]";
$subject2 = &mimeencode($subject);
open (SENDMAIL, "| $nkf | $sendmail -t -n") || die;
print SENDMAIL "To: $recieve\n";
print SENDMAIL "Bcc: $bcc\n";
print SENDMAIL "From: $mail\n";
print SENDMAIL "Reply-To: $mail\n";
print SENDMAIL "Subject: $subject2\n";
print SENDMAIL "Content-Type: text/plain; charset=\"iso-2022-jp\"\n";
print SENDMAIL "Content-Transfer-Encoding: 7bit\n\n";
上記のようにしたのですが、エンコードされません。
お助け。。。

>>336　
$nkf = '/usr/local/bin/nkf';
$sendmail = '/usr/sbin/sendmail';
$mimew = '/フルパス書いてちょ〜/mimew.pl';

でどうよ。

http://money.2ch.net/test/read.cgi/build/1011774209/23 が言ってる
掲示板一覧ってどこから入るの?

http://www16.big.or.jp/~plustic/0range/JAPANESE/dustbox/404.html
の404のエラーの例として、.htaccessにて404.cgiを表示させてますよね。

この404.cgiの中で、ユーザーが打ち込んだURLを表示させてるんですが、
これってPerlでどう書いたらいいんでしょうか？

333 335>
貴重なアドバイスありがとうございました。
解決しました。
あらためてありがとうございます。

1：自分はこう言う事がしたい。
テキストカウンタを作っている。
CGI自体はhtmlでなくテキストだけを吐いて、
イメージカウンタと同じような感じに
html内に挿入するようにしたい。

2：それでこんな風にやってみたが･･･
Content-typeをtext/htmlにしたままimgで貼ってみたけど

3：それだとこんなエラーが出て上手く行かなかった。
ペケが出るだけで無理だった。

フォームメールcgiに手をくわえてます。
htmlフォームから送信ボタンを押すとcgiを呼んで確認で内容を一覧表示させてます。
そのあとにブラウザの戻るボタンを押したとき、htmlフォームに戻りますが、それまで
入力していた内容が消えてしまいます。元のcgiではブラウザの戻るボタンで戻っても
フォームに入力されていた内容は消えなかったんです。
この違いはどういった原因が考えられるでしょうか？

あれ？今度は戻るボタン押して戻ったらフォームに入力した値が出てた・・
CGIの影響じゃないのかな・・　この現象誰か知りませんか？

>>341
ペケが出るって事は画像へのリンクがうまくいってないんじゃないかな？

>>343
いや、画像でなくテキストを挿入したいんですが
コンテントタイプの吐きかたとhtml側の呼び出し方がわからなくて
とりあえずimgで貼ってみただけです。。
CGIが画像を吐いてないので当たり前といえば当たり前なんですが。。

>フォーム
戻るボタンは単にブラウザが自分の履歴を表示しているんだから
この場合呼び出されてないCGIは関係ないと思います。
というか、どんな風に手を加えたらおかしくなったかを書くと吉と思われ。

>>341
一般にはSSIやフレームが使われる。

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

今外出中なんで明日にでも試してみます。

>>345
有り難うございます。
過去にフレームで画面をちっちゃく切り取って
そこにhtmlで吐いたカウントを放り込んでいたんですが、
それをやめたくていろいろ試しているので
SSIの方を調べてみようと思います。

配列の中にある数字を指定した部分だけ検索したいんですが、

for ($no = 0; $no <9; ++$no){
@suuji = (1,2,3,4,5,6,7,8,9,10);
@kekka = grep /$no/, @suuji;
print "@kekka\n";
}

を実行すると、
10
1 10
2
3
4
5
6
7
8

と、１０まで出てきてしまうんですが、
１から９までのみ出すようにするにはどうすればいいんでしょうか？

for ($no = 0; $no <9; ++$no){
@suuji = (1,2,3,4,5,6,7,8,9,10);
@kekka = grep /^$no$/, @suuji;
print "@kekka\n";
}

誰でも思いつく一番簡単な変更はこれだわな。

my @ary = qw(1 3 4 5 8 9 11 14 19);
my $max = 10;
my $min = 3;
my @result = grep{$_ > $min && $_ < $max}@ary;
print @result;

print join "\n", grep { /^\d$/ } @hoge

>>349-351
ありがとうございました。なんとか出来そうです。
正規表現だけで出来たんですね…。もっと本をよく読みます。

出来ない…

1 あいうえお
2　かきくけこ

というようなものが、配列に１００個ほど入っているとして、
右の番号を指定して、その部分だけ左のものと一緒に取り出したいんですが…。

上のやりかただと、どうやっても出来なくて…。

このままじゃ気になって寝られない…でも寝ないと死ぬので寝よう…

>353
デリミタを使う。
1<>あいうえお
2<>かきくけこ
・
・
・
とする。
これを配列に読み込んで、、たとえば、@linesに読み込んだとしたら、
foreach (@lines) {
　($number,$text) = split(/<>/,$_);
　if ($number eq "目的の番号") {
　　print "番号は$numです。内容は$textです\n";
　}
}
こんなかんじになるわけ。

FAQだと思うのですが
LinuxにPerlがインストールされているかどうかを
確認するには簡単にはどうするのでしょうか。

そのpeｒｌのVersionも表示させれると
うれしいのです。

よろしくサンクスコ

>355
コマンドラインから、
perl -V

ありがとうございます。m(．＿．)m ペコッ

>open (SENDMAIL, "| $nkf | $sendmail -t -n") || die;
上記の部分を以下の様にすると、無事エンコード処理されました。
open (SENDMAIL, "| $sendmail -t -n") || die;　#$nkfを外しました

結果的に解決はしたのですが、何が悪かったのかが分かっていません。
そもそも上記の箇所はいつもメール作成部分の定型的に使用していたの
で、nkfがどんな役割を果たしているのか、なぜnkfが絡むとエンコードさ
れなかったのかがわかっていません。
（ちなみにnkfは冒頭で $nkf = "/usr/bin/nkf -j"; と定義しています）

何が悪かったのでしょうか？

@EXPORT, @INC は何を意味して名前を付けたのかわかるのですが
@ISAって何の略なのでしょう？

@EXPORTはそのまんま。
@INCはIncludeかねぇ。
@ISAはISAバスしか思いつかない・・・。

is a と読めば良いでしょう

>>361
なるほど。

>>361
継承元と。
へぇ。

困っているわけではないのですが、ちょっと質問です。
IPの桁を
「0.0.0.0」→「 0. 0. 0. 0」
こんな風にそろえるプログラムを作ってみたんです。
で、この桁をそろえる部分でどれくらいのロスがあるのかなと思って、２種類のプログラムを組んで試してみました。

プログラム「い」
($ipa , $ipb , $ipc , $ipd) = split(/\./, $remoteadd);
if ($ipa < 10) { $ipa = " $ipa"; }
elsif ($ipa < 100) { $ipa = " $ipa"; }
if ($ipb < 10) { $ipb = " $ipb"; }
elsif ($ipb < 100) { $ipb = " $ipb"; }
if ($ipc < 10) { $ipc = " $ipc"; }
elsif ($ipc < 100) { $ipc = " $ipc"; }
if ($ipd < 10) { $ipd = " $ipd"; }
elsif ($ipd < 100) { $ipd = " $ipd"; }
$ipadd = "$ipa\.$ipb\.$ipc\.$ipd";

プログラム「ろ」
@ip = split /\./, $remoteadd;
if ($ip[0] < 10) { $ip[0] = " $ip[0]"; }
elsif ($ip[0] < 100) { $ip[0] = " $ip[0]"; }
if ($ip[1] < 10) { $ip[1] = " $ip[1]"; }
elsif ($ip[1] < 100) { $ip[1] = " $ip[1]"; }
if ($ip[2] < 10) { $ip[2] = " $ip[2]"; }
elsif ($ip[2] < 100) { $ip[2] = " $ip[2]"; }
if ($ip[3] < 10) { $ip[3] = " $ip[3]"; }
elsif ($ip[3] < 100) { $ip[3] = " $ip[3]"; }
$ipadd = "$ip[0]\.$ip[1]\.$ip[2]\.$ip[3]";

この二つを、

while (--$kurikaesi){
}

の中に入れて1000000回（爆）繰り返してベンチマークした結果、プログラム「ろ」の方が約１秒も速いという結果を得ました。
速いのはいいんです。それはいいんですが、なぜ配列を使っただけで処理速度が上がったのかがわかりません。
これはなぜなのでしょう？

>>364
sprintfとかじゃだめなんでしょうか？

しつもーん
(1)配列をある文字列で検索して、その配列の番号を調べる。
(2)配列の任意の位置に要素を代入(追加)する
(3)配列をCSVデータ(ｶﾝﾏ割りﾃｷｽﾄ)に変換する。

上の事をforeachなんかを使って配列の要素をｸﾞﾙｸﾞﾙ一個一個
調べて実現する事は出来るんだけど・・・もっと効率的なやり
方があるような気がしてならない・・・。

(2)はつまり
@ary[0]="A";@ary[1]="C";@ary[2]="D";を、いかにして
@ary[0]="A";@ary[1]="B";@ary[2]="C";@ary[3]="D";
にするかって事なんだけど・・・簡単？

>366
@ary = (@ary[0 .. 1] , $newdata , @ary[2 .. $#ary]);
とかいう方法は？

>>366
とりあえず(2)だけ
splice @hoge, 1, 0, 'B';

続けて(3)
こういうことかな？
join ',', @hoge;

(1)は普通、ぐるぐる回すしかない。

>>367
なるほどぉ、そういう風にするのかぁ。
できました、できました。ありがとうございます。

>>368
あっ、こんなやり方も・・・これから試してみます。
ありがとうございます。

>>369
そんなに簡単に・・・試してみます。

すごい！！>>369>>368できました。なんて簡単なんだ！

(1)はやはりｸﾞﾛｸﾞﾛ回すしかないんですね。

(1)はこんなのいかが？
my @hoge = qw(hoge fuga foo bar);
my $i;
print join " ", map { $_->[0] } grep { $_->[1] =~ /f/ } map { [ $i++, $_ ] } @hoge;
#=> 1 2

でもBenchmarkとったらforで回した方が早いな。
インデント崩れるかな。

use Benchmark;

timethese(10000, {
A => sub {
my @hoge = qw(hoge fuga foo bar);
my $i;
my @res = map { $_->[0] } grep { $_->[1] =~ /f/ } map { [ $i++, $_ ] } @hoge;
},
B => sub {
my @hoge = qw(hoge fuga foo bar);
my @res;
for (my $i = 0; $i <= $#hoge; $i++) {
$hoge[$i] =~ /f/ or next;
push @res, $i;
}
},
});

foreachで回すのが一番早そうな予感・・・・・・・

>>373
ｽｺﾞ！ここまでになると僕には記号の羅列にしか見えませんが
出来ました。

う＝ん。perlは深すぎる。

>う＝ん
めっちゃなごんだ

>>354
えと、これを実行したところ、
($number,$text) = split(/<>/,$_);
の行でエラーが出ました…。
何か変えないといけないんでしょうか…。

>378
まさか全角スペースそのままでコピペとかしてないよな？

>379
それだな・・・・

>378
インデント使えないから全角スペースはいってます。
半角スペースに直して下さい。

あ…全角になってました…。
半角にしてやったらうまく動きました。
今度こそ…。

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

...と、和ませついでに聞いてみる。

僕のような初心者がもう一歩踏み出す為の本ってなんかお
勧めありますか？

あと、思うのは英語がわかれば、プログラム言語の収得の
時間は半分くらいに短縮できるんじゃないだろうか？文献
もｲﾊﾟｰｲあるし、そもそも構文が英語だし、その点日本人っ
てかなり不利な様な・・。

関係ないけど今、Apacheの設定してんだけど、もう、この
ｺﾒﾝﾄがｽﾗｽﾗ読めたらどんなに楽だろう・・・と・・・
ふ＝。

>>382
そんな君の為に http://www.scripts-lab.co.jp/qa/whatsmind.html

↑
絶対に、わかりずらいぞ。
日本語記述プログラム

open(FILE, "<$FilePath");
while (read FILE, $_, 1024) {
  unless ($Count % $DivSize) {
   $FCount = sprintf("%04d", ++$FCount);
   open(OUT, ">${FileName}_$FCount$AddExt");
   binmode(OUT);
  }
  print OUT $_;
  $Count++;
}

これは $DivSize に 500 とか指定して指定KB単位で
ファイルを分割する(昔DOSで使っていたkitcutみたいな)のですが、
Active Perl for Linuxでは期待通りに動くのに
Active Perl for Win32(Win98SE)では失敗します。

直接の原因は読み込むファイルに"0x1A"があると
そこで処理が終了してしまうようですが、
なぜそうなるのかは分かりません。
Windows系OSでも正常に動かすにはどうすればよいのでしょうか？

ハッシュの値に配列を登録することはできるのでしょうか？

my @array;
my @some_array = (1, 2, 3);
%hash = {'key' => @array};
for (@some_array){
　push $hash{key} $_;
}
print $hash{key}[0]; #出力は「1」

となるようにしたいのですが、「push $hash{key} $_;」ここで
compilation errorが出てしまいます。

希望通りの結果を出すにはどのようにすればよいのでしょう？

my @some_array = (1, 2, 3);
my %hash = ("key" => \@some_array);
print $hash{"key"}[0];

#!/usr/local/bin/perl -w
↑の-wはどういう意味なのでしょうか？

>>388 検索しろやボケ（ｗ ←の"ｗ"と同じ。

ちなみに
#!/usr/local/bin/perl -ﾌﾟ

にすると警告メッセージの文体がうざくなります

>388
ワーニングのwだよ。

どんなキーワードで検索するのですか？
マジ質問なんですが。-wはキーワードにならないもので。

がんぼれ

http://www.google.com/search?hl=ja&q=perl+%83X%83C%83b%83%60+w&lr=

なるほど、「スイッチ」ですか。ありがとうございます。

正直 man perl / perldoc perl ぐらい見ろやボケ と言いたい。タダの教えて厨じゃん。

ﾏﾀｰｿ光線　　しびび(以下略

ユーザーに一時的にユニークなIDを付加したいのですが、
何か定石になっている方法等はないでしょうか。

ヤフーオークションで、幻の人気商品、発見！！！

今は無き「コピーガードキャンセラー」↓
http://page5.auctions.yahoo.co.jp/jp/auction/e5843828

ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。

>397
$$

400

>>385
これは、0x1A(=^Z)がDOSでEOFだったという歴史的経緯によるもの。
純粋に入力をバイナリとして扱うには、FILEについても
openの直後にbinmode(FILE)とすることで解決するはず。

>>399
やはり$$が定石なのですね。
ありがとうございました。

自作のPerlモジュールを@INCのパスに
置かずに、使用する方法はあるのでしょうか？

>403
use lib

>403
ていうか、モジュール自作できるのに、そのモジュールの使い方がわからないなんて事あり得るのだろうか？

ゴメンよ、お馬鹿で。でもあり得るんだよ、実際ココにいるから。

で、
use lib '/path/to/my_module_dir';
を加えたら、とりあえず動いたんだけど、
use lib 'ディレクトリパス';
とすれば @INC にここで指定した'ディレクトリパス'が
加わったのと同様と考えていいのですか？

use lib "/path/to/dir";
print @INC;

で分かるだろが。自分で調べろヤ。

ﾏﾀｰｿ光線　　しびび(以下略

>>401
ありがとうございます。
入力側もバイナリモードにすることにより期待通りに動きました。
出力に関しては以前引っかかったことがあったので
気にしていたのですが入力も、とは・・・やられました。

>ﾏﾀｰｿ光線　　しびび(以下略
これって教えて君を増やす為なの？

SSHでログインして「use benchmark;」を使ってベンチマークをするのは出来たんですが
これって、ブラウザからは出来ないんですか？500エラーになるんですが…。
結果の数値を表示させるにはどうしたら良いでしょう？

jisコードの数字(ISO2022-JPの文字列ではなくて、文字をあらわす
文字コード、例えば「あ(2422)」の2422という数字)
をEUCの文字に変換して出力するにはどうしたらよいのでしょうか？
print &convert(2422);
(表示)
あ
見たいな感じにしたいんですが・・・。

> 411
use benchmark; ⇒ use Benchmark;

>>412
packを使ってみ

質問なのですが

Perlで、配列を一つのスクリプト内で何度も再利用することで、
その都度、別の名前の配列を複数作る場合に比べて
メモリ消費は低減できるのでしょうか？

formからpostで受け取ったデータを
ハッシュにして…ってところ何ですけど。

require './cgi-lib.pl';
&ReadParse(*form);

$A1="$form{'A1'}";
$B1="$form{'B1'}";
$A2="$form{'A2'}";
$B2="$form{'B2'}";
$A3="$form{'A3'}";
$B3="$form{'B3'}";
・
・
・
$A50="$form{'A50'}";
$B50="$form{'B50'}";

っていう感じにしたいんです。
まあ「動く」ってだけなら気合いで書けば問題ないんですけど、
ループとか使ってきれいに書く方法を教えていただきたいのです。

どうもループは苦手でして。。。よろしくお願いします。

>416
while (($key,$value) = each(%form)) {
    $$key = $value;
}
なんのためにこんな事をするんだろう？・・・・

>>414
情報ありがと。漏れの検索が甘かったです。すんません。

３月２４日〜２７日に立命館大学ＢＫＣに田中洸人氏が来ます。
http://210.172.69.179/jps_search_02au
http://nara.cool.ne.jp/mituto

うんこ発見!!!

>420
いいようんこ見つけたくらいでいちいち騒がなくて。
小学生じゃあるまいし。

あーあ、みつかっちまった。(誰に?!)
厨房だからっていじめないでおくれよ。
頑張ってプログラミングしてます。

以下のようなtest.plを作って実行すると
config.txt did not return a true value at test.pl line 4.
と言われてしまいます。しかも
print "$board\n";以下が表示されません。
どうしたものでしょうか。

config.txtに
$board = "文字列01";
$dir = "文字列02";
$limit = "文字列03";
$down = "文字列04";
を書き込んでいます。


======test.plの内容======
#!/usr/bin/perl -w

if ($#ARGV < "0") { print "[ERROR]\tUsage: perl test.pl config.txt\n"; exit; }
if (-e $ARGV[0]) { require ($ARGV[0]); }
if (!defined($board) || !defined($dir) || !defined($limit) || !defined($down)) {
print "[ERROR]\n";
exit;
}

print "$board\n";
print "$dir\n";
print "$limit\n";
print "$down\n";

>423
config.txtのお尻に
1;
と書いてみる。

my $sentence = '今日は29日だ。01:05分';

if ($sentence =~ /([\d]+)/) {
$sentence .= "\n・$1";
}

print $sentence;

この結果
> 今日は29日だ。01:45分
> ・29
が出力されますけど、
いくつ含まれているか判らない数字列を全部取り出して、
それを全部後ろにくっつけて、
> 今日は29日だ。01:05分
> ・29
> ・01
> ・05
と出すにはどうすればいいでしょう。

while($sentence =~ s/([\d]+)//) {
$sentence .= "\n・$1";
}

間違えると無限ループになるから注意。

tu-ka,自分で間違ってるじゃん。

$sentence2 = $sentence;
while($sentence =~ s/([\d]+)//) {
$sentence2 .= "\n・$1";
}

my @number = $sentence =~ /\d+/g;
$sentence .= join "\n", '', map { '･' . $_ } @number if @number > 0;

"20020129012155"という文字を
$yyyy = "2002";
$mm = "01";
$dd = "29";
$h = "01";
$m = "21";
$s = "55";
こうしたいんですが、スマートなやり方はないでしょうか？
今は
@date = split //,$date;
for (1..4) {$yyyy .= shift @date;} for (1..2) { $mm .= shift @date;}
こんなのを書いてるんですがいかんせん汚い・・・

/^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/

あんま奇麗じゃないか

>>430
いや、充分綺麗（ﾜﾗ

ああ、なるほど、マッチさせればいいのか・・・
ありがとうございました。

>>429
unpack ('A4A2A2A2A2A2', $str);

>>426-428
かなり助かりました。ありがとうございました。

再び質問させてください。
htmlファイル中にある&を%44になおすプログラムを作っているのですが
そのファイルの中には&が８個あって１番目の＆だけを修正したいのです。
#!/usr/local/bin/perl

while(<stdin>){
s/&/%44/o;
print;
}
上記の状態から修正したいのですが、どうしたらよいでしょうか？？

私のやり方だと８個の＆すべて％２４に変わってしまいます。
色々やってみたのですがうまくいきません。
おちから貸してください。

#!/usr/local/bin/perl

while(<stdin>){
unless ($this_scalar_means_flag == 3.14159265358979){
$this_scalar_means_flag = 3.14159265358979;
s/&/%44/o;
print;
}
}

一秒たりとも自分では考えたくないんだね　　:-)

すみません。単純に勉強不足です。
わたしなりには考えたのですがどうしてもうまくいかなくて。。。

ところでgunzipさんのサイトってあるの？
以前作ってるとか聞いたことあるんだけど。。

>>440 スレ違い

>437　ﾁｮﾄ感動。　ﾀﾉﾁｲ。

馬鹿発現なのは100も承知。

$iのiとはなんのi？
あと$1とか……
色々しらべてみても、これ？　つーのが。

あぼーん

>443
どれにレスしているのか引用しなさい。
わからないことが馬鹿なんじゃなくて、他人に自分の意志を
伝えられる文章を書けないのが、馬鹿。

>443
言ってる意味がよくわからないが、
$1とかに関しては正規表現の際に使う特別な変数。
http://tohoho.wakusei.ne.jp/wwwperl1.htm#Expr

$iのiってのは、プログラムの世界で、一時的なカウントの変数とかに
一般的にi、j、kなどが使われる理由を知りたいって事？
こっちに関しては俺も知らないからなんとも言えないけど。

>>445
すんまへん。引用じゃなかったんで。

>>446
＞一般的にi、j、kなどが使われる理由を知りたいって事？
そ、そういうことです（苦笑）。
vは valueなのかな、とオボロゲにゃー思うんですが。

>447
i はイテレータの頭文字じゃないかな？

www.ruby-lang.org/ja/uguide/uguide09.html
これのことですかね？

よろしくお願いします。
open(DAT,"foo.dat");
@foos = sort <DAT>;
close(DAT);
foreach (@foos) {
print;
}
これだとファイルが大きいとメモリを使いすぎるみたいなのでやめようと思って、
下のように書き直したんですが
open(DAT,"foo.dat");
foreach (sort <DAT>) {
print;
}
close(DAT);
この場合も結局、一旦<DAT>を全部読み込んでからsortしてるんでしょうか？
@foosにコピーしないだけマシですか？

たいしてかわらん

そうですか。。。
じゃああまり気にしないことにします。

perlで、ファイルリストを渡すと、そのファイルの中の
特定文字列を置き換える、という処理をしたいのですが
どうしたらよいのでしょうか？
a.txt
b.txt
c.txt
と渡すと、
a.txtのmonaをgikoに、
b.txtのmonaをgikoに、
c.txtのmonaをgikoに、置き換えるという処理をしたいのです。

環境はWindowsです。しょぼん。

perl -p -i -e 's/moga/giko/g' a.txt b.txt c.txt

>455さんありがとうございます。最後のa.txt b.txt c.txt部分が
リストになって渡されるのです。
Linuxみたいに`cat list`とかできるとよいのですが…

cat list | perl …ではだめですよね。なんかだめっぽいです。
やりかた間違ってるんでしょうか？

>455
Can't do inplace edit without backup.

>457
Windowsにcat入っているの？

cat list | xargs perl -i.bak -p -e 's/giko/mona/g'
だけど。今思ったらWindowsなんだね。
じゃあ、自分でファイルオープンして置換しながらtmpファイルに出力して
renameで。

catじゃなくてtypeでした>>457 でもどのみちだめっぽいですね。
1行ずつ「exec perl」で呼び出すってのはだめでしょうか？
type list | perl -e "while(<>){exec \"perl -e's///'\"}みたいに
やってるんですが…うううむ

@files = ('a.txt','b.txt','c.txt');
foreach $file(@files) {
     @DATA = ();
     open(FILE,"$file");
     while (<FILE>) { $_=~ s/mona/giko/g; push (@DATA,$_); } close (FILE);
     open(FILE,">$file");
     print FILE @DATA;
     close (FILE);
}

perl -p -i.bak -e "BEGIN{chomp(@ARGV=<ARGV>)} s/mona/giko/g" list.txt
ってのはどうかな。何故かlist.txtが破壊されるけど。

perl -p -i.bak -e "BEGIN{chomp(@ARGV=<>)} s/mona/giko/g" <list.txt
なら破壊されないか。

なるほろ！いったん配列にいれるのですか。ありがとうございます。

・・・・・・・

ワラタ

>467
ひどいや。

気分を害したならあやまる。スマン。 おれは462の466のコメントがうまいなと思っただけで、
別にけなしているわけではない。ある意味、逆にリスペクトだよ。

>>433
ありがとうございました。
unpackって使った事がないので他にも色々試してみます。

>469
いえいえ、そうでもないです。
ていうか、コピペにでも見られたのでしょうか？マジに手打ちでちこちこ書いたのに
見事な放置っぷりで悲しくなりました。動作確認までしたのに。
どうしてでしょう？
やっぱ、一行目に
#! /usr/local/bin/perl
書かなかったのが敗因でしょうか？(笑)

ディレクトリー名を変更するにはどうしたらいいの？

>472
リネームする。

>>473
スミマセン
perlでって意味です。

>474
perlでリネームする。

レンタル鯖　UNIX　LINUX
どこも、板違いに思えたので、
こちらで質問させてください。

CGI(Perl)を自作していて、
＠Ｌｉｎｅｓに、文字列を埋め込んで
（HTMLの文法に沿った文字列です）
print "@LINES";
この処理を、ＡのサーバーとＢのサーバーで実行した場合、
表示できるＡのサーバーと表示できずにエラーとなるＢの
サーバーがあります。

これは、物理的なメモリーの不足が問題でしょうか？
Apacheの設定の問題でしょうか？
次回、Ｃのサーバーをレンタルする場合に、
上記のエラーを回避できるサーバーを選択するには、
何を確認すればいいのかわかりません。。。
どうか教えていただきたいです。

ちなみに、@LINESを出力できないって問題は、
foreach $temp(@LINES){
print $temp;
}
これで、クリアしました。

また、foreachで一行ずつ、書き出す場合と
@LINESで一気に書き出す場合で
サーバーにかける負担と
プログラムの処理にかかる時間についても
ご教授いただければ、幸いです。

よろしくお願いします。
長文スイマセン。。。。

>476
それぞれのサーバの環境、特に導入されているperlのバージョンなどが
わからなければ何とも言いようがないけど、このケースでは全く
Apacheは関係ないし、メモリの実装量も、あまり関係あるとは思えないな。
オーバーフローでも起こしていない限りスワップしてでも実行するだろうし。

perl単体の問題だと思います。

>474
$souce_dir = "test"; # リネームしたいディレクトリ名
$dist_dir = "test1; # リネーム後のディレクトリ名
`mv $souce_dir $dist_dir`;

>477
ご回答ありがとうございます。
失敗したＢのサーバーのPerlのバージョンを
調べてみます。

@LINESで一気に書き出す場合と、
$LINESで、一行ずつ書き出す場合については、
Per単体の問題がない場合は（エラーで落ちない場合）
@LINESの方が高速に動作すると考えても良いでしょうか？

>479
foreachの行程分だけ早いだろうけどね。
微々たる問題だとは思うけど。

>480
ご回答ありがとうございます。

スワップファイルをHDに書き出す可能性や
サーバーにかける負担を考えると
foreachの方が良いってことですね。

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

>481
ううん、逆です。
foreachのほうがその繰り返しの行程分
リソース食うって意味です。
でも多分本当に微々たる問題だと思います。

たとえば、今日から30日後の年月日を算出すると
いった場合どうしてます？。なんかカレンダーの
テーブルとか自作しなくちゃいけないとか？

随分前から悩んでるんですけど・・。

>483
localtime(time + 30*24*3600);

"@LINES"だと文字列をつくるんでリソース食わないか? あと、print foreach @LINES と print "@LINES"は$"によっては、
結果が違ってくるね

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

[簡単な暗号化]

cryptのような暗号化されたものを、元の状態にもどせない
ものではなくて、

任意のキーを与えて文字列を暗号化して、またそれをその
のキーで元の文字列に復元できる。

なるたけサーバーに付加がかからない。

って何か方法があるだろうか？

もしくはもっと簡単でもいいので、今思いつく方法としては
文字コードに変換して幾つかずらして暗号化するって方法ぐ
らいかな。

>>487
その辺がお手軽では？
全く強度を気にしないならBASE64辺りでも良いだろうけど。
少し凝るなら文字コードに変換したのをKeyで作った変換テーブルで
変換すると云う手も有る(テーブルを作る都合上処理は大きくなるけど)。
或いは適当な(数学で云う)関数を作ってKeyにより係数を変動させる。
その関数に文字コードから変換した数を代入し値を出し、適当に文字に
変換なんて手もあるかも(この場合計算誤差が出ないようしなけりゃ成らない…)。

ぱっと考えたものだと上記くらいですね。
処理の重さは…知らない(笑)。
暗号強度と暗号化の複雑さは大体天秤の関係で状況に拠るから一概には
どれが良いっては言えないのは当然だから難しい問題かもしれないけど。

ちなみに自分は新たにアルゴリズム考えるのめんどいからCPAN辺りからモジュール
拾ってきて組み込んだなぁ…。

あれ？このコードが動かないんだけど、もしかしてオレ何か勘違いしてる？

#!/usr/bin/perl
use 5.6.1;
use FreezeThaw 0.41, qw(freeze thaw);
my $a = thaw freeze ['Anon_Array_ref' ];
print ref($a) ? "ok\n" : "not ok\n";
__END__

age忘れ。
動かないっつか「okにならない」ね。

$a がリファレンスじゃないからじゃねーの？

>>491 そりゃちょっと教え方が不親切じゃねーの。
>>489 thaw の返値は配列なので、リストコンテキストで受ける必要あり。

ガーソ…そんな単純なことだったとは…。
>>491 >>492
ありがとう。

>>492
ｽﾏｿ。俺はFreezeThawとか言うﾓｼﾞｭｰﾙ知らんから
>>491程度しか分からんかったんだよぅ。

>>488
ご返答ありがとうございます。
そうですね、どっかでモジュール拾ってくるのが得策かも。

ちょっと昨日帰りの電車で考えたのは、文字列をランダム
に配置しなおして、その位置情報をキーとして解読する方法。

つまり、文字列「abcde」を「53124」というキーで再配置する。
暗号化された結果は「ecabd」になる。解読はそれをキーの位
置情報で並べ替える。16進数使えば16文字まで可能だし。たぶ
ん簡単そうだ。

まぁ、わかるヒトがみれば３秒で解読できるだろうけど(ﾜ)、
この辺が簡単でいいかな。

#!/usr/bin/perl -w
use strict;

open(FILE, "filename");
foreach (<FILE>) {
　　print "$.: $_";
}
close(FILE);

これを実行したら、filenameの行数が40行だとすると、
$.が全部40になるんですが。

>>496
while(<FILE>){

foreach はループに入る前に
リストを全部用意する（この場合ファイルを全部読み込む）からね。

ファイルの末にデータを付け足す事はできる。
じゃぁ、データを削る事はできるか？ゴメンねむいんだ。
初心者が生意気にも掲示板作成中。いいやねよう。
おやすみ。

htmlソースから、<htmlタグ>ほげ</htmlタグ>を抽出したい(perl)と思ってます。
で、こういう話題（途中改行にも対応とか云々・・・）をあつかったサイトが、有名どころの
どこかにあった気がするのですが・・・
ご存じないですか？

あのPerlスクリプトを書くのに文字コードはEUCが良いといわれてますが
EUCのメリットって文字化け対策（\回避）がいらないだけですか？
その他にS-jisよりも優れてる部分ってあります？

>>500
それだけあれば十分だろ。

>>499
ここかな？
http://www.din.or.jp/~ohzaki/perl.htm

>>500 も行ってみると役立つと思うよ。

なるほど。ありがとうございました。

指定したＩＰアドレス以外は別ページへ飛ばすにはどうしたらいいですか？

早く教えろよ

if(指定したIPアドレス以外){
別ページに飛ばす
}

>505
お前が常時監視して手動で誘導しろよ。

a.pl
として、
#!/usr/local/bin/perl
print "sine";
と書きました。そして、サーバーにアップして、
chmod 755 a.pl
で、絶対パスで、実行した所
[homepage@sv ~]# /home/homepage/a.pl
/home/homepage/a.pl: Command not found.
と出てきます。
ファイルは、あるのに、コマンドは無い...って
どうしてですか？

>508
/usr/local/bin/perl -V
とかやってみれ。

>506
ﾌﾟ
早く教えろよ
わかるやついないのか？

>507　
はぁ・・・・低脳。
いいから早く教えろよ

こんなに、長いのが出てきました。
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
Platform:
osname=linux, osvers=2.2.18-1.6, archname=i386-linux
uname='linux dhcp-115.jp.tlan 2.2.18-1.6 #1 tue feb 13 04:54:12 utc 2001 i686 unknown '
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef useperlio=undef d_sfio=undef
Compiler:
cc='cc', optimize='-O2', gccversion=2.95.2.1 19991024 (release)
cppflags='-Dbool=char -DHAS_BOOL'
ccflags ='-Dbool=char -DHAS_BOOL'
stdchar='char', d_stdstdio=undef, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
alignbytes=4, usemymalloc=n, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
libc=, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl):
Built under linux
Compiled at Feb 16 2001 06:49:02
@INC:
/usr/lib/perl5/5.00503/i386-linux
/usr/lib/perl5/5.00503
/usr/lib/perl5/site_perl/5.005/i386-linux
/usr/lib/perl5/site_perl/5.005

>512
そしたら、
perl /home/homepage/a.pl
ってやってみそ。

ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!
動きました！！！！
何だったのでしょうか？

PerlでファイルアップロードCGIを作りたいのですが、経験がないのでセキュリティなどで不安です。
参考になるフリー配布のスクリプトがあったら教えてください。

>515
http://www.google.co.jp/search?q=%83A%83b%83v%83%8D%81%5B%83h%81@perl%81@CGI&hl=ja&lr=

ＥＲＲＯＲ：スレッド立てすぎです。。。

ホストntttkyo050192.adsl.ppp.infoweb.ne.jp
WebProg板のみんなで作ろうよ！
名前： 名無しさん＠お腹いっぱい。
E-mail： age
内容：
まず、WebProg板謹製アップローダーとか、どうでしょ？

>>517
よかったら，このスレ使ってください。
学習用にCGI書くスレです。

【CGI】合同開発室
http://pc.2ch.net/test/read.cgi/php/1001950501/l50

あぼーん

>>476
おそらく、Perl5の""内での@の解釈が変わったことによるものだと思う。
出力されないといっているほうは、そのまま"@LINE"という文字列が
出力されいないか？ もしそうだとしたら、Perlがversionが古い。

で、print "@LINES"; の代用として foreach $temp (@LINES){ print $temp }
で問題ないのなら、素直に print @LINES; としとけ。

@LINES @Lines どっちだよ。

こんにちわ、perlの事で他スレから誘導されてきました
マルチポストですが質問させてください。
以下のスクリプトですが

　#! /usr/bin/perl 　# お約束
　# 私のスクリプトそのままです（編集はしてません）
　$TMP = 10 ** 10; 　# $TMP　に10の10乗を代入
　$X = 10; 　# $X　に10を代入
　while ($TMP) 　# $TMPが0になるまで繰り返し処理
　 {$A = --$TMP % $X; 　# $TMPの値を-1し、$Xの剰余を$Aに代入
　 print "$A $TMP \n";}# 処置した値を画面に表示


上記のスクリプトですが、表示される$Aの値が変化しません
5 999999999
5 999999998
5 999999997 ......

$Xの値が１だと$Aは0で固定
$Xの値が２だと$Aは1で固定
$Xの値が３だと$Aは0で固定
$Xの値が４だと$Aは3で固定
$Xの値が５だと$Aは0で固定
$Xの値が６だと$Aは3で固定
$Xの値が７だと$Aは3で固定
$Xの値が８だと$Aは7で固定
$Xの値が９だと$Aは3で固定

私の知識が正しければ、$TMPの値を$Xで割った余りの数値が表示され
1行ごとに値が変更されると思うのですが。。。

どこか間違っているのでしょうか
識者の皆様、ご回答をお願いします

>522
10**10じゃなくて10**3から試してミソ。

>>523

返答ありがとうございます
早速10**3で試してみたところ、期待通りの動作が確認できました
（10**9まで、動作が確認できました）
どうやら値が大きすぎたようです
でも、$TMPの数値は整数で表示されているのに・・謎だ。

助かりました

FLASH板住人用アップローダを作ったのですが、頻繁に503がでてしまい困っています。
http://www.th-ladybird.co.jp/flash/

回避方法として、ftpでUPするものを作ろうと思うのですが、それって可能でしょうか？
当方UNIXのコマンドほとんどわかりません。

上記の製作可否や、503の回避方法、それらの教材サイト、教本、等ありましたら教えてください。

503 Service Unavailable なんてあまり見ないな。
ソースを見なきゃ何も言えないね。

普通にpostからうけとって、エンコードして、エラーつけてるだけです。
http://www.th-ladybird.co.jp/flash/upload.txt

>>525
もう少し症状を詳しく書いてくれると助かるんだが･･･
Unavailableはどんな時に出るの?
適当に解釈すると、ファイルサイズが大きくなるとUL途中で
コネクションが切れると言う事かな
だとしたら、99%サーバサイドの問題なのでどうしようも無いんじゃ
ないかな。
後の1%は説明が面倒なので省略　ｗ

で、FTPならanonyで開放する事になるんだけど、作ると言うか開放して
おしまいなので、何の知識も要らないでしょ
ただ、今時そんな危ない所は誰も使わないと思うよ
最近はExecutableなflashが問題になってたりするし、怖くて見れないよ

あ、FTPってWEBでULした後にスクリプトからFTPしたいと言う事かなあ
だったら全く意味が無い。
HTTPDがリクエストを処理をする段階でヘバってるんだから
試しに何秒位で死ぬか実験してみればよく解るよ

>>527
503で見られなかった。
サーバーの負荷が高いだけじゃない？

症状は、
UP容量は5,000,000バイトでしばってあるんですが、とりあえずテストでは、UP途中でオチたことはないです。
UPはできるのですが、ファイルUP後ほぼ必ず503がでてしまいます。

チャット設置なんかを禁止しているので、サーバが弱いのは間違いないのですが、なんか回避できないかなと。
ここのレスはチェックしつつ、>>529を勉強してみます。

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

ちなみに、ここからかりてます。
SAKURA.AD.JP // SAKURA INTERNET
http://www.sakura.ad.jp/

>>527
なんつーか、いかにも"素人が書きました"っつー感じのスクリプトだな。

プログラムって物自体これが始めてのまぁ素人ですから。
大目に見てください。

すみません、もしかして、オレ勘違いしてますか。
初心者スレじゃなくて、素人スレ探して聞くべき質問ですか。

>527にアクセスした時にも１回503が出た。
アクセス数か転送量かどちらかが一定以上になるとストップかけられるとかは？
鯖業者に聞いた方が早くない？

>>536
ありがとう。そうしてみます。

あのー、超初心者の質問なので気がひけるのですが、
ジオシティーにＨＰをなんとか作ることができたのですが、
掲示板を設置したいなとおもって、フリーソフトのＢＢＳをダウンロードして
使おうとしたのですが、Perlへのパスがわからなくて、行き詰まっています。
ジオシティーのパスを知っているもしくは
どこに行けばわかるか知ってらっしゃる方、よろしければ教えていただけませんでしょうか。

スレ違いだよ
GeocitiesってPerl使えないんじゃないの?
FAQ探して読んでみるべし
「CGIは使えますか?」とか有るから

>539　
ありがとうございます。
そうなんですか、ちょっとがっかりです。
間違ってスレに書き込んでしまってすみませんでした。

>>537
sakuraはサーバ負荷が高くなると、そのエラーを返します。
業者に聞くまでもなくFAQに載ってますよ。
回避策はまぁ、負荷を小さくするしか。

そもそも共用鯖で503が出るほど使うなｺﾞﾙｧ。
1日辺り数万アクセス、ギガ単位の転送量あるはずだぞ。
503だとおそらく転送量の方だと思う。ここら辺り見てくださいな。
http://xxxxx.sakura.ne.jp/log.html　xxxxxxは自分所のサーバ名
http://www.sakura.ad.jp/support/web/errmsg/err-web.html

perlのCGIからperlのバージョンって調べられるっけ？

open(PIPE,'/usr/local/bin/perl -v |');
print <PIPE>;
close(PIPE);

$]

>>543
すいません。いっぱい出てきました。

print `/path/to/perl -v`;

>>545
さぁ！そこで正規表現の出番だ！

ッテ言うか>>544さんを試してください。。。

$]
ないし
perl -V:version

>>544
$]は、書き間違いかと思ってしまった・・
だんだん自分が嫌になってきた(鬱

ｶﾞﾑﾊﾞﾚｰｗ

他人のＨＰに張ってあるリンク数を自動的に調べて書き出すスクリプト
を教えてもらえないでしょうか？

Ａさんのページは○個のリンクが張ってあります。
Ｂさんのページは○個のリンクが張ってあります。

という具合にしたいのですが。。。

以前Web制作で聞いてらっしゃいましたね。

$linknum=scalar /(<a)/sgi;

Tスイッチを付けると @INCの価が変わるんですが（ .がなくなる）
そんなもんなんですか？
5.005_03です。

そんなもんですと言えば良いのか?　ｗ
カレントをコマンドサーチパスに加える事の危険性と
意味は同じだと思うが。

>555
Tスイッチについて調べても、 @INCについて触れているものがなかったので
@INCは自分の環境でしか変わらないのかなぁ思い質問しました。

> カレントをコマンドサーチパスに加える事の危険性
は知らなかったのですが、
カレントディレクトリにスクリプト内で使われているのと同名のファイルを
他人に勝手に置かれた時に、意図しない動作をする可能性があるから危険
ということですか？

>>541
それがですね。スナックのHPと上記アップローダだけおいてるんですが、
HPのほうは1日多くても20アクセス（内半分は従業員）ほどなんです。

>>556
>カレントディレクトリにスクリプト内で使われているのと同名のファイルを
>他人に勝手に置かれた時に、意図しない動作をする可能性があるから危険

その通り。

ついでに-T付けると$ENV{PERL5LIB}とかも無効になるから。

掲示板を作りたいのですが、
書き込みフォームは別に作る必要があるのですが
ログをとりたいのですが、
これだと入力したのを出力するだけの事しか出来ません。
誰か改造を・・・。
#!/usr/local/bin/perl

#データの受け取り
read( STDIN, $query,$ENV{ 'CONTENT_LENGTH' } );

@in_params = split( /&/, $query );
foreach $in_param ( @in_params ) {
( $key,$value ) = split( /=/,$in_param );
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack('C',hex($1) )/ge;
$param{ $key } = $value;
}

#結果の出力
print "Content-type: text/html\n\n";
print $param{ 'name' };
print "<br>";
print $param{ 'gimon' };
print "<br>";
exit;

>>559
意味がわからない。
説明もプログラムの意図も。

あ、ファイル！ファイル！

open

print

<>

close

など勉強して。

その前に日本語を勉強して。

日本語を勉強し終わったら常識を勉強して。

ゲームを作ろうとして頑張ってるんですが、
まず最初に、Login画面を出して、
個人の認証をおこないます。

その次に、その認証した人用に、常にHTMLを反映させたいのですが、
どうすればいいでしょうか？

たとえば、モナーという人がログインしたら、
常に、モナーという人を意識したページにしたいんですが。

誰か、教えてくださいませ。

>>563
cokkieで良いのかな？
$ENV{"HTTP_COOKIES"};
書き込み方は勉強して。

もしくは生成するページのリンクを

/path/a.cgi?name=モナー

として常にモナー用のデータを出力するようにするとか。

>>564
そうなんですよね。
クッキーでやるのがベストかな。

>もしくは生成するページのリンクを
>
>/path/a.cgi?name=モナー
>
>として常にモナー用のデータを出力するようにするとか。
これだと、誰かが不正に利用してしまいそうで、
（まぁ、パスワードも常に出力するというのもありだけど）
厳しいかなぁと。
他のログインを利用してるページを見ると、
この方法は使ってないようですし。

もうないけどrobotmailっ言うwebメールがこの方式。
もちろん暗号化＋httpsだったけど。

ふむふむ。

なんか、もっとスマートな方法はないでしょうか？
クッキーも拒否してる人がいないとは限らないし。

ヘルプミ〜

COOKIEの時点でガリガリにスマート。

そこまでする奴は君のサービスも迷惑と感じる人。

やはり、クッキーですか。

クッキー以外になにかあればと思ったのですが。
教えてくれて、どうもありがとうございました。

大変御無沙汰しています。教えていただきたいことがあります。
ＷＥＢはセミプロ程度、ＷＥＢ言語系は素人若干書き換え程度です。
現在、ボランティア系の団体で複数の応募フォーム、ＳＳＬＰＧＰクレジットカード引き落としなどを
使ったホームページを担当しています。
若干コーディングできる方から、簡易計算自動入力、曜日自動入力を強く勧められて以下の
スクリプトを頂きました。
曜日自動入力については、動作して入力欄がブランクでなく選択なので、安全上問題ない気がしますが、
自動計算に関して、動作もおかしく、それよりも入力欄ブランクで、タグその他
記述された場合、セキュリティ面でかなり不安なのですが、いかがでしょうか。
私個人としては、買物カゴ式の別ＣＧＩをあてる方が良いのではないかと思うのですが、
どうか教えて下さい。宜しく。 （長くて乗らないので一部除く）

<!-- saved from url=(0022)http://internet.e-mail -->
<HTML>
<HEAD><TITLE>簡単な入力検査の例</TITLE>
</HEAD>
<BODY>
<H3>簡単な例</H3><HR>
<FORM NAME="ValidForm">
5/18
<INPUT TYPE="TEXT" NAME="T0" SIZE="3">
人
<p>5/19
<input type="text" name="T1" size="3">
人</p>
<p>合計
<input type="text" name="T2" size="3">人</p>
<p>申込金（人数×2000円）<input type="text" name="T3" size="20">円</p>
<p>入金日　2002年<select size="1" name="D1">
<option value="1">1</option>
</select>月<select size="1" name="D2">
<option value="1">1</option>
</select>日<input type="text" name="T4" size="3">曜日</p>
<p>　</p>
</FORM>
</BODY>
</HTML>

すごく初歩的なことで壁に当たっています。
相対パスの記入の仕方で
../みたいなのってもっと..が小さくないといけないと思うのですが
どうやって打てばいいでしょうか？
よろしくお願いします。

>>571
あなたの質問に答えてあげたいけれど、
微妙に日本語の意味がわからないです。

でも、タグが心配なのであれば、
Perlの正規表現を使って除去すればいいのではないでしょうか？

>>571
情報が少ないのでなんとも言えません。
HTML・JavaScriptの話なら板違いです。

>>572
＞../みたいなのってもっと..が小さくないといけないと思うのですが
意味がわかりません。

>>572
フォントの問題だと思う
等幅とそうじゃないのだと点の大きさちがうから
どっちでもよい

２チャンの板みたいな掲示板が作りたいのですが
根本的なことから分かりません。
誰か無知な私を助けてください。

簡単に言えば掲示板の掲示板。
ほら、スレッドって一般的なサイトで一般的にある掲示板形式じゃん。

>>576
どうぞ。
http://piza.2ch.net/read4.txt

>578
それ Cじゃん

>>579

ほぼそのままで効率の悪いperlプログラムに変換できるでしょ。Ｃなら。

変数って普通に使ってると、
グローバル変数になりますが、
myとか使って、スコープを設定すると、
メモリーの使用量に変化は出ますか？

なるべく、my使ったほうがいいでしょうか？

メモリは同じ変数を使いまわす方が少なくすむはず。
しかしそれ以前の問題で、myを使った方がいいと俺は思うね。

初心者過ぎて話にならないと仰らずに
入門者のおいらにも教えて下さいな。
JAVAやクッキーがオフだと別のページに
飛ばしてしまう様なcgiってありますか？
これってcgiを使わなくてもできますか？

>>583
マルチ氏ね

http://pc.2ch.net/test/read.cgi/php/1009331505/547
　　547 名前： ：02/02/06 10:39 ID:PbQtpnzC
　　JAVAやクッキーがオフだと別のページに
　　飛ばしてしまう様なcgiってありますか？
　　これってcgiを使わなくてもできますか？
　　初心者過ぎて話にならないと仰らずに
　　入門者のおいらにも教えて下さいな。

http://pc.2ch.net/test/read.cgi/php/1003132904/877
　　877 名前： ：02/02/06 10:34 ID:PbQtpnzC
　　JAVAやクッキーがオフだと別のページに
　　飛ばしてしまう様なcgiってありますか？
　　これってcgiを使わなくてもできますか？
　　初心者過ぎて話にならないと仰らずに
　　入門者のおいらにも教えて下さいな。

Perl初心者です。
文字列前後のホワイトスペースの取り除き方を教えて下さい。
PHPだと、trim関数でできてしまいます。
例：$REPORT = trim($REPORT);

Perlでの方法を教えて下さい。
文字列の中の改行は残したいです。
よろしくお願いします。

$REPORT =~ s/^\s//;

for($REPORT){
s/^\s+//;
s/\s+$//;
}

>587さん
>588さん
出来ました。
ありがとうございました。
またよろしくお願いします。

すみませんGoogleで探せといわれると思いますが、
探したものは説明がないので参考にならないんです。
というわけで,質問させてください
ファイルアップロードスクリプトでファイルの制限（GIFとかJpegとか)させたいのですが、
どのようにすればいいかヒントをください。

>>590
スクリプトがないから何とも言えないけど
指定したファイルの拡張子以外のアップロードできないようにすれば？
そうするのはどうするのってのはスレ違いね。

>590
精度低いけど，ファイルのContent-Type見るとか。

>>591
スレ違いですか？　でも、このスレって初心者のスレでしょ？駄目ですかねぇ
どのスレ行っても
ここで聞くなとかいわるんだろうなぁ

>593
とりあえず>>1を読んで、１〜３をしっかりしよう。
そして君は「ヒントが欲しい」と言った。
>591はヒントを教えた。
それでいいだろ。

ウザーウザーウザー
スレ違いって所しか読んでないの？

>>591 ＞指定したファイルの拡張子以外のアップロードできないようにすれば？
>>590 ＞精度低いけど，ファイルのContent-Type見るとか。
この二つの提案に食いつく気はないの？

スクリプト改造工房 Part4
http://pc.2ch.net/test/read.cgi/php/1012839651/l50
スクリプトのソース持参して上記スレに移動しろ

>>590ってのは>>592の間違いね

>>595
うーん,もちろんそれは候補にあるんです。
それをかけないんですよね。
まぁ、こんな厨房じゃ書くなって事ですね。

>>594
ヒントを教えてもらったのは確かですので感謝しマース

たぶん、もう何度も話題にのぼってると想うんですが。。
今一どうすりゃ安心なのかわからないファイルロック。
掲示板のログファイルの保護の為にファイルロックする場合、
書き込む時に

open(IN, ">>$file");
flock(IN,2);
print IN "$data\n";
close(IN);

この程度で、十分役割を果たすものでしょうか？
ログファイルの読み出しの時にもロックってかけます？

またこのflockの汎用性はどの程度ですか、NTやらは抜かして

掲示版なるものを書いた事が無いんで良く分からんのだけど
結局cgiのファイルロックってのは、行き着く所は
システムコールのアトミック性なんだな。
で、上の書き方だと、open と flockの間に時間的なスキマが絶対有るだろ?
もしその間に100人が同じファイルをopenしちゃったら、
ファイルポインタの加減で死ぬ可能性が有るってこった

それがどれ位掲示版で危ない事なのかは、漏れには分からない。

何か変な説明だな
例えばファイルが100バイトだとするだろ?
で、openしてflockする前に他のプロセスが同じファイルを開くだろ?
そうすると、そのプロセスは全てファイルポインタを100バイトに
あわせて、そこから追記し始めると言う訳

>>599
なるほど、氏ぬ可能性がある・・と。
でも、まぁ絶対は無いモンみたいだからこれでいいかなぁ

だいぶ遅スレ。

gifの判別はヘッダを見るべし！

gif89aとか書いてある。
jpgはダンプしたこと無し。

>602
PNGや JPGもヘッダでわかるはず。

598じゃないが
>>600 ってことは、書き込む時に
sysseek HANDLE, 0, 2;
とすればいいのだろうか？

それじゃappendにならないじゃん

お願いします。
$_ =~ s/ー/あ/g;
ってやったらエラー出ます。
$_ =~ s/！/あ/g;
だったら出ません。
どうしてですか？
漢字コード変換したりしていろいろやってみたんですが、うまくいきません。
よろしくお願いします。

ああ、ごめんごめんやっぱり中途半端だった　（笑
ただ>604氏の方法じゃ上手く行かないと思うよ
ファイルポインタはプロセス間で共有されてる訳じゃ無いからね
追記モードの時は SEEK_SET == SEEK_END になってるだけで
上書きするのと何ら変わらない筈だから
後は、書き込む度にwriteの戻り値分SEEK_ENDを進めているだけ
だから、0,SEEK_END とすると他のプロセスが書き込んだ分は無視されてしまうよ

WINは知らないけど、大体同じ様なもんだと思う
(しかし下手な説明だ･･･)

s/\Qー\E/あ/g;

で如何？　後はquotemetaとかを検索

>>608
ありがとうございます！
1行目は意味不明でしたが、quotemetaで検索したらいろいろ出てきました。
調べてみます。

はじめまして。質問させていただいてよろしいでしょうか。

現在　僕は、ＣＧＩでメールを送信するページを作ってるんですが
ローカルで、sendmailを実行することはできますか？

sendmailがあればいくらでも。

>>611

Apacheで確認して、その後鯖にうｐするやり方で、作ってるんですが
Apacheにはsendmailがついてないようです。
ＤＬすればよろしいんですか？

ＯＳに依存しそうな問題なのだから自分のＯＳ位書くのが礼儀ではないでしょうか？

後、うｐとか言う人信用できないです。
自分のアドバイスでメールばらまきCGI組まれても困りますから。

新しい人をお待ち下さい。

>>613

礼儀知らずで、ごめんなさい。
うｐっていう言葉も２ｃｈだから使ってしまいました。

使用しているＯＳはＷｉｎＸＰ（Ｈｏｍｅ）です。
ＰＣ上の仮想サーバー（Apache）で、sendmailの機能を使いたい、と考えています。

メールをばらまく行為とかは、考えていません。
その誓いとして、自分のメルアドとふしあなを書いておきます。
無礼をお許し下さい。

鯖がhi-hoです。
それでＣＧＩゲームを置きたくて
とりあえずApacheで動作確認したFFAとEndlessBattleを置いてみましたが
FFAは呼び出しの時点でスクリプトエラー
EBは呼び出しはできたもののどれかひとつでもリンク押すとスクリプトエラー
僕の力じゃどうしようもありません。
何か方法は無いでしょうか？

あ、スレ違いだ！？
すいません、出直してきます（汗

サーバの設定とスクリプトの設定を一致させる。
できない、わからないならまだ時期ではない。あきらめる。

そうですか、じゃあもう少し調べてみて駄目なら諦めます。
ありがとうございました。
あと、スレ違いすいません（汗

１行目のperlのパスに気を付けて。

>>618 この辺引っ掛かってない？
２．使えるプログラム言語は？
Perlのバージョンは4.036です。
http://home.hi-ho.ne.jp/home/faq/service/rweb/rweb_a2.html

喧嘩売ってるとしか思えんな　　（ｗ

すいません（汗）
あの後戻っていろいろやってたらそのまま寝てしまって・・・。
Ｐｅｒｌのバージョンはドメインがmaxなので5.6らしいです。
それでパスもやったんですが結局無駄でした（汗

Kcatch.pm 使ってみ

http://www.kawa.net/works/perl/catch/news.html
スクリプトの冒頭で Content-type 出しておけば大体のエラーは
ブラウザでチェック出来るから

でも5.6でも動かないんだからやっぱ4,036なのかな・・・。
仕方が無い・・・厨房なんで学校いってきます。
本当にすいませんでした・・・。

#! /path/perl

print "CONTENT-TYPE:text/html\r\n\r\n".$[;

バージョンチェック。

Perlで画像アップロード掲示板を作成していますが、ユーザから
「アップされた画像を任意の大きさに変更したい」と言われましたが
そのようなことができるでしょうか？
ローカルからサーバにアップされた画像をたとえば２５０×２００に変更するとか、
サイズを５０Kに変更するといったようなことはできるのでしょうか？
どなたかご存じの方がいましたら教えてください。
また、そんなことはできないよということでも良いのでどなたか教えてください。

２ちゃんねるで・・・/test/read.cgi/板名/スレ番号/
という形式でcgiが使えているでしょう。
これはどうやっているのですか？

>>626
要するにgifなりjpgなりを加工したい訳だよね。
ファイルサイズを変えたいと言うことは。

そりゃぁPerlには無理なんじゃないかなぁとか思ってみる。
それとも、そんなモジュールとかあったりするんだろうか。。。

と、検索。
こんなの発見。

GDモジュール（日本語チョウ訳）
http://member.nifty.ne.jp/hippo2000/perltips/gdmemo.htm より。

getBounds
GD::Image::getBounds( ) オブジェクト・メソッド
このメソッドはそのイメージの幅と高さの２つ要素を持つリストを返します。
取得することはできますが、作成したらイメージの大きさを変更することができません。

やっぱり出来ないのかな？

あった。

copyResized
GD::Image::copyResized(sourceImage,dstX,dstY,srcX,srcY,destW,destH,srcW,srcH) オブジェクト・メソッド
copyと似ていますが、コピー元と出力先に違う大きさを指定することができます。
コピー元と出力先の大きさは、それぞれ (srcW,srcH) と (destW,destH) で指定します。
copyResized()は指定された大きさに合わせてイメージを拡大、縮小をおこないます。

例:

$myImage = new GD::Image(100,100);
... いろんな描画 ...
$srcImage = new GD::Image(50,50);
... いろんな描画 ...
# 25x25 ピクセルの領域を $srcImage から
# $myImageの(10,10)に大きくしてコピーします。
$myImage->copyResized($srcImage,10,10,0,0,50,50,25,25);

---
参考:http://homepage1.nifty.com/smastani/hp/smastani/pc/thumbn.html

文字列のすべての文字間に例えば/と入れたい場合はどうしたらいいですか？
あいうえお-->あ/い/う/え/お
こんな感じ。
とっても簡単なんだと思うんだけど、文字列置換ではやり方が思いつかないし、
splitとjoinでもなんか区切り文字が必要で、この場合区切り文字は無くて．．
頭悪くてすみません。お願いします。

>630
http://www.din.or.jp/~ohzaki/perl.htm#JP_Split
これが参考になるかな？

ありがとうございます！！
斜め読みしたかぎり、理解できませんでしたが、
題名からして回答っぽいです。参考にさせていただきます。

>>629
GIFはたしかUNISYSが版権？持ってて、画像をくっつけるぐらいなら
問題ないけど、加工するとなると権利に引っかかる可能性アリだった
と記憶してる。
pngとかでできないのかな？

>>633
最近のGDはGIFサポートしてないのぉ

>>630
print join "/",(split //,"aiueo");
でいいんじゃないのん？

あ、全角のコトを言ってたのね。
勘違いしてた。ゴメ。

っでぇあんな時間にレスがΣ（￣□￣；）
すいません、重なって書き込みだったらしく気づかずそのまま行ってしまいました（汗
で、あと・・・KCatchの使い方が良くわからなかったです（汗
今までいじる程度しかやってなかったんで・・・。

あ、すいません（汗
今のが623さんへです。

それと、625さん。それをファイルにして動かして見ればよいのでしょうか？

Perlのチャットを設置しようと考えています。
鯖への負担を減らしたいので、いくつかのCGIをテストしてその負荷を調べることにしました。
CPUの処理時間から負荷を量ろうと
win2000+ActivPerl+AN HTTPDの環境で、スクリプトの上のほうに
$CPU_start = (times)[0] ;　#計測スタート

表示部分(普段リロードされる)の下のほうに
$CPU_end = (times)[0];
printf("<DIV align=right>消費時間： %.3f CPU秒</DIV>\n",$CPU_end-$CPU_start);
と書きました。しかしどのCGIも0.000〜0.010秒程度となり、比較ができませんでした。

Perlの負荷(チャットリロード時)を計る良い方法はないでしょうか？

どう削りたいのかによる
CPUビジーとは限らんだろ、メモリかも知れんし、ディスクかも知れない
Benchmark取れば君の言ってる事は出来るが
それが何の役にたつのやら････

>>639
自作して自分なりのダイエットを徹底的に行うって言うのも楽しい。

ご回答ありがとうございます。
みなさんのアドバイスを参考に作成いたします。
初心者さま
参考になるページありがとうございます。

【傲慢】Perl使いに喧嘩を売る掲示板【問題発言】
http://choco.2ch.net/test/read.cgi/news/1013077421/

Perl-CGIからデータベース接続したいんですけど、
Java-ServletみたいなConnection Poolingってできるんでしょうか？

調べてみたんですが、mod_perlしか見つかりませんでした．
事情によりmod_perlは使えないので、その他の方法でなにかあります？

>>640-641
ご教授ありがとうございました。
Benchmark.pmの解読にいってきます。

お金を表示させようと思って、普通に表示したら
お金っぽくないんです。
で、なんでかなぁ？って考えたら、カンマがないからだとわかりました。

$money='500000'
に、3桁区切りのカンマをつけるにはどうすればいいでしょうか？

$data = "500000";
for($i = 0;$i < $length($data);$i++)
{
if($i % 0 == 2)
{
$res .= ",";
}

$res .= sybstr($data,$i,1);
}

>>647
早レスありがとうございます。

なるほど、そういう方法もありですか。
（たぶん$length　→　lengthだと思うのですが）

個人的には、正規表現か、sprintfでなんとかならないかなぁと思ってるんですが、
どうでしょうか？

>>648
過去ログ、その他の役立ち情報は>>2-10を見よう。

数字を 3桁ごとにコンマで区切る
http://www.din.or.jp/~ohzaki/perl.htm

そこまで解っていて何故聞く？

$l = reverse $l;
$l =~ s/(\d{3})/$1,/g;
$l = reverse $l;

あ、そうか。/gで全部処理すれば良いんだ。

>>644
多分 mod_perl + Apache::DBI じゃないと無理なんでないかな。

>>646
$money='500000'
$money =~ s/500000/500,000/;

>mod_perl + Apache::DBI
やっぱりそうなりますか
ひとつだけperlプロセスを常駐させてそこからConnection受け渡し、とか
いろいろ考えてたんですけど・・・
Hashの参照と中身（データ）を丸ごとプロセス間でやり取りってのは・・・
できないですよねぇ

perlに付け足してアクセスログをとる方法なんですが、
ブラウザの種類（携帯は機種も）、IP、SSID、日付、訪問回数等を
取得できる方法ありませんか？
今は
# 適当なファイルをopenして
open(LOG,'>>logfile');
# 情報を書き込む
print LOG "$ENV{'DATE'} $ENV{'HTTP_USER_AGENT'} $ENV{'REMOTE_HOST'} $ENV{'REMOTE_ADDR'}\n";
# ファイルをクローズ
close(LOG);
ってやってるんですが、１回のアクセスで同じ情報が数回残るんです。
ちなみに掲示板のCGIの上のほうにつけてるんですが。

>>655
表示　１回。
書き込み　１回。
リロード　１回。

同一IPアドレスからは連続して情報を書き込まないようにすれば。

>>656
そのやりかたがわからないんです。
日付とSSIDの取得もわかりません。
もしわかるのであれば簡単なソースでものせてもらえませんか？

それじゃ解りまへん
自分が取りたい所で取れば良し

そうですか、ありがとうございます。
他の人が教えてくれるのを待ってます。

>>656 != >>658

>>656な俺も既に回答は放棄してるよ。
もう少し具体的に書かないと。

それ改造してんだろ?　つーかSSID何かログれんのか？
自分で書いて何処でどう動いてるか分からんのか？
改造だったら改造スレにソース上げれば教えてくれるかもな

>>644
Storable, FreezeThaw, Data::Dumperなどで$dbhをプーリングする
･･･くらいしか思いつかなかったヨ。

> Hashの参照と中身（データ）を丸ごとプロセス間でやり取り
これをやってくれるのが上記のモジュール群だと思うのだが、どうか。

>>662
ありがとうございます．その辺から調べてみます．

半角英数字を全角に変換したいんですがうまく行きません。
require "jcode.pl";
&jcode'tr(\$string,'0-9A-Za-z','０-９Ａ-Ｚａ-ｚ');
これってなにか間違ってます？いろいろ調べたんですが、
頭の&無かったり'が::だったり、jcodeのヘッダでは最初の引数が*line
で*ってなんだ？？とか全然わからんです。お願いします。

>>664
いろいろ調べた？
Googleで"jcode.pl"を検索すると出る最初のページすら読んでないのに？
jcode.plの私的な解説書 <http://www.mikeneko.ne.jp/~lab/kcode/jcode.html>

そこにこう書いてあるぞ。

> 「-」による範囲指定は、$line の文字コード及びスクリプト自身が、JIS か EUC でなければなりません。

そこはちゃんと読んで、すべてEUCでやってます。

どう上手く行かないんだ？
別段間違えて無い筈だぞ
一応最新Ver落としてやり直してみれ

まさかターミナルがSjisとかじゃ無いよな？

そうですか。jcode壊しちゃったかな。
何も変換されません。
ちなみにターミナルってなんですか？

telnetクライアントなどシェルと入出力を行う環境（？）。

どんな環境でやってるのやら・・・
ターミナルはターミナルだ、訳せ　:）

&は関数のプレフィックスな、まあ有っても無くてもいい
'と::は意味が同じだが、まあこれもなるべく::を使え
*と\はちょっと違うんだけど、まあ似たようなもんだから気にするな

ごめんなさい。本当にごめんなさい。
jcode.plが壊れていたようでした。
正常なものに更新したら無事変換されました。

>670
投げやりな回答が分かり易くてGood　（・∀・)b

＞'と::は意味が同じだが、まあこれもなるべく::を使え

Perl5から非推奨だっけ？'

>>673
んだ。
Perl5からはパッケージデリミタは :: になっている。
' は後方互換の意味しかない。

型グロブとリファレンスについては、
速度の点や、スレッド有効での問題があるから、
素直にリファレンス使ったほうが良い。

おしえて下さい。
208_978_4_37　　この時、
208を取り出すにはどしたらいい？ substrを使うかな？もっと簡単な方法あるよね？

(split /_/)[0]

1.
$str = "208_978_4_37";
$str =~/^(\d+)/$1/;

2.
$str = "208_978_4_37";
$str = (split /_/, $str)[0];

substrが一番簡単です。

はや、　ほんじゃ　substr使います。
>676 >677 ありがとうございました。

良く本に載っているソースなどで
local(*data, @cokkie);
などを見かけますがこれの*dataの「*」の意味が理解出来ません。
どなたかご教授お願いします。

>>679
参照。
ポインタのようなもの。

>>680
お答えありがとうございます。
参照という事はつまり、上記の
local(*data, @cokkie);
では、$data @data %dataが全て局所化されるという意味でしょうか？
ポインタはＣの経験が無いもので、ちょっと理解出来ないです。。

型グロブと参照は違うだろ。

意味は>>681であってる。

書き出したテキストファイルを
Windowsで関連付けしたアプリで自動的に開きたいんですが、
どうすればいいんでしょうか？

hoge.txt を書き出したとして、
それを関連付け実行（ダブルクリック）した動作が実現すればいいんですが…。
（エディタでhoge.txtが開ければOK）

system("hoge.txt");

>>684
ありがとうございます。でも、

「コマンドまたはファイル名が違います.」

と出てしまいます…。

>>685
hoge.txtのパス通ってる？
同じフォルダに置いてやってみ？

あ、やっぱり失敗か。

systemの実装がshellexecute()なら動くけどね。

system("start hoge.txt")

出来ないこともあるんか。
漏れが出来たから、、偉そうな事言ってごめそ

>>688 これでできました！

パスは通ってました。 >>686
DOS窓から関連付け実行する時も start〜 で行けますね。勉強になりました。
ありがつおございました。

＃と言うか、こんな時間に即レスが帰ってきたことにﾋﾞｸｰﾘ

>>682
*data
↑は型グロブいうんですね。知らなかったです。で検索して見たところ
Knave Web講座　というすごくわかりやすい解説がしてあるページにたどり
付きまして、なんとか理解することが出来ました。
>>680さんともどもありがとうございました。

クッキーを設定するにあたって質問です。
Set-Cookie: ******
は必ず
Content-type: *******
の1行下に記述しなければいけないのですよね？下の例であってますでしょうか？
例：
Content-type: text/html\n
Set-Cookie: web=$hoge\n
HTML記述〜

>>692
逆。

Set-Cookie: web=$hoge\n
Content-type: text/html\n

後、有効期限書かないとすぐ消えるよ。

数字のリストから空いているのを探すのって出来る？
たとえば
1,3,4,5,6,7,8,9
とかあったら2を返すようにしたいんですけど。

>>694
階差数列を利用すれば？

$a[$i + 1] - $a[$i] = 1

となる。この条件に合わなければブビー！

@char = (1,3,4,5,6,7,8,9);
%char = map { $_, 1 } @char;
for(1 .. 9) { print if not exists $char{$_} }

イマイチ？

grep { ! { map { $_ => 1 } @hoge }->{$_} } (1..9);

Gimp-Perl のスクリプトを X はインストールされてるけど、
X サーバが走ってないマシンで、動かす方法はあります？

>>693
OH!?だから動かなかったのか。。？
どうもありがとうございました。

メールを読んでその代価としてお金がもらえます。当然、登録・維持全て無料。
広告メールの配信企業は他にも多数あります。しかし登録したはいいがメールが来ない、懸賞は自作自演、
果てには個人情報収集目的のサービス実態なし、なんてサイトまであります。
その点このサイトは月10通〜20通の配信実績がありますし、何より住所・電話番号等不要なので匿名性が高く、安心。
それにちゃんと送金してくれます。私も既に３回送金してもらいました。
ポイントが加速度的に増えるサービス、いくつかありますので仮登録したらCheckしてみて下さい。

※注意※　
必ず　本登録　して下さい。仮登録のままではポイントが加算されません。
本登録するには　アンケート　に答えてから　本登録スタートボタン　（メールでURL配信される）を押します。
興味のある項目を答えるアンケートでは全てチェックを入れるのが吉。その分配信メールが増えてポイント増。
本登録スタートボタンのURLが載ったメールが来るまで数日〜数週間かかりますが、待っただけの価値は十二分にあります。
時間がかかるケースが多いので早めに仮登録を済ましておくことをお勧めします。
その後の本登録維持も忘れないようご注意下さい。(何かと面倒なのも広告出稿者を多く集める為の策のようです）


Ariga10.com
http://www.ariga10.com/?id=207008
こちらから登録できます。記入欄は少ないので時間はほとんどかかりません。

>>698
マルチですか・・・。

>>701
あれだろ。
スレ立てて指摘されたんで質問直しなんだろ。
ﾏﾀｰﾘﾏﾀｰﾘ

>>696
>>697 を参考にして
grep { ! { map { $_ => 1 } @hoge }->{$_} } ((sort @hoge)[0]..(sort @hoge)[$#hoge]);
てな感じか？

>>694 だった。スマソ……。

$sort = [sort { $a <=> $b } @hoge];
print grep { ! { map { $_ => 1 } @hoge }->{$_} } ($sort->[0]..$sort->[$#hoge]);

直結すると長くなるから分けただけで↓でも。
grep { ! { map { $_ => 1 } @hoge }->{$_} } ((sort { $a <=> $b } @hoge)[0]..(sort { $a <=> $b } @hoge)[$#hoge]);

foreach (@hoge){......}とかで配列処理する場合、今現在、
何番目の要素なのかを取得する方法って有る？
いつもブロックの中で$i++とかして参照しているけど、
いまいちスマートで無い気が。

>707
それが一番スマート。

SSIについてここで質問してもイイ？

>>709
Perlと関係ねーだろ。
CGI質問スレのほうがまだまし。

>>708
ふ〜む、やっぱりこれしか無いか。ありが�d

>>707=711
for (my $i = 0; $i <= $#hoge; ++$i) {
...
}
という手も有り。

150ぐらいの単語をいっきに表示させたいんですけど，配列をforeachでまわすのと，
配列へ入れずにファイルをwhileでまわすのとどっちが効率いいんでしょう？

>>713
効率というのはメモリ効率なのか処理効率なのか分からないが
この場合は（単語１つ１つが膨大なサイズでなければ）
前者の方がメモリを喰らうけど速いなり。

もっとも、１・２回の繰り返しじゃ体感できるような差はないと思われ。

>714
レスサンクスです。参考になりました。
実はチャットの名前の色のリストなんですね。たいした量じゃないです。(笑

dbmopen(%FOO, foo, 0666);

for(0..$bar){
@data = split(/\0/, $all_data[$_]);

unless(defined($FOO{$data[0]})){
print"処理：新データとして書き込み";
}else{
print"処理：旧データと一部差し替え";
}
}

print"最終処理"

dbmclose(%FOO);

ソケットで得た複数のデータ（名前、所属、個人番号、等）を、
$FOO{個人番号}に収めて管理するプログラムを作っています。
データは正しく受け取れて、一通りの動きはしてくれるのですが、
なぜか最終処理の部分まで到達してくれません。
不思議な事に、ローカル環境（Win2000+Apache、Win98+Apache）では最終処理まで到達します。
解決方法をご存知でしたらご教授いただければ幸いです。

>>716
print"最終処理"
; が最後に抜けているとか？
\nないからバッファリングのデータ（最終処理）が吐き出されないとか？

>>716
野暮だが･･･
Perl5ならdbmopenじゃなくtie使ったほうが良いよ。

>>716
Socket扱うならバッファリングは行わないのが吉。
$| = 1;

>>712
値にアクセスする時 $hoge[$i] になって遅くなる。

とラクダに書いてある。ｗ

continue { $i++ }
とかはどうかな。。あんま変わらんか。

>>720
ラクダ見たけど、遅くなるなんてどの辺に書いて有るんでせうか。
>>712
そういうことで、改めてラクダ読んだら、第2章のforeachの説明
のところで、明確にforeach中で、要素の番号を知る方法は無い
と書かれていました。で、隣り合った要素を比較するなどの場合
は、>>712の方法が一つの解として紹介されており、ラクダを良く
読まねばと思う、今日この頃。

>>721
たぶん同じページやでｗ
ラクダ第２版日本語のp.114、
> また、こちらのほうが高速なのは〜〜〜アクセスできるからだ。
って奴。
そういうことはちゃんと読んでから言えｗ

あ、次のページだったねｗ

>>722,723
納得

1.　画像アップロードとコメントをつけてHTMLページを作成したい。
2.　http://digit.que.ne.jp/work/mtWiki/yukiwiki.cgi/yukiwiki.cgi?mycmd=read&mypage=%5B%5BCGI%3A%3ALite%5D%5DのCGI LITEと、cgi-lib.plを利用した
3.　READShort　と出た。
CGILITEを使って画像のアップと、コメントの送信をするにはどうしたらよろしいかお教えください

>>725

perldoc CGI_Lite

%Link = ('1'->'www.yahoo.com', '2'->'www.google.com');
%Link = ('2'->'www.google.com', '1'->'www.yahoo.com');

while(($Name,$Addr) = each %Link){
　　print qq( [ <A href="$Addr">$Name</A> ]);
}

で出力が同じなのはなぜスか？
リストのほうで並び替えても出力(並び方)が変わらんのだが・・・

いい書き方あれば教えてください。

ハッシュは取り出す順番がバラバラ、、
って前もどっかに書かれてたな、、
sort key %Link にするか、どっかのモジュール（名前忘れ）使うかどっちかがいいと思われ。

>728
フム，sort key %Link のほうを調べてみます。
ありがとう！

ああそうか，実際は'1'，'2'じゃないからsortじゃ工夫せんと無理だな〜
'1_藍上尾', '2_柿苦毛子'にしてwhileでまわして，表示する直前に'1_'を消すとかか。

うーむ，めんどいな。

>>727

-> ではなく =>

> どっかのモジュール
Tie::IxHash

> 728-729
key ⇒ keys

1_, 2_ などのキーをソートしたいなら、sort {$a <=> $b} %Link だけど、
必ず数値＋＿形式のキーが来ると決まっているのなら、末尾の＿を取り除いて
普通の配列にしてもいいネー。

全然気付かんかったｗ　＜ =>,keys
ちなみに
>>732
sort { $a <=> $b } keys %Link

みんな眠いから凡ミス？

どっかのスレッドにActivePerlを使ってて、
CGItempXXXXというファイルが残るって書いたものですが、
解決いたしました。

>735
よかったねー。
なんかいい方法あったの？

>>735
>どっかのスレッドに
書き逃げでもしたの？
>解決いたしました。
解決方法も書き込めば、ログ読んだ他の人も助かるかもよ。

>>727
そのままだとひとつのサイトに対して
「ハッシュのkey」と「ハッシュのvalue」の
２つづつしか要素を持てないから
いっそのこと
%site = (id => 1, url => 'www.google.com', name => 'Google', comment => '便利！');
みたいな形式にしちゃって
push(@list, \%site);
していってそれをソートして表示してみるっていうのはどう？

foreach $this (sort {$a->{name} cmp $b->{name}} @list) {
print $this->{id}.'<a href="'.$this->{url}.'">'.$this->{name}.'</a>'.$this->{comment};
}

これならひとつのサイトに対していくらでも要素を持てるし、
ソートもID順とかURL順とかいろいろできるからいっそう便利かなーと。

Perlでヒアドキュメントって嫌われているんですか？

>>739
何故？普通にバリバリ使いまくってますが。

>>739
多分ヒアドキュメントを書くときソース中でインデントできない
とかいうやつですか？
先頭のインデントを出力する前に正規化で削除すれば綺麗になる
し、ソース中の見栄えもよくなるからよろしいかと思われ
てかまったく関係なかったらゴメソ

確かにインデントしてないヒアドキュメントは読みにくいかも。
自分の場合はキレイにしないでそのまま（\t付きのまま）出力してるけど、、
クックブックの２４ページにのってるね。＜正規

>>740-742
レスありがとうです。
そうです、>>741さんの言うとおりインデント出来ないのが…。
と思ってたら、やっぱり回避策があったんですね。
頑張って自己満足なソースの美化に尽くします（笑）
あ、そうだ。ベンチマークでもとってみるか。ヒアドキュメントの。意味ないけど。

>>743
>あ、そうだ。ベンチマークでもとってみるか。ヒアドキュメントの。意味ないけど。
そういう心がけが上達の道だと思ったり。何となくだけど。
料理本以外にもEffective Perlは個人的にはお薦めなんでご覧あれ。

ヒアドキュメントでインデント、どうやれば出来るんでしょう。
数時間検索したけど見付けられず…。
どなたか解説、お願い出来ないでしょうか。

($hoge = <<_HERE_) =~ s/^\s+//mg;
...
_HERE_

>>746
/igsoe位しか修飾子つかったことが無かったのですが、
/m 文字列を複数行として扱う、はこう使うものなんですね。
勉強になります。ありがとうございました。

関係ないが、どっかのPHP本でPERLはヒアドキュメント中で
変数を展開できないとか書いてあって、鬱。
こういうもんなんすかね、一応プロフェッショナルブックとか
名うってあったんですが（藁

>748
酷い本だな。

ちとおしえてください。
HTMLファイル内の記述で、.cgiファイルを起動させたいのですが、
どうしたらいいですか？<img src=xxx.cgi> だと、HTMLに画像跡がでるし。
お願いします。

イメタグで1x1の透過gif出力するとか

>751
ありがとうございます。消えたました。
imgタグで起動してるか心配だけど試してみます。

$temp = int( 18.9 * 100 );

で，$temp = 1889 になったんだけどなんで？
ActivePerl 5.6.1.630

>>753
18.9を2進法に変換してみると分かると思われ。

>>753
ま、可能な限り不自然にならないように、いろいろ苦労してるんですよ。

>>754-755
やっぱり，分からん
もう，泣きそう

>>756
>>755の言っている事をもっと穿って考えよう。（ｗ
ホントだよ？

>>756
簡単に言うと「Perlは人と同じように数値を理解しているわけではない」ってこと。
これは仕様なんで注意して扱うしかない。

どうしても高精度な計算がしたいならモジュールを使う事。

#!/usr/bin/perl
use Math::BigFloat;

my $num = new Math::BIgFloat('18.9');
print int($num * 100);
__END__

っと、一文字間違えた

<my $num = new Math::BIgFloat('18.9');
>my $num = new Math::BigFloat('18.9');

>>758
「難しく」言うと、どのような理屈になるのでしょうか？
できるだけ付いてこられるように頑張ります。

>>760
とりあえず、Perlが数値を表現するのに確保しているメモリの量では、
18.9を正確に表現することは出来ない、ってことです。

これ以上詳しく言うと長くなりすぎるんで「浮動小数点 内部表現」とか「浮動小数点 フォーマット」
とかで検索すると多分ずらずら出ます。
(でも大抵はその仕様について書かれてるだけなんでイメージしづらいんだよな)

>>761
精度(?)云々というのはなんとなく頭の片隅にはあるんだけど
　int( 18.9 * 10 )=189
　int( 18.9 * 100 )=1889
　int( 18.9 * 1000 )=18900
なんで，*100 の時だけ？というのが腑に落ちないんだな，これが

>>762
で、浮動小数点については調べてきたのか？

>>763
そこはそれ>>755ということ。
具体的に何やってるのかは知らんが、善処した結果なんだろうね。
まぁ俺も妙だとは思う。int()を外すと1890になるのも不可解だし。

間違い。>>762宛てだった。

>>764
構造知らずして結果の食い違いは理解できないぞ。

>>765ということで>>766も忘れてね。

754の解説をお願いします

>768
うろ覚えだけど，
２進数では
整数部分は 1, 2, 4, 8, 16, 32, 64...と位が上がっていって
小数部分は 1/2, 1/4, 1/8, 1/16, 1/32...と位取りされている
んじゃなかったかな。

>>768
調べろ。と言ったはずだが？
勉強しないプログラマに明日はないぞ。

>>769
正解。

ちなみにprint $nとprint int $nの結果が違う事だが、
Perlのprint()関数は、C言語のprintf()、
またはそれに準ずるフォーマットルーチンを使って実装されていて、
不動小数点数はある桁数(これは自由に設定可能である)で繰り上がる仕様になっている。
この現象は "print 2/3" 等とした時にも見られる。
ところが、int()というのは小数点以下を黙って全て切り捨てる。
これにより、答えが整数であるべき時でも"print int $n"と"print $n"に差が生じる事があるのだ。

>>762
53bit同士の計算で, 結果の54bit目が1だと切り上げされるからじゃない?

18.9 ≒
10010.111001100110011001100110011001100110011001100110
10 = 1010
100 = 1100100
1000 = 1111101000
10000 = 10011100010000
100000 = 11000011010100000

18.9*10 ≒
10111100.1111111111111111111111111111111111111111111111
->10111101

18.9*100≒
11101100001.1111111111111111111111111111111111111111110

18.9*1000≒
100100111010011.111111111111111111111111111111111111111
->100100111010100

18.9*10000≒
101110001001000111.111111111111111111111111111111111111
->101110001001001000

18.9*100000≒
111001101011011001111.111111111111111111111111111111110

Perlでファイルを取り扱うモジュール（というかクラス？）を作ったのですが、ファイルハンドルがインスタンス間で共有されてしまってイマイチ使いづらいです。
同じクラスのインスタンスを複数作った場合、インスタンス間でファイルハンドルを別々に持つようにできますでしょうか？

$file1=new FileClass('read.txt');
$file2=new FileClass('write.txt');

$string=$file1->getLine(1);
$file2->insert($string);

$file1->close();
$file2->close();

みたいな。
ファイルハンドルに参照とか無名配列みたいのがあれば自分で解決できそうだけど聞いたこと無いので。

perlで、あるhtmlファイルから、見出しタグ（<Hn>ほげ</Hn>）とその中身だけを書き出したいんですが、
どうすればいいのでしょう・・・。
（結果として、以下のようになる）

<h1>ああ</h1>
<h2>いい</h2>
<h3>うう</h3>
<h2>いい</h2>

print $1 if m|(<([hH][1-6])[^>]*>[^<]*</\1>)|o;

どうもです>>775
でも、
$filename = "test.html";
open(IN, $filename) || die "$filename: $!";
open(OUT,">result.html") || die "result.html: $!";

while(<IN>){
chomp:
print OUT $1 if m|(<([hH][1-6])[^>]*>[^<]*</\1>)|o;
}

close(IN);
close(OUT);

で、結果が0k。。。。なぜ？
test.htmlの中身は、以下の通り

aaaa<H2>えいちに</H2>bbb

<h1>えいちわん</h1>

もとい、chomp:でなくchomp;としてます。

>>773
使用法なんてどうでも良いから実装を見せろよ。
多分 "open HANDLE" とかしてるんだろうけど。
とりあえず標準ライブラリの Symbol と IO::Handle および IO::File のソースを読めば幸せになれるかもな。

関係ないが、クラスの名前に"Class"をつけるのはアホらしいと思うのは俺だけか。

print $1 if m|(<[hH]([1-6])[^>]*>[^<]*</[hH]\2>)|o;
としてみたらいけた。()のネストってこうなるのか。

>>778
非常にありが�d。ついでにｽﾏｿ。
で、ご指摘どおりsymbolを読んで、とりあえず幸せになれた。
ファイルハンドルにスカラー変数が使えるとは。

クラスの名前にClassなんて、いつもは付けてないけど今回は念のため。

すっごい初歩な質問でｽﾏｿなんだけど
掲示板で書きこみ者の任意の回数だけ要素（例えばアイコンとか）を
繰り返し表示させるスクリプトを組み多淫です。
うんこのアイコンを選んで「10」とエリアに入れてpostしたら
うんこアイコンが10個出る、見たいな感じで。

この繰り返させるスクリプトの書き方がわからんのです
どなたかわかる方いたら教えてください。

多淫。

多淫だな。

どうすればいいんですか？
を変換しようとするとき
どうすれ売淫ですか
になって、よく困るな。そういえば。
こういうことやるから、また売淫ででるな。

>>781
アイコン<select name="icon">
回数<input name="kaisu">
-------------------
for (1..$in{'kaisu'}) {
$icon.="<img src=$in{'icon'}>";
}
-------------------

>785
こんな基本的なコードでも人のコードは勉強になる。
なるほど，すごくシンプルだ。おれなら"i="云々書いてるとこだった。

$icon = qq{<img src="$in{'icon'}">} x $in{'kaisu'};

>>785
>>787
THANXです！
今スクリプトをこねくり回してますがうまいこといかないです。
成功したら完成形を報告します。うー…

どうも

ごば、、

>>多淫
汚染チェックと上限チェックを忘れないようにな。頑張れ。

> <img src="$in{'icon'}">
>
$in{'icon'}の値が「xxx.gif" onLoad="JavaScript:ウケケ」に書き替え
られて送信されてきたらどうする？チェックはキッチリやっておこうネ！
そうしないとセキュリティホールになったりして。

>792
とほほみたいなこと言うなよ・・・

したらばの「管理人メニュー」に意味不明のものがありました。
FAQにも書いてありませんでしたし、
サポート掲示板に書いても反応がありませんのでこちらでお願いします。

＞Getによる投稿を認める

Getってなんですか？

>>793
まじで大切だと思うけど。

>>794
CGI側：データ受け取りに環境変数を使うか標準入力を使うか。
ブラウザ／サーバ側：HTTP0.9でも動くか否か。

>794
だからなGETだと，「<A href="http://www.aaaa.com/boke.cgi?name=荒らしだよ〜ん&naiyou=死ね死ね死ね">僕のホームページはここです！</A>」なんてことができるってこと。
そのかわり「boke.cgi?Logview」とかアドレスで直接モードへの移行はできなくなる。
まぁPOSTにしとけ。

ファイルハンドルにスカラーを使うとき、printで出力するときはどうするのでしょう。
open(FILE,'>text.txt')
print FILE 'abcd';
close FILE;
の代わりに
$file=1;
open($file,'text.txt');
print $file 'abcd';
close($file);
とやるとprintで死ぬのですが。<>でくくってもだめだったです。

>>793
セキュリティホールに気を配るのは基本だと思われ

くだらない質問かも知れないけど、@a[1]と($a[1])って等価？
ちょっと気になったもので。

>>800
@a[1]は有効か？

>798
「1」はダメだろ。

ファイルロックって書き込む時だけすればいいの？
読む時もロックしといたほうがいい？

>>803
読み込んでる最中にロックされると困りませんか？

>>802
中身のないスカラーはＦＨ代わりに使えないけど、なにか代入したら使えましたよ。
もっとも、私は標準ライブラリsymbolの
$sym = gensym;
open($sym, "filename");
のgensymの意味がわからないのでテケトーにやってみた、というだけの話ですけど…。
まぁ、モジュール化とかの理由で通常のファイルハンドルが使えない状況なので無理にスカラーをば。
で、１じゃだめですか？

>804
なるほど。つまりやめとけって意味ですか？

レスの意味はよく考えたんだがちょっと想像できない・・・。
人が読み込んでるときに自分が読み込めないのは無駄で遅くなる原因になるっぽいけど・・・

$file=1;
open($file,'text.txt');
print $file 'abcd';
close($file);

これは、やっていることは以下といっしょ。

open(1,'text.txt');
print 1 'abcd';
close(1);

よって、君がいう「通常のファイルハンドル」となんら代わり無い。

そんなことより、open($file ,'> text.txt') でしたという落ちはなしにしてくれ。

>>800
@hoge[] はスライス、($hoge[])はスカラーが一個のリスト。

>>803
読むときもファイルロックすべき。
読むときにロックしないで、読んでる最中にいきなりロックかけられたら困るでしょ？
>>804の答えはそういうこと。
> 人が読み込んでるときに自分が読み込めない
いいえ、これはLOCK_EXでなくLOCK_SHを使えばいいだけの事。
この辺り、過去ログでJAPUさんが詳しく述べているとこあり。
過去ログ閲覧をお勧めする。

>808
２ちゃんねるの過去ログなんて、これほどあさりにくいものはないっすよ
横やり失敬しました(笑)

>>808
あ、それはわかるんですけど、
実際使う上で違いがあるのかどうかを聞きたかったんです（＾＾；

>>810
あ る に 決 ま っ て る だ ろ !

ランキングで困っています。
2_45_5_74
4_36_3_53
8_83_2_27
こんな感じのデータがある時、12_45_5_74　の　
1番目の12と3番目の5を足してその値を大きい順に
並ばせるにはどうしたらいいでしょうか？

データを開いて、whileで各、足していって、
データ保存

保存したデータを大きい順に並べていって、
データ保存　

こんな感じを感じを考えているのですが、
一つにまとめる方法とかありますか？

おねがいします。

速さ求めるならクイックソートでもすれば？
数値の大きさ比べるだけなら実装も楽でしょう。

sort()使えば。

挿入ソートとか。

計算後のデータを記憶する際に大きい順になるように記憶させれば。

> 812
open(READ, $readFile);
while(<READ>){
   if ( /^(\d+)_\d+_(\d+)/ ){
       $sort{$1+$2}++;
   }
}
close(READ);
open(WRITE, ">$writeFile");
for ( reverse sort keys %sort ){
   print WRITE "$_\n";
}
close(WRITE);

>>816
いちいちソートするのって効率悪くないですか？

> 817
>
ソートだけにそーっとすればOK　（ヮ

$moji = "a'a'a'a'";
となっているのをs//やtr//などを使って
$moji = "a\'a\'a\'a\'";
という結果にしたいのですが、どうしたらいいでしょうか？

> 819
>
$moji=~ s/'/\\\'/g;

「断罪！断罪！また断罪！！」 改め、元の「賛成の反対の反対ナノだ！」に戻ります。

>>820
それはやってみました。以下のエラーがでます。
syntax error at test.cgi line 6, near "$moji~"
Execution of test.cgi aborted due to compilation errors.

>822
=~じゃなくて ~= にしてない？

> 822
>
$mojiに 漢字コードが入っているのでは？

>>823
ありがとう！！
自分のぼんくらミスに気付きませんでした。（感謝）

>>820
それじゃ予め \' となっているものも置き換わので、後読みするのが吉。
s/(?<!\\)'/\\'/g;

>>826
ありがとう。（感謝）

>>805　素直にIO::File使うのじゃだめ？
use IO::File;
my $fh = new IO::File "text.txt", "w";
die "なんか開けませんでした:$!" unless $fh;
print $fh "abcd";
$fh->close;

>>798
IO::Fileみたく型グロブを使うとか。
open HANDLE, 'hoge.txt';
$fh = *HANDLE{FILEHANDLE}; #$fh = \*HANDLE;
print $fh 'HOGE';

最近のperlなら *GLOB{IO} って形じゃないかしら、と記憶。

>803です。

>808
なるほど分かりました。そうします。

スクリプトをできるだけ重くしないコツってどんなのがあります？
スクリプトを分割するってのは意味あるんでしょうか？

>>832
例えば1〜10を足すとき、

for($i=1;$i != 10;$i++)
{
$sum += $i;
}

と、

$sum (10 * 9) / 2;

の２種類がある。

まぁ、こんなそのものズバリの公式がある場合は少ない。

基本的にはその処理をいかに少ない命令で実現するか。
sprintfとかは重いらしいｗからそう言うのも考慮して。
ループの外でもできる処理はループの外に出すとか。
ループ内でうまくnext;last;を使うとか。

なお、分割したところでコード量は減らない。
むしろ各種オーバーヘッドがかかったり。

なぜ分けるかと言えばその方がわかりやすいから。
関連の機能をまとめてモジュール化しているわけです。

他人のソースを見て勉強しようと思うのですが、
誰のソースは勉強になる、誰のはやめとけっていうのは
やっぱりありますか？？
全然perl初心者なので、そのへんの区別がつきにくいです、、

>>834
初心者ならどれ読んでも参考にはなるかな？
と、言うか読めるのか？？大変だぞ。人のソース。

>>835
応、簡単な入門書などを読んで、すげー単純な掲示板などは
作れるようになったくらいのレベルです。
やっぱりもっと本などで十分に勉強してからのほうがいいのかも、、、

コードをまねることはないんだよ。
おもしろいと思った処理を自分の書き方でパクればいい。
まぁ、クイックソートとかリストとかデータ構造とアルゴリズムは知って置いて良いかも。