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

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

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

CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。

http://www.perl.org/get.html
● 2006/04/26現在の最新版: 5.8.8
● 2006/04/26現在の開発版: 5.9.3

リンク集は>>2-3
過去スレは>>4

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

[本]
リャマ: http://www.oreilly.co.jp/books/4873111269/
駱駝: http://www.oreilly.co.jp/books/4873110963/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/books/4873112028/

[オンラインマニュアル] (追加)
最新のドキュメント: http://search.cpan.org/~nwclark/perl-5.8.8/
perl5.8.xのドキュメント(一部): http://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: http://www.cpan.jp/search.cgi
perldoc.jp: http://www.perldoc.jp/
Perldoc.com: http://www.perldoc.com/

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

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

[Perl5.8Unicodeメモ]
http://www.pure.ne.jp/~learner/program/Perl_unicode.html
http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

[過去ログ]
1 http://pc.2ch.net/tech/kako/1017/10177/1017736187.html
2 http://pc3.2ch.net/tech/kako/1033/10336/1033688230.html
3 http://pc2.2ch.net/tech/kako/1041/10412/1041205885.html
4 http://pc2.2ch.net/tech/kako/1048/10485/1048519394.html
5 http://pc5.2ch.net/tech/kako/1053/10530/1053053082.html
6 http://pc5.2ch.net/tech/kako/1060/10606/1060689008.html
7 http://pc2.2ch.net/test/read.cgi/tech/1068051036/
8 http://pc2.2ch.net/test/read.cgi/tech/1074151549/
9 http://pc5.2ch.net/test/read.cgi/tech/1079114157/
いつも連投規制に引っかかるので1レスに纏めようとしたらhttpが多すぎといわれたorz

10 http://pc5.2ch.net/test/read.cgi/tech/1085564875/
11 http://pc5.2ch.net/test/read.cgi/tech/1090889189/
12 http://pc5.2ch.net/test/read.cgi/tech/1094579428/
13 http://pc5.2ch.net/test/read.cgi/tech/1097851764/
14 http://pc5.2ch.net/test/read.cgi/tech/1101649274/
15 http://pc5.2ch.net/test/read.cgi/tech/1105953092/
16 http://pc8.2ch.net/test/read.cgi/tech/1111034732/
17 http://pc8.2ch.net/test/read.cgi/tech/1117870308/
18 http://pc8.2ch.net/test/read.cgi/tech/1121804136/
19 http://pc8.2ch.net/test/read.cgi/tech/1126977805/
20 http://pc8.2ch.net/test/read.cgi/tech/1131286411/
21 http://pc8.2ch.net/test/read.cgi/tech/1134327348/
22 http://pc8.2ch.net/test/read.cgi/tech/1138519327/
23 http://pc8.2ch.net/test/read.cgi/tech/1141742901/

こんな時間に乙！

乙〜

Perlで２つのプロセスを動かして同時に同じファイルを参照したり書き込むとき
がたまにある場合、非同期書き込みか排他制御？みたいなのしないといけないと思うけど
どうやってするの？

次からはググってから質問してね
http://www.google.co.jp/search?hl=ja&q=Perl+%E6%8E%92%E4%BB%96&lr=

ある変数 $kekka に、２０バイト分のバイナリデータを代入した場合、
それらの値を１バイトずつ表示したいのですが、どうすれば良いのでしょうか？
unpack("C16", $kekka)とすると、１６バイト分しか表示できませんでした。

久々にエロ小説埋めきたな

@list = unpack('C*', $kekka);

>>12 Thx!!

>>8
flock とか fcntl の F_SETLKW とか。
ロックファイルとかセマフォとか。

あげ

>>1
乙

>>15
マターリ＝サゲシンコ

>>970
環境変数？の変更ですか？
ご教授ください。

Encode::JP::H2Zを使って半角->全角変換しようとしたけどうまくいきませんでした。
全角→半角変換（z2h)はうまくいきます。どこが悪いのでしょうか。

use encoding "shiftjis";
use Encode;
use Encode::JP::H2Z;
$str = "ｱｲｳｴｵ";
$str = encode("euc-jp", $str);
Encode::JP::H2Z::h2z(\$str);
$str = decode("euc-jp", $str);
print $str;

スクリプト自体の文字コードが分らないからなんとも言えないけど
shiftjisなら

use strict;
use warnings;
use Encode qw/from_to/;
use Encode::JP::H2Z;
my $str = "ｱｲｳｴｵ";
from_to($str,'shiftjis',"euc-jp");
Encode::JP::H2Z::h2z(\$str);
from_to($str,"euc-jp",'shiftjis');
print $str;

euc-jpだったらfrom_toいらない

>>17
環境変数とは違うものなんだけど…作業ディレクトリ=カレントディレクトリといえば分かる？
もし分からないなら、自分で調べれ。Perl以前の基本中の基本だから。
# 時々知らない香具師が現れる…

$FindBin::Binのほう、起動されたスクリプトが配置されているディレクトリの絶対パスが入っている。
そもそもそのスクリプトは、スクリプトのあるディレクトリにあるファイルを操作する、
つまり作業ディレクトリがスクリプトのある場所になっていることを前提に作ってあるわけだ。
だから、その前提に合うように作業ディレクトリを変えてやれば望んだとおりに動作する、と。

windowsへのコンパイルってどれ使えばいいの？
perl2exe以外で

PARとか

stat || die とやると、なぜか stat の結果が得られない。
なぜ？？？？？？


---------
Sarge:~$ perl -e '@val=stat("/bin/bash")||die;print "size:$val[7]\n"'
size:
↑なにも出力されない。
Sarge:~$ perl -e '@val=stat("/bin/bash");print "size:$val[7]\n"'
size:625228
↑die をはずすとちゃんと出力される。
Sarge:~$ ls -la /bin/bash
-rwxr-xr-x 1 root root 625228 Dec 20 2004 /bin/bash
Sarge:~$ perl -v
This is perl, v5.8.4 built for i386-linux-thread-multi

>>23
……覚醒剤でもやってるのか?

>>23
ヒント: 優先順位

サンスコ！わかった。
（）でくくらないと、演算子の優先順位の問題があるのね。

え？でも変だな、、、。
stat の結果が、優先順位の問題で返ってこないとすると、
その場合、die が実行されてないか？
逆に、dieが実行されず、stat しか実行されなければ、statの結果が返るはず。

あー、もうわかんねぇ。
だれかわかりやすく教えて！。

>>27
ヒント: コンテクスト

>>27
ヒント:or

>>27
hint: stat の引数がない

>>27の人気に脱糞

>>27
||はスカラーコンテキストで評価される
だから@valにはstatの戻り値としてリストは格納されていない
試しにprint $val[0];とやってみ1って出るから
つまりstatが成功したことを示すスカラーが返却されている
つぅか||なんて使うな
orにしとけ

>>27
read <perldoc> or die;

Type of arg 1 to read must be HANDLE (not <HANDLE>) at >>33 line 2, near "<perldoc> or"
Not enough arguments for read at >>33 line 2, near "<perldoc> or"
>>33 had compilation errors.

perldoc -f read

>>21
PerlAppオススメ。有料だけど起動時間は最速だと思う。

>>19
あり。
Encode::JP::H2Z使う時はencodingプラグマは使えないという仕様なんですかね〜

>>20
お前の勘違いじゃね？
環境変数だろ

また知らない香具師が現れたな・・・

ごめんなさい。わかりません。
カレントディレクトリの意味はわかるけど
>>20のいうようなカレントディレクトリの変更方法がわからんｗ

>>37
そうか、ｽﾏｿ
「環境変数」で意味が解る香具師がいるなら漏れの勘違いなんだろうな。
漏れには話のつながりが解らんから質問に対する答え頼んだ。

pathのこと？

>>40
おいコラ、諦めんな！

>>40
ごめん、、、ヒントをくれ・・・カレントディレクトリの意味しかわからんよ。

俺も白根
教えて栗

>>43
| use FindBin;
| chdir $FindBin::Bin;
のchdirについて訊いているのかと思って解説しただけ…

ってもしかして>>37氏ageてるって事は質問者さんだったか・・・
そうだったら重ねてｽﾏｿ。普通の回答者だと思って回答頼んじまった

>>45
970 名前：デフォルトの名無しさん[sage] 投稿日：2006/04/26(水) 01:01:29 ?
>>969
原因は分からんが関連付けから起動したときに、
作業ディレクトリが別のところに行くようになっちゃってるようで。
根本的な原因はこのスレの範疇外だと思う。スクリプトの頭で、
use FindBin;
chdir $FindBin::Bin;
とでもやっておきなされ。これで作業ディレクトリがスクリプトのある場所に行く。

＞作業ディレクトリが別のところへ行くようになっちゃってるようで
これの設定変更ってできる？

>>46
そっちのことだったのかorz それについては知らん。
というかその問題はPerlと関係ないと伝えたつもりだったから、
Perlに関連する部分か前提になっている作業ディレクトリという単語に対しての
レスだろうと思ってあんな勘違いしたレスになった。いや申し訳ない。

もう、win から再インストールしなされ

こういうときに何で馬鹿がわくのか・・・

答え絶対いわないよな

cperl-modeで
/[\r\n]/;
この一行がエラーになるんだけど、文法的になんか不味いですか？
emacsのバージョンは
"GNU Emacs 21.4.1 (i386-mingw-nt5.0.2195) of 2005-08-28 on CUBE"　です

またエラー内容隠蔽者か。

シねばいいのに。

>>51
エラーつってもcperl-modeのエラーだから、
cperl-mode使えるやつなら試してみれるかなと思って。

