トップページ⇒php
1001コメント318KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2007/05/30(水) 11:34:01ID:???
Perlのコーディングで困ってる人のスレです。

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

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

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

お勧めサイトは >>2-10

前スレ　http://pc11.2ch.net/test/read.cgi/php/1171102883/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/
0457nobodyさん2007/07/14(土) 07:44:47ID:???
>>456
それって例えがちょっと違わね？
クラスの方は型っていうのはほぼ良いとしても、
モジュールは、部品の切り分け方(取り付け方)だから、例えで言えばネジ止めみたいな事じゃね？

つまり、
「鋳造型とネジ止めを比較するようなもので、鋳造された部品だってネジ止めする事はあるから比較できない。」
って感じじゃね？
0458nobodyさん2007/07/14(土) 08:17:22ID:???
うかつにたとえ話をすると
こうやってぐだぐだになるんだよな
0459nobodyさん2007/07/14(土) 13:05:26ID:???
実行効率でクラスにするかモジュールにするか選ぶのはやめとけ。
どうせ違うとしても大した差じゃない。見通しよく書けるかどうか
のほうが重要だよ。
0460nobodyさん2007/07/14(土) 13:23:11ID:XODLozhP
popメールをソケット通信で取ってくるperlスクリプトをサーバ移行しています。
旧サーバでは動いているのが、新サーバでは以下のようなSocket接続でこけています。
$remote = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => $server,
PeerPort => $port,
) || &error("error");

IO:Socket:INETD.pmを1行ずつ進捗printしてみたところ、コンストラクタ(sub new)の
「return $class->SUPER::new(@_);」で止まってしまいます(長い時間かかったあと"error"が帰ってくる)。
この$class->SUPER::new(@_);って親クラスのコンストラクタを
呼び出していると思うんですが、INETD.pmの親クラスって何になるんでしょうか？

perl初心者につき変なこと言ってるかもしれませんが、
よろしくご教授ください。。。
0461nobodyさん2007/07/14(土) 13:40:14ID:???
>>460
ソースを読んでuse baseか@ISAをいじってるところをさがす

or

そのパッケージの@ISA配列の値を調べる
0462nobodyさん2007/07/14(土) 13:50:10ID:???
すでに初心者じゃない件
0463nobodyさん2007/07/14(土) 15:18:54ID:???
>>458
>>451がどれだけドンチキな話をしてるのか理解してもらえればそれでいいのよ。

>>460
IO::Socketが親で、さらに上をたどるとIO::Handle。
04644602007/07/14(土) 15:20:34ID:XODLozhP
>>461
ありがとうございました。親クラスはIO:Socketでした。
今のところ、IO:Socket:connect()まで入ってきているのを確認できたので、
connect()の中を色々探ってみたいと思います。
(connectのどこかで止まっている状態)
04654602007/07/14(土) 15:24:56ID:???
ああ、書き込むの久しぶりだからageちゃった。すみません。
>>464
Hanndleとか行ったりきたりして、今のところ463のような状態なので
引き続き調べます。ありがとうございます。
0466nobodyさん2007/07/14(土) 15:55:23ID:???
die $!とかやらずに&error("error")とかやってんのマゾとしか思えない。
0467トラハムちゃん2007/07/14(土) 16:32:18ID:M6VlwpzH
すいません、ちょっと教えていただきたいのですが、
ユーザーエージェントに「AAA」または「BBB」という文字が
含まれていなかったらエラーを表示したいと思っています。

if(not $ENV{'HTTP_USER_AGENT'} =~ /AAA/) {
&error("エラーです");
}

「AAA」だけでしたら作れたのですが、うまく「BBB」が追加できなくて困っています。
初心者なりにor等を使ってみても、入れ方が悪いのかうまくいきませんでした。
どなたかご教授いただければと思います。
よろしくお願いします。。
0468nobodyさん2007/07/14(土) 16:35:18ID:???
!~ /AAA|BBB/
0469トラハムちゃん2007/07/14(土) 17:14:18ID:M6VlwpzH
>468
できました！
ありがとうございました！！
助かりました！！
0470nobodyさん2007/07/14(土) 17:54:00ID:???
>>466
慣れないうちは、&errorとかサブルーチン作った方が、本人の！可読性がいいと思うし、
webprog的には、エラーが発生したときにブラウザに表示させることも多いので、別に構わないというか
俺はそうしてる。

