CGIに依存しないPerlの話題一般

**名無しさん＠お腹いっぱい。** · 2001/05/31(木) 21:49

・コマンドラインからのPerl活用
・モジュール、オブジェクト指向プログラミング
・Perl6や.NET対応など
・各種GUIツールキット(Perl/Tk, Gtk-Perlなど)
・他言語による拡張(Inline::*, XS, Swigなど)

についてﾏﾀｰﾘと語り合うスレッドです。

#CGI関連の話題は、なるべく専用スレッドで。

**_gunzip** · 2001/05/31(木) 22:19

-----------------------------
Perl5.7.1(devel)ではハッシュ関数(hv.h内のマクロPERL_HASH)が
変更されているようですね。

/* hv.h 49-62 */

#define PERL_HASH(hash,str,len) \
STMT_START { \
register const char *s_PeRlHaSh = str; \
register I32 i_PeRlHaSh = len; \
register U32 hash_PeRlHaSh = 0; \
while (i_PeRlHaSh--) { \
  hash_PeRlHaSh += *s_PeRlHaSh++; \
  hash_PeRlHaSh += (hash_PeRlHaSh << 10); \
  hash_PeRlHaSh ^= (hash_PeRlHaSh >> 6); \
} \
hash_PeRlHaSh += (hash_PeRlHaSh << 3); \
hash_PeRlHaSh ^= (hash_PeRlHaSh >> 11); \
(hash) = (hash_PeRlHaSh + (hash_PeRlHaSh << 15)); \
} STMT_END

詳細は↓ここに記載されています。
http://burtleburtle.net/bob/hash/doobs.html
-----------------------------
・・・とか、こういった話題でいいのかな？
えと、とにかく初めのうちは積極的に寝たふりをお願いします。

#「俺はPerlをこんな風に活用している」とか、誰でも取り付きやすい話題があると賑わうのかな。

**_gunzip** · 2001/05/31(木) 22:23

誤>積極的に寝たふりをお願いします。
正>積極的にネタ振りをお願いします。
森首相じゃあるまいし....

**名無しさん＠お腹いっぱい。** · 2001/06/01(金) 00:02

Perlのソースの話題…ですか
うう…レベルが違う（汗

**名無しさん＠お腹いっぱい。** · 2001/06/01(金) 01:07

がいしゅつだろうけど、Perl6の話。
http://bulknews.net/lib/doc-ja/exegesis2.ja.html

%hash{value} @array[0] ... なんか気持ち悪いなぁ(笑)

しかも

$hash_ref = %hash;　# %hashのリファレンスを取得
$hash_ref{value}; # %hash{value}と同じ事

ってことも出来るらしい…。
ワケ分からなくなりそう(笑)