End of `/ ... /' string/RE not found: (scan-error Unbalanced parentheses 1 13)

これがミニバッファにしつこく表示される。

Emacs 21.3 で試したけど問題無いみたい。
どっかでエンバグしたのかね。
Emacs 系のスレで聞いてみた方が良い気も。

>>53
>Emacs 21.3 で試したけど問題無いみたい。
試していただきどうもです。
時間があるときにEmacsのアップデートするのが良さそうですね。

>>46
思ったんだけどショートカットから起動してたりと化しない？

すいません、ActivePerlなんですが、
5.8.4から5.8.8にバージョンアップしても、
5.8.4の時に入れたモジュールとかは引き継いでくれますよね?

>>56
だろうけど
動かないモジュールがでるかもね

>>57
ありがとうございます。
バージョン違いで動かないものが出てくることはある、ということですよね。
それはしょうがないですね。

ふと思ったのですが、ハッシュのキーに使えるものにはどんな制限あるのでしょうか?
文字列が問題無いのはわかりますが、
2バイト文字、
packされたバイナリデータ、
リファレンス、オブジェクト、
ファイルハンドル、
等はハッシュのキーとして使えるのでしょうか?
使うときに注意することとかあるでしょうか?

別にファイルハンドルをハッシュのキーとして使うメリットも思いつかないんですが、
どこまで使えるんだろう? と思ったので。

use constant で定義した定数は使えませんよね?

>>59
え? スカラにさえなるなら何でも使えると思うけど?

>>59
ハッシュのキーには文字列しか使えないはず。
ttp://search.cpan.org/~nwclark/perl-5.8.8/pod/perldata.pod
> Hashes are unordered collections of scalar values indexed
> by their associated string key.

で、Perlの文字列データはバイナリセーフなので
・2バイト文字
・packされたバイナリデータ
これらは全て文字列(PV)として一括りに扱うことが出来る。
リファレンス(やそれにblessしたオブジェクト)に関しては、
文字列表現に変換されて記録されるため保障されない。
それを扱うためには標準モジュールであるTie::RefHashを使う。
ttp://search.cpan.org/~nwclark/perl-5.8.8/lib/Tie/RefHash.pm

ファイルハンドルについては…どうだっけ。文字列として扱って良いんだっけ？

$val{$x}{$y} のようにキーが2つあるハッシュを値でソートして $x,$y,$val{$x}{$y} を出力するには
どうしたらよいのでしょうか?
sort の中で sort したら何とかなるかと思ったのですが、キーが2つあると$a,$bがこんがらかってしまいました。

それに、どんなに工夫しても
sort何か比較する式} keys %val
としてしまったら、$x しかソートされないし、ネストしたsortという方向自体が間違っているような気がしています。
ヒントだけで良いので教えていただけないでしょうか?

>>62
一回でやろうとするからこんがらがる。$xと$yを別々に決定するんだ
foreach my $x (sort keys %val) {
foreach my $y (sort keys %{$val{$x}}) {
print $x, $y, $val{$x}{$y};
}
}

>>63
それではハッシュのキーでのソートになってしまいます。
ハッシュを値でソートしてと言う意味は
$val{ a }{ A } = 1;
$val{ a }{ B } = 4;
$val{ b }{ A } = 3;
$val{ b }{ B } = 2;
の場合
a,A,1
b,B,2
b,A,3
a,B,4
のように出力させたいのです。

＿＿＿ ﾐ
┌ ┌　|　ζ
┌ ┌　|
┌ ┌　|
┌ ┌　|
┌ ┌　|
┌ ┌　|
┌ ┌　|

sub main {
my %val = (a => {A => 1,
　　　　　　　　　　　B => 4,
　　　　　　　　　　　C => 6},
　　　　　　　 b => {A => 3,
　　　　　　　　　　　B => 2},
　　　　　　　 c => {D => 5,
　　　　　　　　　　　E => 7});
foreach my $kh ( sort {$val{$a->[0]}->{$a->[1]} cmp $val{$b->[0]}->{$b->[1]}} map { my $fk = $_; map { [$fk, $_] } keys(%{$val{$_}}); } keys(%val)) {
　　　　printf("%s:%s:%d\n", $kh->[0], $kh->[1], $val{$kh->[0]}->{$kh->[1]});
}

}

ぁ cmpじゃなくって<=>だった；

>>66
やばい。ヒントだけもらって自分で解くつもりが答えを見てもよくわかんない...orz
でも、時間をかけて順々に追っかけていくと何とかわかったような気がしてきました

解読結果を書くので間違っていたら指摘してください( 用語とか間違ってるかも )

$fkは$x成分を一時的に入れている。
外側のmapでキーの要素$x,$yの組み合わせに対して
無名配列[$x,$y]を要素としたリストをつくっている。
@xy_list = map{...} keys(%val)

できた@xy_listに対して、以下のsort
(自分の場合やりたいのはcmpでなくて、<=> なので少し変えてます)
sort {
$val{ $aのx成分 }{ $aのy成分 }
<=>
$val{ $bのx成分 }{ $bのy成分 }
}@xy_list

この、値順に並んだ[$x,$y]に対してこれを$khとしてforeachで回している。
一度[$x,$y]の組み合わせのリストをmapで作るのがポイント。

自分一人では絶対に思いつかない方法でした。
ありがとうございました。

そもそもの構造が、あはぁんな悪寒。
ひとまず、
[key1, key2, value]
にしてsortするのが判りやすくなるかな？

>>68
あってると思う。

でもこんなことやるより最初にハッシュキーの組み合わせのリストだけ作ってsortしたほうが読みやすいし、
>>69の人が言ってるようにそもそもデータ構造を変えたほうが正解かもしれない

>69 のヒントに従って書くと、

for my $x ( keys %val ){
for my $y ( keys %{ $val{ $x }} ){
push @xy_val_list,[$x,$y,$val{ $x }{ $y }];
}
}
@xy_list = sort { $a->[2] <=> $b->[2] } @xy_val_list;
for my $xy_val ( @xy_list ){
print join ",",@$xy_val,"\n";
}
って感じですね。
これも$xと$yをセットにしたもの( [$x,$y,$val] )を要素とした配列をソートすると言う方針は同じですね。
mapにあんまり慣れていないので、こっちのほうがわかりやすいような気がします。

憧れのDANさんが最近の記事で書いていたんですが

open($fh, '<', "$file") || croak("failed to open: $file: $!");

は　||　じゃなくてorにしろありました
どうしてでしょうか?
上記のコードは別に||でもうまくいってるみたいなんだけど

>>66
を１行で書けばこんな感じ。

print map { "$_->[0],$_->[1],$_->[2]\n" }
　　sort { $a->[2] <=> $b->[2] }
　　map {
　　　　my $x = $_;
　　　　map { [$x, $_, $val{$x}{$_}] } keys %{$val{$x}}
　　} keys %val;

おれはこの手の書き方をよく使うけど、複雑になりそうなら
>>71 のような素直な書き方の方がいいかもね。

>>72
> 憧れのDANさんが最近の記事で書いていたんですが

その憧れのDANさんに訊けばいいだろ。

>>72
優先順位
open $fh, '<', "$file" or croak "failed to open: $file: $!";

と書ける。どちらが可読性が高いかという話だ

正規表現で最後の前にマッチした値を知るにはどうしたらいいですか？

m/pattern/; # ()がたくさん
print $+;　# 最後にマッチした値

>>76
@x = m/pattern/;
print ((grep {defined $_} @x)[-2]);

>>77
おー、なるほど。
いわれてみれば、あーそうだとわかるのに、思いつかんかった。
ありがとうございます。

patternの中身が可変長でもない限り目で数えて$nでいんじゃね？
それか嫌ならマッチを２行にして
最後のマッチにだけ(?>pattern)を使う
→次のマッチから()を使ってそれの$+とか？

>>77みたいなperlらしすぎるコードも嫌いじゃないけどさ

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

txtファイルを読み込んで、改行コードを外してから連結していく処理を作ろうとして、

#$lineに一行読み込み後の処理
$line =~ s/\n//;
$line =~ s/\r//;
$all_line .= $line;

とすると、たまに先頭に付加されてしまう事があるんだけど、何故？

先頭に付加というのは、
$all_lineが abcdef の状態に、XYZの行を足したら、
XYZdef になってしまうという事です。

>>81
そのtxtファイルの改行コードが壊れてCR CR LFになってる悪寒。
先頭に出るのはコンソール上でカーソルを行頭に戻す制御コードCRが
一個以上消え残ってしまっているからだと思われる。
- $line =~ s/\r//;
+ $line =~ s/\r//g;
でどう？

>>81
さすがにperlの.=がバグっているとは考えにくいので思い違いの
可能性が高いな。

$all_line .= $line;

の前後で$all_lineの値を表示してみると問題はそこではないことが
わかりそうな気がする。

異プラットホームのテキスト扱ってて行末以外にも改行コードがあるってこと？
chompじゃダメなの？

>>83
その場合、確認すべき事を理解して無いと >>82 の現象を見逃してしまうけどね。
$all_line = "abcdef\rXYZ"; になっている場合。

>>81
原因は82で間違いなさそう。
CRCRLFが出力されるのはWindows上でPerlを動かしてるときに
print FH "abcdef\r\n";
といったことをしたんだと思う。
元々\nを（環境に合わせて）CRLFにする機能があるから自分でCRを出力する必要は無いんだよね。

えーと、まとめてレスさせていただきますが、状況としては、

・読み込んでいるtxtは、Windows上で、某有名txtエディターで作ったtxt
　　->　改行コードは、問題ないと思います。

・$all_lineに連結する直前の、$all_line、$lineのprint表示はしてみましたが、
　それぞれ、正常に表示されていました。

　連結後に、$all_lineがおかしくなります。

・テストはWindowsで行っていますが、運用時にはLinuxで作成したファイルも混在するため、
　chompは使わずに、上記の置換処理で代用しています。

　というか、サンプルでは直接書きましたが、上記の置換処理は、
自作chomp関数の中の処理となっています。



で、レスを読んでいて、\rが残っているのだろう、と思えてきましたが、
上記のような状態なので、改行コードが壊れるとも思えず、
どこで混入したのかが、謎ですね・・・・・

あ、あと、>>82さんの方法ですが、会社でないと試せないので、
月曜日にやってみます。

でも、試しに今、自宅で上記の再現コードを書いても発生しないから、
どこかで自分が改行コードを壊して、やらかしている予感・・・・

ファイルのバイナリをみればいいじゃない

プログラムは、あなたの「思えない」を考慮しない。

http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Remove

@in = (
　　"\r\n",
　　"\n\r",
　　"\r",
　　"\n",

　　"\x0d\x0a",
　　"\x0a\x0d",
　　"\x0d",
　　"\x0a",
);

for ( @in ) {
　　print map { ord( $_ ) . ' ' } split( '' );
　　print "-> ";

　　chomp;
　　print map { ord( $_ ) . ' ' } split( '' );
　　print "\n";
}

これを windows, unix, スクリプトの改行コード CRLF, LF の環境で試してみると・・・

青ラクダ本って日本語訳されたperldocが本になってるだけと思ってたんですが、
本にしか書かれていない章もあるようです。
perldocに無くて、本にだけ書いてあることってどれくらいあるんでしょう?

当たり前のことだが perldelta や CPAN から入れたモジュールに関しては,逆に perldoc を読むしかない.
必要なことはすべて perldoc に書かれているので, 英語が読めればラクダ本は不要.

>>94
http://www.oreilly.co.jp/books/4873110971/toc.html

24.1　初心者にありがちな誤り ← perltrap
24.2　効率の問題 ← ?
24.3　プログラミングの書法 ← perlstyle
24.4　Perlらしいコード ← ?
24.5　プログラムの生成 ← ?

上の ? の項は perldoc だとどれに該るんでしょうか?
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perltoc.pod

sql文を一行読み込み、
select id, name from user_info where id = '5'
を改行コードなどでフォーマットさせるモジュールか関数を知っていたら教えてください。select以外も対応するもの。
select
　id,
　name
from
　user_info
where
　id = '5'
こんな感じにしたいです。

抜けが有りそうだけど、結局手作業で簡単なものを作りました。

threads使いたくてベースの5.6に、5.8を追加して共存させたいんですが
既に共存成功している人で、ppmでのインストールとかどうなってますか？
やっぱりppm利用時に絶対パスでppmの場所を指定しないと、
目的のPerlバージョンのあるところにインストールされないものですか？

環境書き忘れましたが、WindowsXPでPerlはActivePerlです。

HASHへのリファレンスを一つ引数に取る関数で、
以下の二つのうち下だけがエラーになります。

sub hoge {
　$huga = shift;
　return keys %$huga;
}

-- コレは通る
%z = (a => 1, b => 2);
&hoge(\%z);

-- コレはエラー
&hoge(\(a => 1, b => 2));

下の方で書きたいんですが、どうにかなりませんか？

&hoge({a => 1, b => 2});

下の書き方に拘るならこうだが・・・

sub hoge {
　my $huga = shift;
　my %huga = @$huga;
　return keys %huga;
}

指摘の意味が分かればいいんだけど・・・

きんもーっ☆

>>102
sub { print ref($_[0]), '/' . @_ } -> (\(a => 1, b => 2)); # SCALAR/4
http://www.kt.rim.or.jp/~kbk/perl5.005/perlref.html#Making_References

next unless $t->[0] eq 'T' or $t->[0] eq 'S' and $t->[1] eq 'a';
なんとかnext if 〜に書き直せない？

>>105
小学校の算数の教科書を復習するとわかるよ。

>>105
next if !( $t->[0] eq 'T' or $t->[0] eq 'S' and $t->[1] eq 'a' );
next if $t->[0] ne 'T' and !($t->[0] eq 'S' and $t->[1] eq 'a');
next if $t->[0] ne 'T' and ($t->[0] ne 'S' or $t->[1] ne 'a);

でも元のunless使ったのが一番読みやすいと思う。

>>106
ド・モリマンの法則ですか？わかりません！＞＜

クックブックvol1,526ページに

@array = map { \my $aton } 0 .. 3;
#４つの無名スカラー値のリファレンスを代入

ってあるんですが、\myが意味わかりません
なんでmyの前にデリファレンス演算子の\があるの?
my　\$atonなんじゃないかと思ったけどこれはエラーになった

>>109
逆スラッシュ演算子はデリファレンスでなく作る方。
my で map ブロック内のスコープを持つレキシカル変数 $aton を宣言し、
そのリファレンスを返している。演算子の優先順位が分かるよう括弧を
付けるなら map { \(my $aton) } 0..3;

>>110
ありがとうございます

\がmy $aton全体にかかってるんですね
逆スラッシュ演算子については完全に勘違いでした
あほでした失礼します

>>108
ド・モリマンの法則ってのがあるんだ
へぇ〜
やっぱこのスレ勉強になるわ

>>112
あるあ、ねーよｗｗｗ

>>105
next if (! ($t->[0] eq 'T' or $t->[0] eq 'S' and $t->[1] eq 'a'));

>>105
next if $t->[0] ne 'T' and "$t->[0]$t->[1]" ne 'Sa';
または
next if "$t->[0]$t->[1]" !~ /^T|^Sa/;

よく使う自作関数を別ファイルにしてrequireで呼び出すようにしたんですが
普通こういうときは外部ファイルの拡張子をpmにするんでしょうか？それともpl？
外部ファイルではpackageを使っておらず、@INCに置くことはありません。

.pl かな

while (1) {

$flag = 1, last if (適当);

}

上記のコードを実行するとifでtrueになったときに
whileを抜けて、そのときに$flagがセットされますが、
どうしてそのようになるのか理解できません

last if ()の時点でループを抜けてしまい
$flag=1は評価されないような気がするのですが、
一体何が起こっているのでしょうか?

>>118
> last if ()の時点でループを抜けてしまい

そうだな。

> $flag=1は評価されないような気がするのですが、

なぜ?

>>118
コンマは演算子であって文の区切りでは無いよ。

> 一体何が起こっているのでしょうか?

if ((適当)) { $flag = 1, last }

>>117
ありがとうございます。plにします。

>>118
hint: if と , の優先順位

ファイルをロックしてオープンするサブルーチンを作ろうと思い

sub lock_open{
    my $file=shift(@_);
    #ここにlockの処理
    open(OUT, ">>$file");
    return OUT;
}

としたのですが、
Bareword "OUT" not allowed while "strict subs" ...
と怒られてしまいます。openの前に my OUT としても
No such class OUT ...
と怒られるのですが、perl的にはどのようにするのが正しいのでしょうか。

flockならopenしてから

NFSですのでロックはmkdirにしようと思っています。
といいますか問題はロックまわりではなくファイルハンドルの扱いなんです。
わかりにくい書き方をしてしまってごめんなさい。

これまではファイルハンドルをグローバルで書いてしまっていて再利用しづらかったので、
これを機にstrictでまじめに書くようにしようと思ったのですが、上記のような状態で…。

>>123
open my $fh, ">> $file";
return $fh;

でいいんじゃね？
つか、ひょっとして

OUT = lock_open( 'filename');

とかやってない？　だとしたら間違い。

>>125
君の知りたいことはここに載っていることかな？

http://perldoc.jp/docs/perl/5.6.1/perlfaq5.pod
の、
(どうすればファイルハンドルをサブルーチンに局所化できますか?

>>127
perldoc.jp にある HTML 化された POD ってアンカー消してあって不便だよね。
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq5.html#how_can_i_make_a_filehandle_local_to_a_subroutine_how_do_i_pass_filehandles_between_subroutines_how_do_i_make_an_array_of_filehandles

日本でもPerl盛り上がっているように見えるけど、
日本語ドキュメントに対する細かいケアが行なわれていないのが興味深いね。

>>128
>>>127
>perldoc.jp にある HTML 化された POD ってアンカー消してあって不便だよね。
ものによるみたいだよ？
今読んでたperlfuncはアンカーあったし。

>>129
原文読めば済むからでしょ

>>126
やってます。
あー違うんですかー。
>>127
よく理解できていませんが、これみたいです。
ちょっとがんばってみます。

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

>>131
俺読めない。いいな読める人は。

>>126 様のように my をつければ局所化はされていると理解しました。
OUT = lock_open('filename') という記述が誤っているとのことでしたが、
正しい書き方がわかりません。
イチイチで申し訳ないのですが、教えていただけないでしょうか。

あ、分かりました。
同じようにmain(?)側で変数に代入して、それをファイルハンドルとして扱うだけですね。
ファイルハンドルと変数をごっちゃにしてしまっていました。(情けないです)

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

gzipを解凍したのですが、モジュールありますか？

http://search.cpan.org/search?query=gzip&mode=all

Compress::Zlib

user1:password
user2:password
user3:password
のようなユーザーのリストから
open (D,"user.dat");
@userdata=<D>;
close (D);
$dataline=0;
foreach (@userdata){
($loadid[$dataline],$loadpass[$dataline])=split(/:/,$_);
$dataline++;
}
のように読み込んで、入力されたデータと一致するようにしているのですが、
入力されたデータがuser1とpasswordだった場合、
if ($loadid[$count] eq $id)
でIDは照合できるのですが
if ($loadpass[$datalocation] eq $pass)
（$datalocationは$countと同じ値）でやってみると、同じ文字列を入れても同じだと認識しません。
printしてみても同じ文字列なのですが…htmlでprintして見るとどうも後ろに空白のような物があるのですが、
chompやchopをしてみてもうまくいきません。どなたかどのようにしたらいいのか教えてください。

一致しないときは
print unpack "H*", $string;
とかやっとけばどう異なるかよくわかる。

>>140
ファイルからロードしたデータ：70617373776f72640d0a
入力したデータ70617373776f7264
と出ました。0d0aを検索してみたら改行コードだということがわかりました。
chompしてみると70617373776f72640dと出ます。なので一致しません。
Perl 改行 削除で検索してみましたらこのページが出てきたので
ttp://www.nishishi.com/perltips/string2.html
書いてあるようにファイルを読み込むときに
$dataline=0;
foreach (@userdata){
$_=~ s/\r//;
$_=~ s/\n//;
($loadid[$dataline],$loadpass[$dataline])=split(/:/,$_);
$dataline++;
}
のように追加してみましたらうまくいきました。ありがとうございました。

可能ならセパレーターを変える方法もあるます。

use strict;

$/ = "¥x0d¥x0a";    # 入力セパレーター（行末）をCRLFにする
my (@loadid, @loadpass);

open D, "user.dat" or die;
while (<D>) {
    chomp;          # この対象もCRLF
    ($loadid[$. - 1], $loadpass[$. - 1]) = split /:/;
}
close D;

すいません。ActivePerl5.8.4を使い続けていて、
5.8.8に乗り換えようと思っているのですが、
とあるスクリプトが動かなくて苦労しています。

--------------------------------------------
use encoding "cp932";

#5.8.4だと、cp932でopenできる
#use open ":encoding(cp932)";

#5.8.7以降だと、shift-jisと書かないとダメ
use open ":encoding(shift-jis)";

use strict;
my $str = "";
$str = "テスト";
print "$str\n";
print length($str), "\n";
--------------------------------------------

5.8.4までだと、
use open ":encoding(cp932)";
と書けたのですが、5.8.7と5.8.8だと、
use open ":encoding(shift-jis)";
と書かないと、
Wide character in print at testcode.pl line 6.
と出て、文字化けしてしまいます。

cp932というコードセットは、うまく使えない仕様になってしまったのでしょうか。
そのくせ、
use encoding "cp932";
は通るのだから、よく分からない。。。use open時のバグかな?

perlスクリプトでHDDの空き容量を調べる方法を
探しております。

HDD(1)中の拡張子*.mpgのファイルを別のHDD(2)に
コピーする際に、HDD(2)の空き容量を確認したいの
ですが、そのような関数またはモジュールがperlには
ありますか？ mpgファイルの容量は：
$size = (-s "test.mpg");
で調べられることは分かったのですが、コピーする先
のHDD(2)に十分な空き容量があるかを調べたいのです。

>>144
WindowsならWin32::DriveInfoってモジュールを使ったことがある

>>143

　馬　鹿　は　encoding.pm　を　使　う　な　(ﾟДﾟ)

　

use encoding 'cp932', Filter=>1;
でどうだ。

encodingは確かに使いづらいけど本当にカジュアルに使えるようになったらかなり便利だと思う･･･

>>143

use encoding 'shift-jis';
use open 'encoding(shift-jis)';

でも同様のエラーになるから、cp932の問題じゃないんじゃないか?

つか、そのスクリプトなら use encoding だけでよくて　use open いらないんじゃね?

>>147
今でも十分お手軽でしょ。副作用が大きいから分かんない奴は使うなって
作った人間が言ってるのに、なんで固執するのか理解に苦しむ。

>>145
素早いご回答をありがとうございます。
求めている機能を含むモジュールがあるので
すね。
Unix系でも動くperlスクリプトにしたいので、
別のモジュールも探してみます。

Perlで現時刻から10000分後の時間を得るにはどうすればいいですか？
time() + 10000 * 60
とやるしかありませんか？

むしろそれで何が不満なのか聞きたい

>>152
N分後ならtime()+60*n
N時間後ならtime()+60*60*n
N日後ならtime()+60*60*24*n

うるう秒みたいな特殊なケースを除けばこれは絶対に正しい？

>>153
正しくないケースを伸べよ。

>>153
「60*n」等の式が正しいとすれば（正しいだろう）
現在のエポック秒に求める秒数を足してるのだから明らかに正しい。
なんせ年月日時分の概念が無いんだから。

掛け算で閏秒はどうやって解決しているのか、ぜひ聞かせていただきたい物だ

>>156
ちゃんと>>155読んだ？

>>157
阿呆は放置。

>>154
ビーーン

>>156
本来の要求仕様がわからんから正確にはなんとも言えんが、
「n秒後」という要求では、逆にうるう秒は考えちゃいけないだろ。

「x月y日まであと何秒？」という場合なら考えなきゃいけないが。

どっちにしても、うるう病は地球の自転の観測結果から調整するもので、うるう年みたいな
規則性がないからどうしようもないけどね。

次のPerlの仕様がどうたらこうたらってきいたのですが
仕様がそんなにかわるんですかね？

簡単に仕様変更を書いたサイトとかってないですかね？

つか、エポック秒なんだから、そもそも考える必要性がないだろ？

ていうか何がしたいねん

キチガイ君は放って置けよｗｗｗ

エポック社といえば

ビッグエッグ野球盤

バーコードバトラー

>>162
http://dev.perl.org/perl6/
Pugs含め現状どうなってるかは知らない

おまいら責め杉だ

use CGI::Util qw( expire_calc );

my $time = expire_calc('+7y'); # 3年後のエポック秒
日付に関しちゃ年によってずれるだろう。

>>171
なにがずれるん？

>>171
>use CGI::Util qw( expire_calc );

いや、それ、31日ある月の計算すらしてないよ。
my(%mult) = ('s'=>1,
'm'=>60,
'h'=>60*60,
'd'=>60*60*24,
'M'=>60*60*24*30,
'y'=>60*60*24*365);
を掛けてるだけだから。

.exeっていうファイルもつくれるのか？この言語は

>>172
閏年の計算してないんで、おそらく、2/29の有無によって、1年後の日付が1日ずれるって言いたいと思われ。

今からn秒後が閏年であろうがなかろうがn秒後であることには変わりがない。

>>174
反則技を使えばできないこともない。でも基本的にそういう言語ではない。

>>175
要するに任意の日付までの秒数を求めようとしている人がいるわけね…

日付は歴史と密接な関係があるからなぁ。

こうまとめたらいいかな？

N秒後は + N (間違いなし)
N分後は + N*60 (閏秒でズレる)
N時後は + N*60*60 (閏秒でズレる)
N日後は + N*60*60*24 (閏秒でズレる)
N月後は + N*60*60*24*30 (31日の月、閏年、閏秒でズレる)
N年後は + N*60*60*24*30*365 (31日の月、閏年、閏秒でズレる)

スルー

>>177
ええええええ
俺がやりたいのは、市販のプログラム　に乗っかって　パケット解析しつつ
そのパケットをアルゴリズムで分析して（かなり原始的なアイデアはいくつかあるから実験したい）
　命令出す　ってのなんだけど　この言語でいけるかな？
トップ企業では普通にやってるらしいが
その関係者がにちゃんでぼろっと言ってたのだと、そいつはむかしperlつかって組んだらしい

ネトゲでマクロやってて正規表現の基本とかはわかってる
ただ、ネックだったのはパケットとアルゴリズムでした。

らくだ本と、アルゴリズムの基礎を学校の図書館で借りてきた。パケットはあとまわし。
とりあえず自動ログインツールをつくることを目標にしてるけど、

exeで動かさないなら、いちいちperl login.plとか打って起動させなきゃならんの？
login.pl の末端に　autorun.plを起動させる文かいたりして、
条件　しだいで buy.plとかを動かす、とかそんなふうに組んでくの？

リアルタイムでどんな処理してるかビジュアルで把握したかったら、
別のプログラムが必要なんかな？VBちょっとやったことあるけど、あれは窓をすぐにつくれるじゃん？

華麗にスルー

>>182
>exeで動かさないなら、いちいちperl login.plとか打って起動させなきゃならんの？
>login.pl の末端に　autorun.plを起動させる文かいたりして、
>条件　しだいで buy.plとかを動かす、とかそんなふうに組んでくの？

そうだよ

閏秒や閏年に対応したけりゃ DateTime 使うか zic が leapsecond に対応した環境で
localtime() 使えばいいだけじゃないの？

>>180
「閏秒でずれる」という表現がおかしいでそ。
例えば「3分後」は 3 * 60 = 180秒後であって、間に閏秒を挟んでいても
それは変わらん。

x/x/x x:x:x から n 秒後を y/y/y y:y:y
として、間に閏秒があった場合、
(y/y/y y:y:y)−(x/x/x x:x:x) ≠ n　になっちゃうか。

たとえば「1分後」といったときに、60秒後のことを言っているのか、
次の分の同じ秒のことを言っているのかをはっきりさせないまま
話しているのでなんだかよくわからなくなってるような。

前者の意味なら常に秒数だけ気にしていればいいが後者だと閏秒が
でてくる。

DateTimeだと1分後と60秒後は区別していて、1分後は閏秒こみだから
こんな例がマニュアルにある。

# 1971-12-31 23:59:30 - our starting datetime

$dt->clone->add( minutes => 1 );
# 1972-01-01 00:00:30 - one minute later

$dt->clone->add( seconds => 60 );
# 1972-01-01 00:00:29 - 60 seconds later

$dt->clone->add( seconds => 61 );
# 1972-01-01 00:00:30 - 61 seconds later

過去の閏秒は分かっているからいいけど、未来だとどうしてもズレちゃうよね。

とりあえずうるう秒以外に例外はないってことが分かっただけで十分です
ありがとうございました

しかしまじめに閏秒の設定して使ってる人っているのかね?
今まで見たことないんだが。

>>190
天文関係とか、年単位で正確な秒数が必要な科学技術計算では必須だよ。

で、実際にそんな人見たことあるわけ？

改行区切りの文字列("abc\ndef\nghi)を１行ずつ処理する方法ありますか？
地道にindexとsubstrやれば出来そうですが。

@lines = split(/\n/, $string);

楽チンチン

>>194
ありがとう。
splitは改行使えないと思いこんでた・・・orz

よく天文学的な数字って言うけどPerlで桁足りるんだろうか。
use bignum 入れて速度保とうとすると面倒だしさ。

>>190
閏病を調整する人が使えば当然必要だーね。

>>196
crackmeのkeygen作るのに、Math::BigInt使って、Perlで16進数16桁の平方を求めるとかはやったことあるけどね。

s///ee
という表現があるようなんですが
これは何でしょうか?
eは置き換え後文字列部分を式評価するという意味
ですが、なんで二つ並んでいるの?

(それを書いた人にとっては)見た目が良いから。

>>198
式評価した結果を更に式評価したいから。

>>200
ありがとう。でもよくわからない

>>201
$_ = "aXb";
s/X/"1+1"/ => a"1+1"b
s/X/"1+1"/e => a1+1b
s/X/"1+1"/ee => a2b

まともなコーディングで二重評価する必要性のある例がなかなか思い浮かばないけど…何か良い例あるかね
とりあえずFAQ
ttp://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq4.html#how_can_i_expand_variables_in_text_strings

>>146　ヽ(`Д´)ﾉ

