Perl コーディング初心者質問コーナー Part36

**nobodyさん** · 04/07/14 13:23

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

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

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

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

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

**nobodyさん** · 04/08/14 17:20

>>707
undefinedじゃなくてundefだろ。
そういうミスを use strict が警告してくれるんだよ。

ちなみに普通はundefは使わず、それぞれ
$a = 1 if ! defined $a;
defined $a or $a = 1;
if (! defined $a) { $a = 1 }
のようにdefinedを使って書く。

また、if ! の代わりにunlessを使って
$a = 1 unless defined $a;
unless (defined $a) { $a = 1 }
のようにも書けるが、一般的にunlessやuntilなどの否定条件文は理解の
妨げになることが多いので使われない。
if ! より字数が多いのもネック。

で、or（または||）やand（または&&）を利用した「式１ or 式２」のような
記述は、副作用を持つ式１の結果如何で式２を評価するというものなので、
副作用のないただの条件式を式１に使うことはない。
#openがよい例

やるなら後付けif文か通常のif文かだが、今は$a=1しかすることが
なくても、後々他の処理も追加する可能性が少しでもあるなら
通常のif文を使うべき。

長文スマソ

**nobodyさん** · 04/08/14 17:21

>>712
何を悩んでるのか全くわからん。

**nobodyさん** · 04/08/14 17:27

>>712
>見つかりはするんですが、内容が難しかったり、
難しいんじゃなくてそれが普通なんだよ。
藻前には無理ってことだからあきらめろ。

**nobodyさん** · 04/08/14 17:45

>>713
undefined間違えてすみません。
でも聞く限りではuse strictはやっぱり無駄なモジュールなんですね。
一応文法チェックかけるんでそれで十分だと思います。というか何故に毎回そんなモジュールを読み込む必要が
あるのか？です。なんかアフォぽです。

**nobodyさん** · 04/08/14 17:51

>>716
もう好きにしろよ

**nobodyさん** · 04/08/14 17:51

>>711
( スカラ、アレイ、ハッシュ入り乱れてます) = (undef) x 入り乱れた数;

>>716
プラグマです。

**nobodyさん** · 04/08/14 17:55

use strict;
はstrict.pmとかvars.pmとか色々読み込むので確かに遅くはなりますが、
$a == undefinedとか書いちゃうようなバカにはちょっと遅いくらいが
ちょうどいいと思いますよ。ほんと。

**nobodyさん** · 04/08/14 17:58

>>719
禿同

**nobodyさん** · 04/08/14 18:07

>>716
use strict; に厳しい添削をしてもらって完成したコードが
エラーや警告出なくなったらお引取り願えばいいことも
わからないバカは（ｒｙ

**nobodyさん** · 04/08/14 18:08

>>719
Perlオタクでない人にはオススメってことですか？

**nobodyさん** · 04/08/14 18:09

>>721
文法チェックだけで済ませられないバカは（ry

**711** · 04/08/14 18:15

>>718

@a = qw/1 2 3 4/;
$a = "absnd";
%a = (a => 1);
(%a , $a , @a) = undef;
print "$a\n",%a,"\n@a";

これだけできました。でも一応
(%a , $a , @a) = (undef) x 3;
とかしたほうがいいですか？

**nobodyさん** · 04/08/14 18:17

どんぐりの背比べが始まったｗ

**nobodyさん** · 04/08/14 18:19

