Perlについての質問箱 47箱目

2011/05/25(水) 23:18:12.33

CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: http://hibari.2ch.net/php/ )

このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。

"The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。

http://www.perl.org/get.html
● 2011/05/25 現在の最新版: 5.14.0

▼ 前スレ
Perlについての質問箱 46箱目
http://hibari.2ch.net/test/read.cgi/tech/1297677532/
リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは >>5-7 あたり

2011/05/25(水) 23:18:52.40

[プログラミング自体の経験が無い奴はまずココを読め]
Perl プログラミング講座: ttp://www.site-cooler.com/kwl/perl/

[本]
リャマ: ttp://www.oreilly.co.jp/books/9784873114279/
駱駝: ttp://www.oreilly.co.jp/books/4873110963/
Effective Perl: ttp://ascii.asciimw.jp/books/books/detail/4-7561-3057-7.shtml
クックブック: ttp://www.oreilly.co.jp/books/4873112028/
Perl ベストプラクティス: ttp://www.oreilly.co.jp/books/4873113008/
Perl Hacks: ttp://www.oreilly.co.jp/books/9784873113142/

[オンラインマニュアル]
最新のドキュメント: ttp://search.cpan.org/dist/perl/
perldoc.jp: ttp://www.perldoc.jp/
perldoc.perl.org: ttp://perldoc.perl.org/

2011/05/25(水) 23:19:02.02

[モジュール]
CPAN.com: ttp://search.cpan.org/
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/

[テクニック]
Perl メモ: ttp://www.din.or.jp/~ohzaki/perl.htm
Perl のページ: ttp://homepage1.nifty.com/nomenclator/perl/
Perl の小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl 5.8 Unicodeメモ]
ttp://www.rwds.net/kuroita/program/Perl_unicode.html (修正)
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

2011/05/25(水) 23:19:12.89

#　[Perl 日本語処理の基礎の基礎]
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
#　入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
#　まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)"; # ※1
use Encode;
#　次に、あなたが実行したい処理の内容を入れて下さい。
$file = 'C:/なんたら/かんたら.txt';
open my $fh, '<', encode("cp932", $file) or die $! ; # ※2
print <$fh>;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
#　【注】※1. の行を入れると、DOS 窓への日本語出力は簡便になりますが、
#　ソースファイル名に非 ANSI 文字が含まれる場合に die 文の出力が失敗します。
#　※2. OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、
#　この例のように cp932 でエンコードする必要があります。

2011/05/25(水) 23:19:21.98

2011/05/25(水) 23:19:28.30

2011/05/25(水) 23:19:36.28

[過去スレ3]
41 http://pc12.2ch.net/test/read.cgi/tech/1249581780/
42 http://pc12.2ch.net/test/read.cgi/tech/1257139591/
43 http://pc12.2ch.net/test/read.cgi/tech/1266565626/
44 http://hibari.2ch.net/test/read.cgi/tech/1280541200/
45 http://hibari.2ch.net/test/read.cgi/tech/1287755129/
46 http://hibari.2ch.net/test/read.cgi/tech/1297677532/

2011/05/25(水) 23:21:56.41

>>1乙

テンプレなげーよ。

2011/05/26(木) 02:10:26.60

JPerl からひさしぶりに Perl な世界でよくわかりませんが >>4 の

binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";

が

use encoding "cp932";

でも、いいような気がしるけど、いまいち理解できてないです…

2011/05/26(木) 02:38:46.95

それは気のせいだよ

2011/05/26(木) 06:36:42.24

>>9
全然ダメ

2011/05/26(木) 12:40:27.81

>>10-11
kwsk

2011/05/26(木) 13:14:43.30

use encoding "cp932"にするとソースもcp932で書かなきゃ
いけなくなるのが余計ってことなんじゃ。

2011/05/26(木) 13:15:44.46

>>12さんどうもです。

とりあえず、最初は

use utf8;
use encoding "cp932";
use open IO => ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";

こんな感じで、UTF-8形式でソース保存しています。
あ…ファイル名に全角文字だとさらにややこしくなるんですね… orz

2011/05/26(木) 13:17:59.16

実行環境は、Win7 64bit コマンドプロンプトのローカル環境です。

2011/05/26(木) 14:19:17.56

use utf8 するとめんどくさいので、use utf8 は使わないなぁ
ソースを utf8 で保存しれりゃ別にえぇんとちゃうのん？と思う。

文字数を数えたいなら decode してフラグ付けりゃいいだけだしさ。

2011/05/26(木) 14:33:53.73

もつ

2011/05/26(木) 15:11:12.92

>>1 乙

テンプレが長いのは過去スレが多いからだが、過去スレはやめても
いいんじゃない？
他のスレでも、省略しているものが多いみたいだし。

2011/05/26(木) 17:37:42.78

フォームから入力されたデータ
例えばwww"aaa"www"bbb"という文字列の
タグの中の"を'にタグ外の"は＆quot;に変換して
www＆quot;aaa＆quot;www＆quot;bbb＆quot;というようにするには
どうしたらいいんでしょうか？

2011/05/26(木) 18:19:43.27

>>19
そんなこと聞いてるやつがインジェクション攻撃に
対処できると思わないからタグ自体禁止する。

2011/05/26(木) 18:44:50.03

たぶん聞かないなこりゃ＜タグ禁止