特殊変数なんかも同じで、慣れないうちは使ってなかった。
foreach my $str (@hoge) { print $str; } みたいに。
04714602007/07/14(土) 18:53:18ID:???
>>460,464の続きです

IO:Socket:connect()の↓のconnect関数から反応が返ってこないということが
分かりました。
if (!connect($sock, $addr)) { }
connect()関数を使うにあたって、
サーバ側で何か設定が必要だったりするでしょうか？
今回自宅サーバのため、同じcgiが動いているレン鯖と何か設定が
違うのかもしれないと思いまして。
もしくは、ポート開放関係？一応メールの110ポートはあけているんですが。。。

すみませんが、よろしくお願いします。
0472nobodyさん2007/07/14(土) 19:05:47ID:???
>>471
「ソケット叩いちゃダメ」のサーバかどうかを確認する必要が
あったりするかもしれません。
04734482007/07/14(土) 19:25:34ID:ybwwq6ev
>>459
その点が気になってたとこです。
実行効率か、可読性かみたいな。
ただ、どっちがどうかは良く分かってませんが。
すんません。
0474nobodyさん2007/07/14(土) 23:24:23ID:???
標準モジュールのNet::POP3使って幸せになろうよ、ねえ
0475nobodyさん2007/07/15(日) 00:16:49ID:tgDYqhX7
ファイルを操作するライブラリを作っているのですが、
普通にやるとアクセス元のcgiのあるフォルダにファイルが作られてしまいます。
ライブラリであるplのあるフォルダにファイルを作りたいのですが、
どのようにすればいいのでしょうか？
0476nobodyさん2007/07/15(日) 00:32:58ID:???
知らんがなｗ
0477nobodyさん2007/07/15(日) 00:50:43ID:???
馬鹿には聞いてません
0478nobodyさん2007/07/15(日) 02:37:03ID:???
@array = caller 0;
0479nobodyさん2007/07/15(日) 08:06:39ID:???
>475
アマグラマの回答でよければ。

library.pl 側で、自分の位置を変数に保持するか、それを調べて返すサブルーチンを用意してはどうでしょう。
私も初学者ゆえ、パスの調べ方については分からんのですが、たぶんやり方はあると思います。

で、そうやって取得したlibrary.plのフルパスを、ファイル操作ルーチンに突っ込む。
04804792007/07/15(日) 08:08:13ID:???
ごめん訂正。最後の行。

×　そうやって取得したlibrary.plのフルパスを、〜
○　そうやって取得したlibrary.plが存在するディレクトリのフルパスを、
0481nobodyさん2007/07/15(日) 09:19:49ID:???
>>475 >>479
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perlvar.pod#%25INC

しかし普通はそんな変な仕様にせず、内容が変化するファイルのパス
なり親ディレクトリなりをスクリプト内や設定ファイルで明示的に指定
できるようにするべきだろう。
0482nobodyさん2007/07/15(日) 14:45:19ID:???
>>480
ありがとうございます。
その方法を参照させていただきます。
0483nobodyさん2007/07/15(日) 15:40:47ID:???
>>482
そんなことに時間を浪費してないで481の言う事に耳を傾けといた
方がいいと思うけどな。

04844602007/07/15(日) 18:30:54ID:???
>>471
PerlのSocket:connect()を使えるかどうかは
自宅サーバなので自分で設定できるんですが、
設定する箇所がわからない・・・。
httpdのconfigにもそれらしき箇所はないし、
perlってconfigファイル的なものがなさそうなんですが、
設定とかってどこでするんでしょうか？
0485nobodyさん2007/07/15(日) 19:30:10ID:???
単にネットワークの問題じゃないかという気がするのだが。
etherealかなんかでやり取り眺めて切り分けしろ。
0486nobodyさん2007/07/18(水) 19:25:52ID:???
すいません質問です。

