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

**名無しさん＠お腹いっぱい。** · 01/12/15 03:41

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

**nobodyさん** · 2009/12/24(木) 05:31:18

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

**175** · 2009/12/27(日) 15:55:53

分解すると

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

になる。

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

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

ありがたい時代だ。

**nobodyさん** · 2009/12/27(日) 16:36:48

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

**nobodyさん** · 2010/01/01(金) 00:56:50

素数判定関数

**nobodyさん** · 2010/01/26(火) 21:18:29

>>179

sub　is_prime_number {
　　if($_[0] =~ /^(2|3|5|7|11|13|17|19|23|29|31|37|41|43|47|53|59|61|67|71|73|79|83|89|97)$/){
　　　　return 1;
　　}
　　return 0;
}

# 判定する素数を増やしたい場合は正規表現の中に追加します

**nobodyさん** · 2010/01/26(火) 21:38:03

SJISやJISのURLエンコード

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

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

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

**nobodyさん** · 2010/01/27(水) 22:02:40

エンベデッドSQL

**nobodyさん** · 2010/01/29(金) 02:05:57

# 改良しました
sub　is_prime_number {
　　return grep /^$_[0]$/, <DATA>;
}
1;
__DATA__
2
3
5
7

**nobodyさん** · 2010/03/04(木) 18:56:50

>>179ですが

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

**nobodyさん** · 2010/03/04(木) 19:47:37

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

**nobodyさん** · 2010/03/18(木) 02:14:15

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

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

**nobodyさん** · 2010/03/28(日) 02:02:44

>>184

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

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

**nobodyさん** · 2010/03/29(月) 01:54:50

例えば、

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

というものが関数。

**nobodyさん** · 2010/03/31(水) 00:06:07

>>188

節子それ Perl 違う
Javascript や

**nobody** · 2010/10/11(月) 16:35:16

# それならば...

prime_number[2] = 1;
prime_number[3] = 1;
prime_number[5] = 1;
prime_number[7] = 1;
function is_prime_number(n) {
　　return prime_number[n];
}

# いずれにしても有限の個数しか判定できないけど、
# それはそうとあきらめるしかない

**nobodyさん** · 2010/12/21(火) 23:45:39

>>149

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

**nobodyさん** · 2010/12/23(木) 01:42:14

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

**nobobyさん** · 2011/07/31(日) 15:10:17.22

perl6eval、なんてな

?PLT(12080) · 2013/02/02(土) 22:46:31.64

　　∧＿∧
　（　・∀・）　　　 |　| ｶﾞｶﾞｯ
　と　　　　）　　　 |　|
　　Ｙ　/ノ　　　　 .人
　　　 /　） .人　　 < 　>_∧∩
　＿/し'　< 　>_∧∩｀Д´）/
　（＿フ彡　Ｖ｀Д´）/　　 / ←>>137
　　　　　　　　　　/ ←>>143