2011/05/26(木) 18:50:12.18

>>19
1.行全部のクォートを"にする
2.タグの中の"を'に変換する
3.SQLなどへのインジェクションで泣きを見る
4.あなたは晴れて失業
5.perl忍者が増える

2011/05/26(木) 21:40:54.68

すみません初歩的な質問なのですが
ハッシュ変数wordに$word{"テスト"}="だよ";
のような感じで値を渡しているのですが
いざif文で if ($word{$a} == "だよ")で判別しようとすると
$aがどんな値でも上記の条件式が必ず実行されてしまいます。
意味不明だと思いますがエスパーの方いましたらよろしくお願いします。

2011/05/26(木) 22:03:53.54

初歩の初歩だ
文字列比較には==ではなくeqを使え

2011/05/26(木) 22:33:22.35

== eq
!= ne
常識

2011/05/26(木) 22:42:03.07

>>24-25
無事解決しました!
なるほど文字列の比較の仕方が間違ってたんですね。
どうもありがとうございました。

2011/05/26(木) 23:01:20.86

>>19
タグの外ってことは > と < にはさまれてるって考えれば良いかと

2011/05/26(木) 23:10:34.54

>>27
<img/>とか はどうすんの

2011/05/26(木) 23:30:08.44

>>14
> use utf8;
> use encoding "cp932";
両方同時に使うのは間違い

ttp://perldoc.jp/docs/perl/5.8.1/utf8.pod
ttp://blog.livedoor.jp/dankogai/archives/51221731.html

2011/05/27(金) 03:45:12.00

うーむ、>>14の例がどうしてutf8が優先されるのか分からない。
それは置いといて、encodingを使うと、
binmode STDIN => ":raw :encoding(cp932)";
binmode STDOUT => ":raw :encoding(cp932)";
こうなって、"\n"の挙動が変わるから注意は必要だね。

2011/05/27(金) 08:24:04.59

単に記述を短くしたいだけなら以下でいいのでは？

use utf8;
use open qw(:encoding(cp932) :std);

2011/05/27(金) 10:32:06.73

>>19
>フォームから入力されたデータ
この意味がよくわかんないんだけど、単なる文字列の変換なら

my $str = 'www"aaa"www"bbb"';
$str =~ s/(<[^>]*?)"(.*?)"/\1'\2'/g;
$str =~ s/"/＆quot;/g;

2011/05/27(金) 13:05:02.52

文字列の #ff4500ff とか 16進数の 0xff4500ff とかを
0 から 1 までの範囲の RGBA の配列に変換してくれるモジュールには
どういったのがあるのでしょうか？
サブルーチンを自分で書いた方が早い気がしますが、
CPAN にあるのならそれを使った方が良いかなあ？と思って

2011/05/27(金) 13:25:00.08

正規表現で.(ドット)は改行以外の任意の１文字ですが
改行を含む任意の１文字はどう表現すればいいですか？

2011/05/27(金) 13:39:48.57

>>34
s修飾子を使うか | で並べる

/./s
/.|¥n/

お好きな方で。

2011/05/27(金) 14:42:25.83

>>30
よく解らなかったので検索したら、たとえば

binmode STDOUT => ":crlf:encoding(cp932)";

という指定で大丈夫でしょうか？

2011/05/27(金) 17:58:40.36

>>36
礼儀正しくやるならそうなるね。
面倒ならSTDINだけ:crlfを追加とか。
binmode STDIN => ":crlf";

2011/05/27(金) 18:52:12.71

$str="aaa{aaabbbccc}aaa{aaabbbccc}";の
{}の中のaaaをAAAにしたいんですけど
$str=~s/{aaa}/AAA/g;としてもうまくいきません
どうすればうまくいくんでしょうか？

2011/05/27(金) 19:03:27.46

Perlはじめようと思ったのですが
やめたほうがいいといわれたのでやめます

2011/05/27(金) 19:23:35.56

>>38
$str="aaa{aaa}aaa{aaa}";
なら $str=~s/{aaa}/AAA/g;でうまくいくよ。

2011/05/27(金) 22:48:57.57

こえぇ…pmとかでお伺いを立てないで
CPANにUPすると容赦なくdisられるのな…。

2011/05/27(金) 23:22:45.70

初歩の初歩だけど

#!C:/Perl/bin/perl

require 'cgi-lib.pl';
require 'jcode.pl';

print "Content-type: text/html\n";
print "\n";

%form = &read_input('euc');

$name= $form['name'];

print "$name";

これでなんで何も表示されないのか全くわからん。
ディレクトリ内の「cgi-lib.pl」の名前を変えてみたところサーバーエラーになったらから、
「cgi-lib.pl」の読み込みはちゃんとできていたということになるんだけど。

2011/05/27(金) 23:24:08.08

$name= $form['name'];
これなに

2011/05/27(金) 23:27:48.26

連想配列のnameの要素を参照したんだけど。

2011/05/27(金) 23:37:14.62

$name = $form{'name'};

2011/05/27(金) 23:49:49.21

［］配列
｛｝ハッシュパピー

2011/05/27(金) 23:56:18.76

あ、そっか。ありがとう！

よーし治……らない！　なぜ。

2011/05/27(金) 23:59:50.55

print $

2011/05/28(土) 00:00:50.35

print %form