アップローダでアップされたファイルなど、CGIを使ってバイナリ単位で編集したいのですが、どのように行えばよいのでしょうか？
0487nobodyさん2007/07/18(水) 19:42:48ID:???
その前に質問の仕方を学んだらどうだ
0488nobodyさん2007/07/18(水) 19:44:38ID:U8dvSnpW
mod_perl2 + Apache2.2でセッション管理したい場合、
CGI::Session、Apache::Session（mod_perl2に対応していない？）
以外の方法ってありますか？
自前で実装になる？
0489nobodyさん2007/07/18(水) 19:45:15ID:???
perlとかプログラミングをもっと基礎から勉強してレベル上げてから来い。
0490nobodyさん2007/07/18(水) 20:22:03ID:???
>>486
なんでいきなり謝ってんの？
perlは日本語の勉強してからにしたほうがよいよ
0491nobodyさん2007/07/18(水) 20:23:17ID:???
>>489
初心者スレってスレタイが良くないよな

プログラミングは初心者がやるものではない
0492nobodyさん2007/07/18(水) 20:38:08ID:???
>486
C、C+、tcl、lisp、sh、perl、PHP、java、ruby、ほか好きな言語、スクリプトで
open か fopen でもしていじってくださいな
04934862007/07/18(水) 20:45:04ID:???
>>487,>>489,>>490
血ヘド吐いて死にさらせ

>>492
ありがとうございましたm(_ _)m
0494nobodyさん2007/07/18(水) 21:10:34ID:???
open関数も知らない馬鹿だったのか
0495nobodyさん2007/07/18(水) 21:21:38ID:???
＞perlは日本語の勉強してからにしたほうがよいよ
ワロスｗｗ
0496nobodyさん2007/07/18(水) 21:33:02ID:???
はいはい自演乙
0497nobodyさん2007/07/18(水) 22:11:24ID:???

> 1： 自分はこういう事がしたい。
> 2： それでこんな風にやってみたが･･･
> 3： こんなエラーが出て上手く行かなかった。
0498nobodyさん2007/07/18(水) 22:21:31ID:???
>>497
結局open関数が知りたかっただけかｗ
0499nobodyさん2007/07/19(木) 02:03:02ID:???
( ﾟдﾟ)…

>>495は、>>490が日本語云々言ってるのに「よいよ」って書いてるのにつっこんでんのに、
自演とか言ってる>>496は何だ？

>>497は質問者に>>1嫁と言っているだけだと思うのだが、>>498のつっこみは何だ？

何だ( ﾟдﾟ)何だ(ﾟдﾟ )何なんだ(ﾟдﾟ)???
0500nobodyさん2007/07/19(木) 02:27:41ID:???
この板も強制ID欲しいよ。
0501nobodyさん2007/07/19(木) 13:11:12ID:???
>>500
Andy使えば？
0502nobodyさん2007/07/19(木) 13:16:44ID:???
>>501
Auの携帯ブラウザのこと？
それを使うと任意IDのこの板が強制IDで見れるの？

なんじゃそりゃ。
0503nobodyさん2007/07/19(木) 16:53:55ID:???
>>502
dat読み込みの仕様ががまだ不十分だから、今なら見れるよ
0504nobodyさん2007/07/19(木) 17:23:44ID:???
そもそもdatにIDは書かれていないわけだが。
http://pc11.2ch.net/php/dat/1180492441.dat
0505nobodyさん2007/07/19(木) 20:27:45ID:???
正規表現で、対象変数の中の値が「ひらがなだけ」なら真とする if 文は
どのような表記になるのでしょうか？
この場合「ー」や「〜」も含めたいです。
0506nobodyさん2007/07/19(木) 20:29:49ID:???
文字コードで範囲指定すりゃいいだけですね
で使うのは !~ を使ってください
0507nobodyさん2007/07/19(木) 20:38:30ID:???
こうかな？