**(･ε・** · 2001/06/01(金) 02:17

いきなり厨房書き込みなんですけど、DOSのバッチでファイル名を
一括変換したり、秀のマクロで文字列変換するような作業を、スクリプト
でやってみようと思っています。

それで、Linuxのシェルスクリプトかperlを学ぼうを思ってるんです
が、貧乏なんで本が一冊しか買えません(^_^;)
bashで初めるシェルスクリプトか、オライリーさんのラマ本、、、、、
ん～、どっちを買うべきだろう、、、、、、貧乏はいやだ～

**(･ε・** · 2001/06/01(金) 02:23

うっ、何か場違いな感じ、、皆さんで話しあって立てたスレなんですね。
消えますー。

**名無しさん＠お腹いっぱい。** · 2001/06/01(金) 03:13

>>6
「CGIに依存しないPerlの話題一般」にはあてはまるんでない？
俺としてはPerlのほうをお勧めするよ。普及率で言えば
シェル >> Perl
だけれど、Perlのほうができることが多いし、DOSのバッチ的な用途にも
Perlはすごく向いている。

**_gunzip** · 2001/06/01(金) 06:46

>>4
あう、ソースを眺めていたらたまたま気づいただけです.....。
気軽に逝きませう。

>>5
確かに訳分からなくなりそうだ.....。
今までの$foo->[$n] が $foo[$n] (or $foo.[$n])で、$foo{bar} が %foo{bar} か.......。
うう.......慣れるまでの辛抱か。
ところでis演算子っていい感じ....（この辺りは意見が分かれるのかな）
サブルーチンの名前付きパラメータも有り難い。

>>6-7
bashシェルプログラミングと、Perlが共に学べる（らしい）
http://www.amazon.co.jp/exec/obidos/ASIN/4886485243/249-4475496-7314707
のような本もありますよ。
（自分は持っていないので、薦めて良いのかちょっと自信がありませんが）

ちなみに、Shellモジュールを利用すれば、シェルスクリプトを書く感覚で
Perlスクリプトを書くことが出来ます。
#でもやっぱりシェルスクリプトも書けた方がいいです。（はい）

**_gunzip** · 2001/06/01(金) 07:03

シェルで思い出したのですが、
Perl Power Tools:　The Unix Reconstruction Project
http://language.perl.com/ppt/index.html
こんなのもあります。
Perlで書かれたcp,ls,diffコマンドなど色々揃っていますので、学習用にでも。

あげ · 2001/06/01(金) 15:35

Perl/Tkの話題も欲しいあげ

**(･ε・** · 2001/06/01(金) 19:29

8さん、gunzipさん有難うございます。
8さんのおっしゃる様に取り合えずシェルはmanと睨めっこして
perlの本を買おうかな、、と思ったら、、、

>bashシェルプログラミングと、Perlが共に学べる（らしい）
良いッス、欲しいッス、直撃です(^ ^ )、同じ処理をbashとpealで
並べてくれてたりしたらいいなー、明日早速探しに行って見ます。

>Perl Power Tools:　The Unix Reconstruction Project
こっちも凄いですね、厨房的には"perlって凄い"としか言えませんが　(^^;;
しかも、かなりのコマンドがサポートされてるんですね。
頂いて、見てみます。

とても役立つご意見でした、有難う御座いました。
やっぱり聞いてよかったー

**名無しさん＠お腹いっぱい。** · 2001/06/07(木) 04:54

256バイトで何ができるか。
http://backno.mag2.com/reader/BackBody?id=200106032250000000015670000

256バイトの掲示板とか、無理か。

ARGVをevalするのは、インチキのような……＞ライフゲーム

**名無しさん＠お腹いっぱい。** · 2001/06/07(木) 10:08

>>13
256バイトは少ないよなぁ。
せめて7行は欲しいところ。

ARGVをevalするのは反則。
IO::Socketをuseするのも反則。

**名無しさん＠お腹いっぱい。** · 2001/06/08(金) 15:39

warningプラグマって凄くメモリ食いそう(大きなハッシュを保持)
なんだけど、どうなの？

**名無しさん＠お腹いっぱい。** · 2001/06/08(金) 17:17

>>14
7行あれば DVD のデコードができるもんね(w

**名無しさん＠お腹いっぱい。** · 2001/06/08(金) 20:49

>>16
それしたの十六歳の少年だっけ？

**名無しさん＠お腹いっぱい。** · 2001/06/08(金) 21:13

プログラム技術板で、船渡し問題を解いてたよね。

**.pl** · 2001/06/09(土) 00:05

むむ、なんだこりゃ？
今日初めて気がついた…
#!/usr/bin/perl
use strict;
&set_foo;
my $foo;
print $foo;
sub set_foo{
$foo = 'bar';
}
__END__

うーん…変なの（++

**名無しさん＠お腹いっぱい。** · 2001/06/09(土) 18:55

>>19
どうあるべきなの？

**名無しさん＠お腹いっぱい。** · 2001/06/09(土) 19:05

ん～、
#!/usr/local/bin/perl
use strict;
$foo = "bar";
my $foo;
print $foo;
__END__
ってやってみるとわかるよ。
やってることは同じように見えるけど実行結果が違う。
これの use strict をはずした奴もやってみると吉。

**名無しさん＠お腹いっぱい。** · 2001/06/09(土) 23:05

http://www.iijnet.or.jp/cao/kantei/jp/comment_m.html
特殊文字って何？
\/*$%#&"!とか？（ｍ

**名無しさん＠お腹いっぱい。** · 2001/06/09(土) 23:13

正直言って、ろくな話題がでないな。

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 00:30

>特殊文字って何？
>\/*$%#&"!とか？（ｍ

スレお間違えですか？ここは
「CGIに依存しないPerlの話題一般」
です。

**enhydra** · 2001/06/10(日) 18:01

>> 15
大丈夫、100Kbyte前後しか増えないから。

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 18:33

>>25
CGIスクリプトとして動作させる場合はかなりやばいんじゃ…。
…と、思ったが、CGI.pmは+700kb近いな…warnings程度は余裕か。

**(-_-;;)** · 2001/06/10(日) 21:37

みんなはGUIのperlデバッガは何を使用してるの?
俺はhttp://world.std.com/~aep/ptkdb/を使用してます。

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 21:41

すいませんGUIデバッガが必要なスクリプト書いたこと無いです(；´Д`)

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 23:20

すいませんGUIなんて書いた事ないです。

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 23:59

>>25-26
どうやったらメモリ使用量ってわかるの？

**名無しさん＠お腹いっぱい。** · 2001/06/11(月) 00:00

GUIってなに？
Giants Uzeeeeeeeeeee Itteyoshi!!! の略？

**名無しさん＠お腹いっぱい。** · 2001/06/11(月) 00:15

コテハン一言スレに誤爆した37です。
なんだかわからないままWin2000でPerl/TKのmake中。。。

**名無しさん＠お腹いっぱい。** · 2001/06/11(月) 00:20

>>32
Tcl/Tkは知らんから比べられないが、別に知らなくても良いんじゃないの？

…Perl/Tk使って何かした事は無いけどね(´∀`)

# Perl/Tk本はあるけどGUIプログラムを配布しようと思った事無いからね…
# 自分だけが使うツールにわざわざGUI付けるのもアホらしいし

**enhydra** · 2001/06/11(月) 00:41

>> 30
topとかlsこまんどのマニュアルをまんこまんどで見よ。です。

strictもwarningsもスピードなり消費リソースが気になるなら、コードをきれいにした後コメントアウトすれば済むし。おいら
は気にならないけど。
あとCGI.pm とか巨大なやつをWebアプリで使う時もmod_perlで親httpdにロードさせとけば子httpdで共有されるから実質的に
リソース(めもり)くわなくなるっすよね。
# おっとCGIよりなお話(汗)

32 · 2001/06/11(月) 00:42

>>33
さんきゅ！どこかでPerl/TK本見てくるよ！
ていうかmake失敗したんでこれから原因チェックせんと。

**enhydra** · 2001/06/11(月) 00:48

>> 34
いかん lsこまんどじゃ調べらんない(汁)
psコマンドのマニュアルをマンコマンドで見よ。の誤りっす。

**名無しさん＠お腹いっぱい。** · 2001/06/11(月) 00:51

>>35
WIn2000ってぇとActivePerl？
ならPPMで一発じゃん？＜Tk.pm

35 · 2001/06/11(月) 01:50

>>37
うぞ！？ PPMに？あった～ => http://www.ActiveState.com/packages/
ありがとー。

**_gunzip** · 2001/06/11(月) 01:52

Perl5.7.1-devel(with -DDEBUGGING,-DDEBUGGING_MSTATS,-D_REENTRANT)
-------------
sbrk()要求サイズ(PERL_DEBUG_MSTATS=1)

#(do nothing)
58392 bytes(6)

#use warnings;
284672 bytes(46)

#use CGI;
1232896 bytes(90)

**_gunzip** · 2001/06/11(月) 03:15

#↑書き込んだらNetscapeがgnome巻き込んで落ちた...。

>>13
256と言えば....Ascii256倍シリーズのPerl版でないかなあ....。
あれのC版（10年前?）は良かったし。

>>15
↑も参考に。
-DDEBUGGING,-DDEBUGGING_MSTATSスイッチを付けてコンパイルしたPerlで
環境変数PERL_DEBUG_MSTATSを1以上に設定してスクリプトを走らせると、
Perlインタプリタが利用するメモリに関する情報がいろいろ取得できます。

>>27-
殆ど話を聞かないけれど、VisualPerlってどんな感じなのかな？
たしかVisual Studio.NET Betaを持っている人は落とせた筈だけれど......。

自分の場合、GUIベースのデバッガと言えばDDDとかを偶に使う程度で、
大抵の場合 perl -d でケリが付きます。

**_gunzip** · 2001/06/11(月) 03:28

Tkもいいけれど、Gtk-Perlもよろしく。
#Gtk-Perlのサイトって皆無に等しいのが残念...。

リンク
http://projects.prosa.it/gtkperl/
http://personal.riverusers.com/~swilhelm/perlgtk/index.html
スクリーンショット
http://personal.riverusers.com/~swilhelm/gtkperl-tutorial/calendar.html#CALENDAR-FIGURE
http://personal.riverusers.com/~swilhelm/gtkperl-tutorial/spinbutton.html#SPINNER-FIGURE
http://personal.riverusers.com/~swilhelm/gtkperl-tutorial/tree.html#TREE-FIGURE

**名無しさん＠お腹いっぱい。** · 2001/06/11(月) 19:09

>>41
Gtk-Perlって、Windows版はないよねぇ。
Gtkは移植されているんだから期待してるんだけど。

Perl/Tkなら、WindowsでもXでもちゃんと動くんで気持ちいい。
これでMac版があったらなぁ。

**名無しさん＠お腹いっぱい。** · 2001/06/11(月) 23:15

>>41
んじゃ、自分でサイト立ててれば一挙解決ではでは？

**名無しさん＠お腹いっぱい。** · 2001/06/12(火) 20:24

perl\site\lib 以下って何MBぐらいありますか？

**名無しさん＠お腹いっぱい。** · 2001/06/12(火) 20:26

10MBくらい

**_gunzip** · 2001/06/12(火) 20:41

>>41
そこが残念なところだなあ.....。

ちなみに Gtk-Perl では、ちゃんとset_locale()呼んでおけば
日本語表示/編集共に問題なしです。

>>43
今作ってる所だょ。ヽ( ´ー`)ノ

>>44
34.1MBもあるが........。

**_gunzip** · 2001/06/12(火) 20:42

>>41 -> >>42
鬱だ。

**rubbish_lister** · 2001/06/12(火) 20:46

GTkなんてWindows使いの私には関係ないのさぁ（；；

**名無しさん＠お腹いっぱい。** · 2001/06/14(木) 22:55

生のファイルハンドルリファレンスをselectすると挙動がぁゃιぃ…。
select(*STDOUT{IO});
print STDOUT select(), "\n";

**名無しさん＠お腹いっぱい。** · 2001/06/15(金) 00:34

>>49
?なにがおかしい？

**名無しさん＠お腹いっぱい。** · 2001/06/15(金) 10:29

こんな大事なスレに気づかなかった。鬱だ。

>>18
船渡し問題のURLきぼーん。

正規表現のバックトラックで解いたの?
「正規表現エンジンで論理プログラミング」の例ってどっかにないかな。

>>9
>今までの$foo->[$n] が $foo[$n] (or $foo.[$n])で、$foo{bar} が %foo{bar} か.......。
>うう.......慣れるまでの辛抱か。
Damian Conwayも「最初は変な感じがしたけど、慣れたらこっちの方が
イイ!」だそうです。
http://yetanother.org/damian/talks/Perl6.pdf

**名無しさん＠お腹いっぱい。** · 2001/06/15(金) 11:11

>>52
船渡し問題
http://piza.2ch.net/test/read.cgi?bbs=tech&key=990503990

問題ｸﾚｸﾚ
http://piza.2ch.net/test/read.cgi?bbs=tech&key=989687023
この２つだよ。

52 · 2001/06/15(金) 11:12

あー、>>51です。

**名無しさん＠お腹いっぱい。** · 2001/06/15(金) 16:24

>>52
見てきた。どういう家族だ。笑い。

**名無しさん＠お腹いっぱい。** · 2001/06/19(火) 05:48

http://slashdot.org/developers/01/05/16/0054243.shtml
暴れてますなヽ(´ー｀)ノ

**名無しさん＠お腹いっぱい。** · 2001/06/20(水) 00:58

static が欲しいよう。

sub hoge{
　　static my $count = 0;
　

**名無しさん＠お腹いっぱい。** · 2001/06/20(水) 01:10

>>56
どんなメリットが？

**名無しさん＠お腹いっぱい。** · 2001/06/20(水) 01:32

>>57
グローバル変数みたいのを使いたくないから。

my $static = 0;
sub hoge{
　　if( .. ) $static++;

みたいのを良くやるので…。
何か良い方法あるのかな。（お手軽なやつで）

**_gunzip** · 2001/06/20(水) 01:58

>>58
#違うかな？

#!/usr/bin/perl

use strict;

{
    # $countにはincr_count(),decr_count(),get_count()経由でのみアクセス可
    my $count = 0;
    sub incr_count{ $count++ }
    sub decr_count{ $count-- }
    sub get_count{ $count }
}

print get_count();
incr_count();
print get_count();
decr_count();
print get_count();

**rubbish_lister** · 2001/06/20(水) 02:16

overloadを使えばstatic変数であるかのように振舞う変数を作成できるような気がする。
無理かな？

**名無しさん＠お腹いっぱい。** · 2001/06/20(水) 02:32

まずはやってみせることだ。

**rubbish_lister** · 2001/06/20(水) 02:51

楽なtieにしてしまった。

package Static;

use 5.6.0;
use strict;
use base 'Exporter';
our @EXPORT_OK = qw/ static /;

sub TIESCALAR{
my $class = ref($_[0]) ? ref(shift) : shift;
my $self = [];
return bless $self, $class;
}
sub FETCH{
my $self = shift;
my $callline = (caller(1))[2];
return $self->[ $callline ];
}
sub STORE{
my $self = shift;
my $value = shift;
my $callline = (caller(1))[2];
$self->[ $callline ] = $value;
}

sub static($) : lvalue{
no strict 'vars';
local *staticvar = \$_[0];
tie $staticvar, __PACKAGE__;
$staticvar;
}
1;
__END__

**rubbish_lister** · 2001/06/20(水) 02:52

ある一定の条件の下でstaticに見える変数を宣言可能。

#!/usr/bin/perl
use Static qw/ static /;

static my $i = 0;

foreach (0 .. 10){
print count1(), "\n";
}
foreach (0 .. 10){
print count2(), "\n";
}
sub count1{ return $i++;}
sub count2{ return $i--;}
__END__

但し…ネタにしかならない。

**rubbish_lister** · 2001/06/20(水) 17:18

# static.pm
package Static;
use base 'Exporter';
@EXPORT_OK = qw/ static /;

use strict;
sub TIESCALAR{
    my $class = ref($_[0]) || $_[0];
    my $self  = \do{ $_[1] };
    return bless $self, $class;
}
my @values;
sub FETCH{    $values[ ${ $_[0] } ];}
sub STORE{    $values[ ${ $_[0] } ] = $_[1];}
my @vars;
sub static($) : lvalue{
    no strict 'vars';
    local *staticvar = \$_[0];
    my($cline) = (caller(0))[2];
    tie $staticvar, __PACKAGE__, $cline;
    my $dumy;

    $vars[ $cline ]++
        ? $dumy
        : $staticvar;
}
1;
__END__

=head1 SYNOPSIS

    use Static qw/ static /;
    sub countup(){ static my $i = 0; return $i++ }
    print countup, "\n" for(0 .. 10);

=cut

一連の駄レススマソ。

**名無しさん＠お腹いっぱい。** · 2001/06/20(水) 20:30

>>62-64
なるほど。出現行数で変数を識別するのかー。
面白いっす。これってオリジナルのアイデア？

**rubbish_lister** · 2001/06/20(水) 21:06

オリジナルです。
>>62は思いついてすぐ作ったのでイマイチかな。
>>63は低速である事を覗けば実用化可能かな？
行番号で識別しているので"#line"などで行番号をいじると妙なことになりますが。

lvalueとtieを使うといろいろ遊べて楽しいですね。

**_gunzip** · 2001/06/21(木) 22:44

>>51
http://dev.perl.org/rfc/22.html
組み込みswitch-case文も導入(たぶん)ですね。
......とにかくC,C++,Javaみたいな"fall-through"がデフォルトでは無いようなので一安心。
# C# ではbreak,goto必須だし。

**名無しさん＠お腹いっぱい。** · 2001/06/22(金) 06:21

print文の成功した場合の戻り値1って数値1？文字列"1"？

**_gunzip** · 2001/06/22(金) 06:45

>>68
Perlのbool値はPL_sv_yes, PL_sv_noで表される。
/* perlvars.h */
PERLVARIC(GYes, char *, "1")
PERLVARIC(GNo, char *, "")

文字列リテラルさね。

**名無しさん＠お腹いっぱい。** · 2001/06/22(金) 21:10

>>56

perldoc -q static

**名無しさん＠お腹いっぱい。** · 2001/06/25(月) 17:13

Perlの資格試験ってある？

**名無しさん＠お腹いっぱい。** · 2001/06/25(月) 18:06

無いんじゃないかなヽ(´ー｀)ノ

**名無しさん＠お腹いっぱい。** · 2001/06/25(月) 23:28

>>71-72
と、いうことは。。。
いまPerlの資格試験を新設したら受験料で大儲けかも？
いや、家元制度＋段位制でもいいな。
Perl３級とか、Perl初段とかの免状を発行して大儲け。

**名無しさん＠お腹いっぱい。** · 2001/06/26(火) 00:11

>>73
なんで世界規模のものを日本規模の制度にするんだよ（ｗ

つーかネタか。

**名無しさん＠お腹いっぱい。** · 2001/06/26(火) 00:13

黒帯きぼーん（藁

**名無しさん＠お腹いっぱい。** · 2001/06/27(水) 16:13

>>1にも書いてあるInline.pmがプログラム技術板で話題になってるよ。
http://piza.2ch.net/test/read.cgi?bbs=tech&key=991994996&st=161

あっちの板の人は基本的にマルチリンガルだから、こういうの大好きなんだねえ。
おれとしては・・・面白そうだけど使わない、つーか使うテクがないなあ。

**名無しさん＠お腹いっぱい。** · 2001/06/27(水) 19:14

マルチリンガルって.....というかPerl一筋の人間は
殆んどいないと思うが...

**名無しさん＠お腹いっぱい。** · 2001/06/27(水) 19:51

みんなどんな言語使ってる？

**名無しさん＠お腹いっぱい。** · 2001/06/27(水) 22:18

C,C++,Perlとか。アマチュアよん。

**rubbish_lister** · 2001/06/27(水) 23:54

Perlしか知らないPerl厨房でーすヽ（´ー`）ノ

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 00:23

Perlの他には、VC++(MFC)を少々たしなむ程度。STLってなに？

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 12:17

>>81
STLはPerl使いにはうれしい機能(連想配列ﾓﾄﾞｷとか)がいろいろついてるのでぜひ覚えておくことをお勧めする。

**_gunzip** · 2001/06/28(木) 16:15

自分も趣味だなー
取りあえず使えるのは C,Perl,Java,C# とか。(C++は知らない)
その前はsed,awk(gawk)とかやってたけど、Perl憶えて以来不要になった。

---------
Perl for .NETって、Perlで書かれたコードを一度C#コードに変換してから
cscでコンパイルして実行モジュール、DLLを作るみたいだね。

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 16:49

趣味でやってます。
# 社内用にチョコチョコ作らされるけど

Perl・・・・厨房程度
PHP・・・・同上
VB・・・・同上
Ruby・・・・厨房以下
・
・
・
Mind・・・・挫折(ﾜﾗ
N88-Basic・・・・プロ級(ｳｿ

初めて作ったプログラムは FamilyBasic用ゲームプログラム。

S · 2001/06/28(木) 18:18

C++ … 厨房
C … 消防
Prolog … 園児

って感じです。

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 20:34

>>54
っていうかこの条件って誰か別の人が作ったゲームのヤツだ…
俺が見たやつはクリアするとアレなイベントが起きるっていうヤツだったけど。

＃アレって何よってのは察してくれ…

…パクリ？

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 22:00

>>73
某所で長らく話題にのぼりながら、一向に実現されないやつだな。
本因坊は決まっているのになあ。

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 22:05

某所？

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 22:06

>>86
え、そんな新しいものだったのか。
土人と宣教師みたいなトラディショナルなやつかと思ってたよ。

プログラミングの教科書にのってるわけじゃないの?

**_gunzip** · 2001/06/28(木) 22:09

光栄の大航海時代4に出てきたな・・・
提督 + 副官 + 謎の老人 + その友人　の4人バージョン

もしかしてそれのこと？

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 22:10

>>89
｜母がいないと父は娘に手を出す
｜父がいないと母は息子に手を出す
｜執事がいないと犬は家族を食い殺す
こんな問題のってる教科書があるかよ！

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 22:50

>>91
いや、おいらが最初に見たやつは、砂漠を行く話で、
「父」:=「王」
「母」:=「女王」
「息子」:=「皇子」
「娘」:=「皇女」
「執事」:=「猛獣使い」
「犬」:=「猛獣」
「手を出す」:=「殺す」
だった。

王位継承問題がこじれて……ってな設定をすれば、
十分教科書に出せると思うが。

ちょっとsearch spaceとかprologとか
missionaries and cannibalsとかで
サーチしてみたけど出てこなかったなあ。

**名無しさん＠お腹いっぱい。** · 2001/06/29(金) 02:28

>>92
中学校の数学サイトで発見！
http://www.edu-c.pref.kumamoto.jp/ws/kcmathws/zibunde/kawa2/kawa2.html
その「アレなイベントが起きる」とかいう問題を
中学教師がパクって無難な設定に変えた可能性も高いが。

**名無しさん＠お腹いっぱい。** · 2001/06/29(金) 12:11

>>89
いや、大元のネタはその辺りだと思うんだが。
手を出す食い殺すってのは、半年以上前（多分）に既に使われてるネタだってことだ。

＃つーかすれ違いスマソ

**名無しさん＠お腹いっぱい。** · 2001/06/29(金) 15:40

「トラやライオンが船をこぐ」設定→うそくせー
「手を出す食い殺す」設定→あるあるー
と思ってしまう俺はなにかに毒されているでしょうか。

**名無しさん＠お腹いっぱい。** · 2001/07/02(月) 17:48

Perl6について語ろう！

なな · 2001/07/02(月) 20:18

**Name_Not_Found** · 2001/07/02(月) 20:54

>>97
ﾜﾗﾀ

**名無しさん＠お腹いっぱい。** · 2001/07/02(月) 21:17

http://www.kabeya.net/linklink/navi.cgi?links=23
無修正です。

**_gunzip** · 2001/07/03(火) 01:08

http://www.perl.com/
デザインが変わったね。

**名無しさん＠お腹いっぱい。** · 2001/07/03(火) 12:24

>>100
use Perl;でも話題になってた。
Perlのメインサイトがオライリーっぽくなりすぎで興ざめだってさ。

**rubbish_lister** · 2001/07/03(火) 17:26

そういえばPerl6では文字列連結演算子はどうなるんでしょ。
矢印演算子？まさかね…。

**名無しさん＠お腹いっぱい。** · 2001/07/03(火) 21:19

>>102
ああ、それperl6-languageとperl6-internalsで話題になってたなあ。
Simon Cozensが「~」を提案して論争になってた。
どう終結したんだろう。

……(メールアーカイブを検索中)……

うむー、どうにもなってないなー。
Larryが反応するまで決まらなさそうだ。

興味のある人は "The Perl6 Emulator" から続く話をどうぞ。
http://archive.develooper.com/perl6-language%40perl.org/msg07598.html

**名無しさん＠お腹いっぱい。** · 2001/07/04(水) 13:12

>>103 最初から素直に "+" にしとけば問題なかったものを…。
"100" + "100" が 200 になるっつうのがそもそもの間違い。

**rubbish_lister** · 2001/07/04(水) 16:20

>>103
"~" ですか…。
$str = $str ~ $str; $str ~= $str;
うーん…なにか間違っているような気が（汗

素直に参照/メソッド起動はアロー演算子、文字列結合はドット演算子としておけばいいのに。

**名無しさん＠お腹いっぱい。** · 2001/07/04(水) 20:52

>>104
文字列連結と数値的加算という、意味も動作もまったく違うものに
同じ演算子を使うのは混乱の元だと思う。

演算子オーバーロードに関してはLarryが
　数学記号は数学的意味を表わす場合のみにしましょうね
という指針を示している。「+」を使っていいのは複素数とか行列みたいな、
交換法則と結合法則を満たすもののみに限定されるべきという話。

確かに文字列の連結って可換じゃないし、
逆演算を「-」で無理矢理定義してもピンと来ない。

文字列の連結に「+」を使うというのを最初に考えついた人って誰?
その人が素直じゃなかったんだと思う。Smalltalkのころ?
「末尾への連結」に「<<」を使うことを考えついた人もえらい。
常人の発想ではない。狂っている。

ストリームへの出力と配列へのpushを、
「末尾への連結と見れば同じ」と考えてかどうか知らないが、
「<<」という同じ記号っていうのも発想がすごい。
「>>」はきっとその逆演算なのだろうと予想できるが、
popなのかunshiftなのか、はたしてどっち?

Perl6のswitch文(仮名)もこの話と同類の気狂い仕様な気がするな。
これがRubyだと「メソッド===で比較」って言い方になって、
polymorphismというカプセルに入った結果、
同じ気狂い仕様なのに美しく見えるのは不思議だ。

**名無しさん＠お腹いっぱい。** · 2001/07/04(水) 22:11

　　　　うぐぅ～！意味わかんないよぉ～！
　　　＼＿＿＿＿　　　　　　　　　　＿＿＿＿／
　　　　　　　￣￣￣∨￣￣￣
　　　　　　　〃┏━━ 、
　　　　　　　 |　ノﾉｿﾊ)））
　　　　　　　（＼リﾘ;´Д⊂#ヽ
　　　　　　　(ﾆ⊂[#~~'∞"_ノ
　　　　　　　　　/＿＿∞_|
　　　　　　　　　し'（＿f）

**Perl好き** · 2001/07/04(水) 22:54

Perl6、なんかすげえ嫌なものになりそう。
今までRuby信者に汚いと罵られようと、感覚的にとても解りやすい言語だと思ってたが、
アロー廃止、$@%の意味変更は滅茶苦茶な愚行だ。

でももう決定事項なんだろうな。ああ鬱。
マジでRubyに移ろうかしら。

**名無しさん＠お腹いっぱい。** · 2001/07/05(木) 02:33

Perl6っていつリリースなんですか？

**名無しさん＠お腹いっぱい。** · 2001/07/05(木) 03:07

>>109
予想では再来年のPerl Conference合わせくらいじゃなかったっけ。

**名無しさん＠お腹いっぱい。** · 2001/07/05(木) 06:48

>>108
全くもって同感

**shige** · 2001/07/05(木) 11:19

Ruby最高！
イエイ！

**106** · 2001/07/05(木) 15:25

Rubyはねえ、加算と文字列連結の他に、
配列の連結にも「+」を使うからねえ……。
そういえばCでもポインタの加算という意味のまったく
違う仕事を「+」と書いていたなあ。

「Perlは様々な組込関数のデフォルト挙動を、
たくさん覚えないと使えないからイヤ」って意見をよく聞くけど、
「OO言語は一見同じ記号でもクラスによって全然違う動作をするんで、
たくさん覚えないと使えないからイヤ」とはあまり聞かないね。
むしろ「全然違う動作でも意識せず同じ記号で使える」とか利点として
紹介されている。

でもRubyの言語仕様書とか見てると、
OO言語って演算子オーバーロードなしには、
言語仕様も定義できないのかな、と思ってしまう。

JavaはC++の反省からか演算子オーバーロードできないけど、
結果としてなにがしかの利便性は失われているみたいだ。

Perl6になるとARRAYの「+」は連結になったりするのかなあ。
Larryが防波堤になってくれると信じてるんだけど。

OOスレ逝った方がいいな。スレ違いスマソ。

**名無しさん＠お腹いっぱい。** · 2001/07/05(木) 15:27

>>108
ま、Perl6でもPerl5のコードが走るはずだし、それに期待するしか。

**名無しさん＠お腹いっぱい。** · 2001/07/05(木) 16:32

なんか暗くなったね。

**名無しさん＠お腹いっぱい。** · 2001/07/05(木) 18:07

確かにﾏﾝｾｰﾏﾝｾｰと騒ぐ気にはなれない…。
うーん……

**名無しさん＠お腹いっぱい。** · 2001/07/06(金) 05:20

気分転換にPerl/Tk2chブラウザでも応援するか。

http://corn.2ch.net/test/read.cgi?bbs=php&key=991966646

**名無しさん＠お腹いっぱい。** · 2001/07/06(金) 06:45

ﾏﾀｰﾘ

**名無しさん＠お腹いっぱい。** · 2001/07/06(金) 10:18

ｸﾞﾀｰﾘ.

**名無しさん＠お腹いっぱい。** · 2001/07/06(金) 22:49

ｹﾞｿｰﾘ

**名無しさん＠お腹いっぱい。** · 2001/07/08(日) 22:16

ｿﾞﾇｰﾘ

**名無しさん＠お腹いっぱい。** · 2001/07/09(月) 02:39

ActivePerl v5.6.1.628
なにがかわったん？

**名無しさん＠お腹いっぱい。** · 2001/07/09(月) 02:53

>>122
知らん。
俺も知りたいYO！

**名無しさん＠お腹いっぱい。** · 2001/07/09(月) 10:27

perl6はやくでないかなー

**名無しさん＠お腹いっぱい。** · 2001/07/09(月) 11:06

5.7.2ってもう出たっけ?
試してみた人いる?

**名無しさん＠お腹いっぱい。** · 2001/07/15(日) 22:57

age

**名無しさん＠お腹いっぱい。** · 2001/07/16(月) 01:33

>>125
でてるよー。
http://search.cpan.org/search?dist=perl-5.7.2

僕はあえてdevelに挑戦するつもりないけど...。

**_gunzip** · 2001/07/16(月) 21:00

Perl5.7.2、コンパイルしてXSデバッグ用ディレクトリに
入れてみたけれど、unicode周りが変更になった他は
大して変わっていないみたいだね。

最近CPAN2の存在を知った・・・
http://cpan2.org/

**名無しさん＠お腹いっぱい。** · 2001/07/16(月) 21:32

ちょい質問良いですか。
#!/usr/bin/perl
BEGIN{
use overload '<<' => sub{
my($self, $str) = @_;
print {$self} $str;
return $self;
};
my $stdout = bless \*STDOUT;
*out = sub(){ $stdout };
}
exit;

out << "==========終了済み==========" << "\n";
__END__

このコードなんですが、実行するとexit()しているのも関わらず
"終了済み"と印字されます。
$stdoutがグローバル変数だったり
out()をsub out(){$stdout}で宣言すると何もせず終了します。
これはどういうことなんでしょうか。

環境：
WindowsMe ActivePerl 5.6.0.623

**_gunzip** · 2001/07/17(火) 05:56

>>129
何故だろう？ちょっと調べてみる。

**_gunzip** · 2001/07/17(火) 06:47

>>129
ふぅ。オプティマイザの副作用の気がするなあ。

Perlが与えられたスクリプトを実行する際、コンパイルと実行段階の間に
オプティマイズという段階があって、定数値の埋め込み、
余計なシンボルテーブル検索の削除等を行うことになっている。

例えば、
print 4 + 5;
は、始めのOPコードへのコンパイルの段階で
「4(const)と5(const)をスタックにプッシュ、次にスタックから二つ値を取り出し、
それらを加算(add)、その値をprintで標準出力に出力せよ」
というコードが生成されるのわけだけれど、
Perlのオプティマイザは4と5が数値定数であるから、これらを予め計算して
「9をprintで標準出力に出力せよ」
というコードに修正する。（Perlのオプティマイザの働きについては
他にも色々とあるので、詳しく知りたければop.cのpeep()でも眺めてくれ）

**_gunzip** · 2001/07/17(火) 06:48

------------
で、今回の場合、問題の
out << "==========終了済み==========";
についてだけれど、(ちょいと端折った)
out はBEGINブロックのpadlist内に閉じこめられた$stdoutを常に返す
*プロトタイプが空の*サブルーチンなので、オプティマイザによって
その返す値 $stdout に置き換えられる。
(サブルーチン呼び出しに伴う負荷を押さえるために、プロトタイプが空であり、
かつ定数値を返すものはその値に置き換えられることになっている。
constantプラグマなどがその良い例。)
(但しこれは正確ではない。&をつけて呼び出されたものは置き換えられない事に注意。)

で、次
「$stdout (blessed "main")」<< "==========終了済み==========";
シフト演算子"<<"（Perl内部の"left-shift"コード）の子は
何れも定数であるため、オプティマイザは（上でも見たように）
これを予め実行した結果に置き換えようとし、その結果、オーバーライドされた
メソッド(3-7行目)が呼び出され、「"==========終了済み=========="」が出力される、
というわけ。

これらは全て**実行段階前**に行われるので、exit()やdie()の順序は意味を持たない。

試しに、
*out = sub(){ $stdout };
の()を外したり、後ろのout呼び出しに&プレフィックスをつけると、
表示されなくなることを確かめてみればいい。

#いつもながら、間違っている箇所があれば訂正してくれると嬉しい。

**名無しさん＠お腹いっぱい。** · 2001/07/17(火) 07:07

_gunzipたん萌え

**名無しさん＠お腹いっぱい。** · 2001/07/17(火) 07:34

>>_gunzip
あなたマジすげえ。

**129** · 2001/07/17(火) 14:56

なるほど！
コンパイル時に実行される計算だったわけですか。
確かに-cスイッチの元で実行しても"終了済み"と印字されました。

しかし、"*out = sub(){...}"を"sub out(){...}"に変更すると
そのような置き換えは発生しないのですが、これは何故なんでしょうか。
お手数かけますが、教えてください。

>>133-134
激しく同意っす。

**_gunzip** · 2001/07/17(火) 17:43

>>135
>しかし、"*out = sub(){...}"を"sub out(){...}"に変更すると
ちょっと確認するけれど、これは
-----------------------------------
#!/usr/bin/perl
BEGIN{
    use overload '<<' => sub{
        my($self, $str) = @_;
        print {$self} $str;
        return $self;
    };
    my $stdout = bless \*STDOUT;
}
sub out(){ $stdout };
exit;
out << "==========終了済み==========" << "\n";
------------------------------------
のようにoutの宣言をBEGINブロックから外に出した場合だよね？

**_gunzip** · 2001/07/17(火) 18:02

-----------------------------------
#!/usr/bin/perl
BEGIN{
    use overload '<<' => sub{
        my($self, $str) = @_;
        print {$self} $str;
        return $self;
    };
    my $stdout = bless \*STDOUT;
    sub out(){ $stdout };
}
exit;
out << "==========終了済み==========" << "\n";
------------------------------------
ならOKだが....。
サブルーチンがインライン化されて定数値に置き換えられるためには
そのサブルーチンのプロトタイプが空であり、かつ、その返す値が
単なる定数値(4とか"hello"とか)であるか、又は、
**レキシカルスコープを持ち、かつ他から一切参照されない**
(この場合の$stdoutがそう)スカラー値でなくてはならない。

**129** · 2001/07/17(火) 18:16

あれ？
ぬぬ、>>137のつもりでしたが確かに>>137ならOKでした。
勘違いだったらしいです。ｽﾐﾏｾｿ。

**名無しさん＠お腹いっぱい。** · 2001/07/18(水) 07:51

お、今search.cpan.orgをみるとTie::Staticなるモジュールが。
基本的な考え方は>>64と変わらないものの、
IDに安全な値を使っているのでTie::Staticの方がマトモか…。
しかし見ていて飽きないですね、CPAN。

**_gunzip** · 2001/07/18(水) 23:41

日本人でCPAN登録者って居るのかな....？
（Jcode.pm以外見たことがない）

**名無しさん＠お腹いっぱい。** · 2001/07/18(水) 23:49

perl に付いては凄いがメール欄は凄くない(・∀・)

**名無しさん＠お腹いっぱい。** · 2001/07/18(水) 23:58

>>140
CGIメーリングリストの人に何人かいなかった？

**名無しさん＠お腹いっぱい。** · 2001/07/19(木) 00:00

SpreadSheet::ParseExcelも日本人

**名無しさん＠お腹いっぱい。** · 2001/07/19(木) 00:01

>>140
DBI MLのかわいさん (例のエクセルのやつとか、バーコードのやつ）とか
perl-ooのみやがわさん（macバイナリカッターとか）とか
20人ぐらいはいると思う。

# どうでもいいけど、梅田紀伊国屋コンピュータ書コーナー配置換え。
#もともとおかしかったけど、さらに逝って良しな書店になった。
#場所は便利なのになあ。

**名無しさん＠お腹いっぱい。** · 2001/07/19(木) 00:05

日本人いますよ。
といってもこのJcode.pm含めて3人しか知りませんが。
…しかも全部文字コード関係だし（＾＾；
http://search.cpan.org/search?dist=CGI-ConvertParam
http://search.cpan.org/search?dist=ShiftJIS-Regexp
http://search.cpan.org/search?dist=Jcode
ガンバレ日本人！

ところでcpan2とsearch.cpanって何処が違うんでしょ。
付加分散の為？

**JAPU** · 2001/07/19(木) 00:30

こんなのもあるぞ。
http://search.cpan.org/search?dist=Roman

**_gunzip** · 2001/07/19(木) 05:57

>>142 いや、 CGIメーリングリストには入っていないので....。
>>143 あ、ど忘れしてました。川合氏ですね。（バーコードも）
>>144
macバイナリカッターの方は初耳だった....。
梅田紀伊国屋といえば、何時行っても人が多い
&& コンピュータ書コーナーは隅っこで本も少な目という印象があるな...。
京橋紀伊国屋が出来てからは、大抵そこで済ますようになったし、
無ければ新地のジュンク堂に行けばいいということもあって、梅田の方には最近殆ど行かない。

>>145
いろいろ教えてくれてありがとう。
search.cpan2.orgもあるみたい.。（中身は何もないけれど）
http://search.cpan2.org/
やはり負荷削減のためか.....。
http://take23.org/news/2001/01/26/cpan2.xml

>>146 ありがとうございます。探せば色々と有るものですね。

# 自分も何か貢献出来るようなネタがあるかな...と思ったが....
# CPANを探せば大抵は揃っているようですね。

2001/07/19(木) 06:30

Cの構造体みたいな書き方で
$s = new A();
$s->foo = "hoge";
$s->bar *= 50;
（foo, barはメンバ）
みたいな書き方は出来ますか？
トリッキーなのでもイイです。

**_gunzip** · 2001/07/19(木) 06:47

>>148
lvalue属性を使えば簡単に実現出来るよ。
詳しくはperldoc perlsubの"lvalue subroutine"セクションや、
attributeプラグマのマニュアルを読んでくれ。

#!/usr/bin/perl -w

package Point;

use strict;
use overload q{""} => sub { sprintf("(%d,%d)", $_[0]->x, $_[0]->y) };

sub new
{
    my $class = shift;
    return bless { x => $_[0], y => $_[1] }, $class;
}

sub x :lvalue method
{
    shift->{ x };
}

sub y :lvalue method
{
    shift->{ y };
}

package main;

our $p = new Point(1, 15);
print "\$p = $p\n";

#X座標を5倍、Y座標に20代入
$p->x *= 5;
$p->y = 20;
print "\$p = $p\n";

**名無しさん** · 2001/07/19(木) 07:42

http://hp.vector.co.jp/authors/VA017578/software.html
ここのShellExtCtrlってソフト
結構使いやすい
Windowsで.plファイルが.batみたいに使えるようになる

**名無しさん＠お腹いっぱい。** · 2001/07/19(木) 10:32

>> 150

ActivePerl付属の pl2bat じゃだめなの？
ドロップすれば @ARGVにファイル名が入るのは一緒だし。

**名無しさん＠お腹いっぱい。** · 2001/07/19(木) 19:00

pl2batよりはSOSを奨励したい。
パイプ繋がるから。

**148** · 2001/07/19(木) 23:16

>>149
Thanks!

わ、 · 2001/07/20(金) 03:51

**名無しさん＠お腹いっぱい。** · 2001/07/20(金) 06:56

こんな質問、いいのかな・・・。

最近perlを憶えたのですが、自分で色々課題を出して解こうとしています。
しかし記念すべき第一号の課題から躓いてしまっています・・・。

あるディレクトリ内にファイル名に全く統一性のないファイルが複数あるとします。
そのファイルのどれだか分からない一部のファイル群に『HOGEHOGE』という文字
があり、それを『FUGAFUGA』という文字に変更するにはどうすれば良いのでしょう
?HOGEHOGEという文字は一つのファイルに一度しか出てきません。

スクリプトを作ろうとしたのですがうまく行かず、結局ここの方に頼ることに・・・。
また、この作業をperlを使ってコマンドラインから実行する方法も是非。

**名無しさん＠お腹いっぱい。** · 2001/07/20(金) 07:39

>>155
どちらかと言うとPerl初心者コーナーの方が適当だと思いますが。

とりあえずヒントだけ。
rename($oldfile => $newfile); # 名前変更
use IO::Dir;
@files = IO::Dir->new($dir)->read; # ディレクトリ$dirにあるファイル名全てを得る

**名無しさん＠お腹いっぱい。** · 2001/07/20(金) 12:26

perl -e"for(<*HOGEHOGE*>) {$old=$_;s/HOGEHOGE/FUGAFUGA/;rename($old,$_);}"

カレントディレクトリ（サブディレクトリは除外）限定の場合

**155** · 2001/07/20(金) 18:30

>>156
>>157
すみません。訊き方方が悪かったです。
HOGEHOGEはファイル名ではなく、ファイルの中に書いてある内容です。

**名無しさん＠お腹いっぱい。** · 2001/07/20(金) 20:27

>>155
まずうまく逝かなかったスクリプトを上げるべきだと思うのだが、
いかがかな？

それが無いようであれば、「教えて君」と見なし、以後放置するよ。

**155** · 2001/07/20(金) 23:36

ごめんなさい。
【Perl 】初心者コーナーPart5に移動しました。

**名無しさん＠お腹いっぱい。** · 2001/07/23(月) 23:33

誰かASのVisualPerlのβ版使ってる？感想ｷﾎﾞﾝﾇ。

**_gunzip** · 2001/07/25(水) 20:21

http://aspn.activestate.com/ASPN/Downloads/PerlNET/
Perl.NETはbeta3になっているけれど、試した人いるかな？
（今のところWindows2000,NTでしか動作しないそうなので試せない。）

Perl.NETで、MS Windows上でもPerlで単体実行ファイル（PEじゃないが）や、
DLLを作り、それを C#, C++,JScriptから呼び出したり、逆にC#, C++のクラスライブラリを
Perlから簡単に利用できるようになるらしいな。（実際は知らんが）

**名無しさん＠お腹いっぱい。** · 2001/08/05(日) 06:15

use strict;;;foreach(ord(
pack(chr(++$*+$*+++$**$*.
$*),$=))+--$* .. ord(pack
(chr($*+$*+++$**$*.$*),$=
))+--$*+$*++-(($*-$***$*)
)+$*+++$***$*-$*---$**$*,
$***$***$**$*){push@_,$_}
;foreach($***$**$*+$*/$*,
$***$**$**$*+$**$*,$***$*
*$**$*+$*,$***$**$**$*+$*
*$*-$*/$*,$**$**$**$**$*-
$**$**$*+$*,$*-$*,$**$***
$**$*-$*-$*/$*,$**$***$**
$*-$*,$***$***$*+$**$*-$*
/$*,$**$**$*-$*/$*,$**$*,
$***$***$*+$*/$*,$**$**$*
*$**$*-$**$**$*+$*,$***$*
**$*-$*/$*,$**$*,$***$***
$*+$*/$*,$***$**$*+$*+$*/
$*,$***$**$**$**$*-$**$**
$*+$*,$***$**$*-$*/$*,$*-
$*,$*,$***$**$*+$*,$**$*,
$***$**$**$*+$*/$*){print
pack(chr$**$**$**$**$**$*
+$**$*+$*/$*-$*,$_[$_]);}

こんなことして遊んでいる方とかいますか？
いたら是非あなたの作品を見せてください。

**名無しさん＠お腹いっぱい。** · 2001/08/06(月) 00:10

プログラミングPerlの初版って赤色?
改訂(日本語)は青だよね?

**名無しさん＠お腹いっぱい。** · 2001/08/06(月) 00:11

ごめんなさい。
参考書スレッドがありました。
そっちにコピペします。

**名無しさん＠お腹いっぱい。** · 2001/08/06(月) 12:33

>>163
うーん、その手の話題はプログラム板とかのほうが食いつきがいいんでは？
回文プログラムとかトリッキーなプログラムとかのスレあるし。

**名無しさん＠お腹いっぱい。** · 2001/08/09(木) 03:07

cpan2 どうなっちゃってるのかな。
http://www.cpan2.org
http://www.cpan2.com

**名無しさん＠お腹いっぱい。** · 2001/08/13(月) 14:23

2chのdatとかの<>区切りのデータを切り分けるときって、
my ($name, $mail, $date, $contents) = split /<>/, $line;
ってやるよりも
$line =~ /(.*?)<>(.*?)<>(.*?)<>(.*?)/;
my ($name, $mail, $date, $contents) = ($1, $2, $3, $4);
ってやったほうが速いんですね。
見やすい、書きやすい以外のsplitを使う理由があれば教えてください。
また、もっと速い方法があるならばそちらも教えていただけませんか？

**名無しさん＠お腹いっぱい。** · 2001/08/13(月) 15:27

>168
嘘はいけません。
my ($name, $mail, $date, $contents) = split /<>/, $line;
こっちの方が圧倒的に早い。
データ量によっては、
my @data = split /<>/,$line;
の方が早い。
my は付けない方が早い。

ちなみにスレ違い。このような話題は初心者コーナーへ。

**名無しさん＠お腹いっぱい。** · 2001/08/13(月) 17:00

>>169
別に嘘を言いたかったわけではなくて、
use Benchmark;
my $line = "name<>mail<>date<>contents";
timethese(100000, {
foo => sub { my ($name, $mail, $date, $contents) = split /<>/, $line },
bar => sub { $line =~ /(.*?)<>(.*?)<>(.*?)<>(.*?)/;
my ($name, $mail, $date, $contents)= ($1, $2, $3, $4); }
});
ってやったときに、barの方が速いという結果が出たから質問したんですが・・・・
これは何故ですか？

あと、どこまでが初心者コーナー行きかの線引きがわかりません。
私としては、初心者コーナーはリファレンスを引けばわかるようなことを
やるところだと思っていたのですが。

**名無しさん＠お腹いっぱい。** · 2001/08/13(月) 17:38

>>168　>>170
use Benchmark;
my $line = "name<>mail<>date<>contents";
timethese(100000, {
bar => sub { my ($name, $mail, $date, $contents) = split /<>/, $line },
foo => sub { $line =~ /(.*?)<>(.*?)<>(.*?)<>(.*?)/;
my ($name, $mail, $date, $contents)= ($1, $2, $3, $4); }
});
ってやったときに、barの方が速いという結果が出るのですが、
何故だか分かりますか？(>>170 のfooとbarを入れ替えている)

>>初心者コーナーはリファレンスを引けばわかるようなこと
まさしく貴方は初心者コーナーへどうぞ。

**名無しさん＠お腹いっぱい。** · 2001/08/13(月) 19:51

foo => sub {
my ($name, $mail, $date, $contents) = split /<>/, $line
},

bar => sub {
$line =~ /(.*?)<>(.*?)<>(.*?)<>(.*?)/;
my ($name, $mail, $date, $contents)= ($1, $2, $3, $4)
}
#-----------------------#
Benchmark: timing 100000 iterations of bar, foo...
bar: 12 wallclock secs (10.19 usr + 0.00 sys = 10.19 CPU) @ 9817.40/s (n
=100000)
foo: 7 wallclock secs ( 5.93 usr + 0.00 sys = 5.93 CPU) @ 16866.25/s (
n=100000)

**名無しさん＠お腹いっぱい。** · 2001/08/15(水) 00:30

# なんの役に立つかは知らんけど、SelectSaverのopen版
# どうでっしゃろ。
package OpenSaver;

use strict;
use Carp;
use Symbol;

use constant SAVE_FH    => 0;
use constant ARG_FH    => 1;
use constant OPEN_MODE    => 2;

my $pkg = __PACKAGE__;
sub new{

    my $class = ref($_[0]) ? ref(shift) : shift;
    @_ or croak("$pkg: usage $pkg->new(opned-FileHandle, file[, mode]");

    my($fh, $file, $mode) = @_;

    $mode ||= do{ $file =~ s/^([+<>]+)//; $1 || '<'};
    my $self  = bless [
            gensym(),
            qualify_to_ref($fh, caller),
            _open_mode_string($mode)
        ], $class;

    open $self->[SAVE_FH], "$self->[OPEN_MODE]&" . fileno($fh) or croak("$pkg: open error:$!");
    open $self->[ARG_FH],  "$mode$file" or croak("$pkg: open error:$!");

    return $self;
}
sub DESTROY{
    my $self = shift;
    open $self->[ARG_FH], "$self->[OPEN_MODE]&" . fileno($self->[SAVE_FH]);
}

sub _open_mode_string {
    my ($mode) = @_;
    $mode =~ /^\+?(<|>>?)$/
      or $mode =~ s/^r(\+?)$/$1</
      or $mode =~ s/^w(\+?)$/$1>/
      or $mode =~ s/^a(\+?)$/$1>>/
      or croak "$pkg: bad open mode: $mode";
    return $mode;
}
1;
__END__
#usage
use OpenSaver;
{
my $opensaver = new OpenSaver(STDOUT, 'test.txt', 'w') or die $!;
print "This is test.txt\n";
}
print "This is display\n";

**名無しさん＠お腹いっぱい。** · 2001/08/16(木) 00:03

今過去ログ読み漁ってたんだけど>>10のって面白いね。
自分でも色んなコマンドもどき書いてるんだけど全然違います(-▽-;
モジュールの使い方とか参考になるなぁこれ、

**恥ずかしながら** · 2001/08/17(金) 01:35

正直、自分はPerl本に赤ラクダしか持ってないのであります。
それ故、オブジェクト指向的な書き方が未だに分からないのであります。
自分の書くコードはPerl4とPerl5がイビツに混じっているのであります。

逝ってよしでありますか？

**名無しさん＠お腹いっぱい。** · 2001/08/17(金) 10:43

>>175
日本のPerlを書く人(というかCGIを書くのにPerlを使ってるヒトか)の9割方(感覚値)がそんな感じだろうから気にしないでいいよ。
裾野が広いから色々在るのは当然。んでもそのままだと、恥ずかしい思いをすることも在るので Effective Perlや perldoc perlstylを一読することを激しくお勧め。

http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
http://www.kt.rim.or.jp/~kbk/perl5.005/perlstyle.html

**名無しさん＠お腹いっぱい。** · 2001/08/19(日) 02:16

PerlOSってどうなったんデシか？

**名無しさん＠お腹いっぱい。** · 2001/08/19(日) 02:36

いや流石にPerlでOSは…(ﾜﾗ
コンパイル可能（？）なPerl6でなら…誰かやるのかねぇ。

**名無しさん＠お腹いっぱい。** · 2001/08/19(日) 02:43

>>178
カーネルとPerl処理系のみで、システムは全てPerlで書くとか。
ダメかなぁ。知識０厨房でスマソ。
でもこれだったらスゴック小さい＆軽いOSができそうだけどなぁ。

**名無しさん＠お腹いっぱい。** · 2001/08/19(日) 03:54

>>179
軽くはないでしょう・・

**sage** · 2001/08/19(日) 16:15

>>177
http://www.perl.org/

**恥ずかしながら175** · 2001/08/20(月) 04:52

>>176
ありがとうであります。
新しい書き方も取り入れて行こうと思う次第であります。

**１１１** · 01/08/27 09:56

>>111
すみません、誤爆です。
逝ってきます。

**１８３** · 01/08/27 10:08

>>183
すみません、誤爆の謝罪を誤爆してしまいました。
申し訳ない。

**名無しさん＠お腹いっぱい。** · 01/09/05 16:01

プロンプト表示して逐次処理するのってどうするんでしょうか
Cのgetchar みたいなんすけど、、ARGV??
つーかプリント文が流れて逝くだけだし、、、俺ってあほですか?

**名無しさん＠お腹いっぱい。** · 01/09/05 16:09

>>185
うん。

#!perl
use constant PROMPT => '（　´∀｀）>';
print PROMPT;
while (<>) {
　　　　chomp;
　　　　system $_;
　　　　print PROMPT;
}
__END__

**名無しさん＠お腹いっぱい。** · 01/09/05 17:09

ぐはあ、STDINだたのか　　(痴
逝って来ます　　　　アホだ。。。

**名無しさん＠お腹いっぱい。** · 01/09/06 20:41

File::statとかTime::localtimeとかFile::chdirみたいに
組み込み関数をかなり違う動作をする関数でオーバーライドするのってどうよ？

$s = new File::Stat('foo);
$t = new Time::Localtime(time);
$c = new ChdirSaver ('..');

などの方が読みやすく安全だと思うのだが。

**名無しさん＠お腹いっぱい。** · 01/09/07 11:56

>>188
同感。普通のコード書く時はそうですよね。
ただﾜﾝﾗｲﾅｰを書く時はオーバーライドしてくれた方が便利という背景もある。
@EXPORT じゃなくて @EXPORT_OK に書いてくれてれば良いのにね。

**名無しさん＠お腹いっぱい。** · 01/09/07 14:36

別にオーバーライドさせたくなければできますよ。
use File::Stat ();
@EXPORT に入ってるのはあくまで「デフォルト」でEXPORTするだけです。
空リストをuseに渡せばOK。
$st = File::stat($file);

**188** · 01/09/07 18:42

>>190
そりゃそうだが、デフォルトでエクスポートするのが気に入らん、って事。
だからどうしたと言われりゃそれまでだが。

**名無しさん＠お腹いっぱい。** · 01/09/08 00:16

なるほど。
組み込み関数の名前をオーバーライドするってのは、
こんな使えない組み込み関数は捨てちまえ！俺のモジュール使え！という
モジュール作成者の自信をあらわすものだったりして。

**名無しさん＠お腹いっぱい。** · 01/09/08 23:45

TERM:capの使い方教えれ。

**名無しさん＠お腹いっぱい。** · 01/09/09 16:18

今コマンドみたいなのを色々書いてるんですが、入力の受け取りで困ってます

cp ./tmp/hoge './tmp/h u" g a' "./tmp/target'dir"
こう言う入力がSTDINから有ったとして、これを上手に

@argment = ('./tmp/hoge','./tmp/h u" g a','./tmp/target'dir');
つまりShellに与えた時の引数の解釈と同じ動作がしたいのです。

正規表現で削ってみたりと苦戦してみたのですが、引数の数は不定な事も
有って完全にShellと同じ動きをするのは不可能な気がしています。
今は1byteづつ積み上げて解釈するしかないのかなと思ってます。
参考になるソースなんかは無いでしょうか。出来ればperlなら感激なんですが
よろしくお願いします。

**１９４** · 01/09/09 16:31

ちょっと説明が変ですね、perlshell.plを起動するとそこから
処理モードに入るんです、各コマンドのサブルーチンは大体出来ていて
例えば、
$./perlshell.pl cp ./tmp/hoge './tmp/h u" g a' "./tmp/target'dir"
こんな感じなら上手く行くのです(シェルが綺麗に@ARGVに収めてくれるので)
ところが$./perlshell.pl として起動して
perlshell$←入力待ち
cp ./tmp/hoge './tmp/h u" g a' "./tmp/target'dir"
とした時の<STDIN>からの入力の処理が出来ないのです。
ここに

**名無しさん＠お腹いっぱい。** · 01/09/09 16:40

>>194
もう少しマトモかつ具体的な例を頼む。

**１９４** · 01/09/09 17:08

すいません、>196
つまりShellをエミュレートしたいのだと思います。
tcshから、./perlshell.pl　とタイプすると
perlshell$　こう言うプロンプトが出ます。
そこに
cp "dist1" "dist2" "dist3" "target"　と入力した時の
<STDIN>からの入力を上手に配列(上なら("dist1","dist2","dist3","target"))
に収めたいのです。
今bashのソースを拾ってきたのですが、何故か心が重いです･･･

**名無しさん＠お腹いっぱい。** · 01/09/09 18:08

それなら><|等の処理もした方が良くないか？
と思いつつ少し考えてみる。

とりあえず
http://www.din.or.jp/~ohzaki/perl.htm#Tag_Remove
でも読みながら考えていろ。

**１９４** · 01/09/09 21:46

ありがとう御座います、>198
シェルのソース見てみたんですが、Cが殆ど読めないので良く分かりません
でした、ただそれらしきループが有ったんでやはり1byteづつ切り出してる
んだと思います。

取り合えずsubstrで1byteづつ切り出してるんですが、難しいです。
フラグだらけで訳が分からなくなってきた。
まずは ' の中では " が使える、" の中では ' が使える。
これを目指して頑張ってます。
パイプとリダイレクトはどうしようかなぁ、何か無理っぽいです。

**名無しさん＠お腹いっぱい。** · 01/09/09 21:53

$cmd = <SHIFT>;
print `$cmd`;
で

$ perlshell rm -rf /

じゃだめなの？