した結果はどうなる？

2011/05/28(土) 00:07:35.23

>>49　相変わらず何も出ませんの。

2011/05/28(土) 00:10:44.02

&read_input('euc');
ジャッジメントですの！

2011/05/28(土) 00:19:17.65

cgi-lib.plで使える関数ですってよ？
というか
http://www.tiu.ac.jp/~nakabasa/Internet/CGI/cgi4.html
このページの下のほうを参考にしたんで、負ける気がしない！

2011/05/28(土) 00:24:03.09

Perl4とかゴミだろ

2011/05/28(土) 00:24:44.84

めんどくさいので以下のように書き換えるがよろし

use CGI;
my $form = CGI->new;
print $form->param('name');

2011/05/28(土) 00:32:24.33

500エラー来ました。

もう１度検討を重ねてから出直してきます。

2011/05/28(土) 01:20:02.71

ああ、なんか&read_input('euc');が入ってると問答無用で何一つ出力されなくなるみたい。

2011/05/28(土) 01:28:18.81

なんかよくわかんないけど
&read_input('euc');
をやめて
&ReadParse;
にしたらできた。ていうかcgi-lib.plに「read_input」なんて文字列自体存在しなかったぞ。どうなってんだ＾o＾

2011/05/28(土) 02:33:27.61

初歩の初歩以前の問題だったようだな

2011/05/28(土) 05:41:01.87

cgi-lib.pl は古いから CGI.pm 使えって

2011/05/28(土) 07:12:47.44

cgi-lib互換モードもあるよ

use CGI ':cgi-lib';
%form = Vars;

2011/05/28(土) 12:29:11.06

ご丁寧にありがとうございました。
でもすでに手作業で移行しますた

2011/05/29(日) 03:13:18.36

>>61
> でもすでに手作業で移行しますた
なってねえな～「でもすでに」じゃねーだろ
そういう時はウソでも「参考になりました」とか「もっと精進します」とか書いとけよ

2011/05/29(日) 03:23:49.62

これ以上ゴミコードを増やす意味はないだろ。

2011/05/29(日) 04:26:29.99

>>63
日本語でおｋ

2011/05/30(月) 11:26:36.12

cpan> install Gtk2
Running install for module 'Gtk2'
Running make for F/FL/FLORA/Gtk2-1.223.tar.gz
Has already been unwrapped into directory C:\strawberry\cpan\build\Gtk2-1.223-C10W1L
'C:\strawberry\perl\bin\perl.exe Makefile.PL' returned status 512, won't make
Running make test
Make had some problems, won't test
Running make install
Make had some problems, won't install

なんかこうなるようになっちゃったんですけど
最初からやり直すにはどうしたらいいんざましょ？

2011/05/30(月) 13:26:37.32

>65
エラーメッセージで
「Gtk2-1.223.tar.gz は C:\strawberry\cpan\build\Gtk2-1.223-C10W1L にもう展開してあるよ！」って言ってるんだから
コマンドプロンプトで　C:\strawberry\cpan\build\Gtk2-1.223-C10W1L に移動して、

make
make test
make install

で良いんじゃないの？

2011/05/30(月) 14:15:45.27

cpan> look Gtk2

2011/05/30(月) 21:53:49.88

while(<>){
}
この<>はなんですか？

2011/05/30(月) 22:06:24.93

>>68
@ARGVに設定された引数のファイル名の内容を順に１行読むか、引数がない場合は標準入力から読む、という指定。
I/O Operators in perldoc perlop

2011/05/30(月) 22:10:13.37

>>68
山カッコ演算子。
ダイヤモンド演算子とも呼ばれる。

2011/05/30(月) 22:10:56.31

ダイヤモンド演算子

2011/05/30(月) 22:35:16.91

>>71
ん？間違ってる？

2011/05/30(月) 22:40:02.95

>>69-71
ありがとうございます。検索しても記号だと見つからないようなので助かりました。

2011/05/30(月) 22:43:00.98

いえいえ、どういたしまして。

2011/05/31(火) 09:24:40.69

暇な人に対するアホな質問です。

昔自分で作った記述ですが、昔すぎて作ってた時の記憶が出てきません。
特定のケースで不備が出る場合とか、そうゆうのを思いついたら教えてください。

処理の目的はどんな文字でも一緒に混ぜても大丈夫、みたいな感じです。
たぶん一般的な通信のヘッダーとかの分解にも使えたような気がします。

