Perl 初心者コーナー Part23

**nobodyさん** · 03/05/16 11:18

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

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

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

CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

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

**nobodyさん** · 03/05/16 13:52

>>9
は？
どっから引っ張ってきた話？
普通にperlです。

**nobodyさん** · 03/05/16 13:58

>9
Perlについての質問箱 5箱目
ttp://pc2.2ch.net/test/read.cgi/tech/1053053082/

CGIではないPerlの話なら、ム板のスレがいいと思われ。

**nobodyさん** · 03/05/16 14:50

ということは、やはりcgiを主眼に置いてるのかな。

cgi書いたことねえ。

**nobodyさん** · 03/05/16 15:16

tu-ka,「CGIに依存しないPerlの話題一般」ってスレが>>1にあったじゃないか。
見落としていた>11こと俺萎え。

**nobodyさん** · 03/05/16 16:21

んー、cgi以外のスレはどこ? と聞いてる訳ではなくて。
ム板の方では、cgiはWebProgに逝け、と誘導されてる訳で、
その割に、こっちの方では特にcgi向けのスレであることを謳ってない。
というか、むしろperl全般に見えるしcgiに特化した話を排斥する
傾向さえ見られる。

スレのスタンスがよくわかんない、という話。

**nobodyさん** · 03/05/16 16:25

>14
基本的にはCGIでのPerl話題。
WebProg板だからな。

CGIに特化した話を排斥しているように見えるのは、その話題がほぼ必ず
「コーディングの話題じゃない」からだ。
つまり、「CGIとしてPerlを使う時のコーディングの話題」のスレってことだ。
確かにスレタイや>>1を見ただけではわかりにくいかもな。

**nobodyさん** · 03/05/16 16:39

新参者ばっかだな。
ム板のPerlスレは、いつもるびきちやらにwebprog行けって
言われて、前の（前の）スレは、あいつに荒らされでぽしゃった。
だから、CGIじゃないPerlの話題もこっちが主流だった。
こっちじゃ、CGIのスレがあるから、Perl初心者コーナーは、
CGI以外のPerlについて話す場所にしようとみんなでしてた。
前の前のスレの＞＞１を見れば分かる。
でも、るびきちの荒らしがなくなったので、まあ、CGIでも
CGI以外でもPerlのコーディングに関するものなら、いいんじゃ
ないか。高度なのは、ム板、比較的簡単なのは、こっちで
どうかな。

**nobodyさん** · 03/05/16 17:40

%mode2name = (
　　'sql_arrange' => "顧客絞込み条件の入力",
　　'select' => "該当顧客の閲覧",
　　'writemail' => "メールの記入"
);

foreach $value (keys %mode2name){
　　$HtmlTmp .= qq|$mode2name → |;
}

print $HtmlTmp;

とやると、　
「該当顧客の閲覧 → メールの記入 → 顧客絞込み条件の入力 → 」
と表示されます。

これを、%mode2name = で設定した順番、つまり、
「顧客絞込み条件の入力 → 該当顧客の閲覧 → メールの記入」
と表示させるには、

foreachの部分はどう書けばいいのでしょうか？

**nobodyさん** · 03/05/16 17:51

>>17
ハッシュは代入された順番を保持できないよ。（どういう順番で記録されるかは不定）
順番を保持させたいならリストを使うべし。

**nobodyさん** · 03/05/16 17:56

>>17
foreach $value ('sql_arrange','select','writemail'){
　　$HtmlTmp .= qq|$mode2name{$value} → |;
}

**nobodyさん** · 03/05/16 18:20

>>17
ハッシュに入っているキーの量が少ない(メールフォーム程度)なら、
キーに01,02等の通し番号を(キーの頭に)付けておいて、
foreach $key (sort keys %hash)
する手がある。表示もcgiでやるならsprintfして出力するだけだから簡単。
場当たり的なのが欠点。

perl cookbookにはTie::IxHashモジュールを使えとある。
こっちの方がたぶん正道のような気もするが、使ったことないので要調査ということで。

17 · 03/05/16 19:01

