【モダン推奨】Perlについての質問箱 50箱目

**デフォルトの名無しさん** · 2012/01/21(土) 10:56:39.03

CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: http://hibari.2ch.net/php/ )

回答する際はモダンな方法でお願いします
（例 jcode.plではなくEncodeモジュールを使った方法）
理由はもう2012年です。いい加減2000年以前の方法はやめましょう。
最新のPerlを使うほうがかっこいいです。
いつまで勉強しないつもりですか？
過去にとらわれるのはもうやめです。進歩しませんよ。

このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。

"The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。

http://www.perl.org/get.html
● 2011/10/30 現在の最新版: 5.14.2

▼ 前スレ
Perlについての質問箱 49箱目
http://toro.2ch.net/test/read.cgi/tech/1319953460/
リンク集は >>2-3辺り
Perl 日本語処理の基礎の基礎 >>4辺り

**デフォルトの名無しさん** · 2012/11/25(日) 00:49:11.82

おっと馬鹿が勝手に条件変えてきたぞ

**デフォルトの名無しさん** · 2012/11/25(日) 00:51:05.56

>>394
print localtime->ymd;

これでいいんじゃね？

useまで入れたとしても短い。

use Time::Piece;print localtime->ymd;
($d,$m,$y)=(localtime)[3..5];print 1900+$y,"-",$m+1,"-",$d

**デフォルトの名無しさん** · 2012/11/25(日) 09:16:00.99

せめてPOSIX。

use POSIX;
print strftime("%Y-%m-%d", localtime);

**デフォルトの名無しさん** · 2012/12/02(日) 11:20:23.79

どうせすぐ古くなるんだから。保守するのに時間軸の視点は必要だぞ。

**デフォルトの名無しさん** · 2012/12/09(日) 14:19:16.53

ポータブルPerlとかモジュールなしPerlとか

**デフォルトの名無しさん** · 2012/12/09(日) 15:03:54.83

struct tfield *を保持する
MyTypeをブレースしたマジック変数を作りたい。
以下の(中略)のＸＳソースを使ってＰｅｒｌ側から

Hoge*な struct tfield *head[30]をハッシュに
よって閲覧するにはどうしたら良いか。そして、
マジックをRETVALにアクティブにするはどうればよいか具体的に述べよ。

struct tfield {
struct tfield *left[30];
int num;
char str[30];
struct tfield *right[30];
};
struct tfield *talloc(void)
{
return ((struct tfield *)malloc(sizeof(struct tfield )));
}

**デフォルトの名無しさん** · 2012/12/09(日) 15:04:52.27

MODULE = MyTypePACKAGE = MyType

HV*
DataList()
PREINIT:
struct tfield *p,*head[30];
CODE:
hash=newHV();
sv=newSV(0);
ref=newRV_noinc((SV*)newHV());
sv_setref_pv(ref,"main::Tie",head);

sv_setsv(sv,sv_2mortal(newRV_noinc((SV *)hash)));
sv_bless(sv,gv_stashpv("MyType",TRUE));

sv_magic((SV* )hash,SvIV(SvRV(ref)),PERL_MAGIC_hints,NULL,0);

if(mg_find(SvRV(sv),PERL_MAGIC_hints)!=NULL)
printf("PERL_MAGIC_hintsp\n");
p=mg_find(SvRV(sv),PERL_MAGIC_hints)->mg_obj;

RETVAL=hash;

OUTPUT:
RETVAL

**デフォルトの名無しさん** · 2012/12/09(日) 15:10:51.49

ちなみに環境はActive PerlでＷｉｎｄｏｗｓ7を使っています

**デフォルトの名無しさん** · 2012/12/09(日) 15:13:07.96

なお、提出期限は本日中とする。

**デフォルトの名無しさん** · 2012/12/09(日) 20:41:15.31

確かRETVALて
マジック変数だよな。Perl側にアウトライン
した時に恐らくマジックに変異してるジャマイカ？

そして、またＸＳに入りINT2PTRで閲覧しよう
とする。うんで、マジックが掛かってるとキズかず
隠蔽された構造体にアプローチしようとしてとする。

