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

**nobodyさん** · 2006/05/31(水) 04:32:28

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

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

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

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

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

**nobodyさん** · 2006/05/31(水) 04:33:02

関連スレ
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/

**nobodyさん** · 2006/05/31(水) 04:35:21

［過去ログ] 1 of 4

Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/perl/dat/957208980.dat
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/perl/dat/971817087.dat
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part4　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

**nobodyさん** · 2006/05/31(水) 04:36:16

**nobodyさん** · 2006/05/31(水) 04:37:00

［過去ログ] 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/

**nobodyさん** · 2006/05/31(水) 04:37:37

**nobodyさん** · 2006/05/31(水) 04:38:17

**nobodyさん** · NG

ム板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/

**nobodyさん** · NG

ム板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

**nobodyさん** · 2006/05/31(水) 06:57:08

>>1-9
乙

**前スレ992** · 2006/05/31(水) 07:10:12

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

**nobodyさん** · 2006/05/31(水) 08:08:01

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

**nobodyさん** · 2006/05/31(水) 10:34:09

とりあえずおっぱいうｐ

**nobodyさん** · 2006/05/31(水) 12:55:08

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

**nobodyさん** · 2006/05/31(水) 13:59:38

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

**nobodyさん** · 2006/05/31(水) 14:06:05

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

**nobodyさん** · 2006/05/31(水) 17:57:14

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

**nobodyさん** · 2006/05/31(水) 18:06:09

split

**nobodyさん** · 2006/05/31(水) 18:07:54

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

**nobodyさん** · 2006/05/31(水) 18:47:06

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

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

**nobodyさん** · 2006/05/31(水) 18:53:43

つぐぐる

**nobodyさん** · 2006/05/31(水) 18:57:04

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

**nobodyさん** · 2006/05/31(水) 19:08:04

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を返す手段があれば
ご教示いただきたく思っております。
宜しくお願いいたします。

**nobodyさん** · 2006/05/31(水) 19:29:32

>>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/

**nobodyさん** · 2006/05/31(水) 19:45:57

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

**nobodyさん** · 2006/05/31(水) 20:06:46

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

**nobodyさん** · 2006/05/31(水) 20:18:04

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

**nobodyさん** · 2006/05/31(水) 20:25:57

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

**nobodyさん** · 2006/05/31(水) 20:29:54

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

**nobodyさん** · 2006/05/31(水) 20:31:16

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

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

**nobodyさん** · 2006/05/31(水) 20:31:30

すみません

**nobodyさん** · 2006/05/31(水) 21:14:12

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

**nobodyさん** · NG

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

**nobodyさん** · 2006/05/31(水) 21:29:39

>>33
ちょーだい

**nobodyさん** · 2006/05/31(水) 21:58:58

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

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

**nobodyさん** · NG

>>35
それも持ってるわ

**nobodyさん** · 2006/05/31(水) 23:33:41

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

**nobodyさん** · 2006/05/31(水) 23:36:50

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

**nobodyさん** · 2006/05/31(水) 23:39:11

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

**nobodyさん** · 2006/06/01(木) 00:00:48

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

**nobodyさん** · 2006/06/01(木) 00:14:11

わろすｗｗｗ

17 · 2006/06/01(木) 11:55:18

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

**nobodyさん** · 2006/06/01(木) 12:09:27

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

**nobodyさん** · 2006/06/01(木) 14:17:44

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

**nobodyさん** · 2006/06/01(木) 18:57:05

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

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

以上

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

**nobodyさん** · 2006/06/01(木) 19:05:28

>>45
あんた優しすぎｗ

**nobodyさん** · 2006/06/01(木) 19:24:16

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

**nobodyさん** · NG

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

**nobodyさん** · 2006/06/01(木) 19:41:05

.htmlで

cgiからの書込み

って出来るのを最近知ったんですがどういう風に書くんですか？
ネットで探してもこのスクリプトが載ってないのだが・・・。

**nobodyさん** · 2006/06/01(木) 19:45:57