sub Separator_join ($$;@) {

    my $separat =  shift           or return();
    my $enclose =  shift           or return();
    my @entity  =  @_              or return();
       $separat ne $enclose        or return();

    map {s/($separat+)/$separat$1/go}  @entity;
    return( join qq[$enclose$separat$enclose], @entity );

}
#▼Separator_joinで生成されたスカラーに対し、安全にセパレータで分割してリストを返す
sub Separator_split ($$$) {

    my ($separat, $enclose, $all) = @_;
    my @entity = split /$enclose$separat$enclose/, $all;

    map{s/$separat(?!$separat)//go} @entity;
    return(@entity);

2011/05/31(火) 10:25:46.36

q{0}

2011/05/31(火) 13:01:56.41

>>76
ありがとうございます。Perlだったか！という感じです。

アルゴリズム的な問題とか、想定範囲の抜け目とか、その変もお願いします。
おかしな事が起きない確証(？)って言うか確信みたいなのが欲しい感じです。

メモリが足りない場合……とか、そうゆう関数に直接関係ないのはいいですけど。
別に暇な人でいいんで、お願いします。

曖昧な記憶ではメールの仕様と同じだったと思うんで、
どんな内容でもデータは壊れないし復元できると信じたい想いなんですが。

2011/05/31(火) 13:19:05.51

文字が化けちゃうんですけど化けないようにするにはどうしたらいいんでしょうかね？
>>4のやり方で、MechanizeでShift_JISのページを取得してファイルに出力したところ、
①Ⅱ℡〒が
\x{fffd}@\x{fffd}K\x{fffd}Z〒に
なってました。

2011/05/31(火) 13:21:12.04

MovableTypeのカスタマイズのためだけにPerlをこれから覚えるのは時間かかりますか？

2011/05/31(火) 13:31:09.93

$separatと同じ文字が$encloseに混じってたりすると嫌なことが
起こりそうとか、メタキャラクタのエスケープしてないぞとか
s///o使ってるので$separatや$encloseを違う文字列で呼んだら
おかしくなりそうとかその辺が突っ込みどころかなぁ。

ちゃんと仕様を残しましょうww

2011/05/31(火) 13:47:15.14

外部コードは処理する前に内部コードに変換

2011/05/31(火) 15:33:04.61

ありがとうございます。

>$separatと同じ文字が$encloseに混じってたりすると嫌なことが
>起こりそうと

考えてみた結果、

$separat = q(/);
$enclose = q(_/);
@entity = (q(_/_/));

これで見事におかしくなる予感がしました。
こんな引数使う馬鹿誰だよ、って少し思いますけど。
一文字限定とか仕様変えてもいいんですが、既存のどっかにバグが出たら嫌なので
重複文字列の全チェック関数を作ります。無駄に重たくなりそうだけど…。

>メタキャラクタのエスケープしてない
仰るとおりです。

>s///o使ってるので$separatや$encloseを違う文字列で呼んだら
>おかしくなりそうとかその辺が突っ込みどころかなぁ。

あれ、関数を再度呼んだらoは初期化されないんですか？
ループの中だけで有効で、スコープ抜けたら初期化される物と勝手に思ってました。
すみません検索してきます。

2011/05/31(火) 19:44:13.28

>>81
decode('cp932',$cp932_char);
decode('utf8',$utf8_char);
とかやってから処理すればいいんですかね？
なんだかどれがどれと一緒なのかわからなくなっとります

2011/06/01(水) 15:03:51.07

まだこいつ文字コードのことやってんの
きもちわる

2011/06/01(水) 15:57:02.30

波ダッシュとか意味わかんないんだもん・・・

2011/06/01(水) 17:39:27.81

やっと解決したよ！
Mechanizeが悪かったこの野郎！
勝手にデコードしやがって！
寝る

2011/06/01(水) 22:32:35.23

オブジェクト作るときにエラーが起きたとき bless の結果を返さずに undef を返しても OK なんですよね？

new{
　$obj = {'is_error' => 0};
　bless $obj, $pkg;
　return $obj;
}

my $test = TEST->new();
if($test->{'is_error'}){～}

みたいに一々書く必要は無いですよね？(サンプル自体が分かりにくいかもしれませんが・・・^-^；)

2011/06/01(水) 23:33:59.13

TEST->new() or die;
むしろ$test->{is_error}でハッシュを参照するのがよろしくない

2011/06/02(木) 00:01:01.82

あっ、ほんとは is_error() の予定だったんだけど、記述を減らしたかったので便宜上そう書かせていただきました。

new() or die みたいな書き方を書かれてるってことは、new でエラーを返したい場合は undef を返しても OK という事ですよね？

2011/06/02(木) 00:44:32.99

仕事の都合上書くの遅れました。

sub test_1{
    my $test  = $_[0];
    my $test2 = 'aabb';
    { $test2 =~ s/$test//og }

    print "$test2\n";
}

&test_1("a");
&test_1("b");

いったいこの o の仕様はどうゆうこと。
スコープ抜けてもoは継続されるわ、
myの変数だからサブルーチン呼んだら新しい変数になってるハズなのに、oがそのまま記憶されてるわ、
なんですかこの仕様。

サブルーチンで o 使えないじゃないですか。
Perl作った人は何考えてるんですか。

なんかoを「ここでoを初期化させる！」みたいな記述とかないんですか？

2011/06/02(木) 01:05:24.66

/oの仕様って知ってる？

2011/06/02(木) 01:14:17.30

>>89
他のモジュールでも参考にして好きにすりゃいいよ
あとreturnはundefじゃなくて引数なしにしとけ

2011/06/02(木) 01:24:31.62

>>90
http://perldoc.jp/docs/perl/5.10.0/perlfaq6.pod#What32is32o32really32for63

2011/06/02(木) 01:42:21.43

>>93
ありがとう。
なんとも言いがたいルールでした。

2011/06/02(木) 02:07:27.26

なるほど
undef を含む配列となる場合があるから return undef じゃなくて return のみ
書くと良い訳ですね。

ふと思ったけど、たしか関数が何で評価されてるか知る関数ありましたよね？

スカラなら return undef で、配列なら return で返せるといいなぁ。

やっぱ undef をちゃんと返したい (^_^;)

2011/06/02(木) 02:18:51.37

>>95
質問の前に関数一覧ぐらい確認しろ
http://perldoc.jp/index/function

2011/06/02(木) 07:00:23.29

2011-06-01 の形式で与えられる日付から
前日(2011-05-31)と、一週間前(2011-05-25)を求めたい
丁度いいモジュールか計算方法を教えて下さい

2011/06/02(木) 07:20:17.60

use Date::Simple;

2011/06/02(木) 07:30:12.77

>>97
use Time::Piece;
use Time::Seconds;
my $t = Time::Piece->strptime("2011-06-01","%Y-%m-%d");
say ($t - ONE_DAY); # Tue May 31 00:00:00 2011
say ($t - ONE_WEEK); # Wed May 25 00:00:00 2011

>>98
Date::Simple もたしかにいいね

2011/06/02(木) 14:14:14.98

>>75
separator やenclosure 自体のエスケープがないのだから、 $enclose$separat$enclose をそのまま並べた文字列がきたらアウトだろ。
CSVの """" や application/x-www-form-urlencoded の %HH のようなエスケープ処理がないと無理。

2011/06/02(木) 15:35:44.19

必ずしもそうではないんだなそれが。元データに$separatが含まれていたら
$separatを1つ付け加えることで、$enclose$separat$encloseという並びが
付け加える処理を行った後のデータには含まれてないことが保証されるように
するって考えなわけです。$separatは前処理で少なくとも2回以上の繰り返し
になっているはずなので一つだけなら区切りだとわかるわけだな。

2011/06/03(金) 00:16:40.95

> $enclose$separat$enclose をそのまま並べた文字列
それは存在出来ないのでは

2011/06/03(金) 00:33:11.64

>>101私の代わりに説明ありがとう。

>>100 joinがそれを起こすので、それを起こさないための Separator_join ですね。それじゃjoinと全く同じですｗ。
そこはメインで解決されてると言うか、そのための関数です。本趣旨がそれなんでｗ。

蛇足ですが、この前メールのヘッダーを調べてきたら Separator_join(q[.], qq[\n], @hoge); と同じ仕様だったようです。
メーラー作る時はSeparator_split(q[.], qq[\n], $hoge); で文字を壊さずに復元できるようです。
(メールは全文字列を受け付けます。問題は想定ミスや記述ミスだと思います)。

ちなみにセパレーターとかを選べるのは、プログラマーが処理が増大しないような文字を勝手に考えて決めろ、って言うことです。

2011/06/03(金) 07:04:43.98

>>98 >>99
うまくいきました。ありがとうございます

2011/06/04(土) 02:19:25.49

my @map;
foreach my $com1 (0 .. 199){
foreach my $com2 ( 0 .. 150 ){
$map[$com1]->[$com2] = 1;
}
}

上記の処理をアルファベットの x を使って my と同時に一行で書ける処理があったような気がするんですが、
どうにも思い出せません。
すみませんけど教えてください。

2011/06/04(土) 02:27:32.10

ここらあたりか
ttp://chaichan.web.infoseek.co.jp/perlnote/perlnote2008-04-062.htm
ttp://chaichan.web.infoseek.co.jp/perlnote/perlnote2008-04-062.htm

2011/06/04(土) 02:27:53.05

>>105
http://perldoc.jp/docs/perl/5.12.1/perlop.pod#Multiplicative32Operators
http://perldoc.jp/func/map
http://perldoc.jp/docs/perl/5.10.0/perllol.pod
http://perldoc.jp/docs/perl/5.10.0/perldsc.pod (broken)

my @map = map [ (1) x 151 ], 0..199;

2011/06/04(土) 02:28:23.45

これね。
ttp://ameblo.jp/jiang4/entry-10746177724.html

2011/06/04(土) 02:37:49.06

$map = ([1] x 151) x 200;
でいいのだろうか？

それともこうだろうか？
$map = ((([1]) x 151) x 200);

ごめんなさい、なんかどうカッコを書けばどうゆうリストが返るのかイマイチ分かってないです。

2011/06/04(土) 02:46:04.63

([(1) x 151]) x 200
こうのような気がしてきました。一応試してみますけど、
カッコとxの関係を誰か教えてください。

2011/06/04(土) 02:59:27.40

>>110
>>107
http://perldoc.jp/docs/perl/5.10.0/perlref.pod

#!/usr/bin/perl -w
use strict;
my @map = map [ (1) x 3 ], 0..4; # リストリファレンスを5回作る
print '$map[', $_, '] = ', "$map[$_]\n" for 0..$#map;
print "---\n";
@map = ([(1) x 3]) x 5; # 一度作ったリストリファレンスのコピーを5個入れる
print '$map[', $_, '] = ', "$map[$_]\n" for 0..$#map;
__END__

2011/06/04(土) 03:03:25.72

>>111
すみません、mapを使わなくても出来たような記憶があるんです。

テストしてませんが調べてきました。
xはスカラー値に対しては、その回数を繰り返し連結したスカラーを返すようです。
()に対する x は全く別の働きをし、リストとして複製し、リストを返すようです。
まだテストしてませんが、たぶん>>110で大丈夫だと思います。

2011/06/04(土) 03:14:16.79

一応結果報告しときます。

my @test = ([(1) x 3]) x 5;

foreach my $ref_ary (@test){
foreach my $print (@$ref_ary ){
print "$print\n";
}
print "\n"

}

2011/06/04(土) 03:16:11.44

@map = ((1x150)x200);

なんとなく書いてみたけど、これでいいような気もしなくはない

2011/06/04(土) 03:16:47.89

>リストリファレンスのコピーを5個入れる
まじすみません！
流し読みしてました！
ソレは困ります！

2011/06/04(土) 03:25:28.38

>>112
ちょっと考えましたが x だと同じリファレンスのコピーしか生成しない気がしたので、
map関数の記述をありがたく頂くことにしました。
ありがとうございます。

>>114
その記述だともしうまく行っても、Perl特有の暗黙のなんかがあるのだろうけど、
どこでリファレンスが発生するのかよくわからない・・・

2011/06/04(土) 03:26:15.46

しかも安価間違えました。
下らんことで長々すみませんでした。

2011/06/04(土) 09:11:22.28

ファイルハンドルの取り扱いを教えて。

複数のFHを扱うので、ハッシュがいいのですが、
open FH, ファイル名
$test=*FH
で変数扱いｄと上手くいくけど、
$hash{"FILE1"}=*FH
でハッシュだと上手くいきません。

2011/06/04(土) 09:13:13.18

{ } でくくる

2011/06/04(土) 09:20:05.75

>>119
すいません、わかりません　＞＜
具体的に教えて

2011/06/04(土) 09:45:32.31

>>118
http://perldoc.jp/docs/perl/5.10.1/perlfaq5.pod#How32can32I32use32a32filehandle32indirectly63
http://perldoc.jp/docs/perl/5.10.1/perlfaq5.pod#How32can32I32make32a32filehandle32local32to32a32subroutine63How32do32I32pass32filehandles32between32subroutines63How32do32I32make32an32array32of32filehandles63
http://perldoc.jp/docs/perl/5.10.0/perldata.pod#Typeglobs32and32Filehandles

2011/06/04(土) 14:08:27.01

>>121
具体的にって言ってんだろ死ねよボケ

2011/06/04(土) 14:35:10.92

通報した

2011/06/04(土) 15:13:20.60

>>122
リンク先に具体的にいろいろ書いてあるだろ
隅々までよく読んで勉強せい

2011/06/04(土) 15:44:05.76

質問自体がここは10年前か？みたいなのが多いんだよ。
へんな化石みたいなサイトを見てるくせにまっとうなところは見ない。

2011/06/04(土) 16:01:16.61

まず perldoc して自分が使ってる perl のドキュメントを読む習慣を付けた方が良いと思う。

2011/06/04(土) 16:02:41.48

受身のままじゃ使えない奴のままだよな

2011/06/04(土) 17:56:42.16

ありのままに生きたいと願ったアリはずっとアリのままだった
みたいだな

2011/06/04(土) 17:59:25.89

なんかいろいろスミませんでした。
>>121さんを参考に努力してみます。

　（´Д｀;）　
　　　∨）
　　　（（

2011/06/04(土) 18:37:12.93

今perlがなんていう変数を何個持っててメモリをどのくらい使ってるか
計測するツールはありますか？

2011/06/04(土) 18:48:37.18

WWW::Mechanizeでスクレイピングしていると異常に時間が掛かるのですが、何をチェックすればいいのでしょうか。
システムはFedora13で、webページでログインして数カ所を巡回する程度ですが、1分以上掛かります。
sslが遅いのかもしれませんがよく分かりませんでした。

2011/06/04(土) 19:01:21.03

ストップウォッチのようなものをつける

2011/06/05(日) 09:16:21.08

ファイルの先頭行にメッセージをいれるべく、
`sed -i '1s/^/MESAAGE\n' $file`
って書いたのに、
sed: -e 表現 #1, 文字数 10: 「s」コマンドが終了していません
とか言われるのは何故？

2011/06/05(日) 09:35:25.23

`sed -i '1s/^/MESAAGE\n/' $file`

2011/06/05(日) 10:20:36.57

ちっともPerlについての質問じゃないし。

2011/06/05(日) 10:34:31.12

メサアゲ

2011/06/05(日) 11:45:45.49

普通のラー油ででかい瓶で安く売ってないのかな。
ふつうのやつって、半分以上容器代だよね。

2011/06/05(日) 12:01:09.95

Perlも半分以上は使いもしない無駄な機能でできています。

2011/06/05(日) 12:40:03.74

ドキュメントも、重要なのは全体の10%だけで、
いつも残りの90%で時間を無駄にしている気がする

2011/06/06(月) 05:52:55.44

例えばオブジェクト指向で得られる利点とはなんですか？

my $obj = CGI->new;
とか、書くのが書籍などではオブジェクト思考と言われていますが
普通に require や use して、package::package_sub();
として呼び出すだけじゃだめなんですか？
そもそも、パッケージ化してその都度呼び出すこと自体がオブジェクト指向じゃないんですか？

2011/06/06(月) 06:08:37.67

>>140
状態を持つオブジェクトを複数同時に扱うのが楽。
IO::FileのかわりにIO::Stringをサブルーチンに渡すなどの応用が楽。
ただしモジュールを書く側は再利用を考えて設計するので面倒。

2011/06/06(月) 06:12:13.10

>>140
http://perldoc.jp/docs/perl/5.10.0/perlboot.pod

2011/06/06(月) 23:30:46.92

初歩的な質問なのですが…
@aiueo = ('a', 'b', 'c', 'd', 'e');
$rand = int(rand(6))
if($rand == 0){print "$aiueo[0]";}
elsif($rand == 1){print "$aiueo[1]";}
elsif($rand == 2){print "$aiueo[2]";}
elsif($rand == 3){print "$aiueo[3]";}
elsif($rand == 4){print "$aiueo[4]";}
このソースをなんとかしてまとめることは出来ませんか？
$aiueoの[]の中に乱数をそのまま入れたいんです、お願いします＞＜

2011/06/06(月) 23:33:56.91

@aiueo = ('a', 'i', 'u', 'e', 'o');
$rand = int(rand(6));
print "$aiueo[$rand]";

どうでしょう

2011/06/06(月) 23:39:20.14

@aiueo = qw(a b c d e);
print $aiueo[rand @aiueo];

2011/06/07(火) 00:09:21.69

初歩的な質問します。

代数の値があまりにも大きいとe+○○という数になります。
これを整数で表示させる方法はないでしょうか。

2011/06/07(火) 00:09:24.33

>>144-145
助かりました、ありがとうございます！

2011/06/07(火) 00:11:43.67

>>146
BigIntを使う

2011/06/07(火) 00:15:16.55

>>148
use Math::BigInt; ってのがあったんですね。
ありがとうございました。

2011/06/07(火) 00:21:14.95

割り算しないならuse bigint

2011/06/07(火) 01:01:53.85

>>143
>>144
ちょっとまて
その場合rand(6)じゃなくてrand(5)だろ?

2011/06/07(火) 21:54:25.93

$# 使えよ

2011/06/07(火) 22:45:44.96

ざわざわっ
カイジ「ちょっとまてその場合rand(6)じゃなくてrand(5)だろ?」

2011/06/08(水) 00:09:28.93

よかったら僕になんでもきいいてください
なんでもこたえられます
職業Perlプログラマです

2011/06/08(水) 00:10:26.81

毎日ここをチェックしてるよ

2011/06/08(水) 00:11:06.70

僕　書籍に６０万円いじょうお金かけてるからすごいよ

2011/06/08(水) 00:21:55.01

こiPhoneのブックマークにいれてますね
ここのスレ毎日チェックしてますね
おもしろいスレですね
2chやってることかくしてましてねえ
小飼弾はしにま

2011/06/08(水) 00:22:30.35

もう寝ますね
ききたいことあったら明日きいてね
ぼくいつでもいるから

2011/06/08(水) 00:23:04.12

明日の当番はotsuneだったね
ぼくのファンのかた残念だたね
おやすみ

2011/06/08(水) 00:24:42.20

寝るところがないから新宿の道路でねてま

2011/06/08(水) 01:46:40.11

ネイピア数の簡単なプログラムです。

use Math::BigFloat;
for($k = 1,$n = <>;$k <= $n;$k++){
$m = (1+ 1/$k) ** $k;
print "$m\n";
}

Math::BigFloat;を使っても、
計算精度も桁数も変わらないんですが、なぜでしょうか？

2011/06/08(水) 01:50:12.07

使わなきゃ変わるわけない

2011/06/08(水) 02:08:47.36

え

2011/06/08(水) 02:11:36.89

使っているように見えないが

2011/06/08(水) 02:26:55.56

どうすればいいですか

2011/06/08(水) 03:28:45.79

>>161
use Math::BigFloat;

my $n = <>;
for(my $k = Math::BigFloat->new(1); $k <= $n; $k++){
my $m = (1 + 1/$k) ** $k;
print "$m\n";
}

面倒なら、use bignum;使うといいよ。チョーお勧め。

2011/06/08(水) 03:40:50.41

オブジェクト作る時の最初に new しますが、
new の中から、そのパッケージのメソッドを呼ぶにはどうすれば良いですか？
あるメソッドの内容とコンストラクタの中とで重複する処理があるので、コンストラクタから
メソッドを呼びたいです。

と書いたところでググってたら、コンストラクタからメソッドは呼ぶな！というのがあって、
めんどくさいけど、同じ内容を書こうと思います。

2011/06/08(水) 04:14:54.33

>>167
何の事か分からんけど、副作用が無ければ、
下のようにして_init内にゴリゴリ書けばいいよ。

package _Foo;
sub new {
my ($class) = @_;
my $self = bless{}, $class;
$self->_init;
return $self;
}
sub _init {
my ($self) = @_;
...
}

2011/06/08(水) 04:42:24.92

オブジェクトの中でprintするか、返した文字列をprintすべきか迷い中。。。

2011/06/08(水) 07:35:45.29

>>166
use bignumを調べてみました
ホントに便利ですねｗ
貴重な情報ありがとうございました。

それと、
出力結果を、
メモ帳にリダイレクトする方法はありませんか？

2011/06/08(水) 11:20:00.99

>>170
メモ帳はできないみたいだけど、エディタによってはできるんじゃない？
秀丸の場合は
perl hoge.pl | C:\PROGRA~1\Hidemaru\Hidemaru.exe

2011/06/08(水) 12:36:11.39

スパゲッティなperl cgiにアクセスログなどを保存するコードを追加できなくて困っています

もうじき成立する法律で、自前サイトもってる人がログ保存してないと３年の懲役らしいのです
http://www.asyura2.com/11/senkyo113/msg/921.html

半分ぐらいはネットで拾ったコードなので中身把握してないので非常に困ってます

2011/06/08(水) 12:37:45.60

http://www.moj.go.jp/content/000072565.htm
念の為に法務省の法律の原文です

2011/06/08(水) 12:52:03.29

>>172
Webサーバを運用してるのなら Webサーバのアクセスログで良くね？
Webサーバを運用なら何か他の目的で必要としない限りは必要無いだろ

2011/06/08(水) 12:53:04.68

Webサーバを運用なら→Webサーバを運用してないなら

2011/06/08(水) 12:57:05.89

自宅サーバーなので
apacheのログだけとれば十分ということでもないようです

FreeBSDのportsで入れた後で少し改造した物などでは
apacheを経由してないものもあるみたいなのです

2011/06/08(水) 15:19:07.88

窓から投げ捨てろ

2011/06/08(水) 15:21:38.65

(?i:hoge) の逆を表す方法があればご教示ください。よろしくお願いします。

2011/06/08(水) 15:29:06.85

逆ってなんだよ
/(?-i:hoge)/i ってことか？

2011/06/08(水) 16:29:18.06

ありがとうございます。それです。

2011/06/08(水) 18:50:28.98

>>171
ありがとうございます。

メモ帳以外ならどこかにリダイレクト可能ですか？

2011/06/08(水) 18:57:59.87

>>181
Tempフォルダにでもファイルとしてリダイレクトして
その後にメモ帳で開けば良いんでね？

2011/06/08(水) 20:06:42.37

コマンドラインに変数は渡せない？
$a = `nkf -j $b`;
がうまくいかない・・・

どうしたらよい？

2011/06/08(水) 20:56:10.83

あぁ、nkfはファイル指定だった・・・
$bはファイル名じゃなくてもろに
変換したい文字列だからいけないんだなｗ

自己解決。

2011/06/08(水) 21:10:21.34

>>182
ありがとうございました！

2011/06/08(水) 23:17:49.06

わからないことあったらtokuhiromにきいてね

2011/06/08(水) 23:20:27.97

tokuhiromにdiffの件でYappo氏のモジュールいってたときは吹いた
ぜんぜん使い方がちがうのに yappoのString::Diffモジュールだしてて　は？ｗっておもいました
だまってました　明らか文字列じゃなくて　　行のくらべなのにString::Diffだしてこけてました
ですが笑いがこらえられませんでした　　わざといったのか　まじで勘違いしてミスってたのかおもしろかったです

2011/06/08(水) 23:21:04.23

tokuhiromをなめんなよ

2011/06/08(水) 23:52:29.65

//test.pl
use strict;
use warnings;

require 'test_mod.pl';
MYTEST->import;
print MYTEST->abcd;

//test_mod.pl
use strict;
use warnings;

package MYTEST;
sub abcd{
　　$aaa = '123';
　　return $aaa;
}

abcd() の $aaa は my とか our とかで宣言してないからエラーが出るものと思ってましたが、
普通に 123 と表示されてしまいます。

これって何故なんでしょう？

あと
　　return $aaa;
を
　　print $aaa; # 呼び出しは MYTEST->abcd; のみ
とすると、コンソールに何も表示されません。
何故なんだぜ？

2011/06/09(木) 01:47:15.29

すんません。
編集中にファイルを変更してて、編集すべきファイルが異なってました ^-^；

ついでなのですが、作った package にオブジェクトと関数を混在して書くのは、
別に行儀の悪い事ではないですよね？

package TEST;
use base Exporter;
our @EXPORT = qw/func1 func2/;
sub func1{～} # ただの関数
sub func2{～} # おなじく関数
sub new{～} # おぶじぇくとさくせー
sub proc{～} # おぶじぇくとに対する処理

こんな感じを考えてます。

2011/06/09(木) 19:10:22.56

perlスクリプト内でそれを実行しているperl.exeのパスを取得できますか?
Xp SP3, perl 5.10です。

2011/06/09(木) 19:24:55.25

>>191
http://perldoc.perl.org/perlvar.html#$EXECUTABLE_NAME

2011/06/09(木) 21:32:24.22

>>192
それです。探していたそのものです。

2011/06/09(木) 23:04:27.54

探し物はなんですか？
みつけにくいものですか？
かばんの中も机の中も探したけれど見つからないのにまだまだ探す気ですか？

2011/06/10(金) 00:06:43.33

>>194
ttp://a1.twimg.com/profile_background_images/3696118/otsune.jpg

2011/06/10(金) 00:30:11.47

>>194
カスラックから許諾とらないとダメですよ。

2011/06/10(金) 19:16:47.67

RTオタクって呼んでください

2011/06/11(土) 00:03:27.02

perl - 勝手に添削 - utf8環境でperl::Jcodeのtrが使えないとき
ttp://blog.livedoor.jp/dankogai/archives/51693618.html

>前世紀まではそれで正しかったのですが…

なんでいちいち嫌味ったらしいんだろうな。

2011/06/11(土) 00:14:17.53

そういう性格だから

2011/06/11(土) 02:04:59.31

ちょっと沸点が低いよ