上手く考えが定まらず、マジックやら
文法そのものやらに、あっちやこっち浮気し
まくってたらいつの間にやら難題に押しつぶされそうになってた。

もう資料の少ないマジックに手をださないから
RETVALに代入した後の処置を教えください。

**デフォルトの名無しさん** · 2012/12/11(火) 00:35:47.74

つーか、スレまちがい

**デフォルトの名無しさん** · 2013/10/12(土) 16:10:02.36

今から学ぶならやっぱPerlよりPythonなのかなあ？

**デフォルトの名無しさん** · 2013/10/12(土) 21:02:22.21

>>406
りょうほういっとけ

**デフォルトの名無しさん** · 2014/01/05(日) 23:44:28.13

>>406
さすがにrubyやphpならともかく、pythonはナイわ

**デフォルトの名無しさん** · 2014/01/06(月) 16:11:01.27

解析するならPythonじゃね？
クラックコンテスト上位者はみんなPython使いのようだし。

**デフォルトの名無しさん** · 2014/01/06(月) 16:12:58.25

間違えた、ハッキングコンテスト。

**デフォルトの名無しさん** · 2014/01/17(金) 01:37:55.47

Django使うの以外にPython使う理由が見つからない

**デフォルトの名無しさん** · 2014/01/17(金) 08:52:36.67

倍幅文字を含んだ文字列を端末にテーブル状に整形して表示したいのですが,

==================================
# ソースの文字コード: utf8
printf "%04s\n", 'ab';
{
　　use utf8;
　　printf "%04s\n", 'あ';
}
{
　　no utf8;
　　printf "%04s\n", 'あ';
}
===================================
00ab
000あ
0あ

use utf8 だと文字数でカウントしてるようなので
倍幅文字を含んだ行と含まない行とでズレてしまいます.

no utf8 だとバイトでカウントしているようなので
やはりズレてしまいます.

端末上に上手く整形して表示する方法はないものでしょうか?

非モダン質問箱の方は質問できる雰囲気ではなかったので
こちらで質問させて頂きました.

**デフォルトの名無しさん** · 2014/01/17(金) 14:45:12.15

my $文字幅合計=0;
my @文字群 = split //, $文字列;
for my $i(0 .. $#文字群){
$文字幅合計+=((unpack('C*', $文字群[$i]) - 30)*(unpack('C*', $文字群[$i]) - 127) < 0) ? 1 : 2;
}

文字のバイト列が31(\x1f)から126(\x7e)なら1でそれ以外は2を返す

**デフォルトの名無しさん** · 2014/01/17(金) 14:52:43.34

>>411
生粋のWeb脳って気持ち悪い

**デフォルトの名無しさん** · 2014/01/17(金) 17:55:39.71

ゴミ

**デフォルトの名無しさん** · 2014/01/17(金) 21:47:20.63

そういうのもうあるみたい
ttps://github.com/kaz-utashiro/MBPrintf

**デフォルトの名無しさん** · 2014/01/18(土) 19:55:51.97

与えられた文字列から適当な数値を求めたいんだけど
標準関数で簡単にやるにはなにかいい方法ある？

**デフォルトの名無しさん** · 2014/01/18(土) 21:05:51.45

せめて10レスくらい読めよ
$ perl -le 'print for unpack q{C*}, q{もじ}'
227
130
130
227
129
152

**デフォルトの名無しさん** · 2014/01/18(土) 21:11:44.49

>>418
お前やっぱ頭良くないんだな

**デフォルトの名無しさん** · 2014/01/18(土) 21:13:59.31

joinすりゃいいだけじゃん

**デフォルトの名無しさん** · 2014/01/18(土) 21:17:28.94

>>418
それだと文字列が長い時に困るんだよね

**デフォルトの名無しさん** · 2014/01/18(土) 21:17:41.63

そこまで書かなきゃいけなかった？

**デフォルトの名無しさん** · 2014/01/18(土) 21:21:14.21

>>422
いいから早く消えろってことだよ
やんわり言ったら分からなかった？