SSI exec でぐぐれ？

**nobodyさん** · 2006/06/01(木) 19:48:35

SSIは関係無い

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

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

**nobodyさん** · NG

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

**nobodyさん** · 2006/06/01(木) 19:56:54

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

**nobodyさん** · 2006/06/01(木) 19:57:40

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

**nobodyさん** · 2006/06/01(木) 20:09:17

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

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

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

**nobodyさん** · 2006/06/01(木) 20:51:11

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

**nobodyさん** · 2006/06/01(木) 20:55:56

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

**nobodyさん** · 2006/06/01(木) 20:57:12

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

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

**nobodyさん** · 2006/06/01(木) 21:03:32

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

**nobodyさん** · 2006/06/01(木) 21:04:54

>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です

**nobodyさん** · NG

放置すればいいのに

**nobodyさん** · 2006/06/01(木) 21:09:47

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

**nobodyさん** · 2006/06/01(木) 21:10:01

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

**nobodyさん** · 2006/06/01(木) 21:10:34

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

**nobodyさん** · NG

うわぁ…

**nobodyさん** · 2006/06/01(木) 21:42:09

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

**nobodyさん** · 2006/06/01(木) 21:50:08

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

**nobodyさん** · 2006/06/02(金) 00:14:24

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

**nobodyさん** · NG

print a..z;

とか

**nobodyさん** · 2006/06/02(金) 00:43:27

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

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

**nobodyさん** · 2006/06/02(金) 00:45:57

日本語でおｋ

**nobodyさん** · 2006/06/02(金) 01:30:15

ここでESPを発揮！

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

**nobodyさん** · 2006/06/02(金) 01:31:18

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

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

**nobodyさん** · 2006/06/02(金) 01:43:41

なかなかやるな！

**nobodyさん** · 2006/06/02(金) 02:16:24

>>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;

どこがミスってますか？

**nobodyさん** · NG

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

**nobodyさん** · 2006/06/02(金) 02:37:17

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

**nobodyさん** · 2006/06/02(金) 03:12:56

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

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

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

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

**nobodyさん** · 2006/06/02(金) 03:29:31

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

**nobodyさん** · 2006/06/02(金) 03:49:36

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

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

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

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

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

79 · 2006/06/02(金) 04:02:27

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

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

**nobodyさん** · 2006/06/02(金) 04:43:31

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

**nobodyさん** · 2006/06/02(金) 04:59:21

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

**nobodyさん** · 2006/06/02(金) 05:32:21

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

**nobodyさん** · 2006/06/02(金) 09:47:40

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

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

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

**nobodyさん** · 2006/06/02(金) 09:55:34

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

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

**nobodyさん** · 2006/06/02(金) 10:15:26

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

**nobodyさん** · 2006/06/02(金) 10:54:24

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

**nobodyさん** · 2006/06/02(金) 10:55:50

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

**nobodyさん** · 2006/06/02(金) 10:59:55

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

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

**nobodyさん** · 2006/06/02(金) 11:22:34

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

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

**nobodyさん** · 2006/06/02(金) 11:25:06

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

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

**nobodyさん** · 2006/06/02(金) 11:35:03

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

**nobodyさん** · 2006/06/02(金) 13:54:21

この優しさが怖い

**nobodyさん** · 2006/06/02(金) 14:26:56

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

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

**nobodyさん** · 2006/06/02(金) 15:05:28

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

**nobodyさん** · 2006/06/02(金) 15:25:35

>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～
で同じエラー

俺にゃ難しい宿題だｗ

**nobodyさん** · 2006/06/02(金) 16:09:13

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

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

**nobodyさん** · 2006/06/02(金) 16:18:21

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

**nobodyさん** · NG

Perl臭ぇーッ!!

**nobodyさん** · 2006/06/02(金) 17:16:07

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

**nobodyさん** · 2006/06/02(金) 17:22:15

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

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

**nobodyさん** · 2006/06/02(金) 18:06:46

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