if( $test !~ '^[\82\9e-\82\ef]+$' )
{
//ひらがなの場合
}
0508nobodyさん2007/07/19(木) 20:41:15ID:???
!~使うなら^[]は要らないんじゃない？
わからん
0509nobodyさん2007/07/20(金) 01:10:35ID:???
// （笑）
0510nobodyさん2007/07/20(金) 10:31:22ID:???
あるあるｗｗｗ
0511nobodyさん2007/07/20(金) 17:57:06ID:???
>>505
つ ttp://www.din.or.jp/~ohzaki/perl.htm#Character
EUCかSJISの場合
05125052007/07/20(金) 21:55:38ID:???
>>511
ﾈ申降臨！
一発で性交だったよありがとう！！
0513nobodyさん2007/07/20(金) 22:12:15ID:???
困ったときにそのサイト見るのは常識だろ。
0514nobodyさん2007/07/21(土) 20:05:13ID:???
どこの国の常識だよｗｗ
0515nobodyさん2007/07/22(日) 02:05:22ID:???
テンプレにあるぐらいなんだから、こことム板のスレでは常識に近いんじゃないか。
0516nobodyさん2007/07/22(日) 10:54:01ID:???
質問

サーバーで実行されることを想定して
作られているCGIゲームを、自分の
windowsのパソコン上で一人で実行したいのですが、
perl＋アパッチ＋アクｔィブパール
という構成になるのでしょうか？
アパッチは必須ですか？
0517nobodyさん2007/07/22(日) 11:16:44ID:???
AN HTTPDでも使っとれ
0518nobodyさん2007/07/22(日) 11:21:20ID:???
PerlとActivePerlの両方って何？
0519nobodyさん2007/07/22(日) 11:32:45ID:???
>>518
もし言ってることが変だなーと思ったら
遠慮なくいってくれたほうが早いです
0520nobodyさん2007/07/22(日) 11:32:56ID:???
きっと使い分けたいぐらいの凄腕なんだろ
0521nobodyさん2007/07/22(日) 12:30:49ID:???
perlで、静止画を少しずつ(ドット単位orピクセル単位で)左右上下に動かしたりできますか？
特に、ImageMagickとかでそういう機能ありますか？
0522nobodyさん2007/07/22(日) 13:28:00ID:???
ここはエスパーの集う場所ではありませんよ？
0523nobodyさん2007/07/22(日) 14:12:18ID:???
超ヤサシイ俺が。
初心者はAN HTTPDとActive Perlでいいだろ
つーかぐぐれ
0524nobodyさん2007/07/22(日) 14:27:23ID:???
あまりの優しさに全米が感動した
0525nobodyさん2007/07/22(日) 15:17:51ID:???
>>521
超ヤサシイ俺が。
左右上下に動かすって、ボタンを押すたびに動かす事は出来るかもな。
基本的にPerlが動くのはボタン押したりアドレス開いたりした直後だけ。
つーかCGIの入門書でも嫁。
0526nobodyさん2007/07/22(日) 16:26:43ID:???
>>525
いや、それでもいい。
フォームでボタン押してパラメタ送信、受け取ったら画像が右に少し移動してるって状態で十分。
空白文字分を入れて右にずらしたりはできるけど、上下左右に細かく描画位置を変えれる方法が知りたす。
0527nobodyさん2007/07/22(日) 16:46:42ID:???
>>526
超ヤサシイ俺が。
テーブルで囲んで上下左右にセルを用意して透明画像(幅、高さ指定して)を挿入すりゃいいんじゃね？
それか、GD使って元画像を編集するか・・・。マンドクサイな。

ってかなんでCSS+JavaScriptでやらねえのか、かなり疑問。
CGIの出力なんてHTMLなんだから、そこをDynamicHTMLにしちゃいけないって決まりはないんだし。
05285182007/07/22(日) 16:52:24ID:JZmpPZ9R
ActivePerlはPerlインタプリタの1つであって、
ActivePerlと別途にPerlが必要、ってのは何かおかしくないか？