**デフォルトの名無しさん** · 2014/01/18(土) 21:26:46.26

>>422
ウザ杉

**デフォルトの名無しさん** · 2014/01/18(土) 21:27:09.30

>>421
BigInt付けるか、他の方法を考えるかしたら？
文字列じゃなくて、変数ってんならアドレスとかの方法もあるけど、

**デフォルトの名無しさん** · 2014/01/18(土) 21:28:17.27

あっちで釣りの続きしてればいいのに

**デフォルトの名無しさん** · 2014/01/18(土) 21:29:11.08

>>425
何で上から目線なの？
自己顕示欲満たしてやってんだから嫌なら答えるなよ。

**デフォルトの名無しさん** · 2014/01/18(土) 21:31:14.66

>>425
基地害のお客様はこちらへお引き取りください。

http://toro.2ch.net/test/read.cgi/tech/1385039352/

**デフォルトの名無しさん** · 2014/01/18(土) 21:32:59.96

そもそもこんなところで質問してあーだこーだ言わないと使えないんだったら、
Rubyをサクッと学習してやったほうが早い。

**デフォルトの名無しさん** · 2014/01/18(土) 21:33:11.61

嬉しそうだなあ、、、

**デフォルトの名無しさん** · 2014/01/18(土) 21:38:18.15

>>426
バーカ

**デフォルトの名無しさん** · 2014/01/18(土) 21:39:58.39

嬉しそうだな、、、

**デフォルトの名無しさん** · 2014/01/18(土) 23:17:08.53

配列の配列を戻り値にしたいんだけど
どうしたらいい？

**デフォルトの名無しさん** · 2014/01/18(土) 23:21:00.50

そういう場合は配列のリファレンスを使う

**デフォルトの名無しさん** · 2014/01/18(土) 23:47:42.99

自演キモｗ

**デフォルトの名無しさん** · 2014/01/19(日) 00:03:33.90

Perl厨の自演って分かりやすいな。
文章構成能力がないから、短文で一問一答ｗ

**デフォルトの名無しさん** · 2014/01/19(日) 08:36:16.42

お前の自演の方もなかなか解りやすいぞ、PHP厨

**デフォルトの名無しさん** · 2014/01/19(日) 14:34:32.39

糞言語の糞スレ

**412** · 2014/01/19(日) 20:39:49.50

>>413
制御文字を除外するために文字が特定範囲にあるか調べる方法がテクいです

>>416
同じことを思ってる人はいるものですね.
使ってみた限りでは問題なく調整してくれるみたいです.
\p{East_Asian_Width} で定義されてるかどうか等で判定しているので
半角カナもちゃんと幅1で計算されます.

MBPrintf.pm の方を使って printf を置き換えることにしました.
HTMLとかにして出力するしかないかなと思っていたところ
さくっと printf を置換えするだけで綺麗に出力できそうなので
大変助かりました.　質問してみて良かったです.
レスありがとうございました.

**デフォルトの名無しさん** · 2014/01/19(日) 20:47:27.99

>>439
やっぱ馬鹿なんだな
お前みたいな奴が日本のIT産業をダメにしてんだよ

**デフォルトの名無しさん** · 2014/01/19(日) 23:18:27.65

同じこと考えるも何も、日本でPerl広めたのはこの人だよ

**デフォルトの名無しさん** · 2014/01/20(月) 01:59:57.20

>>439=無知の極み

**デフォルトの名無しさん** · 2014/01/20(月) 02:09:18.33

受け答えのレベルから推察するとシフトJISを使うことを思いついていない気がする

**デフォルトの名無しさん** · 2014/01/20(月) 04:37:59.99

Perl以前の知能の問題なんだろｗ

**デフォルトの名無しさん** · 2014/01/20(月) 06:18:02.59

コマンドラインで使う前提での質問なのにシフトJISってw
質問すら読解する能力無いだろ

ほんとにWebProgに帰れよドアホ

**デフォルトの名無しさん** · 2014/01/20(月) 10:35:12.20

ゴミは黙ってろ

**デフォルトの名無しさん** · 2014/01/20(月) 17:02:27.54

