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

[0001 nobodyさん 2006/05/31(水) 04:32:28 ID:???]

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

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

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

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

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

[0621 nobodyさん 2006/06/19(月) 15:36:41 ID:???]

>>617
漏れも先日までそう思ってたんだがな、実際にやって見れ。
安全措置が施されていて、use re 'eval';しないとデフォルトでは動かないんだこれが。

まあ、汚染された正規表現を実行するなんて真似は、やっぱり止めておいたほうが良いのは確かだと思うけれど。

>>619
とりあえず公式にも非推奨。
ttp://www.kt.rim.or.jp/%7Ekbk/perl-5.8/perlfaq4.html#what_s_wrong_with_always_quoting__vars
これをわきまえた上で、好みをとりたいと言うのであれば何も言うまい。

[0622 nobodyさん NG NG]

ヒント： use CGI::Carp qw(fatalsToBrowser);

[0623 616=619 2006/06/19(月) 15:49:01 ID:???]

大変勉強になります。しかも即レスだし。

>>621
なななるほど。そう言われてみれば、そうだ。
とりあえずダブルクォートで括ってみた。
中身は何でも良かった。今は反省している。

>>622
標準装備にそんなのあったんだ。
で、実際のところdieで>>622のモジュール使うのと
自前でエラー処理用意して飛ばすのと、
どっちが一般的なんだすか？
いや、それこそ好みの問題かもしれないけど。

[0624 nobodyさん 2006/06/19(月) 15:52:21 ID:???]

恐ろしい子っ！！

[0625 nobodyさん 2006/06/19(月) 15:54:57 ID:???]

>>623
CGI.pm を使う書き方をしてるのであれば、>>622 で良いんじゃないかな。
die のメッセージをHTMLで吐いてくれるし。

ただし、エラーがあってdieしてもHTTP的に50x系のエラーにならないのと、
デバッグが終わったら >>622 は外さないといけない事に注意。
エラーメッセージを見せるのは、セキュリティー的によろしくない。

[0626 616 2006/06/19(月) 16:05:52 ID:???]

>>625
アドバイス感謝です！
>エラーメッセージを見せるのは、セキュリティー的によろしくない。
言われてみればグレート当たり前のことだよね。でも、この視点完全に欠落してた…。
フォームの入力値のエラーなんかと同様に、エラーだったら何でもかんでも
ブラウザで教えてあげるのが、イケてると思ってた…。

ここは本当に恐ろしい知識の泉でつね。
オレ、今、かなり賢くなってる。

[0627 nobodyさん 2006/06/19(月) 16:06:51 ID:???]

要するに最初からエラー処理用意しとけと。

[0628 nobodyさん 2006/06/19(月) 16:12:56 ID:???]

$SIG{__DIE__} とかを書き換えて $! 表示して exit

[0629 nobodyさん 2006/06/19(月) 16:21:34 ID:???]

>>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の第二版(青本の分冊になっていない方)に書かれていたと思うんだけど、本が見つからなかったので
紹介できん。スマン。

[0630 616 2006/06/19(月) 16:53:42 ID:???]

open(FILE, $file);
は通るけど、
open(FILE, +< $file);
はダメなんだね。入出力の記号を付けるときはダブルクォート必須？
なら、
open(FILE, $file);
は
open(FILE, "< $file");
と同じだから、やっぱ
open(FILE, "$file");
と書くのが正しいんじゃね？とか思ってしまうんです。
それとも記号の付け方がおかしいのか？？
そこんとこもう少しヒントを！

[0631 nobodyさん 2006/06/19(月) 16:56:54 ID:???]

>>629
Programming Perl(第二版：青らくだ本)の日本語版8ページから引用

1.2 自然言語と人工言語
ハッシュ：ハッシュ(hash)は、順序付けられていないスカラーの集合で、
各スカラーに関連付けれれた文字列によってアクセスされる。
そのためハッシュは「連想配列」(associative array)と呼ばれることもある。
しかし、これは怠惰なタイピストにとってタイプするのが面倒だし、
頻繁に使われるので、私たちはもっと短くて、ぴりっとした(snappy)呼び名を
付けることにしたのだ。

ということらしい。

[0632 nobodyさん 2006/06/19(月) 17:15:39 ID:5NRkvew2]