と思ってたのだけど、俺が勘違いしてたかもしんない。
0529nobodyさん2007/07/22(日) 16:56:58ID:RK22sjeK
配列の全ての要素に対して一定の処理をしたい場合、例えば要素の全てを２倍したいときなんかに、
foreachを使わない方法があったと思うのですが、忘れてしまいました。
foreach(@list){$_*=2;}
以外の、foreachを使わない、全ての要素にアクセスする関数か何かあったと思うのですが・・・教えてエロイ人。お願いいたします。
0530nobodyさん2007/07/22(日) 17:13:41ID:???
map
05315292007/07/22(日) 17:20:08ID:???
>>530
ありがとうございました〜！！！！
0532nobodyさん2007/07/22(日) 18:24:04ID:???
>>527
CSSとJavaScriptもいいんだけど、俺の知り合いが携帯しか持ってない奴ばっかりで。
携帯じゃCSSもJavaScriptも無理だから。

つーか超ヤサシイもまいは超ヤサシイ俺という名前なのか気になた
0533nobodyさん2007/07/22(日) 18:42:34ID:???
超ヤサシイ俺が。は1人じゃないよ。
中野一人が言うんだから間違いない。
0534nobodyさん2007/07/22(日) 19:39:53ID:???
うん、超ヤサシイ俺のひとりだけど別人だよ。
0535nobodyさん2007/07/22(日) 22:18:20ID:???
俺も、超ヤサイ俺のひとりだけど別人だ
0536nobodyさん2007/07/23(月) 15:42:25ID:???
cryptに関する質問というか、えらいコーディングミスが見つかったので…

パスワードをcryptで暗号化して、ファイルに保存しておいたものを、$CRYPTとして読み出して、
フォームから入力された$form{'pass'}と一致するかをチェックしようとしたところ、
$CRYPTが空だと、$form{'pass'}がどんな値でも通ってしまう。

if (crypt($form{'pass'}, $CRYPT) eq $CRYPT) {
　# $CRYPTが空だと、$form{'pass'}がどんな値でも通ってしまう。
}

こういうのは

if (crypt($form{'pass'}, $CRYPT) eq $CRYPT) && ($CRYPT)) {
　# $CRYPTが空だと、$form{'pass'}がどんな値でも通ってしまう。
}
0537途中で書き込んじゃったｽﾏｿ2007/07/23(月) 15:43:52ID:???
cryptに関する質問というか、えらいコーディングミスが見つかったので…

パスワードをcryptで暗号化して、ファイルに保存しておいたものを、$CRYPTとして読み出して、
フォームから入力された$form{'pass'}と一致するかをチェックしようとしたところ、
$CRYPTが空だと、$form{'pass'}がどんな値でも通ってしまう。

if (crypt($form{'pass'}, $CRYPT) eq $CRYPT) {
　# $CRYPTが空だと、$form{'pass'}がどんな値でも通ってしまう。
}

こういうのは、以下のような対策でいいと思いますか？

if ((crypt($form{'pass'}, $CRYPT) eq $CRYPT) && ($CRYPT)) {
　# $CRYPTが空だと、通らないはず。
}
0538nobodyさん2007/07/23(月) 15:55:07ID:???
>>537
その対策だとパスワードに「0」を設定されると問答無用でfalseになりますね。
$CRYPT eq "" のほうがいいかも？

というかそれ以前にif( crypt($form{'pass'}, $CRYPT) eq $CRYPT )で常にtrueになるのが変です。
本当にやってることはそれだけ？
0539nobodyさん2007/07/23(月) 16:29:20ID:???
>>538
cryptを通した後の暗号化された文字列$CRYPTが、一文字の"0"になるってことはあるんでしょうかね。

if (($form{'id'} eq $ID) && (crypt($form{'pass'}, $CRYPT) eq $PASS)) { }
みたいにIDも照合してます。
0540nobodyさん2007/07/23(月) 16:29:38ID:???
環境によってはcryptにおかしな値を食わせると空文字列が返ってくる
それともundefだったかな？
0541nobodyさん2007/07/23(月) 16:37:49ID:???
0になりませんね。
蛇足は間違えてるし本題はなんの役にも立たないしで恥ずかしいので無視してください。
0542537=5392007/07/23(月) 16:41:51ID:???
>>540でＦＡだとすると、結構怖いですね…ありがとうございました。
ちゃんと、値のチェックを行っていなかった自分に反省…
0543nobodyさん2007/07/24(火) 09:20:42ID:???
はじめまして。