>>445
草生やしてんじゃねーよ。
半笑いのつもりか？
半笑いでバカをアピールする>>445哀れ。

**デフォルトの名無しさん** · 2014/01/20(月) 19:07:10.73

連レスかまして無知晒すから、解りやすいぞPHP厨

**デフォルトの名無しさん** · 2014/01/20(月) 22:18:42.87

キチスレ

**デフォルトの名無しさん** · 2014/01/24(金) 19:52:20.84

Config::INI とかTiny とかのライブラリで
コメント行は ; になっているけど
これを # にするようにできるライブラリはある？

**デフォルトの名無しさん** · 2014/01/24(金) 19:55:55.11

>>450
ある。
回答きたんだからさっさと消えてね。

**デフォルトの名無しさん** · 2014/01/24(金) 20:05:16.41

>>450
ないよ

**デフォルトの名無しさん** · 2014/01/24(金) 20:33:39.02

>>450
ここが参考になる
ttp://to-a.ru/LEeAgi

**デフォルトの名無しさん** · 2014/01/24(金) 20:46:52.82

>>450
ナイアルヨ

**デフォルトの名無しさん** · 2014/01/25(土) 15:26:50.61

その程度も自分で調べられないとか頭悪いんだろうな
調べたら3分かかからなかったけどな

**デフォルトの名無しさん** · 2014/01/25(土) 23:28:51.18

このスレって何人いるんだろう？

**デフォルトの名無しさん** · 2014/01/26(日) 02:01:56.35

日本人だと思う

**デフォルトの名無しさん** · 2014/01/26(日) 02:47:37.23

おまえあれだろさっきまでなぞなぞスレにいただろ

**デフォルトの名無しさん** · 2014/01/26(日) 04:20:51.88

うまいｗ

**デフォルトの名無しさん** · 2014/01/26(日) 17:46:42.97

>>454 は中国人かも知れんぞ

**デフォルトの名無しさん** · 2014/01/26(日) 19:06:15.38

日本人ですだよ

**デフォルトの名無しさん** · 2014/01/26(日) 19:27:54.97

ニーハオ！
パンニハムハサムザパニーズニダアルヨ！
ショーグンサマバンザイ！
テポドンバンザイ！

**デフォルトの名無しさん** · 2014/02/05(水) 19:25:52.75

文字列が二つあって、その比較をしたい
共通1 差分1 共通2 差分2 共通3
みたいな感じで、2箇所まで差分を抽出したい

現実的な速度で動くうまい方法ないかな

**デフォルトの名無しさん** · 2014/02/05(水) 19:28:44.02

>>463
他人に頼る前提で始めるような馬鹿には無理。

**デフォルトの名無しさん** · 2014/02/05(水) 19:37:38.58

>>463
はぁ？
自分でやったけど何秒かかって、これが何秒以内に終わるようにとかも書けねーの？
本当にお前ゴミだな
リアルでもどうせその調子なんだろ
リアルでもゴミだと思われてるけど気付いてる？

**デフォルトの名無しさん** · 2014/02/05(水) 19:44:06.43

自分で試すことすらしない猿未満の低能には言うだけ無駄
猿ですら目的達成のために試行錯誤するのに

**デフォルトの名無しさん** · 2014/02/05(水) 19:54:20.78

$str1 = 'aaabbbcccdddeee';
$str2 = 'aaafffcccgggeee';

$test = $str1 . "\t" . $str2;
$test =~ /(.+)(.+?)(.+)(.+?)(.+)\t\1(.+?)\3(.+?)\5/;
$c1 = $1;
$d11 = $2;
$c2 = $3;
$d12 = $4;
$c3 = $5;
$d21 = $6;
$d22 = $7;

print "$c1 $d11 $c2 $d12 $c3\n";
print "$c1 $d21 $c2 $d22 $c3\n";

結果
aaa bbb ccc ddd eee
aaa fff ccc ggg eee

こんなのはすぐに思い付くと思う
ところがこれは、文字列の長さが100文字とかでもう遅すぎて使えなくなる

**デフォルトの名無しさん** · 2014/02/05(水) 19:57:49.18