>>147
ありがとうございます。結局こちらでは、

use encoding "cp932";
use open ":encoding(cp932)";
use open ":std";

と、最後に　use open ":std";　を追加することで対応できました。
確かにencoding、馬鹿ではよく理解できない。。。

>>148
確かにcp932の問題ではなかったですね。失礼しました。
use openを付けたのは、実際の処理の際には、
テキストファイルを読み込む場合が多いので、
その状況も検証したかった、というのが理由です。

>>149
jperl時代のお手軽さに慣れてしまってたので。。。

>>202
ありがとう。
とりあえずわかったけど
おっしゃる通り使い道が浮かばない

>>202
> まともなコーディングで二重評価する必要性のある例がなかなか思い浮かばないけど…何か良い例あるかね

う〜む、具体的に思い出せないが、かつて「あれってこのためにあったのか!!」と
驚愕した記憶がある。

中に書く式で自分でevalすりゃいい話のような気がするのだが、
それでは本質的にできないようなことなのだろうか?

思い出せないんじゃしょうがない

>>202
> まともなコーディングで二重評価する必要性のある例がなかなか思い浮かばないけど…何か良い例あるかね

どっかのカスCGIで、HTMLテンプレート展開ルーチンに
そんなのが使われてたのを見た記憶が。

s/<\?php(.*?)\?>/$1/ee;

まぁ普通にURLデコードとか。

s/%([[:xdigit:]]{2})/pack('H2', $1)/ge;

>>210
一重じゃん。

ﾜﾛｽ