>>19
頭いい！？と思ったが、
ちょっとそれは気持ち悪い。。。

>>20
とりあえず、
＞キーに01,02等の通し番号を(キーの頭に)付けておいて
でやってみます

**nobodyさん** · 03/05/16 23:42

%mode2name = (
　　'sql_arrange' => ["01","顧客絞込み条件の入力"],
　　'select' => ["02","該当顧客の閲覧"],
　　'writemail' => ["03","メールの記入"]
);
で、1項目目でソートしたキーを入れるに入れて
foreach ( @hoge ) {
$ref = $mode2name{$_};
$.... .= "$ref->[1]";
}
見たいな感じでいけないかな。実際に動かしてないからちびっと不安

**nobodyさん** · 03/05/16 23:43

入れるに入れて→配列に入れて

**nobodyさん** · 03/05/17 00:51

複数のファイルのデータをソートするにはどうすれば？
データの構成は一緒なんですが。

@date = @date[sort {$tmp1[$b] <=> $tmp1[$a] || $tmp2[$b] <=> $tmp2[$a] || $tmp3[$b] <=> $tmp3[$a] || $tmp4[$b] <=> $tmp4[$a]} 0 .. $#tmp1];
@date2 = @date2[sort {$tmp1[$b] <=> $tmp1[$a] || $tmp2[$b] <=> $tmp2[$a] || $tmp3[$b] <=> $tmp3[$a] || $tmp4[$b] <=> $tmp4[$a]} 0 .. $#tmp1];

これでは別々になってしまうし・・・

**nobodyさん** · 03/05/17 01:02

>>24
両方のファイルを結合してソートすればいいんじゃないの？

**nobodyさん** · 03/05/17 07:15

perlって
ほにゃらら if ほげほげ
ってかきかたはできるみたいですが、
これにelseの意味も加えた１行の書き方ってないですか？

**nobodyさん** · 03/05/17 07:20

優れたソース見て勉強したいんですが、
初心者が見て勉強になるソースってどれでしょうか？

**nobodyさん** · 03/05/17 07:26

>>26
三項演算子かな

>>27
動物シリーズ

**nobodyさん** · 03/05/17 08:08

おすすめサイト一覧です☆
http://accessplus.jp/staff/in.cgi?id=10645
http://www.39001.com/cgi-bin/cpc/gateway.cgi?id=neat
http://www.emzshop.com/goodstyle/
http://members.tripod.co.jp/neatstyle/index.html.html

**nobodyさん** · 03/05/17 10:38

エロ嫌いならクリックしなきゃいいじゃん。
http://accessplus.jp/staff/in.cgi?id=11141
ﾌﾟﾆｭ　（ﾟ∀ﾟ）σ)´Д｀)

**nobodyさん** · 03/05/17 10:55

http://sapporo.cool.ne.jp/kitahama/

**nobodyさん** · 03/05/17 14:49

2つのファイルを比較して違う行を出したいんだけど、
こんなののほかに何かいいのありますかね。
open(FILE1, "test1.txt") or die "$!\n";
@file1 = <FILE1>;
close FILE1;
open(FILE2, "test2.txt") or die "$!\n";
while(<FILE2>) {
print $_ unless grep($_, @file1);
}
close FILE2;
よろしうお願い島。

**nobodyさん** · 03/05/17 14:57

ファイルを一つだけ開く、というのが気持ち悪い
開くなら開く。読み込むなら読み込む。

**nobodyさん** · 03/05/17 15:03

open(DIFF, "diff test1.txt test2.txt|")

**nobodyさん** · 03/05/17 15:10

>>33
つうことは、（１）開くなら開く:
open(FILE1, "test1.txt") or die "$!\n";
@file1 = <FILE1>;
close FILE1;
open(FILE2, "test2.txt") or die "$!\n";
@file2 = <FILE2>;
close FILE2;
for(@file1) {
print $_ unless grep($_, @file2);
}
とか、（２）読み込むなら読み込む:
open(FILE1, "test1.txt") or die "$!\n";
open(FILE2, "test2.txt") or die "$!\n";
while(<FILE1>) {
$this = $_;
while(<FILE2>) {
print unless $_ eq $this;
}
}
close FILE1, FILE2;
とか？（２）は、ちょっとばかばかしいしぃ。

