新しくperlで標準で欲しい関数は？

結局自分で作ればいいんだが、
標準で「これがあれば便利なのに・・・」
と思う関数は、どんなもの？
便宜的に名前をつけて、仕様を説明してみてくれ。

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

while(row = sth->fetchrow_arrayref){
Perl::println(Perl::join(" ", row));
}

sth->finish();
dbh->disconnect();

PERL6_MAIN_END;
return 0;
}

>>80
それは何？
C/C++のコードではないようだし。

C++だった。ハズカシ

sort のお話ですにゃ。
今の Perl は、巨大な配列を sort すると、効率が悪くなります；；

@sorted = sort(@array);

@array の要素数が増えるにしたがって、処理時間が爆発します。
これは Perl の sort() 関数が、効率の悪いアルゴリズムを
使っているせいでしょうか？

かんたんな実験により、配列の要素数 を N とすると、perl の sort() 時の
比較回数はおよそ N * log N 回のオーダーという結果がでました。これは、
配列が 100 万要素だったとしても、たかだか N の２０倍程度の比較回数にすぎません。
おそらくは最高レベルの効率です。私はこれに文句をつけることはできません。

では、sort() 自体は実用じゅうぶん速いのに、
なぜ上の１行は爆発的に遅くなるのでしょうか？試しにこう書いてみました。

sort(@array);

これは@array が１００万要素を超えていても、じゅうぶん高速でした。
（当然、ボイドコンテキストなので、結果は捨てられるので、意味はありません）

ということは、巨大な配列の「複製」のために、ものすごく時間を
取られているということです。それはありうることです。
ソート結果を直接 @array に代入してしまう関数があれば、
これは解決できると思います。そういう sort関数を希望ですにゃ。

