新しくperlで標準で欲しい関数は？ (203ﾚｽ)
上下前次1-新
64(2): _gunzip 01/12/30 06:28 ID:??? AAS
>>43 50
PerlIO::TextCodecクラスみたいなのが追加されたら便利かも。
(´-`).｡ｏＯ（以下↓は妄想.....）
*------*
#!/usr/bin/perl6
use IO;
my $in = new IO::TextStream(@ARGV[0]); #Perl6の配列要素参照は@array[index]
my $out = new IO::TextStream(@ARGV[1]);
$in.open("r") or $out.open("w") or die "open() failed";
$*in is chomped; # 入力は自動的に改行を削除
省14
65(1): _gunzip@書けるの？ 01/12/30 06:30 ID:??? AAS
>>60
Perl6では可能ですよ。詳しくは
RFC025 外部ﾘﾝｸ[html]:dev.perl.org と、
Apocalypse 3<Operators> の "multiway comparisons" の項を見てね。
外部ﾘﾝｸ:dev.perl.org
>>62
RFC26 外部ﾘﾝｸ[html]:dev.perl.org で提案され、Perl6で
取り入れられる予定です。Damian Conway氏のExegesis 2
"Take that! And that!" に実例が出てきます。
また、省略時パラメータは //= で行います。
省13
66: 名無しさん＠お腹いっぱい。 01/12/30 11:50 ID:??? AAS
>>65
良くわからんけど、仮引き数は全部constになるのかな
つまり、内部的に実引き数へのポインタが@_で@_へのポインタが
仮引き数になるけど、仮引き数のプロパティはconstantになるとか何とか････
んー、結構良いけど何となく嫌 (＾ｰ＾;
Damian 氏はC++ファンなんだろうか･･･
67: 名無しさん＠お腹いっぱい。 01/12/30 16:53 ID:??? AAS
>>64
Perl5でも同じことが出来ませんか。
68: 名無しさん＠お腹いっぱい。 01/12/30 16:58 ID:??? AAS
できる。それぐらいは分かってるだろ。
69: 名無しさん＠お腹いっぱい。 01/12/30 18:00 ID:neJVFUng(1) AAS
>>64
げげ、Perl6 で配列要素の参照方法変わるんですか...
70: 名無しさん＠お腹いっぱい。 01/12/30 22:41 ID:??? AAS
標準でってことですか。失敬。
71: １＝東京kitty [ｄｄ] 01/12/30 23:25 ID:??? AAS
結構続いてるな（ぷっ
72: 名無しさん＠お腹いっぱい。 02/01/03 15:02 ID:2yvOBGYW(1) AAS
本物の匿名型グロブを返すgensym()が欲しい。
いやなんとなく。
73(1): 名無しさん＠お腹いっぱい。 02/01/03 16:00 ID:??? AAS
もうすこし精度の良い乱数が欲しい。
74: 名無しさん＠お腹いっぱい。 02/01/03 19:37 ID:??? AAS
>>73
外部ﾘﾝｸ[html]:www.math.keio.ac.jp
なんかがよさげですね。。C,C++の標準関数になればみんな幸せになりそうですが・・
75: 名無しさん＠お腹いっぱい。 [age] 02/01/17 02:17 ID:??? AAS
あげ
76: ４６９ [あえらえらえｒｙ] 02/04/21 09:11 ID:??? AAS
コテハンってウザイね。
77: 02/04/21 10:45 ID:mSKVAdKd(1) AAS
>>49
%a=(%b,%c);
じゃだめか？
78(1): [sa\x00ge] 02/04/21 16:42 ID:??? AAS
コテハンってウザイね。
79: 02/04/21 16:47 ID:??? AAS
>>78
ﾁｬﾝﾁｬﾗﾁｬﾝﾁｬﾗ
（⌒） /
（＾ ＠＾） -
（⊃⊂） ヽ
ｵｯｶｼｰ
（⌒） /
（・ ＠＾） -
○（ ⊂） ヽ
80(1): 02/04/21 17:38 ID:??? AAS
#include "perl6.h"
#include "perl6/dbi.h"
// usage: program perl-expr files
int main(int argc, char** argv){
PERL6_MAIN_BEGIN;
Perl::SV dbh = Perl::DBI::connect("dbi:foo:bar.db");
Perl::SV sth = dbh->prepare("SELECT * FROM hoge");
sth->execute();
Perl::SV row;
省8
81(1): [ｓｈｒ] 02/04/21 18:15 ID:??? AAS
>>80
それは何？
C/C++のコードではないようだし。
82: 81 02/04/21 18:37 ID:??? AAS
C++だった。ハズカシ
83(1): ぺるにゃん 02/04/28 20:10 ID:gfGqCBjT(1) AAS
sort のお話ですにゃ。
今の Perl は、巨大な配列を sort すると、効率が悪くなります；；
@sorted = sort(@array);
@array の要素数が増えるにしたがって、処理時間が爆発します。
これは Perl の sort() 関数が、効率の悪いアルゴリズムを
使っているせいでしょうか？
かんたんな実験により、配列の要素数 を N とすると、perl の sort() 時の
比較回数はおよそ N * log N 回のオーダーという結果がでました。これは、
配列が 100 万要素だったとしても、たかだか N の２０倍程度の比較回数にすぎません。
おそらくは最高レベルの効率です。私はこれに文句をつけることはできません。
省12
上下前次1-新書関写板覧索設栞歴
あと 120 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.009s