**nobodyさん** · 03/05/17 15:10

>>34
ありがとん。でもdiffは、使わないでってことで。

**nobodyさん** · 03/05/17 15:13

>>32,35
grep(/^$_$/, ..)にしなきゃだめですた。

**nobodyさん** · 03/05/17 15:40

すみません。クソみたいな質問します。
自分でもクソ質問って分かってるけど、なぜか思うように動かないのです。

$pattern[0] = "あああ.30";
($test_1, $test_2) = split("\.", $pattern[0]);
print "$test_1\n";

なぜか代入されない。不思議。

**nobodyさん** · 03/05/17 15:45

>>38
($test_1, $test_2) = split("\.", $pattern[0]);
↓
($test_1, $test_2) = split (/\./, $pattern[0]);

不思議。

38 · 03/05/17 16:14

>>39
それだとうまく行きました。

不思議。

**nobodyさん** · 03/05/17 16:16

それだと、、って。
そういうもんだろ。

不思議。

38 · 03/05/17 16:21

@age = split("\," , $data{'age'});
($decode_name, $decode_value) = split("=",$decode_pair);

上の二つは正常に作動してるから、
($test_1, $test_2) = split("\.", $pattern[0]);
これも正常に作動すると思ったんだけど…。

しなっかったのよ。
不思議。

**nobodyさん** · 03/05/17 16:32

>>42
＞上の二つは正常に作動してるから、
正常って何だよ。異常だろ。

http://flex.ee.uec.ac.jp/texi/perl/perl_56.html

**nobodyさん** · 03/05/17 16:39

split って /re/ じゃなくても動くよな。

**nobodyさん** · 03/05/17 16:41

省略記述で / / を省ける時や、別の文字を書ける時があったような気がする。
条件は忘れた。

**nobodyさん** · 03/05/17 16:42

代入演算子について質問です｡
||=や<<=などの代入演算子について知りたいのでつが、"代入演算子"でぐぐっても=や.=、+=くらいの一般的(といっていいのか疑問でつが)な代入演算子を解説しているサイトしかヒットしません｡
代入演算子について詳しく解説してあるサイトをご存知な方はURLを貼り付けてください｡
おながいしまつ。

**nobodyさん** · 03/05/17 16:46

>>42
区切りに使う文字によって　""　’’　//　に違いが出るの
//が無難かもね

**nobodyさん** · 03/05/17 16:51

>>46
難しく考えなくていいんでないの？
$a ||= &b;
は
$a = $a || $b;
ってだけでしょ。
仮に、$a=0,$b=1 だったら、
右辺の結果、真になるので、$a=1となるだけ。

**nobodyさん** · 03/05/17 16:52

$a ||= &b;
↓
$a ||= $b;

**nobodyさん** · 03/05/17 16:55

>>46
こんなのは？
ttp://www.big.or.jp/~mio/ga/pl/plman/ploper.htm

38 · 03/05/17 16:56

なるほど。
perlは妙な落とし穴が多いですね…。
実はperl独特の落とし穴（？）に何回もはまってます。

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

46 · 03/05/17 17:43

ありがとうございますた。
助かりますた｡

**nobodyさん** · 03/05/17 17:45

>>42
splitの1つ目の引数に渡せるものは、「正規表現」か「文字列」。
文字列が渡されれば、それを正規表現と解釈する。だから、これらはすべて同じ動作。

split /\./
split m/\./
split qr/\./

split "\\."
split '\\.'
split qq/\\./
split q/\\./

**nobodyさん** · 03/05/17 17:58

>>53
文字列時は \\. になるのは盲点だなー。
勉強になたよ。

38 · 03/05/17 18:06

なぜ\\になるのかが…分からん。
q[\\.]って超不思議なんだけど。

ですが、俺に中では「気にしない」と言う方向で落ちつきました。
ありがとです。

**nobodyさん** · 03/05/17 18:23