こういうのを見るたびに
足りないのは知識やスキルではなく羞恥心なんだなと思う

**デフォルトの名無しさん** · 2014/02/05(水) 21:11:10.78

>>467
ここはごみ捨て場ではありません。

**デフォルトの名無しさん** · 2014/02/05(水) 21:26:16.47

２つの文字列を文字ごとに分解して２つの配列を作ってから↓
ttp://perldoc.jp/docs/modules/Algorithm-Diff-1.15/Diff.pod

**デフォルトの名無しさん** · 2014/02/05(水) 22:05:27.01

実に頭の悪そうな回答がきたなｗ

**デフォルトの名無しさん** · 2014/02/05(水) 22:39:45.84

diffは多少一致してない部分があってもいい、みたいな曖昧な判定をするから、
余計にややこしいんだよな

**デフォルトの名無しさん** · 2014/02/05(水) 23:42:17.25

うちのLarryに何か用かい？

**デフォルトの名無しさん** · 2014/02/06(木) 01:46:47.51

おれならxor使うけどね

**デフォルトの名無しさん** · 2014/06/20(金) 08:07:41.06

say "";

**デフォルトの名無しさん** · 2015/02/07(土) 15:14:06.33

ネットで検索する時は単語をスペースで区切ってそのANDで結果を得るけど、
同じことを正規表現でやりたい時はどう書けばいい?

**デフォルトの名無しさん** · 2015/02/26(木) 19:17:26.46

「$s が hello と world の両方にマッチする」なら、単に

$s =~ /hello/ && $s =~ /world/

と書くだけじゃないの？質問がよく分からないのだけれども

**デフォルトの名無しさん** · 2015/02/26(木) 20:48:44.94

>>476
あえて無理やり正規表現のみでやるなら否定先読みを使う

if( /(hoge|piyo).*(?!\1)(hoge|piyo)/ ){ print "成功\n"; }

**デフォルトの名無しさん** · 2015/02/26(木) 21:43:04.63

否定の先読みなんかせんでも
print ‘foobar’ if /(?:foo.*?bar|bar.*?foo)/ ;
で良いんじゃねーのか

**デフォルトの名無しさん** · 2015/02/26(木) 21:54:30.24

入力がスペース区切りの文字列なんだよ

**デフォルトの名無しさん** · 2015/02/27(金) 00:27:41.82

仮に検索エンジンみたいなのを書くにしても
何を対象にするのかとか、検索単位とかを決めてもらわんと書きづらいぞ
「同じこと」の通り「対象:Webサイト、単位:ページ」ならGoogleに投げりゃ済むし

**デフォルトの名無しさん** · 2015/02/27(金) 00:34:35.35

検索対象も文字列に決まってるだろ
正規表現でのマッチングだっつってるんだから

逃げてないで考えてみれ

**デフォルトの名無しさん** · 2015/02/27(金) 01:46:02.77

>>482
文字列？
テキストでもファイルでもなく？
それって何に使うんだろか…結局、目的は何よ？って話だよ
もしかしたらもっと良い方法があるんじゃ？と勘ぐってしまうのよどうしても

**デフォルトの名無しさん** · 2015/02/27(金) 06:35:52.51

またよく判らん屁理屈を
検索の単位が文字列に対してで、それがどこから来たかは問題にならないだろ
まあ、大抵はファイルからだろうけど

で、ファイルならこんなツールがあるよ、みたいな感じで本題から逃げたいのが見え見え

**デフォルトの名無しさん** · 2015/02/27(金) 09:44:40.27

>>484
いやまあ、文字列に対してなら

my $hit = 1;
for my $ptn (split(" ",$search)) {
$s =~ /$ptn/ or $hit = 0;
}

こんなんで出来ると思うけど、こんなんで本当に良いのか？
後出し条件とか大量に出てきそうな感じがするんだが

**デフォルトの名無しさん** · 2015/02/27(金) 20:22:44.34

お前は、「ワンライナーでどうやりますか」って質問に
スクリプト作成して答えるのか？