my %file = map { chomp; $_ } <f>;###こんな感じで一旦chompして改行取っ払って、、、
delete $file{'$blogFileName'};###こんな処理をしたあと、、


また改行をくっつけてもどしたいのですが、どうすればいいか教えていただけませんか。
0544nobodyさん2007/07/24(火) 09:53:00ID:???
join
0545nobodyさん2007/07/24(火) 09:58:11ID:???
>>544
ありがとうございます
言葉足らずですいません

一番最後の要素にも改行コード付けて戻したいんですが、どうすればいいでしょうか…
0546nobodyさん2007/07/24(火) 10:26:09ID:???
文字列連結演算子
0547nobodyさん2007/07/24(火) 10:30:34ID:???
てかデータ構造を示せ
あと連想はやめろ
0548nobodyさん2007/07/24(火) 11:26:52ID:???
map { print f "$_$/" } %file;
0549nobodyさん2007/07/24(火) 11:28:33ID:???
map { print f $_,$/ } %file;
0550nobodyさん2007/07/24(火) 12:03:01ID:???
map { print f $_,$/ } %file;
0551nobodyさん2007/07/24(火) 18:09:32ID:???
smaf { print f $_,$/ } %file;

とかじゃダメ？
0552nobodyさん2007/07/24(火) 18:56:17ID:???
while(my ($name, $value) = each %file){
print f $name, "\n", $value, "\n";
}
0553nobodyさん2007/07/24(火) 20:59:43ID:???
DBI->connect を使ってポスグレにアクセスしています。
正しくないIDやDB名を入れた場合はきちんと
DBI::errstr にそのエラー文言が入るのですが、
正しくないパスワードを入れた時は何故かそのまま通っちゃいます。
帰ってきた中身を見ても、パスを入れた時、入れない時でどちらもハッシュが入っています。
これは不可思議な事に何故か両方繋がってしまっていると見た方がいいですよね？？
0554nobodyさん2007/07/24(火) 21:48:16ID:???
>>553
ポスグレの設定で、Perl動かしてるマシンをポスグレ鯖が無条件でトラストしてるんジャネ？
0555nobodyさん2007/07/24(火) 22:06:21ID:???
>>554
ありがとうございます。
セキュリティをかなりガチガチにしているところなのでちょっと考えにくいような。。。
パスワードの値を変更したらハッシュの値も微妙に変わりますがこれは仕様でしょうか？
何にも入れない時と入れた場合で±８くらい差があります。
文字数でハッシュも変わる！？
0556nobodyさん2007/07/24(火) 22:35:34ID:???
>>555
DBI->connectの復帰値はデータベースへの接続ハンドル(接続者の識別コードみたいなもの)なので、
接続毎に違う値になる事もあるし、disconnect　→ 再connect　で同じ番号が割り当てられないとは限らない。
ってか、値自体に意味はない。(0ならエラーって意味以外は人間様が解析するべき内容じゃない。)

レン鯖でも、ポスグレがlocalhostを無条件トラストしてる事は十分考えられる。
コンソール前に座って、コンソールの管理者ログインパスワード知ってても
DBパスワード知らなきゃメンテナンス出来ないんじゃ、管理コスト高くつくからな。

その状態で、ポスグレ鯖とHTTP(CGI)鯖が同じマシンだったら、
localhost(=HTTP(CGI)鯖)は無条件トラストされてるから、ユーザー名さえあってりゃコネクトできる。

試しにテーブル作ってダミーデータぶち込んで、それを表示するプログラムを
パスワードありなし両方で動かしてみれば良いんジャマイカ？

それでパスワードなしで繋がっちゃったら鯖缶に問い合わせれば良いと思われ。
■ このスレッドは過去ログ倉庫に格納されています