>>716みたいなのに限ってcgi.pmを使っている(w

**nobodyさん** · 04/08/14 18:22

>>726
何その妄想

**nobodyさん** · 04/08/14 18:34

>>723
文法チェックだけでは済まない問題も、use strictによって
解決できること分からないバカは（ry

**nobodyさん** · 04/08/14 18:36

飯食いながら左手で打ってたら「も」が抜けちゃったYO

**nobodyさん** · 04/08/14 18:44

夏満開

**nobodyさん** · 04/08/14 19:08

>>724
(%a, $a, @a) = ();

**nobodyさん** · 04/08/14 19:15

(>>1-1000) = undef;

**nobodyさん** · 04/08/14 19:19

>>732
だから、リストコンテキストにスカラーコンテキスト代入してどうするよ！

**nobodyさん** · 04/08/14 19:25

あんでふとーっ！

**nobodyさん** · 04/08/14 19:33

（´-｀）.｡oO(>733 = '逝ってよし';だな)

**724** · 04/08/14 19:33

>>731
それでもできるんですね。
>>733
代入できても、やってはいけないことなのでしょうか？
(%a , $a , @a) = (undef x 3);
これが一番ですか？

**nobodyさん** · 04/08/14 20:37

>>733
コンマ演算子の優先順位が代入演算子より低いから括弧で括る必要が
あるのであって、代入する要素が一つの場合はわざわざリストにする
必要はない。つまり @a = 'a'; は @a = ('a'); と等価。

>>736
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldata.html#List_value_constructors

(%a, $a, @a) = undef; は %a = (undef), ($a, @a) = (); と等価。
(%a, $a, @a) = (undef x 3); は構文エラー。
(%a, $a, @a) = (undef() x 3); は %a = (undef), ($a, @a) = (); と等価。
(%a, $a, @a) = ((undef) x 3); は %a = (undef, undef, undef), ($a, @a) = (); と等価。

**nobodyさん** · 04/08/14 20:43

>>736
もまえは何がやりたいんだ？
(%a , $a , @a) = (undef x 3);
には少なくとも2つの大きな間違いが存在している。

まず、第1にundef x 3は文法エラーとなる。内容は実際に実行してから読め。
そして第2に、
(%a , $a , @a) = (1 => 2, 3, 4);
がどうなるのか考えろ。

**nobodyさん** · 04/08/14 20:46

しかしすごいなあ。
use strictの有用性を説明されても聞かないくせに、
自分の質問にだけは答えてもらおうとする。
さ　す　が　夏　休　み

**nobodyさん** · 04/08/14 21:08

そうか、>>707と>>711は同一人物だたのか。

**nobodyさん** · 04/08/14 21:41

夏休みに買うような本に載っているスクリプトはuse strictしたら
まったく動かない事くらい察してやれよ。

**nobodyさん** · 04/08/14 21:49

>>739
最初は釣りかと思ったが真性包茎みたいだねｗ

**nobodyさん** · 04/08/14 21:58

つーかずっとuse strictつけるとか思ってる奴ってｗｗ
簡易デバッガみたいな使い方だろ、use strictって

**nobodyさん** · 04/08/14 22:01

>strict.pmとかvars.pmとか色々読み込むので確かに遅くはなりますが、

っていうか、人間の感覚じゃまずわからんだろ。
strictは結構効率良いみたいだ。
Benchmark測ればわかる。

そんなことより、速度が遅いとか、無駄とかアフォとか言う前に、基本を勉強するべ
きで、しかもuse strict;の必要性についても、もっと勉強したりここの上級者の言
うことを信用したりしろっての。

**黒死犬** ◆EgxBlf8nvc · 04/08/14 22:38

warnings に助けられたことはあるけど、strict は五月蝿いだけかも・・・
従わなかったところで、挙動が変わるわけでは無いし

http://perldoc.jp/docs/perl/5.8.1/strict.pod

**nobodyさん** · 04/08/14 22:55

my付けるのと付けないので挙動が変わったりするよ

**nobodyさん** · 04/08/14 23:00

use strict って擬似的なモジュールが存在するけど、実際はperlの内部で
完結してるんじゃないの？

まあuse strictと書きたくないなら
$^H |= 2|0x200|0x400;
とでも書きなさいっと。

**nobodyさん** · 04/08/14 23:01

use strict;なんてリリース時にはコメントアウトすればいいだろ。

**nobodyさん** · 04/08/14 23:04

>>748
いやそれが普通の使い方じゃないか？
ずっとuseしてる奴なんか居るのか？

**黒死犬** ◆EgxBlf8nvc · 04/08/14 23:11

>>746
ああ、my変数の typo を教えてくれるという重要な機能がありましたね・・・

sub unko {
　my $unko = shift;
$$unchi = $$**$$; # $$unko (ry のつもり
}

**nobodyさん** · 04/08/15 00:17

先ほど間違ってphpの方で質問してしまいました...
C-BOARDで、投稿画面に追加したセレクトボックスの
投稿データチェック（未選択不可）を行いたいのですが、
どうすればいいのですか？

下記のところに、新しく追加したら大丈夫だと思うのですが..
チェックの仕方がわかりません。

#── メールアドレスをチェック
length($::FORM{'email'})
&& ($::FORM{'email'} !~ /^[!-?A-~]+@[!-?A-~]+\.[!-?A-~]+$/)
&& push(@error, 'メールアドレスが不正です。');

#── パスワードをチェック
($::FORM{'key'} =~ /[<>&"]/)
&& &::error(\('パスワードに「<, >, &, "」は'
. '使えません。'));

**nobodyさん** · 04/08/15 00:33

>>749
めんどいから use strict つけたままだけど
俺んとこは mod_perl だから実行時の速度は変わんないし

しかし珍しく本当に「コーディング」の話題だなあ

**nobodyさん** · 04/08/15 00:49

>>751
■ 自分で改造するアドバイスが欲しい場合には
★三　【スクリプト改造工房 PART 8 】　★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/79（テンプレ）

**nobodyさん** · 04/08/15 00:57

↓のように記述して、csvファイルからデータを読み出したのですが、
読み出した文字列が文字化けしたままなのです。
&jcode'convertで文字コードが変換出来ていないようなのですが・・・
どこが原因なのか、良くわからないのです。
お手数ですが、教えてくださいまし。

require "jcode.pl";

open(FI,"aaa.csv") || return 0;
while(<FI>){
$_ = nkf("-ed",$_);
chomp();
split(",");
if($_[0] eq $bbb){
$ccc = $_[1];
&jcode'convert(*ccc, "sjis");
}
}
close(FI)

**nobodyさん** · 04/08/15 02:36

>>751
まずC-Boardのあるディレクトリを削除する。

**754** · 04/08/15 06:40

すいません、解決しちゃいました。板汚しスイマセン・・・

**724** · 04/08/15 11:33

>>737-738
とりあえず一回で10個くらいの変数（スカラ、アレイ、ハッシュ入り乱れてます）をundefして
メモリを開放したいんです。

($a,@a,%a) = ();
これで完全に未定義の時と同じメモリ状況になるんですか？一応消えるのは確認しましたが。

**nobodyさん** · 04/08/15 12:03

>>757
ならんて。
$aは未定義になるがメモリとは関係なし。
@aと%aは要素がない状態になるだけで、それまでに確保したメモリはそのまま。
ちなみにPerlは最初にある程度のメモリを確保して変数領域に使ってるので
undef @aするとその分の変数領域は解放されるが、システムリソースとしては
喰われたままでPerlが終了するまで解放されない。
過去ログ嫁

**724** · 04/08/15 13:05

>>758
>$aは未定義になるがメモリとは関係なし。
>@aと%aは要素がない状態になるだけで、それまでに確保したメモリはそのまま。
>ちなみにPerlは最初にある程度のメモリを確保して変数領域に使ってるので

Perlではundefしてもメモリの開放はできないから、メモリ開放を期待して
ちょこちょこundefする必要はないってことですね。

**nobodyさん** · 04/08/15 14:37

ageておこう

**ぢおぢお** · 04/08/15 15:24

ifを使ってもしファイルがあったら～の処理をするというのをしたいんですが
ファイルがあったらというのはどうやってすればいいんですか？

**nobodyさん** · 04/08/15 15:28

>761
ファイル検査演算子を使う。

**nobodyさん** · 04/08/15 15:31

演算子だらけのperl

**ぢおぢお** · 04/08/15 15:33

osがwindowsなので前やってみても駄目だったんです

**nobodyさん** · 04/08/15 15:36

>764
何をやってダメだったか書いてみ。
winだからって全てのファイル検査演算子が使えないわけじゃない。
tu-ka,環境依存の話なら先にそれを言え。

**nobodyさん** · 04/08/15 15:54

なにをやってもダメなやつっているよ

**ぢおぢお** · 04/08/15 15:56

if ( -e "$hozon" ) {
print "存在\n";
}
という風に存在したらというのをやったらなりませんでした

**nobodyさん** · 04/08/15 16:04

if (-e $hozon) {

**ぢおぢお** · 04/08/15 16:19

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

**nobodyさん** · 04/08/15 16:39

tesa

**ぢおぢお** · 04/08/15 17:11

if (-e "./nakama/$in{'id'}.cgi") { }
のようなやつで
何々と何々と何々が読み込めたらという処理はどうすればいいんですか？
すみません検索しても分からなかったので

**nobodyさん** · 04/08/15 17:29

>>771
そ　　　ん　　　な　　　お　　　前　　　が
や　　　り　　　た　　　い　　　こ　　　と　
直　　　接　　　の　　　サ　　　ン　　　プ　　　ル　　　は　　　な　　　い

$aと$bと$cが1以上ならという処理はどうすればいいんでしょうか。

考える気がないだろ。

**nobodyさん** · 04/08/15 17:30

>>771
@hozonに全部パスを入れとけアフォ

foreach(@hozon){
print "ok" if -e $_;
}

このクソアフォが！？

**nobodyさん** · 04/08/15 17:32

>>773
っていうか
print "ok" if grep {-e $_}@hozon;
だったな。

**nobodyさん** · 04/08/15 17:37

print "ok" if (grep {-e $_}@hozon) == @hozon;

**ぢおぢお** · 04/08/15 17:44

見ても全然分かりません。出直してきます・・・

**nobodyさん** · 04/08/15 17:45

>>772
if ( $a && $b && $c ){ print "これでよくね？ｗ" }
それとも
if ( $a > 0 ){ if ( $b > 0 ) { if ( $c > 0 ) { print "天山ツームストン" } } }
にするか？いっそのこと
exit || exit;
でいいんじゃん？

**nobodyさん** · 04/08/15 17:46

ウホッ！？フィーバーだ！ｗ

**nobodyさん** · 04/08/15 17:47

なんだこれ　アホらし

**ぢおぢお** · 04/08/15 18:01

＞777
なりませんでした。

**nobodyさん** · 04/08/15 18:08

>>780
バカじゃん

**ぢおぢお** · 04/08/15 18:10

何が？

**nobodyさん** · 04/08/15 18:18

>>782
こいつマジでバカ

**nobodyさん** · 04/08/15 18:41

制御構文で質問です。
foreachのように、毎回スカラにリストの内容を代入する
　　　　　　　　　　　＋
forのように$iに現在のループ回数を入れる。

みたいなことは不可能ですか？foreach側で使うのは keys %hash　なのでforの$iとリンクさせる形での
処理はできません。

**784** · 04/08/15 18:45

うまく説明できませんでしたが、foreachの途中で現在のループ回数を調べて、
ループ回数が一定の基準を超えると、発動する処理をしたいのです。

**nobodyさん** · 04/08/15 18:49

>>785
ダサいやつでいいなら
$i = 0;
foreach(@a){
処理～;
print "2桁キター" if $i > 9;
$i++;
}
で一応できるよ。

**784** · 04/08/15 19:00

>>786
さっそくありがとうございます！

**nobodyさん** · 04/08/15 19:28

%data = (
a => 1,
b => 2,
c => 3,
d => 4,
e => 5,
);
@a = keys %data;
delete @data{@a[1..3]};

これが
$data = {%data};
の場合に
delete @data->{@a[1..3]};
としてもうまくいきませんが、何か方法はありますか？

**黒死犬** ◆EgxBlf8nvc · 04/08/15 20:17

delete( @$data{ @a[1..3] } );

こうですね

**nobodyさん** · 04/08/15 23:12

readでSTDINから読んで、$bufferに代入したいんですが、いきなりリファレンスとして代入というのはやってもいいんでしょうか？
read(STDIN,$$buffer,$ENV{CONTENT_LENGTH});
のようにすればできたのですが、いきなり$$bufferに代入するとおかしい気がするので（シンボリックリファレンス？なんか非推奨って読んだ気がします）
$buffer = \"";
read(STDIN,$$buffer,$ENV{CONTENT_LENGTH});
とかを考えてみました。

**nobodyさん** · 04/08/15 23:37

☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　★
☆　新規質問は名前欄・メール欄を空にして行え　　　　　　　　　　　　　　　　　 ☆
★　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　★
☆　質問者が返信する際は、名前欄に「最初に質問したレス番号」を入れろ　 ☆
★　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　★
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

**nobodyさん** · 04/08/16 01:57

メール欄を空にするとage荒らし死ねと言われる。

**nobodyさん** · 04/08/16 02:09

上げっぱなしで続けるからだろ。
こんなところか。

☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ★
☆　新規質問は名前欄・メール欄を空にして行え　　　　　　　　　　　　　　　　　　☆
★　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ★
☆　返信は名前欄に「最初に質問したレス番号」・メール欄に「sage」を入れろ　☆
★　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ★
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

**nobodyさん** · 04/08/16 02:11

メール欄を0にするとブラウザで見てる厨房にどうやってIDだけ消すのと聞かれる。

**nobodyさん** · 04/08/16 02:15

>>793
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 .★
☆　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 .☆
★　右の星もちゃんと整列させてから書き込め　　　　　　　　　　　　　　　　　　.★
☆　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　.☆
★　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ★
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

**nobodyさん** · 04/08/16 02:22

>>795
そういうお前が整列させてから書き込め。

**nobodyさん** · 04/08/16 09:30

っていうかそんなルールこのスレにはないだろ
ウザい質問者は徹底スルーが基本だって。

**nobodyさん** · 04/08/16 09:52

$sth = $dbh->prepare(
qq{ INSERT tbl_name SET name="$hoge{name}" sex="$hoge{sex}" weight="$hoge{weight}" }
)
%hogeにはフォームから送られてきたクエリが格納されてます。

このようなSQLインジェクションをやる場合にXSS対策として、
foreach( keys %hoge){
$hoge{_} =~ s/"|'//g;
}

としてるのですが、これでXSS対策は万全でしょうか？とりあえず上のSQL文の場合、クォートさえ消しておけば
全部文字列として解釈されるので、おかしなことにはならないと思いますが、もしも穴がありましたら
ご指導願います。

**nobodyさん** · 04/08/16 09:56

>>798
わざわざprepareするんだしプレースホルダ使えよ。

**798** · 04/08/16 10:36

>>799
プレースホルダ？？？調べてみます。

**798** · 04/08/16 10:49

$sth = $dbh->prepare(
q{ INSERT tbl_name SET name="?" sex="?" weight="?" }
);
$sth->execute($hoge{name},$hoge{sex},$hoge{weight});

http://www.rfs.jp/sitebuilder/perl/dbi/02.html#プレースホルダとバインド値
ここを見ながらやってみましたが、これであってるのでしょうか？
後から結びつけることで、SQL構文になってしまうようなバインド値の場合にエラーを出して
executeしないんですかね？

**772** · 04/08/16 11:52

>>777
いや、俺にマジレスされてもさ・・・>>771に聞いたんだから。

**nobodyさん** · 04/08/16 17:39

質問させてください。
telnetにて正常動作したperlスクリプトをCGIとして動かすと
エラーになってしまいます。

ログをたどると以下のようになってます。
Can't locate CGI.pm in @INC (@INC contains:
/usr/home/xxx/usr/local/lib/perl5/5.8.4/i386-freebsd
/usr/home/xxx/usr/local/lib/perl5/5.8.4
/usr/home/xxx/usr/local/lib/perl5/site_perl/5.8.4/i386-freebsd
/usr/home/xxx/usr/local/lib/perl5/site_perl/5.8.4
/usr/home/xxx/usr/local/lib/perl5/site_perl
.) at /usr/local/etc/httpd/htdocs/board/index.cgi line 6.
BEGIN failed--compilation aborted at /usr/local/etc/httpd/htdocs/board/index.cgi line 6.
[Mon Aug 16 10:19:51 2004] [error] [client 138.243.201.4]
Premature end of script headers: /usr/local/etc/httpd/htdocs/board/index.cgi

で、不可解に思って、なんでCGI.pmがないんやろかと@INCのフォルダを
洗いざらい調べてみたら、なんときっちり存在しているのです。

なにか他に思いつく原因ってあるでしょうか？
ちなみにperl5.8.4です。

**nobodyさん** · 04/08/16 17:48

>>803
@INC の各パスやファイルのパーミッション

**nobodyさん** · 04/08/16 17:59

>>804
パーミッションは755です。ちなみに705にしてもエラーが出て、
上記のログがApacheのエラーログに追加されます。
またpmモジュールは読めさえ出来ればパーミッション関係なかったような。
ちなみにpmモジュールのパーミッションは444でした。

@INCの各パスとはどういうことでしょうか？
CGI.pmは/usr/home/xxx/usr/local/lib/perl5/5.8.4に確かに存在していました。

**803** · 04/08/16 18:01

>>805
名前とE-mailを入れ間違えた。805=803です。

**nobodyさん** · 04/08/16 18:29

/usr/home/xxx/ の中に usr/local/lib/perl5/5.8.4 があるって事？
おかしくない？よくわからんけど。

**nobodyさん** · 04/08/16 18:33

>>805
/usr
/usr/home
/usr/home/xxx
/usr/home/xxx/usr
/usr/home/xxx/usr/local
/usr/home/xxx/usr/local/lib
/usr/home/xxx/usr/local/lib/perl5
/usr/home/xxx/usr/local/lib/perl5/5.8.4
これらディレクトリ自体のパーミッションが CGI の実行ユーザに対して
開いているか (読取及び実行権限があるか) ? という事。

**nobodyさん** · 04/08/16 18:34

たぶん自分の home に自分で入れたんだろう

一番疑われるのは、既出の通りファイルまたはディレクトリのパーミッションが
apache の実行権限で読めないようになってる、という可能性だが、
それじゃないなら、なんだろうなあ
まさか apache が実行時に chroot されてるとかか?
apache の管理人に相談した方がいいような気もする

**nobodyさん** · 04/08/16 18:55

>>803
スレ違い

**nobodyさん** · 04/08/16 18:58

「Apache(から呼び出されたPerl)が/usr/home/xxxに入れない」に一票

**nobodyさん** · 04/08/16 20:25

MD5暗号化、照合ライブラリってないものでしょうか。
cryptがサーバ対応してなくてMD5使えないもので、
ありましたら使い方等教えていただけますと幸いです。