メールフォームにＢＢＱを組み込んでいるのですが
昨日みたいに２ちゃんが落ちるとＣＧＩが止まってしまいますよね？
落ちてる時の回避方法ありますでしょうか。。。

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

[0633 nobodyさん 2006/06/19(月) 17:17:11 ID:???]

>>630
これじゃ、質問の答えにはなってないと思うが
> open(FILE, +< $file);
perlfunc嫁。modeは別の引数に出来る。
open(FILE, '+<', $file);

[0634 nobodyさん 2006/06/19(月) 17:19:08 ID:???]

>>632
試してないがNet::DNS使えばタイムアウトの設定が出来るんじゃないか？
ttp://search.cpan.org/~olaf/Net-DNS-0.57/lib/Net/DNS.pm

[0635 632 2006/06/19(月) 17:28:09 ID:???]

>>633
ありがとうございます。試してみます

[0636 nobodyさん NG NG]

ネットワーク通信系のモジュールのタイムアウト実装ってかなりいい加減だよ
あんま信用しない方がいい
実際にやってみれば分かると思うけど

[0637 616 2006/06/19(月) 17:37:51 ID:???]

>>633
別の引数にしたら…？？
すません。よく分かりません。
open(FILE, "+< $file");
は正しくなくて
open(FILE, '+<', $file);
が正しい書き方ってこと？？

[0638 nobodyさん 2006/06/19(月) 17:38:59 ID:???]

>>633
ちょｗ 知らなかったｗｗｗ

[0639 nobodyさん NG NG]

>>636
誰
なんで俺のBeが
bbs.cgiのバグですか

[0640 nobodyさん 2006/06/19(月) 17:48:45 ID:???]

>>637
>open(FILE, "+< $file");
いや、これでも正しいよ。
openの引数をいくつにするかってだけだから。
ただ、"$file" は無駄やってるよってこと。理由は >>621 のリンク参照。

[0641 629 2006/06/19(月) 17:50:36 ID:???]

>>631

おおthx。
文面が記憶と違うけど載ってるのは
まちがってなかったか。

あ、俺の記憶が怪しかったってことね。

[0642 616 2006/06/19(月) 18:06:04 ID:???]

>>640
なぁんとなく解ってきたようなきてないような。

$hoge = '質問スレ';
print "初心者$hoge";
と書くのは正しいけど、
$hoge = '初心者質問スレ';
print "$hoge";
と書くのは厳密には正しくない、みたいなことかな。

上の例で言えば、どうしてもダブルクォートで揃えたいなら
open(FILE, "$file");
とは書かず
open(FILE, "< $file");
と書いた方が文法的（？）にはオケってことか。

ちょっとスッキリした。サンキューです！

[0643 nobodyさん 2006/06/19(月) 18:18:13 ID:???]

>>642
いや、正しい正しくないの話じゃなくて。例えば、0から9まで処理するときに
for my $i (0..9) { }
と書いても、
{ my $i = 0;
while ($i <= 9) { }
continue { $i++ }
}
と書いても文法的には正しいし、同じように動くけれど、
前者のほうが無駄が無いし、間違い起こしにくいでしょ？みたいな話かと。

[0644 nobodyさん 2006/06/19(月) 18:24:02 ID:???]

>>642
> print "初心者$hoge";

これも

print '初心者', $hoge;
こうか
print '初心者' . $hoge;
こう書かない？

[0645 616 2006/06/19(月) 18:43:23 ID:???]

>>643
そっちの解釈か！
ロクに入門書も読まず他人様の書いたコードを切ったり貼ったりしながら
適当に「学んだつもり」になってた人種にとっては耳の痛いお話ですわ。
システム面でのエラーが起こりにくい無駄のない書き方に拘泥して
稚拙なヒューマンエラー続発とか…自分には有り得そうで怖いなぁ。
とは言っても、そんなんでは進歩はないので心掛けて書き直すかな！

>>644
例が悪かったかもかも。
print "<SPAN STYLE=\"color:$hoge\">２ちゃんねる</SPAN>";
みたいなのを想定で。

[0646 nobodyさん 2006/06/19(月) 18:46:17 ID:???]

ラクダ本の24章Perlの常識を読むといいよ。

[0647 nobodyさん 2006/06/19(月) 18:53:57 ID:???]

