Perlコーディング初心者質問スレ Part 49

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

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

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

過去ログやお勧めサイトは >>2-10

関連スレ
CGI: Common Gateway Interface part 13
http://pc8.2ch.net/test/read.cgi/php/1126436361/

【Perl,CGI】参考書籍 第三版
http://pc8.2ch.net/test/read.cgi/php/1030209573/

【Perl】ファイルロック(排他処理)について語ろう
http://pc8.2ch.net/test/read.cgi/php/1024795138/

★負荷軽減対策委員会（Perl、PHP)★
http://pc8.2ch.net/test/read.cgi/php/1034645635/

Perlモジュールについて
http://pc8.2ch.net/test/read.cgi/php/997829243/

CGIに依存しないPerlの話題一般/Part2
http://pc8.2ch.net/test/read.cgi/php/1030548610/

★三　【 スクリプト改造工房 PART 9 】　★三
http://pc8.2ch.net/test/read.cgi/php/1143834740/

【 スクリプト改造依頼スレ 】(丸投げ) part5
http://pc8.2ch.net/test/read.cgi/php/1141174205/

［過去ログ] 1 of 4

Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5　http://pc.2ch.net/php/kako/988/988728069.html
Part6　http://pc.2ch.net/php/kako/996/996075607.html
Part7　http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8　http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9　http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10 http://pc.2ch.net/php/kako/1014/10145/1014556702.html

［過去ログ] 2 of 4

Part11 http://pc.2ch.net/php/kako/1017/10172/1017201229.html
Part12 http://pc.2ch.net/php/kako/1019/10199/1019917048.html
Part13 http://pc.2ch.net/php/kako/1022/10227/1022731565.html
Part14 http://pc.2ch.net/php/kako/1026/10269/1026977659.html
Part15 http://pc.2ch.net/php/kako/1028/10288/1028816385.html
Part16 http://pc.2ch.net/php/kako/1032/10320/1032070299.html
part17 http://pc.2ch.net/php/kako/1034/10345/1034583844.html
part18 http://pc.2ch.net/php/kako/1037/10377/1037797479.html
part19 http://pc.2ch.net/php/kako/1042/10422/1042260745.html
part20 http://pc2.2ch.net/php/kako/1044/10447/1044717887.html (タイトルに19と誤記)

［過去ログ] 3 of 4

part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/php/kako/1050/10503/1050369328.html
part23 http://pc2.2ch.net/php/kako/1053/10530/1053051519.html
part24 http://pc2.2ch.net/php/kako/1054/10549/1054992610.html
part25 http://pc2.2ch.net/php/kako/1056/10567/1056730690.html
part26 http://pc5.2ch.net/php/kako/1059/10590/1059043704.html
part27 http://pc5.2ch.net/php/kako/1060/10608/1060808783.html
part28 http://pc5.2ch.net/php/kako/1063/10635/1063562491.html
part29 http://pc5.2ch.net/php/kako/1066/10662/1066286828.html
part30 http://pc5.2ch.net/test/read.cgi/php/1069846177/

［過去ログ] 4 of 4
part31 http://pc5.2ch.net/test/read.cgi/php/1072896288/
part32 http://pc5.2ch.net/test/read.cgi/php/1075545279/ (タイトルに31と誤記)
part33 http://pc5.2ch.net/test/read.cgi/php/1078076768/
part34 http://pc5.2ch.net/test/read.cgi/php/1081148490/
part35 http://pc5.2ch.net/test/read.cgi/php/1085557731/
part36 http://pc5.2ch.net/test/read.cgi/php/1089779036/
part37 http://pc5.2ch.net/test/read.cgi/php/1093106507/
part38 http://pc5.2ch.net/test/read.cgi/php/1097158988/
part39 http://pc5.2ch.net/test/read.cgi/php/1101522903/
part40 http://pc5.2ch.net/test/read.cgi/php/1106816922/

［過去ログ] New!!
part41 http://pc8.2ch.net/test/read.cgi/php/1110383236/
part42 http://pc8.2ch.net/test/read.cgi/php/1116970588/
part43 http://pc8.2ch.net/test/read.cgi/php/1123777607/
part44 http://pc8.2ch.net/test/read.cgi/php/1129477637/
part45 http://pc8.2ch.net/test/read.cgi/php/1134049707/
part46 http://pc8.2ch.net/test/read.cgi/php/1137518266/
part47 http://pc8.2ch.net/test/read.cgi/php/1141195171/
part48 http://pc8.2ch.net/test/read.cgi/php/1146042050/ (前スレ)

part44-621氏による過去ログ倉庫
ttp://user.ftth100.com/mirrorhenkan/perl/

ム板Perlスレより 1 of 2

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www.site-cooler.com/kwl/perl/

[本]
リャマ: http://www.oreilly.co.jp/books/4873111269/
駱駝: http://www.oreilly.co.jp/books/4873110963/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/books/4873112028/

[オンラインマニュアル] (追加)
最新のドキュメント: http://search.cpan.org/~nwclark/perl-5.8.7/
perl5.8.xのドキュメント(一部): http://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: http://www.cpan.jp/search.cgi
perldoc.jp: http://www.perldoc.jp/
Perldoc.com: http://www.perldoc.com/

ム板Perlスレより 2 of 2