**nobodyさん** · 2006/06/02(金) 20:13:53

やったー 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);

**nobodyさん** · 2006/06/02(金) 20:16:51

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

**nobodyさん** · 2006/06/02(金) 20:22:18

日本語でおｋ

**nobodyさん** · 2006/06/02(金) 20:22:33

日本語でおｋ

**nobodyさん** · 2006/06/02(金) 20:23:28

久々にｹｺｰﾝしたｗ

**nobodyさん** · 2006/06/02(金) 20:24:21

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

**nobodyさん** · 2006/06/02(金) 20:25:29

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

**nobodyさん** · 2006/06/02(金) 20:35:06

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

**nobodyさん** · 2006/06/02(金) 20:37:13

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

**nobodyさん** · 2006/06/02(金) 20:43:35

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

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

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

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

**nobodyさん** · NG

エスパーすげー

**nobodyさん** · 2006/06/02(金) 21:01:00

エスパースレいる？

**nobodyさん** · 2006/06/02(金) 21:46:32

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

**nobodyさん** · 2006/06/02(金) 22:15:15

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

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

**nobodyさん** · 2006/06/02(金) 22:23:29

もうやめたｗ

**nobodyさん** · 2006/06/02(金) 22:38:40

ｗｗｗｗｗ

**nobodyさん** · 2006/06/02(金) 22:45:09

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; すると使えない。

**nobodyさん** · 2006/06/03(土) 00:18:22

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

**nobodyさん** · 2006/06/03(土) 02:04:02

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

**nobodyさん** · 2006/06/03(土) 02:21:53

>>122
are u mr.kent？

**nobodyさん** · 2006/06/03(土) 18:24:46

ちょっと質問。

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

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

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

**nobodyさん** · 2006/06/03(土) 18:54:27

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

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

**nobodyさん** · 2006/06/03(土) 18:56:58

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";'

**nobodyさん** · 2006/06/03(土) 20:34:18

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

**nobodyさん** · NG

$"は遅いよ

**124** · 2006/06/03(土) 22:08:37

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

**nobodyさん** · 2006/06/03(土) 23:16:29

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

**nobodyさん** · 2006/06/04(日) 00:07:15

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

**nobodyさん** · 2006/06/04(日) 00:46:14

our は C で言う static ？

**nobodyさん** · 2006/06/04(日) 01:08:44

ちゃうちゃう。

**nobodyさん** · 2006/06/04(日) 01:18:27

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

**nobodyさん** · 2006/06/04(日) 09:23:10

Javaのstaticに近くない？

**nobodyさん** · 2006/06/04(日) 10:40:42

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し始めて、サーバが応答しなくなることがあるみたい
ですので、試すときは注意してください。

**nobodyさん** · 2006/06/04(日) 11:49:27

テーブルなら、

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

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

**nobodyさん** · 2006/06/04(日) 12:18:09

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

Windows2000 + Perl 5.8.4 で試した。

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

**nobodyさん** · 2006/06/04(日) 12:24:48

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

**nobodyさん** · 2006/06/04(日) 12:46:25

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

**nobodyさん** · 2006/06/04(日) 12:59:04

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

**nobodyさん** · 2006/06/04(日) 13:13:35

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

**nobodyさん** · 2006/06/04(日) 14:07:00

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

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

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

**nobodyさん** · 2006/06/04(日) 15:43:10

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;
}

**nobodyさん** · 2006/06/04(日) 17:00:56

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

**nobodyさん** · 2006/06/04(日) 17:05:04

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;
}

**nobodyさん** · 2006/06/04(日) 17:21:35

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

**nobodyさん** · 2006/06/04(日) 17:24:55

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

**nobodyさん** · 2006/06/04(日) 17:50:35

>>146
これすげぇ

**nobodyさん** · 2006/06/04(日) 18:20:33

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

**nobodyさん** · 2006/06/04(日) 18:23:50

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

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

**nobodyさん** · 2006/06/04(日) 18:49:36

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

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

↓

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

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