データのエンコードですが。。。
よく引数でtext=%82%A0%82%A2%82%A4%82%A6%82%A8っていう％に続く2桁の16進数でデータが渡りますよね｡
デコードするには
$value =~ s/ %( [a-fA-F0-9][a-fA-F0-9] ) / pack ( "C" , hex ($1) ) / eg ;
ですよね。
あえて日本語を％に続く2桁の16進数にエンコードするにはどうするにはどうすればいいのですか？
データを送って自動でエンコードされたのを取り出すのはなしってことでお願いします｡

**nobodyさん** · 03/05/17 18:35

>>56
$encode = join('',map{　s/(\W)/'%' . unpack('H2', $1)/eg;　} split(//,$data));

コレでどうやろ？

**nobodyさん** · 03/05/17 19:07

PHPにはurlencode urldecodeっていう関数あるから
Perlでそれを作ってもいいかもね

あいうえお
%82%A0%82%A2%82%A4%82%A6%82%A8
あいうえお
---

$a = 'あいうえお';
print("$a\n");
$a = urlencode($a);
print("$a\n");
$a = urldecode($a);
print("$a\n");

sub urlencode{
my $str = $_[0];
$str =~ s/([^\.\*\-_a-zA-Z0-9 ])/sprintf("%%%02lX",unpack("C",$1))/eg;
$str =~ tr/ /+/;
return $str;
}

sub urldecode{
my $str = $_[0];
$str =~ tr/+/ /;
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
return $str;
}

56 · 03/05/17 19:38

>>57さん。
ダメです｡
”あいうえお”が”1111111111”になってしまいます。

>>58さん。
これでうまくいきました｡
ありがとうございました。

**nobodyさん** · 03/05/17 20:22

前スレで、perlで描画しようとしたら、1001に達していて、
書き込めませんでした。皆さん、以下のスクリプト実行してみて。

@perl=qw(ＰＥＲＬＰｅｒｌｐｅｒｌ PERL Perl perl);
for(0 .. $#perl) {
@tmp=@perl;
print join('、', splice(@tmp, $_)), "\n";
}
@mansei=split(//, 'perl');
for(1 .. $#mansei) {
@tmp=@mansei;
print splice(@tmp, $_), "\n";
}
for($i=$#mansei; $i>0; $i--) {
@tmp=@mansei;
print splice(@tmp, $i), "\n";
}
for ($i=$#perl; $i>=0; $i--) {
@tmp=@perl;
print join('、', reverse(splice(@tmp, $i))), "\n";
}

もっとうまく書けるかな？

**nobodyさん** · 03/05/17 20:37

あれは、書いてるうちに埋まってしまう、というのが
面白かったのに。

**nobodyさん** · 03/05/17 21:14

　　　　　　　　正直、スマンカッタ！！
　　　　　＼＼　正直、スマンカッタ！！　／／
　+　　　+　＼＼　正直、スマンカッタ！！／+
　　　　　.　　＿＿＿　.　＿＿＿　　. ＿＿＿　　　+
　　　　　　 /. ――┤　 /. ――┤ . /. ――┤+
　　　　　　./(. 　= ,= |　./(. 　= ,= |　./(. 　= ,= |
　+　　.　　|||＼┏┓∩|||＼ ┏┓∩|||＼┏┓/　　+
　　　（(　　（つ　　　ノ　（つ　　丿（つ　　　つ　)）
　　　　　　ヽ　（　ﾉ　　（　ヽノ　　　）　）　）
　　　　　　（＿）し　　　し（＿）　　（＿_）＿_）

**nobodyさん** · 03/05/17 21:47

@t=@p=qw(ＰＥＲＬＰｅｒｌｐｅｒｌ PERL Perl perl);
sub p{print join(', ',@_),"\n"}
p(shift@t,@t)while@t;
print substr($p[-1], -abs),"\n"for 3,2,1,2,3;
p(@t=(@t,$t))while$t=pop@p;

**nobodyさん** · 03/05/17 22:04

「_」以外に、エンコードされない文字列というものはありますか？
漠然とした質問ですみません。

58 · 03/05/17 22:07

>>64
.*-_a-zA-Z0-9
以外はエンコードされる

**nobodyさん** · 03/05/17 22:17

>>63
/おみご./

**nobodyさん** · 03/05/17 22:17

おすすめサイト一覧だよ☆
http://accessplus.jp/staff/in.cgi?id=10645
http://www.39001.com/cgi-bin/cpc/gateway.cgi?id=neat
http://www.emzshop.com/goodstyle/

**nobodyさん** · 03/05/17 22:37

6桁ぐらいのユニークな番号を作成する方法ってありますか？

**nobodyさん** · 03/05/17 22:42

>>68
これじゃあ？
print sprintf("%06d\n", rand(999999));

**nobodyさん** · 03/05/17 22:43

ユニークである保証が無い

**nobodyさん** · 03/05/17 22:44

＞68
$ユニークな番号 = int(rand(900000))+100000;

71 · 03/05/17 22:46

68 == 70
と仮定してみる
ナニをもってユニークとするのか聞きたいところだ

**nobodyさん** · 03/05/17 22:56

超笑ったんですけど。よかった。

**nobodyさん** · 03/05/17 23:04

>>65
_はエンコードされないですよね？

**nobodyさん** · 03/05/17 23:07

>>65
ああ、すみません、_も入ってましたね。
しかし、
.*-
は
%2e%2a%2d
とエンコードされますよね？

**bloom** · 03/05/17 23:08

http://homepage.mac.com/ayaya16/

**nobodyさん** · 03/05/17 23:17

68 != 70 なんだけどね
そら、発生は一回じゃなくて、最高999999回発生させるんでしょ。
そのそれぞれが、過去に発生させた数字と重複していないことが
保証されている生成方法

って、全検するしかない気もするな

**nobodyさん** · 03/05/17 23:40

>>77
完全にユニークは無理
かなりの確率でユニークであると仮定するぐらいがいいとこ

**nobodyさん** · 03/05/17 23:51

ハッシュ使ってkeysがundefならば重複してないわけだが？

**nobodyさん** · 03/05/17 23:54

$num++

**nobodyさん** · 03/05/17 23:54

tu-ka,何の目的で使うかによってやり方も変わりそうなもんだが。

**nobodyさん** · 03/05/18 00:06

質問。

まず、環境はウィンドウズ98です。
ファイルの読み書き追記モード(open(OUT, "+<file.txt");)で，
読み込みと書き込みを同時に行おうと思ってますが、
truncateが使用不可能なため、
seek(OUT,0,0);
truncate(OUT,0);
print OUT $a;
の手法が使えません。
truncateの変わりになる方法を教えてください。
かなり調べたんですが、わかりませんでした。

**nobodyさん** · 03/05/18 00:08

書き込みモードで開く。

**nobodyさん** · 03/05/18 00:10

> 読み込みと書き込みを同時に行おうと
思ってます。

終点のtell(OUT)以下を削除する方法です。

**nobodyさん** · 03/05/18 00:10

ヒマなんで作ってみた
@seed = (0 .. 99);
my %seed;
sub init{#初期化
for(0 .. $#seed){
$seed{$_} = $_;
}
}

sub select{#取り出し
my $num = $seed{int(rand(scalar(keys(%seed))))};
delete $seed{$num};
return($num);
}

&init;
$uniq_num = &select;　#コレを繰り返しとな・・・

85 · 03/05/18 00:12

>>85 訂正
my %seed;
sub init{#初期化
for(0 .. $#seed){
$seed{$_} = $seed[$_];
}
}

**nobodyさん** · 03/05/18 00:13

gensym

**nobodyさん** · 03/05/18 00:18

>>82
＞seek(OUT,0,0);
これじゃ追記じゃなく上書きじゃないか

**nobodyさん** · 03/05/18 00:21

>>88
読み込んだ内容を編集して上書きしたいと思ってます。

**nobodyさん** · 03/05/18 00:21

>>82
open(OUT, "+>>file.txt");

**nobodyさん** · 03/05/18 00:22

>>89
http://www.rfs.jp/sitebuilder/perl/05/03.html#open

**nobodyさん** · 03/05/18 00:25

>>90 >>91
色々助言いただいてありがとうございます。
いじくってみます。

**nobodyさん** · 03/05/18 00:26

>>92
っていうか、Win98で鯖を立てることが間違っているのでは

**nobodyさん** · 03/05/18 00:29

質問させてもらいます。
自作関数で、引数が不正の場合に、
Perlの文法チェックでエラーを出力させたいのですが、
方法がわかりません・・・
どうすれば文法チェック時に引数のチェックができ、エラーを出せますか？

**nobodyさん** · 03/05/18 00:37

>>77
@dat0 = @dat1 = ();
foreach(0 .. 999999){ $dat0[$_] = $_; }
foreach(0 .. 999999){ $dat1[$_] = splice(@dat0,rand($#dat0),1); }
ではだめ？

**nobodyさん** · 03/05/18 00:41

>>94
ほっといてもSyntaxErrorになるだろ
不正かどうかのエラー処理はプログラマの責任でやるもの

**nobodyさん** · 03/05/18 00:51

>>94
プロトタイプ宣言しろ。

>>96
うぉい。

85 · 03/05/18 01:05

ハッシュだと駄目だな・・・

@seed = (0 .. 10);

sub select{#取り出し
　　my $key = int(rand(scalar(@seed)));
　　my $num = $seed[$key];
　　splice(@seed,$key,1);
　　return($num);
}

$data = &select;

**nobodyさん** · 03/05/18 01:09

>>95
なぜ、そんな巨大な配列を作るんだ？
コストがかかってしかたないと思うが・・・
普通にfor文でぶん回せば良いと思うのだが・・・

**nobodyさん** · 03/05/18 01:28

１００げと

**nobodyさん** · 03/05/18 01:43

おすすめサイト一覧です☆
http://accessplus.jp/staff/in.cgi?id=10645
http://www.39001.com/cgi-bin/cpc/gateway.cgi?id=neat
http://www.emzshop.com/goodstyle/

**nobodyさん** · 03/05/18 01:53

srand();
my @salts = ( "A".."Z", "a".."z", "0".."9", ".", "/" );
my $salt = $salts[int(rand(64))] . $salts[int(rand(64))];

$crypt = crypt($str, $salt);

こういうルーチンだと、暗号化文字列内に「_」は絶対含まれ
ないですよね？

**nobodyさん** · 03/05/18 01:55

1kbのファイル10個を１つずつopenしてprintしてcloseするのと、
10kbのファイルをopenしてprintしてcloseするのは
どっちが処理に時間がかかるのでしょうか？

**nobodyさん** · 03/05/18 01:59

だんぜん前者

**nobodyさん** · 03/05/18 03:23

>>102
どんなルーチンかは関係なくcryptの戻り値に「_」が含まれることはない
そもそも、そのルーチンってsaltをランダムにしてるだけじゃないの

83 · 03/05/18 05:27

>>84
改めて開くんだよ。それくらい理解しろよ。

**nobodyさん** · 03/05/18 05:30

>>93
>>82は鯖を立てているとは言っていないんだが。

**nobodyさん** · 03/05/18 06:12

>>105
ボケボケでした。ご指摘有難うございます。
貴重なご返答有難うございました。

**nobodyさん** · 03/05/18 07:34

ム板から追い出されてしまいました･･。

すみません、質問です。
csvファイルの一番上から順に1レコード読み込んで、$idと$keycodeが等しければ
それぞれ変数に代入する、という検索の部分なのですが、$idが奇数、又は偶数だ
と（csvファイルのレコード数が奇数か偶数かによる）検索失敗しまいます。
尚、$data = <IN>;の部分は、手元の本だと$data =　$_;になっています。これだと
全く代入されません。
csvファイルに問題は無いと思います。お願いします。

$match = 0;
open IN,"log.csv";
while((<IN>)and($match == 0)){
$data = <IN>;
chop $data;
($keycode) = split(/\,/,$data);
if($keycode == $id){
($keycode,$flg,$mailadd,$name,$title,$comment) = split(/\,/,$data);
$match = 1;
}
}
close IN;