「正規表現でどうやりますか？」って質問には、
普通に正規表現で答えりゃいいだろうが。
実際、質問への答えは、
>>477->>479で終了してる。

後出しを心配するなら実際に後出しされてから
盛大に罵倒しろよ

**デフォルトの名無しさん** · 2015/02/28(土) 15:03:31.15

あえて制限をつけてパズルとして解くならともかく
現実的な解としては >>477 で十分だよな

**デフォルトの名無しさん** · 2015/02/28(土) 16:50:40.78

元々の要求はただのスペース区切りだから、パラメータ数は不定で、
パラメータ抽出して、その全部に対してマッチングを繰り返すという当たり前の処理になる

でも、そんなことは最初から判っているのでわざわざ聞く筈がない

スペース区切りの文字列をそのまま使ってマッチングがしたいなら、
残念ながらperlの正規表現でそんなことは出来ない、が答えとなる

**デフォルトの名無しさん** · 2015/02/28(土) 17:32:00.47

本物のコミュ障だなぁ
粘着されてる>>476が、可哀想だわ。

**デフォルトの名無しさん** · 2015/02/28(土) 17:35:55.35

質問者のレベルまで勝手に想定するし、、、

>>476から読み取れるのは、拡大解釈しても
「ワンセンテンスの正規表現で書くにはどうしたらいい？」
程度だろーに

**デフォルトの名無しさん** · 2015/02/28(土) 19:58:12.22

◯正規表現で、AND検索の実装って、どうやんの？
×正規表現で、「スペースを使って」AND検索の実装って、どうやんの？

「わざわざ聞く筈がない」まで、分かってんなら、
自分の解釈の仕方が間違ってないか、
自問しろよ

**デフォルトの名無しさん** · 2016/01/10(日) 13:39:26.30

971 名前：名無しさん＠七周年[] 投稿日：2006/11/11(土) 00:56:10 ID:M8+ahUZV0
自称スーパープログラマー某

強烈加齢臭
メール見ない　メール無視
ドキュメント見ない　ドキュメント無視
説明聞かない　説明無視
話聞かない　話無視
ガム→むっちゃーむっちゃーむっちゃーむっちゃー
煎餅→バリバリバリバリバリバリ
菓子パン→モグモグモグモグモグモグモグモグモグモグ
カップアイス→むっちゃーむっちゃーペロペロペロペロ

フロアすべてに響き渡る超ばかでかいくしゃみ当然手でおさえない

異音と異振動
ドスーン！ドスーン！　ドカーン！ドカーン！　バコーン！バコーン！　ズドン！ズドン！
机が近いとマウスポインターが飛ぶ　誤操作誘発
書類だしたりしまうだけでドカンドカン

30秒ごとに口と鼻から異音
ふんっっ！　　　　ふんっっ！　　　

備品破壊　貸与P C 破壊　他人のもの破壊

奴の作ったスクリプトとプログラムは使えない　バグ製造機

電話や共有携帯電話　キーボードが油ベタベタ
奴に電話とPCとコンソールは触らせてはいけない

**デフォルトの名無しさん** · 2016/01/10(日) 17:45:28.72

Perl 5 version 16の正規表現で、地の文の一部としてマッチさせたいときに
バックスラッシュでエスケープせねばならない文字の一覧を教えてください
文字集合[ ]の内外で違うとか、文脈依存があればそれも知りたいです

**デフォルトの名無しさん** · 2016/01/10(日) 22:39:51.49

何をしたいのか知らないけど
http://perldoc.jp/index/core
で疑問のほとんどは解決すると思う。

まあ、エスケープすべき文字を知りたいということならそれは「英数字以外」だ。
\Q と quotemeta 関数について調べてみてほしい。

**デフォルトの名無しさん** · 2016/01/11(月) 19:10:22.91

>>494
ありがとうございます。
質問の動機は単に手で正規表現を書くときエスケープすべきかどうか
悩ましかったから（実際には「+」や「:」や「#」とか「[ ]」の外の「-」はエスケープ無しでも通っていそう）
だったからですが、エスケープして無害ということであればそうします

それはそうとしてquotemeta便利杉、