Perlコーディング初心者質問スレ Part 39
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/11/27 11:35:03ID:DJwiGeFM【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0017!13
04/11/28 09:52:02ID:???その別の方法とはどんなものですか？
0018nobodyさん
04/11/28 11:26:37ID:???foreachで１周させつつ必要なものだけ別配列にpushするもよし。
１周させつつshiftとpushを繰り返すのもよし。
0019nobodyさん
04/11/28 14:12:35ID:???0020nobodyさん
04/11/28 14:43:17ID:???0024nobodyさん
04/11/28 16:48:00ID:???同時にアクセス -> スクリプトの開始(or ファイルのopen)が同時。
てな感じかねぇ。
話題がflockだからどっちでも通じると思うけど。
0027nobodyさん
04/11/29 02:47:51ID:???OOPっぽく書くの、どっちがパフォーマンス的に有利なんだろう。
一概には言えないだろうけど、一般論として。
0028nobodyさん
04/11/29 02:50:14ID:3ENBI+n/やっつけはベタ書き
0029nobodyさん
04/11/29 02:54:21ID:???そりゃOOPの方が不利。そのままソフトウェア設計の一般論に当てはまるかと。
（良く設計されたOOPのシステムはパフォーマンスが良いという事も）
ただしperl自体がそこそこでかいので、誤差程度でしかないと思うが。
0030nobodyさん
04/11/29 03:53:29ID:???特にHTML出力する部分はヒアドキュメントでずらずらと書かれてた方が
ぱっと見で解り易いしメンテも楽。
0031nobodyさん
04/11/29 04:14:04ID:???OOPはパフォーマンスを上げるためじゃなく開発性を上げるためのもの
確かに>>30のいうようにOOPにすると逆に小難しくなるのも確かだね
OOP自体は遠回りしてでも処理を分割するから
無駄に変数定義してたりするけど
よほどのことがない限り差が出たりはしないんじゃないかなぁ
0032nobodyさん
04/11/29 08:55:50ID:???あれ見やすいってことだろうけど、漏れは、ぜんぶメインで書く。
実際、ベンチやると、メインだけの方が速いんだよな。余りやったこと
ないが、別ファイルにしたモジュールのインクルードはさらに遅くなる
と思われ。
0033nobodyさん
04/11/29 09:29:08ID:???0034nobodyさん
04/11/29 10:04:31ID:???0035nobodyさん
04/11/29 11:19:34ID:vhU7fwVw$value =~ s/[\x00-\x20]+/ /g;
の記述についてです。
これはどのような意味を持つのでしょうか？
0036nobodyさん
04/11/29 11:22:53ID:???0037nobodyさん
04/11/29 11:26:06ID:???0038nobodyさん
04/11/29 11:30:40ID:???0039nobodyさん
04/11/29 11:33:46ID:???せいぜいデカいやつで１００ステップ超えるぐらいだな。
0040nobodyさん
04/11/29 12:15:29ID:???0041nobodyさん
04/11/29 13:17:08ID:???馴染めなくて結局シェルとsedとawk一辺倒だった。
今思えばあの時ちゃんとやっとけば良かった。
0042nobodyさん
04/11/29 13:28:07ID:???その時は一回しか使わなくてもサブルーチンを作っておくことは良くある。
>>41
今からでも遅くないからがむばれ。
0043nobodyさん
04/11/29 13:53:05ID:???2. よく似てるが少しだけ違う処理のスクリプトを何本か copy&paste で作る
3. 共通部分に仕様変更が発生する
4. copy&paste したところをスクリプトの数だけ書き直し、嫌気がさす
5. サブルーチン化する
てのが誰でも一度は通る道だと思ってたんだが、ひょっとして漏れだけ?
0044nobodyさん
04/11/29 14:05:25ID:???OOPの書き方も人それぞれだから結局見にくいことに変わりはないケースもある
そもそも再利用するための書き方だからね
0046nobodyさん
04/11/29 14:45:43ID:???しかしレンタルの共用サーバとなると結構気になる。
実際、仕事より趣味のWebプログラミングの方がシビアだったりする。
0047nobodyさん
04/11/29 14:53:51ID:???javaはモデリング命だし、Cの場合は当然モジュール化しっかりやる。
でもperlだと・・・。
0048nobodyさん
04/11/29 21:07:05ID:???0049nobodyさん
04/11/29 21:07:26ID:???人格まではどうかはわからないけど、その言語の慣習に従う傾向はあると思う。
言語自身がそういった特定の用途向けに設計されてたりする事もあるから、言語毎に切替えるのが適切な対応なんじゃないかな.
細かいところでは、コーディングスタイルや変数/関数の命名規則なんかでも、その言語の標準に合わせたりするよ。
>>32
コストの判断を誤ってるような気がする。
関数呼出のオーバーヘッドの為、関数定義して使う方が遅いのは当然だけど。
ベンチ取ったとしても数千回回して1秒に届くかどうかの誤差の範囲内では?
ループ内で何度も呼ばれる関数ならインラインで展開する価値はあるかもしれない、
でも、一度しかつかわれないのなら、コードのみやすさとか保守性の方を優先させるべきだと思う。
0050nobodyさん
04/11/30 01:16:47ID:???言語によって変えるのは普通じゃないかな
逆に無理やり同じように書く方がプログラマに向いてない
0051nobodyさん
04/11/30 11:00:35ID:???エディタないですかね？
perlでコーディングする時、みんなどんなエディタ使ってるんだろ。
0052nobodyさん
04/11/30 11:03:00ID:???http://pc5.2ch.net/test/read.cgi/php/1014357485/l50
0053nobodyさん
04/11/30 11:10:45ID:???まあ精度はそれなり程度。
ちなみに俺は秀丸かvimでゴリゴリ書いてる。
0054nobodyさん
04/11/30 17:32:30ID:???他にそういう文字ありますか？
0055nobodyさん
04/11/30 19:53:20ID:???http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm
0056nobodyさん
04/12/01 01:41:08ID:???音引き記号だぞ
0058nobodyさん
04/12/01 07:54:01ID:???0059nobodyさん
04/12/01 15:56:42ID:???普段は仕事でシステム設計するしプログラミングもやる。
でも、いざWebをやろうとしたらHTMLよくわからない、CGIもよくわからない、perlもよくわからない。
CやjavaやVBならどんと来いなのに、業務アプリならおまかせ！なのに、なんか情けない・・・
そんな経験ないですか？
0060nobodyさん
04/12/01 16:00:30ID:???そういう時は勉強するんじゃないんですか？
0061nobodyさん
04/12/01 16:01:35ID:???0062nobodyさん
04/12/01 16:12:14ID:???知らなくても恥ずかしくない。必要なら勉強するかって感じだな。
「お前SEなんでしょ？ちょっとCGIってやつHPに置きたいんだけど協力して。」
って言われて「あ、そういえば良くわかんねーや」ってのがキッカケだった。
0063nobodyさん
04/12/01 16:24:25ID:???ヒアドキュメントのHTMLがどんどん長くなっていっちゃって・・・
0064nobodyさん
04/12/01 16:32:42ID:???自分の、あるいはそのスクリプトをメンテする人の技量ならびに忍耐力と相談して決めろ。
俺ならヒアドキュメント全廃して HTML::Template 使うが。
0065nobodyさん
04/12/01 16:57:25ID:???HTML::Template使う場合って、テンプレートを別ファイルにするか、
ソース内に組み込んでおくか、どちらがいいでしょうね？
余計なファイルアクセスは避けたいところ。
いずれにしてもHTML::Template使った事無いので、いったん今の状態で設置して、
テンプレート化も同時に進めてみます。
0066nobodyさん
04/12/01 17:22:27ID:???俺の作ったのなんか7486行あるぞ。
実行ステップ数は計ってないからわからんが。
その内、ヒアドキュメントは･･･どんくらいだろ。
別に長くてもいいんじゃね？
ヘタにいじくりまわして可読性が悪くなっても意味ねーし。
あと、実装してる機能にもよるだろ。
0067nobodyさん
04/12/01 17:25:59ID:???俺の環境で10000行ぐらいのやつでベンチマークとってみたら、
ヒアドキュメントにするよりも別ファイルにした方が20倍ぐらい速かった。
perl が立ち上がってスクリプトをコンパイルするときに
ヒアドキュメントの中まで構文解析するので、それに大きな時間を食われるのだと思う。
ただし環境によって違ってくる話だと思う。
コンパイル速度はCPU依存で、ディスクアクセス性能はHDD依存なので、
CPUが圧倒的に速くてHDDが無闇に遅いマシンだと、また違った結果が出るかもしれない。
0068nobodyさん
04/12/01 17:34:38ID:???うお、ﾏｼﾞかよ。いくら環境次第とはいえ、そこまで変わるってのもすげーな。
0069nobodyさん
04/12/01 17:41:19ID:???場合だと、外部ファイルに分離した方が使うもの1つだけ
読めばよいのでお得てなこともあるかもしれんな。
0070nobodyさん
04/12/01 18:32:57ID:???オプションを適切に設定すれば、普通に埋め込むより速くても不思議じゃないよ、
HTML::Templateでも、ファイルからの読み込みは初回のみで、共有メモリにキャッシュを置く事とか出来る。
原理的にはメモリにキャッシュするのが最速なはずだし。
メモリと引き替えに実行速度重視とする場合は、
スワップとか発生すると逆にパフォーマンス低下するので、
コンテンツの規模、アクセス/更新の頻度、実行環境等を考慮して
パフォーマンスチューニングされてるのが前提だけど。
逆に言うと、こういった条件を無視して、
埋め込むほうがいいか、別ファイルに分ける方がいいかというのは、一概に判断出来ない。
条件次第では速くも遅くもなるのだから。
>>67
それくらいの規模になると、使われない処理のコードも毎回読み込まれてたりしないかな。
mod_perlだとまた結果がかわってきそう。
0071nobodyさん
04/12/01 19:47:44ID:ZtAPmMKL解決方法を教えてください。
どのスレで聞けばいいのか分からなかったので、スレ違いなら誘導をお願いします。
【症状】HTMLに埋め込むタイプの画像カウンタなのですが、カウンタが表示されるはずの場所に何も表示されません。
カウンタのＣＧＩをアドレスバーに直接打ち込んだら、それは正しく表示されました。
ＣＧＩ側の出力
Content-type:text/html\n\n
<HTML>
<IMG SRC="数値画像"><IMG SRC="数値画像">・・・（中略）
</HTML>
HTMLファイル側の記述は以下の二つを試しました。
１：<!-- #exec cgi="./count.cgi" -->
２：<!-- #include virtual="./count.cgi" -->
【環境】Apache 1.3.29（ローカルサーバー）
「 Includes 」 「 ExecCGI 」 設定済。
「 AddType text/html .html
AddType server-parsed .html 」 設定済。
0072nobodyさん
04/12/01 20:00:32ID:???>HTML::Templateでも、ファイルからの読み込みは初回のみで、共有メモリにキャッシュを置く事とか出来る。
マジ？
mod_perlでなくてもOK?
レン鯖だとどうなんろう。
0073nobodyさん
04/12/01 20:02:18ID:???１：<!-- #exec cgi="count.cgi" -->
２：<!-- #include virtual="count.cgi" -->
これでどうだ？
0074nobodyさん
04/12/01 20:05:08ID:???IPC::SharedCache無いとダメか・・・。流石にうちのレンタルサーバにはインストールされてなかった。
007571
04/12/01 20:13:12ID:ZtAPmMKLすいません、結果は変わりませんでした。
0076nobodyさん
04/12/01 20:39:49ID:???<!--#include virtual="count.cgi" -->
<!-- と # の間を詰める。のがポイント。
というか、Perlの問題じゃないじゃん。
0077nobodyさん
04/12/01 21:12:33ID:???すでにperldoc読まれたかと思うけど、
一応捕捉しておくと、mod_perlじゃなくてもOk, ただし、shared_cacheオプションを使う場合はIPCが必要.
共有サーバーだとしたら、資源の独占は返ってサーバー全体のパフォーマンスを落しかねないので。
もし使えたとしても、file_cacheに留めておくのが無難だと思う。
0079nobodyさん
04/12/01 23:30:32ID:???0080nobodyさん
04/12/02 01:00:15ID:???0081nobodyさん
04/12/02 05:32:13ID:???0082nobodyさん
04/12/02 12:10:08ID:WEQP3q+X●先頭から16個目のデータをキーにしてソートする場合
@address = sort{(split(/,/,$a))[15] <=> (split(/,/,$b))[15]} @address;
●先頭から16個目のデータを1次キー、3つ目のデータを2次キーとしてソートする場合
@address = sort{(split(/,/,$a))[15] <=> (split(/,/,$b))[15] or (split(/,/,$a))[2] <=> (split(/,/,$b))[2]} @address;
ここで、ソート部をサブルーチン化しろとの上司の命令。以下のように書いてみました。
#&datasort(データの型,並べ順,並べ替え時のキー,配列)
#データの型:数値は1、文字列は2
#並べ順:昇順は1、降順は2
#並べ替え時のキー:先頭は0、3番目なら2、5番目なら4という具合。
@address = &datasort(1,1,15,@address);
#並べ替え部のルーチン
sub datasort{
#$format:数値は1、文字列は2 $order:昇順は1、降順は2 $key:ソート対象のキー、先頭は0、5番目なら4など。
my ($format,$order,$key,@data) = @_;
if($format == 1){
if($order == 1){@data = sort{(split(/,/,$a))[$key] <=> (split(/,/,$b))[$key]} @data;}
elsif($order == 2){@data = sort{(split(/,/,$b))[$key] <=> (split(/,/,$a))[$key]} @data;}
}elsif($format == 2){
if($order == 1){@data = sort{(split(/,/,$a))[$key] cmp (split(/,/,$b))[$key]} @data;}
elsif($order == 2){@data = sort{(split(/,/,$b))[$key] cmp (split(/,/,$a))[$key]} @data;}
}
return @data;
}
で、複数のキーを使ってソートする場合の呼び出し方がわかりません。
@address = &datasort(1,1,15,@address) or &datasort(1,1,2,@address);
だと、当然のことながらorより後ろは動かない。
誰か教えてくださいませ。。
それか、サブルーチンの書き方がおかしい?
0083nobodyさん
04/12/02 13:59:06ID:???試しに書いてみた。
sub csvsort {
my $arrayref = shift;
my @cmps;
while (my($n,$cmp) = splice(@_,0,2)) {
++$n;
$cmp =~ s/(\$[ab])/$1\->[$n]/g;
push @cmps, "($cmp)";
}
my $fcmp = eval("sub {" . join("||", @cmps) . "}");
map $_->[0], sort { &$fcmp } map [$_, split /,/], @$arrayref;
}
# @csvを「要素2を文字列昇順、要素0を数値降順」のオーダーでソート
@sorted = csvsort(\@csv, 2=>'$a cmp $b', 0=>'$b <=> $a');
0085nobodyさん
04/12/02 15:06:46ID:???会員制のサイトを作る場合、
ユーザー個々のデータを保存するのは、
CSV形式、それともユーザーごとにファイルを作成してハッシュ配列で保存、
どちらが妥当でしょうか？
例えばハッシュのイメージとしては、
Id 1
Pass 1234
Name Ａ男
Age 42
Job 会社員
というように考えています。
CSVだと、
1, 1234, A男, 男, 42, 会社員
2, 5678, B子, 女, 30, 営業
・
・
・
（以下リストが続く）
↑こういう形式で良いのでしょうか・・・。
よろしくお願いします。
0086nobodyさん
04/12/02 15:12:42ID:???CGIが動いているサーバーの種類がWin系かその他系かを判定する方法ってありますか？
ファイル名を指定してファイル出力を行なうCGIがあるのですが、
Win系ですと大文字小文字関係なく既に存在するものと同名のファイルは作成できませんが、
Linuxとかですと、大文字小文字が区別されるので、作成可能にしようと思っています。
0087nobodyさん
04/12/02 15:43:37ID:???サーバの返してくるhttpヘッダにあるかもしれないので取得するとか、
cgiで環境変数SERVER_SOFTWAREを調べるとかPATHから想像するとか、
systemとかopenとか使えるんだったらperlのバージョンとかを出力させてみるとか、
サポートに聞くとか
008882
04/12/02 17:39:29ID:???>>83
動きませんでした・・・。
もう少し考えてみます。
本心では「本当にサブモジュール化しないといけないのか?」と思いつつ
上司にも逆らえず。
>>83
間違ってる?
returnを省略しても同じ結果なのはわかるのですが。
>>87
system関数が使えるなら、win系に存在しないコマンド（lsとかcatとか）を
実行させればいいと思うのですが。
system関数は中のコマンドが成功すれば0を返すので
unless(system "ls -l"){
Unix系のサーバーでやりたいこと
}else{
窓系のサーバーでやりたいこと
}
でできないかな。
0089nobodyさん
04/12/02 18:24:52ID:???それだったらOSを識別できるコマンドで一度識別してから作ったほうがいいだろー。
unameとかでもいいし。
いちいちunless云々すんのかい？
まぁあくまでsystemやらopenやら使えるなら。
009083
04/12/02 18:26:51ID:???動かないってのはエラーが出るってこと？
それとも正しくソートされないってこと？
一応、動作確認（ActivePerl5.8.4）済みなんだけど・・・
よければ動かない〜の詳細をレス頼んます。
0092nobodyさん
04/12/02 20:54:21ID:???datasortを使う方向で考えてみました。
速度は遅いしメモリ食うしー。
sub bogosort
{
use sort stable;
my ($key, @data) = @_;
foreach(reverse(@{$key})){
my ($format, $order, $key) = @{$_};
@data = datasort($format, $order, $key, @data);
}
return @data;
}
my @new = bogosort([[1,1,0], [1,1,4]], @data);
要素0の数値昇順、要素4の数値昇順でソート。
$keyは[(1:数値/2:文字列),(1:昇順/2:降順),要素]の配列のリファレンス。
0093nobodyさん
04/12/02 21:57:32ID:???初めの頃にケン○やらレス○やらばっか参考にしてたが、
あんなソース見てたらダメだな。
0094nobodyさん
04/12/02 22:01:06ID:???0095nobodyさん
04/12/02 22:06:47ID:???超人業でもなく、ダサダサでもなく、丁度いい感じのソースとおもふ。
0096nobodyさん
04/12/02 22:16:47ID:???いきなり Wiki 設置しようとか思わないだろう
0097nobodyさん
04/12/02 22:24:41ID:???0098nobodyさん
04/12/02 22:39:28ID:???0099nobodyさん
04/12/02 23:04:37ID:???んじゃなかろうかという気がするが、もしあったら漏れにも教えて
0100nobodyさん
04/12/02 23:16:40ID:???インラインでHTMLだーっと書いて、途中から条件分岐で何か処理して、
続きのHTMLをまただーっと・・・ってなる。
0101nobodyさん
04/12/02 23:25:32ID:???HTML::template使うとヘッダ、フッタ、フォーム、メッセージ表示部分、って感じに
分けることはできないから、同じようなテンプレートをいくつか用意する事になるし。
0102nobodyさん
04/12/02 23:58:35ID:???それはそれとして、昔 DBI (Pgsql) + Template Toolkit で掲示板作ったが、
コードのほとんどは入力チェック・サニタイズのための if やら s/// やらの羅列で、
あまりコーディングの勉強に使って欲しくない出来に仕上がってしまった経験がある。
0103nobodyさん
04/12/02 23:59:56ID:???my @str = qw(うんこだ 素敵 ばかみたいだ 楽だ);
print <<"EOM";
ヒアドキュメントに埋め込みができるなんて、
Perlは@{[ $str[int(rand(@str))] ]}よね。
EOM
0105nobodyさん
04/12/03 00:27:48ID:DFUzRW8vperlでブログは作成できますか？
また、何処かに参考サイト、
ソースのおいてあるサイト等があったらご教授ください。
0107nobodyさん
04/12/03 00:40:12ID:???0108nobodyさん
04/12/03 00:44:17ID:???0109nobodyさん
04/12/03 02:26:08ID:???もう全く別物。作り直したほうが早かったなこれじゃ。
0110nobodyさん
04/12/03 03:04:29ID:???Class::DBIと、Data::FormValidatorあたり使えば、
コーディングなんてほとんどしないで掲示板作れるよ。
コーディングの参考にはならんけどね。。
011182
04/12/03 06:16:55ID:???それもそうだな・・・ｽﾏｿ
>>90
配列が空になります。
実際はここでソートしたものをファイルに書き出す処理があるのですが、0バイト。
CobaltにPerl5.005の組み合わせです。
これがよくないのかな。
あ、エラーは出ません。
>>92
ありがとうございます。
会社でやってみます。
0112nobodyさん
04/12/03 09:03:42ID:dEjygVC1会員制のサイトを作る場合、
ユーザー個々のデータを保存するのは、
CSV形式、それともユーザーごとにファイルを作成してハッシュ配列で保存、
どちらが妥当でしょうか？
例えばハッシュのイメージとしては、
Id 1
Pass 1234
Name Ａ男
Age 42
Job 会社員
というように考えています。
CSVだと、
1, 1234, A男, 男, 42, 会社員
2, 5678, B子, 女, 30, 営業
・
・
・
（以下リストが続く）
↑こういう形式で良いのでしょうか・・・。
よろしくお願いします。
0113nobodyさん
04/12/03 09:16:50ID:???設計考えてどうすか？ってのは
△▲ WebProg 初心者の質問 Part11 ▼▽
ttp://pc5.2ch.net/test/read.cgi/php/1101635909/
こっちが妥当だと思うが。
011482
04/12/03 10:50:46ID:???ダメでした。。
use sortでInternalServerError。
サーバーアナライザーで見ると、sortと書かれたモジュールが見つからないのですが
それが原因かな・・・。
もうちっと考えて見ます。
011582
04/12/03 11:23:05ID:???>>92
use sort〜の行を外すと動くのですが、
>my @new = bogosort([[1,1,0], [1,1,4]], @data);
の後ろ側、[1,1,4]が効かず、前側の[1,1,0]だけが有効になってしまいます。。
上司に「サブルーチン化せず、1行にまとめてorで繋げたほうが素直」って
言ってはいるのですが・・・
「無理です」って言ってやろうかと思う今日この頃。
ありがとうございました。
0116nobodyさん
04/12/03 11:49:21ID:???@list = qw(3 5 8 4 2 9 6 1 7);
#この例だと9が保存されている位置の5が欲しい
foreachで回しながら比較していくしかないのでしょうか？
■ このスレッドは過去ログ倉庫に格納されています