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

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

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

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

http://www.perl.org/get.html
● 2009/08/07 現在の最新版: 5.10.0

▼ 前スレ
Perlについての質問箱 40箱目
http://pc12.2ch.net/test/read.cgi/tech/1243631674/

リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは >>5-6 あたり

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

[本]
リャマ: ttp://www.oreilly.co.jp/books/4873111269/
駱駝: ttp://www.oreilly.co.jp/books/4873110963/
Effective Perl: ttp://www.ascii.co.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/
perl5.8.x のドキュメント(一部): ttp://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: ttp://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: ttp://www.cpan.jp/search.cgi (停止中)
perldoc.jp: ttp://www.perldoc.jp/
perldoc.com: ttp://www.perldoc.com/

[モジュール]
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

#　[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 でエンコードする必要があります。

[過去スレ1]
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/
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/

[過去スレ2]
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/
24 http://pc8.2ch.net/test/read.cgi/tech/1146022352/
25 http://pc8.2ch.net/test/read.cgi/tech/1149259409/
26 http://pc8.2ch.net/test/read.cgi/tech/1153412251/
27 http://pc8.2ch.net/test/read.cgi/tech/1157874614/
28 http://pc8.2ch.net/test/read.cgi/tech/1162273941/
29 http://pc11.2ch.net/test/read.cgi/tech/1166708139/
30 http://pc11.2ch.net/test/read.cgi/tech/1173880452/
31 http://pc11.2ch.net/test/read.cgi/tech/1181500187/
32 http://pc11.2ch.net/test/read.cgi/tech/1186995713/
33 http://pc11.2ch.net/test/read.cgi/tech/1192463997/
34 http://pc11.2ch.net/test/read.cgi/tech/1199977642/
35 http://pc11.2ch.net/test/read.cgi/tech/1208674881/
36 http://pc11.2ch.net/test/read.cgi/tech/1215569470/
37 http://pc11.2ch.net/test/read.cgi/tech/1218449440/
38 http://pc11.2ch.net/test/read.cgi/tech/1221967332/
39 http://pc12.2ch.net/test/read.cgi/tech/1234181856/
40 http://pc12.2ch.net/test/read.cgi/tech/1243631674/

前スレの>>232を実行しましたが、hogehogeとしか出力しません。
どこかおかしくはないでしょうか？

Perlについての質問箱 40箱目
http://pc12.2ch.net/test/read.cgi/tech/1243631674/232

232 名前：デフォルトの名無しさん[sage] 投稿日：2009/06/18(木) 16:48:15
---- test.pl ----
use strict;
require 'config.pl';
print config::param('hoge');
print config::param('fuga');
---- config.pl ----
package config;
use strict;
sub param {
　return (
　　hoge => 'abcdefg',
　　fuga => '12345',
　)[$_[0]];
}
1;

設定を１つに纏めたいなら、ourとか考えずに上記のようにしろ。
万が一の確立で、そんな面倒なソースがまわってきたら嫌だ。

>どこかおかしくはないでしょうか？
前スレで色々指摘されてんじゃん。


---- config.pl ----
package config;
use strict;
sub param { ${ { hoge => 'abcdefg', fuga => '12345' } }{$_[0]} ; }
1;

で動く様になるけど、、、


>>1乙

>>8
�d
動きました。

Programming Perlの新しい版はいつでるの？

あれは多分
package config;
use strict;
sub param {
　return {
　　hoge => 'abcdefg',
　　fuga => '12345',
　}->{$_[0]};
}
1;
こういう事をしたかったんだろうね。
でもこれ呼び出す度に変数定義コストが掛かる上に例え同じkeyでも
違うアドレスの値を返すという駄目の見本のようなコード

>>10
Perl6が出てから半年後ぐらいじゃないの？

Configは素直にYAML使え。
コスト？知らんがな。

前スレのあいつは酷かったな。頭悪いレスしか書けないのになんで
あんな人を馬鹿にした態度なんだろ。
あのレベルでPerlを生業としてるとはとても思えない。

すいません、質問があります。