>>644
>print '初心者' . $hoge;
これは無いなぁ。連結コストかかるから

[0648 616 2006/06/19(月) 18:54:13 ID:???]

>>646
刮目します。

[0649 nobodyさん 2006/06/19(月) 19:10:40 ID:???]

>>642
んー。他の人も言ってるけどちと違う。
別にどっちで書いても文法的には正しいし動作もする。

"$file" みたいにダブルクォートで括ると(無名の)「文字列の生成」が起こる。
内容は$fileと全く同じ。

だったら新しく生成しなくても良いんじゃないの？って話。
同じもの２個作ってどうするよ。無駄だよね。
しかも、 open(FH, "$file"); じゃ、生成した所ですぐに使い捨て。
だったら open(FH, $file); の方が無駄な変数作らなくて良い。
まぁそんだけだけど。

[0650 616 2006/06/19(月) 19:41:40 ID:???]

>>649
>"$file" みたいにダブルクォートで括ると(無名の)「文字列の生成」が起こる。
！！
先生『週刊そーなんだ』にも掲載すべきだと思います。
懇切丁寧な説明により、ようやく合点がいきました。

しかし、ラクダ本読むのには時間もだけど体力要るな…。

[0651 nobodyさん 2006/06/19(月) 22:55:15 ID:Fr5nT8/W]

久しぶりにperlCGIで遊んでいます。
ちょっと知り合いのサイトを作ってあげよかなと思いまして、
いろいろ遊びたいのでとりあえず全部のページをCGIにしようと今メモ帳を眺めてるのですが。

プログラム本体にHTMLを書いていくとなんか物凄く長くなってしまいますよね。
でも10ページくらいでも1000行くらいは簡単に超えますね。

なんかそのやり方がすきになれないのですが、かといって.txtにhtml本文を書いておいて
読み込み手法も納得いかない。

出力内容を作成するルーチンだけ.plで別にしても結局はイマイチ。

読みやすく拡張しやすくスッキリとした手法をかなり神経質なレベルで考えていますが、
アドバイスもらえたらとおもって投稿しました。

少しコーディングから離れるというか、前段階の話になるので気が向いた方だけで
かまいませんので宜しくお願いします。

[0652 nobodyさん 2006/06/19(月) 23:06:33 ID:???]

何を言ってるのか意味が分からないけど
とりあえず HTML::Template でも使っとけ

[0653 nobodyさん 2006/06/19(月) 23:08:51 ID:???]

Template Toolkitを勧めたいところだがCGIじゃ重いかねぇ。
最近Catalystばかりなのでわかんね。

[0654 651 2006/06/19(月) 23:12:39 ID:Fr5nT8/W]

>>652
HTML::Templateは知っていますが、そういうことではないんです。
うまく説明できませんのでスルーしてもらってもm(__)mごめんなさい。


例えば普通にhtmlファイルのまま全部のページを公開してるとしますよね。
１０ページだろうが１００ページだろうが、拡張していくときに面倒はありませんし、
把握もとても単純なんですよね。

それをCGIにするとイマイチなんです。
スマートじゃなくなるというか。ゴミゴミするというか。
もちろん同じフォーマットの文章だけ違うような場合はいいのですが。

それぞれのページで違いますので。

[0655 nobodyさん NG NG]

なぜ全部のページをCGIにしようと思ったの？

[0656 nobodyさん 2006/06/20(火) 00:18:19 ID:???]

>>653
TTは重すぎてCGIじゃ無理。

[0657 617 2006/06/20(火) 00:38:01 ID:???]

>>621
> 安全措置が施されていて、use re 'eval';しないとデフォルトでは動かないんだこれが。

ウホッ! ありがと。

[0658 nobodyさん 2006/06/20(火) 01:00:18 ID:???]

>>645
他を選択する合理的な理由がない場合、ファイルオープンには常に 3引数の open を使うのが良い習慣だと思います。
正しくは、「どんな場合でも、その必要がなければ 2引数の open を使わない」なんだけれど。

[0659 nobodyさん 2006/06/20(火) 01:21:04 ID:???]

>>654
・共通する部品と各ページに固有の部品をそれぞれ抽出
・各部品をファイルに保存 # この時、プログラムから利用しやすい形で保存しておく
・CGI が叩かれた時に必要な部品を読込み、それらを組み合わせて返す