( 私は ruby 使いじゃないのですが、
ruby には、「破壊的 sort」が用意されているらしいんですねぇ・・・
さすがにゃ）

switch欲しい……
サブルーチンで作ってみようと努力したが構造的に不可能だった鬱

>>83
Exegesesを見る限り、destructive sortがPerl6に取り込まれる可能性はなさそう。

>>84
Perl5では、外部モジュールで。
http://search.cpan.org/search?dist=Switch

Perl6では、givenという名前で組み込まれる予定です。
(switchと命名されなかったのは、C/C++/Javaのswitchとは違うということを際立たせるためだそうで)
http://www.perl.com/pub/a/2002/01/15/apo4.html?page=2#rfc%20022:%20control%20flow:%20builtin%20switch%20statement
用例 http://www.perl.com/lpt/a/2002/04/01/exegesis4.html
欲張りすぎて、ちょっとわかりににくひ。（組み合わせが23通りもあるのかよ...）

うるせーバカ。
初心者は黙ってろ　スレのレベルが下がる

>>86←典型例

＞＞８７
必死だな。誰かさん（大爆笑）

＞（大爆笑）
ヤフーに帰れ

＞＞８9
必死だな。誰かさん（大爆笑）

＞＞９0
必死だな。誰かさん（大爆笑）

＞＞９1
必死だな。誰かさん（大爆笑）

＞＞９２
乙武必死だな（藁

必死で生きてますが何か？

(ﾟДﾟ)ﾊｧ? しねばぁ？

あぼーん

>>85
> Exegesesを見る限り、destructive sortがPerl6に取り込まれる可能性はなさそう。

そうなんですか。むむー。
せめてsortを多重定義できればいいんですがねぇ。tieのSORTでもいいですが。

それにしても新構文はかなり奇怪ですなあ。
↓かなり驚きましたよ。

if @array =~ $elem {...} # true if @array contains $elem

if $key =~ %hash {...} # true if %hash{$key}

if $value =~ (1..10) {...} # true if $value is in the list

if $value =~ ('a',/\s/,7) {...} # true if $value is eq to 'a'
# or if $value contains whitespace
# or if $value is == to 7

標準関数よりも、標準ライブラリを充実させて欲しい
シェルもろくに使えない奴らに「複雑な設定が必要」なんて言われもない
批判を受けるのはもういやだ。

女性の股を開く関数。

もしくは、チョンを殺してくれる関数。

>>98
これ以上ブクブク太らせて楽しい？

>>97
しんだらぁ？

>>85

そうにゃんだ。残念。
でも明快なお答えをありがとう。

>>100
ぜい肉をとるために、getほにゃららっていう network 関連の関数を
モジュールに追い出すべきという意見はどうでしょう。

・ネットワーク関連の関数をモジュールに追い出し
・数学関数をモジュールに追い出し
・format writeはｲﾗﾈｰﾖ

いっそのこと関数全部モジュールに追い出してしまえ！

>>104
C言語ライクで良い感じですな。

>>100
痩せすぎているので、少しは太れよってみんなから言われるよ

sage

そういうセリフ吐く奴ってoffで合うと大概口だけいかにももててますアピールの
きもい系のヤシなんだよねｗ

/bin/grepを呼ぶのにエスケープの手間がかかるんで
ファイルからgrepする関数が欲しい。
@res = fgrep(/hoge/, /\.log$/,"/var/log/");
みたいな。

>>109
それこライブラリの仕事だろ。
それ以前にgrepとfgrepという全く別の関数が存在することも大いに問題だし。
どうしてもというならShell.pmでも使っとけ。

#!/bin/perl
use Shell qw(fgrep);
$ENV{PATH} = '/bin';
@res = fgrep 'hoge', '/var/log';

今は Time::Local があるからまあ許すが
その昔なぜ localtime が標準で実装されてて timelocal がなかったのか不思議だ。

Thread.pmがActivePerlでまともに使えるようになってほしい。
Perl5.8.0ではちゃんと動くのか？

mmapを標準関数、もしくはcore moduleでおねがいぃ

god("jpeg画像を120*120にリサイズする");
god("テキトーなデザインを出力する");
god("このソースが人に読まれない");

っていうのが欲しいです。

CSVファイルを扱う関数。
任意の項目によるソートとかいろいろ。

>115
DBD::CSV使えば？

>>116
DBIモジュールが標準モジュールになったら使うよ。

>>49
俺様の力作使ってはくれまいか？
sub merge
{
return(@_);
}

↑すごいYO!

>>118
usage:
%c = merge ( %a, %b );

こんな感じ？
確かにシンプルだ……。
>>49は、キーがかぶった場合の仕様を作らなかったから、これでもいいと言える。
勉強になります。

marge関数はPerl6で追加を検討しているらしい。
http://allabout.co.jp/computer/cgiperl/closeup/CU20010731A/index_2.htm

use Benchmark;
timethis(20000, sub{ -f 'index.html'});
exit;

timethis 20000: 10 wallclock secs ( 9.77 usr + 0.00 sys = 9.77 CPU) @ 2047.08/s (n=20000)
遅すぎ、、、
もっと速くしてくれ。

>>49 ＞書いても3行なんですけどね。
%c = ( %a, %b );

どこらへんに三行要るんだろう？

>>122
これは、
ＯＳに処理を依頼しているわけですから、
どの言語でやっても遅くなると思いますよ。

>>124
そうなのですか、、、
うぅ、残念です。

>>123
元質問のひとは、一時的にメモリにギュバーっと展開しちゃうのは
嫌なのではないでしょうか

Perlはじめたころ println() が欲しかった。
今でも欲すぃ

php() PHPが使える関数

ていうか

ネットワーク関連のいらない関数ｽﾃﾛ!

Math.max()
Math.min()

5.8で標準モジュールに追加されたList::UtilとScalar::Utilは便利なんだけど、
Scalar::Utilは実装のほとんどをList::Utilに頼ってるんだから、
一緒にしてUtilityとでもすればよかったと思う。

>>121
mergeってC++のSTLにあるような関数だと思うけど。

>>129
そうだね、どうせuse Socketしないとまともに使えないんだから、
Socketモジュールに入れても混乱は少ない気がする。

>>130
Math.mid()はいらんのか？

（＾＾）

Math.ave()

（＾＾）

（＾＾）

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

PHPのurlencode
htmlspecialchrs
nl2br
っていうか、自分でこしらえたけど

use CGI

けっとばすぞ〜

塗る歩禁止！

配列の要素の最大値や最小値を返す関数とか。

あったっけ。

今の関数使えたらなんでもいいけど
PHPの真似だけはしてほしくないね

>>146
List::Util
でいいじゃん。

どんな改行コードでもchompしてくれる関数。
・・・ってか、自作した。

>>149
そんな関数いらね

>>150
漏れの場合、なければ仕事にならん・・・。

>>151
いらないと言ったのは
わざわざPerl側で用意するほどの関数ではないという意味だ

>>152
なるほど
確かに簡単な処理で何とかなるが、速度面が心配でな・・・。
chompのリプレースって事ならあってもイイと思ったんだが、どうよ。

>>153
確かに今使ってるのよりも処理が速くなればそれに越したことはないな
ただPerl側であまり用意すると便利な反面、コードの理解力を落とすから
そのバランスだよね

select関数をどうにかしてほしい

>>118
sub merge {}

おっさん

夜のおかずになってくれる関数。

新しく標準で欲しい関数は無いけど、
新しく標準で欲しいクラス、パッケージは沢山ある。

標準で欲しい関数は無いけど、モジュールに追い出してほしい関数なら沢山ある。

ソケット・ネットワーク関連（どうせuse Socketしないとまともに使えない）
get* set* 系(getpwentなど。Windowsじゃ意味ねー。こういうものこそモジュールの仕事だろ)
フォーマット関連（おかげでwrite()が無駄に予約語に…)
セマフォ関連(これもモジュールで対応してくれ)

