新しく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

素数判定関数

SJISやJISのURLエンコード

SJISやJIS、UTF-8のMIMEエンコード

文字列がどのコードか自動判定する関数

eメールのBODYに添付ファイルを埋め込んで返してくれる関数

エンベデッドSQL

>>179ですが

却下
そもそも関数じゃないし

sub is_prim{ $_[0] == 1 ? () : (1 x $_[0]) !~ /^(11+)\1+$/ ;}

入力は @_
出力は return の値
呼び出し方法は is_prime_number($var)

どうみても関数なわけだが、今日は彼女とデートして
機嫌がいいので許さざるをえない

>>184

184はどういうものを関数といっているのか知りたい。
素数判定関数じゃなくて構わないから何か関数を
書いて欲しい。

そうでないとこのスレ(タイ)を全うできない。

例えば、

function abc (x,y,z) {
return x+y+z;
}

というものが関数。

>>188

節子それ Perl 違う
Javascript や

>>149

ようやく意味が分かった。
おれも自作することになった。

関数名は chommp、できれば標準化してほしい。

perl6eval、なんてな

ぬるぽ

誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』 というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

Y309HZ08T6

プログラミングを誰でも習得できる方法は、「前場アキドルのプログラミングマスター方法」というブログで見られるらしいよ。ネットで調べると見られるらしいです。

6K8QD

宇宙建築の開発を目的に3年前に設立された「オービタル・アセンブリ（Orbital Assembly）」社はこのほど、人工重力で運用される人類初の宇宙ホテル「ボイジャー・ステーション（Voyager Station）」の建設を2025年から開始すると明らかにした。
1月29日に行われたオンライン記者会見で同社は、2025年に地球低軌道で宇宙ホテル「ボイジャー・ステーション」建設を開始し、早ければ2027年に稼働する可能性があることを明かした。

「ボイジャー・ステーション」は90分ごとに地球を一周し、リングを回転させることにより内部に月面と同程度の重力が発生させるという。

実現すれば、同ホテルは宇宙空間で最大の人工建造物となり、最大400人を収容できる設備が完備されることになる。さらに内部には客室に加え、レストランやバー、ジムに図書館、コンサート会場など様々な施設が揃う。

アメリカ・ロシアに双方に冷静になってほしい

【ブリュッセル＝畠山朋子】ロシアのウクライナ侵攻を受け、米国と欧州連合（ＥＵ）、英国などは２６日、共同声明を発表し、ロシアの複数の銀行を国際銀行間通信協会（ＳＷＩＦＴ、本部・ベルギー）から排除する方針を示した。数日中に発動する。

　ＳＷＩＦＴは、約２００か国・地域の１万社超の金融機関に国際送金のネットワークを提供しており、排除によって、ロシアは輸出している原油や天然ガスの代金の回収など、他国との決裁が難しくなる。共同声明では、「ロシアに責任を負わせ、この戦争は、プーチン露大統領にとって戦略的失敗であることを団結して証明する」と強調した。共同声明には、ドイツ、フランス、イタリア、カナダも賛同している。

　ロシアのＳＷＩＦＴからの排除を巡っては、天然ガス輸入などロシアとの貿易関係の深い欧州が、慎重姿勢を示していた。

ロシアのプーチン大統領は９日、ロシアが不法占拠する北方領土を含むクリール諸島（北方領土と千島列島の露側呼称）に進出する国内外の企業を対象に、所得税などの各種税を原則的に２０年間免除する法案に署名し、発効させた。ロシアは北方領土を事実上の「経済特区」として企業を誘致し、実効支配を強める思惑だ。

同法案に対し、日本は北方領土での共同経済活動を目指すとした日露合意に反するとして抗議してきた。一方、ロシアはウクライナ侵攻で日本が対露制裁を発動したことに反発。７日には、自国通貨ルーブルによる外貨建て債務の返済を認める「非友好国・地域」のリストに日本を含めた。

日露関係は極端に悪化しており、日露平和条約交渉の先行きは極めて不透明となっている。

北方領土への特区設置案は昨年７月、ミシュスチン首相が訪問先の北方領土・択捉（えとろふ）島で表明。プーチン氏も支持した。露政府が法案を作成し、今月４日までに露上下両院で可決されていた。

三角関数

国勢調査の初日に悲劇…80歳の調査員が訪問先マンションで倒れ死亡　家族「心臓に持病」　兵庫・姫路市