全リソースが静的なら、こーゆーのは SSI の仕事で CGI でやるメリットはないと思う。
抽出の粒度と保存スタイルさえ適切ならディスクの節約にはなるかもね。

[0660 nobodyさん 2006/06/20(火) 01:29:57 ID:???]

>>651
ヒアドキュメント使えば、表示したいHTML＋５行ぐらいでcgiに出来ますよね？
”拡張性がある”というのをどういう状況を指して言ってるのか分からないですが、・・・

[0661 nobodyさん 2006/06/20(火) 03:32:08 ID:???]

すいませんちょっと質問させていただきます。
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

正直、自分でやってもうまくいかないし、何て検索していいのかも分からず途方に暮れています・・・

よろしくお願いします。

[0662 nobodyさん 2006/06/20(火) 03:59:35 ID:???]

$ENV{'QUERY_STRING'}をいろいろ条件にかければOK
CGI.pmを使ってるならparam('mode')、param('kt')で欲しい値が取れる
ので、それを条件にかければOK

[0663 nobodyさん 2006/06/20(火) 04:48:28 ID:???]

>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;
}
※ ここに貼り付けるにあたってエラー処理とかはばっさり削除してます

[0664 nobodyさん 2006/06/20(火) 07:13:05 ID:???]

なんで全部のページを CGI でやろうと思うんだろ。
テンプレート使うとかブラウザからページ作成する、とかでない限り無駄でしかないんだけどｗ

[0665 nobodyさん 2006/06/20(火) 07:27:32 ID:???]

デザインの統一＆デザイン変更時を考えると管理しやすいと思うが・・・
あと HTML 編集時のミスも極力防げるし。
サーバーの負担以外はプラス面ばかりだとは思う。個人的にはだけどね

[0666 651 2006/06/20(火) 08:03:26 ID:5983Ww81]

>>660
例えば１０ページ分を一つのファイルにまとめると物凄いうざくなりますよね。
HTML自体が長くても所詮は.htmlで保存公開してるならスッキリ感があるんですが、
それをひとつのファイルにまとめると最悪な感じなんです。
html的に最悪ということです。

見渡しにくいコード・ソースというのが嫌いなのです。

逆に外部ファイルが１０個も２０個もあるのもイヤなんです。

というジレンマなんです。

[0667 nobodyさん 2006/06/20(火) 08:27:29 ID:???]

>>665
デザインなんてCSSファイル変えるだけじゃん。
テーブルレイアウトやってるならあれだけどね。

>>666
CGI でやること自体見渡しにくいし、何kbのCGIファイル作る気だよ・・・
テンプレートは嫌だって言うし・・・
もう、あれだ、perl より php でやったらｗ

[0668 nobodyさん 2006/06/20(火) 09:59:21 ID:???]

>>666
普通に１つのページに対して、１個のCGIにすれば？
というかperlはヒア演算子があるから、既にHTMLが出来てるなら、
#!/dir/perl
print <<HTML;
content-type:xxxx

HTML
で、とりあえずすぐにcgiになる。で、なんか動的要素追加したかったら
前の部分にちゃちゃっと書けば、ある程度拡張できるし・・・
というか何を目指してるのかがいまいち分からない・・・

[0669 nobodyさん 2006/06/20(火) 10:21:31 ID:???]

質問：
10ページ分のHTMLを一つのCGIファイルにまとめてたい。
でも、大きくなって見通しも悪いのでどうにかしたい。
複数ファイルは死んでも嫌。

回答：
HTML::Templateは変数にテンプレート入れて動かせるよ。

[0670 nobodyさん 2006/06/20(火) 11:14:51 ID:???]

sub >>669 {
　return >>654
}

これ多分無限ループ

[0671 nobodyさん 2006/06/20(火) 11:57:30 ID:???]

CGI.pmでさえ、ちょっとしたHTMLを吐けるのに

[0672 nobodyさん 2006/06/20(火) 11:57:50 ID:???]

HTMLでいいじゃん

[0673 nobodyさん NG NG]

うちはhtmlにjavascript(cgi)入れて
動的なページっぽく見せてるお＾＾

[0674 nobodyさん 2006/06/20(火) 12:20:28 ID:5Ut+7oeu]