このくらい削ればプロセスサイズも大分小さくなって起動が早くなりそうだ。

Shift_JIS で書かれた文字列を

chomp($_ = <<'END');
こちょ♪こちょ♪
END

とせずに済む関数

>>162
それsjisじゃなくてWindowsの仕様だぞ・・・

>>162
できましたー。

use encoding qw(shiftjis);

# え、これと違う？

次期PHPってParrot採用との噂は本当なん？

その噂ってparrotが2002頃に出るって言われてた頃のだよね。

暗号化復号化

もはや2年前の記事か・・・

elsifがelseifに！
・・・なったら泣くな

わかりやすい変数名をつけてくれる関数が切実に欲しいです＞＜

組み込み関数をオーバーライドする関数
特にprintとか普通できないやつ

モジュールuseしたら勝手にポッポアップウィンドウが開くように
ヘッダーを書き換えたい

printは出来なくても
STDOUTは変えれるし
出力先も変えれる

>>171
> 特にprintとか普通できないやつ
>
> モジュールuseしたら勝手にポッポアップウィンドウが開くように
> ヘッダーを書き換えたい

# perl -MPrintToMsgBox -e "print qq(hello)"

# PrintToMsgBox.pm
package PrintToMsgBox;

use Filter::Simple;
FILTER_ONLY code => sub { s/\b(?<!CORE::)print\b/use Win32; Win32::MsgBox/g };

1;

>>161
つuse POSIX;
つuse Moose;
つCoro;

4年も経つとうわ言も現実になるのね。

>>162

関数はないけど、Sjis.pm を使う手がある。

>>175
>>162はどういう意味？

分解すると

$_ = <<'END';
こちょ♪こちょ♪ 【\n】
END
chomp($_);

になる。

$_ = <<'END' とすれば、シフトJISの第2バイトに \x5c が使われ
ている場合でも変数に無事代入することができるが、副作用として
余分な改行コードが入ってしまうので chomp で取り除く。

でも今は昔。Sjis.pm がそれをやってくれる。

ありがたい時代だ。

>>177
なるほど、そういうことか。
�d