GetOptions使用時に
GetOptions( "startup|first!" => \$startup ,
のようにパイプラインが使われていることがあるのですが、
どういう意味があるのですか？

>>15
http://search.cpan.org/dist/Getopt-Long/lib/Getopt/Long.pm#Options_with_multiple_names

ああ、どっちもいけるってことですか。

ありがとうございます。

PHPのob_start()のように、出力を一時的にバッファリングすることはできますか。

ob_start();
print "aaa¥n";　　　＃なにも表示されない
$output = ob_get_clean(); # $output eq "aaa¥n"

よろしくお願いします。

クラス名 Foo::Bar::Baz::MyClass を MyClass という名前で使えるようにするにはどうしたらいいですか。
Exporterを使うのかと思いましたが、できませんでした。
ためしたコード：

package Foo::Bar::Baz::MyClass;
use Exporter qw(import);
our @EXPORT_OK = qw(MyClass);

として、

use Foo::Bar::Baz::MyClass qw(MyClass);
my $obj = MyClass->new();

としましたが、Undefined subroutine &Foo::Bar::Baz::MyClass というエラーに成りました。

>>19
オブジェクト指向について勉強しなおすといいと思うよ。

>>18
STDOUTを書き換えればできたと思う。
ソース、おぼろげな記憶。

当てずっぽうで書いて動かないから質問する

>>18
ファイルに退避させることはできるな。
#!/usr/bin/perl

*TAIHI = *STDOUT;
open(IN, '>/tmp/foo');
*STDOUT = *IN;
print "hello, world!\n";
*STDOUT = *TAIHI;
print "hi, there!\n";

メモリに退避する方法は良く分からん。open2使ったけど
うまくいかんかった。

#!/usr/bin/perl
use IPC::Open2;

*TAIHI = *STDOUT;
$pid = open2(\*OUT, \*IN, 'cat');
*STDOUT = *IN;
select STDOUT;
print "hello, world!\n";
*STDOUT = *TAIHI;
close(IN);

print "hi, there!\n";

$output = join("", <OUT>);
print $output;

こうか。結構めんどいな。つーかINとOUTを逆にしてて動かないだけだった。

あーselect STDOUTっての要らないから取っといて。

5.8.0からin-memoryバッファをopenできるようになったよ

use strict;
my $buffer;

sub ob_start
{
open(MEM, ">", \$buffer) or die;
select(MEM);
}
sub ob_get_clean
{
select(STDOUT);
return $buffer;
}

ob_start();
print "hogehoge\n";
print ob_get_clean();

>>26
うおーそれ見ると俺完全にズレてるな。精進しねーと。thx。

>>23-27
どうもありがとうございます。さっそく試してみます。

>>26
ob_get_clean()のなかでMEMをcloseしてないようですが、close(MEM) をいれたほうがいいですか。
それともなくてもかまわないでしょうか。

Data::Dumper よりもっとコンパクトに表示できるライブラリはないでしょうか。
Data::Dumperの表示は
$VAR1 = [
'A',
'B'
　　];
こんなかんじなので、['A', 'B'] みたいにコンパクトに表示してくれるライブラリを探しています。
ちょうどRubyのinspectみたいなのが希望です。

>19
ttp://search.cpan.org/~ovid/aliased/

>30
$Data::Dumper::Indent = 0;

>>31
さんくすです

これ↓、入札者が一人しかいなかったので高いのかなーと思ったけど買いでしたかね？

Ｐｅｒｌベストプラクティス - Yahoo!オークション
http://page11.auctions.yahoo.co.jp/jp/auction/n73044025

こないだブクオフで500円で買ったやつだな。

先日のDoS攻撃でTwitter陥落してから、Net::Twitterが動かないのですが
何か仕様変わったんですかね？

これって何で0って表示になるんですかね？

%hash = (hash-key1 => 0, hash-key2 => 2);
print keys %hash; #=> 0

hash-key1は hash - key1で、数値コンテキストでは数に見えない
文字列は0だから、0 - 0で0。hash-key2も同じ。

use strict使えよ

>>37
�d

>>35
スクリプト対策されたんじゃね？
もしくはHTTPヘッダを精査されてるとか
リファラーがないと無効なページがあるとか？

$tripkey = "#istrip"; # パスワードとする文字列（# 付き）
$tripkey = substr($tripkey,1);
$salt = substr($tripkey.'H.',1,2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = crypt($tripkey,$salt);
$trip = substr($trip,-10);
$trip = '◆'.$trip;
print "$trip";


この3行目は
$tripkeyとH.を連結したものから2文字目と3文字目を取り出して
代入しているということなのですか？

わたしは自分で確認することは絶対にしません。

ちなみに２ちゃんねるのトリップ回路は改正されたですよ♪

【堅牢】トリップの新方式を考えてみませんか【互換性】 ★2
http://qb5.2ch.net/test/read.cgi/operate/1245724530/l50

>>41
そう。だから$saltにはstがはいってる。
なんでH.を連結してるのかよくわからんけど

以下のようにasciiが混じった日本語（cp932 or euc-jp or utf8）をasciiとそうでない文字に
分けたいのですが、どうすればいいでしょうか？

$text = "abcひらがなdef漢字ghiﾊﾝｶｸjkl";

（asciiとそうでない文字に分ける処理）
（例えば順に@textに格納）

@textに、("abc", "ひらがな", "def", "漢字", "ghi", "ﾊﾝｶｸ", "jkl")が入っている。

>>45
decodeしてsplitして必要なら先頭要素を読み飛ばして再度encode

下記サイトに従って、半角カタカナをmime_encodeしたのですが、元に戻すと全角カタカナに
なってしまいます。
どうすれば半角カタカナをうまくmime_encodeできるでしょうか？

http://isoya.at.webry.info/200801/article_5.html

use Encode;

my $text = qq{ﾊﾝｶｸｶﾀｶﾅ};

# cp932 => MIME-Header-ISO_2022_JP
Encode::from_to($text, 'cp932', 'MIME-Header-ISO_2022_JP');
print $text, "\n";

# MIME-Header-ISO_2022_JP => cp932
Encode::from_to($text, 'MIME-Header', 'cp932');
print $text, "\n";

ISO-2022-JPをあきらめてUTF-8にするとか？
UTF-8なMIMEヘッダに対応してないMUAがありそうな気もするけど

# cp932 => MIME-Header-ISO_2022_JP
Encode::from_to($text, 'cp932', 'MIME-Header-ISO_2022_JP');
↓
# cp932 => MIME-Header
Encode::from_to($text, 'cp932', 'MIME-Header');

>>45
utf8でブロック使え。あるいはEUC-JPで\x20-\x7F拾え。
>>47
ISO-2022-JPに半角カナなんてないから。
それで半角カナにエンコードできる実装はカス（それが読めるメーラーも含めてな）。

>>45
use Encode qw(decode encode);

my $text = "abcひらがなdef漢字ghiﾊﾝｶｸjkl";
my $code = "cp932";

my $text_utf8 = decode($code, $text);
my @text;

push @text, encode($code, $1) while( $text_utf8 =~ /(\p{InBasicLatin}+|[^\p{InBasicLatin}]+)/g );

しかし日本語関係のトラブル多いな
がちがちに防御した書き方しなくても、
perlが手抜きしてなければ動くのに

てすと

use utf8;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";

my $jp; ←DBから引っ張ってきたベタUTF-8（のはず）
utf8::decode($jp); # これがあってもなくても
"$jp 日本語\n"; # 文字化けする。
"$jp"; # 大丈夫
"日本語"; # これも大丈夫

XML::RSSでおかしくなります。助けてください。

>>53
＞ "$jp 日本語\n"; # 文字化けする。
＞ "$jp"; # 大丈夫
＞ "日本語"; # これも大丈夫

日本語がEUCかSJISになってる

>>46
>>49-50
ありがとうございます。
utf8にdecodeしてから処理すればいいんですね。

>>53
$jpが本当にUTF-8かあやすぃ
jcode.plとか何でもいいけど
文字コードをちゃんと調べてみるべき

>>47
無理やりするなら、JISコードにして自分でbase64エンコードするとか。

use Encode;

my $text = qq{ﾊﾝｶｸｶﾀｶﾅ};

# cp932 => MIME-Header-ISO_2022_JP
Encode::from_to($text, 'cp932', '7bit-jis');
use MIME::Base64;
$text = '=?ISO-2022-JP?B?' . encode_base64($text, "") . '?=';
print $text, "\n";

# MIME-Header-ISO_2022_JP => cp932
Encode::from_to($text, 'MIME-Header', 'cp932');
print $text, "\n";

>>54
vimでutf8モードで保存してます。
>>56
確認済みです。ちなみにprintだとutf8と混在で表示できてます。
printだとうまく行くんですが、XML::RSSだと通らないという
不思議な現象に悩まされてます。
そもそもXML::RSSが実体参照を吐いて生UTF-8を吐いてくれません。

>>57
なんか不思議なことしてないか？

>>57
何がしたいのかさっぱり分からん・・・・。
ISO-2022-JPは半角カナ含まないっつってるのに宣言してるし、
EncodeのMIME-Headerを根本的に勘違いしてる気がするし、
それじゃデコードしても文字化けするだけだと思われ。

Perl/Tkの動作が良くわからなくて困っています。

その1。
Tkアプリで起動時に、「初期化中です」的なミニウィンドウを
メインウィンドウの前に表示して、終わったら消したいので
Toplevelを置いたのですが。
focusしてToplevelのタイトルバーは青く(アクティブに)なるのに、
肝心のウィンドウ本体がメインウィンドウに隠れてしまいます。

use strict;
use warnings;

use Tk;
use Win32; # …その2で追加

my $w = new MainWindow;
$w->Toplevel->focus;
Win32::MsgBox('nullpo'); # …その2で追加

MainLoop;

その2。
あと、試しに上のコードを書いてだめな後に、Win32のメッセージボックスを
おまけ的にくっつけてみたのですが、これを実行すると先に「nullpo」が
出てから、TkのToplevelにメインウィンドウが重なって出てきます。

その1でToplevelをちゃんとメインウィンドウの上に表示する方法と、
その2で実行順が一見逆転する理由が知りたいです。

環境：WindowsXP SP3、ActivePerl 5.8.1、Tk::VERSION 800.024

調べまくってたら事故解決しました。ごめんなさい。

my $w = new MainWindow;
$w->update;
my $aho = $w->Toplevel;
$aho->focus;
$aho->update;
Win32::MsgBox('・ω・');
MainLoop;

newした後で逐一updateしないと画面には出ないみたいですね。
画面に出せば順番に重なるっと。すいませんでした。

>>60
試しに、>>57でエンコードしたのをWindows Live MailやGmailで受信してもうまくデコートして
半角カナを表示した。

メール業界的には半角カナを認めてるってことか？

認めるとか、認めないとか、そういう問題じゃない。
浮気相手の子供だから認知しない、と言われても
生まれてしまった子は育てないわけにはいかないだろ。

ISO_2022_JPは進駐軍が勝手に決めた規格。
日本語を知らないヤツらが日本語の規格を決めたのだから使い勝手が悪いのは仕方ない。
そこでマイクロソフトはSI/SOコードで半角カナに切り替えられるよう拡張した。
このISO_2022_JP_MSは、マイクロソフトという一企業のローカルルールなわけだから
他のＯＳ（UNIXとか・・・）が従う義務は当然無い。
しかし、デスクトップ アプリケーション分野でメシを食ってる企業にとって
Windowsという巨大市場を無視するわけにはいかない。
認めるとか認めないとか、そういう以前に
半角カナは、今そこにあるわけだから。
半角カナを捨てるということは、Windowsを捨てることと同じなんだよ。

すごい。スミからスミまで全部デタラメ。

倒置構文のifの後にカッコがくる場合には最初のカッコが閉じるまでが反映されるとかそういうルールってありませんでしたっけ？
print "ok\n" if (0) or (1); #=> ok
これが直感的な答えと違う動作をするような気がしてたのですが

>>67
if 修飾子は制御構造。or は演算子。基本からやり直せ。
http://perldoc.jp/docs/perl/5.10.0/perlsyn.pod
http://perldoc.jp/docs/perl/5.10.0/perlop.pod

UTF8つかえ

>>68
違うんです
Perl のパーサの仕様でif文の後に(が来た場合に予期しない動きをすることがあると思い込んでたんです
で、実験をしてみたところ予想に反してうまく動いたので何か他のものと勘違いしてたのではないかという結論に至ったのです
そんでうまく絞り込めるような検索ワードが思いつかなかったのでここで聞いてみたのです
何か心当たりないですか？

>if文の後に(が来た場合に予期しない動きをすることがある
あるわけないだろｗ

if (0); としてしまうと or が成り立たなくなるため 0 or 1 と解釈するしかない思います。
今手元にはないから確かめられないけど、Perlってのはそんなもんです。
つーかコンパイルフェーズで制御構造も演算子も全部畳み込まれるよ


検索はしても、パーサーの詳細なんてきっと出てきません。
あえて言うならドキュメントのどっかに書いてあるかもしれません

0x5C文字に関することです
ファイルから読み込んだ文字列を出力するのですが、その際能やソ等の文字を能\、ソ\という風に置き換えたい、
そういう時はどういう風に記述すればいいですか？

$str =~ s/[〜]\\/\\\\/;
こういう記述で書けば良いと言う事はなんとなく分かるのですが[]の中身が分かりませんでした。

検索してみてもヒットする量が膨大すぎて思うような回答を見つけることが出来ませんでした。

>>72
my @char_5c =
qw(― ソ Ы �\ 噂 浬 欺 圭 構 蚕 十 申 曾 箪 貼 能 表 暴 予 禄 兔
喀 媾 彌 拿 杤 歃 濬 畚 秉 綵 臀 藹 觸 軆 鐔 饅 鷭 �x �x �\ �\ );

my $re_5c;
$re_5c .= "\Q$_\E|" for @char_5c;
chop $re_5c;

my $str = "〜〜〜〜";
$str =~ s/($re_5c)/$1\\/g;

>>72
これ↓でどうだろう？

$str =~ s/([\x00-\x7F\xA1-\xDF]|[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])/
my $c = $1; $c =~ \/.\\\/ ? "$c\\" : $c/eg;

>>72-74
http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm
何に出力するのにそんな付け足しが必要なのかは分からんが

>>65
おま・・・・・。
半角カナは弊害が多すぎて日本人の権威たる村井先生達がわざわざISO-2022-JPから
削っていただいてくれたわけだが。

それでも使う馬鹿や使える馬鹿クライアントが多いから困ってるわけだが。

ちなみにWindows用のクライアントの一部はISO-2022-JPを騙ってjis-7bitなぞ認識しないぞ。
相手が読めない可能性があるメール送るのは阿呆のすること。
そんなに半角カナ使いたければ添付ファイルにでも放り込んでおけ。

Windowsはcp932使ってるからISO-2022-JPの議論とは全く別。

>>72
んなことする前にEncode覚えろ。

あー今はUnicodeになってんのかな内部的には。
Unicodeには半角カナあるからな（文字コードが字幅を制限するってのが
いまいち理解に苦しむが）。

>>65ほど全行がいちいちデタラメな文章も珍しいな・・・。

なんだ村井ってのは？進駐軍の手先か？
研究室に小森っきりで実社会を知らないヤツのオナニーに付き合わされちゃタマランよ。

Perlで、ディレクトリ名とファイル名のjoinはどうやるのでしょうか。
今は "$dirname/$filename" としているのですが、これはWindowsでも期待通りに動きますか。
ちなみに「perl join」でぐぐったら、配列のjoinばかりでてきました（当然か）。
よろしくお願いします。

半角カナ以外にも「〜」なんかのunicodeへのマッピングが統一されてないとか
日本語の文字コードは滅茶苦茶で先人達はほんと何やってたんだよって感じ。
負の遺産押し付けないで欲しいわ〜。こんなのでもなんとか扱えるように
perlがんばったなとは思うけど。

>>80
http://search.cpan.org/dist/perl/pod/perlport.pod#Files_and_Filesystems
> DOS, OS/2, VMS, VOS, and Windows can work similarly to Unix with / as path
> separator, or in their own idiosyncratic ways

>>79
http://ja.wikipedia.org/wiki/ISO-2022-JP
でも読んでろ。業界の常識だぞ。

>>81
〜は、そもそも全角チルダなのに字形が同じという阿呆な理由でMicrosoftが波ダッシュに割り当てたのが
問題の始まり。UN*X系やMacOSのIMEはきちんと対応してる。
まあこれは、縦書きの波ダッシュの字形を間違えて横書きに適応したUnicode策定側にも
責任があるが。つーわけで現状、波ダッシュと全角チルダが混在してる状況なのでいつか大変なことになると思われ。
WindowsはVistaから波ダッシュと全角チルダが見分けが付かなくなるようになったので、
水面下で問題は進行する。

つーかなんだかんだいってコガイダンはすげーよ。

0x5c問題（半角円記号問題）もMicrosoftがISO/IEC 646と純正ASCIIを混同したのが原因。
まあこれは歴史的に仕方ないと思うが。さすがにPerlも含むコンパイル等が動かないと困るので、
0x5cは円記号でもバックスラッシュでもあるという不思議な状況がこれからも続くと思われ。

ｽﾚﾁｽﾏｿ。

>>82
thank you very much.

もうひとつ質問です。
["foo", ["bar", ["baz"]]]
を
["foo", "bar", "baz"]
に展開してくれるような関数はありませんか。
「perl flatten」でぐぐったけどそれらしいのは見つからず。

>>84
再帰使いたかったからこんなん書いてみた。
#!/usr/bin/perl
use Data::Dumper;
$var = ["foo", ["bar", ["baz", 'buz'], ['baa',['foobar']]]];

print Dumper [ flatten($var) ];

sub flatten{
my($var) = @_;
my @foo;
map {ref eq 'ARRAY' ? flatten($_) : $_} @$var;
}

>>84
Perlの調べ物にGoogleなんかを使うから見つからんのだ
http://search.cpan.org/search?query=flatten

>>86
http://search.cpan.org/~obradovic/List-Flatten-0.01/lib/List/Flatten.pm
俺のコードの劣化版でﾜﾛﾀ。

>>87
ソース見たら、これだけだねｗ
sub flat(@) {
return map { ref eq 'ARRAY' ? @$_ : $_ } @_;
}

これを再帰させて中まで展開すれば>>84の答になるか
sub flat(@) {
return map { ref eq 'ARRAY' ? flat(@$_) : $_ } @_;
}

ていうか、それが>>85だな

>>85-89
おおーさんくすです。

>>85
my @foo; はどんな意味があるんですか？

>>91
残骸です。見なかったことにしてください。

>>92
了解

>>88
>sub flat(@) {
>return map { ref eq 'ARRAY' ? flat(@$_) : $_ } @_;
>}

map にわたす { } では、配列とスカラのどちらを返すべきなんでしょうか。
flat(@$_) だと配列だし、$_ だとスカラですよね。
どっちでもいいということ？もしそうだとして、コンテキストはスカラと配列のどちらになるんでしょう？

Perl勉強中につき、ヘルプミー

>>94
perldoc -f map に書いてあるよ。
mapはリストコンテキストで評価される。

つまりmapの { } が返すのは、スカラーでも、配列でも、ハッシュでもなんでもok
最終的にぜんぶフラットに連結されて1つのリストになる。

>>95
つまり map の { } のなかで $_ （スカラー）を返しても、それはリストコンテキストで評価されるから、
結局は ($_, ) とみなされる、ということですね。なるほど。
ありがとうございました。

> 〜は、そもそも全角チルダ
> 0x5c問題（半角円記号問題）もMicrosoftがISO/IEC 646と純正ASCIIを混同したのが原因

嘘は良くない

すいません、質問します。

my $tmp_os_info = $^O;

この記述の　$^O;　とはいったい何を表しているんでしょうか？
ビット演算で　^　を使うというのまでは分かったんですが、そのような動きを
していそうにも見えません。

<img src="xx">のxxを抽出するにはどうしたらいいですか？

1.正規表現を使う
2.正規表現を使わずに文字列を検索する

>>98 「perl 特殊変数」でググレ

>>101
ありがとうございます！

map { } @list
のように、クロージャ(?) をとる関数はどうやって定義すればいいですか。

>>79
その実社会を知らないオナニー野郎呼ばわりの村井純がいなければ、
今の日本のインターネットは無いも同然なわけだが…。

ってか、色々な官庁や巨大な電話業界と戦って、通信回線にデータを
流すことを認めさせ、さまざまな組織を回線で繋いでネットワークを
作っていったわけで、道の無いところに道を開いてきたというか、
めちゃくちゃ実践派だぞ？

まあ、アプリケーション層の人間から見れば、また違った感想なのかも
しれないけど。

>>103
プロトタイプで&

List::UtilモジュールのList/Util/PP.pmとか参考にするといいんじゃないかな。

すいません。PerlでRubyのpにあたるものは何ですか？
配列の配列をデバッグ出力したいんですけど。

Data::Dumper

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

>>99
正規表現を使うか
indexとsubstrで抽出するかって感じ

普通に正規表現が簡単

>>108
Data::Dumper より YAML のが便利
タイプが少ないしなによりログ取りたいときに出力が簡単

>>99
Web::Scraper。

>>104
最近の若いのは村井純（とその大いなる功績）も知らないのな。
ISO-2022-JPから半角カナを省いたのはどう考えても正解だろ。
半角カナなんて弊害ばかりで互換性とＡＡ以外に何か存在意義があるわけ？

LWP::UserAgentを使ってHTTPリクエストを送信すると
TE: deflate,gzip;
が勝手に付加されてしまい、レスポンスがgzip圧縮で返ってきてしまいます
gzipの変換で不要なトラブルに遭いたくないのでTE: deflate,gzip;を付加しないようにしたいのですが、どうすればよいでしょうか

>>111
結局規格なんか決めても世の中が従わなかったら失敗なんだよな。
混乱がよけいひどくなっただけ、という見方もできる。そしてこれだけの
AAが生み出された今となってはAAを保存できないISO-2022-JPは
イマイチだな。過去の遺物でいんじゃね？

>>111
そいつがAA級戦犯か！

>>112
use LWP::UserAgent;
push(@LWP::Protocol::http::EXTRA_SOCK_OPTS, SendTE => 0); #最初に実行しとく

ネットで見つけて使ってるけど、これでほんとにいいのか俺もよくわかってないｗ

>>105
サンクスです。プロトタイプなんてPerlにあるんですね。

>>113
世の中は一部を除いて従いませんでしたよ。GmailでＡＡ送ってみ。
つーかISO-2022-JPで半角カナ使う人間がどれだけ馬鹿にされてきたか知らないんだな。

顔文字程度ならともかくいわゆるAAは特定のフォントセット・ポイント数で見られることを前提としてるから、
いまやPC同士メールくらいにしか用途がなく、等幅フォントや任意のポイントで見られる場面が
比較的多いISO-2022-JPとは無関係の世界だろ。

>>114
だれうま。

>>115
無事TE:を消すことができました！
ありがとうございました

perl＋htmlで掲示板を作っています。他は正常動作するのですが、auの機種のみ

■html側（shift_jis）
<form action="bbs.cgi" method="post">
<textarea name="comment" rows=4 cols=30></textarea>
<input type=submit value=発言>
</form>

↓「あいうえお」と入力

■bbs.cgi（EUC_JP）
use CGI;
$query = CGI->new;
@params = $query->param();
foreach $param (@params) {
$in{$param} = $query->param($param);
}

↓
$in{comment}の中身は「??????????」

のような動作になってしまいます。
URLエンコード／デコードのせいかと思ったのですが、受け取り時点でこんな化け方をされるとどうすれば良いのやら……
何か解決法は無いでしょうか。

携帯のメールって半角カナを送信できないのかな？
携帯を持ってないから確認できないや。

>>119
>>1

>>120
携帯はキャリア内ならそのまま出せるんじゃないかな？
RFCに準拠しないメールアドレスとかもOKなぐらいだし。

PCのメーラーは、全角カナに変換してから送信とかが
多いような気がするけど。

>>111
ついでにAAも頼む。

>>121
おうふ
申し訳ない、いってきます

組み込み関数と同じ名前の関数を定義してしまったとき、もとの組み込み関数を別名などで呼び出すことは可能ですか。
たとえば map() という名前の関数を組み込み関数とは別の用途で使いたくて、sub map ... と上書き定義したのですが、
その場合にもとの組み込み関数をどうやって呼び出すかがわかりません。

ちなみにPythonだと組み込み関数を上書きしても、もとのを __builtins__.map() のような感じで呼び出せるので、
同じことがPerlでもできるのではないかと思い、質問しました。

>>124
http://search.cpan.org/dist/perl/pod/perlsub.pod#Overriding_Built-in_Functions____
> To unambiguously refer to the built-in form, precede the built-in name with
> the special package qualifier CORE::. For example, saying CORE::open() always
> refers to the built-in open(), even if the current package has imported
> some other subroutine called &open() from elsewhere.

>>124
read()
という関数を呼び出すとき、
&read()にすると自作関数
read()にすると組み込み関数が呼び出される

>>124
CORE::hoge でもいけるよ

>>124
&mapとmap()は別に認識されるのでは？

&での呼び出しはプロトタイプ無視と引数自動設定の二大うんｋ仕様があるんじゃなかったっけ？
あと、宣言位置がおかしくてもむりくり呼び出される仕様。

間違ってたらすまん。

>>129
再現させてみてないけど、ちょっと前C書いてた手癖で
sub xxx(){ ... } って書いちゃったけど普通に引数受け取ってたってことがあったな。
これって仕様か？

>>125-129
ありがとうございました。CORE::map() で呼び出せました。

プロトタイプを使って、クロージャを引数にとる関数を定義しています。
このとき、f { } arg ではなくて f arg { } のように、クロージャを
最後の引数にしたいのですが、どうやったらできるでしょうか。

たとえば、クロージャを最初の引数にとるような関数は定義できたのですが、

sub f (&$) {
　　my ($code, $arg) = @_;
　　$_ = $arg;
　　&{$code}();
}
f { print "arg=$_¥n" } 123;　#=> arg=123

こうではなくて、クロージャを最後の引数にするような関数が定義できません。
（定義して呼び出そうとすると syntax error になりました）。

sub g ($&) {
　　my ($arg, $code) = @_;
　　$_ = $arg;
　　&{$code}();
}
g 123 { print "arg=$_¥n" };　#=> syntax error

よろしくお願いします。

>>132
perlsub(1)より。

An "&" requires an anonymous subroutine, which, if passed as the first argument,
does not require the "sub" keyword or a subsequent comma.

「if passed as the first argument」だから、subと「,」を省略できるのは最初の引数の
ときだけ。

>>133
了解しました。ありがとうございます。

Perlのglob()は '**/*.pm' のような、zshライクな書き方はサポートしてないのでしょうか。
もしそうなら、'**/*.pm' のような書き方をサポートした関数やライブラリがあればおしえてください。

>>135
http://search.cpan.org/dist/makepp/Mpp/Glob.pm#Mpp::Glob::zglob

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

>>130

sub hoge($$){ ($hoge, @huga) = @_; …

でパッケージ内でしか呼び出さんかったら普通に動いて
パッケージ外で呼び出すと@hugaには第三引数しか入らんというわけわからん仕様につい最近悩まされた記憶がある

すこしおじゃまします。
ここで聞いてよいかいまいちわかりませんが・・・

現在、Perl+XercesでXMLを処理しています。
XMLデータが変数(ex. $xml)に文字列として格納されている場合、
それをDOMParserに渡して、パースする方法を
教えていただけないでしょうか。

$parse = XML::Xerces::DOMParser->new();
$parse->parser($xml);
こう書いてしまうと、上手くパースしてくれず、
InputSorce系のクラスを使えばパースできるような記述までは
JAVAやCのソースから推測できるのですが、
Perlについての記述が少なすぎて、
どう使ってよいのか（書式やクラスの指定など）
分からず悩んでいます。

>>130
俺も試してないけど、呼び出すときに &sub としたなら、しっかりプロトタイプが無視されてる

ソースコードを見ながらブレイクやステップでデバッグをするのって無料だとEclipseしかないですかね？

$aaa->{verkanri} = [qw/zip-open folder-check start-up close-out/];
foreach (@{$aaa->{verkanri}}) {
$aaa->{$_."_ver"} = [];
$aaa->{$_."_cmt"} = [];
}

上記の処理について質問があります。

まずaaa->{verkanri}にqwで囲まれた文字列たち"zip-open"、"folder-check"、"start-up"、"close-out"が
格納されるのは分かるのですが、その後の処理にて
$_に"zip-open"、"folder-check"、"start-up"、"close-out"が順番に格納され
$aaa->{zip-open_ver} = []
$aaa->{zip-open_cmt} = []
$aaa->{folder-check_ver} = []
$aaa->{folder-check_cmt} = []...
となりますよね、でもperlって変数にハイフンを使うことが出来ないはず。
なにか特殊な規則でもあるのでしょうか？

連投、申し訳ないです。

$aaa->{bbb} = [];
$aaa->{"bbb"} = [];

上記２つの違いは何なのでしょうか？

>>143
"を省略しただけ

>>142
変数名にはハイフンを使えないが、ハッシュのキーにはそのような制限は無い。

>>144さん、>>145さん
ありがとうございました！

質問しといて、事故解決したのでとりあえず報告
$mem = XML::Xerces::MemBufInputSource->new("$xml",length($xml));
を追加して
$memをパーサに食べさせれば無事パースできました。

@source_s, @source_t が同要素長の配列のとき、
同一の添え字となる要素両方を用いた適当な条件をテストし、
パスしたものだけを、それぞれ、@passed_s, @passed_tに格納する、
というようなフィルタをスマートに書くにはどうしたもんですかね。

考えたのは、
my @source_s = (0..9); my @source_t = reverse(0..9);
を例として、

use List::MoreUtils qw(pairwise);
my @conditions = pairwise { $a * $b > 15 ? 1:0 } @source_a, @source_b;
my @passed_s = map { $conditions[$_] ? $source_s[$_]:() } 0..$#conditions;
my @passed_t = map { $conditions[$_] ? $source_t[$_]:() } 0..$#conditions;
とか、

my @temp = map { $source_s[$_] * $source_t[$_] > 15 ? [$source_s[$_], $source_t[$_]]:() } 0..$#source_s;
my @passed_s = map $_->[0], @temp;
my @passed_t = map $_->[1], @temp;

@passed_a = (3, 4, 5, 6); @passed_b = (6, 5, 4, 3); # この例での結果

配列のスキャン回数、perlの苦手な添え字式アクセス、表面上のコード行数、中間変数
これらをバランスさせるような書き方はないでしょうか。

@passed_s = (3, 4, 5, 6); @passed_t = (6, 5, 4, 3); # この例での結果
でした。

my @souce_st = map { [$source_s[$_], $source_t[$_]] } 0..$#source_s;
形式でデータを持っておいて、

my @passed_st = grep $_->[0] * $_->[1] > 15, @source_st;

てするのがいいんだろうな、きっと。

数珠つなぎにすればスマートになるというものでもなかろうに

my @src_s = (0..9);
my @src_t = reverse @src_s;

my @num = grep $src_s[$_] * $src_t[$_] > 15, 0..$#src_s;
my @pass_s1 = @src_s[@num];
my @pass_t1 = @src_t[@num];

my(@pass_s2, @pass_t2);
for (grep $src_s[$_] * $src_t[$_] > 15, 0..$#src_s) {
　　push @pass_s2, $src_s[$_];
　　push @pass_t2, $src_t[$_];
}

>>151
配列スライスでできそうに思っていたけど、思いつかなかったんだ。
ありがとう。

頭が錆びてきているのかな。。。

てす

これって、シンボリックリファレンスみたいな感じですけど、use strictで通るってことは違うんですかね？

use strict;

my $func_name = 'plus';
print Foo->$func_name(1, 2); #=> 3

package Foo;
sub plus { shift; $_[0] + $_[1] }

Perlにはサブルーチンの数に制限がありますか？

というのも、requireでいくつかのサブスクリプトに分散してサブルーチンを作っているんですが、
サブルーチンへの分岐がスルーされるという現象に見舞われています。
ところが、requireの記述の順序を変えるとこれがスルーされなくなる代わりに、それまで処理され
ていた別のサブルーチンが処理されなくなるという具合です。

さらに、処理が行われないサブルーチンを含むスクリプト定義をコメントアウトし、メインルーチンでは
処理が行われないサブルーチンへの分岐をそのままにした状態で実行してもエラーにならないのです。

個々のサブルーチンについては、特にエラーは出ないのですが…

↑
補足です。requireはメインルーチン文頭に条件分岐なしで記述してあります。

>>155
>Perlにはサブルーチンの数に制限がありますか？

Perlよくしらないけど、ないんじゃないかなあ。
問題は別のことが原因だとおもう。たとえばサブスクリプトで同じ名前の関数を
定義しているために、読み込む順番によって上書きされたりしなかったりとか。

>>154
http://fireball.loafer.jp/kes/perl/article_134.html

手さぐりしてないで、有効なサブルーチンをリストしてみれ。

>>158
アロー演算子の後のスカラー変数は動的なメソッド呼び出しをするという機能なんだ。
賢くなった。
�d

>>157
まさにその通りでした…(恥)orz

申し遅れました、>>157さん・>>159さん、ありがとうございましたm(_ _)m

なぜハッシュリファレンスへのアクセスで、従来と似たような$href{one}としないで、
$href<one>と山括弧にしたのですか？

404 Blog Not Found:perl - $@%&*のよしあし
http://blog.livedoor.jp/dankogai/archives/50772506.html

Test::Simpleのインストールで下記のエラーが発生するのですが、解決方法ないでしょうか？
過去のVersion0.90〜0.82も試しましたが結果は同じでした。

・Windows XP Professional SP3
・CYGWIN_NT-5.1 hostname 1.5.12(0.116/4/2) 2004-11-10 08:34 i686 unknown unknown Cygwin
・This is perl, v5.8.5 built for cygwin-thread-multi-64int
・$ perl -MCPAN -e 'print $CPAN::VERSION;' 1.9402

t/Builder/try...........................NOK 6
# Failed test at t/Builder/try.t line 36.
# got:
# expected: 23
t/Builder/try...........................ok 8/0# Looks like you failed 1 test of 8.
t/Builder/try...........................dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 6
Failed 1/8 tests, 87.50% okay

全文
ttp://textup.no.land.to/w/1251470681/

use utf8;
use Encode;
open(FH,'c:\hoge.txt');
binmode(FH,':utf8');
my $x = <FH>;
$x =~ s/ア//g;
print encode('utf8',$x);
close(FH);

hoge.txt（utf8で記述されている）から一行抜き出して、その文から「ア」を削除したいんですけど、
こんな感じのソースを書いてみたら案の定期待した通りには動きませんでした。
どうすれば期待通りの挙動になってくれるんでしょうか、誰か教えてください

>>4 を読め

>>164
1. t/以下を読んで原因を探って解決。
2. バギーでも少々動けばいいやと思うなら cpan -if Test::Simple。

>>166
>>4は読んでますけど関係無いですよね？
Dos窓はきちんとutf8で動かしてるし、単純にutf8なソースの中で正規表現を使う方法だけ知りたいんです。

読みかたが足らん。１００回読め。>>4を１００回読め！
自分のコードと、どこがどう違うか
１行１行しっかり吟味しろ

変数のことでお聞きします
---------------------
a = 0
処理
a = a++
---------------------
上記のようにa++を使うような感じで
数字＋アルファベット＋特殊記号のアンダーバー_
37文字を100万値まで繰り返し使いたいです
変数aの次にb
bの次はc・・・・
zの次は0
0の次は1・・・
9の次は_
_の次はa
aの次はb
a〜z　0〜9　_
これを繰り返す方法教えてください
37進数って言うのかな？

ちょっと違うけど。
my @ary = ('a'..'z', '0'..'9', '_');
my $len = scalar @ary;
for my $i (0..100) {
    print $ary[$i % $len];
}

>>171
配列に37文字組み込んでってことですね
大変参考になりました
即レス頂きありがとうございました！

どうでもいいけど、プロは a = a++ なんてコードは書かない

>>170
まだ初心者だけど、>>171を参考に作ってみた。

package Base37;
use strict;
use warnings;

use Carp;
use overload (
'++' => \&inc,
'--' => \&dec,
'+' => \&plus,
'-' => \&minus,
'=' => \©,
'""' => \&str,
);

my @base = ('0'..'9', 'a'..'z', '_');

sub new {
my $class = shift;
my $symbol = shift || $base[0];

my $pos = index( (join q{}, @base), $symbol );
croak "`$symbol' can't be used. `@base' are available." if $pos < 0;

bless {pos => $pos}, $class;
}

続き

sub inc {
my $self = shift;

$self->{pos}++;
$self->{pos} %= @base;
Base37->new( $base[$self->{pos}] );
}

sub dec {
my $self = shift;

$self->{pos}--;
$self->{pos} %= @base;
Base37->new( $base[$self->{pos}] );
}

sub plus {
my ($self, $other) = @_;

if (ref $other ne 'Base47' ) {
$other = Base37->new($other);
}

my $pos = ( $self->{pos} + $other->{pos} ) % @base;
Base37->new( $base[$pos] );
}

続き

sub minus {
my ($self, $other, $is_reversed) = @_;
my $pos;

if (ref $other ne 'Base47' ) {
$other = Base37->new($other);
}

if ( $is_reversed ) {
$pos = $other->{pos} - $self->{pos};
}
else {
$pos = $self->{pos} - $other->{pos};
}

$pos %= @base;
Base37->new( $base[$pos] );
}

sub copy { Base37->new( $base[shift->{pos}] ) }
sub str { $base[shift->{pos}] }


package main;

my $a = Base37->new('z');
$a++;
print "$a\n"; #=> _
$a++;
print "$a\n"; #=> 0

どうでもいいけど、プロは$aと$bにmyは付けないｗ

お前の発言の方がどーでもいいわｗ
ざっと探してみたけどperlじゃ36進数のサンプルないぞ
さすがにCとVBはあったけど
で、37進数やろ
お前が37進数やってみればいいやろプロさんｗｗｗ

$aが特殊変数である事実が、どうでも良い取り扱いな訳ないだろ。

$a <=> $b と書いて、しまったソートが逆だった、という時に、
最小の労力で逆転させるにはどうすれば

下記サイトにある、

\*import = cgi_fixup();

って何をしているのです？
そもそも、\*import ってのが何を表しているのかがさっぱりわからん。

http://blog.livedoor.jp/dankogai/archives/50805754.html

>>180
reverse

reverseってコンパイラ的には読む方向を変えてるだけなんだろうか

別スレにある下のプログラムが動かないんだけどこれだけだとだめなの？ちなみに環境はアクティブパールの最新版

use bigint;

$SEED=0;

for $sec (0..0xffff){
　　$SEED=$sec;
　　$mapSEED=&dq9_rand;&dq9_rand;$rand=&dq9_rand;

　　$loc1=&loc($rand,47);
　　$loc2=&loc($rand,131);
　　$loc3=&loc($rand,150);

　　printf "$sec秒:SEED=%04X 場所(%X,%X,%X)\n",$mapSEED,$loc1,$loc2,$loc3;
}


sub dq9_rand{
　　$SEED = ($SEED * 1103515245 + 12345) & 0xffffffff;
　　$ret =($SEED >> 0x10 & 32767);
　　return $ret;
}

sub loc{
　　$r=shift;
　　$upper=shift;
　　$diff_1=$upper; # 差分+1 = $upper-下限1+1
　　return ( 1 + ($r % $diff_1 ) );
}

>>184
なんかこんなの出てきたぞ。意味わからんけど動いてるんじゃね

0秒:SEED=0000 場所(19,21,59)
1秒:SEED=41C6 場所(9,1B,40)
：
中略
：
65535秒:SEED=0CA6 場所(18,79,36)

Unrecognized character \x81ってｴﾗｰが出ていたら笑ってやる

>>186
ごめん、その通りなんだ
初めていじるので全く意味がわからない・・・

出たことあるなあ
漢字についての取り扱いでよそからコピペした時だったので、
しばらく悩んだ

自己解決しました

perl初めたばかりだけど
基礎らしい二分検索のプログラム書こうとチャレンジしてるんだが方法が思いつかない。

ソート済の対象ファイルを配列に取り込んで、配列個数調べて
個数nの半分の値の所で比較して比較して……って感じで流れは分かるんだけど

一応検索で該当箇所見つけ出してそこに1行突っ込む、って部分は出来たんだけど……

二分検索のアルゴリズムが理解できてないのか？
perlの文法がわからなくてプログラムコード化できないのか？

(3,4,5)みたいな行列が与えられたときに

0,0,0
0,0,1
0,0,2
0,1,0
0,1,1
0,1,2
0,2,0
.
.
.

みたいな３×４×５＝６０個の組み合わせを全部表示するようなプログラムを作りたい。
forループ３回まわせばそりゃ楽なんだが、再帰でやってみようとしてもどうも
うまくいかない・・・。どんな風に書けばいいかな？

>>191　二分探索は
　ソートされているデータを、まず要素の真ん中で検索し、比較対象が上か下か調べる
　それを更に上と下で区切ったほうのさらに真ん中で同様の処理　
　繰り返し最後の値が見つけ出すまでやる・・・・で良かったかな

　配列取り込んで、配列の数出して、
　それを1/2してまではなんとかなるけど、
　そこから先、どのように書いたらいいかが見当付かないんです・・・・

>>192
これでどうだ

sub foo {
my ($n, @rest) = @_;
return map {
my $i = $_;
@rest ? map { "$i, $_" } foo(@rest) : "$i\n"
} (0 .. $n-1);
}

print foo(3, 4, 5);

>>193
そこまで分かってるなら、あとはコーディングするだけじゃん。
perlの文法がわからないの？
だったら入門書や解説サイトを読めばいいやん。

>>195
if関数で　ひたすら大か小かで判定するかしか思い浮かばなくて……

　whichでその大か小かの判定だけさせた無限ループにして
　一致した時点でlastで抜ける　みたいな感じでいいのでしょうか……

思い浮かんだなら形にしてみ

>>196
バイナリ検索は、配列を切ったりはったりせずに、インデクスの上下でせめていくといいよ
とりあえず再帰を使った例を出しとく。でも普通は効率化のため再帰じゃなくループにする

sub search
{
my ($arr, $data, $min, $max) = @_;
return (0, $min) if ($min >= $max); # サーチ失敗フラグ＋挿入すべきインデクス
my $i = int(($min + $max) / 2);
return search($arr, $data, $min, $i) if ($arr->[$i] > $data);
return search($arr, $data, $i+1, $max) if ($arr->[$i] < $data);
return (1, $i); # サーチ成功フラグ＋見つかったインデクス
}

my @array = grep { $_ % 3 } (1 .. 10000); # テスト用：3の倍数を除く10000以下の自然数

foreach my $data (0, 100, 3000, 7777, 10001) # この5つの数を検索してみる
{
my ($found, $index) = search(\@array, $data, 0, scalar(@array));
if ($found) { print "$data を発見しました（位置=$index）\n"; }
if (!$found) { print "$data はありません（挿入すべき位置=$index）\n"; }
}

下記サイトに記載されている関数は何をする関数でしょうか？

Perl Internalsについて - Unknown::Programming
http://d.hatena.ne.jp/fbis/20080627/1214537750

Internals::HvREHASH
Internals::SvREADONLY・・・これはわかった
Internals::SvREFCNT・・・これもわかった
Internals::hash_seed
Internals::hv_clear_placeholders
Internals::rehash_seed

>>199
hash_seedはハッシュDBの構造が理解できれば何のことかすぐわかるはず。

ハッシュの配列について質問があります

例えば、
my %hogehoge;

foreach(0..10){
push(@{$hogehoge{pos}},[$_,$_+1]);
}

されたものがある場合、どうやって$hogehoge{pos}を表示すればいいのでしょうか？

こうするか
foreach (@{$hogehoge{pos}}){
print $_;
}
あるいは
$hogehoge{pos}->[0]; # 連番で

>>202
それだと、こうなってしまうのですが・・・
ARRAY(0x1004f668)ARRAY(0x1004f830)ARRAY(0x1004f890)ARRAY(0x1004f8f0)ARRAY(0x1004
f950)ARRAY(0x1004f9b0)ARRAY(0x1004fa10)ARRAY(0x1004fa70)ARRAY(0x1004fad0)ARRAY(0
x1004fb30)ARRAY(0x1004fb90)

>>203
そりゃ、そのまま吐いたらそうなるなぁw
こうかな。
for my $pos_ref (@{$hogehoge{pos}}) {
warn $pos_ref->[0];
warn $pos_ref->[1];
}

そもそもその前にpushしてるのが直感的な感じしないからこうしちゃうなぁ
my @array = map { [$_, $_+1] } (0..10);
$hogehoge{pos} = \@array;
で、>>202が言ってるみたいに->[0]でやるかなぁ

>>202
print "@$_" for @{$hogehoge{pos}};

my %hogehoge = map [ $_, $_+1 ], 0..10;
}

>>201
デバッグで値を見たいとかではなくて？

my %hogehoge;

foreach(0..10){
push(@{$hogehoge{pos}},[$_,$_+1]);
}

use Data::Dumper;
use Dumpvalue;

print Dumper($hogehoge{pos});
Dumpvalue->new->dumpValue($hogehoge{pos});

Param::Validateモジュールの使い方を日本語で解り易く解説しているWebサイトを教えてください。
CPANに上がってる英文マニュアル見たがさっぱり、自動翻訳してもっとわけわかめになった。

　　　　　　　　　　　YES　→　【ヒットした？】　─　YES → なら聞くなよ。氏ね。
　　　　　　　　　／　　　　　　　　　　　　　　　　＼　　
【検索した？】　　　　　　　　　　　　　　　　　　　　　NO → なら、ねぇよ。氏ね。
　　　　　　　　　＼　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　 NO → 氏ね。

Perl素人のオレに教えてくれ。いや、ください

初心者サイトとかを回りながら、ファイルを読み込んで表示するだけのcgiを作ろうとしたんだけど
ファイルを二個読み込もうとするとインターナルサーバエラーとか言われる
IO::FILE使わなければ問題なく動くんだけどなぜなの？　IO::FILEは二回呼び出せないの？

以下作ってみたコード

#! /usr/bin/perl
use CGI;
use IO::File;

$logfile = 'data.log'; # ログファイルの名前
$logfile_02 = 'data_02.log'; # ログファイルの名前
$all_data = read_all_data(\$logfile);
$all_data_02 = read_all_data(\$logfile_02);

$q = new CGI;
print $q -> header(-Charset=>'sjis');
print $q -> start_html(-title => "test");

print @$all_data;
print @$all_data_02;

exit;

sub read_all_data{
my $logfile = shift;
my $io = IO::File->new($$logfile, 'r');
my @lines = $io->getlines;
$io->close;
return \@lines;
}

> my $io = IO::File->new($$logfile, 'r');
$$って

>>212
できた！　ありがとん

でもなぜ$$logfileじゃだめなんだぜ？
my $logfile = shift;　にファイル名へのリファレンス格納→$$logfileでデリファレンスっていう流れだと思ったのに……
何か根本的に間違ってんのかな

Perlでは文字列と数値は同じような扱いをしますが、Dumpすると内部的には
区別されてますよね？

数値なのか文字列なのかをプログラム内で判断する方法ってあるんですかね？
困っているわけではなく、単なる興味本位なのですが。

use Devel::Peek;

$num = 0;
$str = '0';

Dump $num;
Dump $str;
____________________________________________________

SV = IV(0x1828220) at 0x287dac
REFCNT = 1
FLAGS = (IOK,pIOK)
IV = 0

SV = PV(0x289e34) at 0x183271c
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x285144 "0"\0
CUR = 1
LEN = 4

>>214
気にしたこと無かったけどぐぐったら見つけた

http://oshiete1.goo.ne.jp/qa1737534.html
こんなやり方あるんだねー

>>214
Devel::Peekができてるんだから出来るんだろうよ。
ソース読んでみ。
ちなみにこの挙動については友人と議論したことがあるが、
数値か文字列か区別できたところで使いどころがない。
そもそも仕様外だから危なっかしくて使えねー。

ちなみに数値にしたけりゃ +0すりゃいいし、文字列にしたけりゃ .''すりゃいい。

>>213
＞ でもなぜ$$logfileじゃだめなんだぜ？

デリファレンス

>>215
ちょっと違うような。。。

>>216
Devel::PeekはXSで書かれているんで自分にはよくわからんです。

>>214
おすすめはblessしたクラス内で扱うこと。
トリッキーな使い方は可読性、可搬性を下げるのみ。
自己満足はできるかもしれないが。

文字と数値を区別しないで済む。あれこれ悩む必要が無くなる。
それがperlの特徴なのに。（スクリプト系言語はたいていそうなてる）
これじゃまるで、パンツの見えないミニスカートを買ったのに
パンツの見せ方を教えてください、って言ってるようなもん。

文字列中にある単語をマッチさせて複数取り出すにはどうすれば綺麗に書けますか？

今やりたいことは、あるウェブページ中にある画像のURLだけを取ってきたいと思っています。
　$contents = get($url); # LWP::Simple
　$contents =~ /(http:\/\/[^"]+[.]jpg)/; # jpgだけゲット
　$image = $1;
↑こうやりますと最初にマッチしたものは取り出せるのですが、
　2番目以降もまとめて上手く配列などに取り出せないでしょうか。

gつけて@に入れる

>>222
ありがとうございます。
置換のときは使っていたのですが、こんな風にも使えるのですね

while ( $contents =~ m/(http:\/\/[^"]+[.]jpg)/g ) {
print "$1はうんこ\n";
}

>>218
簡単な方法は、$foo ^ $foo の結果を見ること。
0だったら$fooは数値、空文字列だったら$fooは文字列。
数値をお互いにXORするとゼロになるし、
文字列をお互いにXORするとナルストリングになる。

>>221
本当に画像だけ取って来たいなら素直にWWW::Scraper使え。
それだと本文中のURLも拾うぞ。それでもいいなら構わんが。

＞素直に○○使え

最近、こういう言い回しが増えたよね。
べつにひねくれて星を睨んで「○○」を使わないワケじゃないと思うよ。
ただ「○○」という便利なものが存在するとは知らなかっただけだと思うよ。
なんかさ、「素直に○○使え」って言い回しするヤツって
女子校生が「ちょ〜〜〜やばいしぃ〜〜」とか言ってるのと同じ臭いがする。
オツムが弱そう。バカっぽいな。

>>226
素直に○○する、ってのは、（深く考えず）○○した方が物事がすんなりと運ぶ、という意味なんだが。
辞書があるなら引くといい。

（深く考えずに）すんなりと○○した方がよい、か。

>>226
素直にやばいしぃ〜〜

>>225
ほー、WWW::Scraperで画像をスクレーピングできるとは知らなかった。
Web::Scraperは知ってたけど。

>>227
韓国の辞書も北朝鮮の辞書も持ってません

>>320
画像->画像表示を示すＵＲＩ、WWW::Scraper -> Web::Scraperの間違いだな。
訂正サンクス。

>>231
「単品で迷うなら素直にランチにしなよ」とか普通に使う用途なんだが、
こんな簡単な日本語取り違えるとはゆとりのなせる業か。
＞オツムが弱そう。バカっぽいな。

>>225
空文字列じゃなく "\x00" x 文字列長 になるんじゃないかな

print length 'foo' ^ 'foo', '/', unpack 'H6', 'foo' ^ 'foo'; # 3/000000

>>214
内部的にどう扱われているかでなく、数値コンテキストに置いた時に
解釈可能な文字列かどうかを判定したいなら Scalar::Util::looks_like_number()

http://cpansearch.perl.org/src/GBARR/Scalar-List-Utils-1.21/lib/Scalar/Util/PP.pm

>>233
そのようだな。補足サンクス。Cと混同していたようだ。

>>232
で？
その”普通に使う用途”が載ってるのは、韓国の辞書？北朝鮮の辞書？

>>235
引くに引けないのはわかるけど、負け戦で頑張っても意味無いよ。
黙って日本語を勉強しなおすといい。

>>235
日本の辞書の例：
http://dic.yahoo.co.jp/dsearch?enc=UTF-8&p=%E7%B4%A0%E7%9B%B4&dtype=0&dname=0na&stype=0&pagenum=1&index=11591609974300
>>226は第2義しか頭にないらしい。
日本人なら文脈からして4義が5義と考えるのが普通。

つーか大陸のレッテル貼れば何とかなるとか思ってある辺りがもうね。

変なタイミングで中韓出してくる子は、大抵日本のお荷物。

>>237
やっぱりチョンの会社の辞書を出したか。今は日本に帰化してるが。

>>211をコピペして実行してみたけど、正常に実行できる。
問題点は他にあったんじゃ？

>>241
レスありがと
211だけど、仰るとおりperlのプロセスがループしてた
正常な状態だったら問題なく動いたわ
かなり時間を費やしてしまった……

基本的に引数は参照渡しでいいんだよね？

＞基本的に引数は参照渡しでいいんだよね？
どこでそんなの習ったんだ？

＞どこでそんなの習ったんだ？

どこかのサイトに書いてあった記憶がある
片っ端から初心者向けサイト回ってたからどことは言えないけど
オレが勘違いしてるのかな

たぶん、値のコピーを作らないように参照渡しにする、って書いてあったんだろうけど
Perlの関数呼び出しは値渡しじゃなくて変数渡しだから、わざわざリファレンスにする必要はないよ。
@_には引数がコピーされて入っているのではなく、引数そのものの別名になっている。

配列やハッシュを渡すときは必要だけど。

レスありがとん

変数を渡すときはそのままでも値がコピーされなくて
配列とかハッシュはコピーされちゃうからメモリが勿体無いと

勉強になったわ

>>247
サブルーチンの引数として配列やハッシュを複数渡すと、単一のフラットなリストとして @_ に展開されますが、エイリアスとしての動作は変わらないため値のコピーは発生しません。
>246 が言う必要性とは、「単一のフラットなリスト」にされては困る場合、すなわち引数を渡された関数内で個々の配列を峻別して処理しなければいけない場合に、参照渡しが必須になるという意味です。
ちなみにハッシュのキーに限り、キーそれ自体は変数ではないため、エイリアスの内容を変更しても元のハッシュのキーは変化しません。

>>233
>空文字列じゃなく "¥x00" x 文字列長 になるんじゃないかな

じゃあ、結局データが文字列か数値かを知りたいときはどうするのがいいんでしょうか。
今まさに1と"1"を別に扱いたい場面に直面しています。

>>249
データ構造を作り直して回避する。

>>249
いや俺に訊かれても。その二つを区別しなきゃいけない状況に陥った事なんて無いし。

sub is_num { ($_[0] ^ $_[0]) !~ /^\x00/ }
print is_num($_) ? 'num' : 'str', "\n" for 0, '0', '+1e3', +1e3;

…とでもしときゃいいんじゃない。すっごくアホ臭いけど。

はじめてCPANパッケージを作ろうとしている最中です。
質問があります。

(1) READMEの推奨される書き方やフォーマットはありますか。
(2) Changesの推奨される書き方やフォーマットはありますか。
(3) テストファイルが t/*.t のようですけど、test/*.pl にするのはよくないですか。
(4) パッケージのファイル名と、ライブラリ名が異なっていてもいいでしょうか。
　たとえば Foo というライブラリを提供するパッケージとして、
　　Foo-entry-1.0.0.tar.gz　　# 機能限定版
　　Foo-full-1.0.0.tar.gz　　　# 機能強化版
　のように用途別・目的別に別々のパッケージを用意しようとしているんですが
　こういうのはまずいでしょうか。何か問題があれば教えてください。

>>249
だから$foo ^ $fooの結果。0と0x00 x nは違うから。

正直、正規のプログラミングで1と"1"を区別したってろくなことないよ。
コアな部分をいじるようなスクリプトでない限り(Dumperみたいにね)、
Perlでそんな場面に遭遇するってことはあなたの設計がおかしい。

>>251
$foo ^ $foo eq '0' ? '数値' : '文字列'でおｋ。

>>252
とりあえずお前はこれは読んどけ。10回くらい読め。
http://perldoc.perl.org/perlnewmod.html

質問の内容からしてPAUSE使うのは100年早い気がする。
いちAuthorより。

つーかここまで言って数値と文字列の見分け方が分からないってことは
ズブの素人だろうから、「基本的にPerlにそんなことはできない」と言い切った方が良かったかな。

1と'1'を区別したい理由かコードか何か晒してみ？多分瑕疵があるから。

>>240
小学館ってチョンの会社だったの？

俺も長年Perl使ってるが、'1'と1を明確に区別する必要性に駆られた記憶がないな。
参考に、どういうケースなのか教えて欲しい。

>>256
>>249ではないが、友人が自作フレームワーク作ってて、引数の型によって
挙動を変えたいっつー場面で数値と文字列の比較の話を出してきた。
当然止めとけと言っておいた。

ドキュメント化されてない部分だからいつ仕様が変わってもおかしくないしな。

データ型を検証するようなプログラムなら、1と'1'が区別できないと困る。
たとえばPerlでJSONのバリデータを作ろうとしたけど、1と'1'が区別できなくてまじ困る。
たとえば「name は文字列である」というスキーマを定義したとして、
{ "name": "1" } # これはvalid
{ "name": 1 } # これはだめ
としないといけない。
でもPerlでは1と'1'の区別をどうすればいいのかわからないから、正しい検証ができない。

＃自分が使わないからといって、他の人も同じだとは思わないでください。お願いします。

>>258
設計が悪い。

>>258
http://search.cpan.org/~makamaka/JSON-2.15/lib/JSON.pm
読んでみ。数値も文字列で格納することがあることが分かる。

どうしても必要ならJSONを自分でパースしてチェックすればいい。
JSONのレイヤーの問題なんだからPerlのレイヤーに落としてチェック
しようとする発想が間違っている。

テストコード書いてみたよ
use JSON::Syck;
use Perl6::Say;

$foo = JSON::Syck::LoadFile('test.json');
say $foo->{foo} ^ $foo->{foo} eq '0' ? '数値' : '文字列';

--test.json--
{ foo : 1 }
--結果--
数値

--test.json--
{ foo : 0.5 }
--結果--
文字列

やっぱり発想自体が間違ってたね。
ちなみに0.5はともかくPerl/PHPやCも含む大抵の処理系では0.1は文字列にする方が正確。
↓こんなことになるからね。それがなぜか分かれば君も一歩大人。

for($i = 0; $i < 1; $i += 0.1){say "$i"}

このｽﾚが賑わう時はいきなりレベルが上がるから勉強になるわ

＞ ＃自分が使わないからといって、他の人も同じだとは思わないでください。お願いします。

これには同意するが、スクリプト言語で文字の１と数値の１を見分けたい、ってのは
やっぱ何かが間違ってる

>>263
＞ これには同意するが、スクリプト言語で文字の１と数値の１を見分けたい、ってのは
＞ やっぱ何かが間違ってる


間違ってるのはそこじゃなくてアプローチ。
東京から熱海にいくのに「飛行機でいきたいので簡単な方法を教えてください」というようなもんだ。

そりゃ羽田-静岡富士山経由してもいけるが
新幹線を使おうよ。小田急＋JRでもいい。


って話。

↓ここでD51プレート持った鉄男登場

>>263
>スクリプト言語で文字の１と数値の１を見分けたい、ってのは
>やっぱ何かが間違ってる

えーなんで？
*Perlでは*間違っているということなら同意するけど、スクリプト言語一般に広げないでほしい。
つーか、integerとstringの見分けがつかない言語が存在するなんて初めてしったわ。
PHPですらis_string()とかあるのに。

Rubyだと逆に厳格だよね

>>266
> つーか、integerとstringの見分けがつかない言語が存在するなんて初めてしったわ。

見分けがつかないんじゃなくて、区別されてないんだろ。

つ シェルスクリプト
Perlの出自を考えれば文字列と数値を区別しないのも当然といえば当然。

JSONも良いですが、symbolとstringをも区別するS式が最強ですね

Perl/Tk を使って縦書き形式のテキストビューワーを作ろうとしているのですが、
括弧や句読点、長音記号等を 90度横倒しにして表示する良い方法が無いでしょうか？

句読点は横倒しでおkじゃないぞ。

>>271
単に縦書き用フォントを使えばいい。

何でも横倒しにすりゃいいってもんじゃないぞ。句読点もそうだが、
波ダッシュ字形問題が、縦書き用フォントを横にするだけでおｋと思った
馬鹿外人のせいで起こってしまったことを忘れるな。

>>272>>273
ご指摘、ご教示ありがとうございます
読み込んだ横書きテキストデータ中の文字を
横書きで問題が出る字形だけ
縦書き字形に変換するという方法で
なんとかやってみようと思います

>>274
だから全部縦書き字形にしろって。お前なら絶対見落とすから。影響受けるのは記号だけじゃねーぞ。わかるか？
こういうのは意固地にならずに安直に安全側に転ぶように設計するのが鉄則。

何度も書くが、波ダッシュ問題は問題が出ない字形だと思ってそのまま横倒しにして起きた事故なんだから。

>>261に欠陥発見。
×say $foo->{foo} ^ $foo->{foo} eq '0' ? '数値' : '文字列';
○say +($foo->{foo} ^ $foo->{foo} eq '0') ? '数値' : '文字列';

0.1は数値と扱われるようですね。'0.1'で文字列でした。失礼しました。

また間違えた
○say +($foo->{foo} ^ $foo->{foo}) eq '0' ? '数値' : '文字列';

>>275
フォント情報の中に入ってる横書き字形／縦書き字形変換テーブルにバグがあるとしたらもう私にはどうしようもありません。

>>278
じゃUTF-8変換とか恐ろしくて使えないな。今後もShift_JISとかEUC-JPで頑張ってください。
多分バグが出る可能性よりも君がミスる可能性の方が高い。

>>260
>数値も文字列で格納することがあることが分かる。
なんでこんなことするの？

>どうしても必要ならJSONを自分でパースしてチェックすればいい。
「すればいい」じゃなくて、Perlでは「自分でパースしてチェックするしかない」だよね。

>JSONのレイヤーの問題なんだからPerlのレイヤーに落としてチェック
>しようとする発想が間違っている。
えー、数値と文字列が区別できるような言語なら何の問題もないのに。
Perlではそれができないのを、「発想が間違い」とかいってごまかさないでほしい。

>>280
> なんでこんなことするの？

魔法を使うため

JSONのバリデータの、どこで内部構造の判定が必要なのかが分からない。
果たしてそれはバリデータなのか、物体Xではないのか。

{"PI": 3.14, "unko":[1,1,2,3,5]}
といったデータを、json_validate($json_obj, {"/PI" => "float", "/unko/*" => "int"});
みたいにチェックする場合じゃないの

>>283
その処理系は知らないから分からないが、Cライクな型を調べるものとして、
1000桁の数値であってもJSONとしてはvalidなのだから、
やはり文字列で判定すべきではないのか。

>>253
>とりあえずお前はこれは読んどけ。10回くらい読め。
>http://perldoc.perl.org/perlnewmod.html

どうもです。でもそれには知りたい内容は一切かかれてませんでした。
(1)READMEを書きなさいとはありましたが、フォーマットについては言及なし。
(2)Changesについては一切言及なし。
(3)テストを書きなさい、Test::SimpleとTest::Moreがおすすめ、とはあるが、推奨するファイル名については言及なし。
(4)パッケージのファイル名についても言及なし。

10回読めと言うくらいなら、もうちょっと関連するものを紹介してくれてもいいような。

で、他のCPANパッケージをいくつかダウンロードしてみたところ、
(1)READMEファイルの書き方はバラバラ。好きな書き方でいいみたい。
(2)Changesはそれ以上にバラバラ。
(3)テストスクリプトはどのパッケージも t/*.t だった。これに従ったほうがいいみたい。
(4)パッケージ名とライブラリは厳密に一致している（みたいだけど確証はなし）。

あとバージョン名の付け方が、X.X.X ではなく X.X という形式のが非常に多いんですけど、
Perlでは「5.8.6」よりも「5.86」という形式のほうが好まれるんでしょうか。

で、module-starterは試してみたの?

>>268
＞ 見分けがつかないんじゃなくて、区別されてないんだろ。


区別せずに都合よく使えるようにしてあるんだよ。
厳格に区別するほうがよほど簡単なのに。

>>273
＞ 波ダッシュ字形問題

ってなんですか？
涙っしゅ？？

双方噛み合って無いやりとりもこのスレの華

>>287
>区別せずに都合よく使えるようにしてあるんだよ。
区別せずに使えるのは利点だとしても、区別できない（見分けがつかない）のは欠点だよな。

>>290
変数アクセス履歴を残しておけばいいわけだな

>>286
module-starterをインストールすると、READMEのフォーマットがわかるの？
わかってないのに無理して回答するのやめようぜ。初心者が混乱するだけだから。
もしわかっててその回答なら、あまりにとんちんかんすぎる。

>>286
プラグインModule-Starter-PBP入れてね。

>>285
(3)の理由はこれだ。
http://search.cpan.org/dist/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm#make_test

どうしても型の区別がしたいなら、静的型付けをエミュレートした変数を作り、そこに格納しておくという手段も用意されています。
今回の議論で望まれている動作とは異なるかもしれませんが、運が良ければ CPAN の Variable::Strongly::Typed が参考になるでしょう。

ひとつのサブルーチンで、スカラ、リスト、ハッシュを渡すと
それぞれ別の挙動をとるようには出来ますか？

それとも、単にスカラだけ引数に取るようにして
リストやハッシュは呼出側で参照にしてから
渡してもらうほうが賢明なのでしょうか？

URI モジュールのように
スカラー変数をブレスされたリファレンスのように扱えるオブジェクトは
どういう仕組みでできているのでしょうか
ソース読んだけど意味不明。。。

>>297
やっぱ use overload でいろんな演算子とかを独自に定義するんでないか

>>296
＞ それとも、単にスカラだけ引数に取るようにして
＞ リストやハッシュは呼出側で参照にしてから
＞ 渡してもらうほうが賢明なのでしょうか？


その方が確実かなあ。
もっと確実なのはサブルーチンを分けることなんだけど、なんでひとつにまとめたいのさ？

>>298
ありがとうございます
調べてみます

>>297
sub X(\$) {...}

>>290
必要でないからあえて削除されたんだよ。
型にこだわることで起こる煩わしさのほうが多いから。

それにバリデータなんてどっかで誰かがもう作ってるだろ。
あえてパールで作り直すのは自由だけど、能力不足を棚にあげて言語のせいにされてもね。
ガタガタいうなら適切と思う言語を選べばいい。
言語のせいにするやつは、言語を変えてもできないだろうから。

>>280
> えー、数値と文字列が区別できるような言語なら何の問題もないのに。

区別できないところに大きなメリットがある。

例えばPHPはPerlと同じく自動型変換を可能としたが、型は残したままにしたために
大変な混乱を大量のバグを生んだ。

で、区別ができないとどう困るのか具体的な返事がまだないのだが？俺は15年くらいPerl書いてるけど
困ったことなぞ一度もないぞ。

>>285
読んだんなら続きは責任もって答えてやる。
書いてないってことはREADMEやChangesにはフォーマットなし。自由に書いてよし。ってことだ。読み取れないのか。

パッケージとファイル名は基本的に一致すべしと考えておけ。で、名前空間の汚染は非常に嫌われるからなるべく少なく。
この辺はIRCでソース晒して相談するといい。あまり糞なパッケージに普遍的な名前をつけられると他が迷惑する。

バージョンのつけ方は好きに汁。5.10.1みたいのでもいいし、5.00503みたいのでもいい。後者の書き方をすると
普通バージョン番号とパッチ番号(005/03)とみなされる。最初は謙虚に0.0.1とか0.00001にしとけ。

>>288
ググるくらいできんのか。
http://ja.wikipedia.org/wiki/%E6%B3%A2%E3%83%80%E3%83%83%E3%82%B7%E3%83%A5#Unicode.E3.81.AB.E9.96.A2.E9.80.A3.E3.81.99.E3.82.8B.E5.95.8F.E9.A1.8C

>>290
それ欠点じゃなくてわざとだから。判定モジュールくらい簡単に作れる。上に判定方法も書いた。
型を区別するとPerlスクリプティングにダメージがあるためそんなモジュールは必要とされていないし使われていないだけ。

>>295
今ならMooseで
isa => 'Str',
isa=> 'Int',
でしょ。

>>296
同名関数の複数定義ができればいいんだが、Perlでは無理なので後者が賢明。

>>299
そりゃ同じ機能ならまとめたいだろうし、最近はそういう風潮にあると思うが。
foo({ a => 1,b => 2 })と、foo([ a => 1, b => 2])で挙動をスイッチするような実装とか最近よく見かけるぞ。

「本質的にスカラーは型を持たない」
　　-- Larry Wall, プログラミングPerl, O'Reilly, 1997, p43

Perlは内部的にスカラーを数値や文字列で扱ってるだけで、「型が区別できない」わけではない。
「数値や文字列はあっても、数値型や文字列型なんかない」のである。そこんとこ間違えないように。

Validateする目的は、(JSONを媒体とした)データを受け取ったPerlのプログラムを正常に動作させるためですよね？
それなら、データがJSONレベルで数値だったか否かは全く問題にならないのでは？
JSON表現の "1" と 1、このどちらも、Perlレベルでは文字列としてでも整数値としてでも正常に扱えるんですから

どうしてもJSONレベルでのValidateを望むのであれば、
JSONデコーダから作るしかないのですね。Ruby等、データに型が備わっている言語であれば、
確かにJSONデコーダとJSONレベルのValidatorは完全に分離可能でしょう。
でも、Perlにはそれが出来ない。仕方のないことです

JSON表現では区別できるならどのように読み取ったかを
後から判別できるような情報を残しておくことは可能。
既存のパーサーが区別しないというだけの話で
言語のせいにしたところで問題が解決するわけではない。
数値と文字列の区別がある言語であってもパーサーが区別しなければ同じこと。

>>303
>書いてないってことはREADMEやChangesにはフォーマットなし。自由に書いてよし。ってことだ。読み取れないのか。

書かれてないから質問しているのに・・・
「書いてないってことはフォーマットなし」なんて読み取れるわけないでしょ。
書かれてないことは「不明」だと判断するのが普通じゃね？どういう頭の構造してるんだよ。

そのページはCPANパッケージの作り方についてすべてを網羅しているの？
もしそのページに書かれてないことは自由に判断していいなら、テストスクリプトのファイル名だって、
パッケージのファイル名だって、自由にしてもいいことになるだろ。でも実際にはそうじゃないじゃん。
書かれてないことは「不明」なんだから、分かっている人に聞いてみて意見をあおぐのが常識的な行動じゃないか？
「書いてないから何をやってもいい」というおまえみたいな考えこそ大迷惑。


しかしまー、あれだ、自分が紹介したページが見当はずれだったことはまるで反省せず、
「読み取れないのか」と言い放つなんて、なんという傲慢ぶり。まるでdank○gai。

>>308
流れ見てると全くもって君の言うとおりだと思うけど、最後に例えでその名前を出すのはダメだろうｗ

>>284
>1000桁の数値であってもJSONとしてはvalidなのだから、
>やはり文字列で判定すべきではないのか。
なんで1000桁の数値なら文字列にしないといけないの？
1000桁だろうと、数値は数値としてもっておけばいいじゃん。
C言語じゃあるまいし、スクリプト言語なら桁数の多い数値でもふつうに扱えるようになっていてもらわないと。

>299 >304
ありがとうございます。素直にスカラを取るようにします。

JSONでの型をバリデートする話とはちょっと違うんだけどずいぶん昔に
WebアプリケーションでASINをJSONで吐いてJSからあれこれするときに
{ASIN=>$asin} みたいなので、$asin =~ /^[0-9]+$/ だったりすると
{"ASIN":1234} みたいなJSONを吐き出しやがって閉口した覚えがある。
これだけならまだいいんだが $asin =~ /^0[0-7]+$/ だと
8進数に変換されてえらいことになった。

手元で試したら再現しなかったので最近のJSON.pmは大丈夫ぽいが。

perlは変数自体に型はないけど、データには型はあるがな。見分けられないわけもないだろよ。
まぁ、perlは非常に弱いLvで変数の型を決め付けてるぞ。
文字型と判断されるか数値型と判断されるかで、挙動が変わるビット演算子がある。唯一それだけ。
これは変数の経歴を記録してる。


関係ないけど、バイナリデータ扱ったら、ヌル文字だらけでとんでもない目に遭った。
もう文字列の0は真にしてくれよ。binmodeって書いたときだけでいいから。せめて'0000'は真だろ！
あと、明示的に指定せずにほっといたら'0000'を勝手に0にすんのもやめてくれ、って思った。

>>308
質問の内容が書いてあるとは一言もいっていないが？
テストのファイル名も分からない状態のあなたはまずこれを100回読めという意味だよ。
だから100回読んだあなたにちゃんと補足で答えてるだろ。

勝手に勘違いしてファビョって礼もなしにそれか。

スクレイピングするスクリプトを作るときのサポートライブラリで、
ページの構造をスクリプト作成に便利なようにてきとーに整形して表示するというのをけっこう前に見かけて、
あーこれ便利そうだなーと思ってそのままだったんです

今探そうと思ったらぜんぜん見つかりません
何か心当たりのある方いますか？

>>314
分不相応にプライドの高い間抜けな質問者のオーラを
事前に察知して華麗に無視できなかったお前が悪い。

>>310
> スクリプト言語なら桁数の多い数値でもふつうに扱えるようになっていてもらわないと。
use bignum;を使え。

> なんで1000桁の数値なら文字列にしないといけないの？
効率が悪すぎる。

>>313
変数をそのまま真偽値判定に突っ込むな。

ディレクトリの中にあるテキストファイルから、任意の文字列を発見した時に
その文字列が含まれるファイル名を出力したいんだけど
どうすればいいの
教えてエロい人!!

>>315
どっかで見たな

>>302
>必要でないからあえて削除されたんだよ。
ということは、以前は機能として存在したということか。どのバージョンで削除されたか教えてくれ。

>型にこだわることで起こる煩わしさのほうが多いから。
そんなわけない。だったらJSもRubyもPythonも煩わしいことになるけど、そうはなってない。

>それにバリデータなんてどっかで誰かがもう作ってるだろ。
>あえてパールで作り直すのは自由だけど、能力不足を棚にあげて言語のせいにされてもね。
上のほうで出たのはJSONのバリデータなんだけど、それはすでにPerlにあるの？
ぐぐったけど見つからんぞ。せっかくPerlにないものを作ろうとしてくれてる人がいるのに
なんでこんな反応ばっかりなんだろうね。

>ガタガタいうなら適切と思う言語を選べばいい。
>言語のせいにするやつは、言語を変えてもできないだろうから。
これに関しては言語を変えたら簡単にできるこだろ。
数値と文字列の判定なんて、PHPですら簡単にできることなのに。ガタガタ言い訳カッコワルイ。

>>318
ディレクトリをマウスで右クリック
「検索(E)」
ファイルに含まれる単語

>>321
すいません、windowsを使っていないので
それはできませんorz

>>314
>質問の内容が書いてあるとは一言もいっていないが？
すげー！質問したやつに関係ないURLを紹介しておいて、文句をいわれたら『答えが書いてあるとは誰もいってない』と逆切れ！
言い訳もここまでくるといっそすがすがしいな。

>勝手に勘違いしてファビョって礼もなしにそれか。
無関係なURLを紹介しておきながら「読み取れないのか」と言って相手のせいにするようなやつのくせして、礼だけは求めるのかよ。
相変わらずのdank○gai的傲慢さだな。論理がつながってないところもdank○gaiにそっくりだ。
あれか、Perl使うとみんなdanみたいなのになるのか？danが今のようなdanになったのはPerlのせいなのか？

>>323
> あれか、Perl使うとみんなdanみたいなのになるのか？danが今のようなdanになったのはPerlのせいなのか？

うん! その通りだよ!!
逃げて!! Perlから逃げて!! 手遅れにならないうちにPerlから逃げてぇ!!

>>320
シンタックスレベルのバリデータなら既にCPANに転がってるよ
http://search.cpan.org/dist/Test-JSON/

>>260, >>313の話から考えると、
Perlのある値は、(その時点で)文字列or/and数値としてメモリ上に表現されているって情報しか持ってなくて
その値の由来が文字列か数値かなんて情報は持ってないとか？

そうだとすると、型っていうより、Perlの値は文字列と数値の二つの側面があるってイメージで
型の判別が出来る・出来ない、というより、そもそも判別する対象(文字列型・数値型)がないのかな

これであってる？教えてくださいPerl上級者さん＞＜

>>326
方向はだいたいあってるんだぜー。
もっと詳しく知りたければ Devel::Peek あたりで遊んでみることだぜー。

しらんけど　C++には Variant型ってクラスで作られた型があるな

>>327
ありがとう
sv.hにスカラー値っぽいのが定義されてたけど、どうもそうみたいですね〜
もうPerl使ってないけど、4間年も使ってたのに気付かなかったｗ 勉強になりました

>>323
何でそんなに興奮してるのか知らないけど、
続ければ続けるほど自分が皆から馬鹿にされるだけの書き込みを続けても
意味無いと思うよ。

>>318
grep -rh 検索文字列 ディレクトリ

>>320
ことか。どのバージョンで削除されたか教えてくれ。
０


＞ そんなわけない。だったらJSもRubyもPythonも煩わしいことになるけど、そうはなってない。

煩わしいよ。


＞ 上のほうで出たのはJSONのバリデータなんだけど、それはすでにPerlにあるの？


こまけーことイチイチ聞かなきゃ作れないひとには期待してない。

>>331
わかりました。ありがとうございます

数値と文字列の区別が煩わしいと思う人も居るし
文字列に数値のように振舞われるのが煩わしい人も居る

前者にとって、数字を足すのにいちいち変換するのは苦痛だし
後者にとって、"0"が偽なのは地雷でしかない

まだデュエルしてんのか。デュエリスト板でやれ

>>334
＞ 文字列に数値のように振舞われるのが煩わしい人も居る

プログラマが区別できてないなら何しても同じ。
シンタックスエラーかランタイムエラーかの違いすらない。

＞ 後者にとって、"0"が偽なのは地雷でしかない

イミフ。
歴史的にゼロを偽とするのが習慣。
シェルについては、これも歴史的理由でゼロを真とする習慣だが。

0でなく"0"な

>>284
ためしにJSON::Syckに1000桁の数字入れたら数値 : Infになりやがった。
JSON.pmは優れたことに文字列に変換して格納してくれてる。マニュアルにも
書いてあったがこれは立派な挙動。

>>313
どう考えても君が悪いと思う。ヌル文字は偽じゃないし、なにを勘違いしてるのか知らんが、
'0000'も真だ。'0'が真で'0x00'を偽にしたいんなら、アスキーコードで判定させればいいし
Perlはその手段を提供している。

> あと、明示的に指定せずにほっといたら'0000'を勝手に0にすんのもやめてくれ、って思った。

は。ソース出してみ。Perlはそんなにお行儀悪くない。

>>326
当然由来までは保存してない。だいたいその解釈であってる。

>>334
よく初心者が引っ掛かるところだが、仕様を理解すれば地雷を踏むことはなくなる。
ただし、テキストファイル末尾の改行文字なし'0'だけはどうすることもできない。

>>325
それはJSONが文法的に正しいかどうかをチェックするだけのチェッカーであってバリデータではない。
きみはスキーマバリデータが何かわかってないようだ。
文法をチェックするだけなら1と’1’の違いが問題になるわけがない。

>>339
自分が何を言ってるか、理解してる？

>>337
＞ 0でなく"0"な

文字としての比較なら
eqとかne
使えば？

比較演算子使わずに済ますのってZ80でXOR Aするような古くさいイメージ。

地雷ってのは思わぬところで踏むものだと思うよ

＞"0"が偽なのは地雷でしかない

↑コイツ・・・最高にアホだな

$unko = undef ; print "\nundef is " , ($unko ? "TRUE" : "FALSE");
$unko = 'KUSO'; print "\n'KUSO' is " , ($unko ? "TRUE" : "FALSE");
$unko = '' ; print "\n'' is " , ($unko ? "TRUE" : "FALSE");
$unko = '1'; print "\n'1' is " , ($unko ? "TRUE" : "FALSE");
$unko = '0'; print "\n'0' is " , ($unko ? "TRUE" : "FALSE");
$unko = 1 ; print "\n 1 is " , ($unko ? "TRUE" : "FALSE");
$unko = 0 ; print "\n 0 is " , ($unko ? "TRUE" : "FALSE");

ひとりだけまともな人がいる！

>>306
>Validateする目的は、(JSONを媒体とした)データを受け取ったPerlのプログラムを正常に動作させるためですよね？

残念ながら違います。そういう場合もありますが、バリデータは単に
「入力となるJSONがスキーマ定義を見たしているかどうか（あるいは
どこが間違っているか）」を調べるのが目的です。
そのJSONをPerlで使うかどうかはまた別のことです。

>それなら、データがJSONレベルで数値だったか否かは全く問題にならないのでは？
>JSON表現の "1" と 1、このどちらも、Perlレベルでは文字列としてでも整数値としてでも正常に扱えるんですから

文字列としても整数値としても扱えることが問題なのではなく、
文字列か整数値かを判定できるかどうかが問題です。（違いはわかりますよね？）

>どうしてもJSONレベルでのValidateを望むのであれば、
>JSONデコーダから作るしかないのですね。Ruby等、データに型が備わっている言語であれば、
>確かにJSONデコーダとJSONレベルのValidatorは完全に分離可能でしょう。
>でも、Perlにはそれが出来ない。仕方のないことです

妥当な結論だと思います。
が、Perl信者に言わせると「そういうことをすること自体が間違い」らしいです。
別にどんな言語だって万能じゃないのだから、うまくできないことがあったら
「それはこの言語ではうまくできない」と素直に認めればいいだけなのに、
「そんなことをするほうが間違っている」とわめく痛い信者が多い今日この頃。

>>345
そのすぐ後の >307 をスルーしてるのはわざとか
どうしてもPerl自体の問題にすり替えたい様子だが

JSONバリデータなんぞ、再帰下降法使っても3時間ありゃ書けるだろうに。
出来ないという奴は、もう、そういうことにしとけ。

ほらまた、すぐそういうこと言う。3時間以内に書いて来いって言われるぞｗ

>>345
「自分にはできないから言語が悪い」のですね。
わかります。

CPANをユーザーディレクトリで利用するために本当に必要な記述ってなに？

>>350
CPANは管理者権限で利用するのが正統

>>348
いいんじゃない言われても。馬鹿は放置するだけ。

”0” は48(0x30)で真だろ？

>>351
わかりました
諦めます

>>350
use lib 'ディレクトリ';


のこと？
質問の意図がつかめない。

>>353
いったいどこの３流学校でそんな事を習ったんだ？

東村山第三小学校だけど

中州産業大学だけど

nullとの比較は$hoge == undefでおk？

えっ？

>>359
nullは無い。
defined($hoge)
で未定義をチェック。

>>361
ありがとう。
久しぶりにperlをやったから、完全に忘れてる

あと、 == は数値比較だから気をつけろ

＞ defined($hoge)

すぐカッコつけたがるよね、最近の若者は。

あー、おれもカッコつけたがる若者だわ。
カッコつける場合とつけない場合ってなに？

なんかjavaよりめちゃくちゃ速く感じた
本当に速いかわからないけど

>>365
優先順位をはっきりさせたいとき。
好み。

昔中途半端にカッコつけてたらドツボにハマった
それ以来できる限り自然体でいようと思った

print (1 + 2) * 3, "\n";

ifの括弧内に単品で書くなら省くかな
でも複数条件組み合わせるとか、後置ifの条件に入れるときは書きたい

まあ好みだな

if (defind $i) {ほげ}
if (defind($i)) {ほげ}
ほげ if defind $i;
ほげ if defind($i);

if (i instanceof Object) ほげ;
if (i instanceof(Object)) ほげ;

if ($i >= 1 && $i <= 10) {ほげ}
if (($i >= 1) && ($i <= 10)) {ほげ}

C使いからすると括弧の無いifは我慢ならん

JSONを知らないから、外れた事言ってるかもしれないが、
perlは文字と数値を区別しないんだから、区別したいケースが
あるとしたら、外部からのデータな訳だよね？それなら外部から
入力する時に文字をエスケープすれば良いだけじゃないの？
"123"→"%31%32%33",123→"123"とかして。

>>372
JSONは通常文字入力をエスケープする仕様にはなってないので、
そういう迂回はすべきでない。


ぎゃーぎゃー騒いでたひと、しまいには
Perlで使うわけではないのにPerlでバリデーション処理したいという
訳のわからないことをいいだした。
重箱のスミつついて意味のない優越感に浸りたかったのだろう。

ほら、あれだ。
「俺の出身小学校からオリンビック選手が出たんだぜ。(俺って)スゲーだろ？」「お前んとこはしょぼいお笑いタレントしかでてないよな？俺の勝ちだな。」
ってレベルな感じ。

>>371
かなり重症なＣ言語脳ですね。
視野が狭すぎますよ。
じぶんの殻に閉じこもりすぎです。
世間は広いんですよ。
もっと多くのものを見て聞いて学ぶべきですよ！

かっこを付けてPerlの世界から弾き出され、$を付けてCの世界からも弾き出され

かっこ付けない専売特許はRubyのほうが上でしょ？

>>376
ベタPerlを自認するRubyが？

>>374
そうです！
リスプはカッコの多い言語ですって坂村先生がいってました！

>>376
おいおい。それはもしかしてマジレスなのか？

>>376
やってみれば分かると思うが、文法的にはRubyのが省略できる条件は制限されるよ
逆に、出来る場面は省略する人が多いけど

>>374
えらく風呂敷広げたなｗ

if文のかっこなしはPerl 6からだね

>>382
おいおい。それはもしかしてマジレスなのか？

>>383
これ↓ができるのはPerl 6からでしょ？

if $x < 0 {
$y = 2;
$z = 3;
}

後置の話してたんだろ

$a = 1 if $b ne "";

こんなやつでしょ？
これはC++使いだけど特に気にならなかった。
要は三項演算みたいな感じだし

>>198　今更ながらありがとう。
　結局ループになってしまったけど……
　一応、該当があれば別のサブルーチンに飛んで、無い場合は最も近い配列の場所を見つけ出すようにしたつもり
　既に配列(@hai)を取り込んであって $in　が入れたい内容。

$min = 0;
$mid = 0;
$max = $hairetu - 1; # $hai〜は取得した配列の個数

if($max != 0 and $max != -1) {
while ($min <= $max) {
$mid = int(($min+$max)/2);
$space = $max - $min;

if($space == 2)　{
last;
} elsif ($space == 3 ) {
if ($hai[$mid] >= $in) {
last;
} else {
$mid += 1;
last;
}

} else {
if ($hai[$mid] lt $in) {
$min = $mid - '1';
} elsif ($hai[$mid] gt $in){
$max = $mid + '1';
} elsif ($hai[$mid] eq $in){
&・・・・・　　　　　　　#サブルーチンへ
　　　　　　　　　 last;
　　　　　　　　　｝
　　　　　　　}
}
}

スペース消えてるけど、一応二分探索ループです……
>>198さんのような再帰はうまくつかえなかった……

久しぶりにCを書いたら、
@array = (0, 1, 2);
に相当するようなことの書き方すら判らなくなってた

perl でソースを複数のモジュールに分けて書いた場合
配布する時は汎用モジュールと同じ様に
個人的なモジュールも CPAN に登録するの？

そのプログラムを使うユーザは
プログラムの入ったディレクトリ・ツリーごと扱って
$HOME/bin とかに入れたりするの？

コンパイルすれば単体の実行ファイルになって扱い易くなるだろうけど
ソースのまま配布したいんだけど……。

つ perldoc FindBin
つ perldoc lib

use FindBin;
use lib "$FindBin::Bin/lib";
とするか
use FindBin::libs;
でいけるんですね。

取っ掛かりが出来たので OOP だとどうなるのかとか
標準的なディレクトリ構成とかを調べて見ようと思います。
ありがとう。

>>390
今CPANはネームスペースがアレなことになっているので、それだけはやめれ。手段ががいしゅつだから省く。
モジュール登録する時も、IRCなどで名前空間の妥当性とCPANに登録する必要性を審議しらもらってからにした方がいい。

>>387

ファインチューニングしてないけど、こんな感じ？


sub bsearch($$;$$){
my ($a,$t,$s,$e)=@_;
$s=$[　 if !defined $s;
$e=$#$a if !defined $e;
&subroutine if $$a[$s] == $t;
return $s if $s>=$e;

$m=floor(($s+$e)/2);
$x=bsearch($a,$t,$s,$m);
$y=bsearch($a,$t,$m+1,$e);

return ($a[$x]-$t < $a[$y]-$t) ? $x : $y;
}

>>394自己レス。

＞ &subroutine if $$a[$s
これは削除して呼び出し側でチェックしないとだめだわ。
でないと何度も呼ばれてしまう。

数値の 0 を参照させたい時はどうしたらいいのでしょう？

自己解決しました

ファイル名を取得するとき、opendirとglobどっちを使うべきなのでしょうか？

File::Slurpのread_dirオススメ

ファイルグロブなんか使ったらいかんと誰かがブログで書いてたよ

>>400
それって結局「いかん根拠なんてないじゃん」という話じゃなかったか？

.と..をいちいち除外しなくていい

古いperlは、ファイルグロブはシステムに依存してた。
（「ファイル名が長過ぎます」エラー等のperlの外の問題を切り離す事が出来ない。）
つー事で古くからの人間は「グロブなんざ使うんじゃねえ。」と言いがち。
で、それら諸先輩に影響を受けた人々が、本来の根拠と別に理由をこじつけ
「だからグロブは使いません！」って言ってる（人もいる）。

今となってはどっちでも良いんでねえの？10年以上前の常識だし、
俺はグロブ使わんけど。

>>398
opendirはファイル名のみとりたいときに便利。

globはパスごととりたいとき便利。

あー
パスは自前で管理してファイル名とくっつけて開くのが当然だと思ってたけど、
別にそんなことしなくてもいいか

＞ "There's more than one way to do it" ということで、

Perl界の重鎮、子飼弾氏は以下のように述べております。

404 Blog Not Found:perl - glob,readdir, and regexp
http://blog.livedoor.jp/dankogai/archives/51058540.html

今更ただのシャレだったなんていい出しづらい雰囲気だな

えっ・・・みんな気づいてなかったのか？

はいはい、>>407は気がついていた。偉い偉い。

関数名を動的に指定して実行することはできますか。
sub f1 { print "f1()¥n"; }
sub f2 { print "f2()¥n"; }
...
とあるときに、
my $func = "f2";
$func();
のように実行したいんですけど、できないでしょうか。
ちなみに $func() はシンタックスエラーになり、&$func() は use strict しているとエラーになりました。

>>411
my $func = \&f2;
&$func();

もしunix環境があるなら　man perlref　を見るといいよ。
サブルーチンへの参照の扱いがいろいろ書いてあるから。

>>411
その関数に限れば、

main->$func;

で呼べますが。

eval "&$func()"とかも使えるね

どうもありがとうございます。

>>412
関数名は変数で指定したいので、残念ながらその方法は使えないようです。

>>413
パッケージ名を指定すると呼び出せるのですか。なるほど。
パッケージ名が長いと面倒ですけど、この方法でやってみます。

>>415
クラスメソッドとして呼び出してるから第一引数が
自動的に追加されるが、それでもいいのか?

#!/usr/bin/perl -w
use strict;

sub f1 { "f1()\n" }
sub f2 { 'f2(', join(',', map "'$_'", @_), ")\n" }

my %dt = (
　　f1 => \&f1,
　　f2 => \&f2,
　　default => sub { 'anonymous(', join(',', map "'$_'", @_), ")\n" },
);

my($func, @arg) = @ARGV;

print main->$func(@arg);
print $dt{ exists $dt{$func} ? $func : 'default' }->(@arg);
__END__

スコープを絞って、no strict 'refs'するのが正攻法？

{
no strict 'refs';
$func->();
}

>>411
これでよければ簡単。


$func{f1}= sub { print "f1() n"; };
$func{f2}= sub { print "f2() n"; }

my $func = "f2";
$func{$func}();

Text::MicroTemplate でキャッシュを使うにはどうしたらいいでしょうか。
ドキュメントを見るかぎりにおいては、

use Text::MicroTemplate::File;
my $mt = Text::MicroTemplate::File->new(use_cache=>1);
$mt->render_file("example.mt", $arg1, $arg2);

のように、new() に use_cache=>1 を渡すだけでいいと思うのですが、
キャッシュファイルが作成されません。
またベンチマーク結果も、Template-Toolkitよりだいぶ遅いです。
Text::MicroTemplate の使い方を知っている人がいれば教えてください。

>>411
AUTOROAD じゃダメなの？

windowsXP+ActivePerl5での質問です。
windows media encoderで映像をライブ中継したいのですが
ライブ中継中だけ、ブラウザにメディアプレイヤーが表示されるようにしたいです。
サーバ側のwindows media encoderが起動されていることがPerlで確認できれば
そのようなことが可能だとおもったのですが、そのような関数はありますか？

また、もっといい方法あったら教えていただきたいです。

Windowsのコマンドプロンプトから
>scraper　http://www.google.co.jp/webhp?hl=ja

としてscraperを立ち上げられるのですが

>chcp 65001
でコマンドプロンプトの文字コードを変更すると、

>scraper　http://www.google.co.jp/webhp?hl=ja

を入力してもscraperが起動しません。
どうすればいいでしょうか？


Linuxのほうにもscraperを入れてみたのですがシェルから
$ scraper　http://www.google.co.jp/webhp?hl=ja
と入力してもscraperは起動しませんでした

CPANは
perl -MCPAN -e shell
で起動するので

perl -MScraper -e shell
でやってみたのですが駄目でした

どなたかいいやりかた教えてください。

>>422 はWeb::Scraperの話です

エラーメッセージ隠蔽者

>>422
ttp://www.google.co.jp/gwt/x?q=scraper&ct=res&oi=blended&sa=X&ei=HXCtSuCkE4b46wOr_pToAQ&cd=1&resnum=1&output=xhtml1_0&hl=ja&source=m&rd=1&guid=on&u=http%3A%2F%2Fe8y.net%2Fmag%2F013-web-scraper%2F

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

Linuxはフォルダに移動してからscraper URIで起動できました。
>cd /usr/local/bin
>scraper http://www.google.co.jp/webhp?sourceid=navclient-ff


Windowsは
C:\Perl\bin\scraper.bat
を実行すればscraperは起動します

>chcp 65001
とした時点で
>cd C:\Perl\bin\
>scraper.bat URI

結果（エラーメッセージなし）
>

となってスルーされてしまいます。
Linuxで実行できるので、Windows側はもういいかなという感じです。文字化けが厄介なので。

……

どのパッケージからでもパッケージ名を付けずに呼べるようなサブルーチンを定義できますか？
もちろん、名前空間的に危ういことは百も承知で。
用途としては、個人用のスクリプトでよく使う処理を纏めておきたいって感じです。

普通に（package宣言せずに）関数を別ファイルに定義してuseなりrequireなりすればよくね？

package宣言してもimportしちゃえば問題無いと思われ。

ま、そのうち後悔するからモジュールにしてuseするようにしとけ。
Exporter使えばそんなに難しくないし。

overloadプラグマをuseしたときに使える関数一覧はありませんか？
overload::StrValとかが何する関数か知りたいです

>>432
http://perldoc.perl.org/overload.html#Public-functions
http://perldoc.jp/docs/modules/overload-1.06/overload.pod

マニュアルを読まなくなった次の時代には、マニュアルという概念自体が失われる。

>>429-430
use、require、importと色々試しましたが最初の1回しか効かないような…？
とりあえず>>431に出ているExporterを覚えてみます。ありがとうございました。

…というか、色々探してたら
欲しい処理は既にCPANにあったと言うオチ…お騒がせしました。

>>435
凝った事しない限り大抵そのオチだから気にしなくても。

>>436
変なスレが上がってる

はじめまして、こんにちは。 Perl 4 や Perl 5.005 の時代からやってきました。
私のような古代人が最近の Perl 5.10 くらいのモダンな Perl のコードを
書けるようになるのにおすすめの書籍やドキュメントがあれば教えてください。

>>438
今風
ttp://perl-users.jp/modern_introduction_perl/

>>438
間違えたこっちだった
ttp://perl-users.jp/nowpast.html

>>438
本はモダンPerl入門かな。
ジュンク堂で一回りしてみたが、モダンPerlメインの書籍っつったら
これくらいしかなかった。良書とはいえないが悪書でもない。
5.005の国からやってきたのならお勧めする。

昨今のモダンPerl事情をすっげー主観入れて簡単にまとめると、
・とりあえずモダンPerlと言えばまずMooseありき。
・中規模以上のWebAppならMVCモデルWAF(Catalyst等)へ移行。
・DBICとかO/Rマッパ知っとけ(Schema::Loaderとか超楽)。最低限プレースホルダは使え。絶対使え。
・スケーラビリティ。AnyEvent, Coro, *::Async辺り押さえとけ。
・そろそろPerl6の準備を。Mooseの経験が生きる。来年１期にParrotが、2期にPerl6リリース予定(Dan Kogai)
・んでとにかくテスト書け。絶対書け。死んでも書け(Shawn Moore)。

すっかりJavaみたいになっちゃって

HTML::Templateがold styleでTemplate Toolkitがmodern扱いなのは遺憾に思う。

あほなSmarty野郎どもがHTMLをSmartyコードで大量汚染している現状を見ると、HTML::Template（またはHTML::Template::Pro）くらいが丁度いいよな。
機能が絞られているとはいえ不自由した事全然無いし。

>>442
ねー。まあ完全にOOへ移行したんだから仕方ないと思う。5のはやっつけなんちゃってOOだし。
bless実装だけでOO移行するとかLarryの頭の中はどーなってんだか。

>>443
誰かがそれ書いてたけどTTは重くて最近は評判悪いよ。
下手に高機能だからモデルとビューの分離に失敗しやすいし。
テンプレート重いのは致命的だし。
ClearSilverくらいがちょうどいい。

HTML::Templateは<>で囲っちゃいかんだろ。何文書かわからん。
TTは逆に意味不明な文字列扱いになってしまう。まあロジックだから
それでいいと考えることもできる。
CSは<?cs ... ?>で囲ってあるので一応お行儀が良い。

俺はPerl5のOOは好きだけどね
いつの間にかC++やJavaの、クラスを作るあれがオブジェクト指向って
ことになってるけど、本来はオブジェクトを作れればオブジェクト指向
だったわけで、その辺りを垣間見れるのがいい

>445
別にTTは[% ... %]でなくてもいいってこと、たまには思い出してあげてください…

use Template;

my $tt = Template->new({ START_TAG => '<\?(?i:tt)', END_TAG => '\?>' });

$tt->process(\*DATA, { hello => 'Hello, Template Toolkit!' });

__DATA__
<html>
<head><title>TT Sample</title></head>
<body>
<p><?tt hello ?></p>
</body>
</html>

とあるリストを返す関数があり、その中から私が欲しいのは2番目の要素だけなのですが
これをfuncA()[1]と書くとエラーになり、funcA()->[1]と書くと想定した値は返って来ません。
my @ary = funcA(); $ary[1];だと想定通りの値を得ることができました。
関数が返すのがリストで、その一部のみが欲しい場合、一旦配列に格納するしか無いのでしょうか？

…「一部」って紛らわしいかも知れない。
欲しいのはその1要素のみです。スカラーコンテキストを仮定してます。

(funcA())[1]

カッコエエ！

>>450
一部ならこんなのもオケ。
＞ (funcA())[1,3,5]


spliceも使えるかも。

>>450
行けました。ありがとうございます、こんな書き方が出来るなんて…

>>452
カッコエエw

>>447
それがオプション1つで切り替えられるなら納得いくんだがな。

>>448
> (funcA())[1]

なぜ括弧が必要か？これは曖昧さ回避のために必要な構文。曖昧さとは、例えば

funcA (1,2,3)[1];

とした場合、(1,2,3)[1]が先にパースされて

funcA 2; -> funcA(2); # そんなつもりでは・・・。

とも解釈できる点。こういった経緯からパーサはfuncA()[1]のような構文を見つけるとエラーを返す。
なので明示的に関数呼び出しを括弧で囲って、funcA()の戻り値を配列として扱うことを示す必要がある。

(funcA(), funcB())[2, 4, 6, 8]

みたいなことも可能。どうしても括弧が嫌ならリファレンスを使う。

sub funcA{ [1, 2, 3] } のようにfuncAを変更すれば、

funcA()->[1];

みたいに出来る。これは文法に曖昧さがないため括弧は不要。

>>454
解説ありがとうございます。別に括弧がイヤとかではないです。
自作関数では無いので、できれば関数の中身は変更したくなかったのです。

ある配列に 25-001-2009　の形の　日-月-年データがあって、その配列を比較してその結果で置換したいんだ
この場合24-001-2009か26-001-2009のような連続した日と比較する場合、
24〜25-001-2009、25〜26-001-2009に置き換えたい

また、それ以外の日はは25-001-2009,27-001-2009のように値をコンマを付けて後ろに付けたい。

Splice（@list,n,1,$tikan）;として、
配列から取り出して置換して元あった場所に戻したいんだけど、
ループさせるとうまく出来ない……どなたか何か教えていただけないでしょうか

なおnはループを回すごとに値が変わります。

>>456
配列をスキャンしながら、その配列自体を変更するのは、
とくにその結果で要素が増減する場合は、たいてい面倒くさい処理が必要になる。

おれはそういうときは別の作業用配列にデータを作っていって、
最後にもとの配列に書き戻すようにする。

>>456
日本語でオケ

>>456
ちょっと簡略化したけどこういう感じ？ようわからんけど

my @month = qw(11-2009 12-2009 01-2010);
my $cmp = '10-2009';
my( $m1, $y1) = split '-', $cmp;

foreach(@month){
my( $m2, $y2) = split '-', $_;
if( $m2 - $m1 == 1 and $y2 == $y1){
$_ = "$m1〜$m2-". $y1;
}
elsif( $m2 - $m1 == -1 and $y2 == $y1){
$_ = "$m2〜$m1-". $y1;
}
else{
$_ = "$_, $cmp";
}
}

年とか違うけど１日違いだよってのには対応しなくていいんだよな？

こんなんなった。複数日は対応したが月またぎは知らんぞ。_で区切ってevalさせてるとこがミソだ。

#!/usr/bin/perl
my @date = qw( 23-001-2009 25-001-2009 26-001-2009 27-001-2009 29-001-2009 30-001-2009 01-002-2009 03-002-2009 30-002-2009 31-002-2009 );
my (@copy, @stack, $mark) = @date;

foreach(@copy){ $_ = join("_", reverse split('-')) }
@copy = sort @copy;

while(1){
　　my ($cur, $nex) = splice @copy, 0, 2;

　　print @stack ? span(@stack) : $cur and last unless($nex);

　　if(eval($nex) - eval($cur) == 1 ){
　　　　@stack = @stack ? ($stack[0], $nex) : ($cur, $nex);
　　}else{
　　　　if(@stack){print span(@stack); @stack = (); $mark = 1}
　　　　print "$cur, " unless $mark;
　　　　$mark = 0;
　　}
　　unshift(@copy, $nex);
}
sub span{
　　my @stack = @_;
　　join('-', substr($stack[0], -2) . '〜' . substr($stack[1], -2), (split('_', $stack[0]))[1, 0]) . ", ";
}

結果：
2009_001_23, 25〜27-001-2009, 29〜30-001-2009, 2009_002_01, 2009_002_03, 30〜31-002-2009,

あー！何もせずにprint $curしてるとこが何箇所かあるからフォーマットがまちまちになっちまった。
まあsplitしてreverseしてjoinするだけだからそこんとこはなんとかしてくれ。

ソート済み前提版
#!/usr/bin/perl
my @date = qw( 23-001-2009 25-001-2009 26-001-2009 28-001-2009 29-001-2009 30-001-2009 01-002-2009 03-002-2009 30-002-2009 31-002-2009 );

my (@copy, @stack, $mark) = @date;

sub day{substr($_[0], 0, 2)}
sub span{join('-', day($_[0]).'〜'.day($_[1]), (substr($_[0], 4))) . ", "}

while(1){
　　my ($cur, $nex) = splice @copy, 0, 2;

　　print @stack ? span(@stack) : $cur and last unless($nex);

　　if(day($nex) - day($cur) == 1 ){
　　　　@stack = @stack ? ($stack[0], $nex) : ($cur, $nex);
　　}else{
　　　　if(@stack){
　　　　　　print span(@stack);
　　　　　　@stack = (); $mark = 1;
　　　　}
　　　　print "$cur, " unless $mark;
　　　　$mark = 0;
　　}
　　unshift(@copy, $nex);
}

DateTimeで処理する方がいいんじゃないかな？
@dts作る時にmap使いたかったんだけど、あり得ない日付の時のこと考えるとundef入っちゃうからできなかった
use strict; use warnings;
use utf8;
use DateTime;
use DateTime::Format::Strptime;

my @date = qw( 23-001-2009 25-001-2009 26-001-2009 28-001-2009 29-001-2009 30-001-2009 01-002-2009 03-002-2010 30-002-2010 31-002-2010 );
my $pattern = '%d-0%m-%Y';
my $fmt = DateTime::Format::Strptime->new( pattern => $pattern, time_zone => 'Asia/Tokyo', );
my @dts;
for (@date) {
　　my $dt = $fmt->parse_datetime($_);
　　push @dts, $dt if $dt;
}
my @res_dts;
my $pre_dt;
for my $i (0 .. $#dts) {
　　my $dt = $dts[$i];

　　if ($i != 0) {
　　　　my $duration = $dt - $pre_dt;
　　　　if ( ($duration->delta_days == 1) && ($duration->delta_months == 0) ) {
　　　　　　push @res_dts, $pre_dt->day . "〜" . $dt->strftime($pattern);
　　　　}
　　　　else {
　　　　　　push @res_dts, $pre_dt->strftime($pattern) . "," . $dt->strftime($pattern);
　　　　}
　　}
　　$pre_dt = $dt;
}
warn join "\n", @res_dts;

456だけど条件一部抜けてた……折角書いて頂いたのに申し訳ないです

〜で繋ぐのは年月同じ、日1日ずれのみ、他は全部，で繋いで、年月日全部同じは置換しない
20〜23のような時に、21や22と比較する場合は置換しない

置換する方の配列で置換される要素はループ1回につき1つだけです
どれとどれが比較されるかはループ1回ごとに別に作成した条件式で決定されています




ここの処理で一週間詰まってるんです……どうかお願い致します

>>464
お前、もうこっち来い

Perlでリクに答えるスクリプトを作るスレ
http://pc12.2ch.net/test/read.cgi/tech/1086143976/

で、日本語がよくわからないから
入力：ほげほげ
出力：ほげほげ
って感じで具体例のパターン書いて

>>456
こうか？


ある配列に 25-001-2009　の形の　日-月-年データがある。
その配列データに対して以下の処理をし、結果をもとの配列にいれたい。
データが24-001-2009、25-001-2009のように2連続の日の場合は、
24〜25-001-2009に置き換えたい。
それ以外は、25-001-2009,27-001-2009のように月毎にまとめ、値をコンマを付けて後ろに付けたい。


あと2,3条件があるだろ？
すくなくともデータが

24-001-2009
25-001-2009
26-001-2009
28-001-2009

という場合はどうしたいかとか決まらないと実装できない。

perlでcronみたいなスケジューリングを実現するモジュールってありますか？

crontab につらつらとファイル名を描けばよいのではないかと思うのであります。

>>468
バッチジョブを管理したいのですが、
ジョブが結構増えてきてcrontabをこれ以上汚したくないなと。
YAMLとかでジョブ管理出来たら綺麗かなーと思ったのです…。

Schedule::Cron

>>464
25-001-2009 26-001-2009 27-001-2009 28-001-2009 29-001-2009 30-001-2009 01-002-2009
ときた場合どうなる？値は配列にだけ入ってるんだよな。ソートはされてるのか？

> 置換する方の配列で置換される要素はループ1回につき1つだけです
> どれとどれが比較されるかはループ1回ごとに別に作成した条件式で決定されています

ここ日本語に翻訳してくれ。それかソース晒してくれ。
俺かなり頑張ったんだが違いますごめんなさいだとかなり凹む。

>>463
こんなんなるぞ。
23-001-2009,25-001-2009
25〜26-001-2009
26-001-2009,28-001-2009
28〜29-001-2009
29〜30-001-2009

俺がunshiftしたりごにょごにょしてるのはこれ防ぐため。

早起きニートでエスパーな俺が説明してみる。

例えば以下のような書式の日付を集めた配列があるとする。

@dates = qw(
24-001-2009
25-001-2009
26-001-2009
28-001-2009
);

ある条件によって、追加する要素と追加される要素が1つずつ選ばれる。
例えば、

追加する要素：$dates[1] #=>25-001-2009
追加される要素：$dates[2] #=>26-001-2009

とすると、この場合、日付が1日違いなので、追加される要素は、

$dates[2] = 25〜26-001-2009

のように置換する。置換をするのは追加される要素だけである。
この結果、元の配列を以下となる。

@dates = qw(
24-001-2009
25-001-2009
25〜26-001-2009
28-001-2009
);

この状態から、また追加する要素と追加される要素が1つずつ選ばれる。
例えば、

追加する要素：$dates[0] #=>24-001-2009
追加される要素：$dates[3] #=>28-001-2009

が選ばれたとすると、日付が1日違いでないので、「,」でくっつけたので置換する。
単純に「28-001-2009,24-001-2009」と後ろにくっつけるのか、それとも、昇順にして
「24-001-2009,28-001-2009」とするのかは定かでないが、多分、昇順にするのであろう。

結果、元の配列は以下となる。

@dates = qw(
24-001-2009
25-001-2009
25〜26-001-2009
24-001-2009,28-001-2009
);

次は、

追加する要素：$dates[1] #=>25-001-2009
追加される要素：$dates[3] #=>24-001-2009,28-001-2009

結果、

@dates = qw(
24-001-2009
25-001-2009
25〜26-001-2009
24〜25-001-2009,28-001-2009
);

次は、

追加する要素：$dates[0] #=>24-001-2009
追加される要素：$dates[3] #=>24〜25-001-2009,28-001-2009

この場合、「$dates[3] #=>24〜25-001-2009,28-001-2009」に「$dates[0] #=>24-001-2009」
が含まれているので何もしない。

質問。
use Test::Simple tests => 3;
のように、「use パッケージ名」のあとに引数を指定できるようにしたいのですが、
useで指定した引数ってどうやって参照すればいいのでしょか。
（@_や@ARGVを試してみましたが、違うようです。）
よろしくお願いします。

BEGIN { require Test::Simple; import Test::Simple tests => 3; }

とだいたい同じこと

>>477
仕組みを聞いているんじゃなくて、方法を聞いているんですけど。

じゃあ質問を変えます。importの引数はどうやって参照できますか。
たとえば「import Test::Simple tests=>3」のようにあったとして、Test::Simpleパッケージから「tests=>3」を参照する方法を教えてください。

ググったところ、「importの引数は@EXPORTや@EXPORT_OKに指定したものでインポートしたいものを指定する役割をもつ」と
いうような説明があったのですが、この説明ではimportの引数を参照する方法がわかりませんでした。

ふくしの大学？に通ってるんですけど！
package Unko;
sub import {
for(;;) { print @_; }
}
return 1;

use Unko unko => "unko";

>>478
import呼ばれるんだからimport定義すればいいだけだろ。頭悪いの？

Test::Simple->import('tests', 3);
イメージではこっちが分かりやすいかも。

>>475
24〜25-001-2009,28-001-2009に
27-001-2009が来たら、
24〜25-001-2009,27〜28-001-2009になるのか？メンドクサイなあ。同じく
23-001-2009が来たら、
23〜25-001-2009,28-001-2009になるの？
26-001-2009,28-001-2009に
27-001-2009がきたらどーすんのよ。
ルールが複雑すぎて正規化できないし、
ちょっとここでどうにかするproblemじゃない気がするんだが。
どっかに発注した方が早い気がする。って受注してるから困ってるんだよなｗｗ

>>478
> 仕組みを聞いているんじゃなくて、方法を聞いているんですけど。

普通の人ならこの一言で一発で教えてやる気なくなるわな。
なんで誰もちゃんと教えてくれないかわかってないんだろ。
１つ勉強になったな。

関数の引数を参照する方法が分からないレベルなら、
Exporterはもうちょっと勉強してからいじった方がいいと思うな。

>>470
ありがとう。試してみます。

>>478

Test/Simple.pmにimport関数を作る。

-- Test/Simple.pm --
sub import {
print @_;
goto &{Test::Builder::Module::import}; #=>本来呼ばれるべきimport関数に飛ばす
}

@_の第1引数にパッケージ名（Test::Simple）が入っており、それ以降に use で指定した引数
が入っている。

>>484
CPANモジュールの中いじっちゃダメだろｗ

>>485
そうだね。
ごめん、ごめん。

>>484でなく、以下を追加する。

BEGIN {
package Test::Simple;
sub import {
print "@_";
goto &{Test::Builder::Module::import};

}
}

>>479
ありがとうございます！
import って関数なんですか？Perlの予約語だと思ってました。
477で
>import Test::Simple tests => 3
のような書き方をしているんですけど、Test::Simpleのあとにコンマがない呼び出し方って、
予約語じゃなくてもできるんですか。Perlすごい。
あと、importを自分で定義すると use Exporter 'import' とバッティングしてしまうようなんですけど、
これは仕方ないことでしょうか。

>>480
頭は悪いです。すみません。
importは予約語だと思ってたので、再定義するという発想はありませんでした。
Perlは特殊変数が多いから、useの引数もきっと特別な変数かなんかで参照できるのだろうと思ってました。
やっぱりPerlは頭がいい人のための言語ですね。低能には難しすぎる。

>>486
数字のとこだけなら、1行で取り出せるよ。
ずっとソース読んでたｗ

>>487
> あとにコンマがない呼び出し方って、 予約語じゃなくてもできるんですか。
sub hello{print @_}　hello 'a';
最初から何もしなくても出来るよ。

>バッティング
それをオーバーライドという。オブジェクト志向における正しい挙動。
仕方ないんじゃなくてそれで合ってる。

> useの引数もきっと特別な変数かなんかで参照できるのだろうと思ってました。
なかなかいい勘をしていらっしゃる。必ず参照できるとは限らないけどね。この場合なら数字んとこは取れるよ。

指向な。

オブジェクト歯垢

>>488
数字はどこかのパッケージ変数に入ってるの？

ハッシュのリファレンスがあるとき、
そのハッシュの浅いコピーのリファレンスを得る良い方法があれば教えてください。

my $foo = {};
my $bar = {%{$foo}};

とかいうのは思い付いたんですが、
もっとシンプルかつ明解で効率良くモダンでよりスマートでスタイリッシュな方法が
あればお願いします。

>>491
ourな変数（オブジェクト）に入ってる。ソース読めば分かる。

>>492
日本語がよくわかんないです。

>>493
すみません、 >>492 の後半は、
「ほかにもっとマシな、あるいは俺ならこうする、という方法があれば教えてください」
ということで、ひとつよろしくお願いします。

>>494
いや、だから何をしたいのか分からないよその文章じゃ。
例もデリファレンスしてまたリファレンス作ってるだけだし
なにがやりたいんだか不明。

>ハッシュの浅いコピーのリファレンス
意味不明

>>464
>>460-462さんのを参考に、>>473-475さんの仕様をもとに作成した。

use Data::Dumper;

my @dates = qw( 24-001-2009 25-001-2009 26-001-2009 28-001-2009 );

print Dumper \@dates;

for (0..10) {
my ($index_add, $index_added) = (int rand @dates, int rand @dates);
my ($date_add, $date_added) = ($dates[$index_add], $dates[$index_added]);

print "\n[$index_add：$date_add] => [$index_added：$date_added]\n";
splice @dates, $index_added, 1, form_date( breakup_date($date_add), breakup_date($date_added) );
print Dumper \@dates;
}

sub breakup_date {
my @dates;

for my $date ( split /,/, $_[0] ) {
if ( $date =~ /^(\d+)〜(\d+)(.*)/ ) {
push @dates, map{ $_ . $3 } $1..$2;
} else {
push @dates, $date;
}
}

@dates;
}

>>497の続き

sub form_date {
my (@formatted_dates, @stack);
my @sorted_dates = map { $_->[0] }
sort { $a->[1] cmp $b->[1] }
map { [$_, join '-', reverse split /-/] } @_;

for my $i (0..$#sorted_dates) {
my ($cur, $next) = ($sorted_dates[$i], $sorted_dates[$i+1]);
next if $next and $cur eq $next;

if ( $next and eval "($next) - ($cur)" == 1 ) {
@stack = @stack ? ($stack[0], $next) : ($cur, $next);
} else {
if (@stack) {
$stack[0] =~ s/(?<=^\d{2})/'〜' . substr($stack[1], 0, 2)/e;
push @formatted_dates, $stack[0];
@stack = ();
} else {
push @formatted_dates, $cur;
}
}
}

join ',', @formatted_dates;
}

>>484,486
ありがとうございます！import関数を定義して、その中でgotoを使えばいいんですね。
gotoとか知らなかったので、import関数を定義しただけでは立ち往生してしまうところでした。

>>488
>sub hello{print @_}　hello 'a';
>最初から何もしなくても出来るよ。
関数名と最初の引数との間のコンマは省略できるのは知っています。
そうじゃなくて、import test::Simple tests=>3 のような書き方だと、第1引数と第2引数の間の
コンマも省略されていて、これは「何もしなくても出来る」ことはないからimportは予約語だと思ってました。

> それをオーバーライドという。オブジェクト志向における正しい挙動。
この場合はオーバーライドはまったく関係ないと思います。理由は継承関係を設定してないからです。
use Exporter 'import'; としただけでは継承関係は設定されませんよね？だからオブジェクト指向でいうオーバーライドとは関係ないんじゃないでしょうか。

>>482
>普通の人ならこの一言で一発で教えてやる気なくなるわな。
>なんで誰もちゃんと教えてくれないかわかってないんだろ。
>１つ勉強になったな。
ちゃんと教えてくれる親切な人は他にいたので助かりました。
あとimportが予約語じゃないというのはひとつ勉強になりました。

スタックのような動作をする（もちろんそれ以外にも色々と機能がある）オブジェクトを作ろうとして
標準の関数にならい、pushとpopを定義しました。
その中で標準のpushとpopを使うために、main::pushやmain::popと書いたのですが
Undefined method &main::push などと言われてしまいます。
どのように書けば良いのでしょうか？

>>499
これを実行すればわかるんじゃないかな？

package foo;
sub func { print "@_\n" }

func foo 1, 2;
foo->func(1, 2);

>>499
こうすれば引数の内容をmainでも参照できるようになるよ。

use strict;
use warnings;

BEGIN {
package Test::Simple;
sub import {
{
no strict 'refs';
@{caller().'::test_args'} = @_[1..$#_];
}
goto &{Test::Builder::Module::import};
}
}

use Test::Simple tests => 3;

our @test_args;
print "args = @test_args\n";

>500
（ユーザ定義でない）組み込み関数を使うならCORE::popとかCORE::pushとか。

>>495
うーん、コピーしたハッシュのデータのリファレンスを得たいのです。

> 例もデリファレンスしてまたリファレンス作ってるだけだし
いや、そうはなってないと思うんですが。

my $foo = {};
printf "%s %s %s\n", $foo, \%{$foo}, {%{$foo}};
# => HASH(0x8103a48) HASH(0x8103a48) HASH(0x81038e0)

$foo をデリファレンスしてまたリファレンス作った \%{$foo} は $foo と同一オブジェクトですが、
{%{$foo}} の方は $foo とは異なるオブジェクトになっていると思います。
後者のように、値がコピーされた別のオブジェクトを得たいです。

>>496
浅いコピー (shallow copy) って普通に言わないですかね？

> my $foo = {};
> my $bar = {%{$foo}};
> もっとシンプルかつ明解で効率良くモダンでよりスマートでスタイリッシュな方法が

いや、それで十分「シンプルかつ明解で効率良くモダンでよりスマートでスタイリッシュな方法」なんだが。
敢えて添削するなら括弧を１組み省略できる。

my $bar = {%{$foo}};
　↓
my $bar = {%$foo};

この辺りのリファレンス／デリファレンス、複合データ構造に関しては、オライリーの「プログラミングPerl」を読めば最低限の基礎情報は書いている。
さらに深く知りたければ「実用Perlプログラミング第１版」を読めばいいよ・・・と言いたいが、日本のお馬鹿な書店は「第１版」とは別物の「第２版」（第１版の追補版であって、改訂版ではない）しか置いてないから残念でした。
まー図書館とかを探してくれ。

>>499
import Test::Simple test => 3 は print FH 'hoge' と同じ構文
ちなみに new Hoge::Huga 'foo' と書けるけど、newはただの関数名だったりするのと同じ

それから別に @ISA にパッケージ名をぶちこむのだけが継承でないし、new するだけがオブジェクト指向ではない
もっと概念的なものだ

あと一言いわせてもらうと余計な一言が多い

>>499
いや、そのスキルでgotoとか覚えるなよ。
一回脳から消せ。ろくなことがない。

> これは「何もしなくても出来る」ことはないから
package Bob;
sub run{print "Bob ran $_[1].\n"}
package main;
run Bob 'away'; # ここ
--
Bob ran away.

どこが？

> ちゃんと教えてくれる親切な人は他にいたので助かりました。
CPANモジュールの名前空間いじっていじるのが「ちゃんと」なのかｗ
正直君のレベルでああいうハックを覚えるとろくなことがない。忘れろ。
もちっとマシな解答は別にあるし誰も答えてくれてないようだな。

> この場合はオーバーライドはまったく関係ないと思います。理由は継承関係を設定してないからです。
えっと、何のこと？ほんと一言多い人だな。
--- Test::Simple --
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
---Test::Builder::Module;
require Exporter;
our @ISA = qw(Exporter);

>>502
おまいらいい加減素人にgoto教えるの止めろ。

goto LABEL ならともかく goto &SUB; くらい許してやれよ

>>503
出来ました。COREというパッケージがデフォルトで読まれているのですね。
手元のラクダをよく読んだらCORE擬似パッケージと書いてありました…読み込みが足りなかったようです。
精進します、ありがとうございました。

>>502
ああ、同じ人か。普通のことのように書くなよ。素人相手にCPANモジュールの名前空間汚す
ようなdirtyなハック教えて「できるようになるよ。 」じゃねーだろ。どんだけ無邪気だよ。
大規模開発の末端プログラマだったらどうすんだ？相手のレベルみて話しろ。他が迷惑するだろ。
Test::Simpleの挙動が変 -> Test::Simpleを再インストール -> 状況変わらず　の不条理ループ開始。

たしかに 初期段階でgotoに触れてしまうと、全部そっちに逃げる思考になりがちだかんな

>>508
極力避けるべき方法だし、この人はsubとgotoの違いほとんど分かってないだろ。
そんな人に教えちゃダメだ。多分ここがなぜsubじゃなくgotoか説明できないと思われ。

>>511
だろ？俺はこの15年でgotoなんかプロダクトに使ったことなんかないぞ。
汚いことするからgotoが出てくる。その辺は分かるだろ？
例えばCatalystは61ファイル中1回もgoto使ってないぞ。
CPANを見渡すと、スピードがネックになるようなものや、コアな部分に触れるようなモジュールにgotoが多い。
でもYAMLで1回、Mooseで8回だ。素人が使うもんじゃないことくらいわかるはず。

>>478
> たとえば「import Test::Simple tests=>3」のようにあったとして、Test::Simpleパッケージから「tests=>3」を参照する方法を教えてください。

この時点で「普通はできません」と答えなかった住人の責任でもあるな。俺も含め。

open(NEWFILE, ">shinki.html") ;

で自動的にshinki.htmlを作ってに書き込むようにしてるんだけど
下に自動的にフォルダも作って test/shinki.html
に書き込むようにするにはどう書けばいいですか？

CPANモジュールの名前空間を汚さないエレガントな方法が知りたい

>>515
名前空間は汚さないが残念ながらエレガントな方法はない。また素人が真似するといかんので、
ヒントはTest::Builderが大事なものをourしちゃってるとこだ。ソース見れば一発で分かる。

正直相手が素人だと分かりきってるのに>>502のような方法を提示する人の気が知れん。
○○に刃物って言葉があるだろ。この素人さん、今後もつまらんことで他人のモジュール
の内臓いじくりまわすに100ペリカ。困ったらgotoもすぐ発動するだろうな。

立派な正義感(笑)がいるときいて

>>517
正解が出ないからって拗ねるな。

しつもん：　所持金０ですけど、新幹線で東京から博多まで行けますか？

かいとう：　改札口を突破して猛ダッシュしろ

まいらのやってることは、こんなレベル

>>505
バカなのはオライリーだろ。
中身が全然違う本を同じ題名で出す意味がない。

>>514
おれはそういうとき自力でフォルダを作ってるけど。他に方法あるのかな

my $filepath = "test/shinki.html";
use File::Path;
use File::Basename;
File::Path::make_path( File::Basename::dirname($filepath) );
open(NEWFILE, ">$filepath");

Activeperl5.10.1,PAR-0.994,PAR-Packer-0.991を使用して
exeファイルを作成した際
元のスクリプトにuse Encode;を使用していると
exeファイル実行時に

プロシージャエントリポイントPerl_croak_xs_usageがダイナミックリンクライブラリperl510.dl
から見つかりませんでした

とerrorが出るのですが解決方法（エラー文自体理解できてませんが）はありますでしょうか？

>>519
はげどー。

>>521
それが模範回答じゃないかなぁ。まあ他にモジュールがあるかも知れんが。
それか
$filepath ~= s#([^/]+)$##;
$filename = $1;
system("mkdir -p $filepath");

って良い子は真似すんなよ。

あとはPath::Class使う手もあるか

use Path::Class::Dir;
my $d = Path::Class::Dir->new('test', 'foo', 'bar');
$d->mkpath;
my $f = $d->file('shinki.html');
my $fh = $f->openw;

>>4を見て思ったのですが、

use utf8;
use open IO => "encoding(cp932)";
use open ":std";
use Encode;

でもいいんですかね？

>>523
＞ それか
＞ system("mkdir -p $filepath");


mkdir $filepath;

>526
それだと深いディレクトリ作れないだろ。./test/が存在しないときに./test/test2/test3/とか作れない。

なんのためにpオプション付けてると思ってんだよ

とても恥ずかしい

>>525
一箇所コロンが抜けてる……けど、無くても動くっぽい？
use open IO => ":encoding(cp932)";

ファイルのエンコーディング設定も入るから、そこは注意。

system関数を使うのと、system関数の引数をWindowsコマンドプロンプトで直接実行したものの比較

system('mkdir -p a/b/c/d'); #Active Perl o / コマンドプロンプト x
system('mkdir -p a\z\x\y'); #Active Perl o / コマンドプロンプト o
system('mkdir b/b/c/d'); #Active Perl x / コマンドプロンプト x
system('mkdir b\z\x\y'); #Active Perl x / コマンドプロンプト o

x -- エラー
o -- 成功

sysytem 関数とコマンドプロンプトでは、若干の違いがあるんだね。

>>531
Windowsでmkdirに-pオプション付けると
"-p"って名前のフォルダが作られない？
うちでは作られた

>>530
コロンが抜けていたのは自分のタイポですね。
すみません。

open.pmを見てみると、

$layer =~ s/^://;

と、コロンを消してから処理をしているように見えます。
結局、コロンはあってもなくてもいいのかな？

>>533
付いてなくても動くかも知れないけど、PODでは付けることになってるし、
明文化されてない部分だから、付けといた方がいいと思う。

>>527-529
＞ >526
＞ それだと深いディレクトリ作れないだろ。./test/が存在しないときに./test/test2/test3/とか作れない。

＞ $filepath ~= s#([^/]+)$##;
＞ $filename = $1;
＞ system("mkdir -p $filepath");


どーなんだろー？

>>>535
言う前にやってみろよｗ
UN*X標準のmkdirはデフォルトでは1つのディレクトリしか作れないから。

Windows 2000 や XP だと中間ディレクトリが作られるね。
外部コマンドを利用する場合は特に、利用している OS などの環境を明確にしないと、
延々と話が噛み合わないで平行線を辿ると思う。

しかし、 >>531 を見ると、まあ言われてみれば納得できる挙動ではあるんだけど、
ActivePerl にはかなり黒魔術が入ってそうだねえ。

てか、折角 Perl はそういう OS の差異を吸収する層たり得るソフトウェアなんだから、
Perl でできることは極力 Perl でやるべきかと。

>>534
そうですね

Perl TkのTextウィジェットを使って
文字列の入出力をする方法はどのようにするのでしょうか？
Entryウィジェットを使ったサンプルはWeb上から見つけたのですが、
Textウィジェットを用いたものはないもので。。。

>>539
$text->delete('1.0', 'end'); # テキスト全て削除
$text->insert('end', $string); # 終わりから文字挿入
$string = $text->get('1.0', 'end'); # テキスト全て取得

ttp://www.shido.info/py/tkinter12.html
http://search.cpan.org/~srezic/Tk-804.028/pod/Text.pod
Indexは #INDICES 辺りを参照で。

すごい昔のレスを掘り返して何なんですが、以下レスの回答がありませんでした。
スマートな書き方ってないんですかね？


Perlについての質問箱 12箱目
http://pc5.2ch.net/test/read.cgi/tech/1094579428/941

941 名前：デフォルトの名無しさん[] 投稿日：04/10/14 18:57:50
条件によって、関数に渡す引数の数が違う場合
たとえば

my $obj;
if (/condition/) {
　　$obj = Class->new(ARG_0 => "a", ARG_1 => "b", ARG_2 => "c",);
}
else {
　　$obj = Class->new(ARG_0 => "a", ARG_1 => "b",);
}
という具合の書き方をいつもしているのですが
なんだか重複した記述が多いし、もうちょっとスマートな書き方がないものかと
いつもうんざりしています。
こういう場合の定石パターンってなにかあるのでしょうか。
皆さんどうコーディングされてます？

my %args = (ARG_0 => 'a', ARG_1 => 'b');
$args{ARG_2} = 'c' if CONDITION;
my $obj = Klass->new(%args);

my $obj = Class->new(ARG_0 => "a", ARG_1 => "b", /condition/ ? ARG_2 => "c" : undef => undef);
って通るのかしら？

>>541
重複しないことが必ずしもスマートとは限らない。
現状のままの方が読みやすい気がする。

>>542
若造がいきがってムチャしてる、って感じがするな。
後々のことを考えてるのかな。
その場かぎりの使い捨てコードならソレでもいいかもしれないけど。

my @params = ( ARG_0 => "a", ARG_1 => "b", ARG_2 => "c" );
my $obj = Class->new( /condition/ ? @params[0..3] : @params[0..5] );

>>546
もういいからやめろ

>>541
本当にARG_2がoption的な要素なら、
my %opt = (
　ARG_2 => 'c'
) if /condition/;
my $obj = Class->new(
　ARG_0 => "a",
　ARG_1 => "b",
　%opt,
);
って書き方するかなぁ。
そうじゃないなら>>544の言う通り、そのままの方がメンテしやすい

まじキチ…ユダヤが人工地震を起こすぞ

【緊急情報カクサンよろしく】

ついに来ました。

大きい動きです。250nT超えてきました。ほぼ間違いありません。もう一度言います。

友人、知人、親類縁者、あらゆるつながりを駆使して巨大地震がくることを教えて下さい。

四川地震より大きいのが来る可能性があります。
http://g★olde★ntam★atama.b★lo★g84.fc2.c★om/

★★★★★危険度ＭＡＸ★★★★★
★★★★★★★★★★★★★★★★

★千葉、静岡、東京、関東で大地震が起きる可能性が非常に高くなっています★★★
★千葉、静岡、東京、関東で大地震が起きる可能性が非常に高くなっています★★★
★千葉、静岡、東京、関東で大地震が起きる可能性が非常に高くなっています★★★
★千葉、静岡、東京、関東で大地震が起きる可能性が非常に高くなっています★★★

★★★★★★★★★★★★★★★★
★★★★★危険度ＭＡＸ★★★★★

警告！連休中の２１、２２、２３日が危ない！かも２
http://live24.2ch.net/test/read.cgi/eq/1★253494015/
【大気イオン】e-PISCO Part11【また延長】
http://live24.2ch.net/test/read.cgi/eq/1★252991726/

本当に地震が来たら、犯人は特権階級全員だということ２

1200件もhitするのか。。。
ひとまずRock54してくるです。。。

コードゴルフ用の問題みたいだね

>>541
もし毎回同じパラメータ渡してるなら、サブルーチンの受け取るパラメータを直す。
それが難しければ、ラッパーをかます。
ベタウチはバグの元。
プログラム書法にも書かれてる。
「汚れ仕事は機械にやらせよう」

ただし、同書は冒頭で戒めてるので注意。
「わかりやすく書こう。うますぎるプログラムはいけない」
根拠は可読性とメンテナンス性。

こっち↓

my $data = do{local $/; <$fh>};

と、こっち↓

read $fh, my $data, -s $fh;

では、どちらを使うのがいいのでしょうか？

>>553
どっちもだめ。
【理由】意図不明

どっちでもいいんじゃね
効率はやや上のほうがよさそうだけど。下はファイルサイズ調べに行かなきゃならんわけだし

>>554
これを意図不明って、絶望的にPerlのスキルが足りないんじゃね？

tp://www1.axfc.net/uploader/Sc/so/28995.zip&key=vip
ネットの勉強がてらに作ったモノです
友人に見せたら汚いコードだと言われました
どこあたりがおかしいのでしょうか

>>555
ベンチマークを取ってみた。
Windows XP SP2、ActivePerl 5.8.8
_______________________________________________________________

use Benchmark qw(:all);

my $file = 'jcode.pl'; # 21,876bytes、785行

my $r = timethese( 10000,
{
'local $/' => sub {
open my $fh, $file or die $!;
my $data = do { local $/; <$fh> };
},
'read' => sub {
open my $fh, $file or die $!;
read $fh, my $data, -s $fh;
}
});

cmpthese $r;
____________________________________________________________________________

Benchmark: timing 10000 iterations of local $/, read...
　　local $/: 4 wallclock secs ( 2.81 usr + 1.09 sys = 3.91 CPU) @ 2559.51/s (n=10000)
　　　　read: 3 wallclock secs ( 1.77 usr + 1.06 sys = 2.83 CPU) @ 3534.82/s (n=10000)

　　　　　　Rate　　　local $/　　read
local $/ 　2560/s　　　　--　　　-28%
read　　　 3535/s　　　 38% 　　　 --

>>557
こんなもんじゃないの。
少なくとも昔の2chのコードより100倍まし。

へぇー。 -s & readの方がはやかったか〜
まぁ、言われてみれば
読み込む量があらかじめわかってりゃそりゃバッファの確保も楽(っていうか一発？)だしそりゃ速いわな

ついでに、sysreadもベンチを取ってみた。
条件は、>>558と同じ。

Benchmark: timing 10000 iterations of local $/, read, sysread...
　　local $/: 4 wallclock secs ( 2.66 usr + 1.14 sys = 3.80 CPU) @ 2633.66/s (n=10000)
　　　　read: 3 wallclock secs ( 1.75 usr + 1.06 sys = 2.81 CPU) @ 3556.19/s (n=10000)
　　sysread: 1 wallclock secs ( 0.33 usr + 0.91 sys = 1.23 CPU) @ 8103.73/s (n=10000)

　　　　　　　Rate　 local$/　　read　sysread
local $/　2634/s 　　　 --　　-26%　　　-68%
read　　　3556/s 　　　35%　　　--　　　-56%
sysread　8104/s. 　　208%　. 128%　　　　--

activeperl のverで
5.8.9.826 と　5.10.1.1006　での差違って
主に何です？　ご存じの方いませんか

>562
http://www.activestate.com/activeperl/features/
のActivePerl 5.10 Highlightsは見たの？

binmode $fh; をかましてバイナリ読み込みにすると、差が縮まった。

Benchmark: timing 50000 iterations of local $/, read, sysread...
　　local $/: 9 wallclock secs ( 2.64 usr + 5.34 sys = 7.98 CPU) @ 6262.53/s (n=50000)
　　　　read: 8 wallclock secs ( 2.03 usr + 5.47 sys = 7.50 CPU) @ 6666.67/s (n=50000)
　　sysread: 6 wallclock secs ( 1.72 usr + 4.61 sys = 6.33 CPU) @ 7900.14/s (n=50000)

　　　　　　　Rate　 local$/　　read　sysread
local $/　6263/s 　　　 --　　　-6%　　　-21%
read　　　6667/s　　　　6%　　　 --　　　-16%
sysread　7900/s.　　　26%　　　19%　　　　--


ただ、読み込むファイル容量を大きくする（以下）と差が出る。

my $file = 'kakikomi.txt'; # 6,863,205bytes（≒6.5Mbytes）、271,365行

Benchmark: timing 300 iterations of local $/, read, sysread...
　　local $/: 6 wallclock secs ( 4.45 usr + 2.08 sys = 6.53 CPU) @ 45.93/s (n=300)
　　　　read: 4 wallclock secs ( 2.02 usr + 2.06 sys = 4.08 CPU) @ 73.58/s (n=300)
　　sysread: 4 wallclock secs ( 0.08 usr + 3.11 sys = 3.19 CPU) @ 94.13/s (n=300)

　　　　　　　Rate　 local$/　　read　sysread
local $/　 45.9/s 　　　 --　　-38%　　　-51%
read　　　 73.6/s 　　　60%　　　--　　　-22%
sysread　 94.1/s. 　　105%　　 28%　　　　--

この方が分かりやすい。

my $data=`cat $file`;

どうでもいいんだが、

#=>

こいつがちんぽに見えてしょうがない
どうにかならんか

毛を剃れば=>になる

perlでwmvの再生時間を取得したくて、調べていて
Image::ExifToolというモジュールで出来るようだということがわかりました。
具体的なソースコードがないので、どのようにwmvの再生時間を取得すればいいのか悩んでいます。
よろしければ再生時間の取得方法が載っているサイトなど教えていただけたらと思います。

ソースコードが無いってなんで？
これでしょ？
http://search.cpan.org/~exiftool/Image-ExifTool-7.89/lib/Image/ExifTool.pod

cpan をユーザーディレクトリで運用したいです
書かなければならないとする設定が説明サイトによってまちまちなんですが、
最新版ではどう記述するのが本当なんですか？

以下の２つの結果が違うのですが、

print join(',', (1,'','','',2)), "\n";
print join(',', (1,,,,2)), "\n";

perlでは,,,というのはどういう解釈がなされるのでしょうか？

--------
JavaScriptみたいな結果を期待していたのですが・・。
alert([1,,,,2].join(',')); // -> 1,,,,2

>>571
http://perldoc.jp/docs/perl/5.10.0/perldata.pod より:

空リストは () で表わされます。リスト中で空リストを展開しても何も起こりません。
つまり、 ((),(),()) は () と等価です。同様に、要素のない配列を展開することは、
その場所に何も展開しなかったのと同じことになります。

この展開は、開きかっこと閉じかっこは(優先順位のための必要性がなければ) 省略
可能であるということと、リスト中に複数のカンマがあっても文法的に有効なので、
リストの最後に追加のカンマをつけられるということを組み合わせたものです。
リスト 1,,3 は 2 つのリスト 1, と 3 の結合であり、 1 つ目のリストはオプションのカンマ
で終わっています。 1,,3 は (1,),(3) で 1,3 です (そして同様に 1,,,3 は (1,),(,),3 で
1,3 です。以下同様。) この暗黒面を使うよう勧めているわけではありません。

>>572
ありがとう御座います。ズバリです！
納得いきました。

>>564
バイナリリードにすると差がなくなるのは、<$fh>方式では、バイナリリードだと確保するバッファーが
大きくなるからでしょうか？

多重定義されたメソッド（関数）で、2つ上のメソッドを呼び出すにはどうすればいいのでしょうか？

package Super;
sub foo { print "This is Super\n" }

package Sub;
use base Super;
sub foo { print "This is Sub\n" }

package SubSub;
use base Sub;
sub foo { print "this is SubSub" }
sub call_super_foo { shift->SUPER::SUPER::foo) } #=> エラー

package main;
SubSub->call_super_foo; #=> This is Superを期待

shift->Super::foo とか Super::foo(shift) じゃだめ？絶対的な指定になっちゃうけど。
二つ上っていう相対的な呼び出し方はわかんね
っていうか、そういうことがやりたいケースなんてあるかな？ちょっと興味あるアル

ディスパッチャーを自作すればいけるかー。evalでもいいけど

package UNIVERSAL;
sub dispatch_ancestor_method
{
　　my ($self, $name, @args) = @_;
　　no strict "refs";
　　for my $super (@{(ref($self) || $self) ."\::ISA"}) {
　　　　for my $ancestor (@{"$super\::ISA"})
　　　　　　{ return &{"$ancestor\::$name"}($self, @args) if defined &{"$ancestor\::$name"}; }
　　}
　　die "Undefined method `$name'";
}

package SubSub;
sub call_super_foo { shift->dispatch_ancestor_method("foo") }

>>576-577
ありがとうございます。

単に勉強中の者でして、任意の上の階層のメソッドを呼び出す命令があるのかなーと
思ったしだいです。

>>578
そういう使い方では継承の意味がないのでは？

>>579
深く突っ込まれても、まだ勉強の途中なのでよくわからんです。
SUPER::の項目を見てて、そういう命令があるのかなーと思っただけなんで。

ちょっと聞きたい事があるんだ

配列のm番目にあるデータに、ループを回すごとに値を〜でくっつけて追加したいんだ
ex) m番目の値がabcで、cdeを追加したい場合　abc〜cde　のように。

追加される値が$aの場合
$list[m] .= $list[m] . "〜" . $a;　（※　
として配列m番目の値を変えようと思ってやったんだけどうまくいかない。
mはずっと固定。

ループ1週目で$a・2週目で$b、3週目で$c・・・・・と後ろに繋げる場合
$list[m]〜$a〜$b〜$c〜　となっていくようにしたいんだけど
上の※式を実行すると
$list[m]
しか出力されなく困ってます。どなたか知恵を御貸しください……

>>581
$list[m] .= "〜" . $a;　（※　

か

$list[m] = $list[m] . "〜" . $a;　（※　

念のために確認しておくが

× $list[m]
○ $list[$m]

というオチじゃないだろうな?

あら、みんなシステムワイドで使ってるん？
ユーザーディレクトリで運用してる人は稀？

>>584
ローカルにtar.gzからlocal::libをインストールして、あとはその設定使ったcpanでインストールしてるけどそういう意味？

変数名を動的に指定して、その変数の値をとってくることはできますか。
PHPでは
$x = 10;
$var = 'x';
echo $$var; // 10 が表示される
ということができるんですけど、Perlで同じことをするにはどうしたらいいですか。

ユーザー権限でcpan shell使えば、ユーザーディレクトリにインストールされない？

>>587
されるんだったらこのへんのブログ記事はみんな仕込みだな
ttp://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=makepl_arg&num=50

>>586
同じく$$varでいいけど、そういうプログラムは行儀悪いからやめとけ。

sage

>>583 あー確かに$list[$m]になってましたね、申し訳ないです
$mは別の所で既に求めてあり、変わることのない定数ですが……

printで挿入動作のすぐ後で確認してみた時はうまく挿入されているのですが
次のループの時にはまた初期状態に戻ってしまっているようです……

>>591
だったらループを晒さないと。

>>588
うーん、一度
cpan> o conf init
で再設定してみては？

>>592 すいません、ループ自体は他の動作も混ざってるので200行近くあるんです……

>>594
ここに貼り付ければおｋ
http://codepad.org/

>>591
だったら一行一行チェックしないと

>>594
「他の動作」を削っていって、不具合の再現する最小ケースのコードを作ってみ。

＞ printで挿入動作のすぐ後で確認してみた時はうまく挿入されているのですが
＞ 次のループの時にはまた初期状態に戻ってしまっているようです……

この人に足りないのは、「デバッグする」ということ。
いちおうすぐ後に print文を入れてみたのはエライが
その後で行き詰っているな。
もっと print を入れろ。たくさん入れろ。しつこいくらい入れろ。
print でコードがイッパイ埋め尽くされるまで入れろ！
そうすればどこで変になったか特定できるはずだろ。

print でコードがオッパイ埋め尽くされるまで入れろ！だと！？

ってレスされることを狙ったよな？よな？

>>589
行儀よく

${$var}


あれリファレンスと同じだ

>>581
ループごとに変数初期化してる気配

>>594
perl以前にそもそもな違和感を覚える。

200行ものループがあるのは、明らかにおかしい。
一関数でも200行はおかしい部類に入るのに、
それがループともなると、さらに話もデバッグも難しくなる。

perl ならループの中身が200行くらいあっても不思議じゃないだろ

絶対にbetter wayが存在するだろ

>>603
不思議じゃないが、おかしい。
「perlなら」とか言い訳してる場合じゃなくおかしいものはおかしい。直すべき。

プログラミングする目的は綺麗なコードを書く事じゃないし
行儀のいいコードを書く必要性は場合よる

LLであるPerlならそういうケースに見回れる可能性は低いから
むしろ「おかしい」って突っ込みの方が自分本位で正当性に欠ける気がするんだよ！

プログラムは本来動けばいい物でしょ

そこに、保守性、生産性という需要があれば可読性のあるソースを
速度やコンパクトさを求めるなら、可読性や保守性は両立できない

だからそもそもソースの書き方に正しいとか間違いなんて言うのは野暮

>>607
些細なバグを直しやすくするアドバイスが
そんなに気に入らないか？

下手くそな書き方で無駄な時間潰すより
素直に耳を傾けたほうがよほどいいと思うが？

「速くする前に、まず正しくしよう」

「だめなプログラムを修正するのはやめて、全部書き直そう」

>>607
Damian Conwayを真っ向から否定ですね、わかります

>>606 >>607
はぁ？
そんなの綺麗で可読性のあるコードを書かない言い訳になんかならんよ。
実際「動けば良い」じゃ済まないから現に >>581 みたいな質問が出てるんじゃんよ。
「おかしい」ったら「おかしい」んだよ。

>>606-607
思考が若いねぇ。いったい何処で習った手法なのかなー？　趣味のプログラム書き殴りだけで、
それなりの規模の保守運用を伴う実務経験無さそうだねぇ

プログラミングの鉄則


１ 動くこと
２ 正しく動くこと
３ 上記を満たすためにわかりやすく書くこと

一応SEだからソース管理するスタンスで言えば
綺麗で可読性のあるコードを書くのは反対しないよ

だがここはあくまで書き方の自由度の高いPerlのスレであり
大規模プロジェクトで生産性、保守性を目的にしたソースを第一とするとはどこにも書いていないと言いたいだけ

そうかそうか

>>607 の理論は正しくないと思うけど
>>608
この問題に対する、「分割や抽象化されてない巨大なコードはバグりやすいよ」ってアドバイスならいいけど、
>200行ものループがあるのは、明らかにおかしい
みたいに、プログラミング一般に適用可能な意見とするのは違うなーと思った
こういう考えをむやみに初心者に植え付けるのは、コーディングオナニーの原因にもなるしね
常に必要なことではない、ってことを理解してもらうために発言したんだよ

>>612
習うと言われても
私の若い頃は工業高校なんかでBASICかFORTRAN、アセンブラしか教えられていなかったから
実務経験で培った知識しか無い
これ以上はスレ違いだし606を擁護するのはやめとく

> みたいに、プログラミング一般に適用可能な意見とするのは違うなーと思った
> こういう考えをむやみに初心者に植え付けるのは、コーディングオナニーの原因にもなるしね
いいや、プログラミング一般に適用可能だし、むやみに初心者に植え付けるべき考えだよ。
ところで「コーディングオナニー」って何？

特に >>581 の場合なんかは、どうせスコープを見誤ってバグってるんだろうから、
効率とか云々は一旦棚に上げて、 use strict; use warnings; した上で、
200行のコードをどんどん関数に分割していけば、まずいところはすぐ見つかると思う。

保守性も、動くこと優先も、両方考慮すべきことだよ

多人数開発だったり、サポート期間の長いソフトだと前者の重要性が
高くなるだけで、別にそれが全てじゃない。

Perl の場合、たいてい動けばよいの方の比重が高くなると思うな
まあ、どうでもいいけど

200行のループしかないプログラムだったり

>>618
>コーディングオナニー
ああ、リアルで使っても結構通じちゃうから、同じ気持ちで使ってたよ。気付かなくてごめんね

意味だけど、本来の目的や本質は疎かにして、自分が正しいと信じてることを機械的に行うことだよ
病的なまでにコードを整理したり、やたらリファクタリングに時間をかける人がいるんだよ。文脈におけるメリットも考慮せずに
(実を言うと、昔は自分もそうだったしね)

コードを整理することが保守性やメンテナンス性を高めることに繋がるという事に異議は無いよ
ただ、そういうことが常に求められているわけではないので、
その手段である「綺麗なコードを書くこと」は、プログラミング一般に適用出来ない。そういうこと

>>619
同意

s/機械的/盲目的/

200行もあるコードにおかしさを嗅ぎつけるってのは
プログラマにとって身に付けるべき重要な嗅覚だろ。
そんな嗅覚の未発達な初心者に対しては、
ちゃんとこれはおかしいと諭してあげるべきじゃないのか。

200行もあるが故に見通しが悪く自力で問題解決できなくなり、
200行もあるが故にコード片を晒すこともできずこれ以上の助言ももらえない、
そんなにっちもさっちもいかなくなった質問者に対して、
200行のコードでも動けば問題ない、ってのがアドバイスになるのか？おかしいだろ。

やってればセンスある奴は早い時期に勝手に気づくさ。
気づかないのはセンスナッシングで他のことにも気づかないってことで

よそでやれ

いや、ここでやる(`･ω･´)

ハゲ・ズラ板でやれ

つ 夢・独り言＠2ch掲示板 http://changi.2ch.net/yume/

>>628
行ってらっしゃーい

＞ 綺麗で可読性のあるコード

これを言い出すとモメる原因になる。
いったい＜誰＞にとって綺麗で可読性のあるコードであるか。
おまえか？おれか？
主観を押し付けるなよ。

>>630
そんな中二病丸出しの発言する奴は無視するだけでしょ。

「綺麗さ」に関して標準の測定法が無いから、主観の問題になる。
というか、ズルや政治的意図で歪められたりする。

perltidyなどのフォーマッタを通したコードが綺麗で良いとすると、
複雑さなどは計算に入れないのか、などなど。
一度は通っておくといい道。

mecabについての質問です。

文字列をmecabに入れる際にeuc-jpにエンコードし、名詞だけを抽出し
デコードしてブラウザに出力させようとすると、大半は通常通りに取得できますが、一部の単語が文字化けします。
調べてみたら漢字に限らず、ひらがな・カナ文字でも文字化けしています。

考えられる原因はなんでしょうか？OSはfedora9です。

ここでやる(`･ω･´)

(´；ω；｀)ﾌﾞﾜｯ

(´；ω；｀;:..

(´；ω;;:;:::...

(´;;:;::;..

(´;;:;::;..

(´ ∀;;:;:::...

(´ ∀｀)

PERLでのImage Magickの使い方について教えてください

画像ファイルを読み込んだあと、画像のプロパティ（タイトル、標題、コメントなど）を
セットしてから出力することはできるでしょうか。

>>637
もちろんです。

man Imagemagick

(´･ω･`) ｡｡ﾟo｡○

(´･ω ｡o｡ﾟ｡o○

｡｡o｡oﾟＯﾟ｡oﾟo○｡oﾟ

2chにコードを貼り付けるとき、インデントを全角スペースにしたりしますよね。
みなさんはそれをどのように変換してますか？

エディタの機能でうまくできるものなのでしょうか？

s/\t/　　/g;

>>641
それじゃダメだろ

>>640
Perlで「各行の先頭から続く複数の空白を、同じ数の&amp;nbsp;に変換して出力する」コードを書けば良いじゃない

あれ？表示が変だな
あんど、えぬ、びー、えす、ぴー、せみころんね

&nbsp;

すべてのスペースを&nbsp;に変換すっと、今度は文字数制限にひっかかっかるやもやがな
s/(?<=^|\G)[ \t]/&nbsp;/mgx

どうでもいい議論が続いてるな。エディタで置換すればいいだろ
>>641でいいと思うけど。
いつも半角スペース2個を全角1個にしてるからvimなら%s/ /　/gcで置換できる

641じゃデコボコになるだろ・・

>>641
今どきハードタブ使ってるひとはあまりいないんじゃない？

Damian Conway先生に怒られるしね

>>649
あなた、井の中の蛙さん？

そうだけど何か？ ゜＿゜

かわいそうに

>>653なんか、ダッシュ村のため池の蛙なんだぜ。

来月にリャマ本の日本語第5版くるんだね
中身結構かわってるかなあ

>>646
コード載せた場合、先に引っかかるのは
大概行数制限のほうだと思う

さがってる

下がってても落ちないよ

s!>(back|return)<!>戻る<!si;

これやるとエラーダイアログが出るんです。

問題が発生したため、Perl Command Line Interpreter を終了します。 ご不便を
おかけして申し訳ありません。
この問題を Microsoft に報告してください。
（以下省略）
　　　　　　　　　　[エラーを報告する(S)] [送信しない(D)]

いろいろ試したらこのような結果でした。
o Active Perl 5.8.8
o Active Perl 5.8.9
o Active Perl 5.10.0
x Active Perl 5.10.1

こんなふうに ( | ) を使わなければＯＫなんですが、ちょっと困ります。
s!>back<!>戻る<!si;
s!>return<!>戻る<!si;

perl 5.10.1 はウンコですか？

>>659
デリミタは#とか括弧類にしてくれ。

あとPerlのせいにすんな。

FreeBSDやLinuxの5.10.1ではそのコードは普通に動くから、
5.10.1がウンコなんじゃなくてActivePerlが正規表現モジュールか何かの
Winへの移植に失敗してるんだろ。
5.10.1リリース後一ヶ月以内のスピード移植版に文句言うとか何様かと。
修正リリースが出るだろうからバグ報告でもして座って待ってろ。

=~で全角数字だけの文字列だったらを取り除くにはどうすれば良いのでしょうか？
ttp://ash.jp/code/unitbl21.htmを参考にしようと思ったのですが、どう書けばよいか分かりません。
お願いします。

使用している文字コードはutf-8です。

s/[０１２３４５６７８９]//g
みたいな？

>>661
s/^[０-９]+$//

>>659
んー、WindowsXPで普通に動く。

XSを勉強中です。
長さを指定して文字列を作成し、あとから文字を詰め込みたいのですが、やり方がわかりません。
自分で試したのはこんなコードです。

SV *
hoge()
CODE:
SV *string = newSV(5);
char *s = SvPVX(string);
//int len;
//char *s = SvPV_force(string, len);
int i;
for (i = 0; i < 5; i++) {
s[i] = 'x';
}
s[i] = '¥0';
RETVAL = string;
OUTPUT:
RETVAL

これを呼び出してみると、長さが0の文字列が返されるだけでした。
おしえてえらいひと。

失敗した。インデントを全角空白にしました。

SV *
hoge()
　　CODE:
　　　　SV *string = newSV(5);
　　　　char *s = SvPVX(string);
//int len;
　　　　//char *s = SvPV_force(string, len);
　　　　int i;
　　　　for (i = 0; i < 5; i++) {
　　　　　　s[i] = 'x';
　　　　}
　　　　s[i] = '¥0';
　　　　RETVAL = string;
　　OUTPUT:
　　　　RETVAL

よろしくお願いします。

なんかC++みたいだな

>>668
XSが何か分かってないだろ。
ちゃんとPerlの質問だ。

質問にも答えたいが朝食を作らないと。

>>667
SvPOK_onlyかSvPOK_only_UTF8が必要なんじゃね?

>>666
あーちなみに文字列の突っ込み方は合ってるし、
そっち方面の質問がメインならC/C++のスレに行きな。ちなみに勘だが、

SV *
hoge()

ここがおかしいんじゃないか？SV *返すことってできたっけ？
インクルードファイルやMODULE行がないのは端折ってるだけだよな？

5バイトしか取ってないのにNULLを６バイト目に入れてるけどいいの？

あ、いいのか。

>>672
6バイト取ってるでしょ。マニュアル嫁

先越されるとは思わんかった。>>673は>>671へだ。SV *自体問題ない。

newSVpvと文字列コピーするところ以外は
やりたいことは一緒なんだから比べてみ。

SVの実体が何か明示する前に文字列と決め付けてるからまずいんじゃないか。
いきなりnewSVみたいな低レベルの関数使うと怪我をするよ。
SV *string = newSVpv(" ", 5);としたらどうなる？

スペースは5個な。まあ6バイトallocしてくれてるはずだから、
初期化するまで値が不定になるだけで実害はないと思うが

>>668
たしかにコードはC++チックですね。コメントが // だったり、変数宣言が先頭になかったり。

>>669
668さんはXSが何かわかったうえでの発言だと思いますよ？

>>670
RETVALUE = string;
の行の前に
SvPOK_only_UTF8(string);
を追加してみましたけど、状況は変わらずでした。

>>677
newSVpvn(" ", 5) ですよね。それだとうまくいくんですが、これだとコピー元の文字列を
あらかじめ用意してないといけないので、今回の目的には適合しませんでした。

で、いろいろ調べて、New() と Safefree() と newSVpvn() を使うことにしました。
でもこれだと New() でバッファを用意して、文字列を埋めて、newSVpvn() でコピーして、・・・と
しなきゃいけないから、newSVpvn() でコピーするのが無駄かなあとは思うんですけど、
これしかうまくいかないので、そうします。
アドバイスいただいたみなさん、ありがとうございました。

ラリーウォールさんの書いたperlのソースってどこかで見れませんか？
どんなものでもいいです

http://www.wall.org/~larry/

Mail to [email protected]

このメアドがまたすげー

>>681
見つからないんですが、どこのページに？

mapのような書き方をするメソッドを実装したいんですが、
もしかして第一引数に勝手にインスタンスが入るのでsubが省略できなかったりしますか？

あ？

>>679
どうせnewSVpvn使うならこれでどうだ？。ナルストリングで文句があるならもう知らん。
newSVpvは初期化文字列が空でもちゃんと6バイト確保してくれるところがミソだ。

普通ならまず(char *)sを作ってnewSVpv(s, 5)すりゃ何の問題もないんだが、それだと
困るんだよな？

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"

MODULE = Foo PACKAGE = Foo

SV *
hoge()
　CODE:
　　int i = 0;
　　char c = (char)0;
　　SV *string = newSVpv((char *)&c, 5);
　　char *s = SvPVX(string);

　　for (i = 0; i < 5; i++) s[i] = 'x';
　　s[i] = (char)0;

　　RETVAL = string;
　OUTPUT:
　　RETVAL

>>686
あなたには答えてほしくありません。

>>684
日本語がよくわからんが....。map { some_code } @foo;のようなことがしたいなら、

my_map(&@){ ... }
:
my@bar = my_map { some_code } @foo;

で出来る。
map BLOCK LIST
map EXPR, LIST
の2つの書式を満たす方法は知らん。

>>687
回答者を選ぶなら質問するな。
そもそも俺が何番の人か分かってるのかなこの人。勘違いだと思うんだが。
何番かアンカー晒してみ。

あー>>687が質問者じゃなくて単なる煽りの可能性もあるな。だったらすまん>>687

普通に考えてそうだろ．

　CODE:
　　int i = 0;
　　SV *string = newSV(0);
　　char *s = (char *)malloc(6);

　　for (i = 0; i < 5; i++) s[i] = 'x';
　　s[i] = (char)0;

　　sv_setpv(string, s);
　　free(s);

　　RETVAL = string;

>>688
すみません、サブルーチンの場合にそう書けるのは知ってます
クラスをオブジェクトとして作ったときに、$hoge->map({ $_ =~ /hoge/} @huga) というmapメソッドを書く方法はないのか知りたかったのです
しかしこのとき実装側では sub map($&@){… としなければいけないため、呼び出し側のsubが省略できないじゃないですか
なので、これをなんとかできないものかと思いまして…

メソッドの呼び出しはプロトタイプ効かないから無理くさくね？

やはりそうですか…
ありがとうございました

ttp://deepneko.dyndns.org/kokotech/2009/06/mecabwikipedia.html
このサイトに書いてあるようにしたのですが、rubyで書かれています。これ（下のプログラム）をperlで書き換えたいのですが、分かる方が居たらお願いします。

#!/usr/bin/ruby

open($*[0]).each do |line|
title = line.strip

next if title =~ /^\./
next if title =~ /[0-9]{4}/
next if title =~ /^[-.0-9]+$/

score = [-36000.0 ,-400 *(title.size**1.5)].max.to_i
print "#{title},0,0,#{score},名詞,一般,*,*,*,*,#{title},*,*,wikipedia_keyword,\n" if title.size > 9
end

>>696
これなら初心者の自分でも書き直せるYO
エレガントな回答は上級者にまかすけど。

#!/usr/bin/perl

use List::Util qw(max);

open my $fh, $ARGV[0] or die $!;
while ( my $line = <$fh> ) {
my $title = $line;
$title =~ s/^\s*(.*?)\s*$/$1/;

next if $title =~ /^\./;
next if $title =~ /[0-9]{4}/;
next if $title =~ /^[-.0-9]+$/;

my $score = int max(-36000.0 ,-400 *((length $title)**1.5));
print "$title,0,0,$score,名詞,一般,*,*,*,*,$title,*,*,wikipedia_keyword,\n" if length $title > 9;
}
close $fh;

>>693
map $hoge (....)とは書けるんだがな。
メソッド呼び出しはリストしか受けないから無理でしょ。

WWW::SourceforgeJP ver.0.0.1 リリース
http://acapulco.dyndns.org/blog/2009/10/03/wwwsourceforgejp

正規表現でマッチした文字列そのものを取得したいです

例えば
"hoge huga" =~ /(\s|\d)/
という正規表現があったとき、
' 'ではなく'\s'を取得したいです

可能でしょうか

可能でしょうねぇ。。。

700じゃないけど、どうすればできるか知りたい。
役に立つ気はしないけど。

(?{})とか(??{})を駆使すればいけるかもしれないけど
デフォでそんなインターフェイスは用意されてないっしょ

>>703
??{}ですか
参考になりました、調べてみますね
ありがとうございました

おれも知りたい。

こういう感じで元の文字列を取ることができました
ありがとうございます

perl -e '
use re "eval";
$hoge = q/ho..(?{$str="ho.."})|hu..(?{$str="hu.."})/;
"huga" =~ /$hoge/;
print "1:$str\n";
"hoge" =~ /$hoge/;
print "2:$str\n";
'
1:hu..
2:ho..

やりたかったのは
%hash = (
   '\s+' => 'space',
   '\d+' => 'number',
   '\w+' => 'word',
);

という感じのハッシュのキーを合成して、一番最初にマッチしたものの名前を返す関数の作成だったので、
これでいけそうです

なんか変にハマったのでもう一度質問させてください。。。
下のような関数を作りました

sub match($@){
   use strict;
   use re "eval";
   my $str = shift;
   my @member = @_;

   my $regex = join("|", map{ "$_(?{\$ret = q{$_}})"} @member);
   my $ret;
   $str =~ /$regex/;
   return $ret;
}

以下の呼び出しを行うと、

print match("hoge 123", qw(\d \w \s)), $/; #=> \w
print match(" 123hoge", qw(\d \w \s)), $/; #=>
print match("123 hoge", qw(\d \w \s)), $/; #=>

となり、思った結果を返してくれませんでした
ですが、match関数に渡す配列の順番を変えたところ、

print match("hoge 123", qw(\d \w \s)), $/; #=> \w
print match(" 123hoge", qw(\w \d \s)), $/; #=> \s
print match("123 hoge", qw(\d \w \s)), $/; #=> \d

と、期待通りの結果を返してくれました
これは一回通った正規表現に対してはサブパターンは呼び出されないということなんでしょうか。。。

レキサ作ってんのか。。。

>>707
>>706のレス見たときに、関数化してハマるんだろうなーと思ったらマジでハマっててワロタ

my $regex → local our $regex
my $ret → local our $ret
これでどうかな？
昔、そういうプロギラムを書いていたときには、こいつで回避出来たよ

多分、正規表現リテラルは初回の正規表現コンパイル時に、クロージャのようにローカル環境をキャプチャするけど
再度、同じ正規表現を与えてリテラルのパスを通ってもキャプチャが発生しない
なので、正規表現の中ではmy変数は使わず、グローバル変数を使えばOKと

>>709
おお！いけました！
ありがとうございます

use strictすることでこんな罠が生まれていたとは思いもしませんでした
正規周りは魔物が住んでますね…

utf8で書かれた文章をeuc-jpで新しく保存しようとすると開けなくなります
何が原因でしょうか。また解決するにはどうすれば良いでしょうか？

777

>>711
use utf8とかその辺りが原因の気が。

>>713
csvファイルなのですがutf8のtext.csvを
nkf -e test.csv > test2.csv
で変換すると、開けなくなります。

おいおい、言ってることがめちゃくちゃだな。
何をしようとして、何をしたら、どうなって欲しいのに、どうなったか、具体的にキチンと書いてみ。

Web::Scraperでデータの抽出しているのですが
XpathをFirebugで取得してWeb::Scraperに処理させると、Xpathがずれてしまいます。
Firefoxのレンダリングでタグが追加変更されているのが原因みたいです。

PerlからFirefoxでレンダリング済みのタグを取得することはできないのでしょうか？
よろしくお願いします。

ttable を除去すればいけるけど…
そういうことじゃなくて？

>>717
tbody以外にもページによって
tr[2]をtr[3]に変えたりとか
/table/tbody/tr/tdが追加されてたりとか
center/div/div/fontが追加されたりとか

単純なパターンで取れない感じがするので、いっそのことFirefoxでレンダリング済みのソースを
perlから取れないかな？と思ったのです。

卒業研究でperlを使うことになったんですが、
linux環境でMeCab.pmのperlモジュールを使用するにはどうしたらいいのでしょうか？
linuxはvine3.2です。

フロストバイトエンジンがＰＣ版でどのくらい綺麗になるのか見てみたい

>>720
ごめん、ごばった

>>719
ググればすぐに出てくるんですけれども。。。
ttp://www.alwaysfine.jp/2008/03/spamassassin_32wo.html

いわゆる犬学生なんでしょうね。。。

. 1. HTML　　　　で検索した結果　1〜10件目 / 約5,040,000,000件
. 2. PHP 　 　　　で検索した結果　1〜10件目 / 約2,970,000,000件
. 3. Java......　　　で検索した結果　1〜10件目 / 約　835,000,000件
. 4. Forth.　　　　で検索した結果　1〜10件目 / 約　323,000,000件
. 5. Ruby..　　　　で検索した結果　1〜10件目 / 約　275,000,000件
. 6. perl.....　　　　で検索した結果　1〜10件目 / 約　245,000,000件
. 7. Python...　 　で検索した結果　1〜10件目 / 約　204,000,000件
. 8. pascal...　　　で検索した結果　1〜10件目 / 約　170,000,000件
. 9. Delphi　　　　で検索した結果　1〜10件目 / 約　127,000,000件
10. VisualBasic...で検索した結果　1〜10件目 / 約　121,000,000件
11. lisp...　　 　 　で検索した結果　1〜10件目 / 約.　 26,700,000件
12. fortran 　 　 で検索した結果　1〜10件目 / 約.　 21,300,000件
13. COBOL　 　 で検索した結果　1〜10件目 / 約.　 18,500,000件
14. HSP 　 　　　で検索した結果　1〜10件目 / 約.　 12,300,000件
15. FreeBasic..　で検索した結果　1〜10件目 / 約　　 6,320,000件
16. Tcl/Tk. 　 　 で検索した結果　1〜10件目 / 約　　 4,940,000件
17. QBasic 　 　 で検索した結果　1〜10件目 / 約　　 4,190,000件
18. VisualC....　　で検索した結果　1〜10件目 / 約　　 1,360,000件
19. DarkBASIC. で検索した結果　1〜10件目 / 約　　 1,320,000件
20. BasicStudio で検索した結果　1〜10件目 / 約　　　 304,000件
21. N88basic. 　 で検索した結果　1〜10件目 / 約　　　 215,000件
22. f-basic 　 　 で検索した結果　1〜10件目 / 約　　　 109,000件
23. ActiveBasic で検索した結果　1〜10件目 / 約. 　 　　89,800件
24. 99BASIC....　で検索した結果　1〜10件目 / 約. 　 　　11,500件

3Dprogramming で検索した結果　1〜10件目 / 約794,000件
2Dprogramming で検索した結果　1〜10件目 / 約. 57,400件

intel で検索した結果　1〜10件目 / 約729,000,000件
amd で検索した結果　1〜10件目 / 約355,000,000件

>>715
保存でeuc-jp指定とnkfで-eとは違うのですか？
無知ですみません。

>>724
出力はeucって指定してるけど、入力の指定は？
もとのファイルがUTF8だということをnkfに教えてやらなければダメなのかもね。
nkfの説明書をよく読んでみてよ。

ある2種類の要素数が同じ配列データがあって
片方は末尾までデータが入っているのですが
もう片方は末尾に半角スペース1個だけが入っています

この配列をファイルに書き出す際、前者は全て書き出し、後者は最後の配列のみ書き出さないようにしたいのですが、うまくいきません

ループ中に配列aの最後n番目が半角スペースなら書き出さない場合、
if($a[$n] eq " "){
last;
}
では駄目なのでしょうか
携帯からなので読みにくいですがよろしくお願いします

デバッグという概念が失われて久しい……

改行が入ってんだろ

>>726
デバッグしろ。

if($a[$n] eq " ") がヒットしているか調べろ。$a[$n]の中身を調べろ。

perl のデバッガって何がおすすめですか。

Data::Dumperでデータの中身見てDevel::Peekでutf8フラグ見るくらいしかやったことないな

ifの前ぐらいに
print "!!! HELLO !!! $n='$a[$n]'\n";
って書いておくといいよ。

>>726
if($a[-1] eq " "){
output @a[0..$#a-1];
}else{
output @a;
}

>>733
pop @a if $a[-1] eq " ";
output @a;

2行の文字列があって、
1行目の文字列を2行目の文字列の任意の場所に挿入
その後1行目を改行ごと削除
という作業はどう書けばいいでしょうか？

>>735
splitで切って2つの文字列に分けて、substrで1行目を2行目に入れればいい。