あるPerlプログラムを実行したら
セグメンテーションエラーになってperl.coreというファイルを吐いて死んでしまいます。
perl.coreというファイルは何に使うのでしょうか？

[0675 nobodyさん 2006/06/20(火) 12:26:38 ID:???]

651について考証。

[ケース1]
Perlを熟知しているが無意識に「Perl（CGI） ＞ HTML」というイメージにとらわれている。

[ケース2]
Perlはそこそこできるが、HTML::Templateについて実はよく理解していない。

[ケース3]
Perl習いたてで、Perlを万能低級言語であるかのような錯覚に陥っている。

[ケース4]
HTML、CSS、JavaScriptについて実はよく理解していない。

[ケース5]
そもそも、対象としているHTMLソース自体が汚いから誰がやってもまとまらない。

[0676 nobodyさん NG NG]

普通にコアダンプじゃねーの
アセンブラの知識があれば読めます

[0677 nobodyさん 2006/06/20(火) 12:31:44 ID:???]

[ケース6]
>>675 は、「ケース」「考証」という単語を並べてみたかった。

[0678 nobodyさん 2006/06/20(火) 12:39:34 ID:???]

651はdbで解決だな

[0679 674 2006/06/20(火) 12:49:03 ID:5Ut+7oeu]

Segmentation fault (core dumped)
とでています。
perl -dでデバッグを行ってみたのですが、ある部分でずっとCPUを100%使い切ったまま止まっているように見えます。

このperl.coreはどのように役立てればよいのでしょう？
ググっても参考になる情報が載っていないので‥

[0680 nobodyさん NG NG]

バグとして報告するか
デバッガ使って読んで下さい

[0681 nobodyさん 2006/06/20(火) 14:11:30 ID:T0oahEq/]

whileについて質問。

ファイル（$log）の中身を１行ずつチェックしながら処理する場合、
open ( FH, $log );
と開いたとして、

@array = <FH>;
$limiti = @array;
while ( $limiti > 0 ) {
　処理;
　$limiti --;
}
とするのと
while(<FH>){
　処理;
}
とするのは同じこと？
どっちでもできるなら後者の方が無駄な変数無い分よろしい？

[0682 nobodyさん NG NG]

前者は一気に読み込んでるのでメモリを多く使用する

[0683 nobodyさん 2006/06/20(火) 14:18:25 ID:???]

>>681
明らかに前者は分かりにくい。ありえない。メリットも少ないし。
それでもメモリに展開するなら foreach (@array) {} にでもしなよ。

[0684 681 2006/06/20(火) 14:32:11 ID:???]

>>682>>683
後者の方法最近知ったんだけど、それまでずっと前者の方法でやってた・・・orz.

>明らかに前者は分かりにくい。ありえない。メリットも少ないし。
だよね！だよね！ハッキリ答えてもらえてかなりスッキリ。
しかも代替案まで出してもらって恐縮です。

どうもでした！

[0685 nobodyさん 2006/06/20(火) 14:44:49 ID:???]

コアは食べろ。体にいいぞ。

[0686 651 2006/06/20(火) 18:41:22 ID:5983Ww81]

>>667
CSSレイアウトは正確に書いても正確にレンダリングされるわけではありませんので、
バグ対応を考えるとテーブルレイアウトの方がよほどデザインの変更は私にとっては簡単です。

[0687 651 2006/06/20(火) 18:54:06 ID:5983Ww81]

>>675
ケース６

ある一つのファイルを開けた時の見渡しやすさを確保するには一ページずつhoge.cgiにすれば
.htmlほどではないが準じたレベルで解決。
でもそれだとperlとしてボツ。

要は見渡しやすさと効率と利便性と拡張的と省エネと論理的という理想がそれぞれで
ぶつかりあって毎度動きはするけど納得いかないレベルのものになってしまうのです。

ここらでこのジレンマを解決したいのですが。

strictHTMLと作る側の利便性と効率的且つ拡張的なHTMLは反発しますよね。
そんな感じかもしれません。

m(__)m

[0688 nobodyさん NG NG]

完全CGIのサイトを作ってあげる
↓
高負荷でレスポンス激重or鯖缶から垢デリ
↓
水の泡

[0689 651 2006/06/20(火) 19:19:53 ID:5983Ww81]