>ヽ(´ー`)ノ ◆.ogCuANUcE
>ヽ(´ー`)ノ ◆.ogCuANUcE
>ヽ(´ー`)ノ ◆.ogCuANUcE

ee = Enterprise Edition

企業気分になれるんだよ。

s/u//gee;

ちょっとは、お役に立てるかな？
http://www.yukinko-net.jp/computer/download/downloadlist.htm

Perlってなんでこんなに楽しいの？

>>217
ラリってる奴が作ってるから。

>>217
脳内麻薬物質が出てくるからです。

ぶっちゃけ>>214に納得

>>214は深いね。

220,221=214

俺も思った

>>211-213
すまん、全然読んでなかった…orz

perlfaq7 に一つ、二重評価の例があるけど、あまり良い例じゃないな…。

>>202
/e の多重評価って確か、意図した仕様じゃなくて、開発側も当初は気づかなかったけど結果として可能になっちゃってた、というモノだったと思ふ。

「面白いからそのまま feature にしようぜ」、というノリが Perl 流か。w

winでホームディレクトリへ移動するにはどうすれば?
use Cwd;
chdir('~');
print Cwd::getcwd();

しても変化なし

とあるディレクトリで
@list = glob('*');
print @list;
とすると
a.plb.plc.pl
となる

また、
$list = (glob('*'))[0];
print $list;
とすると
a.pl

これを
$list = glob('*');
print $list;
とすると
a.pl
となる
どうしてc.plにならないの?

たとえば
$str = qw(a b c);
print $str;
とするとcになるのに

>>227
chdir($ENV{'USERPROFILE'});

>>228
readlineと同じでスカラコンテキストではイテレータになるから
ドキュメントではファイル名グロブ<>の方かな

>>229
さんくす！
でもこのUSERPROFILEっていう環境変数は誰が
セットしているの？
マイコンピュータ→環境変数とたどって一覧みたけど
USERPROFILEなんてなかったよ
win2000proですけど。

EffectivePerlに載ってたんだけど

print "hello, " && print "goodbye.";
が
goodbye1
になるのはなぜ？

print "hello, " and print "goodbye.";
ならきちんと
hello, goodbye
となる

andと&&の優先順位の違いが原因だろうとは
思うんだけど具体的に何が起こっているのかわからない

>>227
chdir の引数を省略するとホームディレクトリに移動する。参考まで。
HOME が未設定の環境でどうなるかは知らん。

>>231
explorer.exe

>>232
優先順位の問題。

print は引数にリストを取るので、連続したリストに見える後続の全てを引数として飲み込む。ひとつの文中で、print のようなリスト演算子モドキの後に何か別の処理を書く時にはこの動作に注意しなくてはいけない。
引数をそれぞれ () で括るのが最も万能の対策。() を使わずに何か後続させようとする場合は、より優先順位の低い not、and、or、xor のいずれか、あるいは制御構造修飾子を使うべし。

最初の && を用いた文は次のようにパースされる。

print( "hello, " && print( "goodbye.") );

perl はまず && の左辺 "hello, " を評価する。リテラル "hello, " は Perl の有効な真値であるため、次に右辺の print() が評価される。
print は出力に成功すると真値 '1' を返すのでこれも真と評価される。よって && の両辺が真となり、最後に評価された値である '1' が、最初の print の引数として渡され、それが出力される。

てな感じ。

>>232

>print "hello, " && print "goodbye.";
print ("hello, " && (print "goodbye."));

>print "hello, " and print "goodbye.";
(print "hello, ") && (print "goodbye.");

>>222-223
えっ、いや、それぶっちゃけちがう人だよ。
俺的にはぶっちゃけ>>215がSUGEEEEEEE!!!

s/a//ge;

>>233
C:\>perl -MCwd -echdir(); -eprint(Cwd::getcwd());
C:/Documents and Settings/Administrator

おーう、知らなかったぜ

>>233
なんだ単にchdirの引数省略すりゃよかったのか
どうもありがとうもー

eachで頭が壊れそうです

my %hash = (a=>1, b=>2, c=>3);

foreach (each %hash)
{

print $_　, "\n";

}

この結果が
c
3
になるんだけど意味わからんのです
perldoc -f each
で読んでみると
eachはスカラーコンテキストで呼ばれると次のキーのみを返すとあります
foreach ()の()の中はスカラーコンテキストですよね?
なのにどうしてprint $_ , "\n";
の結果が
c
3
なんかになるのだろう

それと、どうしてハッシュ全体が$_にセットされないの?
foreach (each %hash)としたら
まず一回目のループでeach %hashされて一つ目がとりだされて
つぎのループでまたeach %hashされて二つ目がとりだされて
っていうふうにならないのはなぜ？
ループ一回しか回らんのですが
どういうからくりか教えてくださ･･･い

そのまんまじゃねえか
foreachに使う配列がeachで取り出した(c,3)になってる
ここでも参考にしてコード書き直せ

http://perl.misty.ne.jp/function01/each.html

>>235
超わかりやすかった
さんくふぉーゆー

>>241
あ、なるほど
うわぁああん

perldoc -f each でサンプルプログラムまで出てくるというのに…

そもそもforeach (...)のカッコ内がスカラーコンテキストだと思っている時点で間違い

以前こんな風に書いてあるのを見たことがある。

$i = 0;
for $n (1..100) {
　$a[$i] = $n;
　$i++;
}

Perl の心を伝えるのは難しいものよのう。

>>245
pritn for 1
これが構文的にはOKだしね

プリトン

>>247
Unquoted string "pritn" may clash with future reserved word at - line 1.
Useless use of a constant in void context at - line 1.
- syntax OK


ほんとだ。syntax は OK らしい。

>>245
そっかforeach(...)のカッコ内はリストコンテキストだったんだね

コンテキスト以前に、foreachは（）内を一回しか評価しないということ。
配列を返す関数get_array()でforeachは（get_array() ）{...}
とか書いてもget_array()一回分の配列しか取らない。

eachで取り出した配列であるキーと値が一回分出てきている。
全ての値が見たいなら
print $_　, "\n" foreach (%hash);
とかでオケ

てか
print join( "\n", %hash, "\n");

デバッグ目的なら
use Data::Dumper;
print Dumper( \%hash );

>>252Data::Dumper超便利だねありがとー

>>251そっか単にハッシュをforeachでまわせばよかったのか
ありがとー

「each は while のオプション」くらいの認識でだいたいヨシ。

Perlのスレッドっていくらなんでも重過ぎない？
スレッドごとにインタプリタの環境を複製するから仕方ないのかな？
perl -e 'use threads;push(@TL,threads->new(sub{}))for(0..99);sleep 10;$_->join for(@TL)'

>>255
うん、激重な上にメモリもかなり消費。

文字コードをＥＵＣかＳＪＩＳかを変数で切り替えるようにしたいんだけどうまく表示できません
どうすればうまくいくんでしょうか？

$mozi_code="euc-jp";
#$mozi_code="sjis";


$str="文字コードテスト";

print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=$mozi_code\">";
print "<HTML>";
&jcode'convert (*str,$mozi_code);

print "文字列＝$str";
print "</HTML>";

HTMLの勉強しる

print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=$mozi_code\">";
print "<HTML>";
ってなによ。

>>258
途中省略しただけ
これでもちゃんと表示できないんだけど

$mozi_code="euc-jp";
#$mozi_code="sjis";
$str="文字コードテスト";

print "<HTML>\n";
print "<HEAD>\n";
print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=$mozi_code\">";
print "<TITLE>$title</TITLE>\n";
print "<BODY>";

&jcode'convert (*str,$mozi_code);

print "文字列＝$str";

print "</BODY></HTML>";

以下のサブルーチンが何やってるか意味不明です

sub is_tainted {
return ! eval {
join('', @_), kill 0;
1;
};
}

if(is_tainted($value))

などとして$valueが汚染されているかをチェックするらしい


join('', @_), kill 0;
が特に理解できない

kill 0でプロセスの状態がチェックできるのはわかったけど
いったいどのプロセスをチェックしてるんだ?
本当ならkill 0, xxxというふうにプロセスID指定しなきゃならんのでは?

>>258
print "文字列＝$str";

とりあえずこの「文字列＝」の部分も変換すれ

>>260
kill 0は汚染チェックされる物なら何でもよくて、特にkill 0でなければならないというわけではない。
たぶん実行しても他に影響なさそうなものということで選んだと思われる。

そしてなぜだかわからないがperlsec(1)の例にあるように、

$arg, `true`; # Insecure (although it isn't really)

汚染されたデータと危険な操作を,で並べたときも汚染チェックでNGになるので、is_taintedの
パラメタが汚染されていたときは実行時エラーの発生によりevalの戻り値がundefになる。

&jcode'convert (*str,euc);だとうまくいくのに
&jcode'convert (*str,euc-jp);だとエラーがでるのはどうしてですか？

なぜperl4

>>263
jcode.plのconvertは文字コードの指定はeuc,jis,sjisのどれかしか受付けない。
euc-jpは結果的に空文字列になるがそのどれでもない。

素直にJcode.pm使った方が…

>>265
ちょっ、euc-jp の結果は 0

>>267
ありゃ、確認するために

print euc-jp;

としたら空文字列だったんだが、よくかんがえるとこれは
eucというファイルハンドルに-jpをprintしていたのか...
すまん。

>>262
ごめん。理解できなかった

jcode.plの57-58行目読めよ

ＥＵＣコードに改行って含まれるんでしょうか？

&jcode'convertでＥＵＣに変換するときソースコードの表示する文字列部分を一つずつ

&jcode'convert (*str1,euc);
&jcode'convert (*str2,euc);
&jcode'convert (*str3,euc);
というようにしなければならないのですか？

ページ全部一括でＥＵＣに変換できないんですか？

含まれるんじゃないかな？
http://euc.jp/i18n/charcode.ja.html

なんか凄い奴がいるな……。
正しい行き先教えてやれよ。

>>273
つまりフォームから送信されたデータをファイルに書き込んで保存する場合は
ＥＵＣに変換して保存するのはやめたほうがいいということですね？

( ﾟдﾟ)ﾎﾟｶｰﾝ

>>275
>>1読んで。

>>269
kill がシグナル送信に成功したプロセス数を返すことを思い出したら、
kill 0; の戻り値を確認するといいよ。

>>262 は、この(一見)無意味なkill 0; の役割だね。

>>272
&jcode'convert (*all_str,euc);

>>275
どこをどう読むと（ｒｙ

>>278
ありがとう。
でもごめん
もっとわからなくなった

>>279
データの保存方法ですが

１：フォームから送信されたデータをＥＵＣに変換して保存してＥＵＣとして読み込んで表示する
２：フォームから送信されたデータをＳＪＩＳで保存して読み込むときＥＵＣに変換するして表示する

のどっちがいいか知りたかっただけです
それでどっちがいいんでしょうか？

>>281
自分のすきな方でいいんじゃないかな。

保存より表示の回数が多いなら、保存時に変換しておくと変換回数を減らせる。
まぁ、効果は小さいものだろうけど。
個人的には、表示を EUC で行うなら EUC で保存しておくのが好みだけど。

板違いはしょうがないとしても指摘されたら改めろ。
それを助長するように回答付ける方もカスだが。

>>283
指摘されたのが自分だと気づいてないんじゃないだろうか。

>>283
まぁもちつけ。
それから、もっとまともな指摘をしろよ。

perlで以下のようなpasswdファイル文字列の"Hoge"の部分だけ小文字にしたいと考えています。
hoge:kwaKjt6IJ/rBs:1100:100:Hoge,,,:/home/hoge:/usr/bin/csh

区切りが:と,の2つあるので下のようにしました。

m/(.*):(.*):(.*):(.*):(.*):(.*):(.*)/;
@MA = split(',',$5);
$MA[0] = lc($MA[0]);
$MA2 = join(',',@MA);
print "$1:$2:$3:$4:$MA2:$6:$7\n";

ところがこれをおこなうと、小文字に変わりますが",,,"が消えてしまいます。
hoge:kwaKjt6IJ/rBs:1100:100:hoge:/home/hoge:/usr/bin/csh

,,,のところはnullだけでなく文字が入る場合もあります。
どうすれば
hoge:kwaKjt6IJ/rBs:1100:100:hoge,,,:/home/hoge:/usr/bin/csh
のようなかたちになりますか？

>>286
splitのマニュアルを、良く読め。
3つ目のパラメータだ。

@MA = split(',',$5,-1);

とか

(.*): より ([^:]*): の方が良くないか？

>>286
s/(.*?:.*?:.*?:.*?:)(.*?):/$1.lc($2)/e;

みなさんありがとうございます。
@MA = split(',',$5,-1); でうまくいきました。

s/^((?:[^:]*:){4})([^,]*)/$1.lc($2)/e;

>>285
まともな指摘がなされてると思うが

>>259
取り繕ってもダメ。大文字でタグを書く人間がHTMLを勉強しているはずがない。

>>294
論理的じゃない理論だが、納得。

>>294
昔は、本文と区別しやすくするためにHTMLは大文字で書くのが良いとされていたのになぁ

終戦直後はそうだったよなぁ

>>296
>>259がその手の人とは思えませんが？

一行ごとに print文使うのは突っ込むところじゃないのか？

みんなマメだね。ｗ

Perlを愛するみんな!! ありあまっているそのパワーを、フリーソフトウェアを作ることに向けようよ!!

そうすれば、世の中少しは良くなるよ!!

>>301
Perlを愛してるなんて気持ちはないと断言できる！

WindowsXP proでwin32::DDEをインストールし
ppm install http://www.bribes.org/perl/ppm/Win32-DDE.ppd
Excelの一番左上のセル(C1R1)の内容を延々と表示するプログラムを書きました。

#!/Perl/bin/perl
$client = new Win32::DDE::Client ('excel', "Sheet1");
print sprintf('%06d ', ++$i), $client->Request ('R1C1') while 1;

32768回目(2^16 / 2)のリクエストから挙動がおかしくなり
49152回目(2^16 / 4 * 3)からは4回に1回しか値が取得できなくなり
65536回目で
「Undefined subroutine &main:: called at C:/Perl/site/lib/Win32/DDE/Callback.pm line 46.」
とエラーを吐きます。このエラーをググると
http://www.google.com/search?num=50&hl=ja&ie=UTF-8&oe=UTF-8&q=%22Callback.pm+line+46%22&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=
2件ヒットしますが解決に至りませんでした。
何かいいアイディアはありませんでしょうか。

>>303
以前 Win32::DDE 使ったことあるけど、おれもエラーが出た。
そのときソース（Win32::DDE のperl部分）もみたけどよく分からなかった。

Win::32::DDE::Callback には

TO DO
Test, debug, document; this hasn't been touched since the original version, and
doesn't seem to be used by Win32::DDE::Client, so no rush :)

と書かれてるけど、Win32::DDE::Client によって使われてるし。

2^15 や 2^16 回でエラーが発生してるということは、モジュール自体あたりのバグかも
しれないね。
Win32::DDE ではなく、Win32::API を使うという方法はどうかな。

PDFを読めるようなモジュールってないでしょうか。
今はpdftotextを呼び出して使っているんですが、
その部分を自分で作ってしまえればすっきりするかなぁと思っています。

http://search.cpan.org/search?query=PDF&mode=all
いろいろあるようだけど、どれがおすすめとかは知らない

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

実はすでにモジュールのサーチはしてたんですが、
作るためのモジュールと読み出すためのモジュールの区別も付かなかったんです。
英語力なさ過ぎです。
せめてサンプルプログラムでもあれば想像で何とかできるんですが…。

特定のコマンドラインオプションが指定されていた場合は
指定されたファイルに出力
されていなかった場合は標準出力
というように処理を分けたいのですが、何かいい方法はないでしょうか
今はいちいち if で処理を分けているのですが
けっこう量が多いので面倒なのです

$ some_script.pl -o foo.txt
foo.txt に結果を書き込む
$ some_script.pl
結果を標準出力する

>>304
ありがとうございます。
XSの方のソースをちょっと眺めてみます。
9年前に作成されたモジュールでVer0.02だから多くを求めるのは無理なのかもしれませんねーー）

>>308
リダイレクトじゃだめなのかい
some_script.pl > foo.txt

>>308
select
open STDOUT,...
open $fh,'>&STDOUT' や $fh = *STDOUT

>>308
つーか その出力用のメソッド作れば？

それはなんか美しくないなぁ

open FILE, ...
select FILE;

de ii jan.
むしろ >>310 でいいじゃん。

>>310
すみません、書き忘れていました
途中経過を標準出力したかったので
リダイレクトは使いたくなかったのです
>>311 でうまいこと実現できたのでこれを使わせていただきます
どうもありがとうございます

途中経過はSTDERRに出せばええやん…

それはなんか美しくないなぁ

use strict; しちゃうと、どうやってもtrue/false は使えなくなるの？

Perlにはtrue/falseのリテラルないよ

0と1でいいじゃん

use constant false => 0;
use constant false => 1;

じゃ駄目なん？

うわ、コピペミス
use constant true => 1;
ね。

win2kのコマンドプロンプトでactiveperlを使っています
テキストの表示で、一部だけ色を付けるにはどうすればいいですか?
config.sys書き換えて、とかは無しの方向で

>>323
Term::ANSIColor
Win32::Console::ANSI

>>323
自前でエスケープコード送ったりする方法も使えるかも。一応。
モジュール使う方が断然いいけど。

エスケープコードは、cmd.exeが無視するので使えません
ansi.sysを組み込んでcommand.comから起動すると使えるようですが、
それはあまりに一般的でないので避けたい

無視するので使えません
って自分で言ってんじゃん。

cmd.exe では使えないけど、command.com では使えるってことじゃまいか。
ま、モジュール使うということでよさそうだけど。

いやいや、cmd.exeで動いてる他のexeファイルで
カラー表示してるのは普通にあるから、ESC[31m とかに頼らなければ
方法はある筈なんだけど、perlでどうやるんだろうと

Term::ANSIColor は試してみたけど、エスケープコードを代わりに
出してくれるだけだったので効かなかった

Win32::Console::ANSI がそれを解決するのか

Windows NT/2000/XP does not support ANSI escape sequences in
Win32 Console applications.
This module emulate an ANSI console for the script which uses it.

でもインストールの敷居が高い

nmakeはなんとか落としてきたけど、
Cコンパイラは何を使えばいいんだろう

>>329
ここで聞く質問じゃないな。

PerlはLinuxでは大体/usr/lib/perl5/にインストールされますが
下記のディレクトリ構成はどういう基準で分けられているのでしょうか？


root@localhost [/usr/lib/perl5]# ls
5.8.3/ 5.8.4/ 5.8.5/ 5.8.6/ 5.8.7/ 5.8.8/ site_perl/ vendor_perl/

>>333
みての通り、Perlのバージョンによってわけられてる。
perl5/VERSION/がバージョン別のコアライブラリ
perl5/site_perl/VERSIONがバージョン別の追加ライブラリ
vendor_perlとsite_perlの違いはよく分からん。

>>334
ありがとうございます。
/usr/lib/perl5/直下にコアライブラリがあって
site_perlとvender_perlは追加ライブラリって事なんですね。
いろんなバージョンが共存できるから、バージョン毎にディレクトリがあるのでしょうか？

FedoraCoreではrpmで入れるとvender_perlに入って、cpanから入れるとsite_perlに
入るらしいですけど、なんで２つに分かれてるんでしょうね。。。

>>332
perlでできるって

>>336
できるかできないかじゃないだろ？　正真正銘のアホだな。
それがありならCGIの質問だってOKってことか？

>>330-331
ppm install Win32-Colsole-ANSI
でよくね？

>>337
Perlがかかわってるならなんでもいいよｗｗｗ

>>335
まさかきみサーバ運用する気って訳じゃないよね？

>>340
ご安心ください。。。
外部に公開する気は今の所全くありません。
単にperlの勉強を始めようと思って、環境を作ろうとしているだけですので。

>>341
あ、いや、偉そうにごめん。

>>338
Error installing package 'Win32-Colsole-ANSI': Could not locate a PPD file for package Win32-Colsole-ANSI
となります
何か下準備が要る?

タイプミスですた

ということで、カラー表示できました
以下サンプルプログラム

use Term::ANSIColor qw(:constants);
use Win32::Console::ANSI;
$Term::ANSIColor::AUTORESET = 1;
print BOLD RED "RED\n";
print BOLD GREEN "GREEN\n";
print BOLD BLUE "BLUE\n";

#!/usr/local/bin/perl
print "あなたのお名前を教えて下さい。入力(ローマ字)=>";
$yourname = <STDIN>;
print "こんにちは、$yournameさん\n";

は実行できるんですが

#!/usr/local/bin/perl
$greeting = "こんばんは";
$name = "三島";
&prt_message2($greeting,$name);

sub prt_message2{
print "$_[0]、$_[1]さん","\n";
}

はコマンドプロンプトがでてきません
違いはフォルダが違うだけなんですが
どう対処したらいいでしょうか？？

ダブルクリックで起動させようとしました

いつもperl command line interpreterで開いてます

何度もすみません
よろしくおねがいします

多分、物凄い速さでウィンドウが

そうです
それをとめる方法はどうしたらいいでしょうか？？
調べたらプロパティをいじくると書いてあったんですが
みても書いてありませんでした
ＣＭＤですよね？？

【すいません演算子】

記述
<> =~ m(_ _)m;

効果
変なプログラムでごめんなさいと思ったところに挿入すると
一時的に停止して確認できるようになります。

副作用
CGIでつかうと何が起こるかわからないので決して使わないでください。

ちがうすれいきます

>>351
ﾜﾗﾀ。あんた最高。

cpanからモジュールをインストールするときはinstallでOKですが
削除するときのコマンドってありますか？

rm

>>355
それはcpanからではなくて、直接削除しちゃえばいいっていうことですか？

1. CPANPLUS
2. packlist の中身を rm で削除

コマンドプロンプトで普通
C:\perl>にしたら
hello.plをデスクトップにおいて
コマンドプロンプトでperl hello.plを実行すると実行できるんですが
あるデータをデスクトップにおいて同じ事をするとデータが見つからないって言われるんですけど…どうしたらいいでしょう？

日本語でおｋ

すみません
うまくかけませんでした
Can't open perl script "hello02.pl": No such file or directory
とでたんですがどうしたらいいでしょうか？？
デスクトップに置いてあるんですが

>>358
C:\perl\　の下にもhello.plがある
に一票！

普通は実行したいスクリプトのあるところまで移動してから実行する
(c:\perlにはパスが通っていること)

>>360
そう名乗るのが流行ってるの？何なの？
Perlコーディング初心者質問スレ Part 48
http://pc8.2ch.net/test/read.cgi/php/1146042050/456

>>361さん
C:\perlってPROGRAMFILESの中にありますよね？みたらないんですが…

検索かけたらありました…なぜだ……orz
一つ疑問なんですがhello.plをダブルクリックするとコマンドプロンプトがすぐ消えるんですが消えなくできませんか？

最後にsleep(5);でも入れとけ

>>363-364
Windowsの基本を勉強した方がいい気がします。
C:\perl\ は C:\perl\ です。
C:\Program Files\ は C:\Program Files\ です。
ぜんぜん別物です。

基本はコマンドプロンプトを開いてそこから実行すべきです。
どうしても直接実行してそのまま開いておきたい場合は、
BATファイルに記述してプロパティで継続オプションを有効にしてください。

ありがとうございます
調べたらoggdropXPdでもできるらしいですね
知識ない俺には無理だ…

もうね…

＞oggdropXPd
( ﾟдﾟ) …。

あまりにプログラミング以前過ぎてﾜﾛﾀ

質問です。
<TABLE border="1" >
<TBODY>
<TR>
<TD>お名前（必須）</TD>
<TD><input type="text" size="30" name="name" id="name"></TD>
</TR>
<TR>
<TD>■メールアドレス（必須）</TD>
<TD><input type="text" size="30" name="mail"><BR>
<input type="text" size="30" name="mail2">（確認用）</TD>
</TR>
</TBODY>
</TABLE>
これの、nameを指定する時、$in{'name'}で参照に行ってくれません。
どう書けばいいの？

>>371
ソースも何も無しでは、全く我々には分かりません。
WebProg板でどぞ

>>371
つまり君の書いたプログラムを想像しろと、こう言いたいわけですね。
あるいは君の書いたプログラムが保存されているコンピュータを
クラックしてソースを見ろと、こうおっしゃる。

>>371
PHPみたいに、変数に自動で設定はされませんよ。

>>373
それくらいやってやれよ

>>375
やったけどｽﾊﾟｹﾞｯﾃｨだったんで萎えた

>>375
エスパーの俺にまかせろ！

%in = map{s/\+/ /g;s/%([\da-fA-F]{2})/chr hex$1/eg;$_}map{split/=/,$_,2}split/&/,$ENV{QUERY_STRING};

>>371
で <FORM> が無いってどういうことだ？！

みんなやさしいな

インストールに関する質問もこちらでよろしいでしょうか？

RedHat Enterprise AS3なレンタルサーバにperl-5.8.8をインストールしようとしているのですが
make testの段階でSys::syslogのモジュールのテストが失敗します。

ちなみに/usr/local/src下でソースのコンパイルを行っているのですが
/usr/local/src/perl-5.8.8/ext/Sys/Syslog下でmake testを行うと

# Error: Can't load '/usr/local/src/perl-5.8.8/ext/Sys/Syslog/blib/arch/auto/Sys/Syslog/Syslog.so' for module Sys::Syslog:　\
/usr/local/src/perl-5.8.8/ext/Sys/Syslog/blib/arch/auto/Sys/Syslog/Syslog.so: undefined symbol: PL_sv_undef at /usr/lib/perl5/5.8.0/i386-linux-thread-multi/DynaLoader.pm line 229.
# at (eval 1) line 2
# Compilation failed in require at (eval 1) line 2.
t/00-load......NOK 1# Looks like you failed 1 tests of 1.
t/00-load......dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 1
Failed 1/1 tests, 0.00% okay
とか
# doesn't match '/^This is not a valid Sys::Syslog macro/'
t/constants....NOK 1# Failed test (t/constants.t at line 20)
# '&Sys::Syslog::constant not defined at (eval 3) line 1
こんなのがたくさん出ます。

なにが原因なのでしょうか？

以前ここでwindowsで.plファイルをダブルクリックで実行
するとコマンドプロンプトが開くがすぐに閉じてしまうという
質問に対して.batファイルを使った便利な解決策を伝授し
てもらいました

perl %1
pause

このようなバッチファイルを.plファイルと関連付けることで
ダブルクリックで.plファイルを起動してもコマンドプロンプト
は閉じなくなるということでした
ところがこのバッチファイルの名前を
perl.bat
とすると変なことになります。

例えば
print 1;
というf:\perl\a.plファイルをperl.batに関連付けて実行すると
延々とperl "f:\perl\a.pl"
が表示され続け、また1というprintもされません
これはどういうことが起こっているのでしょうか?

perl %1
にしてるからperl.batがperl.batを延々呼び続けてるんじゃないの。
perl.batをやめるか、バッチファイル内のperl.exeをフルパスで書けばいいんでない。

C:\perl\bin\perl %1
pause

>>380
RedHat または Linux 関係のスレで聞くべし。

つーかもはやPerlの質問じゃないだろ…
Windows板でやれ

>>384
ごめんなさい

>>382
そっか.batの拡張子は無視されちゃんだ
ありがとうございます

Benchmarkについて質問です

use Benchmark;

$count = 100000000000;

timethese( $count, { test1 => 'test1', test2 => 'test2' }

sub test1 { ...}

sub test2 { ...}

これをやろうとすると$countが桁数多すぎるみたいで
Range iterator outside integer range at (eval 4) line1.
とエラーになってしまいます。
確か通常のperlが扱うintegerよりもずっと大きい桁数を
扱えるようにする標準モジュールがあったような気がする
のですが…

どのような解決策があるでしょうか?

bignumじゃね？

>>387
use bignum;
いれたけど同じエラーになります

Benchmark.pmの方にも
use bignum;
を入れると違うエラーになりました
runloop unable to compile '': Constant(undef): $^H{integer} is not defined at (e
val 10) line 1, at end of line
Constant(undef): $^H{float} is not defined at (eval 10) line 1, at end of line

code: sub { for (1 .. 10000000000000) { local $_; package main; ;} }
at F:\perl\test.pl line 7

こりゃお手上げじゃー

>>389
bignumのマニュアルに以下のようにあるのでだめだね。

Please note the following does not work as expected (prints nothing),
since overloading of '..' is not yet possible in Perl (as of v5.8.0):

perl -Mbignum -le 'for (1..2) { print ref($_); }'

そこだけなら範囲演算子使わないように書き換えればなんとかなるんじゃね?

for($_ = 1; $_ <= 100000000000; $_++) { ... }

みたいに。隠れていた別の問題がでるだけかもしれんが。

http://www.kt.rim.or.jp/~kbk/perl5.005/perldelta.html

[
use constantの「定数」は、
実は定数を返すsubなので、
sigil ($@%&*)が定数から消えてしまう
]

use constant A => 'xx';
が
sub A { 'xx' }
と同義だというのはわかったのですが、

sigil ($@%&*)が定数から消えてしまう

というのが理解できません

コードで具体例を教えてもらえませんか?

>>392
単に頭に sigilが付けられないから
スカラなのか配列なのか、何なのかよく分からなくなるという意味では

>>393
あっそういう意味でしたか
どうもさんくすべりまっちゅ

>>390
Benchmark.pmの635行あたりにあった

$subcode = "sub { for (1 .. $n) { local \$_; package $pack; &\$c; } }";

を

$subcode = "sub { for(my \$int = 1; \$int <= \$n;\$int++) { local \$_; package $pack; $c;} }";

にしたらとりあえず動いてるっぽい
でも
timetheseに10000000000000も指定しちゃうと
ベンチ終わんない..

>>386
sub test1 { ...}

を

sub test1 { for ( 0...9999 ) { ... } }

という風にするとかは。

>>395
そもそも何で10兆回も反復させる必要が?
一秒当たりの実行回数を測れれば充分じゃない?

http://search.cpan.org/~nwclark/perl-5.8.8/lib/Benchmark.pm
> The COUNT can be zero or negative: this means the minimum
> number of CPU seconds to run. A zero signifies the default of
> 3 seconds. For example to run at least for 10 seconds:
>
>　　timethis(-10, $code)

test1を10000回繰り返す関数を作るとか。
関数呼び出しのオーバヘッドが気になるかな？

>>397
ソレダ

ベンチマーク用に遅いマシンを確保しておくという方法。

$#LIST、これが要素数を変えなさいのって言語の設計的なミス？
for (my $i; $i<$#LIST; $i++) {
$LIST[$i] = ...
こう書ける方が自然だと思うんだけど

foreach my $i (0 .. $#LIST) {
　$LIST[$i] = ...
}
こっちを想定したんじゃないかな

>>401
配列はスカラコンテキストで要素数を返す。
for (my $i; $i<@LIST; $i++) {
$LIST[$i] = ...

my @LIST = ( A..Z );
print $LIST[$#LIST]; # Z
$#LIST = 5;
print $LIST[$#LIST]; # F
push @list, '-';
print $#LIST; # 6

言語仕様のミスだなんてとんでもない。

>>404
>$#LIST = 5;
これだけど、0を代入しても先頭の要素が残るのってあんまり直感的じゃないような・・・

>>396
なるほど！！！全然思いつかなかった

>>397
全然知らなかった。次からはそれ使います

>>398
実用Perlって本に変数をサブルーチンに渡すときに
普通にsub1(@list)って渡すと配列のコピーのオーバヘッドが
出ちゃうからそれを回避する策としてリファレンス渡しと
型グロブ渡しの二つがあって、型グロブ渡しの方が1.5倍速い
って書いてあったのでBenchmark使って
timethese(1000,ほにゃらら)って実験してみたら
warning: too few iterations for a reliable count
てなってループ少なすぎて速度差出ませんってなったから
もっと増やしてやろうとしたのでした

>>405
それは仕方ない

配列のクリアは
@list = ();
undef @list;
好きな方を選べ

どうせ↓で配列クリアできたとしても↑と比べて感覚的に理解しづらいだろ。
$#LIST = 0;

$#は最後の添え字、それで十分

@list = qw(10 20 30);
sb(*list);
print "@list";

sub sb{
*copy = shift;
foreach (@copy) { $_++}
}

これだと出力は
11 21 31
になります

shiftを$_[0]と変えても
11 21 31
のままです

ところが
shiftを@_に変えると
10 20 30
となってしまいます

なんで---

>>408
(*copy) = @_;

>>409
11 21 31
になりましたありがとうございます

でもどうしてカッコで括るだけでうまくいったの?
どういう原理なの？

sub a {
my @a = @_;
print "@$a";
}

my @a = (a, b, c);
a(\@a);

サブルーチンに配列のリファレンスを渡して
サブルーチン内でそれをデリファレンスして表示したいのですが

これの結果に何も表示されません
a b cと表示されることを期待しているのですが
どこがまずいのでしょうか?

sub a {
my $a = shift;
print "@$a";
}

リファレンスはスカラだから、配列じゃないよ

>>411
use strict;　してる？

ばかでした失礼しました
ありがとうでした

Perl一本で仕事ありますか？

>>408
なんだけどいくら考えてもわかりません
例えば*copyが型グロブじゃなくてスカラーだったら
@_ = qw(a);
$copy = @_;
としちゃうと$copyにはaじゃなくて1が入ってしまうから
($copy) = @_;
としなきゃいけないってのはわかるんだけど
@_ = *list;
*copy = @_;
がうまくいかないのに
(*copy) = @_;
がうまくいくのはなんでなんだろう
たすけてください

>>416
デバッガでシングルステップ実行してみるといいよ。

>>416
*copyがスカラーだから。$copyと理由は一緒。

てか、型グロブってきんもー☆だから極力避けたくね？

>>419
避ける。
こんな変態行為覚えちゃったら、Perlから離れられなくなっちゃうと
思ってる。

今時型グロブて…

BEログインして書き込んでいる人が煽ってばっかりのクソレスばっかりでうざいんですけど

そうですか。

>>421
いいじゃないか型グロブ
「もっとエレガントな方法があるじゃないか」と言いたいだろうけど、
そのエレガントな方法を生み出すためには型グロブが必要なんだぜ？

バッドノウハウの極地だな。

個人的には嫌いで使ってないけど、ありだと思う型グロブ。
だってPerlだし。

PerlのtieはC#のプロパティとほぼ同義と考えてよいでしょうか?

libwww-perl（LWP）モジュールのインストールについて質問です。

多分インストールしなくても最初から入ってると思うんですけど、
HTTPアクセス関連の動作がおかしい（※）ようなので
関連モジュールをもう一度インストールしようとやってみましたがうまくいきません。

perl Makefile.PL
make
make test

までは普通に進み、「All tests successful.」と出るのですが

make install

とすると、lwp-requestのところで

Can't find string terminator "@" anywhere before EOF at -e line 1.

というエラーが出て終わってしまいます。
ppmもcpanシェルも、それぞれ別のエラーで失敗するので諦めました。

環境は以下の通りです。どうしようもなくて困っています。どうか助けて下さい。
OS…WinMe
Perl…ActivePer5.8.8.817
LWP…libwww-perl-5.805
Cコンパイラ…Borland C++ Compiler

（※動作がおかしいというのは以下のリンク先の質問のような症状です。
基本となるURLみたいなものがブラウザにちゃんと渡されていないようです。）
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2143752

よろしくお願いします。

お前らRubyスレ荒らすなよ

ったくクソどもが！

Rubyスレ荒れてんの？
面白そうだから俺も荒らしに行こ。

>>429
見てきたが、あれでPerlスレの住人を疑うって凄い被害妄想だな。
Perl6ならともかくPerl5はRubyとほぼ棲み分けされてるだろう。

そんなんだから荒らしを退治できないんじゃない?

>>430
py厨乙

型グロブでprint関数のデフォルト出力先を変えられる？

>>432
>>308-

>>433
open my $fh,">foo.txt";
*STDOUT=$fh;
print "aaa";

これでいけました。どうもありがとう。

>>434
それをやるなら、普通は
open my $fh,">foo.txt";
select $fh;
print "aaa";
だが。

>>435
ほうほう、selectってそういう関数だったのか。
勉強になりました

局所化した関数を再帰処理させるってできますか？
sub foo(){
　　my $var = sub(){
　　　　　　　　　　$var->();
　　　　　　　　　}
}
みたいな感じですが。

Win32::DDEを諦めWin32::APIを利用してUser32.dll経由でDDEを利用しようとしたのですが
根本的な知識に乏しく簡単なサンプルプログラムも作れませんでした。
途中で挫折したExcelの一番左上のセルの情報を取得するプログラムです。

use Win32::API;
$sendData = "R1C1"; # 送るデータ
$ini = new Win32::API("User32", "DdeInitialize", ["N", "N", "N", "N"], "I") || die $!; # イニシャライズ
$ret1 = $ini->Call(\$insID, 0, 0, 0) || die $!;
$con = new Win32::API("User32", "DdeConnect", ["N", "N", "N", "N"], "N") || die $!; # 接続
$ret2 = $con->Call($insID, 'excel', 'sheet1', undef) || die $!;
$snd = new Win32::API("User32", "DdeClientTransaction", ["N", "N", "N", "N", "N", "N", "N", "N"], "N") || die $!; # データ送信
$ret3 = $snd->Call($sendData, length $sendData, $con, undef, 0, 'XTYP_REQUEST', 10000, undef) || die $!;
print $ret3;

どなたか正常に動作するプログラムをご教授いただけませんでしょうかm(_ _)m

sub foo(){
　　my $var = sub(){
　　　　　　　　　　$var->();
　　　　　　　　　}
}
このとおり走らせてみてから聞けよ

$varは、無名サブルーチンからグローバルに見えるはずなので動きそうだけどね

無名関数を定義するまえに変数$varを存在させとけばいい
つまりこうだ
my $var;
$var = sub() {… $var->(); …};

やりたいことをちゃんと書いてる間に解決策が・・・
ありがとうございました！

やりたかったこと（解決バージョン）
$aaa = '1234aaaa5678bbb9876ccc';
@list = &func($aaa);
print join(',', @list), "\n";

sub func(){
　my $str = shift;
　my $list;
　$list = sub {
　　my $var = shift;
　　$var =~ /(\d+)(.*)/;

　　my $first = $1;
　　my $rest = $2;
　　print $rest, "\n";
　　if($first =~ /\d+/){
　　　return ($first, $list->($rest));
　　}else{
　　　return ();
　　}
　};
　return $list->($str);
}

>>442
解決乙

>$var =~ /(¥d+)(.*)/;
>
>my $first = $1;
>my $rest = $2;
どうでも良いけど↑の部分

my($first, $rest) = ($var =~ /(¥d+)(.*)/);
こんな書き方が俺は好き。１行で書けるから

>443
おおう。勉強になりますた。

ここには分かる方おられませんでしょうか？
スレ違いなら他をあたります。

>>428
>libwww-perl（LWP）モジュールのインストールについて質問です。
プロキシーやウィルス・ソフトが動いていると、
接続できないことがあるが...

>>446
ありがとうございます。それは知りませんでした。

早速Norton AntiVirusとZoneAlarm（ファイアウォール）を止めてやってみましたが
やっぱり「http://127.0.0.1/〜」となってしまいます…。

通常の場合、
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2143752
↑ここの回答者の方がおっしゃっているみたいな処理をしなくても
相対指定の画像やスタイルシートとかって、ブラウザが自動的に読み込んでくれますか？

>>442
わざわざそんなめんどくさいことしなくても。
$aaa = '1234aaaa5678bbb9876ccc';
print join ',', $aaa =~ /(\d+)(?{ print $', "\n" })/g;

>>447
> 早速Norton AntiVirusとZoneAlarm（ファイアウォール）を止めてやってみましたが
> やっぱり「http://127.0.0.1/〜」となってしまいます…。

意味不明

> 通常の場合、

「通常の場合」の意味が不明

> http://oshiete1.goo.ne.jp/kotaeru.php3?q=2143752
> ↑ここの回答者の方がおっしゃっているみたいな処理をしなくても
> 相対指定の画像やスタイルシートとかって、ブラウザが自動的に読み込んでくれますか？

ブラウザや、その設定による。

スルーしろや。

>>447
以下のコードが動かないなら、ActivePerl を再インストールすべし。
アンインストール後、ActivePerl のフォルダも全部消してから。

use LWP::Simple;
print get( 'http://www.yahoo.co.jp/' );

また、socket での通信もできないとのことなので、ネットワークあたりの問題の
可能性も高い。
Windows のネットワークのプロパティを見てみるべし。

キチガイ相手にするなや。増えるぞ。

なんつーか、

use LWP::Simple;
print get( '/' );

とかやって「うまく動かん！」と言っているような予感。

ファイル名の取得についてです。
c:\windows\*\ABC*.txt
wildcardを利用してファイル名（フルパス）を
配列か何かで取得するのに
何かよい関数とか知りませんか？

globとか？

>455
ありがとうございます。
できました。
@files = glob('c:\windows\*\*.txt');

>>438
OLE　を使いなよ。ここにサンプルあるから。
http://www.att.or.jp/perl/faq/perlwin32faq/perlwin32faq12j.html#extract_cells

DDE のモジュールがかなり前から更新されてないのは、DDEは古くて
OLEよりも機能が劣っており、みんなOLEを使っているからだよ。

皆さんありがとうございます。
おっしゃるようにActivePerlを再インストールしました。
でも同じです…。

>>451のコードは動くのですが、ブラウザ上でちゃんと表示されないんです。
中心の「ショッピング」「共同購入」とかのリンクにカーソルを持っていくと、本当は

http://www.yahoo.co.jp/r/sh
http://www.yahoo.co.jp/r/gb

とかになっているはずのところが

http://127.0.0.1/r/sh
http://127.0.0.1/r/gb

となっていたりします。
だから、本来ブラウザが自動的に取得しにいくはずのものが取得できていません。
例えば右上の「個人ツール」の上の広告が表示されてなかったりします。
もっとスタイルシートとかをバリバリに使っているサイトだと、ページ全体がぐちゃぐちゃになります。

相対指定の基準とするURLをブラウザにちゃんと渡せていないせいかと思うんですが…。
これって他の方も同じなんですか？

>>458
> 皆さんありがとうございます。
> おっしゃるようにActivePerlを再インストールしました。
> でも同じです…。
>
> >>451のコードは動くのですが、ブラウザ上でちゃんと表示されないんです。

意味不明。

> 相対指定の基準とするURLをブラウザにちゃんと渡せていないせいかと思うんですが…。
> これって他の方も同じなんですか？

意味不明。

>>459
死ね。キチガイに構う同類。

意味不明ですか？　じゃあ言い方を変えます。

お時間のある方にお願いしますが、次のコードで@niftyのトップページを取得してみたら
どうなるか教えていただけませんでしょうか？

print "Content-Type: text/html\n";
print "\n";
use LWP::Simple;
print get( 'http://www.nifty.com/' );

私のところだと、ブラウザ上での表示がぐちゃぐちゃになります。

（トップページのHTMLファイル自体は正常に取得できているのですが、
相対指定でリンクされている画像やスタイルシートやJavaScriptのファイルが取得できないため、
表示がぐちゃぐちゃになってしまうんだと思います）

ＡＣＴＩＶＥＰＥＲＬをダウンロードしようとしたら、
このインターネットサイトを開くことができませんでした
というエラーが出てきたできません。どうすればいいんでしょう。

>>461
消えろｺﾞﾐｸｽﾞ

>>458
それはそういうものだよ。
HTML を勉強すると吉。

>>460
まあそう荒れるなや。

>>458
m9ﾌﾟｷﾞｬｰ

<base href="http://www.nifty.com/">

>>462
セキュリティソフト切る。
それでも無理なら、他のPCでdownloadすべし。

パールで出力したデータを隠したいんですが、どうやったらいいでしょうね？？
<!-- --!>の間に隠すのや、<div style="desplay:none">で消すのって、見ようと思えば見えるんですよね？？
パールにお詳しい皆さんに、力を貸していただきたく思います。

>>468
日本語でおｋ

>>464
「そういうもの」とは…？
皆さんは、正常に表示させたい場合は>>466のタグを挿入して返してるんですか？
それだと元のページをそっくりそのまま取得できたことにならないと思うんですけど…。

HTTPヘッダにそういう情報があるのかと思ったんですが違うんでしょうか。

>>467
ノートンきりました。そしたらなんだか、パソコンがかってに再起動するように鳴ったんですが(泣)。
他のパソコンはありません。携帯なら歩けどできない。

おかしい質問だけじゃなく、それに対する返答も含めて巧妙な荒らしに見えるのだが。。。

>>470
HTTPヘッダにそんな情報はねえし
ヘッダ保存してないだろ

>>473
そんなこと聞いてるんじゃないんですが（苦笑）

>>474は偽物です。何が目的なんですか？
一時的にトリップつけさせていただきます。

>>473
じゃあ相対指定のリンクを含むページを取得する方法って
どうやるのか教えてください。

>>475は偽物です。何が目的なんですか？
一時的にトリップつけさせていただきます。

少しは自分で考えろ

で、結局私の質問に答えられる方はおられないのでしょうか。
それともやはり質問がスレ違いなのですか？　それならば他へいきますが…。

>>477
申し訳ありません。ですが自分で考えてわからないからこうして質問しているのです。

>>461

>（トップページのHTMLファイル自体は正常に取得できているのですが、
>相対指定でリンクされている画像やスタイルシートやJavaScriptのファイルが取得できないため、
>表示がぐちゃぐちゃになってしまうんだと思います）

そう思うんなら全部ダウンロードすればいいじゃん。
そうすりゃ表示されるよ。

>>476
はてなで聞いたらおしえてあげるよー

471です。パソコンに詳しい友人によると、ブラスターだとかいうのに感染したらしく、修理しなければ直らないそうです。
質問はパソコンが帰ってきてからにします。どうもありがとうございました。

>>480
127.0.0.1に指定しているフォルダに、ディレクトリ構造ごとそっくりそのまま
持ってくるということですか？

私がやりたいのはオフラインで閲覧できるようにページを丸ごと取得することではなく、
普通にどこかのページをブラウザに返すということです。

>>483
すれ違いだ。消えろ。行き場所は自分で探せ。

ん〜、なんだぁ？
前の自称Ruby厨が荒らしてるのか。

>>479
考えるな。調査せよ。行き来するデータをインスペクトせよ。
処理の各段階でのデータをインスペクトせよ。

>>486
それは偽物です。
428 ◆AOxf8.Tmck←これが私（>>428）です。

アドバイス頂いた方ありがとうございました。
これ以上ここでは聞けないと判断しましたのでもう移動させていただきました。

>>483
> 私がやりたいのはオフラインで閲覧できるようにページを丸ごと取得することではなく、
> 普通にどこかのページをブラウザに返すということです。

やっと一番最初に書いておかないと質問の体をなさない事項を書いたよ(嘲笑

依然として意味不明だけどな。

構うなよおまえら・・・

>>489
自演だろ。

Cryptをもっと安全にするにはどうすればいい？

話に入れなくて悔しい約１名が必死に荒らしているスレはここですか？

>>489
質問に答えられないからってそういうこと言わないでくださいよ。

>>492＝>>428
自演乙。

>>491
> Cryptをもっと安全にするにはどうすればいい？

意味不明

>>495
質問に答えられない厨房君は帰ってね(^^;
貴方のほうが意味不明です。答えられないなら答えるな。

変な奴が…２名くらい？

>>497
いるな。ここは何でも質問箱だってのにぐだぐだ言う奴が。

>>437
普通にやるなら既に解決しているけれど、面白そうだから先に変数を宣言しないようにやってみた。

sub Y {
my $f = shift;
my $m = sub {
my $proc = shift;
$f->(sub { $proc->($proc)->(@_) });
};
$m->($m);
}
my $var = Y sub { my $f = shift; sub { $f->() } };
$fact->();

Y Combinatorってやつ。

質問です。
Windows 2000 ActivePerl 5.6を使っています。
ファイルが存在しているかどうかを確かめたくて、
ファイルテスト演算子を使おうとしたのですが、うまくいきません。
ttp://www.site-cooler.com/kwl/perl/7.htm#7-5
こちらのサイトに、
ファイルテスト演算子はWindowsではうまくいかないこともあると書かれていたのですが、
Windowsでは使えないものなのでしょうか。
この方法以外にテストできるやり方があったら教えてください。

>>500
「うまくいかない」とは?

>>501
いい加減この手の質問になってない質問に答えるのやめようよ。
さっきのみたいのがまた増えるよ？

PAR-0.92
Activeperl 5.8.7

GUI::Loftを利用して簡単な画面を作成してみたのですが、
ppコマンドで--guiを指定したときに、
タイトルにcacheと付くdos画面が開いてしまいます。

なにかこれについて知りませんか？

同じような欠落質問が連続してきてるのってどういう現象？
荒しの一種か？ コレクションしてあった欠陥質問の大放出か？

>501

$file = <STDIN> ;
if (-e $file){
print "存在します" ;
}else{
print "存在しません" ;
}

で、存在するファイルをフルパスで入力しても
存在しません
ってでてくる。

>>505
$file = <STDIN> ;
chomp $file; # ファイル名に改行が含まれるかもしれないのでちょん切る♪

>>504
１．変な質問が出る
２．変な質問に答える奴が出る
３．変な質問をしてもいいんだと誤解した奴等が寄ってくる
４．変な質問に答える奴はまだいる
５．３．に戻る

>>506
キチガイ乙。

>>508
ぎくっ、、、（汗）

>>509
何が楽しくて荒らすの？　やめようよもう…

>506
なんてこった。できました。
どうもありがとうございました。

次回からは質問方法を気をつけます。
ありがとうございました。

>>511
まあ、木に病むな。
わからんことがあったらどんどん質問しなされ。
暇人の俺らが答えるから。

>>512
荒らしさん勝手に自分の行為正当化しないでください。

Ruby スレを荒らしたら今度は Perl かね。

>>448
gにそんな使い方があったとは・・・

>>468
ベッドの下に入れる。
それでも無理なら貸し金庫を借りる。

>>471
hint: ネットカフェ

>>503
PAR と ActivePerl を最新版にしてみたらどうかな。
PAR は、配布されてるパッケージによっては動かないことがあるので（相性問題がある）
ppm の配布サイトを変えて試してみるといいかも。

レスTHX。

ActivePerlは、最新にしたら駄目だったのでバージョンを下げました。

以前、PAR-0.91は試しました。nmakeでコンパイルしています。
ん、あれは、コピーだけしていたのかな。

Windows2000とXPで試して同じだったので、同じ現象にあっている人いないかな〜。

環境上の問題あるのかな。
ppmの配布サイト。探してみます。中身違うのかな。

perl のプログラムで、あるファイルを他のファイルにコピーする処理を行うサブルーチン
が定義されているとします。複数のperlのプログラムを実行するプロセスがあり、
その各々がそのサブルーチンでファイルをコピーした場合、２つのファイルをたまたま
同名ファイルにコピーしようとした場合、どうなるでしょうか？またこの競合を防ぐ
にはどうしたら良いでしょうか？　（例えば、コピーする時に、コピー先ファイル名を
ロックしておく等の方法があり得るのでしょうか？）

なお上記の状態で、同名ファイルへのコピーが重なり、前のファイルを後のファイルで
上書きされてしまうのは許可するとします。

テンポラリファイルに書いてからrenameするのがいいんじゃない
たいていOS側でrename操作は排他的に処理してくれる

use File::Temp qw(tempfile);
my ($fh, $tempname) = tempfile(DIR=>'.');
$fh->print("hello world\n");
$fh->close();
rename $tempname, "real-file-name.txt"; #ここで競合が防がれる

>>518
どうなるもなにも書き込めなかった方がエラーになるだけでしょう
>>519
リネームできなかったら残っちゃうじゃん

>>520
わ、馬鹿だ！

スンマセン教えてください。

$a{abc} = 'abc';
$a{def} = 'def';
$a{ghi} = 'ghi';
:
:
:

ってやったあとで、$a{*}に所属する連想配列の内容を一気に
クリアする方法がありますか？

よろしくお願い致します。

>>522
%a = ();

？ 全部消せばいいんじゃねーの？

>>523
ども

>>524
わ、馬鹿だ！

>>499
Y Combinator ｽｺﾞｽ
1時間ネットをさまよって理解できた。かもしれん

これYにプロトタイプ宣言しとくと、シンタクスシュガー的にかっこいいと思う

sub Y(&) { # >>499にプロトタイプを追加
my $f = shift;
my $m = sub { my $p = shift; $f->(sub { $p->($p)->(@_) }); };
$m->($m);
}

my $factorial = Y { # Yの後ろのsubが省略できる
my $label = shift;
sub { my $n = shift; ($n > 1) ? $n * $label->($n-1) : 1; }
};
print $factorial->(10);

utf8で、Latin Extended とかを Basic Latin に変換するようなスクリプトって、
どっかに落ちてたりしますかね。

いや、作ろうかと思ったんですが、もしどこかに有名なのがあるとしたら、
車輪を再発明する必要もないかな、と思って。。。

PerlでMD5を使う方法を手取り足取り教えてくれ

use Digest::MD5;

12chスクリプトを使ってます。
サブスクライバを取得したいのですがどうすればいいのか良く分かりません。

後docomoの端末製造番号も取得したいです。

すいません。板違いみたいです。
失礼しました

>>528
確かに。
print Y { ... }->(10);
こういう風に使ったときに優先順位の関係で嵌らないかと思ったけど、
実際やってみると望んだとおりに解釈してくれるのね。
流石Do What I Mean戦略といったところか

sub rec(&) {
　my $f = shift;
　sub {$f->(rec($f), @_)}
}
(rec {
　my ($f, $n) = @_;
　($n <= 2)? 1: $f->($n-1) + $f->($n-2);
})->(20);

なんかやけにトリッキーに書いてるけど、単純にこれじゃダメ？

rec()自身を再帰するのは反則…とかなんとか404 Blog Not Foundに書かれていたような

>>535
もともとお遊びだったしY Combinatorそのまま移植してみたけど、
確かに先に変数を宣言しないように、というだけならrecの中での直接的な再帰を許してそれで良いわな…

すまんどうやら流れ読めてなかった。
なんかの競技？なのか。

>>528
こう言うのってどういうときに便利なんですか？
前にそんなのが必要だった記憶があるんだけど思い出せない。
確かその時は引数にしてごまかした記憶が。こんな感じで。

my $f = sub { my ($f, $n) = @_; $n < 1 ? 1 : $n * $f->($f, $n - 1) };
print $f->($f, 10);

レキシカル変数使うなら
my $f = sub { my ($n) = @_; $n < 1 ? 1 : $n * $f->($n - 1) };
print $f->(10);

こいで十分。

>>540
myのスコープはその右辺に適用されないからそれじゃ動かん。
>>441

>>539
便利とかそういう実用性の話をするなら>>441で十分だね。
Y Combinator等を使った方法は単に(関数的なのが好きな人には)面白いというだけだから。

無名関数を引数に取るようなサブルーチン(sortとかgrepとか)に渡すときとか。

>>541
嘘つくな！
名前まで付いてるくらいなんだからそんなはずはない。
ほんとはすげーかっこいい使い方知ってんだろ。
教えろこのやろう。。。

>>542
もう一声。

使い方とは存在するのではなく
創り上げるものです

ま、諸賢はくれぐれも技に溺れないようにね。

200万円の日本刀で鉛筆削る人生も乙なものです。

>>203にsjisのencodingによる処理の仕方が書いてあったけど、euc-jpで
やってみたが、うまくない。「中」とか「薫」とかが出てこない。
use encoding 'euc-jp';
use open ':euc-jp';
use open ':std';
print "Test 1:\n";
open(IN, "euc.txt") or die;
while(<>) {
while(/[亜-腕]/g){ # [弌-龠] 堯槇遙瑤凜熙
print $&, "\n";
}
}
close IN;
いったい、文字クラスの正規表現[ ]はマルチバイト文字をサポート
してないのか。うまく行った人、教えてください。

文字クラスは多分ユニコードの文字コード順なので
[亜-腕]には中も薫も含まれないんじゃないか

% cat foo.pl
use encoding 'euc-jp';

foreach (qw(亜 腕 中 薫)) {
printf "%s-%x\n", $_, ord($_);
}
% perl foo.pl
亜-4e9c
腕-8155
中-4e2d
薫-85ab

>>548
あー、そうだったんですね。内部の処理はutfでやってると。
jperl相当のことができるって喜んでたら、あの不可解な
出来事で、悩んでいたんですが、これで目から鱗です。
ありがとうございました。

コンビネーターのコードがまったく読めないんだが・・・
コード書いてるのはLispの人？

>>550
荒らし乙。今度はその手で来ましたか。

>>551
なんで荒らしなんだよｗ

>>552
無内容の上さりげなく多言語使いを煽ってるのはたしかに荒らしだろうな。
数日前なんか酷いことあって過敏なんだよ。
少し考えて書き込んでくれ。

色々浮気するが結局perlに戻ってくる俺がいる

>>550-554
何の話だか分からんのだが、ここのこと？
http://221.112.61.214/~kzk/column/haskell_parsec.html

>>549
漢字やひらがな等を指定したいときは文字クラスを指定するのが良いですよ。
# \p{Han}/ とか /\p{Hiragana}/ とかだったかな？

perldoc perlunicode に色々かかれてたはず。

>>556
ありがとうございます。かなり量があって全部読むのは大変ですが
ぼちぼち見てみます。

桁数をしていして、数値から文字列に変換したいのですがどの様な方法がよいのでしょうか？
$a=3を$b="003"の様にaをbに代入。
プリントするときは、printf "%03s",$a; でできるのですが、
桁数を指定して文字列として代入する方法がわかりません。
ご教授お願いします。

すみません。
sprintf でできました。

cryptの暗号化は簡単に解析されてしまいますか？
どうなんですか

>>560
簡単の基準やどのcryptか言わない（言えない）なら回答は「NO」で問題ないだろう

昔のDESハッシュの場合、専用マシンで総当りすると22時間だそうです。速っ。
http://www.ipa.go.jp/security/pki/021.html#_Toc3020742
まあ今はMD5ハッシュなどを使ってると思うので、総当り方式での解析は無理ですよね。

ああ解析しようと思えば出来てしまうレベルの暗号化なんですね。
どうもです。

逆に総当りでも解読出来ない暗号ってあるのかと聞きたい

解析できない暗号など無い

>>563
安全性を追求するなら、今専門家が勧めているのはSHA256
# 解ってるとは思うけれど、暗号化方式がどんなに安全でも、元のパスワードの質が悪ければ辞書攻撃ですぐだから注意な

>>565
OTPは解読不可能だぞ

>567
OTPは盗聴されてもわからないだけで、総当たりすれば解けるのでは?

総当りしても解けない暗号はあるよ

>569
「総当たりに時間がかかる暗号」というのはわかるけど、「総当たりしても解けない暗号」があるとは知りませんでした。
スレ違いなのはわかっていますが、なんていう暗号か教えてください

有名なのはワンタイムパッド暗号。あらかじめ乱数表を配っておいて
使い捨てるやつね。メッセージと同じ長さの乱数列を使ってXORする
ようなイメージ。鍵長 = メッセージ長なので、総当りするとありと
あらゆる文章が出てきます(笑)

総当りすりゃ解けるじゃん
何を言ってるんだお前は

解けるの定義が食い違ってそうだ。

>>572

「何をしても絶対解けない」暗号方式なら３分で作れるなｗｗｗ

>>572
例えば「バナナ」を暗号化して「ABCDEF」という文字列を作ったとする。
これを総当りするうちに「バナナ」という文字列は現れるが、
途中に「リンゴ」「イチゴ」などの文字列もあらわれるため、
「バナナ」が元の文字列だと断定することができない。
よって、「元の文字列を得る」という意味での「解読」は絶対に出来ない。
これがワンタイムパッド暗号。

>>576
そういう暗号化方式がWEBサービスとかで実際に使われているんですか？

>571
Thanks!
すっかり忘れてたけど、言われてみれば確かにそうだ。
OTPってOne Time Pad のことだったのか。
てっきり One Time Password のことだと思った。

>>577
576じゃないけど、使い捨てる暗号なら普通に使われているのでは。
元の文字列が分からなくなれば良いんだから。

MD5とかって違うの？
あれって復号可能なの？

乱数列が入った HDD の運び屋も大変だよな。

>>579
http://ja.wikipedia.org/wiki/%E3%83%AF%E3%83%B3%E3%82%BF%E3%82%A4%E3%83%A0%E3%83%91%E3%83%83%E3%83%89
ワンタイムパッドは事実上ほとんど使われてません。
ワンタイムパッドだと、100メガ のデータを暗合するのに100メガの鍵が必要。
だから暗号文を送る前に>581が言うように乱数=鍵の入ったストレージを相手に届けておかなければ意味がない。
確かに解読は絶対に不可能だが現実問題として扱いにくい。
現実には、解読に要する時間が十分長いものを採用する。
(コンピュータの計算力の向上とか、数学理論の発見とかで解読に必要な時間はだんだん短くなっていくのだが....)


>>580
MD5は一方向関数。
復号は目的とされていない。というよりも、復号ができないような関数。

質問があります。
Perl5.8を使っています。
ネットワーク経由で取得したXML（utf8, 日本語含み）を
XML::TokeParserで細切れのスカラーにして、
それらを適宜組み合わせて、XML::RSSに食わせてRSSフィードに変換しました。

# $feed = {}; $feedには元XMLから取得したutf8文字列が入っている。
use XML::RSS;
my $rss = XML::RSS->new(Version=>'1.0');
my $j = Jcode->new;
my $label = $j->set('形態:'=>'euc')->utf8;
$rss->add_item(
title=>$feed->{title},
link=>$feed->{link},
description=>$label.$feed->{description}
);

こうやってできたRSSフィードを読むと、
「形態:」の部分が「\å\½\¢\æ\…\‹:」に文字化けしていました。

内部文字コードがどうたらが原因じゃないかと調べてみましたが、
そもそも中で何が起こっているのかわからないので困っています。
どうすればまともに文字コードを扱えるでしょうか？

>>580
暗号じゃなくてダイジェストだからな。

>>583
Jcode って utf8 フラグ立てるんだっけ？
Encode で utf8 文字列にしたらどうよ。

>>576
だから、『解読』自体は出来るでしょ？
お前本当の馬鹿だな

>>586
暗号無知は黙ってた方がいいよ？ｗｗｗｗ

無知は言い負けてからがしつこいんだよねえ。
内容で勝てないことで狂って、「最後まで粘ったほうが勝ち」って勝負に走るから。

>>587
いや…この暗号方式はシーザー暗号並に単純だと思うんだけど…
辞書で解読の意味でも調べたら？

勝手に負かされても困るんですけど
ちゃんと反論して下さいよ全く

勝手に言葉の意味を俺流に脳内変換しといて勝ったとか言われるのも困り物ですよね

>>572=586=589=590=591
>>587=588
両方消えて下さい

（・∀・）ﾆﾔﾆﾔ

>>592
それ復号？ｗ

>>594
彼は落雷に遭ってから不思議な能力を身に付けたのです
もう通信記録とか全部見えちゃうんですよ

>>576の理論で行けば共通鍵の暗号でも偶然で文章になる可能性があるよね。
>>576の言ってる事はおかしいよね。変だよね。

>>596
7を9に変えれば同意

逆に貴方が必死になってるんじゃないですかぁ？

webprogでやりなよ〜（・∀・）

webprog板に来られても迷惑。
要はネットでわめく暇があったら勉強すればいい話。

君が勉強しなよｗ

質問の内容が内容だし、反応した奴は全部まとめてアホでいいよ。

根本の原因：>>560>>563

べつに匿名で勘違いとか物を知らないことがバレても
害は無いと思うんだがなあ

なんで名無しで粘るんだろうね

BAKAだから

だから勝手に勝ち逃げしないでよ
ちゃんと反論してくださいー

反論もせずに悪口ばっか垂れてても何も始まりませんよー

>>585
アドバイスありがとうございます。
# $feed = {}; $feedには元XMLから取得したutf8文字列が入っている。
use XML::RSS;
my $rss = XML::RSS->new(Version=>'1.0');
my $label = '形態:';
from_to ( $label, 'euc-jp'=>'utf8' );
$rss->add_item(
title=>$feed->{title},
link=>$feed->{link},
description=>$label.$feed->{description}
);
このようにしてみましたが、結果は同じでした。

色々考えた挙句に、utf8で書いてuse utf8;したモジュールを作り、
そこから文字列を返してXML::RSSに食わせると望む結果が得られました。
ちなみに大元のスクリプトをutf8にすると、
鯖が何故かCGIとして認めてくれずにエラーを起こしたので、
このような事態になりました。
あんまりすっきりしませんが、ありがとうございました。

>>608
> 大元のスクリプトをutf8にすると、鯖が何故かCGIとして認めてくれずにエラー
タイムリーだな。ちょうどWebProgのほうでその質問が出てるから参考に
http://pc8.2ch.net/test/read.cgi/php/1146042050/721-725
多分同じ原因だと思うが違ったらｽﾏｿ

僕の言ってる事が正し過ぎて言い返せないのかなぁ

最近はCGIであることを隠して質問するのか。
余計なところはしっかりと学習してるんだな。

↑これが自演しまくりで煽ってる奴。

>>611-612
自演乙

Perl使いってこんなキモイ奴ばっかなの？

ｳﾌﾌﾌ・・・

>>614
まあ Perl そのものがキモイ言語ですから。

この荒らし方はＰＨＰ厨ぽいな。

あのシメジ野郎…ｯ!!

>>609
原因かどうかはわかりませんが、確かにUTF-8Nで保存するとちゃんと実行してくれました。
なんだこりゃ？
次からは、UTF-8Nでスクリプト書いてuse utf8;しようと思います。
ありがとうございました。

すごい初歩的な質問なんですけど…

文字列を扱う時、シングルクォーテーションかダブルクォーテーションか
どっちで挟むのがいいんでしょうか。
スクリプトによってバラバラなので気になっています。

>>620

my $str = "うん";

print '$strちがいっぱいでたよ！\n'; #出血
print "$strちがいっぱいでたよ！\n"; #脱糞

shift_jisで書くならとりあえずシングル使っとけ

>>621>>622
なるほど、ありがとうございます。

>>620
どっち使ってもいい場面なら
基本シングル
シングルクォート含んでてダブルの方がすっきり書けるときはダブル

>>620
ちなみにベンチしてみればはっきりわかるが、
シングルのほうが早い

>>625だと思ってベンチしたらダブルの方が速かった件について…

>>626
あ・・・・れ・・・・？もう一回やってみよう

>>626
なんかダブルのほうが速いな････
すまん>>625間違いだった

初歩的な質問ですが…

純粋なPerlのプログラムには、
CGIと同様に一行目に
#!C:/perl/bin/perl/
みたいなのを書く必要がありますか？

windowsならいらんよ

>>629
書かなくても

perl 目的のスクリプト

で実行できるよ。

>>629-630
Windows（というかDOS）でも、（書式は違うが）似たようなのを書く場合もある。
例えば ftp://hayabusa.ics.nara-wu.ac.jp/pub/nide/dosutil/sos111a.tgz みたいな環境を使う場合。
これを使うと、スクリプトのソースを（テキストのまま）直接 COM ファイルにできるので、
Unix みたいに progname arg ... のように実行できて便利。

>>632
そういう事をするための pl2bat じゃないの？

>>633
第一ヒント：汎用性

cygwinでならc:\…でも動くよ。

>>629

儀礼的に書くようにしてる。
あと、winとかでもPerlがその文を読み取ってスイッチとか判断してる。
だから、基本的に書はいとけ、ってコトだと思う。

>630-636
ありがとうございます

なくても動くんですね
でも、あった方がいい、と。

ずっと悩んでたのがすごくすっきりしました。
どうもありがとう

>>625-628
シングルの方が余計な解釈しないから早そうに思えるんだけど、なんで？

>>638
コンパイル時点でシングルとダブルを解釈するから速度差には影響しにくいという話を聞いたことがある。
それはあるバージョンからそのようになったとかなんとか。
このスレか？

ようわからんが、「ダブルだったら展開出来そうな文字列を探せ」みたいな解釈をしてないってことだろ。

曖昧な記憶ではコンパイル時に

"aaa$sss\n";
↓
'aaa' . $sss . "\n";

こんな感じになるんだけど、
すでに aaa と \n は畳み込まれているって聞いたことが。
シングルの場合はなにもされない。

違ったらスマソ

>>637
＞なくても動くんですね
＞でも、あった方がいい、と。
「あったほうがいい」だけの理解だとすっきりしないと思うので。

#!/usr/bin/perl とかコマンドへのパス書くのは元々UNIXのシェルが
ファイルとプログラムを関連付けるルール。
Windowsではファイルの拡張子がその役割を担っているのでいらん。

でも、ApacheでCGIとして動かすなら、Apacheがファイルの一行目を
解析するのでWindowsでもUNIXでも必要だおｙ。

>>639
そうなのか。なんかダブルのほうが速いのがちょっと不可解だけど。

a.pl と b.pl の両方で、同じ変数 $name を参照したいのですが、設定は一カ所でしたいのです。
こういう場合、perl での定石としてはどうするのでしょうか？

ちなみに、これらのプログラムはcgiとして動かそうと思っています。
環境変数とかになるんでしょうか？

>>642
設定ファイルを c.pl にしてそこで$nameを定義。
a.pl と b.pl で c.pl を読み込む。

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

>>640
なるほどね
ってことはシングルで . でつなげたほうがコンパイルは速いのか
確か2，3ヶ月前にベンチしたときはシングルのほうが速かった気がした。

早いことは早いが、0.1%以下の差を気にしても意味ないと思うけどな。

ましてやコンパイル時のことはねえ。

読みやすい方が重要

>>646
> ってことはシングルで . でつなげたほうがコンパイルは速いのか
そりゃないでしょ。
スクリプトレベルでそういう風に書くと、明示的に処理が入っちゃうから
返って遅くなるはず。

速度が気になるならインタープリタの言語を使うのは間違いのような気がするが…。
高速化したい所だけCで書いたコマンド作って動かすということを、俺はたまにやる。

>>651
言語のインタプリタなら分かるがインタプリタの言語というのは聞いたことがない

>>652
ああ、そうか。そうだな。

インタプリタ型言語だな

>>652
勝ち誇り、おめ。

>641
すごくよく理解できました。
ありがとうございました

シングルクォート vs ダブルクォートでいくつかベンチを取ってみたけど、同一ベンチでも結構ばらつくね。
傾向としてはシングルクォートがやや優勢。またデータセットがある程度を超えて大きくなるにつれ、差が縮まっていくように見える。

で、パフォーマンスチューニングって Perl でも話題としてはアリだと思うんだ。「ここボトルネックなんだけど、書き方次第でもちっと早くなんね?」的なね。
もちろんこのスレ的には「まず読みやすいコードを書きましょう」が基本だし、試さないうちから「どちらが早い?」なんて訊かれてもがっかりするんだけどさ。

同意。
最大のボトルネックに気付かず、大した影響のないクォートの話であーだこーだ言うのも滑稽だよね。

>>658
勝手に人の話を妙な風に解釈するなよｗｗｗ

リファレンスについて

sub reff {
　　my @a = qw(a b c);
　　my @b = \@a;
}
my @list = reff()
print @{ $list[0] };;

このコードではサブルーチンreffの最後の行
my @b = \@a
の評価結果(つまり@b)が返されて@listに格納されるので
サブルーチン内でmy宣言された@aのリファレンスは
スコープを出ても生きています。
もしも上のコードを

sub reff {
　　my @a = qw(a b c);
　　my @b = \@a;
}

reff();

としてしまったら、@aのリファレンスはどうなりますか?
メモリリークになるのでしょうか?
それともreff()が無効コンテキストだから破棄される?

破棄

>>660
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlref.html
> ハードリファレンスは賢く実際に参照されている数を管理していて、
> その数が 0 になれば自動的に解放を行ないます。(注意: 自己参照や
> 循環データ(cyclic data)にある値に対する参照カウントは、ちょっと
> した手助けなしにはゼロにはなりません。詳しくは perlobj を参照
> してください。)

わかったーーありがとうございましたーー

ぶっちゃけperlって手続き型言語の中じゃ
一番学習コストかかるよね？

>>664
ただでできるよ？

>>664
安く上げることも出来ると思うが。
本を買わないで perldoc とウェブ検索で済ますんだよ。

リファレンスついでに前から聞きたかったこと

\*globb
これは型グロブのリファレンスらしいんだが
いったいどういう用途があるの?

サブルーチンの引数として\@arrayを渡すと
配列のコピーコストがカットできるっていうのは
読んだことがあるけど型グロブならコピーのコスト
なんて発生しないでしょ?

コストって、値段のことじゃないんじゃない？時間とか。
なんにしろ他と差があるとは思わないけど。

またブログで見かけたネタ持ってくるのかよ

こんなことができたりする。

use IO::Handle;
open(F, '> test.txt') or die;
my $fh = \*F;
$fh->print("aaa\n");
$fh->close();

>>667
リファレンスにしなくても配列のコピーは無料ですよ？

>>671
667じゃないですが横から失礼します。Perl勉強中の者です。

> 配列のコピーは無料ですよ？

ラクダ本には、関数の引数は参照渡し（@_ に入っているのはエイリアス）と書いてありますが
これはつまり $_[0]++; などと書けば、第一引数として渡した左辺値がインクリメントされる、
という理解でいいんでしょうか。この場合、左辺値になれない値を渡すとエラーになるんですよね？

その前提でいくと、配列を渡した場合も、個々の要素（スカラー値）のエイリアスが @_ に入るだけで
コピーは発生しないはずでは？　それとも、@_ にエイリアスが入る事を「コピー」と呼ぶのでしょうか？

例えば
hoge[test]hoge
という文字列があったとして、"test"を取り出したい場合、
"["　と　"]"をindexで探してsubstringする方法しかないでしょうか。

他の方法があれば教えてください。

>>673
正規表現

$foo = "hoge[test]hoge";
$foo =~ m/[a-z]+\[([a-z]+)\][a-z]+/;
print($1);

とか？

レス有難うございます。
実験させていただきます。

>>672
@array = (1..1000);
&func(@array); # scalar @_ == 1000
&func(\@array);  # scalar @_ == 1

@array[0..9] という風に、配列の範囲を指定出来るようになったのは
バージョン何のPerlからですか？

>>678
4? もっと前かなぁ。まぁ、配列スライスの実装はかなり前だ。

C言語のヘッダファイルのように、
定数を設定するファイルをプログラム本体と分離しようと
プログラム本体側から変数に値を代入するプログラムをrequireしたのですが、
strictだと、変数を参照するときに怒られてしまいます。
strictの場合はどのようにするのが一般的なのでしょうか。

>>680
sub PI () { 3.14 }
1;

な pi.pl を用意しておいて、

BEGIN { require 'pi.pl' }

した上で、

print PI;

なんてやり方もあるけど、どう？

>>680
つ http://search.cpan.org/~nwclark/perl-5.8.8/lib/constant.pm

>>671
そうじゃなくて
sub subroutine {
　　my @list2 = sfhit;
}

subroutine(@list);

ってするときに
subroutine(\@list);
とした方がコピーのコストが省けるでしょって意味

>>683
subroutine(\@list);と渡したら

sub subroutine {
　　my $ref = shift;
　　my @list2 = @$ref;
....
}
などとする必要があるぞ。

例示として適当なのは
sub my_sort { map{ undef $_ } @_; }
@list = my_sort(@list);
としたときに、
@listで受け取る以前にsub my_sortが@_に対する直接の操作をしているので
my_sort(@list);
と等価になると言う辺りか。

参照渡しでメモリの節約だとかスピードアップだとか言われるけど
本当の意味が分からんやつはしなくてよろしい。

array を渡すと、各要素のコピーが発生するの？

うぉ、サブルーチン名間違ってるなｗ

どうも、「コピー」と「エイリアス」という使い分けは一般的ではないのでしょうか？
「コピー」は「値は同じでも実体が異なるもの」
「エイリアス」は「別名だが実体は同じもの」という意味ですよね？

手元の「第2版 プログラミングPerl VOL.2」の P1193 にある「エイリアス」の定義では、
> サブルーチン呼び出しの実引数が入る @_ の各要素に対して、それぞれ暗黙の
> 一時的なエイリアスが作られる。
となっています。

>>671 や >>683 では「コピー」と書いていますが、「エイリアスを作る事」を「コピー」と呼ぶのですか？
と>>672でお聞きしたつもりでした。書き方が悪かったようで申し訳ありません。

失礼。間違えました。
>>687 =~ s/第2版/第3版/;

連続カキコ＆スレを止めてしまったようで、すいません。
どうも定義を明確にする癖があって・・・　ここではそういう厳密さはNGみたいですね・・・　もうねるぽ。。。

エイリアスはコピーではない。
コピーにたいする操作はコピー元に影響を与えない。
エイリアスへの操作は参照元と影響を共有する。

>>687
>>683じゃないけど

確かに@_はエイリアスだけど
my @a = @_;
ってやった時点でコピー。
@aに何しても元の配列に影響なし

配列のコピーが無料なのは
my @a = @_;
をやらない場合

だとおもう

いやだから
サブルーチン内で@_を直接操作するなんてのは
トラブルのもとだからサブルーチン内で局所変数
用意してそこに引数をぶち込むのが定石で
ぶち込むときには当然
sub subroutin {
my $class = shift;
my @list = @_;
}
とかってするけどこのときに@_から@listへの配列の
コピーが発生してうざいからサブルーチンの引数を
配列のリファレンスにしてサブルーチン内で
デリファレンスして使った方がちょっとだけ速度改善
という話じゃないのかい？

>>691と全く同じことをいっている･･うつだもうねるぽ

>>692
> サブルーチン内で@_を直接操作するなんてのは
> トラブルのもと

どの辺がトラブルのもとになるのか詳しく教えてください＞＜

>>694
> どの辺が
「サブルーチン内で@_を直接操作する」辺りが。

ドキュメントで明示化すればよろしい。

別にトラブルにならんと思うがね。
実際に使ってるモジュールもあるし。

再帰処理でコピーなんか多用したらあっという間に
OutofMemory

>>694
perlのサブルーチンはCなんかの
int subroutine (int x, int y) {
　　return x * y;
}

とは違って"基本的に"引数の型や戻り値の型を指定できない
sub subroutine {
　　return $_[0] * $_[1];
}
こんなサブルーチンがあったら何をやっているか激しく意味不明だろ？
数字同士を掛けてるのかそれとも文字列同士を掛けてるのかもしれない
qmailの作者のコードじゃないんだから意味不明さは避けなきゃ

それが

sub subroutine {
my($x, $y) = @_;

return $x * $y;
}

だとしても意味不明なのは一緒だと思うのだが。

$xと$yだったら面積の計算だとわかるだおうが！

(ﾟдﾟ)ﾊｧ?

置換系のサブルーチンとか、渡す値自体がコピーだったりする場合が@_を直接弄っても大丈夫な例か？

好みの問題というか、宗教の問題というか。
正解はないが、そこまで毛嫌いする処理じゃないと思うぞ。

よほどでかい配列を扱うか、使用頻度の高いサブルーチンでも無い限り
速度どうのこうの言うのは馬鹿げてると思うぞ。
なぁ>>692

サブルーチンへの引数の参照渡しの利点は
引数のグルーピングができるってことじゃないの?

@a = qw(a b c);
@b = qw(3 2 1 0);
s(\@a,\@b);

みたいな
これをリファレンス使わなかったら引数の解析だけで
えらい手間だと思う

変数の値をサブルーチンの名前として指定する方法ってありますか？
$name = "sub1";
として、
&sub1();
を実行するような感じです。

&{$name};

>>705
できましこ。ありがとうございます！

あと、そのサブルーチンが処理しようとしてる
引数の個数とかも明示されない
これはあとでそのサブルーチン呼ぼうとしたとき
いちいち全部に目を通さないとならんくなるよな

それに、サブルーチンの引数を変更したときに
変更箇所が増える、というのもある

@pairs = split(/&/,$buffer);
{
my $a = $pairs[1];

@pairs = split(/&/,$buffer);
{
my $a = $pairs[1];
}
クエリかなんかでおくられていたデーターをアパサンドで分割
配列変数@paisrに入れて一番上最初の文字列をスカラー変数$aに代入
したいのですがこれであってますか？

コンストラクタでblessする変数は$thisじゃなくて$dickにしてもいいですか？

日本語でおｋ

#!/usr/bin/perl

# レスポンスヘッダの出力
print "Content-type: text/html", "\n\n";
# 代入
$buffer = "abcdef";
@pairs = split(/&/,$buffer);
{
my $a = $pairs[1];
}

# HTMLの出力
print "<HTML>\n";
print "<BODY>\n";
print $buffer, $a, pairs[1], "<font size=7>ハローワールド</font><BR>\n";
print "</BODY>\n";
print "</HTML>\n";
うわぁぁん　ウゴカネ（'A':）

お前は何がしたいんだ

配列の一番最初は1じゃなく0だから。つかしね。

死ねと言いながらも教えてあげる>>714に萌えた

@pairs = split(/&/,$buffer);
{
my $a = $pairs[1];
}
print $a; # undefined value

これは何か期待できる。

すごいのがきたな

何がしたいんだろう。難解だな。

>>716
$bでもやってみれば

使用するモジュールを引数によって変更したいのですが書き方がわかりません。

use や new するときのモジュールに変数を使えないでしょうか？

sub hogehoge()
{
　my $pm_name = shift;
　use $pm_name;
　my $obj = new $pm_name();
}

>>720
最初から全部 use しとけば?

>>710
おｋ

>>720
eval 等を使うべし。

>>720
autouseを使ってなんとかならんか?

ありがとうございます。

use を require にしたら変数を指定しても動きました。

evalだと何故か「Can't locate object method "new" via package "モジュール名" (perhaps you forgot to load "モジュール名"?) at hoge.pl line 行番号.」となりました。

なんのモジュールだかは知らんけど、useをrequireにするとタイミングが変になるからBEGINだといいよ。
しかもuseとかサブルーチンで囲んだりしてもスコープの変化以上の意味はないよ。

ほんの数日前にPerlを始めたものですが質問をさせてください。
・RedHatLinux上で動作させるプログラムを書きたいと思っています。
・開発はWindowsでやりたいです。
開発はActiveperlで行えそうですが改行コードが異なる点が問題です。
改行コードの一括返還の行えるソフトや
もともとLinuxでの改行コード(LF?)で開発のできるソフトなどありましたら
教えていただきたいです。
始めたばかりで質問に必要な情報を提示しているかどうかもわからない状態です。
かけていることがありましたら指摘お願いします。

>>726
Windows の方は Cygwin 使えばいいんじゃないか?
多分そのままじゃ漢字使えないけど。

ああ、でも、Linux側に ftp で put して動かすという場合は
改行コードは ftp が変換してくれるよ。ascii モードで送れば
いいの。漢字のコードについては Windows では MKEditor とか
使えばいいんじゃないのかな。

Perlについての質問なのか？

>>726
何もしなくていい。改行コードの違いなんて問題にならない。

>>729
#! の行の改行コード違うとちょっと困りそう。
-- で回避するのめんどくさい。

>>726
＞改行コードの一括返還の行えるソフトや

perl -i.bak -pe "binmode(select);s/\r//g;" *.pl
とか？

>>720
最近の流行りはUNIVERSAL::require
http://search.cpan.org/dist/UNIVERSAL-require/lib/UNIVERSAL/require.pm

>>730
最初からLFで書いておけ、って話じゃないの？

引数の@_はエイリアスなんだけど、戻り値については必ず値のコピーが発生するよね？

２ｃｈのトリップ生成のperlのソースコードってありませんか

http://age.s22.xrea.com/talk2ch/
トリップとIDの算出方法

>>734
戻り値を何かに保存するなら、という条件付。
その場合は間違いなく値のコピーが発生するぞ。
たとえ戻り値が巨大な配列のリファレンスだったとしても、ちゃんと一つの「配列リファレンス」という値が、な。

C言語でUnixを作ったように、
PerlのみでOSを書くことはできますか？

>>736
どうも有難う御座います

>>738
無理って言いたいけど

叶？

♀？

>>738
どうだろね。　perlは何らかのソフト環境上で
動作してる様だし、原則無理ではないかな。
エミュレーターぐらいならなんとか。

>>737
grepやmapは内部でどういう処理してるんだろう？
Perlの組み込み関数はさすがにやってないよね？

>>743
ということは Perl machine を開発すれば解決ということか。

ネットワーク基盤とかミドルウェアなら作れそうですか？

>>744
文意はいまひとつ取れないけれど、興味があるなら調べてレポートよろしく。

>>746
可能かどうかなら、可能なのかもね。
しかしそれを使うソフトは、どうすることもできない
パフォーマンスの頭打ちに悩まされる。

そこでparrotですよ!!
(徴妙にｽﾚ違い｡)

ああそうか、その上で動かすソフトがある門ね。
最近Perlが好きになったんだけど、テキスト処理しかしてないから、もっとなんか作れないかなと思って。

コンパイル出来るんだからその気になれば作れるし速度の問題もそれなりになるんじゃね？

しかし、作る理由が「興味」以外にない。

>>731
入力時に既にCRは消えてるからARGVOUTをbinmodeにするだけでLF出力になるよ

>>750
そういうレベルの話なら
ImageMagick あたりの画像加工モジュールとか試して
みたら？（ピュアパールではないが）

PerlでDOS画面に同じ文字を繰り返したら指定されたコマンドを動かすときどうすればいいんでしょうか('A｀)

>>754
日本語でおｋ

唯一相手にまともに伝わってるのが顔文字による感情表現ってのが
実に象徴的だよな。

>>738
perl -e 'for(;;){print"a:\\> ";$s=<>;chomp($s);if($s eq"dir"){system"ls"}}'

>>757
妙にPerl使いっぽくない書き方だな。いや別にだからどうしたってこともないけど。

まーたはじまった

↑
これが荒らし。言うまでもないか。

特殊変数 $/ を、特定のファイルハンドラについてのみ変更したいのですが、可能でしょうか?
もしできなければ、他の方法を教えていただけるとありがたいです。

local とか

open IN, $ARGV[0] ;
my $test = do { local undef $/ ; <IN> } ;
close IN ;


my $file = 'hoge' ;
my $test = do { local ( @ARGV, $/ ) = $file ; <> } ;

ttp://search.cpan.org/~uri/File-Slurp-9999.12/extras/slurp_article.pod

>>757
何を言いたいか全くわからないがOSのつもり....なのか?
OSとか、shellとかが何なのかわかってる?

そういえばperlのネイティブコンパイラってどうなったの?
実用化されたの?

OSよりさきにブラウザから始めれば？
CSS2に完全準拠してくれるとかだとありがたい。
文法エラーをどれだけ精度良く無視できるかがキーだけどOSよりは難易度低いかと。

perlで計算科学のプログラムを書きたいんだけど，
そうなるとCかFrotranの独壇場なんだよね。MPIもないし。

>>767
適材適所って言葉知ってる?

言われなくてもしってるよ。　疲れる

今はその辺りはHuskel

Haskell じゃ？

HuskelとHaskellは違うぞ。

ハッスル！ハッスル！

最近 perlを勉強し始めたんですが 構文エラーで
Unrecognized character \81 at ﾌｧｲﾙ名. pl line 4.
と表示されます｡

\81とは何を示しているんですか? お願いします教えて下さい。

おそらくShift_JISの全角スペース文字（0x8140)の1バイト目だと思う

>>772
Huskel ってどういう意味ですか＞＜

Huskel の検索結果 約 480 件中 1 - 10 件目 (0.06 秒)
Haskell の検索結果 約 18,200,000 件中 1 - 10 件目 (0.16 秒)

見た感じ特別な意味はなくてただのtypoか人名っぽいんだけど・・・
なんだろ。Haskell の親戚かなにか？

親戚っていうか俺

Huskelさんは算数が得意な日系コロンビア人です。

だれか>>765に答えてくれろ

parrot のこと？じゃないよなあ…

まさかperlcc

typoで盛り上がってるのは自演ですか？

>>775みたいなプログラマになりたいな。

全角スペースを入れてしまうような阿呆にマジレスするような奴にか？

>>784
\81から始まるのは、別に全角スペースに限らんだろうが。
use encodings を宣言せず、sjisの全角文字を入れたことが原因と思われ。

>>783は素直にお礼を言えないアホ>>774

>>785
ちょ、 \81 って、それ >>774 と同レベル。

質問です。

mainパッケージで@hogeリスト変数に値をいれておき、
その後実行するサブルーチンの中で、以下の処理を実施します。

while(<FH>){
　　#なんか処理
　　#なにもしなくてもOK
}

するとなぜか@main::hogeのある値が更新されてしまいます。
上記ループ処理がないと更新はされません。
こういった現象が起こるにあたって、なにかこれが問題では？
というような心当たりとかありましたら教えてほしいです。

よろしくおねがいします。

>>788
あると云えばあるしないと云えば無い。
という回答を所望なのかしら？

具体的にソースを晒した方がより具体的な回答が得られるかと。

>>789
りょうかいしました。
ちょっと可読性あげと個人情報保護対策しますので
少々おまちを・・・

#ソースです。

use Data::Dumper;
use strict;
use constant DEBUG => '1';
my $target;

while(<DATA>){
　　if(/^target=(.*)$/){
　　　　$target=$1;
　　}
}

open FH,"<$target" or die $!;
opendir DIR,"./" or die $!;
@main::pkgs = readdir DIR or die $!;
my $target_result = $target."_result.txt";
open FOUT,">$target_result" or die $!;

#続く

#続き

while(<FH>){
　　my $line = $_;
　　$line =~ s{
　　　　([^A-Za-z0-9_]+)
　　　　(?:
　　　　　　(
　　　　　　　　(?:[A-Z]+_{1})+PKG\.
　　　　　　　　(?:[A-Z0-9]+|(?:[A-Z0-9]+_{1})+?[A-Z0-9]+)
　　　　　　)
　　　　)
　　　　([^A-Za-z0-9_]+)
　　}{$1.trans($2).$3}egx;
　　print FOUT $line;
}
close FH;
close FOUT;

#さらに続く

#続き

sub trans(){
　　my $arg = shift;
　　
　　foreach(@main::pkgs){
　　　　my ($pkgN,$val) = split /\./,$arg;
　　　　$pkgN .= ".sql";
　　　　if($_ eq $pkgN){
　　　　　　return search($pkgN,$val);
　　　　}
　　}
　　return $arg;
}

#さらに続く

#続き

sub search(){
　　my ($pkgN,$val) = @_;
　　open FH1,"<$pkgN" or die $!;
　　print "**sub search**\n",Dumper(@main::pkgs),"*******\n";
　　while(<FH1>){
　　　　print "**sub search**\n",Dumper(@main::pkgs),"*******\n";
　　　　if($_=~ /^$val[\s]+CONSTANT[\s]+.*[\s]+:=[\s]+('[A-Z0-9]+');.*$/){
　　　　}
　　}
　　close FH1;
　　NOHIT:
　　return $val;
}

__DATA__
target=HOGE_HOGE.sql

#以上

788でいっているのが上記のwhile(<FH1>){あたりからの処理です。

sub search の中で @main::pkgs が更新されるって事？
どういう風に値が変わるのかも書いたほうがいいんじゃないかな。
さすがに、テストデータ作ってまでデバッグしてくれる人はいないでしょ。

$_ がパッケージ(グローバル)変数だからやね。

while(<FH1>) は while(defined($_ = <FH>)) なんだけど、これが
for (@pkgs) つまり for $_ (@pkgs) 中で呼ばれているので、
while(<FH1>) が実行されるときの $_ は @pkgs 中の1要素(のエイリアス)になってる。

ちょっくら試してみます。

へーなるほど。知らなかった・・・。これはハマリやすそうな罠。勉強になるなぁ。

my @arr = (1, 2, 3, 4);
print "**@arr**\n";
foreach (@arr) { read_data() }
print "**@arr**\n";

sub read_data { print while (<DATA>) }

__DATA__
AAA
BBB

実行結果
**1 2 3 4**
**   **

あ、>>798の実行結果はこうだった。ちなみに僕は>>788とは別人です＞＜

**1 2 3 4**
AAA
BBB
**   **

>>788
while は $_ を破壊してしまうから foreach を使うべし。

>>800
ネタだと思うけど一応。

while (my $hage = <>) {}

と書け。

{
local $_;
while () {}
}

って解決策もあるけど、こんなんだったら my 使ったほうがいいべ。

>>800
詳しく

>>800
ネタなんだろうけど、そんなことくらい気にするなよ。
$_は自分で使うときは必ずlocal $_する。
何かの関数を呼び出したら$_が破壊されていると考える。
それで充分。

>>802
ネタ……だよね?
「必ずlocal $_する」くらいなら、名前を付けてあげようよ。w

スコープについての心配が煩わしいなら、すでに $_ を使う理由がないということなのだから。

s/>>802/>>803/
失礼。

>>802
失礼のお詫びにサービス。

foreach はループ変数がグローバルである場合、自動的に変数の局所化を行う。対して while はそれをしない。
>>800 の「破壊」ってのはそれを指していると思われるけれど、うん、100% ネタということで。

あーごめんごめん。
>>806 の意味です。

質問です。
なんかbbs.cgiの仕様がこう（次レス）変わったらしいんですが、
これにage2ch.plを対応させるにはどこをどう変えたらいいんですか？
search.plもだいぶ前から使えなくなってますが、串使うことないので別にいいです。



age2ch.plダウンロード先
http://prdownloads.sourceforge.jp/age/8541/age2ch.pl0.04.04.01.tar.gz
http://sourceforge.jp/projects/age/

http://pc8.2ch.net/test/read.cgi/tech/1057329161/459-461

459 ：stream ◆PNstream2s ：2006/05/27(土) 16:31:16
新しい書き込みの仕様
レス
FROM=　←名前
mail=　←メール欄
MESSAGE=　←本文
bbs=　←板のディレクトリ名。operateとかtechとか
time=　←現在時刻より小さい値を適当に。1を送っておけばよい
key=　←スレッドキー
hana=mogera　←追加。常にmogeraを送っとけばいいのかな。
Cookieは不要。


460 ：stream ◆PNstream2s ：2006/05/27(土) 16:35:43
スレ立て
subject= ←スレッドのタイトル
FROM=　←名前
mail=　←メール欄
MESSAGE=　←本文
bbs=　←板のディレクトリ名。operateとかtechとか
time=　←現在時刻より小さい値を適当に。1を送っておけばよい
hana=mogera　←追加。常にmogeraを送っとけばいいのかな。


461 ：stream ◆PNstream2s ：2006/05/27(土) 16:36:37
Cookieは不要と書きましたが、sports2はCookie無しじゃ書けないので
Cookieも今までどおり必要ですね

Perlででかい何かを作りたいよぅ

foreach (<FH>) って、とても素敵。

呼び出した先での $_ の破損を調べるのに &hogehoge for 1; とか、
$_ を無駄に保護するのに &hogehoge for 1..1; とかどうですかね。

>>806 さん
重箱の隅ですが、foreach のループ変数局所化はmy変数にも有功ですだよ。

>>810
> Perlででかい何かを作りたいよぅ

Winnyノード

華麗にスルーしないで下さい＞＜

わかったよ。

>>808
がんばれ。

>>814
マジで頼むよ・・・

結局、Perlってテキスト編集くらいしか役に立たんのか？

>>816
テキスト編集って言ってもイロイロあるんだぞ。
ISPなんかでは、アカウントの作成やらユーザの設定変更やらでPerl大活躍だ。

>>816
無知乙

ここでなんと神降臨！！！
↓　↓　↓

>>819
スレ違い。改造スレに池。

>>810
俺のチンコをモデリングするコード

>>820
改造スレってどこですか？

>>811
ツッコミさんきゅー。で (レキシカル|ダイナミック) スコープが継承される、と。

お返しに、

>呼び出した先での $_ の破損を調べるのに &hogehoge for 1; とか、
>$_ を無駄に保護するのに &hogehoge for 1..1; とかどうですかね。

デバッグ用としてはアリかと。でも可読性はイマイチ。
>>806 でもちょっと書いたけれど、「これってスコープどうなってんの」な心配が要る時には、$_ を使うべきじゃない。
呼び出し側で $_ を使っていなければサブルーチンが何やっててもその点での心配はしなくていい。
そんなところに神経使うのは無駄ざます。ｗ

s/>>806/>>804/
毎度毎度……、僕ってダメなやつ。

ここで質問に答えている香具師どもはプログラミングPerlとかクックブックとかちゃんと読んでるんだろうな？

>>821
小さいから却下。

>>825
今度の荒らし君は少しは勉強してきたようですね。えらいえらあい。

>>816
つまり、>>817を要約すると、テキスト編集くらいしか役に立たんということだ。

あとは一応、コマンド実行できるから、シェルスクリプト（バッチファイル）の代わりとか、
ネットワーク周りも使えるから、ネットワークのクライアントとかサーバとかそんなもん。
でもやっぱり一番用途が多いのはテキスト編集で、テキストファイルの変換とか多いと気がするな。xxx2htmlとか。

>>822
　　　　　　　　,．-─ ─-､─-､
　　　　　　, イ)ィ　-─ ──- ､ﾐヽ
　　　 　 ノ ／,．-‐'"´ ｀ヾj ii /　 Λ
　　　 ,ｲ／／ ^ヽj(二ﾌ'"´￣｀ヾ､ﾉｲ{
　　 ノ/,／ミ三ﾆｦ´　　　　　　　 ﾞ､ﾉi!
　　{V /ミ三二,ｲ　, -─　 　 　 　 Yｿ
　　ﾚ'/三二彡ｲ　 .:ィこﾗ 　 ;:こﾗ 　j{
　　V;;;::. ;ｦヾ!V　　　 ｰ '′　i ｰ '　ｿ
　　 Vﾆﾐ( 入　､　　 　 　r　　j　　,′
　　　ヾﾐ､｀ゝ　　｀ ｰ--‐'ゞﾆ<‐-イ
　　　　　ヽ　ヽ　　　　 -''ﾆﾆ‐　 /
　 　 　 　 |　　｀､　　　　 ⌒　 ,/
　　　 　 　|　　　 ＞ ---- r‐'´
　　　　　　ヽ＿ 　 　 　 　 |
　　　　　　　　　ヽ ＿ ＿ 」

　　　ググレカス [ Gugurecus ]
　　（ 西暦一世紀前半 〜 没年不明 ）

>>828
ウpレカス

ダガコトワル

質問お願いします
WEB上のファイルをURLからそのファイル内容を取得したいと思ったのですが
そういったことはできるのでしょうか？

ちなみにファイル開くopen関数で開こうとしてみましたがだめみたいでした;;
open(FILE,

requireされたモジュールにおいて、自身のファイルのあるパスを取得するのはどうすればいいでしょうか？

>>831
できない。
はいさようなら。

>>833
そうですか；；ありがとうございます

>>834
きにするな。俺はアホだ。

>>833
CGIからはどの言語からでも無理ということでしょうか？

>>831
google: LWP

こんな感じのはどうだい
#!/usr/bin/perl

use strict;
use LWP::UserAgent;

main();

sub getUA {
my $timeout = $_[0] ? $_[0] : 10;
my $ua = LWP::UserAgent->new();
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)');
$ua->timeout($timeout);

return sub { # new($method, $url, $header)
my $res = $ua->request(HTTP::Request->new($_[0], $_[1], $_[2]));
return ($res->is_success) ? $res : 0;
}
}

sub main {
my $ua = getUA(10);
my $res= $ua->('GET', "$ARGV[0]");
$res or die "$ARGV[0] error\n";

print $res->content;
}

GETするだけならLWP::Simple使えよ…。そっちのが早いし。

>>83<7-9>
回答ありがとうございました〜LWP::Simpleで調べてみたところ

use LWP::Simple;
$doc = get 'http://www.yahoo.co.jp/';

こんな感じでできるようです＾＾ありがとうございました〜〜

PerlでGCA解凍出来る？

>>835
荒らし自演乙。

>840
氏ね。

>>832
__FILE__

たぶん。

Perlプログラムを起動すると、ターミナルの上部が常に同じ表示をしている状態にしたいのですが、
どうしたらよいでしょうか？

たとえば、Perlプログラム起動直後、ターミナル上に
****************************
* This is a Perl program. *
****************************

と表示されるようにします。この後、ほかの動作が入るとターミナルがスクロールされて、
上記の表示はなくなってしまいます。
標準入出力やファイル表示を行っても、常に上記の表示がされているようにしたいのですが、
どうしたらよいでしょうか？
Perlならできるのか、Unixのシステム関数が必要なのかもよくわかりません。

>>844
サンキュ！！！

>>841
GCA形式とはまたマニアックな。
作ればできるが、今のところそういったモジュールはないと思われる。

>>845
できなくはないが…めんどくさいな。

使ったことはないがncursesとかのコンソール用のライブラリを
インストロールする必要があると思われる。

とりあえず、簡単にはできないかと。

インストロール

空気嫁