[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://homepage3.nifty.com/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/
Perlの小技: http://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl5.8Unicodeメモ]
http://www.pure.ne.jp/~learner/program/Perl_unicode.html
http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

>>1-9
乙

前スレ998
ありがとうございます。euc-jpにエンコードすればいいことがわかりました。
jcode.plを使い&jcode::convert(\$str, "euc");のようにしてエンコードしたところ正しく表示されました。
本当にありがとうございます。情報が小出しで申し訳ありませんでした。

前スレ・・・寝てる間に変な流れで終わってゆ(´；ω；`)

とりあえずおっぱいうｐ

>>13
> とりあえずおっぱいうｐ
http://search.cpan.org/perldoc?Acme::Oppai

恥さらしだからこんなことするなよ。アホ。

こんなのあったのかｗｗｗ

$a = "a,b,c,d,";
という１つの文字列を元に
@b=(a,b,c,d,);
のような配列に代入する方法はないでしょうか？

split

初心者とはいえ少しは勉強しようよ・・・

でも、クックブックみたいな逆引き系マニュアル持ってないと
まず目的ありきの時に、どの関数・どのモジュールを使えばいいかわからないよね

オライリー有用だけど高いよ('A`)　貢ぎましたけど・・・

つぐぐる

>>21
ｱｰｯ!!　　　　　　　　　　いや　　　ほら　　　　クックブック　　あると　便利よ・・・　　うん

HTTPレスポンスヘッダに206を指定しファイルをCGI経由でDL
させようとすると、500エラーが出てしまいます。
具体的には下記のようにしております。


print "HTTP/1.1 206 Partial Content\n";
print "Last-Modified: Wed, 24 May 2006 18:41:30 GMT\n";
print "Pragma: no-cache\n";
print "Accept-Ranges: bytes\n";

my $range = $ENV{'HTTP_RANGE'};
if($range =~ m/^bytes=(\d+)\-(\d+)$/){
my $offset = $1;
my $end = $2;
my $len = $end - $offset + 1;

print "Content-Range: bytes $offset-$end/$len\n";

$filesize = $len;
}

print "Content-Length: " . $filesize . "\n";
print "Content-Type: $content_type\n\n";

print while(<IMG>);
close(IMG);


エラー内容は「Bad header=HTTP/1.1 206 Partial Content」ですので
これを外せばエラーは出ないのですが、206を返す手段があれば
ご教示いただきたく思っております。
宜しくお願いいたします。

>>23
Status ヘッダ
http://www.nilab.info/docs/cgi/draft-coar-cgi-v11-03-clean-jp.html#7.2.1.3

以後 CGI の話は以下のスレへ。
CGI: Common Gateway Interface part 13
http://pc8.2ch.net/test/read.cgi/php/1126436361/

>>24
すみません。
誘導先で質問させていただきました。有難うございました。

投稿されたテキスト本文の最後に、無駄な空白と改行が入っている
場合、これを取り除いて別の著名などを挿入したいのですが
取り除くにはどうしたらいいか教えてください

>>26
$text =~ s/\s+$/$chomei/s;
別の著名ってなんだ？

>>27
有り難うございます
日付、新規なのか更新（修正）なのかです
本文の最後に付けると見栄えが良いので

>>28
本文の最後に空白がない場合にも著名を挿入したい場合は、
$text =~ s/\s*$/$chomei/s;
な。それから、著名でなくて署名じゃないのか？

>>20
クックブックの方が便利なの？
これ↓を買おうと思っているんだけど。。

Perl/CGI逆引き大全 600の極意
http://www.amazon.co.jp/gp/product/4798010774/

すみません

>>17
@b = eval $a;
で万全。

>>30
その本持ってる。旧版だけど。

>>33
ちょーだい

俺は技術評論社の perl リファレンス使ってる

おらいりーは有用だけど余計な文が多くてあまり馴染めんかった

>>35
それも持ってるわ

書式だけ確認したいときはラクダはちょっと邪魔かも

リファレンスは perldoc 一本に絞った。
ラクダ本は、必要な所だけスキャンして処分(ボロボロだったので)。
現在うちにあるPerlの本はAdvanced Perl のみ…。

紙で見る利便さは捨てない方がいい

書式だけなら手書きでも充分！(｀･ω･´)

わろすｗｗｗ

>>32
$aが
$a = "あいうえお,かきくけこ,さしすせそ";
みたいな時は、無理でしょうか？

>>42
>>18を無視するな…>>32はネタだ。
@splited = split /,/, $csv
まあ要するに>>19。split(とeval)を提示された時点で検索していれば、
splitが求めるものだとすぐ分かるはずなのにそれを怠っているとしか思えない。

しょうがないよ>>17超初心者なんだから

めんどくさいので答えちゃいますよ〜
>17=42
my @array = split(/,/, $string);

split　→　文字列(第２引数)を区切り子(第１引数)で分断し、その配列を返します。
my　→　変数の局所化
/,/　→　正規表現でカンマ区切りを指定
$string　→　ここではカンマで区切られた文字列が入ってると仮定
@array　→　split関数によって返された配列が入る

以上

スクリプトを組む上で必ず使うような関数は、書式を完全に覚えろとは言いません。
せめてやりたいことから関数名を連想（要は逆引き）できるようにしませう。

>>45
あんた優しすぎｗ

>>45
こ、これが大人の余裕ってやつなのか…？

ここのリンク貼るだけでええやん
http://perl.misty.ne.jp/function02/split.html

.htmlで
<!--start-->
cgiからの書込み
<!--end-->
って出来るのを最近知ったんですがどういう風に書くんですか？
ネットで探してもこのスクリプトが載ってないのだが・・・。

SSI exec でぐぐれ？

SSIは関係無い

テンプレートとなるHTMLを１行ずつ読み込む
<!--start-->が現れたら処理開始
<!--end-->が現れたら処理終了

そんなことよりも（すごい巨大なデータでなければ）
<!--INSERT-->とかを置換した方がスマートかな

意味不明情報小出な質問大杉

質問が意味分からないのに良く答えるなぁ

>>51
む？
「 .htmlで 」 って拡張子でかいてるから、HTMLファイルにアクセスしてやりたいってことじゃないの？
エスパー失敗？

テンプレートファイルを用意して、それをCGIでごにょごにょしてから表示する方法
を求めてると判断した次第

>54
SSIだったら<!--#exec 〜-->って表記をするはずだし、startとendとペアで記述するもんじゃないから
SSIは違うんじゃね？と思った

よく見たらいきなりスバっと書きすぎてたかな
気分を害してたらｺﾞﾒ

本人だが>>55の言うとおりです。
そんな感じのを教えてほしいわけです。
宜しくお願いします。

HTML::Template でも使えばええがな('A`)

>>56
多くの住人もエスパーさんも「そんな感じの」ではわからんのです。
>>55の冒頭が「やりたいこと」だったら、>>51とか。

「だから>>51のやりかたを…」とか言われると果てしなく続くのです。

>>58
その辺の事が分からないので詳しく教えてほしいのです。

>56
>57でもOKだけど
一応考え方の参考って事で・・・（略記だけど）
my %template;
$template{##TITLE##}="あ〜";
$template{##BODY##}="う〜";
open(FH, "テンプレートHTML"); read(FH, $templatehtml, (-s FH)); close(FH);
foreach(keys(%template)){
　$templatehtml=~s/$_/$template{$_}/g;
}
print $templatehtml;

HTML には挿入したい場所に##TITLE##とかを書いておけばOKです

放置すればいいのに

60だけど、これ以上は書かないつもり
これ以上書くならテンプレート形式を使ってるスクリプトを眺めろとしか言えないし

be付けてる人って、いつも煽ってばっかりだよね。

>>63
ﾆｭﾙｰしてあげるのもやさしさですｗ

うわぁ…

ではこのような事をなんと言うのかお教え下さい。

>66
散々単語が出てきてるのに・・・おまえもう来るなｶｽ

テキストに[A-z]を書き出すにはどうすればいいですか？

print a..z;

とか

>>69
できましたありがとうございます

[Aa][Aa]などのような場合はどうすればよいでしょうか？

日本語でおｋ

ここでESPを発揮！

print lc().uc() for (a..z);

>>72
いやいや敢えてこんな感じで。

my $m = 25;
$_ -= $m--, print chr $_ - 32, chr and --$m for reverse 97..122;

なかなかやるな！

>>72>>73
ありがとうございました

それから、マイドキュメントにあるホームページアップ用のhtmlファイルのjpgを全てpngにしたいんですが
どのようにすればよいですか？
いちおうこんな感じにやってみたんですがウンともスンともいいませんでした

open IN,"./1.html";
while ( $word = <IN> ){ $words .= $word;}
close IN;
open ADD,">./1.html";
$words =~ s/jpg/png/g;
print ADD "$words";
close ADD;

どこがミスってますか？

拡張子変えるだけでいいの？

>>76
はい！
htmlのソースの中にあるjpgをpngに変えるのが目的です

じゃ今度は僕がテレパス化に挑戦。

>>77
全部の open と close の後に or die $! って書いてみよう。

open IN, "./1.html" or die $!;
...中略...
close IN or die $!;

というふうにね。
困った時に時々原因を教えてくれるおまじないだよ。
これからは必ず付けるようにしてね♪

>>78
うーん、、、やはりなにも起こりません。

問題を細かくする事がデバッグのコツ。

まず、置換・書き込み部分はコメントアウトして、読み込んだ後に
$words を print して正常に読み込めているか確かめる。

正常に読み込めているのを確認したら、置換部分を有効にして、置換した後に
$words を print して本当に置換されているか確かめる。

正常に置換されていたら、書き込み部分を有効にして、書き込みファイル名を変えてみる。
・書き込み先のパスをフルパスで指定してみて、正常に書き込めるか確かめる
・存在しないファイル名を指定して、新規作成してみる
・既存のファイル名を指定して、上書きしてみる

これだけやれば原因がわかるはず。

>>80
とりあえずこんな感じでテストしてみました
デスクトップのaフォルダの中に1.htmlとtest.pl
# test.plの中身
$name = "./1.html";
open OUT,">>$name";
print OUT "test\n";
close OUT;

これでコマンドプロンプトから実行してもだめでした

一応聞くけど、hello world は動くの？
でなけりゃ一回ファイル名変えてやってみ。
たまに自分のアホなスクリプト実行したせいでファイルがロックされてる場合がある。
ソース自体は普通みたいだから、絶対なんかヘンなことしてるしｗ

openのあとｴﾗｰﾄﾗｯﾌﾟしてみたら？
open errorだったりして…

関連付けされてねぇんじゃ？

$a1 ="あ";
$a2 ="い";
$a3 ="う";
〜
$a50="ん";

このスカラー変数を、連結して表示したい場合、
print $a1.$a2.$a3.〜$a50;

perlでは、このような表記の仕方しかないでしょうか？

$sname='a';
while(1..50){
　$tmpsname = $sname . $_;
　$val = \${$tmpsname};
　$renketu .= $val;
}

すげぇテキトーｗ
つかね、配列使ってください

最近みんな優しいなあ・・・

my @Hiragana = qw(
　　あ い う え お
　　か き く け こ
....
　　わ を ん
);
local $, = "";
print @hiragana;
qwはタブも改行もスペース扱いしてくれるぞ

あ、
print @Hiragana;
ちなみに$a50="ん";にはならんぞ。５０音て５０個じゃないから

>>86は間違い
リファレンスを連結している
my $sname='a';
print join '', map { ${"$sname.$_"} } (1..50);

動かしてないがこれでよくね？

最近 use strict してたから、そういう記法もあったの忘れてたな・・・。

とりあえずグローバル変数やたら定義すると面倒で適わんね。

今携帯だから確認出来ないけど、\ は要りませんでしたか。


… 実は map の使い方というか使う意義がわかんねｗ
あとでリファレンス立ち読みしてみるかにゃ

日本語が不自由な質問に携帯から答えたおまいは優しいな･･･

この優しさが怖い

my @hiragana = qw(あ い う え お か き く け こ
さ し す せ そ た ち つ て と な に ぬ ね の
は ひ ふ へ ほ ま み む め も や ゆ よ
ら り る れ ろ わ を ん);
print map{${$_->[0]} = $_->[1]}map{['a'.$_ ,$hiragana[$_-1]]}(1..46);

なんか質問の主旨とは違うよーな気もするが

なんでデリファレンスやねん

>90
ん〜、エラーっすねぇ
Can't use string ("a.1") as a SCALAR ref while "strict refs" in use at /test.cgi line 16.

${"a$_"} にしたら
Can't use string ("a1") as a SCALAR〜
で同じエラー

俺にゃ難しい宿題だｗ

$s = "aあいうえおかきくけこ";
${"@{[substr($s,0,1]}$_"}=substr($s,$_*2-1,2)for(1..length($s)/2); #ここまでセットアップ

print join '', map ${"a$_"}, (1..10); # 好きな数だけloopすれば？

>>85
print eval(join('.', map{ '$a'.$_ } (1..50)));

Perl臭ぇーッ!!

>>97
当然 no strict 'refs';の前提だが。
シンボリックリファレンス使ってるだろ？

あ、コピーしたときにドット入ったんだな。抜いてくれ

no strict 'refs';
my $sname='a';
print join '', map { ${"$sname$_"} } (1..50);

>>100
文句多いな。
local $r = sub{((@_[0] > 1) ? $r->(@_[0]-1) : ''). eval('$a'.@_[0])};
print $r->(50);

やったー Hello World できたよ＼(＾o＾)／

sub p { my $n = shift; my $p; ($p = sub { print chr($n += shift); $p })->() }

p(0x48)->(0x1D)->(0x07)->(0x00)->(0x03)->(-0x43)->(-0x0C)->
(0x57)->(-0x08)->(0x03)->(-0x06)->(-0x08)->(-0x43)->(-0x17);

$test=1; # この状態ではシンボリック
print $test; # ここで実体化(ハード)
代入する段階でハードリファレンスってどうやるの？

日本語でおｋ

日本語でおｋ

久々にｹｺｰﾝしたｗ

ふつつかものだけど幸せにしてね('A`*)

男同士だったらどうすんだよ

問題なく結合します。
use Tie::Man::And::Man;
my $happy = tie $res106, Tie::Man::And::Man, $res107;

my $happy = tie $res106, Tie::Man::And::Man, $res107; # この状態ではシンボリック
$happy->insert(); # ここで実体化(ハード)
挿入する段階でハードリファレンスってどうやるの？

>>105 が聞きたかったのはこういう事かな？　と ESP を発揮！

$test = \1; # リテラルスカラー値に対するハードリファレンス
print $$test; # デリファレンス

多分シンボリック＝リテラルだと思ってるのかな　と想像。

シンボリック＝実体はただの文字列。文字列をデリファレンスするとシンボルテーブルから
　　　　　　　　　その名前を持つモノをひっぱってきてくれる。

エスパーすげー

エスパースレいる？

ﾘﾃﾗﾙとかﾊｰﾄﾞﾘﾌｧﾚﾝｽとかｼﾝﾎﾞﾘｯｸとかわかんね〜!!!詳しく解説してるとこｷﾎﾞﾝ

>>116
俺もよくわかんなくて、ｶﾞﾝｶﾞｯってｸﾞｸﾞったよ。
ここ↓とかどう？　perl-解説ってとこ。

山口家の逆襲
http://kabocha.org/jelfe/

もうやめたｗ

ｗｗｗｗｗ

Perl歴1ヶ月とちょっとなんですけど、こんな理解であってますか？

●リテラル
コードに直接埋め込まれている値
・123　3.14　のような数値
・"abc"　'hoge'　のような文字列
・(1, 2, 3)　(hoge=>123, huge=>456)　のようなリスト　　など

●ハードリファレンス（ただ単にリファレンスと言った場合はこれ）
値に対する参照。これ自体もスカラー値。C言語やってた人はポインタと考えれば良い。
ハードリファレンスを生成するには、以下の方法がある。
・値や変数の前に「\」を付ける → その値に対してのリファレンス
・[1, 2, 3] → 無名の配列が自動的に作られて、その無名配列に対するリファレンス
・{hoge=>123, huge=>456} → 無名のハッシュに対するリファレンス
・sub { CODE } → 無名の関数に対するリファレンス（クロージャ）

●シンボリックリファレンス
ただの文字列。文字列をデリファレンスすると、パッケージが持つシンボルテーブル
（パッケージ変数の名前と実体を結び付ける表）を通じて、その文字列の名前を持つ
実体を得る事ができる。誤爆しやすいので use strict; すると使えない。

1ヶ月ならその理解で十分だよ。

俺は4年やってるがリファレンスなんてサッパリのクソ野郎だぜ

>>122
are u mr.kent？

ちょっと質問。

$" = '/';
@list = (10, 20, 30, 40, 50);
$scalar = "@list";
これで
$scalar = join( "/" , @list);
と同じ結果になるようだけど、「$" = '/';」を使った場合には、
特殊変数$"のデフォルトの値を変えてしまうから
その後もずっとjoinせずとも/で区切られた値になるという感じなのかな。

他にはサブルーチンの@_とかは元の値が変わっちゃうみたいだけど、
特殊変数の扱いはブロックの中だけ？それともブロックの中とか関係なし？
どちらの場合もある？

その辺は一時的なものなのか、恒久的(ちょっと変な表現だけどw)なのか教えて下され。

上はあってる。
ただし、mod_perl とか $" とかだとうまくできない場合があるね。

「特殊変数」 が 「$"」 とかを指すなら、
それの有効範囲はグローバル変数と一緒。
local $" とかもできるよ。

perl -e '@a=qw/a b c/; {local $"=q!/!; print "@a\n";} print "@a\n";'
perl -e '@a=qw/a b c/; {$"=q!/!; print "@a\n";} print "@a\n";'

個人的には「join」使っておけって思う

$"は遅いよ

サンクス。
なんとなくイメージがつかめたよ。

localを使わなければ永久に変わる。
my にはグローバル変数およびパッケージ変数を宣言する能力がないので
ここにlocalとmyの大きな差がある。
呼び出し先のサブルーチンでの参照可能性でlocalとmyの差を説明するやつはウンコ

my→レキシカル変数の宣言
our→パッケージ変数の宣言
local→パッケージ変数のダイナミックスコープ化
という理解でおｋ？

our は C で言う static ？

ちゃうちゃう。

ちゃうのか・・・それなら覚えやすいな。 とか思ったのに (´ω`)

Javaのstaticに近くない？

CGI::Prettyを使って、ちょっと大きめのテーブルを表示し
ようとしたんです。
32文字ぐらい *16列 * 4098行 = 2M 程度。
メモリは2ギガ積んでいます。
しかし、実行するとメモリの使用率がガンガン上がって
いって止まってしまうんです。
use CGI::Pretty をコメントアウトすると問題ありません。
テーブルのサイズが小さいときは問題ありません。
なぜでしょう?
CGI::Pretty は使わないほうが速いというのはわかるんです
が、使わないと、HTMLソースがすごく見にくいので、できれ
ば使いたいんです。
CGI::Pretty って\tと\nを入れているだけにしか見えないの
ですが、そんなにメモリを使用するものなのでしょうか?
Windows,Linuxどちらでも、以下のスクリプトでも再現しました。
use strict;
use CGI qw(:standard);
use CGI::Pretty;
my @trs;
my @tds=qw(0 1 2 3 4 5 6 7 8 9 a b c d e f);
push @trs,td({bgcolor=>'#FFFFFF'}, \@tds) for (0..4097);
print header,start_html;
print table(Tr \@trs);

どこが問題なのでしょう?

ブラクラのつもりは無いのですが、
http://pc8.2ch.net/test/read.cgi/tech/1149259409/69
のようにswapし始めて、サーバが応答しなくなることがあるみたい
ですので、試すときは注意してください。

テーブルなら、

HTML::Table
ttp://homepage3.nifty.com/hippo2000/perltips/html/table.htm

があるけど、こちらを使ってみてはいかがでしょうか？

for (0..255);
で試した。
別 PC のブラウザで開いて、サーバーのメモリを監視してたら、ピークで 400MB 突破して、
250-350MB で変動してました。
で、500 Error で止まったｗ

Windows2000 + Perl 5.8.4 で試した。

自力で表示した方がいいんじゃないの？

for (0..128);
だと 143MB ピークで正常終了

たった256行表示するのに200メガ以上使ってエラー?
やっぱりモジュール使って書くメリットってのがわからない。
モジュール使ったほうがいいって言ってるヤツの意見を聞いてみたいね。

>>136
この程度のテキスト処理にそんなにメモリを使うはずがない。
と思って試したら本当にものすごい負荷がかかる。何なんだコレ?

ぃゃぃゃぃゃ、１つの悪で全てが悪と決め付けるのはいくないかと

>>136
@CGI::Pretty::AS_IS = grep !/^td$/, @CGI::Pretty::AS_IS;

これを use CGI::Pretty; の後に差し挟むことで耐用限界を引き上げることができるはず。
アドホックでバッドプラクティス全開なので、あくまで応急処置。

こういうの思いついちゃう自分が嫌い。

Win32::OLEを使って以下のようにExcelのセルのデータを取り出しています。
その場合、元の値が「2004/7/7」という中央寄せの文字列(日付型ではない)のとき、取り出した値が
Win32::OLE::Variant=SCALAR(0x1c14028)
となってしまうのですが、何が原因なのでしょうか。

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

my $master_excel_file = "xlsファイル";

$Win32::OLE::Warn = 3;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit') || die;
my $Book = $Excel->Workbooks->Open($master_excel_file) or die;

foreach my $row(@{$Book->Worksheets(1)->Range(A1:Z1000)->{'Value'}}) {
my @values = @$row;
}

CGI::Pretty って標準モジュールなのなｗ
256程度でエラーとか、全然かわいくねーよｗ

CGI::Prettyの_prettyPrintがあまり実行効率を考えていないようなので
書き直してみた。いちおうmake testは通る。

sub _prettyPrint {
my($input) = @_;

return if !$CGI::Pretty::LINEBREAK || !$CGI::Pretty::INDENT;

$$input =~
s/\Q$CGI::Pretty::LINEBREAK\E/$CGI::Pretty::LINEBREAK$CGI::Pretty::INDENT/gi;

my $as_is = join '|', map { quotemeta $_ } @CGI::Pretty::AS_IS;
$$input =~ s:(<($as_is)[\s>].*?</\2>):_deIndent($1):egi;
}

sub _deIndent {
my($s) = @_;

$s =~ s/\Q$CGI::Pretty::LINEBREAK$CGI::Pretty::INDENT\E/$CGI::Pretty::LINEBREAK/gi;

return $s;
}

爆速になった
せっかくだからオリジナルを保存して書き換えてしまうか

>>146
え、それで同じ結果になるの？ すごくね？
後学のために _prettyPrint の問題点を教えてください。

>>146
これすげぇ

オリジナルの_prettyPrintは再帰しまくってるからメモリと速度が駄目駄目なのかな？
とか思いつつお買い物・・・

>>145
専門用語として伝統的にPretty Printって言ったら整形出力の意味な。
つまり、かわいいHTMLソースを作る職人が大喰ら(ry

>>146
それ処理的に等価じゃないな…
例えばpreの中身がインデントされちゃうから実用的にも影響が出る。
div( pre( "hoge\nfuga" ) )
しかしそれにしても元のやつには改善の余地があるような…漏れもリファクタリングやってみよう

>>151
すまん、バグっていた。ｓ修飾しないと「.」が改行にマッチしないから
@AS_ISで指定されるタグに囲まれる部分が複数行にまたがるときに
おかしくなるね。

$$input =~ s:(<($as_is)[\s>].*?</\2>):_deIndent($1):egi;

↓

$$input =~ s:(<($as_is)[\s>].*?</\2>):_deIndent($1):egis;

これでその例も同じ結果になるはず。

>>148,150
@AS_ISで指定したタグに囲まれた部分はインデントを追加しないで
他の部分に追加ということをやりたいようなのだが、オリジナルは
以下のような処理になっている。

if (@AS_ISタグに囲まれた部分がある) {
文字列を 「囲まれた部分の前」、「囲まれた部分」「囲まれた部分の後」
　の3つに分割

「囲まれた部分の前」「囲まれた部分の後」をそれぞれ再帰的に
自分を呼んでインデント

「囲まれた部分の前」をインデントしたもの,「囲まれた部分」,
「囲まれた部分の後」をインデントしたものを連結して返す
} else {
改行の後ろにインデントを追加する
}

デフォルトで@AS_ISにtdが含まれているので、<td>〜</td>の数だけ
再帰する。再帰するごとにだんだん短くなるが文字列がコピーされるので
O(n^2)のメモリを消費し、コピー処理でCPUも同じオーダで食うようだ。

書き直した奴は、

とりあえず全部の改行にインデントをつける
@AS_ISで指定されたタグに囲まれた部分の改行の後のインデントを削って戻す

という処理にしてみた。

すいません、質問です

ActivePerlの導入をしようと思い、msi版をダウンロードしても、
”有効なwin32アプリケーションではありません ”
になります。
当方、Win98なんですがどうすれば導入できますか？

>>154
ActivePerlをダウンロードしたページの
Installation Notes
の部分をよく読めば導入できます

勉強になるなぁ

>>153
わかりやすい解説ありがとう！
なるほどなるほどって感じ。
発想変えるだけでコードがガラっとかわる手本だね。

CGI::Pretty たんのドジッ娘属性に萌えた。

>>155
Windows Installer 2.0+ is required for Windows.
download for 9x/Me

ってことですね。ありがとうございました。

ねえねえ。
ベンチとったら、(10000回)

my $string2 = lc $string;

が 5.7 秒で

my $string2 = $string;
$string2 =~ tr/A-Z/a-z/;

が 2.6 秒だったんだけど、これどういうこと？
同じことしてるんじゃないんだっけ？

>>160
うちではどっちもどっちだったよ
$ perl -v

This is perl, v5.8.7 built for cygwin-thread-multi-64int

$ cat hoge.pl
use Benchmark;
my $string = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
timethese(10000*100,
{
'lc' => sub {my $string2 = lc $string;},
'tr' => sub {my $string2 = $string;$string2 =~ tr/A-Z/a-z/;},
});

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 2 wallclock secs ( 0.58 usr + 0.00 sys = 0.58 CPU) @ 1721170.40/s (n=1000000)
tr: 2 wallclock secs ( 0.54 usr + 0.01 sys = 0.55 CPU) @ 1814882.03/s (n=1000000)

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 2 wallclock secs ( 0.52 usr + 0.00 sys = 0.52 CPU) @ 1923076.92/s (n=1000000)
tr: 2 wallclock secs ( 0.58 usr + 0.00 sys = 0.58 CPU) @ 1721170.40/s (n=1000000)

>>161
あれ、ほんとだね。わざわざありがとう。
置換するソースによって違うんかなあ？

うちは google に perl って入れてでてきた 56kb くらいのソースでやったんだけど。
それともアルファベット以外がたくさん入ってると lc は遅くなるとか？ うーん・・・
perl の ver だったらやだなｗ

ちなみに
uc $string : 6.58 [s]
tr/a-z/A-Z/ : 5.50 [s]

@xの配列が変動する状態で、
10個目以降全てに対して処理をしたい場合、
foreachで、１〜９回目のループをifで飛ばすようなやり方以外で、
何かスマートな方法はありますか？

for

>>163
配列スライスに対してforeachでいいんでね?

foreach my $i (@x[9..$#x]) { ... }

>>162
> うちは google に perl って入れてでてきた 56kb くらいのソースでやったんだけど。
それでやってみた。何回やってもlcの方が速かった。

$ cat hoge.pl
use Benchmark;
use LWP::Simple;
my $string = get('http://www.google.com/search?q=perl');
timethese(10000*100,
{
'lc' => sub {my $string2 = lc $string;},
'tr' => sub {my $string2 = $string;$string2 =~ tr/A-Z/a-z/;},
});

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 1 wallclock secs ( 0.28 usr + 0.00 sys = 0.28 CPU) @ 3571428.57/s (n=1000000)
(warning: too few iterations for a reliable count)
tr: 0 wallclock secs ( 0.34 usr + 0.00 sys = 0.34 CPU) @ 2932551.32/s (n=1000000)
(warning: too few iterations for a reliable count)

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 0 wallclock secs ( 0.23 usr + 0.00 sys = 0.23 CPU) @ 4347826.09/s (n=1000000)
(warning: too few iterations for a reliable count)
tr: 1 wallclock secs ( 0.32 usr + 0.00 sys = 0.32 CPU) @ 3115264.80/s (n=1000000)
(warning: too few iterations for a reliable count)

> 何回やってもlcの方が速かった。
訂正。今やったら逆転した。(warningに気づいてなかったので回数を更に10倍にした)
やっぱりどっちもどっちじゃね？2倍も差が開くとは思えないけど。。ベンチ取ったスクリプトさらしてみて。

$ perl hoge.pl
Benchmark: timing 10000000 iterations of lc, tr...
lc: 4 wallclock secs ( 3.58 usr + 0.00 sys = 3.58 CPU) @ 2797202.80/s (n=10000000)
tr: 3 wallclock secs ( 3.42 usr + 0.02 sys = 3.44 CPU) @ 2911208.15/s (n=10000000)

$ perl hoge.pl
Benchmark: timing 10000000 iterations of lc, tr...
lc: 3 wallclock secs ( 3.41 usr + 0.01 sys = 3.42 CPU) @ 2928257.69/s (n=10000000)
tr: 3 wallclock secs ( 3.45 usr + 0.00 sys = 3.45 CPU) @ 2894356.01/s (n=10000000)

もう誤差の範囲だろ…

>>167
ってか、うち1万回で5秒とかなのに、1000万回で3秒とか、どんなPCの性能差だよｗ
AthronXP1700 の 512MB あるんだけどなあｗ perl は 5.6

・・・っと思ったら、

use strict;
use Benchmark;
use LWP::Simple;
my $string = get('http://www.google.com/search?q=perl');
print $string;

これ何もでなくね？ｗ status_line とったら 403 返ってきたよｗ google 内部で弾いてんのかな・・・
こっちはブラウザから見てソース保存して開いてやってた。 〜?q=perl&num=50&hl=ja
こんな感じ。

use strict;
use Benchmark;
my $string;
open (LOAD, 'lc.html'); read (LOAD, $string, -s LOAD); close (LOAD);
timethese(10000, {
'lc' => sub {my $string2 = lc $string;},
'tr' => sub {my $string2 = $string;$string2 =~ tr/A-Z/a-z/;},
});

文字列を一文字ずつ処理して
とある文字が出てきたところで区切って
その区切ったそれぞれの文字を配列に入れるということをしたいのですけど、ｌ
やり方が浮かばなくて・・・
どのようにコーディングすればいいのでしょうか？

日本語でもう一度

>>170
split

>>172
あっ　出来ました。　ありがとうございます

CPANのインストールディレクトリってどこにしてる？
デフォの /home/~username/.cpan にしとく？自分用に変える？
dotディレクトリに入れるのがなんか気持ち悪いんだが、、、

>>174
> dotディレクトリに入れるのがなんか気持ち悪いんだが、、、

そんなことないよ。気持ちいいよ。

テキストファイルから読み込んだ@listに対して
それぞれ一行ずつを取り出して表示させるにはどうすればよいでしょうか？

foreach
ていうか、本くらい読め。基本過ぎる

>>177
本だと私のやりたいことが載ってなかったので質問してしまいました
すいません、、、

@listに代入させた各行の１番目の<p></p>はそのまま、２番目の<p></p>を削除したいのですが、、、

>>178
その foreach の載ってない本の題名を教えてください。

以前、正規表現道場というスレがあったと思うのですが、
なくなっちゃったんですか？探してもないんだけど。

>>178
その s の載っていない本の題名を教えてください。

>>179>>181
「Perl＆CGI入門」という本です

１番目の<p></p>はそのまま、２番目の<p></p>を削除がちょっと、、、

本当に本を読んでいるとしたら、もしかして応用力のない子ですか？
正規表現くわしくのってないのかな？ 持ってないから分からん・・。

$line =~ s{^(.*?<p>.*?</p>.*?)<p>.*?</p>}{$1};
↓ (<p class="〜"> とかもあるなら)
$line =~ s{^(.*?<p(?:\s[^>]*)?>.*?</p>.*?)<p(?:\s[^>]*)?>.*?</p>}{$1};

これでいいかな？ 試してないけど。
後で 3番目以降も削除したいんですけど、とか聞かないでね。応用しる。

あまりに正規表現に弱かったら、

if ($line =~ /<p>/) {
$line =~ s{<p>}{\x01};
$line =~ s{</p>}{\x02};
$line =~ s{<p>.*?</p>}{}g;
$line =~ s{\x01}{<p>};
$line =~ s{\x02}{</p>};
}
とでもやればいいんじゃねｗ おすすめはしないけど。
でもなんで 1番目だけいらないんだろうなｗ どう使うのか予想つかないわ。

>>180
たぶん、ム板にあるからいいじゃんということになったんだと思う
正規表現 part2
http://pc8.2ch.net/test/read.cgi/tech/1131028296/

>>169
> これ何もでなくね？ｗ status_line とったら 403 返ってきたよｗ google 内部で弾いてんのかな・・・
うはｗｗｗごめんｗｗｗ

同じスクリプトでやってみた。trの方が速いっぽい。まあそれでも2倍も差はつかないけども。。

$ perl -v | head -2

This is perl, v5.8.7 built for cygwin-thread-multi-64int

$ wc lc.html
133 2052 60082 lc.html

$ for i in 1 2 3 4 5 ; do perl hoge.pl ; done
Benchmark: timing 10000 iterations of lc, tr...
lc: 3 wallclock secs ( 2.93 usr + 0.00 sys = 2.93 CPU) @ 3408.32/s (n=10000)
tr: 3 wallclock secs ( 2.47 usr + 0.00 sys = 2.47 CPU) @ 4043.67/s (n=10000)
Benchmark: timing 10000 iterations of lc, tr...
lc: 3 wallclock secs ( 2.97 usr + 0.00 sys = 2.97 CPU) @ 3362.47/s (n=10000)
tr: 3 wallclock secs ( 2.47 usr + 0.00 sys = 2.47 CPU) @ 4042.04/s (n=10000)
Benchmark: timing 10000 iterations of lc, tr...
lc: 3 wallclock secs ( 2.90 usr + 0.00 sys = 2.90 CPU) @ 3443.53/s (n=10000)
tr: 3 wallclock secs ( 2.56 usr + 0.00 sys = 2.56 CPU) @ 3901.68/s (n=10000)
Benchmark: timing 10000 iterations of lc, tr...
lc: 3 wallclock secs ( 2.92 usr + 0.00 sys = 2.92 CPU) @ 3419.97/s (n=10000)
tr: 3 wallclock secs ( 2.49 usr + 0.00 sys = 2.49 CPU) @ 4011.23/s (n=10000)
Benchmark: timing 10000 iterations of lc, tr...
lc: 3 wallclock secs ( 2.90 usr + 0.00 sys = 2.90 CPU) @ 3443.53/s (n=10000)
tr: 3 wallclock secs ( 2.47 usr + 0.01 sys = 2.48 CPU) @ 4027.39/s (n=10000)

trで代わりの動作が出来る場合はtrの方が早いというのは周知の事実かと思ってたが・・・

手持ちのカードで何ができるかを考えるのは自分ですよ
自分はこうやってるんだけど他にいい方法ない？ならわかるけどさ。

どこのはなし？

>>178あたり。

簡易予定表のようなものを組んでみたんですが、なんだかモッサリしてる気がします。
もっと簡潔に書けるような気がするんですが自分ではこれが限界でした。
あと、ファイルロックのやり方が合っているのか自信がありません。
一応動いていることは動いているんですが、問題はないでしょうか。
改良すべき点、根本的にこういう書き方に直した方が良い、とかあればアドバイスお願いします。
大まかな内容は以下のようなものです。

予定として保存する内容は「予定日（月と日）」と
「予定内容（長くても200バイト程度）」の２つでフォームから渡します。
予定を保存するファイルは月単位で作成します。
例えば2006年5月の予定の場合なら「200605.txt」というファイル名です。
保存するファイルがないときはその都度作成し、

6月1日

6月2日

6月3日
.
.
.
という風に日付だけを先に入れておきます。
保存するファイルがあるときは、
フォームから渡された「予定日」とマッチした日付の次の行に「予定内容」を書き込みます。

内容は以上です。次レスにコードを晒します。

# 保存するファイル名
$a = sprintf("%04d%02d",$YEAR,$MON)
$file = "$a.txt";

# 月から日数を出す
if($MON == 1|3|5|7|8|10|12){
$m = 31;
}elsif($MON == 4|6|9|11){
$m = 30;
}else{
if($YEAR % 4 ==0){
$m = 29;
}else{
$m = 28;
}
}

for($i=1;$i<=$m;$i++){
$date .= "$MON月$i日\r\n\r\n";
}

# 該当する月のファイルがなければ作成
if(!open(IN,"$file")){
open(OUT,">$file")
flock(OUT,2);
print OUT $date;
close(OUT);
}
open(IN,"$file");
flock(IN,2);
@A = <IN>;
close(IN);

# 「予定日」とファイル内の「日付」をマッチングさせて該当日付に「予定内容」を書き込む
$loop = @A;
$i = 0;

while($loop > 0){
if($A[$i] eq $plan_day){# $plan_day = "フォームからの情報（予定日）";
$A[$i] .= "$plan_value\r\n";# $plan_value = "フォームからの情報（予定内容）";
}
$loop --;
$i ++;
}

if(!open(OUT, "+< $file")){&error;};
flock(OUT, 2);
truncate(OUT, 0);
seek(OUT, 0, 0);
print OUT @A;
close(OUT);

>>190-192
自作CGIを評価するスレ
http://pc8.2ch.net/test/read.cgi/php/1049514428/

>>193
そちらで質問してきます。

if($MON == 1|3|5|7|8|10|12)

これ斬新だな。当然Warning出るけど一応動くんだｗ

>>195
動くって、意図した通りに動くっていう意味？

>>196
いや、意図した通りには動かない。だって15だよ。比較の右辺。

配列（コンマ区切り）の中身を一定の数ごとに折り返して再び配列（コンマ区切り）に
入れ直したいんですが良い方法が浮かびません。
うまく表現できないので例を挙げると、
「@listの中身は20コあって、5コごとに折り返して再び@listに入れ直す」
という意味は、下のようなイメージです。
$list[0] = $list[0] . $list[5];
$list[1] = $list[1] . $list[6];
$list[2] = $list[2] . $list[7];
$list[3] = $list[3] . $list[8];
$list[4] = $list[4] . $list[9];
$list[5] = $list[10] . $list[15];
$list[6] = $list[11] . $list[16];
$list[7] = $list[12] . $list[17];
$list[8] = $list[13] . $list[18];
$list[9] = $list[14] . $list[19];

法則性を見つけろ

>>198
そういう処理が必要になった時点で何か間違ってる

>>195
そらビット演算するだろなｗ
やりたかったのは
if($MON =~ /^1|3|5|7|8|10|12$/)
こうだろうね

ぶｗ もろカッコつけるのわすれたｗ アホかｗ
if($MON =~ /^(?:1|3|5|7|8|10|12)$/)

うるう年の判定も間違ってるし日付関連のモジュールを使うべきだと思った。

>>199
も、もう少しヒントお願いします。

>>200
例えば、EXCELのフォーマットの関係でCSV出力のときだけ
こういう処理をしたりするのって変ですか？

ちょと質問です

標準入力の読み込み位置を変更したいのですが
seek STDIN, 0, 0;
ではダメなようでして
なにか術があれば教えてください

>204
１つのループでいけるかとおもったけど、前半と後半でちゃうのか・・・
処理方法を見直したほうが良いかと思うｗ

>>198=204
1行でもできるんでない？

ヒントをいえば、
右側は常に list[n] + list[n+5]
になってて、
その n ってのは、左側を list[i] とすれば、
i が 5回ごとに 10 足されていって、それに、 i 回目を 5 で割ったあまりを足したもの。

STDIN は前方向にしか進めないですよ

(１) 一旦ファイルに書き出したのを利用する
(２)そんなにでかくないのなら read で読み込んだものを利用する

の２通りがあります。
大きいファイル、環境にも夜でしょうが 5MB あたりを境に (１) か (２) かを使い分ければ良いかと思います。

>>208
そういうことでしたか
ありがとです

>207
あ〜、無理に $i １つでやろうとしてたから駄目だったかｗ

>204
use strict;

my @list = map{ "str$_" }(0..19);

my $n = 0;
my @newlist = ();
for(my $i = 0; $i < 10; $i++){
　　if($n && !($n % 5)){ $n += 5; }
　　$newlist[$i] = $list[$n] . $list[$n + 5];
　　$n++;
}
print join("\n", @newlist);

>>198
エレガントじゃないけど、こんなのどうかな・・・

use strict;

sub wrap_list($@) {
    my ($width, @list) = @_;
    return @list if $width <= 0 or @list == 0;

    my @result = (), my $wrap = 0, my $i = 0;
    for (@list) {
        $result[$i++] .= $_;
        if ($i % $width == 0) {
            $wrap = !$wrap;
            $i -= $width if $wrap;
        }
    }
    return @result;
}

my @wlist = wrap_list 5, ('a'..'z');
print "@wlist\n";

>>198
my @list;
for (my $i = 0; $i < 10; $i++) {
my $j = $i % 5 + 10 * int($i / 5);
$list[$i] = $list[$j] + $list[$j + 5];
}

すまん自己レス。文字列連結するのか。一行間違った。

>>198
my @list;
for (my $i = 0; $i < 10; $i++) {
my $j = $i % 5 + 10 * int($i / 5);
$list[$i] = $list[$j] . $list[$j + 5];
}

>>210-213
うはｗ 答え書いちゃうとわざわざヒント出した意味がｗｗ

まあありか。

自分が書いたのは >>213 まんまっす。

配列数がわからない場合、$i < 10 の部分は、事前に
my $limit = (scalar @list) / 2; で $i < $limit; とでも。 # @list は偶数であること。

>>207
こういうことでしょうか・・・でも結果がうまく出ないです。
どこが間違ってるんでしょうか？

for($i=0;$i<10;$i++){
if($i>=5){
$n = ($i%5) + 10 + $i;
}else{
$n = $i;
}
$list[$i] = $list[$n] . $list[$n+5];
}

>>198 は「一定の数」って書いてるから20と5はあくまで例じゃないの？

>>210-213
あわわ、レスあったのに気付かなくてすみませんでした！
ありがとうございます！ゆっくり拝見させていただきます。

>>215 にﾜﾛﾀ。

>>216
あ、ズバリその通りです。
ただ、自分の場合いきなり任意の数でできるレベルじゃなかったので・・・。
どんな数にでもすぐ応用できるものがあれば一番良いと思っています。

219=198です。
>>218
お恥ずかしいです・・・。

あ、>>213 よ。
$list[10] から先が残ったまんまだぞ。
まあ >>198 見ると残らせるのか残らせないのか分からないけどねｗ
>>198 は残らせないなら @newlist に入れるべし。

さあ、ここで拡張性のテスト
「>>198の動作を、2行の折り返しから3行の折り返しにしたくなった」
「3行どころかn行（任意の行数）に折り返したくなった」

ちゃんと拡張できますか？

それは回答者へのテスト？ｗ

>>223
そうｗ　普段から、あとで拡張しやすいように書いてますか？　という抜き打ちみたいなｗ

>>222=224
んじゃ、ちょっと面白そうなのでやってみた。
>>213 に似た自分のソースでの回答ｗ

use strict;
my $ori = 10;    # ○個ごとに折り返す (自然数)
my $ren = 4;    # 繋げる個数
my @list = map{ " $_ " }(0..119);    # @list の数は $ren と $ori の倍数であること

# loop
my @newlist = ();
my $limit = (scalar @list) / $ren;
for (my $i = 0; $i < $limit; $i++) {
    my $n = int($i / $ori) * $ori * $ren + $i % $ori;
    $newlist[$i] = '';
    for (my $j = 0; $j < $ren; $j++) {
        $newlist[$i] .= $list[ $n + ($ori * $j) ];
    }
}

# print
for (my $i = 0; $i < scalar @newlist; $i++) {
    print "$i : $newlist[$i]\n";
}
exit;

連結に2重 for 使うのはしょうがないよね・・・。

>>221
そうですね。その点を見落としていました。

>>222
3列の場合は・・・こう？
for (my $i = 0; $i < 30; $i++) {
my $j = $i % 5 + 15 * int($i / 5);
$list[$i] = $list[$j] . $list[$j + 5] . $list[$j + 10];
}
任意の行については・・・もうちょっと待って下さい・・・。

>>222
引数で$n(行数)を受け取ったとして
$wrap = !$wrap;
$i -= $width if $wrap;
を
if ($wrap++ < $n-1) { $i -= $width }
else { $wrap = 0; }
に直したらできます。

くっｗ　抜き打ちなのに簡単に修正しやがって！

　　　_、_
　（　,_ﾉ` ） 　 　　　n
￣　　 　 ＼　 　 （ E） ｸﾞｯｼﾞｮﾌﾞ!!
ﾌ 　　　 /ヽ ヽ_／／

>>211=227 も面白いね。考え付かないなあ・・・。

みなさん、すごいですねぇ。
解答を見てもよく分からない部分もあるようなレベルなので
参考にしつつ勉強してきます。
お付き合いしていただいた方々、本当にありがとうございました。

中身が数字のid.txt　というファイルを読み込んで
中身を表示→数字に１を足す　という動作をさせたいのですが、

中身をセットする時点で数字が消去されてしまうようです。

open (ID,">id.txt");
$id = <ID>; #ここの時点で中身が消去？

print "$id";

$id++;
print ID "$id";
close(ID);

例えばファイルの中身の初期値が100ならば、
最初は100、リロードの度に101、102・・・と表示されると思うのですが
上手くいきません。

ご指摘のほどよろしくお願いいたします。

>>231
>open (ID,">id.txt");
書き込みでopenしているので、中身はこの時点で消去です。
一度読み込んでから、書き込むように変えましょう。

>>231
openのモードがNG
「>」「>>」「<」「+<」の違いはわかってる？

+< id.txt
seek
減る事もある場合、桁数に注意

ねえ、
$word が任意の入力できる文字列で、文字コードが EUC か UTF8 だとして、

$word = quotemeta $word;
$word =~ /$word/;

に、セキュリティホールってある？ 普通に通るかすら。

なんで $word を $word で検索してんだw
$word = quotemeta $word;
$text =~ /$word/;
こうですた。

何がしたいねん

おそらくは検索か
俺は\x00-\x19までを削除してるのと、正規表現で意味のもつものをエスケープする以外はなんもやってない

勉強中の身に、どなたか教えてください。

open(FILE, "<2get.txt") || print "file open error!";
while(<FILE>){
print;
}

とやって、2get.txtの内容を出力する、というのを応用して、
2get.txtの内容を途中まで読み込むCGIを作りたいのですが。

例えばこの2get.xtxの中の１行に、
<!-- ここまで -->
とか書いておきます。

で、CGIで読み込む時に、上から１行ずつ読んでいって
<!-- ここまで -->の行が出てきたら、読み込み終了。

実際に自分で作ってみて、while〜の１行を
while(<FILE> ne '<!-- ここまで -->') ||（以下略）
って書き換えたら、CGIが動かなくなりますた。
どっかで勘違いしてるんだろうと思うんだけど、
勘違いのポイントかヒントだけでも教えてください。

while(<FILE>)ってwhile($_ = shift <FILE>)と同じなんで、そこで抜ける判定をしなんでも
print; の前に抜ける条件を書いて lastしてみればいいんじゃないかと。

勘違いじゃなくて勉強が足りんかったわけですね。
つーか500エラーが出ました。

while(<FILE>) {
if($_ eq '<!-- ここまで -->') { last; }
print;
}

これで合ってますか？

あ、できた。

でも<!-- ここまで -->を読んでくれません。
''で囲むんじゃダメなんですかね？
それとも改行コードも考慮しないといけないとか？

>>240
shift はつかなくね？ $_ = <FILE> じゃ？

>>242
$_ は最後の行じゃない限り、最後に改行がついてるよ

>>232>>233>>234
有難うございました。

>>243
defined($_ = <FILE>) じゃね？

でもさあ、1行ずつ読み込んで、その都度あるかないかわからない文字列をチェックして途中で終了させるより、
一気に全部読んで文字列に入れてから、その文字があるなら正規表現でずばっと削除したほうが早いよね。

>>247
んなこた環境とデータセットによる。

I/Oやメモリをそこまで気にする時代じゃないだろうに

>>249
「早いよね」ってことだったので、速いか遅いかは読込むデータの傾向や動作環境によるっつー話。
メモリやら I/O の話はどこから出てきた?

っていうか、いま気づいたんだけど、
>>239 の場合

local $/ = '<!--ここまで-->';
open (FILE, '2get.txt');
$_ = <FILE>;
close (FILE);
print $_;

ってやると解決しないか？
速度的にも一番早い。

>>240
>>244
ありがとうございました。なんとか動くものになりました。

>>247
正規表現もまだ理解しきっていないので…
今後のメンテナンスの時に考えることにします。

あ、 print 前に chomp; もか。

>>251
激しく意味不明のテキストが発生しますた…

>>254
まじでｗｗｗ
うちではうまくいくけどなあ。
ちょっとこれだけ走らせてみｔ

[2get.txt]
1111111111111111111111111111111111111111111
222222222222222
3333333<!--ここまで-->333333333333

[hoge.pl]
use strict;
{
local $/ = '<!--ここまで-->';
open (FILE, '2get.txt');
local $_ = <FILE>;
close (FILE);
chomp $_;
print $_;
}
exit;

\r\n\r\n ずつデータとるときとかに使えるしｗｋｔｋだと思ったんだがなあ。

$/ 自体に長さの制限とかあるのかな？

>>256
どうなんだろ？
とりあえず試しに 200kb くらいのテキスト用意して、

- - - - - - - - - - - - - - - - - - - - - - - - - - -
$/ = '『根掘り　葉掘り　聞き回る』の・・・『根掘り　葉掘り』・・・・・ってよォ〜〜〜
『根を掘る』ってのはわかる・・・・・スゲーよくわかる　根っこは土の中に埋っとるからな・・・
だが「葉掘り」って部分はどういう事だあああ〜〜〜〜〜っ！？
葉っぱが掘れるかっつーのよーーーーーーッ！
ナメやがってこの言葉ァ　超イラつくぜぇ〜〜〜ッ！！
葉っぱ掘ったら裏側へやぶれちまうじゃあねーか！
掘れるもんなら掘ってみやがれってんだ！チクショーーッ
どういう事だ！どういう事だよッ！クソッ！葉堀ってどういう事だッ！
ナメやがってクソッ！クソッ！';
- - - - - - - - - - - - - - - - - - - - - - - - - - -

・・・って入れてやってみたけど、こっちでは無事その前部分だけに切り取られたよｗ

>>255
ファイル作ってみましたが500エラーです…

おかすい。なぜだ。

>>258
え、どんなエラーでてる？

ブラウザでやってるなら
#!/usr/bin/perl
print "Content-type: text/html\n\n";
も入れてね？

>>257
その文章の方が気になりますがw

すんません、Content-typeを入れるの忘れてますた。
んで、今度こそ大丈夫だと思ったら空白ページ。

鯖環境かなんかですかね？

できたー！

ええｗ ('A`)

まあおめでとう！ｗ 何が悪かったのやらｗ

てか自分のPCに perl 入れて、コマンドプロンプトとかから perl 実行すること覚えようぜ。エラーメッセージでて便利よ。

> てか自分のPCに perl 入れて、コマンドプロンプトとかから perl 実行すること覚えようぜ。エラーメッセージでて便利よ。

無限 fork するようなもの書いたときにおかしくなるから嫌。

>>262
うい。perlは入れた（はず）ですが、実行の仕方（設定の仕方？）が分からんとです。
これから覚えます。

ちなみに、もともと作ってた方のページも直しましたが、
読み込み元ファイルの内容が表示されんとです。

まだまだ道は長いとです。

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

>>263
えぇｗ

>>264
そのフォルダからcmd開いて、 「perl hoge.cgi」 とか打つだけだす。
あと、$/ 変えて読み終わったあとは、変な挙動起こさないように、
$/ = "\n"; って設定しなおしていくといいかも。

>>265
> そのフォルダからcmd開いて

いきなり意味分かんないんで、このスレのログ保存しておきました。
もうちょっと頭が良くなってから読み返します。

こんな夜中までありがとうございます。

>>184　ありがトン

> そのフォルダからcmd開いて

確かに、意味不明ですね。

意味不明だけど言いたいことは分かる

まじかｗ

↓こういうのをやるとか、
http://arena.nikkeibp.co.jp/tec/winxp/20050309/111687/

どっかのフォルダの ツール → フォルダオプション → ファイルの種類 → CGI ファイル → 詳細設定 で、
新規 → アクション 「cmd」 → アクションを実行するアプリケーション 「cmd.exe "cd %l"」

ってやると、「そのフォルダからcmd開いて」 な感覚になるんだけど・・・普通そう言わないのかな・・・(´･ω･｀)

アクセサリ -> コマンドプロンプト を実行して、
cd "c:\perlスクリプトがあるディレクトリ"
perl スクリプト名.pl

が親切では？

>>271
うん、そうなんだけど、
ファイルのディレクトリが D:ドライブだとまた違うし、
何度も使うなら、cd 〜フォルダ名 とか打つの省略できる方が楽だと思って。

>>272
今日から perl 勉強します yo! ってひとが、そんな設定やると思う？

コマンドプロンプト開いた時点で、その人のホームディレクトリにいるから
誘導するのはそれほど難しくないよね。

Microsooftが配布してるツールとか、窓の手とかのカスタマイズツールで、
エクスプローラのフォルダから DOS 窓を開けるようになる。
そうすれば一々 CD しなくてもいいし、perl への PATH が通ってれば perl ってだけで
起動できる。

ちなみに cmd とか commasnd とかから起動すると速攻で窓閉じるから駄目よｗ

あるソースを読んでいて分からないところがあるので質問させて下さい。

@{$a}{@$b}

これってどういう意味なんでしょう？
そんなに難しいことじゃないと思うんですが、
perlは慣れていないので苦労しています。
宜しくお願いします。

>>275
例えば、
$a = 'hash';
$b = ['a', 'b']; # 配列のリファレンス
とすると、
@{$a}{@$b} → @hash{'a', 'b'} → ($hash{'a'}, $hash{'b'})
のこと。

>>276さん
そういうことだったんですね。
助かりました。有難うございました。

配列とソートに関しての質問です
左は日付です

--20060101--aaaa----
--20060423--bbbb----
--20060514--cccc----

なんてのが書いてあるファイルを読み込み　＠dataとします
まず＠dataを表示させてみると２行目からの頭に半角のスペースが入ります
これはなんでしょうか？

さらに

foreach(@data){
if( /(--(\d*)--\w*----)/){
$list {"$2"}=$_;
}}

foreach $key (sort keys %list){
push @htm ,$list{$key};}

とし、これをもう一度展開して表示させてみると、同じ日付がある場合に
誤動作して読み込まれません
改善するにはどうしたらいいでしょうか？

>>278
行と改行コードに関する質問です

読み込み
もう一度展開

なんてのが書かれている質問を読み込みます
これはなんでしょうか？

> 頭に半角のスペースが入ります
> これはなんでしょうか？
　自分で書いているとおり半角のスペースなのではないでしょうか。

さらに

誤動作して読み込まれません

と書いてあるので考えてみると、コードは動いているのに質問する場合なので
解釈がうまくできません
改善するにはどうしたらいいでしょうか？

質問の仕方が悪いのはご容赦ください

>>278
> 半角スペース
定番FAQ
print "@data";とやってるだろ。
配列を文字列内に入れようとすると$"(デフォルトで半角スペース)で連結されるからこうなる。
むやみにダブルクォーテーションで囲むのは止めましょう。
ちなみにprint @data;の場合は$,で連結される。これはデフォルトで空文字列。

> 同じ日付
%listの中に配列を作って複数の値を記録できるようにすれば良い。
foreach (@data) {
push @{$list{$1}}, $_ if /--(\d*)--\w*----/;
}

foreach my $key (sort keys %list){
push @htm, @{$list{$key}};
}

>>278
@dataはファイルから丸ごと読み込み
@data = <FH>;
で、@dataを表示する時に
print "@data";
とかやってるんじゃないの？
だったら頭にスペース入るだろうね。

２つめは当たり前でしょう。
同じ日付があれば、データが上書きされるので。
ハッシュの先を配列にするとかしないと。

wiki記法で書いたテキストをhtmlに反映したいのですけど
そういったモジュールってありますでしょうか？

CPANでwikiで検索したら数があまりに多すぎて。。。。。

>>281 >>282
有り難うございます

push @{$list{$1}}, $_ if /--(\d*)--\w*----/;
この部分がエラーを発生します

もうちょっと勉強してみます

失礼しました、大丈夫でした、m(_ _)m

それだと要素数が１の配列ができまくってモヤっする

文法的に正しいとか間違ってるとかは置いといて、スカラーとか配列とか、
最初に空のデータとして宣言しとかないと何か不具合起こすことってあるの？

>>287
Cみたいに初期化しないと変な値が書き込まれてるって事は無い。

ただし、配列かどうか分からない所にいきなりpushしたりするとエラーになる。

my %hash;
my %data = ('a' => 1, 'b' => 2, 'c' => 3);
while (my($key, $val) = each %data) {
　push($hash{$key}, $val); # Error(配列に初期化してないから)
}

winxp
perl5.8.8

ウェブ上で使ってるプログラムをローカルに持ってきたらエラーがでました。
ウェブのperlは5.8.1です。
そこで質問です。

use strictしてるプログラムをperl -cに掛けてエラーが出ないのにapacheのログに
[Wed Jun 07 16:06:23 2006] [error] [client 127.0.0.1] Premature end of script headers: c:/program files/apache group/apache/htdocs/public_2/system/system.cgi
[Wed Jun 07 16:06:23 2006] [error] [client 127.0.0.1] Can't use an undefined value as a HASH reference at c:\\PROGRA~1\\APACHE~1\\apache\\htdocs\\public_2\\system\\system.cgi line 427.\n
と出て、strictを外すと
[Wed Jun 07 15:47:53 2006] [error] [client 127.0.0.1] Premature end of script headers: c:/program files/apache group/apache/htdocs/public_2/system/system.cgi
[Wed Jun 07 15:47:53 2006] [error] [client 127.0.0.1] substr outside of string at c:\\PROGRA~1\\APACHE~1\\apache\\htdocs\\public_2\\system\\system.cgi line 445.\n
とエラー内容が変わるのはなんですかね。

ウェブ上ではなんのエラーもなく動作してる時点でコードに問題はないと思うのですが。

>>288
ほぉ、なるほど、そういうケースがあったのね。
勉強になりました。ども。

>>289
apachのえらーろぐみたらえーやん。

>>289
use strict; してるかどうかによって警告が出る位置が違ってる。
それから、エラー読もうよ…。
substr が文字列境界超えてるって。

多分、見えないだけで、webサーバ側のログには延々とそれが書き込まれてる。

>>291
すみません。先ほどのapacheのエラーログです。
>>292
文字列境界越えてるって使い方がおかしいってことですかね。<strong>${\substr($db_all_field_html{ordertime},0,4)}年${\substr($db_all_field_html{ordertime},4,2)}月${\substr($db_all_field_html{ordertime},6,2)}日
こういうことはしてます。でもウェブの方ではエラーログには何も残らず、ちゃんと表示される。
自宅では表示もできないし、ログにも
残る。

それにしても構文レベルのエラーならperl -cでひっかかると思ったのですが、
構文はあっているけど、実際に処理をしたら無理だった。とかあるんですかね？
それでウェブの方では実際にやっても大丈夫だったけど、自宅の法では実際に無理だったみたいな誤差ですかね。

strictを外すとエラーの行が変わるのは気づいてたのですが、どうも構文チェックがokでてる以上
何をすればいいかわからなくて。

>>288
僕の個人的かつ大胆な推測によると、
仮に $hash{$key} の値を配列リファレンスで初期化していたとしてもエラーが出ると思うのだ。

それ、デリファレンスしてねえからな。

補足:
未初期化なナニをデリファレンスすると、perl はその時点から「そのように」扱ってくれる。
だから >>288 のようなケースでは個別の初期化は不要。いや、してもいいけどさ。

>>294
その通りだw

>>293
何か値が入るとあなたが仮定している変数が、どこかで undef ってると思われます。
それぞれのタイミングで各変数の値が期待通りになっているかチェックしましょう。。

-c スイッチの syntax OK は 「perl によって曖昧さなくパースできますよ。一応ね」 という意味なので、セマンティクス上のバグは見つけてくれません。
代わりに -wc を使うようにすると警告も併せて示してくれます。

てかこれ、他人のサーバにエラーログを延々と残す迷惑な奴の典型例だな。

>>297
ありがとうございます。
-wcやってみます。

とりあえずsubstrのあの記述を抜いて、strictを外すと表示ができるようになりました。
今はstrictでない部分を探してます。

ところでもしかして、5.8.1と5.8.8では何か違うんですかね。そう思えてならないです。
5.8.1が手に入ればわかりやすいですが。

末尾以外の改行（特定の文字列でも良いんですが）を取るにはどうすれば良いですか？
$text =~ s/\r\n\w//g;
とかだと、直後の１文字も消えてしまうし・・・ヒント下さい。

>>299
perl58[2-8]delta に変更点が書いてある。
http://search.cpan.org/~nwclark/perl-5.8.8/

>>300
s/\n(?!$)//g;
ついでに http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify

>>301
ありがとうございます！
$が末尾、!$が末尾じゃない、ってことで?が条件文として働いてるってことですかね。

改行コードって実は結構複雑だったんですね。参考にします。
みなさんデータの読み込みのときに毎回コードの変換して・・・
って、書き込みの段階で変換してれば読み込みのときには必要ないのか・・・。

>>293
perldiagによると、左辺値コンテキストの時にエラーが出るとあるけど、
そこらへんは大丈夫？

>>302
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlretut.html#looking_ahead_and_looking_behind

配列の任意の位置の要素を削除したり追加したりする簡単な方法ってありますか？

[例]
@number = (1,2,3,4,5,6,7,8,9,10);
を
@number = (1,2,3,5,6,7,8,9,10);4番目の要素を削除
としたり、
@number = (1,2,A,3,4,5,6,7,8,9,10);3番目に要素を追加
としたり。

splice
ぐぐれって・・・

>>306
すみません。
超初歩的な質問だったようですね。

http://d.hatena.ne.jp/palmo/20060606/grep
ここの最後の疑問を読んで、確かにそうだなぁと思ったので、こちらで質問させてください。

grepやmapの第一引数にEXPRを指定すると、何度も評価されますよね？
でも、普通に考えたらgrepやmapが実行される前に評価されてしまうのではないでしょうか。
この遅延評価はgrepやmapだけ特別なんでしょうか。
BLOCKを渡すと遅延評価される、というのは納得できますが…。

同じような事がforやwhileなどにも言えますけど、あちらは構文ですよね。

ん？　よくわからんけど

/e$/ は　$_ =~ /e$/の略で、普通は

my @e_fruits = grep $_ =~ /e$/, @fruits;
ではなく
my @e_fruits = grep /e$/, @fruits;
って書くと思う。これ関係ない？

ちなみにgrepもmapもforのような書き方もできるぞ。

>>308
grep は最初の引数(あるいは間接オブジェクトスロット)にコードリファレンスを取る。
それは後続の引数をリスト展開して得られた最初の要素から順に $_ にセットして繰返し呼び出される。

ユーザサブルーチンのプロトタイプで言うと (&@) ね。完全に同一じゃないけれど。

>>309
grep や map を連結できるのは、それぞれが返した値を前の関数に引数として渡しているから。だから両者は全く別物。
for(each), while, if などの修飾子は引数として渡されているわけではなく、スコープを生じるブロックを持たないだけでそれぞれが元来の制御構造であることに変わりがないので。

>>309
わかりづらくてすいません。
例えば

$_ = 10;
my @r = map $_ * 2, (1..5);
print "@r";

と書いた時に、@r の中身は (10, 10, 10, 10, 10) じゃなくて (2, 4, 6, 8, 10) とできるのは
なぜなんでしょう？

リロードしてませんでした orz

>>310
ありがとうございます。スッキリしました。プロトタイプの仕業でしたか。
てことは、EXPRの場合もBLOCKの場合も、結局コードリファレンスとして渡されるわけですね。

ぐえー、難しすぎて意味がわからん。
使う分にはそこまでわからなくても問題ないけど。

>>313
思考停止はもったいないよ（´・ω・）
意味がわからなければ調べたり質問したりすればいいのに。

プロトタイプでブロックとるgrepは書けるけど式の方はできないから
やっぱり組み込み関数なのでズルしてると思ったほうがいいね。

>>315
そうみたいですね…。試しに map を (&@) で実装してみました。
やはり式やブロックだけでは渡せず、無名関数を作ってコードリファレンスを渡さなきゃダメみたいです。
先ほどのブログにコメント付けてきちゃいましたorz　訂正してこなきゃ・・・

sub mymap(&@) {
  my $code_ref = shift;
  my @new_list = ();
  for(@_) { push @new_list, $code_ref->(); }
  return @new_list;
}

$_ = 5;

# @r = mymap $_ * 2, (1..5);            # NG
# @r = mymap { $_ * 2 }, (1..5);        # NG
@r = mymap sub { $_ * 2 }, (1..5);      # OK

print "@r";

>>316
> やはり式やブロックだけでは渡せず、無名関数を作ってコードリファレンスを渡さなきゃダメみたいです。
おいおい。呼び出し方が間違ってるだけだよ。

× @r = mymap { $_ * 2 }, (1..5); # NG
○ @r = mymap { $_ * 2 } (1..5); # OK

うわ・・・orz　お恥ずかしい。
という事は、式の場合だけは裏でトリックが使われてる、て事でいいのでしょうか…

>311
別に難しく考えなくても、変数のスコープが違うだけじゃん。
$_ = 10;
print map $_ * 2, (1..5);
print $_ * 2 for(1..5);
print $_;

>>319
「スコープが違う」というのはわかるのですが、
「なぜgrepやmapの引数に書いた時だけスコープが違うのか」がわかりませんでした。

特別な構文もなしに書いた「$_ * 2」が、mapを呼び出す時点でなぜ「20」と評価されずに
「$_ * 2」という式そのものとして渡せるのかが不思議でした。

紛らわしい書き方ですいません。質問するのは難しいですね……。
長くなってしまいました。皆様お答え頂きありがとうございました。

少なくとも初心者質問スレ向けの質問ではないなｗ

ども、昨晩お世話になった者です。

あの後も、動作確認ができたプログラムを自分の作ったページに組み込んでみるとやっぱり動かない。
試行錯誤の末、サブルーチン名に予約語を使っていたことが分かりました。
で、ようやくさっき、思い通りのページが作れました。

ということで、とことん勉強不足を痛感したわけですが、
ここでのアドバイスがあってなんとかなったもので、一言だけお礼を言いに。
特に>>251氏。ありがとうございました。
他の皆さんも参考になりました。ありがとうです。

またトラブったら泣きつきにくるかもしれませんが、その時はその時でまたよろしくです。

$obj->func のfunc部分を変数$val='func' を使って実行できるようにしたいと
思っているのですが、eval使うぐらいしか方法はないでしょうか？

掲示板プログラムを作成しているのですが、
書き込んだり削除したりした後に、掲示板表示画面に戻ってきた際に
キャッシュされた以前の状態の画面が表示されてしまいます。
ブラウザに更新を知らせるにはどのようにするのがよいのでしょうか？

>>323
my $func = $obj->can($val) and $obj->$func();

いきなり$obj->$val()で動かなかったっけ?

新しくプログラムを作ってみるのに以下をインストールしました。
apache1.3.35 activeperl5.8.8 mysql4.0.26

DBIを使うのにppmでモジュールをインストールしました。
DBIとDBD-mysqlです。

そうしたらどうも
$sth->fetchrow_hashrefがstrict環境下ではエラーになってしまいます。
ハッシュリファレンスの値がありませんとのこと。

以前デスクトップで作ってた環境をノートパソコンに写したのですが、
モジュールのインストールが十分か不安ですが、思い出せません。

確かdata-dumperとdbiとmsql-mysql-moduluesという３つが欲しかったのですが、
ppmで見つからなかったので他のサイトで薦められてたDBD-mysqlとDBIにした覚えが
あります。というあやふやな記憶で今回もその二つを入れたのですが、
どうも動作がしませんので間違っていたかもしれません。

この二つの入れる順番などありましたでしょうか？
それとも前者の３つのモジュールを決められた順番でいれないとfetchrowが使えませんでしょうか。

アドバイス宜しくお願いします。

すみません。winXPにて上記をやっています。
失礼しました。

data-dumper は Data-Dumper-Simple じゃなくて？

その他のモジュールはWindowsへは対応が遅れてるとかかも
というのも、以前Encodeモジュールでエラーがあり調べてたらWinとLinux環境とでバージョンの違いが酷かったので・・・

>>328
http://www.rfs.jp/server/mysql/01/07.html
ここを見てperlを勉強していて、（結構前の話ですが）それでDBIもここで勉強しました。

Data-Dumper-Simpleというモジュールは過去に入れた覚えがないのですよね。
過去作っていた環境なら問題なく動いたコードなんです。

fetchrow_heshref以外は問題なく動作してるのでDBIのモジュールのインストール自体は
できてると思うんです。
さっき試しに一旦ppm unsitallしてから先にDBD-Mysqlを入れたら自動でDBIを
先にインストールされました。

モジュールのバージョンがかわってfetchrow_hashrefがダメになったのですかね。
なんでしょうか。とりあえずData-Dumper-Simpleも入れてみますね。

あ、それとstirctを外すと何故かfetchrow_hashrefは動作します。
なんですかねこの症状。
>>329
そうでしたか。
でも過去動作していたコードと考えると逆にバージョンがアップしたせいなのかもしれませんが。

formの要素に配列は使用出来るのでしょか？

たとえば
<input type="text" name="test[0]">
<input type="text" name="test[2]">
<input type="text" name="test[3]">
というフォームデータを以下のように受け取ろうと考えて
いますが上手く行きません。
use CGI;
$query = new CGI;
@test = $query->param('test');
どなたかご教授お願い致します。

Data-Dumper-Simpleいれてみました。
特にかわりありません。
やはりstrict環境下では$sth->fetchrow_hashrefが不正扱いされるようです。

>>331
それはできません。あくまでHTMLとPERLは違う言語でHTMLには配列という概念がありません。

>>331
inputタグ内の添え字は要らない。（PHPはできたかも）
あとは@test = $query->param('test'); で読めるんじゃなかったかな？

>それはできません。あくまでHTMLとPERLは違う言語でHTMLには配列という概念がありません。
そうですか・・・
input type=textを、type=checkboxのようにに同一要素名で
送信する事は出来ないのでしょうか？
・・・とおもったら
>inputタグ内の添え字は要らない。
こちらで解決しました！！
添え字無しできちんと配列データとして送られていました。
ありがとうございます。

>331
同じnameで配列の様に受け取りたいならcgi-libのReadParseを使ってみてください
たしか\0を区切り文字として渡してくるので
@array = split(/\0/, $in{'param'});
で配列にできたかと

>>334
知識不足ですみません。
>>335
惑わせてしまいすみませんでした。

for ($form{index}..($form{index}+10)){
my $dbh = DBI->connect(@$dbipass{qw/source user pass/});
my $sth = $dbh->prepare(qq|select * from order_table order by ordertime desc limit $_,1;|);
$sth->execute();
my %db_all_field = %{$sth->fetchrow_hashref};
$sth->finish;
print $_,"<br>";
}

上記を試して確認中にやっとのことで原因わかりました。
データーベースにレコードが１０以下の時の対処が記述してなかったが故のｋとでした。

面目ありません。

ようやく問題が解決したので本題をすすめています。

たまにチャットとかで
只今の閲覧者５人　参加者１人
っていう表示を見かけます。

あれはどうやって実現するのでしょうか。

例えばHTMLのmetaでrefleshを使って３０秒毎に相手のIPを確認して
閲覧人数を割り出すのでしょうか？

相手がCGIにアクセスしてきたらIPを取って、取得時間をデータベースに入れておく。
で、1分毎にそのデータベース内のレコードを確認して取得から1分以上になっていたら
削除する。

でもイマイチな仕様ですね。これじゃ。ああ。もっといい方法があると思うのですが。

すいません、変数からから指定文字列を抜いた後に
残った数値に1を足したいんですがうまくいきません

$line="hoge100";　 　 　
$line =~ s/hoge//;　 　 　
$line=$line+1;　 　 　
print $line;　 　 　 何も表示されない

どこが悪いんでしょうか、お願いします。

>>339
ここはおまえの日記じゃない。

脳味噌

>>340
とりあえず

$line='101';
print $line;

で表示されるかどうか確かめることをお勧めする。

>340
セミコロンの後ろにある全角空白を削除すれば動く

http://modskona.clash.cgiboy.com/

ここ閲覧者数がでますが、これをperlCGIで実現する方法はわかる方いますでしょうか？

来訪者がCGIを動かしてから１分以内はそこに居ると仮定する
ただこれだけですよ

俺んとこにもついてるな

>>346
それで１分たったらどうするんですか？
cronとかで1分毎に削除CGIを動かすとかですか？
例えば今自分のサイトのどこに何人いるかを確認できるようにするには、
CSV形式で
１．IPアドレス
２．パスインフォ？でしたっけ
３．リクエスト時刻（秒単位）
でやって毎回誰かがアクセスしてきたらそのCSVのIPで正規表現、重複しないように更新をやって、
削除はcronで別CGIを動かして３のリクエスト時刻が既定タイムを超えてたら
削除。

1分毎にcron起動ってなんかあれですね。
訪問者が来た時に削除プログラムも動かす方がスマートですかね。

と考えてみて一応できそうですが、やり方が下手なような気もします。
指摘などありましたらお願いします

後者で正解

>>349
ありがとうございます。
とりあえず徹夜で作ってみます。
強制的に訪問者に話かけることができるサイトを。

>>350
そんなサイトがあったら、怖くて二度といかなくなるような…

JライクなP使いだな。

open(FILE, ">test.dat") or die;
print FILE, @stream;
close(FILE);

みたいにして簡単に配列の中身をtest.datに書き込みたいんですが、
エラーになってしまいます。

やっぱり配列をループ回して一行ずつ書き込んでいくしかないんでしょうか。
アドバイスよろしくおねがいします。

エラーメッセージ読めよ
コンマイラネって書いてあるだろ

エラーになるといってエラーメッセージ晒さないのはまじめに
回答を求めてないと思われてもしょうがないな...

ほんとだ、カンマ取ったらいけました
ありがとうございます。

許さんよ

ｈｔｍｌログなんですが2chブラウザで読み込めるようにするにはどうすればいいでしょうか？
書き込み禁止の読み込み限定にしたいんですが

>>358
日本語でおｋ

>>359
日本語とは？

にほん‐ご【日本語】

古来日本民族が用いてきた言語で、日本国の公用語。
北海道から沖縄までの島々にわたり、一億余の人々に使用されている。
音韻面では、一つの子音と一つの母音との結合音節を基調とし、
母音で終わる開音節を特徴とする。「ガ・ッ・コ・オ（学校）」という発音にも見られるような
等時的なリズム上の単位、すなわち拍（モーラ）をもち、高低アクセントを伴う。
文法面では膠着語(こうちやくご)に属し、助詞・助動詞が文の成立について
大きな役割を果たしており、また、述語が文の最後にくるという文法構造をもつ。
複雑な敬語法が発達していることもその特徴の一つに数えられる。
中国語から借用した漢字と、漢字を母胎として成立した仮名との併用で表記されるのが普通である。
語彙(ごい)には日本固有の語である和語のほかに、漢字音に基づく漢語も多い。
近年は、西欧語からはいってきた外来語も多く用いられる。国土の面積の割には、
方言による違いも著しく、男女や職業などの別による用語差も大きい。
系統はアルタイ諸語の一つに属するものか、などとも言われるが、いまだに定説とはなっていない。

>>360
こいつ最高にアホ

日本語でおｋ＝文章がわかりにくい

$file1から読み込んだデータを処理した上で$file2に書き込む場合は
if(!open(FH, "< $file1")){&file_err;};
flock(FH, 2);
@DATA = <FH>;
close(FH);

# @DATAの処理。

if(!open(FH, "+< $file2")){&file_err;};
flock(FH, 2);
seek(FH, 0, 0);
print FH @DATA;
truncate(FH, tell(FH));
close(FH);

で良いんですよね？
とすると、$file1から読み込んだデータを処理した後再び$file1に上書きする場合、
上の$file2の部分を単純に$file1にすれば良いんでしょうか？
それとも処理の前にクローズするのはマズイんでしょうか？

>>364
file2をそのままfile1にすると、ロックが効かない典型。
http://web.archive.org/web/20040216083853/www98.sakura.ne.jp/~jun/perl/flock.html

if(!open(FH, "+< $file2")){&file_err;};
↑こういう書き方を誰が広めてるの？
open FH, "+< $file2" or file_err();
のほうが自然言語に近くて読みやすいしタイプもすくない。

・・・ kent とか？

ｈｔｍｌログなんですが2chブラウザで読み込めるようにするにはどうすればいいでしょうか？
書き込み禁止の読み込み限定にしたいんですが

>>368
日本語でおｋ

失敗したら何か複数の処理って時に or を使ってると
open(FH, "file") or do { a(); b(); };
とかなってキモス。

>>369
たんなるHTMLのみだと
JaneStyleで読みこめません
かちゅでも読みこめません

>>370
or ( a() , b() ); でもいかね？

>>371
その2ちゃんブラウザのデータのフォーマット見ればどうすればいいのかわかるじゃん。
何がわかんないかさっぱりわかんないから相手にされないんだよ。 現時点じゃ perl の話題とも思えないしな。

>>372
動く動かないの問題じゃなくて、
open($io, "./3/2/1/0/0/321001056131731037.dat") or ( $obj->method_a() , $obj->method_b() , $obj->method_c() , $obj->method_d() , $obj->method_e() );
位になるとどこで折り曲げるか悩むだろ。

>>373
なるほ。 まあそれはいくらなんでもそりゃ if 文使うだろーね。
あるいは前もって無名サブルーチン作っておいて、そこでまとめて処理するとかかな。

おれならorやandで改行しちまうね。
open　$io, "./3/2/1/0/0/321001056131731037.dat"
or $obj->method_a()
and $obj->method_b()
and $obj->method_c()
and $obj->method_d()
and $obj->method_e();

しかしこんぐらいなら別のサブルーチン作るかも

open　$io, "./3/2/1/0/0/321001056131731037.dat"
or map { $obj->can("method_$_")->($obj) } (a..e);
とか。この場合ね。

うぁああキモシキモシキモシなんだこの言語はっ

2chを支える言語です

There's more than one way to do it.

ｈｔｍｌログなんですが2chブラウザで読み込めるようにするにはどうすればいいでしょうか？
書き込み禁止の読み込み限定にしたいんですが

>>380
日本語でおｋ

>>381
たんなるHTMLのみだと
JaneViewで読みこめません
ギコナビでも読みこめません

JaneViewのスレに逝けばいいと思うよ。

先生、質問ー。

use strict;
my $fuge = 'fuge';
my $run1 = \&Hoge::fuge::run;# 通る
$run1->();
my $run2 = \&{"Hoge::${fuge}::run"};# 通る
$run2->();
my $str = \${"Hoge::${fuge}::str"};# エラー
print $$str;
exit;

package Hoge::fuge;
use strict;
$Hoge::fuge::str = '++++++++++++++++++++++',"\n";
sub run { print '-----------------------------', "\n"; }

上で、$str が通らないのはわかるけど、$run2 が通るのは何でなのかな？

そんなはずは…

use strict;
(\&{"test"})->();
exit;

sub test{ print "hello, world!"}

って、こんなのも通るのね…。

AUTOLOADかけなきゃならんからじゃないかな？

ちゃんとstrictのドキュメントに書いてあるな。386正解
ttp://search.cpan.org/~nwclark/perl-5.8.8/lib/AutoLoader.pm
| There is one exception to this rule:
| | $bar = \&{'foo'};
| | &$bar;
| is allowed so that goto &$AUTOLOAD would not break under stricture.

うお、URLミスった…
http://search.cpan.org/~nwclark/perl-5.8.8/lib/strict.pm#DESCRIPTION

例外だったんだ！

( ・∀・)シ∩＜へぇーへぇーへぇー

先生方さすがです。

htmlとshtmlの違いは何でしょうか？
shtmlにしないとSSIディレクティブはできないんでしょうか？？

すでにPerlの質問じゃﾈｪｪｪｪｴｪｰ!!!

>390
perlと何の関係もないな。
スレ違い。

FORMから飛ばしてきた内容はどのように扱えばいいのでしょう？

<input name="NAME" type="hidden" value="hoge">

というタグを送信元のページに入れておき、
それをcgiの中で、別の変数に移す時、

$hage = $FORM{ 'hoge' };

と記述したのですがうまくいきません。
記述が間違っていますか？

あぁすみません
カウントダウンのＣＧＩ作ってたもんで

>>393
CGIの勉強しろよ…。CGI.pmとか。
PHPじゃないんだからいきなりそんな風には記述できない。

>>395
某サイトからダウソしたcgiファイルに、FORMで受け取った内容を
>>393の記述で使っている部分があったんで、これでおkと思ってますた。

で、今そのcgiファイルの中に>>393の記述でおkにする部分（らしきもの）を見つけたんで、
それを処理の一番上に持ってきたら思い通りに動作しました。

ありがとうございます。

切り貼りしてすごい汚いソース作ってそうだなー・・・。
まあ最初は自分もそうだったけどｗ

うわー　自分が今その状態…
いろんなところから切り貼りして汚い…('A`)
誰にも見せられない…

誰もみねえよ

もっとエレファントに書けよ。

もっとゴージャスに書いたよくださいほうがいいよ

書いたよくださいほうがいいよ

|∀｀）ﾎﾝﾄﾆﾀﾞﾚﾓ ﾐﾅｲ?

誰も見てないって、
そんな、へんてこで読みにくいスクリプトなんて。
use strictを使えばいいのに。ふぅ。

だから、絶対見てないって！

>>400
#!/usr/local/bin/perl
どかーん！
(⌒⌒⌒)
　｜｜

／￣￣￣￣￣＼
|　・　Ｕ　　　　　　|
| |ι　　　　 　　　|つ
Ｕ｜｜ ￣￣ ｜｜
　　￣　　　　　￣
もうおこったぞう

けつからでてるのはunko？

掲示板などを作る際にjcode.plを使わないとどんな不具合が出るのですか？

>>407
､ｳ､？ﾊﾉﾔｶ？遑ｩ

>>407
ｼｺﾇﾔ｡｣､ｳ､ﾊﾉﾔｶ遉ﾀ､ﾊ｡｣

今時のブラウザはフォームがあるページのエンコードで送ってくるから
別に使わなくていいと思う

　　　_、_　　　　　　　　　こんなトコロで
　（　,_ﾉ` ）　　　　 n　　　　 私に質問するんですか？
￣　　　　＼　　　（ E）　　　 　 だったら答えてあげますよ！
ﾌKENT /ヽ ヽ_／／　　 初心者にも簡単！
　　　　　　　　　　　　　　　 文字化けは回避できるわ鯖落ちは回避できるわ
　　　　　　　　　　　　　　　 　 とりあえず使っとけな雰囲気があるわで大騒ぎ！

>407
>409さんが書いている通り
ただ、他のページからデータを持ってこようとしたり、自分の管理外の色んなページから
GET・POSTを受ける場合は文字コード変換が必要

鯖落ちが回避できるのか

さすがのKENT様だからな

>>410
それはHTML内で
<Meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
としてあるのにEUCでデータを送ってくるブラウザもあるということですか？
EUCで送られてきたデータを

# $testにフォームから送られたデータが入ってるとする
print <<"HTML";
<html>
<head>
<Meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>
<body>
$test
</body>
</html>
HTML

このように表示すると文字化けし、
それを回避するためにjcode.plで文字コードを変換する、ということでOKですか

>>412
それはURLエンコードのことではないんですか？
当方、簡単な掲示板を作っていて、jcode.plを使わなくても何の問題も無かったんで気になったんですが。

KENTわろすｗｗ

むしろ Shift_JIS だけでデータ書いたり保存したりするなら、
j(J)code でデータうけとったときに何でもかんでも変換してると半角カナで文字化けするので、
どうせ変換するなら method get だけにしとくとかのがいいと思った。
他のとこから post でデータ送ってくるのって一部を除いてイタズラ以外にないしな。

まあ get にするにしても utf-8 に対応してない jcode.pl じゃあんま役に立たないとは思うけど。
どうなんでしょうKENT様

KENTすげーｗｗｗｗｗｗｗｗｗｗｗｗｗ

一方的にシステムの文字コードで送りつけるブラウザはあるらしい(あったらしい？)。

私は、コードを決めておいて、文字コードが合わなかったら変換しないで、
エラーを出すように作ってる。

美乳をhiddenで送ってもらって美乳じゃなかったら汚乳エラーでいいじゃん

>>420
うわ、それ考え付かなかったなあ。

form 要素の accept-charset を使って、変なデータはエラー表示するのが
正しいんだと思うんだがね。

対応してないブラウザってあるの？

perl始めると共にいきなりcgi作ってるんですが、何かまずいでしょうか？
プロンプトで色々やってからcgiってのが王道？なんでしょうか？

あとKENTのところのソースを参考にしてるんですが、ここでは評判悪いようですが参考にしない方がいいですか？

どうも勉強になりました

>>423
KENT氏のはモジュールなどを使わない枯れた古い方式なので、
車輪の再発明に苦労することになるでしょう。

これからPerlを始めるのなら、モジュールをバシバシ使った
お手軽プログラミングをおすすめします。

>>423
cgi はいいんじゃない？
最初は形に残ったほうが面白いしね。

KENTはまあ、一回参考にしてもいいかもね。
反面教師って言葉もあるし。

use strict; して↓これみとｋ
http://www.perldoc.jp/docs/perl/5.8.0/perlstyle.pod

頑張って、人気投票ができるCGI作ってるんですが、プラウザの更新ボタンを押すと、
「情報を再送信しないと、ページを更新できません。「再試行」をクリックして〜」と表示され、
「再試行」を押すと、2重投稿っぽい感じに投票が行われてしまいます・・・・・。

更新ボタンを押しても、CGIにデータを送らないようにはできないでしょうか？

そりゃブラウザが情報保持して再送信してるだけ
情報送って登録したらprint "Location: ..."すりゃ一応回避できるけど
もしくは同一IPから同一情報の登録はブロックするとか

>>428
やっぱ同一IP、同一内容の投稿を規制するしか方法はないですか・・・　orz
ありがとうございます。

>>423
> perl始めると共にいきなりcgi作ってるんですが、何かまずいでしょうか？

ダメとは言いませんけれど、少し不安です。
他はともかく、安全性についての配慮は忘れないでください。できる限り -Tw スイッチを使うようにしてください。ユーザという種族はいつでも、プログラムの動作にとって最も都合の悪い操作を選択的に行うものです。

> プロンプトで色々やってからcgiってのが王道？なんでしょうか？

CGI はサーバサイドプログラムの出力をサーバ応答として返す仕組なので、コマンドプロンプト (のことですよね?) 上でプログラムがどのように動作し、どんな出力を吐くのかを知っていたほうが有利であることは確かです。

> あとKENTのところのソースを参考にしてるんですが、ここでは評判悪いようですが参考にしない方がいいですか？

氏の CGI スクリプトは動作環境の範囲を広く取るために後方互換性を重視したスタイルのようです。
あなた (あるいはあなたのユーザ) がこれから何年もの間、比較的古い (and|or) 制限の多い環境を使い続けるなら、その点で参考になる部分は多いかもしれません。

>>430
何かを翻訳したの？

KENTについて意見の翻訳ｗｗｗｗｗ

広い動作環境ゆっても、perl4 とかのがめずらしいよな。
local だけだと全部グローバルになるせいか、少し長い script 組むとたまーにありえない挙動するから困る。

>>432
> local だけだと全部グローバルになるせいか、少し長い script 組むとたまーにありえない挙動するから困る。

それはあなたがそのように書いたからです。
また、こういった認識は上達の妨げになるので気をつけてくださいね。
プログラムは (処理系のバグも含めて) 「書いたなり」にしか動かないことを忘れちゃいけません。

すいません、ちょっと質問させていただきたいのですが・・・
「log.dat」の中に↓のようなデータが入っているとして

5,4,4,3,1,2006/06/11(日) 14:59:27,yyyyyyyyyyyyyyyyyy
1,3,4,5,3,2006/06/11(日) 14:58:45,ggggggggggggggggggg
2,4,4,4,3,2006/06/11(日) 14:58:37,ggggggggggggggggggggggggg

この「log.dat」内の「5,4,4,3,1」や「1,3,4,5,3」といった頭5つの数字だけを、
全て足していきたいのですが、そうゆうことってできますでしょうか？
ちなみに上の例だと「5+4+4+3+1+1+3+4+5+3+2+4+4+4+3」で「50」という数字を求めたい・・・・・・

一応自分で調べようと努力はしたのですが、検索しきれなくて・・・・・
よろしくお願いします　orz

>>434
処理の流れがわからんのだろうかね…これは
答えを書くのは五行足らずだがそれじゃ本人のためにならないのでヒント

まず、その処理で必要なことは何かを考える
・ファイルを開いて
・一行一行読み取って
・カンマで切り分ける
・その最初の五つを取り出して
・足し合わせる

で、これをコードに落とす
ファイルを開くのは"open"(読み取るサンプルも大抵一緒に解説されてる)
切り分けは"split"、初めの五つを取りだすには"配列のスライス"辺りで検索汁

map{}(@)の方がスマートかと

この流れを考えられないのを相手にいきなりmapを説くか？

open(FP,"log.dat") || &error("ログファイルが開けませんでした。");
@logs=<FP>;
close(PF);

foreach $line(@logs) {
chop($line);
($atai1,$atai2,$atai3,$atai4,$atai5,$dat,$value,) = split(/\,/,$line);
if (!$line){last;}

print
"<TABLE border=\"1\" align=\"center\"><TR><TD>\n".
"$atai1/$atai2/$atai3/$atai4/$atai5/$dat<br><br>\n".
"$value\n".
"</TD></TR></TABLE><br>\n\n";
}

一応、ここまでは何とか分かっているのですが、この「$atai1〜$atai5」の値を全て足すには。。。。
foreachの間に「$tasu = $atai1+$atai2+$atai3+$atai4+$atai5;」と書いてみましたが、全然駄目でした・・・

正直、自分の頭では・・・・・

$tasu += $atai1+$atai2+$atai3+$atai4+$atai5;

>>439
教えていただいて申し訳ないのですが、このようにログが一番古いものしか、ちゃんと表示されません。。。。
http://ranobe.sakuratan.com/up/src/up113712.jpg

>>440
つまりあれか、その全てに同じ値、全体の合計を表示したいわけか。
それなら二段階に分ける必要がある。
事前に合計を調べた上で、その後に表示。

>>436
reduceの処理でmapを使うのはスマートに思えないな…
$sum += $_ foreach @list[0..4];
reduce処理にはmapを使ってもそう大差無い様に思うのだけれども

>>434
>一応自分で調べようと努力はしたのですが、検索しきれなくて・・・・・
ていうか、なんで考えないで検索しようとするんだろうね。

自分と全く同じ状況にあるコードの書き方なんて
検索してもなかなか出てくるもんじゃないのに。

http://7hp.jp/?id=dealy5th

>>441
ログファイルを2つに分けるってことでしょうか？・・・・　orz
ありがとうございます。やってみます。

>>442
「ファイル perl」、「open perl」等、とりあえずファイル関係で調べていました・・・　orz

>>444
> ログファイルを2つに分けるってことでしょうか？

そうじゃなくて、1つのログファイルから内容を読み込んだ後
1. 合計を求める foreach
2. 結果を表示する foreach
の2つのforeachを書く必要がある、という事だと思うよ。

>444
>442は
>なんで考えないで検索しようとするんだろうね。
と書いているんだが・・・お前は日本語が読めないのか？
まず日本語がちゃんと理解できるように勉強し直せ。

2chｸｵﾘﾃｨ

use strict;

my($total) = 0;

open(INFH, "test.txt");
while(<INFH>){
　　chomp;
　　my($tmpsum, $tmpstr);
　　my(@data) = split(/,/, $_);
　　my(@nums) = splice(@data, 0, 5);
　　map { $tmpsum += $_ } @nums;
　　$total += $tmpsum;
　　$tmpstr = join("/", @nums);
　　print <<"EOM";
------------------------------
$data[0]
$tmpstr = $tmpsum Points.
$data[1]
EOM
}
close(INFH);
print "------------------------------\n";
print "TOTAL : " . $total . "\n";
print "------------------------------\n";

今日Perl始めた新米なんだが、例えば
sub test {

$a = 5

}
sub test2 {

print "値は$aだお\n";

}
みたいなノリで、”test”サブルーチン内の変数を”test2”のサブルーチン内で使うことってできる？
上のだとうまく行かなくて…

もちろんできるよ。ちゃんと定義したサブルーチンを呼び出してる？
パッケージ変数（グローバル変数）を使う時はなるべく our で宣言しておいた方がわかりやすい。
後々「use strict;」を覚えた時にこの事は役に立つはず。

our $a = 0;

sub test { $a = 5; }
sub test2 { print "値は$aだお\n"; }

test();
test2();

実行結果：値は5だお

ところで、 $a と $b はソートに使う特殊な変数なので、なるべく使わない方がいいよ。$c 以降は問題ない。

>>449
＞$a = 5

だから、いくらサンプルなり例だったりしても$aとか$bは使うなよorz

漢は黙って$hoge, $fuga


ただしドメインの例示だけはexample.com

オレは$yakiniku, $oyakodon, $namahamu

hoge fuga に続くものってなんなんかな。5つくらいだしたいときって例に悩むわ。
foo bar だと baz, qux, quux, corge, grault, garply, waldo, fred, plugh, xyzzy, thud とかあるんだけど

＞foo bar だと baz, qux, quux, corge, grault, garply, waldo, fred, plugh, xyzzy, thud とかあるんだけど
初めて知った

$hoge, $fugaみたいなのって意味あるのかな？
それともただ"ほげほげふがふが"？(ダレてるときの擬音??)

そういえば変数名でよくみかける$lnがピンとこない。
$imgとか$cntだったらパッとみて内容を想像できるんだけど
lnは何を略してるんですか！！
入ってる内容から察するにlineですかね？(´･ω･`)

>>455
もう一つだけならpiyoかmogeか、かな。しかしあわせて検索すると恐ろしく件数が減る罠

>>456
RFC3092読んどけｗ

$a、$bを使うことで何か弊害が？
っていうやりとりに繋がっちゃうか恐れてたけど無駄に終わってよかったですｗ

>>459
>>450

>>457
そうか、piyo か。

メタ構文変数 http://ja.wikipedia.org/wiki/%E3%83%A1%E3%82%BF%E6%A7%8B%E6%96%87%E5%A4%89%E6%95%B0 とか言うんだなｗ

hoge fuga piyo で、hogehoge fugafuga piyopiyo とか重なってくのが通例みたいね。
hogera とか mogeta とか使ってみたす。

>>433
お前ちょっと、CODE COMPLETE読め。

>>457
line か length だろね。
length とか割とよく使うのに長いんだもんな。

質問です。

配列@sclArrayには
@sclArray = (●●大学,△△大学,●●大学,□□大学,●●大学,ＸＸ高校・・・);
というような形で200種、1,000件くらいの学校名が入っています。

これを

%schHash = (
●●大学=>'15',
△△大学=>'8',
□□大学=>'7',
ＸＸ高校=>'14',
・・・
);

という形にしたいのですが、根本的にやりかたがわかりません。
調べ方が悪いのかgoogle様にお伺い立てても出てきません・・・

よろしくお願い致します。

もうちょっと何がしたいのか具体的に

>>464
その数字の意味はエスパーを御所望か
$schHash{$_}++ foreach @sclArray;

googleにも聞きようが無いじゃん。
自分で考えろってこった。
どうも考える事を放棄して、ぐぐってる人が多いよね。

すみませんソートについてもう一度お教えください

前回、配列にするということでご指導頂き、ソートはできました
それでなんですが、実はもう一個keyがあって揃えたいのです
最初は日付でソートし、同じくキャラクターのものを並びにし、

20060612　a
20060520　a
20060610 b
20060423 c という感じにしたいのです
二回繰り返すと最初のソートがリセットされてしまいます
何か方法はあるのでしょうか？

foreach(@data){
push @{$list{$1}},$_ if/^<>inf<>--.*<>(\d*)<>----/ ;}
foreach $key (sort keys %list){
push @htm, @{$list{$key}};
}

foreach(@htm){
push @{$list2{$1}},$_ if/^<>inf<>--(.*).*<>----/ ;}
foreach $key (sort keys %list2){
push @htm2, @{$list2{$key}};
}

>>464
大学ごとに固有の識別番号が決まっているのでしょうか？
それとも入試合格ラインの偏差値のようなデータ？
大学名と番号の対応が、名称から番号を導けるような規則性を持っていないのなら、
元となるデータなしに自動的に番号の入ったハッシュを作るのは不可能なんじゃないですか。
その対応はExcelの表かコンマ区切りテキストか何かの形で手元にあるのですか？

>>463
なるほど。コード読むとき少し楽になりそうです。ｱﾘﾄｩｰｽ!!

>>464の数字は配列内での同じ学校名の登場回数と推測。
けどおれのスキルでパッと思いつくのはパターンマッチごにょごにょ・・・
ハッシュのキーごとにインクリメントごにょごにょ・・・が精一杯orz
↑まったく当たっていないかも

>>468
同時に比較すればいいんでね？

my @arr = qw(
    foo-1 bar-2 baz-3 qux-4
    quux-1 corge-2 grault-3 garply-4
    waldo-1 fred-2 plugh-3 xyzzy-4 thud-5
);
my @new_arr =
    map { $_->[0] .'-'. $_->[1] }
        sort { ($a->[1] == $b->[1]) ? $a->[0] cmp $b->[0] : $a->[1] <=> $b->[1] }
            map { my ($k, $i) = split (/-/); [$k, $i] } @arr;
$, = "\n";
print @new_arr;
exit;

誰かもっといい方法あったらおせーて orz

>>468
とりあえずこれ。
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq4.html#how_do_i_sort_an_array_by__anything_

ググればもっといいドキュメントが出てくる。

>>470
後者で行うのが一般的

>>471
<=>とcmpは両辺同じだったら0を返すからorや||で繋ぐだけでいい

有り難うございます
これは難しい・・・

まずこれから教えてください
１行のラインが
<>a<>b<>c<>d<>e
という風に、要素が<>で区切られ、それが格納された@dataがあるとします
この中の２つの要素でソートしたいのです、要素には同じ値もあります

２つのkeyをどういう風に考えハッシュを作ったらいいのでしょう？

大変初歩的で申し訳ありませんが、リンク先をプリントしていくら
読んでも簡単に理解できません。

>>475
無理を承知でお願いします。
どうかうちのバカ息子に因数分解を教えてやってくれませんか？
何度教科書を読んでも理解できないって言うんです。
そのくせ、友達が「こうじゃない？」って親切にヒント出してくれてるのに
無視したりするような非常識な子で…でも、根は優しい良いコなんです。

ちなみに、息子は足し算と引き算はできるらしいんですが
掛け算と割り算はよく分かってないようです。
だから、まず掛け算から教えて欲しいそうです。
おそらく相当な時間が掛かると思いますが、
どうかタダで息子が納得できるまでお付き合い下さいますようお願い申し上げます。

>475
> リンク先をプリントしていくら
> 読んでも簡単に理解できません。
理解できるまで何百回でも読んでください。

なんでハッシュとかいう言葉が出てきたのかわからねえｗ
結果としては >>471 で既にできてるじゃんな。それすら理解してないのかね？

すみません、他の作業しながらしばらく自習してきます

「（何種類でてくるかわからない）大学名と、
その大学名の出現回数をハッシュにしたい」でした。
質問が悪くてごめんね。

>>466であっさりできました。
ありがとう。

>>468
少しはググった？
「perl sort 複数 項目」でぐぐれば、コピペプログラミングできる程度の情報が出てくる。

綺麗な書き方をしていて、誰にでも見やすいcgiがあったら参考にしたいのですが、無いでしょうか？
他人が見ても何をやってるか分かるプログラムを書きたいのですが、汚い書き方が身についてしまい困ってます。
簡単なBBS程度のものだと助かります。

>>482
「KENT」で検索すれば、掲示板関係を色々配布している人のサイトがあるよ＾＾

個人的に結城さんのコードとか読みやすくて好きだなぁ。
use strict; しつつCPANモジュールを駆使したCGI。

Tropy のソースはタイ変数が使われてて面白い。
http://www.hyuki.com/tropy/

YukiWikiMini は200行ぐらいでWiki書いてる。こちらもなかなか。
http://www.hyuki.com/yukiwiki/mini/index.html

コメントが少ないから、ちょっと難しいかも。

>>483
ちょｗｗｗｗｗｗ

[ main.cgi ]

#!/usr/bin/perl
require './lib.pl';
&test;


[ lib.pl ]

sub test{
print "Content-type: text/html\n\n";
print "test";
}

↑500エラーになる。

[ main.cgi ]

#!/usr/bin/perl

sub test{
print "Content-type: text/html\n\n";
print "test";
}

&test;

↑エラーにならない

requireで読み込むと必ずエラーになってしまうのですが、どうしてでしょうか？

requreは真の値を返さないとダメでした…。

1;か。

最近Perlはじめたのですが、
Perlで

print $cgi -> header(-charset=>"EUC-JP");

と記述したのですが、作ってブラウザーでみると
文字化けしてます。。。
ブラウザーの「表示」→「エンコード」を見ると
西ヨーロッパ言語が設定されてます。。。
これをEUC−JPに直すと文字化けしないのですが、
どうやれば、最初から文字化けしないようにできるのでしょうか？

>>488
多分、HTMLの出力もCGIモジュールを使ってると思うんだけど、出てきたHTML見て見れ。
start_htmlのほうで何も指定しないとlang=en-USのcharset=iso-8859-1になる。

ということで
start_html(-encoding => "EUC-JP", lang => "ja")

未だに print "content-type: text/html;charset=euc-jp\n\n"; と書きたくなってしまう俺はオールドスタイル…

あ、ごめんlangのほうに-が抜けた。-langに脳内置換頼む。

ところでふと気づいたけれど、CGIモジュールって
Content-Typeのmetaタグよりtitleのほうが先に来ちゃうのね。
エンコーディングの指定を一番最初に書くことが推奨されてたと思ったけれど･･･

>490
別にそれでいいじゃん
それぐらい手前で出力しろとか思うわけよ

>>489-491
なんか文字化けしたままなんですが。。。
レスついたことに(^人^)感謝♪
いわれた辺りをいじってみます。
ありがとうございました。
-------
print $cgi -> header(-cahrset=>"EUC-JP");
print $cgi -> start_html(-title=>$title,
-BGCOLOR => $bg,
-TEXT => $fg,
-encoding => "EUC-JP",
-lang => "ja",
);

-----------
といいつつ
ソース載せてみた。。。orz

>>493
-cahrsetになってる…

cgi以下のディレクトリのファイルの存在を参照したい時どうしたらいいのでしょうか？

$check = 'デイレクトリ名/ファイル名';
if (-e $check){
&sonzai
}

上記のようにしてやってみましたがどうもifをスルーしてelseのルーチンばかり実行してしまいます。

CGIはどこのﾃﾞｨﾚｸﾄﾘで動いてんだ

>>496
＞cgi以下のディレクトリのファイル
と書いてあります

スクリプトの動いてるディレクトリと調べたいファイルのディレクトリを考えましょう

./だろ？

いや、mod_perl で動かしてるのかもわからないぞ…！

sjisの嫌な予感が…

いや、まさかぁ
マルチバイトのファイル名をつける超絶バカは居ないでしょ…

>>502
マルチバイトのファイル名を扱う業務も普通にあるぞ。
もちろんフリーソフトを使って英数字にリネームしてから作業しても構わないわけだが、
全部Perl一本で済ませたいタイプの俺としては非常に面倒いのだ。

そろそろKENTが使ってるif{}elsif{}elseから抜け出したいと思ってるんですが、
皆さんって最初の大まかな処理分岐ってどうやってますか？

今、テストで1関数で1ファイルで作って
eval{
　　require '$in{exec};'.'.pl';
　　&$in{exec};
}
の様に呼ぼうかと思ってるのですが(エラー処理とかばっさり切って略記しました)、
この考え方よらもスマートなやり方があったら教えて頂ければ幸いです

if 文使うと低レベル みたいな言い方なのはなんなんだｗ

大まかならif elsif elseだな。
まぁperlsynでも読めみたいな。

>>505
KENTが使ってるから低レベルにみえるんジャマイカ?

アッー！！

「if」も悪くないでしょ、処理速度が遅いわけじゃない
長くなってもわかりやすければそれに越したことはないし、
作成したスクリプトを他人が触る可能性があれば
その方が管理委託しやすいしね

>>507
まあKENTがアレなのは認めるし笑えるんだが、
if 文や local 自体は全然悪くないぞ >>504！
うちには関数 (サブルーチンのことだと解釈したが) ひとつひとつを1ファイルにするとかのが面倒でありえないｗ

eval使うくらいならelsif

僕は建都とか救援とか改造しやすくて好きですけどね
サブルーチンを使い回しまくっていると、結局条件分岐
を入れ込む回数が増えて大変だから
HTMLの構文エラー等はなくして欲しいけど

救援ってどこだ？（’’

rescueでしょ

>>514
thx 見たことなかったので見てきた。

すごいなこれｗ
KENTは perl4 とか過去のでも動くように、とかでしょうがないのかなとも思っていたけど、
ここは1年前作った 5.6 以上推奨のでもまったく同じ書き方でしたｗ
まあわかりやすいっちゃわかりやすい・・・のかな。

KENTとかのは無駄にファイル分割したオブジェクトバリバリ指向のものよりも
妙にレスポンスだけは良かったりするから困るｗ

基本を学ぶにはいいんじゃね？
簡単なものならフルスクラッチしたほうが早い場合もあるし。

性器表現を使って、空白文字のトリミングを行いたいんですが

$timp =~ m/^\s*(.*)\s*$/g;
$timp = $1;

というふうにやると $timp が空になってしまいます。
どうしたらよいでしょうか。

アッー

$timp =~ s/^\s*(.*?)\s*$/$1/mg;

>>520
ありがとう。これかっこいいです。

標準出力と標準でない出力を等価に扱いたいんですが

今は 出力する前に
if( $flag==1 ){ open(NKFOUT, "| nkf"); }
とやっておいて、出力時に
if( $flag==1 ){ print NKFOUT "ちんこ"; }
else { print "ちんこ"; }
とやろうと思うのですが、ちょっと

性器表現を使って、空白文字のトリミングを行いたいんですが

$timp =~ m/^\s*(.*)\s*$/g;
$timp = $1;

というふうにやると $timpo が空になってしまいます。
どうしたらよいでしょうか。

チンポが定義されてないからじゃー!!

ネタにマジレス乙。











正直嬉しかったぞｗ

>>522
if ($flag == 1) {
open(my $orig_stdout, '>&STDOUT');
open(STDOUT, '|nkf');
}

# パイプを通して出力
print "ちんこ";

# そのまま出力
print $orig_stdout "ちんこ";

perlfaq5 にある How do I dup() a filehandle in Perl? か、
perlfunc -f open を読むと良い。

>>526
ありがとう。それを参考に
if( $flag==1 ){ open(STDOUT, "| nkf"); }
とやったらだいたいうまくイキました。

<input type="text" name="F" value="&">
で送ったFと
<input type="text" name="F" value="">
に　&　を入れて送ったF
って違いますよね？

ああ、失礼。
&→&amp;

同意を求めないでください！＞＜；；

HTMLなら表示されてる通り送られると思う普通。

普通のブラウザならURL中の&amp;は自動的に&に置換するから一緒じゃないか?

試せばすぐ分かることに対してまじめに答える気にはならん

#!/usr/local/bin/perl

use strict;
print "Content-type: text/html\n\n";
my $buffer;
read(\*STDIN, $buffer, $ENV{'CONTENT_LENGTH'},0);

print <<END;
$buffer
<form method="post">
<input type="text" name="111" value="&"><br>
<input type="text" name="222" value=""><br>
<input type="submit">
</form>
END
exit;

下のフォームに&amp;と入れて送信するとあら不思議。
同じような挙動をする文字を知りたいんですがどこかにドキュメントありませんか？

×<input type="text" name="111" value="&"><br>
○<input type="text" name="111" value="&&"><br>

ご、ごめんなさい＞＜
◎<input type="text" name="111" value="&amp;"><br>

ヒント：文字参照

スレ違い…と言おうと思ったけれど、深読みしてPerlコーディングの話と考えてみる。
$hogeにはブラウザから送られてきたのをデコードしただけの物が入っていて、
print <<END;
<form method="post">
<input type="text" name="hoge" value="$hoge"><br>
<input type="submit">
</form>
こんなことをやって、&が入っていたら&に変わっちゃう…とかいう理由での質問なんじゃないか。
HTMLに流し込む前に実体文字参照に変換汁。
$hoge =~ s/&/&amp;/g;
$hoge =~ s/</&lt;/g;
$hoge =~ s/>/&gt;/g;
$hoge =~ s/"/&quot;/g;
# というかこれを知らないなら、頼むから公開するCGIなんか作らないでくれよ…
# XSS脆弱、下手するとScript Insertion脆弱だから…

>>535
ありがとうございます！！
マークアップ記号、Laten-1、ラテン拡張とアクセント記号までは
＆があっても直接変換されるようですね。

>>536
そうです、受け取り側での処理に影響するのか？という部分です。
ただし変換自体が問題ではなく、2回以上変換する場合が気になったんです。
というのもHTML::FillInFormの中で変換されてるっぽくて
先に変換かませるとひどいことに・・・
いろいろ試しているうちに上記の実態参照も考慮するべきか悩んだ次第であります。

>>537
ｽﾏｿ、ちょっとレベルを低く見すぎた。しかしそういうことは初めに(ry
混乱してるだけだと思うが、そう悩むことではないと思うぞ。

まずCGI側がFormに流し込む、生のテキスト「&amp;」を持っているとする。
HTML::FillInFormは生のテキストをHTMLに変換する。「value="&amp;amp;"」
で、ブラウザはHTMLを解釈して元のテキストに戻してからフォームを表示する。[&amp;]
Submitされると"生のテキストを"URLエンコードなり何なりしてCGIに送り返す。「hoge=%26amp%3B」
で、CGIはURLエンコードのデコード処理をして、生のテキスト「&amp;」を受け取ることになるわけだ。

なぜに二回以上変換するようなことになるのかな…

>>538
非常に混乱しております・・・
2回以上の変換なんですが、実はTTのPluginでFillInFormを使ってるんです。
他で変換しないと生のデータとFillInFormで変換されたデータが混在してしまって。
TTのタグでひとつひとつFILTERつければ回避できそうではありますが
できれば一元管理したいなあと・・・。
クエリを受け取った段階で変換してみたらFillInFormで不具合。
TTに渡す時点で変換すれば良さそうですが、データ構造が結構深いんです・・・

>>516
perlはオブジェクト指向の書き方すると遅くなるのは当然。
「ハードの性能がどんどん上がってるからかまわない」なんて言い訳してるが、
簡単なスクリプトの時にperlでオブジェクト指向の書き方するのはやめたほうがいい。
みんなKENTをけなすが、実はKENTはそれほど悪くないのかもしれない。

こういうと、きっと「コードの再利用が...」「保守のしやすさが....」って言い始めるヤツが必ず出てくる。
でもあの程度の規模だと、動作速度以外にも、理解しやすさとか、動作に必要な条件を考えると
必ずしも悪いと言い切ることは難しいんじゃなかろうか?

> 理解しやすさとか、
どうやったらあんなコードになるのか理解できない。

このジョークのことかーっ
ttp://www.lri.fr/~filliatr/evolution

ごめんなさい。言ってみたかっただけです。

>>540
> perlはオブジェクト指向の書き方すると遅くなるのは当然。

デマですね。

デマであるというソースが欲しい

そもそも

> perlはオブジェクト指向の書き方すると遅くなるのは当然。

というソースが欲しい。

ダミアン・コンウェイ著オブジェクト指向Perlマスターコースのはじめにかな？
んー、でも、それほど問題になる部分じゃないと思う。

>>545
残念ながら、実行速度に関してだけは >>540 が正しい。

ダミアン・コンウェイの「オブジェクト指向Perlマスターコース」の「はじめに」のvii ページ
「オブジェクト経由でメソッドを呼び出す処理は、通常のPerlサブルーチンを呼び出す場合より著しく低速である」
(「著しく低速」の部分は太字で強調)

手軽に確認するなら
perldoc perltoot
if you wanted fast, you wouldn't be using objects at all

ベンチマークだったら
http://psst.jp/syn/archives/000190.html

オブジェクト指向は遅いというのは共通認識だと思っていたのだが。

だがオブジェクト指向は実行速度を上回るメリットがある。

自クラス AUTOLOAD
親クラスのサブルーチン
親クラスのAUTOLOAD
UNIVERSAL のクラスのサブルーチン
と探すんだから多少は遅くなるのは仕方がない

>>547
オブジェクト指向型プログラミングがバカみたいに遅いのは
インタプリタ言語特有の問題だな

コンパイルすれば、かなりその差はちぢまる

>>549
でも結局は遅いんでしょ?

>>547
メリットって何?
改造したり再利用しないし。
速いならそれでいいじゃん。

>>551
お前はしないのかもしれないが、他の人間はするんだよ。
第一、スクラッチから書く人間の労力だって圧倒的に違う。

>>550
うまく作れば 気のせい 程度にはなる

>>540
そそｗ
いきなりメソッド呼んで、このメソッドはどのファイルにあるのかな？
これかな？誤爆。。なんて事をするくらいなら、1枚板のKENTの方が
改造なんかも手早くやりやすい。
しかもダメと叩かれる部分を修正してやると、さらに体感速度が上がるのも
教材に適してるような…ｗ

しかしそれで複数メンバーでの開発には適さない。
どこになにがあるのかを説明するより、モジュールリストを共有するほうが効率がいい。
今はひとりでやってるからいいかもしれないがちょっとは先を見ることを勧める。
体感なんてそんな変わらんから、規模の大きい開発の手間のほうが重要。

ごめんねパパ酔ってるからごめんね

>>547 のURLのベンチは面白かった。



まあ、なんていうか、
それ以外に、

オブジェクト指向では、use とか require したときの速度が遅いのが結構ネックでな。
mod_perl はその時間が減るからいいんだけど。



関数呼び出しが 1.5倍遅い、とか言っても、
それ自体は 1秒間に 45万回 か 64万回 かって違いで、ほとんど気のせい程度の時間でしょ。
問題は何回も実行する、例えば値を取得する param() 呼び出しとかなんだろうね。
それでも param() 程度なら 1000回実行して 0.01 秒か 0.002 秒の違いなんだけど。

つまり、OOPが悪いっていうけど、require とかの時間を考えなければ、そーそー体感で変わるもんじゃないと思う。
実際は他のトコで無駄省いたりして速くするようにすれば、そっちのが変わりそうだよね。

なぜか改行が増えてる orz
Jane で書き込むとたまにこうなるんだよなあ・・・。 スペース無駄にしてｽﾏｿ。

自称KE○Tよりまともってスクリプトを拾ってきて展開してみると
作者が再利用しやすいってだけの分割されたスクリプトファイルが
20〜30個って事が結構あるぞ？
しかもKENT製を静的なページを表示するのと同じレベルで実行できる環境で
実行してみると多少の引っ掛かりを感じる。
しかもファイルが分割されてるのにpackageはmainのままだったりするから、
mod_perlで修正することなく動いてもファイルシステム上の位置が変わると
別キャッシュになってメモリを馬鹿食いに。

> スクリプトファイルが20〜30個
> ファイルが分割されてるのにpackageはmain

全然まともなスクリプトじゃねえよｗ さすが自称ｗｗｗ

>>559
こう言う人たまに見かけるよね。
ファイルを分割したりモジュール使うことがオブジェクト指向だと思ってる人。
他にも sub 使えば関数指向だと思ってる人とかさ。

正規表現について質問です。

たとえば、　'abc'　以外の全ての文字にマッチする場合はどのように書けばいいでしょうか。

acb　にはマッチします。
abcaa にもマッチします。
aaabc　にはマッチしません。


m演算子の真偽の逆転ではなくて、正規表現内で解決する必要があります。

前方一致 とかでぐぐってみたら。
/.(?!abc)/ こういうのね

>>563
前方一致とかじゃ無理な気がする…って思ってたけど、できるんですね。すんません。
なんか正規表現超苦手です。。。頭いたくなるぜ。

/^(.(?!abc))+$/

まだ試してないけどたぶん大丈夫な予感です。ありがとうございますた。

>>564
まあ /^(.(?!abc))+$/ だと 文字列の最初が abc だとマッチしちゃうけどね。なんとかがんばって。

正規表現ってか…これってPerlの独自拡張じゃなかったっけ

Catalyst(+TT)に慣れると楽で戻れないが、これをCGIで毎回
キックするのはムリなのは確かだね。必要なファイル読むだけで
しばらくかかるし(笑) レン鯖でCGIしか使えない人は残念でした。

なんか暇つぶしに遊びプログラムで作ろうかと。
あんまり複雑なのだと遊びじゃなくなるので。

15分くらいで作れる、簡単だけど面白いのってなんかないかな。
アイデアくだなさいあな。

>>568
tropyクローンなんかどう？

>>569
なんですかそれ？
ちょっと検索してみますよ。

>>569
うちもそれ思ったｗ
でも 15分で作れるかなあ。>>568がんば。

なにやら難しそうな。
以前にショッピングカートを作ったんです。
もう覚えてないのでそのレベルでさえ遊びにならない。

すごい低級になるんですが、低級なりの楽しみ方がないかなと。
少しづつ拡張できるようなのでもいいかなと。

う〜ん。スレ違いっぽ。とりあえずこれにて書込みはおしまいにします。
何かアドバイスが見には来ますのでありがたく。
それでは。

tropyクローン なら、はてなおやのがあるじゃん。
書き方おかしいけど。

ハテナオヤのはCatalyst使うじゃん。インストール面倒だよ。
結城のオリジナルのクローンを書くほうがほうがシンプルだし勉強目的にはちょうどいい。

> ハテナオヤのはCatalyst使うじゃん。インストール面倒だよ。

そうなの？ CPAN コマンドで簡単に入ったんだけど。

質問ー。
外部モジュールを使わないで UTF8フラグをつけたり、ついてるかどうか検査したりするのってどうしたらいいんですかね？

どっかに誤爆したのは内緒ｗ

>>576
utf8::*はそもそも外部モジュール不要
utf8::is_utf8

>>576
言い忘れ。utf8::以下についてはテンプレの[Perl5.8Unicodeメモ]参照
utf8プラグマと混同しないように。

>>577
え、まぢで？ v5.5 とか 5.6 でもできる？
ピンクのサイトの方は見てたんだけど、v5.8 だったｋら・・・

v5.5てのが5.005のことだとすると、まだutf8関係の機能が入る前だから
そもそもutf8フラグはありません。

>>580
ううーん、そうなのか・・・。
情報ありがとうー。

$LOGPATH = './logs/';# ログ保存ディレクトリのパス
$EXPIRES = 3;# アクセスログ保存期間
# 日時の取得
$tm = time;
($sec, $min, $hour, $mday, $mon, $year) = localtime($tm);
$year += 1900;
++$mon;
# アクセス情報の整形
$ln = "$hour\t$min\t$ENV{'REMOTE_HOST'}\t"
. "$ENV{'HTTP_REFERER'}\t$ENV{'HTTP_USER_AGENT'}\n";
# ログファイルの書き込み
$logfile = sprintf(
"$LOGPATH%04d%02d%02d.dat", $year, $mon, $mday);
open(FILE, ">>$logfile")
or die("エラー：ログファイルが開けません");
eval{ flock(FILE, 2) };
seek(FILE, 0, 2);
print FILE $ln;
close(FILE);
# 古いログファイルの削除
$tm -= $EXPIRES * 60 * 60 * 24;
($sec, $min, $hour, $mday, $mon, $year) = localtime($tm);
$year += 1900;
++$mon;
$delfile = sprintf(
"$LOGPATH%04d%02d%02d.dat", $year, $mon, $mday);
if(-e $delfile) {
unlink $delfile;
}

>>582のプログラムで
$delfile = sprintf(
"$LOGPATH%04d%02d%02d.dat", $year, $mon, $mday);
となぜ形成してるんでしょうか？？
消すためにはいちいち作らないとだめなんでしょうか？？
これを消したとしても$logfile にログは残るんじゃないでしょうか？？

>>583
$logfile と $delfile はファイル名が違う。

$logfile は新規のログのファイル名
$delfile は何日か前のログのファイル名

コメント読もうよ。
> # 古いログファイルの削除
とあって、
> $tm -= $EXPIRES * 60 * 60 * 24;
で数日前の日付を出してる。

いやそれはわかるんですが
古いファイルを作ってなぜまた消すんでしょうか？

> 古いファイルを作ってなぜまた消すんでしょうか？

どこで古いファイルを作っていることにしたいんだろう。

>>583の最初の行です

> >>583の最初の行です

って、

> >>582のプログラムで

これ？

ファイルを作るのとファイルの名前を作るのを近藤してるとか？

それにしてもそのスクリプトだと、”チョウド３日”目にアクセスされないと
不要なログファイルがドンドン溜まっていきそうな気が・・・

>>588
いえ二行目です
>>589
そうなんでしょうか？
>>590
そうなんです
このスクリプトは

$delfile = sprintf(
"$LOGPATH%04d%02d%02d.dat", $year, $mon, $mday);
で３日前のファイル名を$delfileに入れている。
unlink $delfile;
で３日前のログファイルを実際に消している。

＞＞$logfile にログは残るんじゃないでしょうか？？
それはその日のログなので残してOK

なぜ、連想配列の連想をhashというのでしょうか

あ、hashが先か
なぜhashを連想と訳すのでしょうか

どうして？ 細切れ＝連想なの？ 教えて！

現在は連想とは呼ばない罠
あと正確には 連想配列=hash変数 ではない。

まじ？ じゃあ今はなんと呼ぶのがトレンドなの？

まあ、連想配列でも間違いではない気がするけどなあ。
perl の連想配列は内部でハッシュ法が使われているからだろうけど、
配列みたく入れた順番に取り出せないし、みんな区別して ハッシュ って呼ぶ気がする。

>>582ｰ583のもんです

>>582ｰ592まで質問してたんですが
古いログはlogsというファイルに残ったままにならないんでしょうか？

>597
>584-592を百回読み直せ。それでも理解できないようならとっとと市ね。

死んできます

質問があります。

ファイルから文章を読み出して正規表現でマッチングしようとしてるんですが
「ー」文字が入る単語をマッチング条件とするとエラーがでてしまいます。
-wcコマンドで実行するとSyntaxOKとでてます。
perlのバージョンは5.8.8です。


$word = 'マリオブラザーズ';
while (<INPUT>) {
if (/^\.([^\n]+),$word\./){
〜〜〜〜〜
}
}

読み込みファイルの内容
.data1，data2．
.任天堂，マリオブラザーズ.
.ああああ，えええええ.
〜
〜


前後についてる..は正規表現を使いこなせない証でしょうか…マッチングするために付加しています。
これで任天堂を$1で取り出したいんですけど$wordに「ー」含んだ単語設定すると
以下のようなエラーがでます。data2、ええええを入れた場合は、意図した通りにdata1とああああが$1に入ります。

C:\Program Files\Apache Software Foundation\Apache2.2\cgi-bin>perl search.cgi
Unmatched [ in regex; marked by <-- HERE in m/^\.([^\n]+),マリオブラザー <-- HER
E ズ./ at search.cgi line 43, <INPUT> line 1.

原因がまったく分からず困っています。どなたかご教授下さい。

EUCでやれ

\Q\Eでも入れとけ

文字コードの違いが問題のようですね
参考になりそうなサイトをいくつかググって探せたので、調べながら頑張ってみます。
ありがとうございました

HTML作成したアンケートフォームから送信したキーとデータを
ハッシュに格納してそこからCSVに出力したいのですが、
ハッシュからキーとデータをCSVに出力すると順番がランダムになってしまいます。
キーとデータを自分の意図した順番通りにCSVに出力するにはどうしたらいいのでしょうか？
sort関数を使用しても辞書順にしかならないので、意図した通りの順番で
CSVに出力することが出来ません。

どなたかアドバイスをください。よろしくお願いします。ｌ

>>604
1. 並べたい順にキーを並べた配列を作る
2. 1. の配列をforeach か何かで回してハッシュを引く
3. CSVに出力

>>605
即レスありがとうございます。
試してみます。

>>601,602
フォームからcgi起動してフォームから送られた単語に基づいて検索するサイトを作ってたんですけど
アドバイス頂いた事を元に、cgiとHTMLフォームのソース、検索元csvファイルをEUC-JPに変換したらうまくいきました。

初歩的な質問だったようですけど、お答えいただきありがとうございました。

>>607
ユーザ入力をメタキャラクタも含めてそのままパターンに取るような CGI を晒しておくと、イイカンジにアッー! されて色々と被害をまき散らしたりするんで安全性について要再考。取り急ぎ。

>>608
気をつけます。調べてみたんですが、

つまりデータとしてとりたい文字列がperlプログラム上で特別な意味を持つ文字になってしまって
プログラムが意図しない動作をする可能性があるってことですよね

>>593
連想配列(associative array)をラリーウォールが勝手にhashと名づけた。
けど、それに賛成できない訳者がそのまま連想配列と訳した、とか？

>>610
をいをい、あんまり勝手な事言わんでよ。
逆なら分かるけど。

、とか？
、とか？
、とか？
妙な推測するほうもアレだが
釣られるほうもアレ。

>>612
ヒント：おまえも釣られてる

アッー！

以上自演でしたまる

ファイルを開くときは

open(FILE, "$file") or die "エラーだ";

みたいな感じでdie使うもんだと思ってて深く考えたことなかったんだけど
これって、何かモジュール入れてないとエラーメッセージは表示できない？
単にInternal Server Errorが返されるだけなんだけど。

>>609
理解の方向性は合ってます。ただ危険性のレベルは一般にもっと高いです。
特に Perl の場合、値をそのままパターン内で展開する、ということは「任意のコードが実行できる」と同義なので大変危険です。

>>616
そういう問題じゃないんだけど…。
エラーメッセージはサーバのログに吐かれてる。
ブラウザに出したいなら自前でエラー処理書いて、dieじゃなくてexitする。

ちなみにその$fileをダブルクォートで括る必要は全くない。

>>618
あぁ、なるほど。die以下のメッセージはサーバのログに出てるだけだったのか。
じゃあ、レンタルサーバで不特定多数が使うcgiの場合には
dieより自前で用意したエラー処理に飛ばす方が良いってことか。

>ちなみにその$fileをダブルクォートで括る必要は全くない。
でも、シングルクォートとかダブルクォートとかで括ってるの多い気ガス。
単に好みの問題？

>シングルクォートとかダブルクォートとかで
oioi

>>617
漏れも先日までそう思ってたんだがな、実際にやって見れ。
安全措置が施されていて、use re 'eval';しないとデフォルトでは動かないんだこれが。

まあ、汚染された正規表現を実行するなんて真似は、やっぱり止めておいたほうが良いのは確かだと思うけれど。

>>619
とりあえず公式にも非推奨。
ttp://www.kt.rim.or.jp/%7Ekbk/perl-5.8/perlfaq4.html#what_s_wrong_with_always_quoting__vars
これをわきまえた上で、好みをとりたいと言うのであれば何も言うまい。

ヒント： use CGI::Carp qw(fatalsToBrowser);

大変勉強になります。しかも即レスだし。

>>621
なななるほど。そう言われてみれば、そうだ。
とりあえずダブルクォートで括ってみた。
中身は何でも良かった。今は反省している。

>>622
標準装備にそんなのあったんだ。
で、実際のところdieで>>622のモジュール使うのと
自前でエラー処理用意して飛ばすのと、
どっちが一般的なんだすか？
いや、それこそ好みの問題かもしれないけど。

恐ろしい子っ！！

>>623
CGI.pm を使う書き方をしてるのであれば、>>622 で良いんじゃないかな。
die のメッセージをHTMLで吐いてくれるし。

ただし、エラーがあってdieしてもHTTP的に50x系のエラーにならないのと、
デバッグが終わったら >>622 は外さないといけない事に注意。
エラーメッセージを見せるのは、セキュリティー的によろしくない。

>>625
アドバイス感謝です！
>エラーメッセージを見せるのは、セキュリティー的によろしくない。
言われてみればグレート当たり前のことだよね。でも、この視点完全に欠落してた…。
フォームの入力値のエラーなんかと同様に、エラーだったら何でもかんでも
ブラウザで教えてあげるのが、イケてると思ってた…。

ここは本当に恐ろしい知識の泉でつね。
オレ、今、かなり賢くなってる。

要するに最初からエラー処理用意しとけと。

$SIG{__DIE__} とかを書き換えて $! 表示して exit

>>593, 610

danのblogでも少し前に話題になってたと思うんだけど(探すの面倒くさいんで自分でやってね)、

Perl4まではPerlでも連想配列 (Associative Array)と呼んでいた。
連想配列という言葉は、この「Associative Array」という語に
対応したもの。この時点ではハッシュは関係ない。
PerlのAssociative Arrayは直接には awkのそれからきたものだと
思われるけど(awkでも Associative Array = 連想配列と称される)、
多分 IconとかSnobolの表が祖先じゃないかと思う。

で、Perl5.000になった時点で、Larry Wallが「Associative Arrayってさ
長いから書くのも読むのも面倒じゃん、Hashって呼ぶことにしようよ」
ということで呼称がハッシュに変わったのね。で、それはAssociative Array
を実現するのにハッシュ法を使っていたから。

Programming Perl (第一版 赤本ね)には実際次のような記述がある(訳本の37ページ)。

1.5 連想配列
この章の最後を締めくくる話題は連想配列(associative array)である。
(略)
連想配列は、添え字として任意の文字列を指定できるという点を除けば、
普通の配列と何ら変わらない。連想配列から得られたエントリは文字列で
あってもよいので、任意の文字列の対をたがいに関連づける(associate)ことが
可能である -- これが連想配列(associative array)と呼ばれる理由である。


呼称をハッシュに変えた理由も、Programming Perlの第二版(青本の分冊になっていない方)に書かれていたと思うんだけど、本が見つからなかったので
紹介できん。スマン。

open(FILE, $file);
は通るけど、
open(FILE, +< $file);
はダメなんだね。入出力の記号を付けるときはダブルクォート必須？
なら、
open(FILE, $file);
は
open(FILE, "< $file");
と同じだから、やっぱ
open(FILE, "$file");
と書くのが正しいんじゃね？とか思ってしまうんです。
それとも記号の付け方がおかしいのか？？
そこんとこもう少しヒントを！

>>629
Programming Perl(第二版：青らくだ本)の日本語版8ページから引用

1.2 自然言語と人工言語
ハッシュ：ハッシュ(hash)は、順序付けられていないスカラーの集合で、
各スカラーに関連付けれれた文字列によってアクセスされる。
そのためハッシュは「連想配列」(associative array)と呼ばれることもある。
しかし、これは怠惰なタイピストにとってタイプするのが面倒だし、
頻繁に使われるので、私たちはもっと短くて、ぴりっとした(snappy)呼び名を
付けることにしたのだ。

ということらしい。

メールフォームにＢＢＱを組み込んでいるのですが
昨日みたいに２ちゃんが落ちるとＣＧＩが止まってしまいますよね？
落ちてる時の回避方法ありますでしょうか。。。

sub checkProxyList{
my $RADDR = $ENV{'REMOTE_ADDR'};
$RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $query_addr = "$4.$3.$2.$1.niku.2ch.net";
my $addr = join('.', unpack('C*', gethostbyname($query_addr)));
if ($addr eq '127.0.0.2'){print_error("PROXY ERROR")}
}

>>630
これじゃ、質問の答えにはなってないと思うが
> open(FILE, +< $file);
perlfunc嫁。modeは別の引数に出来る。
open(FILE, '+<', $file);

>>632
試してないがNet::DNS使えばタイムアウトの設定が出来るんじゃないか？
ttp://search.cpan.org/~olaf/Net-DNS-0.57/lib/Net/DNS.pm

>>633
ありがとうございます。試してみます

ネットワーク通信系のモジュールのタイムアウト実装ってかなりいい加減だよ
あんま信用しない方がいい
実際にやってみれば分かると思うけど

>>633
別の引数にしたら…？？
すません。よく分かりません。
open(FILE, "+< $file");
は正しくなくて
open(FILE, '+<', $file);
が正しい書き方ってこと？？

>>633
ちょｗ 知らなかったｗｗｗ

>>636
誰
なんで俺のBeが
bbs.cgiのバグですか

>>637
>open(FILE, "+< $file");
いや、これでも正しいよ。
openの引数をいくつにするかってだけだから。
ただ、"$file" は無駄やってるよってこと。理由は >>621 のリンク参照。

>>631

おおthx。
文面が記憶と違うけど載ってるのは
まちがってなかったか。

あ、俺の記憶が怪しかったってことね。

>>640
なぁんとなく解ってきたようなきてないような。

$hoge = '質問スレ';
print "初心者$hoge";
と書くのは正しいけど、
$hoge = '初心者質問スレ';
print "$hoge";
と書くのは厳密には正しくない、みたいなことかな。

上の例で言えば、どうしてもダブルクォートで揃えたいなら
open(FILE, "$file");
とは書かず
open(FILE, "< $file");
と書いた方が文法的（？）にはオケってことか。

ちょっとスッキリした。サンキューです！

>>642
いや、正しい正しくないの話じゃなくて。例えば、0から9まで処理するときに
for my $i (0..9) { }
と書いても、
{ my $i = 0;
while ($i <= 9) { }
continue { $i++ }
}
と書いても文法的には正しいし、同じように動くけれど、
前者のほうが無駄が無いし、間違い起こしにくいでしょ？みたいな話かと。

>>642
> print "初心者$hoge";

これも

print '初心者', $hoge;
こうか
print '初心者' . $hoge;
こう書かない？

>>643
そっちの解釈か！
ロクに入門書も読まず他人様の書いたコードを切ったり貼ったりしながら
適当に「学んだつもり」になってた人種にとっては耳の痛いお話ですわ。
システム面でのエラーが起こりにくい無駄のない書き方に拘泥して
稚拙なヒューマンエラー続発とか…自分には有り得そうで怖いなぁ。
とは言っても、そんなんでは進歩はないので心掛けて書き直すかな！

>>644
例が悪かったかもかも。
print "<SPAN STYLE=\"color:$hoge\">２ちゃんねる</SPAN>";
みたいなのを想定で。

ラクダ本の24章Perlの常識を読むといいよ。

>>644
>print '初心者' . $hoge;
これは無いなぁ。連結コストかかるから

>>646
刮目します。

>>642
んー。他の人も言ってるけどちと違う。
別にどっちで書いても文法的には正しいし動作もする。

"$file" みたいにダブルクォートで括ると(無名の)「文字列の生成」が起こる。
内容は$fileと全く同じ。

だったら新しく生成しなくても良いんじゃないの？って話。
同じもの２個作ってどうするよ。無駄だよね。
しかも、 open(FH, "$file"); じゃ、生成した所ですぐに使い捨て。
だったら open(FH, $file); の方が無駄な変数作らなくて良い。
まぁそんだけだけど。

>>649
>"$file" みたいにダブルクォートで括ると(無名の)「文字列の生成」が起こる。
！！
先生『週刊そーなんだ』にも掲載すべきだと思います。
懇切丁寧な説明により、ようやく合点がいきました。

しかし、ラクダ本読むのには時間もだけど体力要るな…。

久しぶりにperlCGIで遊んでいます。
ちょっと知り合いのサイトを作ってあげよかなと思いまして、
いろいろ遊びたいのでとりあえず全部のページをCGIにしようと今メモ帳を眺めてるのですが。

プログラム本体にHTMLを書いていくとなんか物凄く長くなってしまいますよね。
でも10ページくらいでも1000行くらいは簡単に超えますね。

なんかそのやり方がすきになれないのですが、かといって.txtにhtml本文を書いておいて
読み込み手法も納得いかない。

出力内容を作成するルーチンだけ.plで別にしても結局はイマイチ。

読みやすく拡張しやすくスッキリとした手法をかなり神経質なレベルで考えていますが、
アドバイスもらえたらとおもって投稿しました。

少しコーディングから離れるというか、前段階の話になるので気が向いた方だけで
かまいませんので宜しくお願いします。

何を言ってるのか意味が分からないけど
とりあえず HTML::Template でも使っとけ

Template Toolkitを勧めたいところだがCGIじゃ重いかねぇ。
最近Catalystばかりなのでわかんね。

>>652
HTML::Templateは知っていますが、そういうことではないんです。
うまく説明できませんのでスルーしてもらってもm(__)mごめんなさい。


例えば普通にhtmlファイルのまま全部のページを公開してるとしますよね。
１０ページだろうが１００ページだろうが、拡張していくときに面倒はありませんし、
把握もとても単純なんですよね。

それをCGIにするとイマイチなんです。
スマートじゃなくなるというか。ゴミゴミするというか。
もちろん同じフォーマットの文章だけ違うような場合はいいのですが。

それぞれのページで違いますので。

なぜ全部のページをCGIにしようと思ったの？

>>653
TTは重すぎてCGIじゃ無理。

>>621
> 安全措置が施されていて、use re 'eval';しないとデフォルトでは動かないんだこれが。

ウホッ! ありがと。

>>645
他を選択する合理的な理由がない場合、ファイルオープンには常に 3引数の open を使うのが良い習慣だと思います。
正しくは、「どんな場合でも、その必要がなければ 2引数の open を使わない」なんだけれど。

>>654
・共通する部品と各ページに固有の部品をそれぞれ抽出
・各部品をファイルに保存 # この時、プログラムから利用しやすい形で保存しておく
・CGI が叩かれた時に必要な部品を読込み、それらを組み合わせて返す

全リソースが静的なら、こーゆーのは SSI の仕事で CGI でやるメリットはないと思う。
抽出の粒度と保存スタイルさえ適切ならディスクの節約にはなるかもね。

>>651
ヒアドキュメント使えば、表示したいHTML＋５行ぐらいでcgiに出来ますよね？
”拡張性がある”というのをどういう状況を指して言ってるのか分からないですが、・・・

すいませんちょっと質問させていただきます。
Perlの練習の意味を込めて、今現在CGIでホームページを作成しています。
（ただ単に、HTMLを出力するだけのCGIです）

そこで質問なのですが、
「http://yomi.pekori.to/s/yomi.cgi?mode=kt&kt=02」の用な感じにページを分けたいのですが、考え方が分かりません。
自力で「http://yomi.pekori.to/s/yomi.cgi?mode=kt」まで分けることはできるのですが、
その後にさらに「&kt=02」を足して
「http://yomi.pekori.to/s/yomi.cgi?mode=kt&kt=02」というページを作成する方法が分かりません・・・　orz

正直、自分でやってもうまくいかないし、何て検索していいのかも分からず途方に暮れています・・・

よろしくお願いします。

$ENV{'QUERY_STRING'}をいろいろ条件にかければOK
CGI.pmを使ってるならparam('mode')、param('kt')で欲しい値が取れる
ので、それを条件にかければOK

>651
自分のスクリプトではこんな感じにしてます。


$template{'##TITLE##'} = "TEST";
$template{'##CONTENTS##'} = "本文";

&templateprint("template.html", %template);

sub templateprint{
　　my($inputfile, %data) = @_;
　　my($templatetext);
　　if(open(FHTEMPLATE, $inputfile)){
　　　　read(FHTEMPLATE, $templatetext, (-s FHTEMPLATE));
　　　　close(FHTEMPLATE);
　　　　while (my($pos, $val) = each %data){
　　　　　　$templatetext =~ s/$pos/$val/gi;
　　　　}
　　}
　　print $templatetext;
}
※ ここに貼り付けるにあたってエラー処理とかはばっさり削除してます

なんで全部のページを CGI でやろうと思うんだろ。
テンプレート使うとかブラウザからページ作成する、とかでない限り無駄でしかないんだけどｗ

デザインの統一＆デザイン変更時を考えると管理しやすいと思うが・・・
あと HTML 編集時のミスも極力防げるし。
サーバーの負担以外はプラス面ばかりだとは思う。個人的にはだけどね

>>660
例えば１０ページ分を一つのファイルにまとめると物凄いうざくなりますよね。
HTML自体が長くても所詮は.htmlで保存公開してるならスッキリ感があるんですが、
それをひとつのファイルにまとめると最悪な感じなんです。
html的に最悪ということです。

見渡しにくいコード・ソースというのが嫌いなのです。

逆に外部ファイルが１０個も２０個もあるのもイヤなんです。

というジレンマなんです。

>>665
デザインなんてCSSファイル変えるだけじゃん。
テーブルレイアウトやってるならあれだけどね。

>>666
CGI でやること自体見渡しにくいし、何kbのCGIファイル作る気だよ・・・
テンプレートは嫌だって言うし・・・
もう、あれだ、perl より php でやったらｗ

>>666
普通に１つのページに対して、１個のCGIにすれば？
というかperlはヒア演算子があるから、既にHTMLが出来てるなら、
#!/dir/perl
print <<HTML;
content-type:xxxx

HTML
で、とりあえずすぐにcgiになる。で、なんか動的要素追加したかったら
前の部分にちゃちゃっと書けば、ある程度拡張できるし・・・
というか何を目指してるのかがいまいち分からない・・・

質問：
10ページ分のHTMLを一つのCGIファイルにまとめてたい。
でも、大きくなって見通しも悪いのでどうにかしたい。
複数ファイルは死んでも嫌。

回答：
HTML::Templateは変数にテンプレート入れて動かせるよ。

sub >>669 {
　return >>654
}

これ多分無限ループ

CGI.pmでさえ、ちょっとしたHTMLを吐けるのに

HTMLでいいじゃん

うちはhtmlにjavascript(cgi)入れて
動的なページっぽく見せてるお＾＾

あるPerlプログラムを実行したら
セグメンテーションエラーになってperl.coreというファイルを吐いて死んでしまいます。
perl.coreというファイルは何に使うのでしょうか？

651について考証。

[ケース1]
Perlを熟知しているが無意識に「Perl（CGI） ＞ HTML」というイメージにとらわれている。

[ケース2]
Perlはそこそこできるが、HTML::Templateについて実はよく理解していない。

[ケース3]
Perl習いたてで、Perlを万能低級言語であるかのような錯覚に陥っている。

[ケース4]
HTML、CSS、JavaScriptについて実はよく理解していない。

[ケース5]
そもそも、対象としているHTMLソース自体が汚いから誰がやってもまとまらない。

普通にコアダンプじゃねーの
アセンブラの知識があれば読めます

[ケース6]
>>675 は、「ケース」「考証」という単語を並べてみたかった。

651はdbで解決だな

Segmentation fault (core dumped)
とでています。
perl -dでデバッグを行ってみたのですが、ある部分でずっとCPUを100%使い切ったまま止まっているように見えます。

このperl.coreはどのように役立てればよいのでしょう？
ググっても参考になる情報が載っていないので‥

バグとして報告するか
デバッガ使って読んで下さい

whileについて質問。

ファイル（$log）の中身を１行ずつチェックしながら処理する場合、
open ( FH, $log );
と開いたとして、

@array = <FH>;
$limiti = @array;
while ( $limiti > 0 ) {
　処理;
　$limiti --;
}
とするのと
while(<FH>){
　処理;
}
とするのは同じこと？
どっちでもできるなら後者の方が無駄な変数無い分よろしい？

前者は一気に読み込んでるのでメモリを多く使用する

>>681
明らかに前者は分かりにくい。ありえない。メリットも少ないし。
それでもメモリに展開するなら foreach (@array) {} にでもしなよ。

>>682>>683
後者の方法最近知ったんだけど、それまでずっと前者の方法でやってた・・・orz.

>明らかに前者は分かりにくい。ありえない。メリットも少ないし。
だよね！だよね！ハッキリ答えてもらえてかなりスッキリ。
しかも代替案まで出してもらって恐縮です。

どうもでした！

コアは食べろ。体にいいぞ。

>>667
CSSレイアウトは正確に書いても正確にレンダリングされるわけではありませんので、
バグ対応を考えるとテーブルレイアウトの方がよほどデザインの変更は私にとっては簡単です。

>>675
ケース６

ある一つのファイルを開けた時の見渡しやすさを確保するには一ページずつhoge.cgiにすれば
.htmlほどではないが準じたレベルで解決。
でもそれだとperlとしてボツ。

要は見渡しやすさと効率と利便性と拡張的と省エネと論理的という理想がそれぞれで
ぶつかりあって毎度動きはするけど納得いかないレベルのものになってしまうのです。

ここらでこのジレンマを解決したいのですが。

strictHTMLと作る側の利便性と効率的且つ拡張的なHTMLは反発しますよね。
そんな感じかもしれません。

m(__)m

完全CGIのサイトを作ってあげる
↓
高負荷でレスポンス激重or鯖缶から垢デリ
↓
水の泡

>>688
いや。まあかまわないのですがそれも。
作る自体遊びなので。

a;a1;10
b;b1;10
c;c1;10

と記述したファイルがあるのですが、
例えばb;b1;10の10を11に書き換えたい場合はどうすればいいのでしょうか？

HTMLのソースが見難いものである以上無理じゃね？

ファイルじゃなくてどうゆうふうに変数に入れてるのか家




まぁ、データ整理がうまく言ってないだけだと思うけど、たぶん想像だけど無難なトコでは

@file = (
  ['a', 'a1', 10],
  ['b', 'b1', 10],
  ['c', 'c1', 10],
);

って感じでいいのか？
だとしたら

$file[1][2]++;
となる

>>651のやろうとしている事をやるなら、まずページごとに異なる部分だけを
データファイルなりなんなりで保存しておいて、Apacheのmod_rewrite使って
自動的にCGIにパスを渡すようにするかなー

ってこれブログじゃねえか！

アロー演算子って省略できたのか、、

普通にMovaleTypeとどう違うんだろう。
Perlは初心者レベルの俺から見ても、
外部にhtmlの共通部分をテンプレートとして用意しておいて、
コンテンツをそこに流し込むだけでいい気がするんだけど。

>>686
それはCSSを知らないだけじゃない？
よっぽど変なレイアウトをしない限り、CSSハックとかちょっと組み合わせれば
主要ブラウザの表示の差異ぐらい普通に取り除けるぞ。
IE7でちょっと混乱しそうだが、IE7でCSSハックもできるようだから問題ないだろうし。

>>692
ファイルを読み込んで該当の一行を返し、それを;でsplitしています
ですので、変数としては@datに配列として入っています。
その@datの値を変更したのですが、ファイルに書き戻す方法がわかりません

joinでおｋ

grepとsedを組み合わせることは出来ないですか？
マッチした行をsedしたいのですが

すいませんsedというか
s///です。

最初の質問と全然違うじゃねーかよ
>>697でおｋ

>>698
そのgrepはどっちのgrep?
コマンドか関数か

>>694
2個目以降は省略できるぉ

>>691
いえ、htmlのソースは十分見やすいのです。
ただ、それを一つにまとめると長くなって見渡しやすさがなくなるのです。

>>693
昔携帯用サイトをそんな感じで作りました。

>>695
それはCSSに適したレイアウトをしてるからじゃないですか？
デザインレベルの段階で「これはCSSだと云々」と考えたりするのは
個人的には邪道なのです。

例えば写真がページごとに入る枚数が違って、写真と文字の位置の関係や
回り込みの仕方。文字のサイズを変えたときのかわり方、全体の長さによる背景の可変。

そして久しぶりにソース、コードを見た時のわかりやすさ。論理的でありながら効率的で。

長くお邪魔してしまいましたが、スレ汚しになってしまいますのでここらへんで消えます。
ありがとうございました。

>>696
そこまで分かってて自分で考えられないようじゃ（ｒｙ

最後にすみません。

例えば
my $print_value;
if ($form{page} eq "index"){ $print_value = &tag_index}
と本文でやってインデックス用のページを作るサブルーチンから完成したソースを
返してくるとしますよね。

これでページがindexとblogとgalleryと3種類だけでもソースを返してくるルーチンを
3つ同じファイル内に書くと見渡しにくくなりますよね。

最高の解決としては。これはメモ帳レベルの問題なのですが、
同じファイルに書いておきながら

#このルーチンはどういう処理をして何を返すのかを軽く説明
sub tag_index{}　　###　このルーチンの中身を見るにはココをクリック！


こんな感じになれば最高なんです。これで10個のルーチンがあっても30行ほどでよくなります。
つまり10個のルーチンが画面内に収まるのですから処理の全体の流れがとてもわかりやすいのです。
これが私のいう見渡しやすさです。

外部にライブラリにすればいい。モジュールにすればいい。
いや。違うんです。ファイルをいくつも作るのはゴミゴミして嫌いなんです。
そして毎度引数を色々渡すのも嫌いなんです。

って、こんなメモ帳を自分で作ればいいのか・・・・・・・
terapadを使ってるのですが、このインターフェースに慣れてるので
サブルーチンはデフォルトでは表示されないとかになればいいのに。行数はもちろんトビトビになる仕様で。

VisualStudioのエディタはそんな風になってるね

IDE使えや

CSSは邪道
ファイル複数にするのも邪道
HTML::Templateは使いたくない

これじゃどうしようもない…。
>>651 は何がしたかったんだろう。

なんだ、、サブルーチンが折り畳めるエディタはないですか？
っていう質問だったのか。。。

むしろ適当なCMS使え

>>703
その辺も普通にCSSで実現できるな。
tableデザインにはそれなりのメリットがあるのはわかるが、
貴方は多分CSSデザインを過小評価しすぎてるよ。
否定するならちゃんと勉強してからがお勧め。

>>705
>こんな感じになれば最高なんです。
そういう風にコードを書けばいいんじゃね？ｗ

>>707
あまりの遅さにスーパーライセンスを剥奪されたっぽいから使えん。

>>706-710
そういうエディタもあったのですか。
しょぼい結末になってすみませんです。

>>711
そうでしたか。CSSスレで回答者をしていたころはよく回答者同士で
実装について嘆いたものですが。
1年ほどCSSから離れていたあいだにブラウザに革命でもおきて全て解消されたのでしょうか。
失礼いたしました。

最後までちゃんと説明出来ない子だったな

ごめんなさいm(__)m
優しくしてくれてありがとうございました。

651のIDが神がかりな件

なにがどう神がかりなのか、それを表す正規表現を書いてみてください。

皆様ありがとうございます。

ファイルを直接書き換えたいので、
open( FILE, ">>./dat/img_data.dat");
while(<FILE>){
s/$FORM{'tmp'}.*/$dat/;
print;
}
close( FILE);
このようにしているのですが、うまく動きません
原因がわかるかたいますでしょうか？

>>714
奇遇だな。
俺もそのスレの回答者をしていたりする。

>>714
amazon参考にしたら？ｗ

お、気づかない間に終わってる。
最後まで言ってることチンプンカンプンだったな。
どうでもいいけど、strict-HTMLとかCSSとかを心底使いこなせるほど覚えたのに、でもテーブルレイアウトのがいい、って言う人はじめて見た。

>>719
はちゃめちゃ過ぎる

かじった程度でやってたんじゃね？
CSSハック駆使してその程度のデザインが出来ないっておかしい
amazonがまさにやりたいデザインを実践してるように見えるし

>>723
すいません、
どこか教えてもらえませんか？

「ファイルを直接書き換えたい」ってのが既におかしいという話。

>>719
解決法そのいち：（メモリ喰うけど簡単だよ！）
配列に一回読み込んでから好きに書き換え、同じファイルに書き出す

解決法そのに：（メモリ喰わないけどちょっと面倒だよ！）
INとOUT、二つのファイルハンドルを作り、INで一行読んで好きに書き換え、OUTに書き出す
全部終わったら元ファイルを削除し、新ファイルを元ファイルと同じ名前にリネーム

どこがと言われてもなぁ。

>>719
> open( FILE, ">>./dat/img_data.dat");
追加書き込みで open してるのに
> while(<FILE>){
読もうとしてる。

しかも出力してるのはファイルじゃなくて
> print;
標準出力

そりゃうまく動かない。
というかこれが通るperlって凄いな。ある意味。

>>726
フォームから受け取ってるんだからそれは出来んでしょ

>>725
ここを直しても動かないけど、明らかにおかしいところ。

そのいち：
open( FILE, ">>./dat/img_data.dat");　は、追記オープンでしょ。

そのに：
print;　は標準出力でしょ。少なくとも print FILE $_; にしないとFILEの意味がない！

と書いてたら>>727に先を越された。

>>728
意味が分からない。

>>724
なんで amazon？ テーブルレイアウトバリバリじゃね？

レイアウトはリキッドデザインのCSSだよ。

ｺﾞﾒ、思いっきり記憶違いだったｗ

CSSとかスレ違いどころか板違いなんだから、あまりひっぱりすぎちゃダメだぞ☆

とW3C信者の俺が言ってみる

商品紹介のとこはリキッドデザインでCSSでfloat指定してるな。
この部分のことかね？

>>725
File::Inplace 使っとけ。

話がずれてるので、そろそろ終わりにしようや

・name.txtの中には「名前<>年齢<>性別<>電話番号<>住所」
　という情報が入っている。
・これを「住所」でソートして結果を出力（都道府県別という程度のソート）。
・その際、ブラウザにはフォームで選択した項目の情報だけを吐き出す。

ということをやりたいんですが、

1.openしてwhileで1行ずつ配列（@temp）に入れて処理。
　1-1.フォームで選択されていないものを@tempからspliceして除去。
　1-2.全ての都道府県にあらかじめ番号を付けておき、
　　　$temp[4]に当たる値とマッチングさせて、unshiftで@tempの頭にその番号を付ける。
　1-3.@newdataに@tempをpushで追加していく。
2.@newdataをソートして出力。

という方法しか思いつきませんでした。
でも、これだと不要な項目をループ処理の中で1回1回チェックしていて
ものすごく無駄なことをしている感じがします。
ファイルを開く前に必要な項目をチェックしておいて、
ファイルを開くときにはそれだけを取り出して処理する、
ということはできないでしょうか？

「自分で決めた順番でソートする」でググってそこをブックマークしとけ
あと>>681とそれに対するレス見て

>>738
ありがとうございます。
それにしても「自分で決めた順番でソートする」という
ピンポイントな文章で結果が出るとは・・・。
しっかりブックマークして読んできます。

1： 自分はこういう事がしたい。
cvs？といいますか、特定の文字で区切られた(12個)ファイルを読み込んで
二次元配列に入れて、処理をしたい。
2： それでこんな風にやってみたが･･･
for文(i++)で行を読み込んでから、それをさらにfor文(j++)で区切りずつに
わけ、その都度＄list[$i][$j]に入れていくようにしました。
3： こんなエラーが出て上手く行かなかった。
12行目に来たところで突然ちゃんと配列に入らなくなってしまいました・・・。
読み込むファイルに原因があるのかと思い、1行から20行まで同じ内容のファイルを作ったのですが
同じように読み込めませんでした・・・。どのようなことが原因と考えられるでしょうか・・・？

>>739
Perlメモには多くの人がお世話になっているはず。
そのページの他の項目も非常に為になりますよ。

>>740
どんなエラーですか・・・

>>740
どっかでindex付け間違いと予想。
というか説明わかりにくすぎなので、ソース晒してください。

>>741
これはとても勉強になりそうです。
逆引きなのが助かります。

ところで、>>738にて指摘してもらった箇所を参考にしてみたんですが
>>737に即して書き直すと

$i = 0;
undef(%jusho);
foreach $name ('北海道', '東京', '愛知', '', '大阪', '福岡') {
$jusho{$name} = $i++;
}
@data = map {$_->[0]}
sort {$jusho{$a->[5]} <=> $jusho{$b->[5]}}
map {[$_, split /<>/]} @data;

というふうになるかと思うんですが、「住所」の項には都道府県以下の内容も含まれているので、
この方法で対処しようとすると「住所」の項とは別に「都道府県」の項を設けるか、
住所を「都道府県」と「それ以下」とに分けなければダメですよね？
これはこれで大変便利で、参考になりましたが、
今の記述内容のファイルでは、やはり>>737の方法しかないんでしょうか？

$&を使ってマッチした部分を表示しようと思ったら、
マッチする前の部分も表示されました。

一応$& $'と書くことで、自分のやりたいことはできてるんですが、
なぜこうなるのか気になります。
何か特別な理由があるんでしょうか？

>>740
別に20行目とか多次元配列で何か起こるってことはないと思う。
どうみても処理のせいです。
同じように多次元配列(ハッシュ) にいれるモジュール作ったけど、そんなことは起きなかったし。
データが shiftjis で、その特定のマーカーと知らないうちにかぶってるとか。

>>744
だからさ、そのような挙動をする最低限のソースを載せようよ。
みんなそんなエスパーできないって。

>>743
応用しようぜｗ

@data = map {$_->[0]}
sort {$jusho{$a->[1]} <=> $jusho{$b->[1]}}
map { my @tmp = split(/<>/); $tmp[5] =~ /^(.*?)(?:県|都|府|道)/; [ $_, $1] } @data;

まあニュアンスね。試してないけど。

直そう思ってたのに忘れてたｗ

sort {$jusho{$a->[1]} <=> $jusho{$b->[1]}}
↓
sort {$jusho{$a->[1]} cmp $jusho{$b->[1]}}

>>747-748
>sort {$jusho{$a->[1]} cmp $jusho{$b->[1]}}
これは「名前」でソートするってことですか？

>$tmp[5] =~ /^(.*?)(?:県|都|府|道)/; [ $_, $1]
この部分が分かりません・・・。
簡単にで良いので解説を・・・。

ただの正規表現ですがな。
()の中身を取って$1に入れときたいのです。

>>747
とりあえず「京都府」のときに困りそうなコードだと指摘しておこうw

京都は意地汚い奴が多いから捨ててもいい。

>>750
解説ありがとうございます。

とすると、
>>747の処理をして一旦「都道府県」だけを取り出して>>743の処理をする
という解釈で良いんでしょうか？
それとも>>743のコードの6行目以下を>>747のニュアンスのように書き換える
ということなんでしょうか？

京都府に関しては岸部四郎に免じてお許しを。

東京は困らないんですか？

困らないよ。

>>753については後者ですね・・・くだらないことを聞いてすみません。

もしSJISだったらいくらなんでもエスケープくらいしてねｗ

流れはutf8なんでしょ？

utf8 は便利だよね。

既存コードがeuc-jpで、HTMLとして送り出すときはiso-2022-jpにしてあるからなぁ。。。

なんでわざわざjis ｗ

昔は（ってもう10年以上前か）、ネット上を流すにはJIS、つまり7bitで、という話があったのよ。
HTTP上の問題は今になって考えればなかっただろうが。
UAでの解釈問題はあるかもな。

今の出力コードでおすすめは何？
c-HTMLではSJIS onlyなi-modeも拡張されたの？

メールは7bitだけど、HTTPで7bitなんて聞いた事無いなぁ

>>746
すみません、こんな感じです。

$euc_regex = "(?:$ascii|$two_bytes|$three_bytes)*?";
#検索
while (chomp ($_ = <IN>)) {
　if (/<DOCID>(.+)<\/DOCID>/) {
　　$docid = $1;
　}
　if (/<TITL>(.+)<\/TITL>/) {
　　$title = $1;
　}
　if (/<AUTHOR>(.+)<\/AUTHOR>/) {
　　$author = $1;
　}

　if ($form{'tosho1'} eq "all") {
　　if (/^$euc_regex($key1)/) {
　　　$found++;
　　　print "ID=$docid TITLE=$title AUTHOR=$author<BR>\n";
　　　print "$& <BR>\n<BR>\n";
　　}
　}
}

挙動はたとえば石で検索した場合、
………石
のように表示されます。

質問は「なぜ$&を使ったのにマッチした部分以前も表示されてしまうか」です。

最低限がどれくらいかわからなかったんですが、
もっとソースの大部分を書いたほうがいいでしょうか？

なるほ(´･ω･｀)
メールも7bitだけだしなー。

携帯のブラウザのプログラマはほんと何考えて作ってんだと思うよ。

contentのencode見ずに、mailに変換して配信するgatewayでもいたんですかね。

>>764
$euc_regex = "(?:$ascii|$two_bytes|$three_bytes)*?";

ちょｗ おまｗｗｗ

>>765
> $euc_regex = "(?:$ascii|$two_bytes|$three_bytes)*?";
> if (/^$euc_regex($key1)/) {

え、当たり前では。
「石」で検索かけるってことは、$key1 = "石"なんだよね。多分。

このとき正規表現は
/^(?:$ascii|$two_bytes|$three_bytes)*?(石)/
なんだから、$&ではマッチした部分全部が取れる。
"石"だけ取りたいなら $& じゃなくて $1 でしょう。

やっぱり分かりません・・・。

$i = 0;
undef(%jusho);
foreach $name ('北海道', '東京', '愛知', '', '大阪', '福岡') {
$jusho{$name} = $i++;
}
@data = map {$_->[0]}
sort {$jusho{$a->[1]} cmp $jusho{$b->[1]}}
map { my @tmp = split(/<>/); $tmp[4] =~ /^(.*?)(?:県|都|府|道)/; [ $_, $1] } @data;

ラスト3行については下から処理してるんですよね？
なぜ、正規表現で取り出した()の中身を$1に入れて
sort {$jusho{$a->[1]} cmp $jusho{$b->[1]}}となるのか分かりません。

岸部四郎の件で気分を害されたならお詫びします。

てゆうかうちの解釈が間違ってるのかもしらん。
解読してみる。

$jusho{ $a->[1] }
・↑の $a の部分は [ $_, $1 ] である、
・つまり $a は [ 元のデータ , 県名 ]
・なので、 $a->[1] は 県名
・$jusho{ $a->[1] } は
$jusho{ 県名 } ということ。

あってる？

>>771
解説ありがとうございます。ラスト3行の意味がやっと理解できました。
そうすると、ハッシュとして割り当てる名前にも都道府県を付ける必要があるわけですね。

$i = 0;
undef(%jusho);
foreach $name ('北海道', '東京都', '愛知県' , '大阪府', '福岡県') {
$jusho{$name} = $i++;
}
@data = map {$_->[0]}
sort {$jusho{$a->[1]} cmp $jusho{$b->[1]}}
map { my @tmp = split(/<>/); $tmp[4] =~ /^(.*?)(?:県|都|府|道)/; [ $_, $1] } @data;

としてみましたが、やはりうまくいきません…。
ちなみに読み込む@dataに入っている情報は
岸部４郎<>57<>男<>077-XXXX-XXXX<>京都府京都市伏見区・・・<>
のような形態です。

>>762
公開資料上で全機種対応なのはSJIS。
だが実際は、ほとんどの機種は四大エンコードに対応している。
>>766
糞仕様を決めたのはドコモ。

>>772
こらっ！
「京都府京都市伏見区」って俺の住所と同じじゃんか。

>>772
鵜呑みじゃなくて、ちょっと考えて流用しようよ。
>>747 のコードが間違ってるんだってば。
本人ニュアンスだけで試してないって書いてあるし。
それと >>751 も忘れずに。

>>772
>>743 に ('北海道', '東京', '愛知', '', '大阪', '福岡') ってあったけど
今度 ('北海道', '東京都', '愛知県' , '大阪府', '福岡県') ってしてるのに、コード変えてないから・・
その場合 /^(.*?(?:県|都|府|道))/ こうねｗ
まあ京都府問題あるけどね。

それと、cmp じゃなくて <=> のままでよかったｗ

ちなみに、京都だけ "京都府" じゃなくて "京都" ってやればおｋ

('北海道', '東京都', '愛知県', '京都', '大阪府', '福岡県')

うわー頭の悪い解決法ｗ