>>688
いや。まあかまわないのですがそれも。
作る自体遊びなので。

[0690 nobodyさん 2006/06/20(火) 19:37:08 ID:???]

a;a1;10
b;b1;10
c;c1;10

と記述したファイルがあるのですが、
例えばb;b1;10の10を11に書き換えたい場合はどうすればいいのでしょうか？

[0691 nobodyさん 2006/06/20(火) 19:40:22 ID:???]

HTMLのソースが見難いものである以上無理じゃね？

[0692 nobodyさん 2006/06/20(火) 19:45:22 ID:???]

ファイルじゃなくてどうゆうふうに変数に入れてるのか家




まぁ、データ整理がうまく言ってないだけだと思うけど、たぶん想像だけど無難なトコでは

@file = (
  ['a', 'a1', 10],
  ['b', 'b1', 10],
  ['c', 'c1', 10],
);

って感じでいいのか？
だとしたら

$file[1][2]++;
となる

[0693 nobodyさん 2006/06/20(火) 20:02:06 ID:???]

>>651のやろうとしている事をやるなら、まずページごとに異なる部分だけを
データファイルなりなんなりで保存しておいて、Apacheのmod_rewrite使って
自動的にCGIにパスを渡すようにするかなー

ってこれブログじゃねえか！

[0694 nobodyさん NG NG]

アロー演算子って省略できたのか、、

[0695 nobodyさん 2006/06/20(火) 20:09:48 ID:???]

普通にMovaleTypeとどう違うんだろう。
Perlは初心者レベルの俺から見ても、
外部にhtmlの共通部分をテンプレートとして用意しておいて、
コンテンツをそこに流し込むだけでいい気がするんだけど。

>>686
それはCSSを知らないだけじゃない？
よっぽど変なレイアウトをしない限り、CSSハックとかちょっと組み合わせれば
主要ブラウザの表示の差異ぐらい普通に取り除けるぞ。
IE7でちょっと混乱しそうだが、IE7でCSSハックもできるようだから問題ないだろうし。

[0696 nobodyさん 2006/06/20(火) 20:12:07 ID:???]

>>692
ファイルを読み込んで該当の一行を返し、それを;でsplitしています
ですので、変数としては@datに配列として入っています。
その@datの値を変更したのですが、ファイルに書き戻す方法がわかりません

[0697 nobodyさん NG NG]

joinでおｋ

[0698 nobodyさん 2006/06/20(火) 20:23:24 ID:???]

grepとsedを組み合わせることは出来ないですか？
マッチした行をsedしたいのですが

[0699 698 2006/06/20(火) 20:25:48 ID:???]

すいませんsedというか
s///です。

[0700 692 2006/06/20(火) 20:32:32 ID:???]

最初の質問と全然違うじゃねーかよ
>>697でおｋ

[0701 nobodyさん 2006/06/20(火) 20:42:57 ID:???]

>>698
そのgrepはどっちのgrep?
コマンドか関数か

[0702 nobodyさん 2006/06/20(火) 21:04:47 ID:???]

>>694
2個目以降は省略できるぉ

[0703 651 2006/06/20(火) 21:04:52 ID:5983Ww81]

>>691
いえ、htmlのソースは十分見やすいのです。
ただ、それを一つにまとめると長くなって見渡しやすさがなくなるのです。

>>693
昔携帯用サイトをそんな感じで作りました。

>>695
それはCSSに適したレイアウトをしてるからじゃないですか？
デザインレベルの段階で「これはCSSだと云々」と考えたりするのは
個人的には邪道なのです。

例えば写真がページごとに入る枚数が違って、写真と文字の位置の関係や
回り込みの仕方。文字のサイズを変えたときのかわり方、全体の長さによる背景の可変。

そして久しぶりにソース、コードを見た時のわかりやすさ。論理的でありながら効率的で。

長くお邪魔してしまいましたが、スレ汚しになってしまいますのでここらへんで消えます。
ありがとうございました。

[0704 nobodyさん 2006/06/20(火) 21:08:51 ID:???]

>>696
そこまで分かってて自分で考えられないようじゃ（ｒｙ

[0705 651 2006/06/20(火) 21:17:35 ID:5983Ww81]

最後にすみません。

例えば
my $print_value;
if ($form{page} eq "index"){ $print_value = &tag_index}
と本文でやってインデックス用のページを作るサブルーチンから完成したソースを
返してくるとしますよね。