**nobodyさん** · 2006/06/04(日) 19:02:53

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

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

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

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

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

書き直した奴は、

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

という処理にしてみた。

**nobodyさん** · 2006/06/04(日) 19:43:37

すいません、質問です

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

**nobodyさん** · 2006/06/04(日) 20:20:57

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

**nobodyさん** · NG

勉強になるなぁ

**nobodyさん** · 2006/06/04(日) 21:24:40

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

**nobodyさん** · 2006/06/04(日) 22:05:46

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

**154** · 2006/06/04(日) 22:29:14

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

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

**nobodyさん** · 2006/06/05(月) 04:51:59

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

my $string2 = lc $string;

が 5.7 秒で

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

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

**nobodyさん** · 2006/06/05(月) 06:47:28

>>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)

**nobodyさん** · 2006/06/05(月) 07:48:02

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

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

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

**nobodyさん** · 2006/06/05(月) 11:03:38

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

**nobodyさん** · 2006/06/05(月) 11:07:12

for

**nobodyさん** · 2006/06/05(月) 11:23:55

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

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

**nobodyさん** · 2006/06/05(月) 12:24:24

>>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)

**nobodyさん** · 2006/06/05(月) 12:35:00

> 何回やっても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)

**nobodyさん** · NG

もう誤差の範囲だろ…

**nobodyさん** · 2006/06/05(月) 18:57:41

>>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/;},
});

**nobodyさん** · 2006/06/05(月) 19:14:18

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

**nobodyさん** · NG

日本語でもう一度

**nobodyさん** · 2006/06/05(月) 19:28:24

>>170
split

**nobodyさん** · 2006/06/05(月) 19:39:21

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

**nobodyさん** · 2006/06/05(月) 19:52:22

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

**nobodyさん** · 2006/06/05(月) 21:46:17

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

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

**nobodyさん** · 2006/06/06(火) 01:40:03

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

**nobodyさん** · 2006/06/06(火) 01:53:24

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

**nobodyさん** · 2006/06/06(火) 02:06:41

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

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

**nobodyさん** · 2006/06/06(火) 02:11:03

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

**nobodyさん** · 2006/06/06(火) 02:18:35

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

**nobodyさん** · 2006/06/06(火) 02:18:54

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

**nobodyさん** · 2006/06/06(火) 02:25:49

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

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

**nobodyさん** · 2006/06/06(火) 03:09:49

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

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

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

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

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

**nobodyさん** · 2006/06/06(火) 03:13:16

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

**nobodyさん** · 2006/06/06(火) 03:16:48

>>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)

**nobodyさん** · 2006/06/06(火) 06:19:56

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

**nobodyさん** · 2006/06/06(火) 10:15:26

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

**nobodyさん** · 2006/06/06(火) 11:17:16

どこのはなし？

**nobodyさん** · 2006/06/06(火) 11:22:27

>>178あたり。

**nobodyさん** · 2006/06/06(火) 14:59:19

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

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

6月1日

6月2日

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

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

**190（前半）** · 2006/06/06(火) 15:03:27

# 保存するファイル名
$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";
}

**190（後半）** · 2006/06/06(火) 15:04:16

# 該当する月のファイルがなければ作成
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);

**nobodyさん** · 2006/06/06(火) 15:04:28

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

**190** · 2006/06/06(火) 15:20:53

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

**nobodyさん** · 2006/06/06(火) 17:58:30

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

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

**nobodyさん** · 2006/06/06(火) 18:26:58

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

**nobodyさん** · 2006/06/06(火) 18:31:07

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

**nobodyさん** · 2006/06/06(火) 18:34:39

配列（コンマ区切り）の中身を一定の数ごとに折り返して再び配列（コンマ区切り）に
入れ直したいんですが良い方法が浮かびません。
うまく表現できないので例を挙げると、
「@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];

**nobodyさん** · 2006/06/06(火) 18:37:06

法則性を見つけろ

**nobodyさん** · 2006/06/06(火) 18:45:28

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