これでページがindexとblogとgalleryと3種類だけでもソースを返してくるルーチンを
3つ同じファイル内に書くと見渡しにくくなりますよね。

最高の解決としては。これはメモ帳レベルの問題なのですが、
同じファイルに書いておきながら

#このルーチンはどういう処理をして何を返すのかを軽く説明
sub tag_index{}　　###　このルーチンの中身を見るにはココをクリック！


こんな感じになれば最高なんです。これで10個のルーチンがあっても30行ほどでよくなります。
つまり10個のルーチンが画面内に収まるのですから処理の全体の流れがとてもわかりやすいのです。
これが私のいう見渡しやすさです。

外部にライブラリにすればいい。モジュールにすればいい。
いや。違うんです。ファイルをいくつも作るのはゴミゴミして嫌いなんです。
そして毎度引数を色々渡すのも嫌いなんです。

って、こんなメモ帳を自分で作ればいいのか・・・・・・・
terapadを使ってるのですが、このインターフェースに慣れてるので
サブルーチンはデフォルトでは表示されないとかになればいいのに。行数はもちろんトビトビになる仕様で。

[0706 nobodyさん NG NG]

VisualStudioのエディタはそんな風になってるね

[0707 nobodyさん 2006/06/20(火) 21:19:55 ID:???]

IDE使えや

[0708 nobodyさん 2006/06/20(火) 21:20:03 ID:???]

CSSは邪道
ファイル複数にするのも邪道
HTML::Templateは使いたくない

これじゃどうしようもない…。
>>651 は何がしたかったんだろう。

[0709 nobodyさん 2006/06/20(火) 21:22:25 ID:???]

なんだ、、サブルーチンが折り畳めるエディタはないですか？
っていう質問だったのか。。。

[0710 nobodyさん NG NG]

むしろ適当なCMS使え

[0711 nobodyさん 2006/06/20(火) 21:27:06 ID:???]

>>703
その辺も普通にCSSで実現できるな。
tableデザインにはそれなりのメリットがあるのはわかるが、
貴方は多分CSSデザインを過小評価しすぎてるよ。
否定するならちゃんと勉強してからがお勧め。

[0712 nobodyさん 2006/06/20(火) 21:27:45 ID:???]

>>705
>こんな感じになれば最高なんです。
そういう風にコードを書けばいいんじゃね？ｗ

[0713 nobodyさん 2006/06/20(火) 21:33:58 ID:???]

>>707
あまりの遅さにスーパーライセンスを剥奪されたっぽいから使えん。

[0714 651 2006/06/20(火) 21:34:10 ID:5983Ww81]

>>706-710
そういうエディタもあったのですか。
しょぼい結末になってすみませんです。

>>711
そうでしたか。CSSスレで回答者をしていたころはよく回答者同士で
実装について嘆いたものですが。
1年ほどCSSから離れていたあいだにブラウザに革命でもおきて全て解消されたのでしょうか。
失礼いたしました。

[0715 nobodyさん 2006/06/20(火) 21:35:11 ID:???]

最後までちゃんと説明出来ない子だったな

[0716 651 2006/06/20(火) 21:40:19 ID:5983Ww81]

ごめんなさいm(__)m
優しくしてくれてありがとうございました。

[0717 nobodyさん 2006/06/20(火) 21:59:49 ID:???]

651のIDが神がかりな件

[0718 nobodyさん 2006/06/20(火) 22:01:41 ID:???]

なにがどう神がかりなのか、それを表す正規表現を書いてみてください。

[0719 nobodyさん 2006/06/20(火) 22:14:59 ID:???]

皆様ありがとうございます。

ファイルを直接書き換えたいので、
open( FILE, ">>./dat/img_data.dat");
while(<FILE>){
s/$FORM{'tmp'}.*/$dat/;
print;
}
close( FILE);
このようにしているのですが、うまく動きません
原因がわかるかたいますでしょうか？

[0720 nobodyさん 2006/06/20(火) 22:19:50 ID:???]

>>714
奇遇だな。
俺もそのスレの回答者をしていたりする。

[0721 nobodyさん 2006/06/20(火) 22:20:56 ID:???]

>>714
amazon参考にしたら？ｗ