Perlについての質問箱 57箱目

1 ：デフォルトの名無しさん：2012/11/25(日) 10:10:57.31

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

このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
PHP厨も荒らし沸きますがスルーしましょう。
質問すると叩き粘着されます、それがPHP厨です。
回答者が現れるまで待ちましょう。

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

http://www.perl.org/get.html
Download Latest Stable Source (5.16.0)

▼ 前スレ
Perlについての質問箱 56箱目
http://toro.2ch.net/test/read.cgi/tech/1348141100/

リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4

2 ：デフォルトの名無しさん：2012/11/25(日) 10:11:32.42

[プログラミング自体の経験が無い奴はまずココを読め]
Perl プログラミング講座: ttp://www.site-cooler.com/kwl/perl/

[本]
リャマ: ttp://www.oreilly.co.jp/books/9784873114279/
駱駝: ttp://www.oreilly.co.jp/books/4873110963/
Effective Perl: ttp://www.amazon.co.jp/Effective-ASCII-Addison-Wesley-Programming/dp/4756130577
クックブック: ttp://www.oreilly.co.jp/books/4873112028/
Perl ベストプラクティス: ttp://www.oreilly.co.jp/books/4873113008/
Perl Hacks: ttp://www.oreilly.co.jp/books/9784873113142/

[オンラインマニュアル]
最新のドキュメント: ttp://search.cpan.org/dist/perl/
perldoc.jp: ttp://perldoc.jp/
perldoc.perl.org: ttp://perldoc.perl.org/

3 ：デフォルトの名無しさん：2012/11/25(日) 10:12:45.15

[モジュール]
CPAN.com: ttp://search.cpan.org/
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/

[テクニック]
Perl メモ: ttp://www.din.or.jp/~ohzaki/perl.htm
Perl のページ: ttp://homepage1.nifty.com/nomenclator/perl/
Perl の小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl 5.8 Unicodeメモ]
ttp://www.rwds.net/kuroita/program/Perl_unicode.html
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

4 ：デフォルトの名無しさん：2012/11/25(日) 10:14:09.82

[プログラミング自体の経験が無い奴はまずココを読め]
Perl プログラミング講座: ttp://nyx.pu1.net/

[本]
リャマ: ttp://www.oreilly.co.jp/books/4873112575/
駱駝: ttp://www.oreilly.co.jp/books/4873112869/
Effective Perl: ttp://www.c-r.com/book/detail/888
クックブック: ttp://gihyo.jp/book/2012/978-4-7741-4972-1
Perl ベストプラクティス: ttp://www.oreilly.co.jp/books/9784873113425/
Perl Hacks: ttp://www.oreilly.co.jp/books/4873112915/

[オンラインマニュアル]
最新のドキュメント: ttp://blog.livedoor.jp/kumagai_nori/archives/52255109.html
perldoc.jp: ttp://bg.pi-ppi.com/
perldoc.perl.org: ttp://manual.xwd.jp/

5 ：デフォルトの名無しさん：2012/11/25(日) 10:34:21.53

#　[Perl 日本語処理の基礎の基礎]
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
#　入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
#　まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)"; # ※1
use Encode;
#　次に、あなたが実行したい処理の内容を入れて下さい。
$file = 'C:/なんたら/かんたら.txt';
open my $fh, '<', encode("cp932", $file) or die $! ; # ※2
print <$fh>;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
#　【注】※1. の行を入れると、DOS 窓への日本語出力は簡便になりますが、
#　ソースファイル名に非 ANSI 文字が含まれる場合に die 文の出力が失敗します。
#　※2. OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、
#　この例のように cp932 でエンコードする必要があります。

6 ：デフォルトの名無しさん：2012/11/25(日) 11:02:51.39

>>1 修正
www.perl.org/get.html
Download Latest Stable Source (5.16.2)

7 ：デフォルトの名無しさん：2012/11/25(日) 11:26:27.03

>>5
このまどろっこしいのを1行で簡単に書けるといいね。
ついでに use strict; use warnings; もできるといいね。

8 ：デフォルトの名無しさん：2012/11/25(日) 11:30:44.54

扱うデータがすべてcp932なのにスクリプトをutf8で書こうとしてるせいだ

9 ：デフォルトの名無しさん：2012/11/25(日) 11:54:43.42

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

荒れまくってるうえにまともな回答がこないのでここでの質問は意味がありません。
今までご利用ありがとうございました。
質問のある方は以下のスレでお願いします。

スレ立てるまでもない質問はここで 122匹目
http://toro.2ch.net/test/read.cgi/tech/1351769173/

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

10 ：デフォルトの名無しさん：2012/11/25(日) 12:55:16.17

>>7
今は use 5.12.0; って書けば
use strictの効果があるよ。

http://blog.perlassociation.org/2010/04/perl5-12-0.html

11 ：デフォルトの名無しさん：2012/11/25(日) 14:05:45.50

>>10
だから何？
そういうことはTwitterでやろうね。

12 ：デフォルトの名無しさん：2012/11/25(日) 14:58:49.04

BrainfuckでPerl組もうぜ～

13 ：デフォルトの名無しさん：2012/11/25(日) 15:28:26.81

>>11
断りますｗ
2ちゃんねるでもやりますよ。

俺のレスを見たくないのでしたら
どうぞこのスレを見ないでください。

俺はここから消えるつもりはないので、
あなたに残された手はそれだけです。

14 ：デフォルトの名無しさん：2012/11/25(日) 15:39:33.85

>>11
>>11

15 ：デフォルトの名無しさん：2012/11/25(日) 16:40:05.09

なるほど、ずっと荒らしてる基地害が>>13だったのか
まぁそんなに荒らしたいならこれからもここに書き込むといいよ

16 ：デフォルトの名無しさん：2012/11/25(日) 17:48:40.67

荒らしてるのは>>13一人じゃないと思う。

17 ：デフォルトの名無しさん：2012/11/25(日) 17:50:58.35

use encoding 'cp932'; # と書いてスクリプトもCP932で書いてみるテスト

18 ：デフォルトの名無しさん：2012/11/26(月) 13:42:27.47

>13は荒らしじゃなくね？

単に頭がおかしいだけっぽい

19 ：デフォルトの名無しさん：2012/11/27(火) 12:27:42.57

>>17
いける？

20 ：デフォルトの名無しさん：2012/11/27(火) 21:51:04.72

何とかなるんじゃないか

21 ：デフォルトの名無しさん：2012/11/30(金) 00:58:13.62

内部的にコード変換されてしまうなら思ってたのと違う
いろいろ問題あるっぽい

22 ：デフォルトの名無しさん：2012/11/30(金) 01:11:54.35

その問題の一つも書いてないゴミの言ってることを信じろと？
ゴミはゴミらしくROMってろ

23 ：デフォルトの名無しさん：2012/11/30(金) 11:07:04.80

質問です
ふんりゅうかと思って潰したら
例のにゅるにゅるしたものは出てこなくて肉片みたいのが出てきたんだけど
これは何ですか？

24 ：デフォルトの名無しさん：2012/11/30(金) 18:06:54.82

配列の要素をランダムに並びかえるにはどうやればいいんですか？
モジュールを使わない方法で教えて

25 ：デフォルトの名無しさん：2012/11/30(金) 18:54:28.36

ひとつの方法は、最後尾から順に、ランダムで選んだ前の場所と交換していく
コードは検証してないのでバグってるかも

for($n=$#a; $n>0; $n--){
$r=int rand ($n+1); #0～$n
($a[$n], $a[$r]) = ($a[$r], $a[$n]);
}

終＿＿＿＿＿＿＿乱＿＿＿＿＿＿＿＿←＿＿＿＿＿＿＿始
未未未……未未未★未未未……未未未☆済済済……済済済
￣￣￣￣￣￣￣￣┗━━━交換━━━┛

ちなみに敢えて自己交換の確率を確保しておかないと偏ってランダムにならない
@a=(0,1);で考えればわかる

26 ：デフォルトの名無しさん：2012/11/30(金) 19:22:03.49

>>24
http://perldoc.jp/docs/perl/5.14.1/perlfaq4.pod#How32do32I32shuffle32an32array32randomly63
or Fisher-Yatesでググる。

27 ：デフォルトの名無しさん：2012/11/30(金) 22:57:01.32

配列の要素と同じ数のユニークな乱数を作成し、乱数 => 要素番号のハッシュ
を作成する。そのハッシュのキーをソートしてキーに対応する要素番号順に
元の配列の要素を並べる。

28 ：デフォルトの名無しさん：2012/11/30(金) 23:23:42.42

内部的にコード変換されてしまうのが問題。encodingを使わなければ解決。

29 ：24：2012/11/30(金) 23:47:27.51

ああ、Twitterで回答もらってるのでもういいですよ

30 ：デフォルトの名無しさん：2012/12/01(土) 05:24:12.14

Twitterでもらったという回答も勉強のために見てみたいな。
URL貼って。

31 ：デフォルトの名無しさん：2012/12/01(土) 15:02:12.84

@array = sort { (rand < 0.5) ? -1 : 1 } @array;

こんな感じです。変数名は変えてありますが。

32 ：デフォルトの名無しさん：2012/12/01(土) 17:45:39.72

>>25
>ちなみに敢えて自己交換の確率を確保しておかないと偏ってランダムに
>ならない @a=(0,1);で考えればわかる
自己交換の確立の確保は int rand ($n+1) の +1 のことですか？

33 ：デフォルトの名無しさん：2012/12/01(土) 18:11:59.56

@test=("aaa","bbb","ccc","ddd","eee","fff");
@test = &Make_rand_array(@test);
print "@test";

sub Make_rand_array{
my(@array) = @_;
my(@rand_array,@rrr);
my(%www);
my($r,$n);

$r = @array;
@rrr = &Get_rand_no_zyuufuku_num_list($r);
$n = 0;

foreach(@array){
$m = $rrr[$n];
$www{$m} = $_;
$n++;
}
for($n=0;$n<$r;$n++){
push(@rand_array,$www{$n});
}
return(@rand_array);
}
続く

34 ：デフォルトの名無しさん：2012/12/01(土) 18:13:01.87

続き
sub Get_rand_no_zyuufuku_num_list{
my($max_n) = @_;
my($n,$m,$r);
my(@num_list,@rand_num_list);

$m = $max_n;

for($n=0;$n<$max_n;$n++){

push(@num_list,$n);

}
for($n=0;$n<$max_n;$n++){
$r = int( (rand(3)*100)%$m );

@splice_num_list = splice(@num_list,$r,1);
push(@rand_num_list,@splice_num_list);
$m--;
if($m<=0){
last;
}
}
return(@rand_num_list);
}

35 ：デフォルトの名無しさん：2012/12/02(日) 10:27:53.09

my @rand_sorted = ();
while(@array){
　　push @rand_sorted, splice(@array,rand(@array),1);
}

36 ：デフォルトの名無しさん：2012/12/02(日) 21:13:50.58

@array = sort { rand <=> .5 } @array;

Twitterからの転載です。URLはごめんなさい。

37 ：デフォルトの名無しさん：2012/12/02(日) 22:16:30.46

@array = sort { -.5 + rand } @array;

38 ：デフォルトの名無しさん：2012/12/03(月) 08:50:31.86

http://ideone.com/Ni7koB

39 ：デフォルトの名無しさん：2012/12/04(火) 01:32:51.98

push @rand_sorted, splice(@array,rand(@array),1) while @array;

40 ：デフォルトの名無しさん：2012/12/04(火) 02:01:47.83

こうやってコードだけ書いていくゴミってコミュ障？

41 ：デフォルトの名無しさん：2012/12/04(火) 07:55:57.05

うーん
どちらかというと何の役に立つ情報も書けない>>40みたいなのの方がコミュ障っぽい気がするな

42 ：デフォルトの名無しさん：2012/12/04(火) 21:16:03.37

うーん
どちらかというと何の役に立つ情報も書けない>>41みたいなのの方がコミュ障っぽい気がするな

43 ：デフォルトの名無しさん：2012/12/04(火) 21:43:09.60

うーん
鸚鵡返ししかできない>>42みたいなのの方がコミュ障っぽい気がするな

44 ：デフォルトの名無しさん：2012/12/04(火) 23:48:10.97

うーん
どちらかというと何の役に立つ情報も書けない>>43みたいなのの方がコミュ障っぽい気がするな

45 ：デフォルトの名無しさん：2012/12/05(水) 08:25:08.08

コミュ障でも問題なく使えるavailabilityの高い言語、それがPerl。

46 ：デフォルトの名無しさん：2012/12/05(水) 18:11:55.93

>>44でも使えるPerlってすばらしいね

47 ：デフォルトの名無しさん：2012/12/06(木) 23:34:37.74

sort{rand<=>rand}@_

48 ：デフォルトの名無しさん：2012/12/08(土) 00:25:32.67

Perlが素晴らしいならPHPは神レベル

49 ：デフォルトの名無しさん：2012/12/08(土) 01:28:30.83

むしろ申レベル

50 ：デフォルトの名無しさん：2012/12/08(土) 14:35:49.20

Perlが人間だとするとPHPはチョン

51 ：デフォルトの名無しさん：2012/12/09(日) 01:19:22.43

#　[Perl 日本語処理の基礎]
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　このレスの内容をそのまま、シフト JIS 形式のソースファイルに保存して下さい。
#　入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
#　まず、以下の行を先頭に入れて下さい。
use Jcode;
#　次に、あなたが実行したい処理の内容を入れて下さい。
$file = 'C:/なんたら/かんたら.txt';
open my $fh, '<', $file or die $! ;
print <$fh>;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。

52 ：デフォルトの名無しさん：2012/12/09(日) 02:59:44.77

Perlの起源は韓国！

53 ：デフォルトの名無しさん：2012/12/09(日) 12:00:13.37

韓国でもPerlって使われてるの？本とか出版されているの？オライリーとかあるの？

54 ：デフォルトの名無しさん：2012/12/09(日) 22:00:45.55

>>39はもっと評価されていい
検索すれば出てくるけど

>>53
韓国人はwhile暴走させて鯖ダウンさせてみんなに迷惑かけてそうだな

55 ：デフォルトの名無しさん：2012/12/09(日) 23:51:26.77

コードだけ書き捨てていくゴミみたいなコミュ力の>>39をどう評価しろって？ｗ
ただのクズじゃんｗｗｗ

56 ：デフォルトの名無しさん：2012/12/10(月) 00:10:21.76

質問でもなく回答でもない>>55のようなレスは今後スルーの方向で

57 ：デフォルトの名無しさん：2012/12/10(月) 00:50:04.20

つまり>>56をスルーすればいいのかな？

58 ：デフォルトの名無しさん：2012/12/10(月) 01:19:06.74

>>51はもっと評価してもいい>>5よりもシンプルで無理がない

59 ：デフォルトの名無しさん：2012/12/10(月) 10:03:42.71

ほんとだ
ウジ虫の>>56を個別あぼーんしたらスレの見通しがよくなった

60 ：デフォルトの名無しさん：2012/12/10(月) 14:51:50.01

質問します。

Perlのversionは5.16.1で、ActivePerlを用いています。

プログラムを実行すると、
Argument "@datas" isn't numeric in division (/) at 省略/GD/Graph/axestype.pm line 1488
Illegal division by zero at 省略/GD/Graph/axestype.pm line 1488

と、エラーがでてくるのですが、これは何を指しているのでしょうか？

axestype.pmの１４８８行目は、
return ($min,$max) unless $min/$max > 0 ;
となっています。

61 ：デフォルトの名無しさん：2012/12/10(月) 14:57:12.65

@datasが数字じゃねーよ！！　isn't numeric
チャック・ノリスだけが零除算できる！！！　division by zero

62 ：デフォルトの名無しさん：2012/12/10(月) 15:00:46.73

チャック・ノリス自重ｗｗｗ

63 ：デフォルトの名無しさん：2012/12/10(月) 15:05:48.69

>>61

レスありがとう
@datasにテキストファイルに数字入れてあるものを格納してるんだけどその方法が間違っているのか…それじゃできないのか
初心者なもんですんません

64 ：デフォルトの名無しさん：2012/12/10(月) 15:06:00.47

>>60
エラーが出てるのにエラーが理解できないならプログラムは諦めろ
何のためのエラーメッセージだと思ってるんだ？
お前の頭の悪さは致命的

65 ：デフォルトの名無しさん：2012/12/10(月) 15:32:49.83

0を0.00にする

66 ：デフォルトの名無しさん：2012/12/10(月) 15:35:31.04

datasってのが英語的に間違ってるのがよくないと思うね

67 ：デフォルトの名無しさん：2012/12/10(月) 15:57:40.34

>>66
もし「Sというデータ」の意図なら、当然sdataとすべきだな。

68 ：デフォルトの名無しさん：2012/12/10(月) 17:32:43.32

>>63
> @datasにテキストファイルに数字入れてあるものを格納してるんだけど
その数字は半角でないとエラー出ると思うけどそのへんは大丈夫なのかな
> axestype.pmの１４８８行目は、
なんてのを見るとちょっと嫌な予感がするんだけど

69 ：デフォルトの名無しさん：2012/12/10(月) 18:47:28.31

大丈夫だろ。
初心者を言い訳にしてるゴミ>>63のコードが動こうが動くまいが社会には何の影響もない。

初心者を言い訳にしてる奴って社会に必要ないからね。
必要ない＝ゴミ。

両親の顔想像できる？
それ、ガキ一人まともに教育できないくせに中出ししまくったゴミ生産機だから。

70 ：デフォルトの名無しさん：2012/12/10(月) 22:55:53.82

>>63
>@datasにテキストファイルに数字入れてあるものを格納してるんだけどその方法が間違っているのか…それじゃできないのか
open()でそのファイルをオープンして、ファイルの内容を読む必要がある

71 ：デフォルトの名無しさん：2012/12/10(月) 23:00:58.00

また初心者名乗ってる馬鹿が来たのかｗ
一生言ってろｗｗｗそれがお似合いｗｗｗｗｗ

72 ：デフォルトの名無しさん：2012/12/10(月) 23:36:03.85

何か知らんがものすごい叩きっぷりだな
んじゃ俺はどこぞでゴミコードばらまくとしますかね

73 ：デフォルトの名無しさん：2012/12/10(月) 23:57:17.21

@datasに入れるのはファイル名ではなくて、数字そのものにしないといけない

はっきり言って、自分自身のニーズで組んでないでしょ？学校の宿題なんでしょ？

74 ：デフォルトの名無しさん：2012/12/11(火) 00:54:05.44

そういえばスパコンでゼロ除算してハングさせたことがあったっけ
なつかしい思い出だ

75 ：デフォルトの名無しさん：2012/12/11(火) 01:11:47.82

スーパーもコンビニもいまじゃあ、ほとんどPOSシステムだからなあ

76 ：デフォルトの名無しさん：2012/12/11(火) 09:41:43.85

$min/$max > 0 ; って $min * $max > 0 ; と同じことだろ？
なぜ割り算に？

@datas にファイルから数字列を拾って格納したということなら\r|\nが残っていないか？

割っちゃいかんというんだから$maxに何が入ってるか表示させてみ

77 ：デフォルトの名無しさん：2012/12/11(火) 23:02:52.37

１行目がよくわからないのですが。

78 ：デフォルトの名無しさん：2012/12/12(水) 01:44:42.90

a/bの符号はabの符号に一致するやん
それがわからないなら中１からやり直そう

79 ：デフォルトの名無しさん：2012/12/12(水) 17:28:23.88

メンバ変数がメソッドの外で宣言されているインサイドオブジェクトの継承ってどうやるの

80 ：デフォルトの名無しさん：2012/12/12(水) 20:49:09.96

インサイドオブジェクトってなんぞ

81 ：デフォルトの名無しさん：2012/12/12(水) 20:56:27.68

ゼロで割ると結果はゼロになるとかならないとかゆとりとか脱ゆとりとか

82 ：デフォルトの名無しさん：2012/12/12(水) 21:01:28.08

インサイドアウトオブジェクト

83 ：デフォルトの名無しさん：2012/12/12(水) 21:24:15.17

オフサイドオブジェクト

84 ：デフォルトの名無しさん：2012/12/12(水) 22:34:37.31

baseでもparentでも使って、普通に継承できるっしょ。

85 ：デフォルトの名無しさん：2012/12/14(金) 02:16:44.58

http://blog.livedoor.jp/dankogai/archives/50783623.html

86 ：デフォルトの名無しさん：2012/12/14(金) 08:53:42.24

Perldocにあるよ。
http://perldoc.perl.org/perlobj.html#Inside-Out-objects

87 ：デフォルトの名無しさん：2012/12/15(土) 04:25:57.71

>>85
ブログの宣伝キチガイ乙

88 ：デフォルトの名無しさん：2012/12/15(土) 16:59:26.50

ゼロにはプラスのゼロとマイナスのゼロがあるとかないとか円周率は３とか符号のないぴったりゼロとか

89 ：デフォルトの名無しさん：2012/12/16(日) 14:27:33.38

Windows 8 (64bit)にActive Perlをインストールしたのですが
コマンドラインから操作できません

C:\>perl -v
This is perl 5, version 16, subversion 1 (v5.16.1) built for MSWin32-x64-multi-
hread
（以下省略）

D:\>perl -e 'print "Hello World\n"'
Can't find string terminator "'" anywhere before EOF at -e line 1.

他のワンライナーを入れてもみんな「'」がないよ
というエラーメッセージになります

ファイルに書いたプログラムはちゃんと実行できるのですが
何が悪いのでしょう？

90 ：デフォルトの名無しさん：2012/12/16(日) 14:36:37.46

例えば

>perl -le'$i=$_,print map"$i$_ ",@!for@!=(0..9,A..F)'
動かない

>perl -le"$i=$_,print map qq($i$_ ),@!for@!=(0..9,A..F)"
動く

つまり
・'' ではなく "" で囲む
・"" は qq() にする

すると下になり、
これは動く
>perl -e "print qq(Hello World\n)"

91 ：デフォルトの名無しさん：2012/12/16(日) 15:39:22.67

>>90
Windowsってことはコマンドプロンプトだろ？

ならコマンドプロンプトに合わせた
クォートやエスケープをしないといかんよ。

92 ：デフォルトの名無しさん：2012/12/16(日) 16:26:57.60

>>90
そういう基本の分かってないゴミはPerl以前の問題
ゴミが何で調子に乗ってPerlなんかに手を出したんだろうな

93 ：デフォルトの名無しさん：2012/12/16(日) 17:38:54.32

>>92
今日も寂しそうだなお前
まあそのうちいいことも…ないわ

94 ：デフォルトの名無しさん：2012/12/16(日) 18:53:41.14

自己紹介乙。

95 ：デフォルトの名無しさん：2012/12/16(日) 19:58:10.48

wwwwwwwwwwwwwwwwwwwwww

96 ：デフォルトの名無しさん：2012/12/16(日) 21:36:22.86

89番です
90番さん
ありがとうございました
書いていただいたやり方でちゃんと動きました

91番さん
Windowsのコマンドプロンプトはそれなりの流儀があるんですね

92番さん
すみません　LinuxやCygWinではちゃんと動いていたので焦って
しまいました

97 ：デフォルトの名無しさん：2012/12/16(日) 22:04:32.40

レスアンカーのつけかた
半角の不等号を2個入力して、その直後に半角数字をかきます
自動的にあおくなります

98 ：デフォルトの名無しさん：2012/12/16(日) 23:19:23.48

頭の悪い>>96には言うだけ無駄
まともな精神構造なら他のレスからそのくらい推察できる

99 ：デフォルトの名無しさん：2012/12/17(月) 01:42:18.72

"シェル" も知らずにLinuxやCygWin使ってたとするとむしろおどろき
どういういきさつでPerlを使うようになったのか興味しんしん

100 ：デフォルトの名無しさん：2012/12/17(月) 13:46:28.20

モジュールとか他人が作ったものを使うと特許や著作権とか言われそうだから
自分で全部作った方が安心だからモジュールは使わない

101 ：デフォルトの名無しさん：2012/12/17(月) 14:15:01.45

OSから自作か
スゲェ御仁だ
是非ともお師様と呼ばせてくんしゃい

102 ：デフォルトの名無しさん：2012/12/17(月) 15:28:15.22

>>101
あんたは知らんのだろうが、実務の世界では>>100のような状況はいくらでもある。

103 ：デフォルトの名無しさん：2012/12/17(月) 16:05:48.19

個人用にひっそり使うのならともかく、業務用としてコードを販売したり
サービス提供に絡んだりする時は、権利関係きちんとしないと危ないんだろうな

104 ：デフォルトの名無しさん：2012/12/17(月) 22:14:35.84

まったくそのとおりのBSD。

105 ：デフォルトの名無しさん：2012/12/17(月) 22:17:03.82

情報管理部門にごっそりlibディレクトリを消されるケースだってあるしね。

106 ：デフォルトの名無しさん：2012/12/17(月) 22:23:02.02

アホかこいつら
CPAN使わないなんてperl使わないのと同義、
そんなクソいシステムは捨てろ
それが出来ない開発者はなーんにも考えてないただのｳﾞｧｶだ

107 ：デフォルトの名無しさん：2012/12/18(火) 00:39:12.81

はいはい。アマチュア乙。学生乙。就職先決まったの？

108 ：デフォルトの名無しさん：2012/12/18(火) 01:05:24.52

そもそもPerl使ってるのなんて>>106みたいなヴァカばっかだから仕方がない

ヴァカじゃなければPerlなんか使わないからな

PHPにしとけ

109 ：デフォルトの名無しさん：2012/12/18(火) 01:26:11.39

まあ３ちゃん企業と大企業・公共団体を同列で論じるのも酷な話だがな

110 ：デフォルトの名無しさん：2012/12/18(火) 12:50:58.34

一行一行特許を侵害してないか調べながらプログラムを組むのがプロというもの

open(IN,$data_file);
while($line = <IN>){
($name,$nenrei) = split(/,/,$line);
if($name eq $FORM_DATA{'name'}){
print "検索と一致しました";
}
}
close(IN);

例えばこういうプログラムでも特許があるか調べながら作るべきだ

111 ：デフォルトの名無しさん：2012/12/18(火) 13:19:32.78

ヴァカはすっこんでろよ
ジョークでもそれ面白いつもりかよ
本当のコミュ小だオメーは

112 ：デフォルトの名無しさん：2012/12/18(火) 15:50:46.24

カリカリすんなよ

113 ：デフォルトの名無しさん：2012/12/18(火) 22:30:08.20

にゃー

114 ：デフォルトの名無しさん：2012/12/18(火) 22:31:56.73

CGIとPerlの区別がつかないひともCPANとPerlの区別がつなかいひとも
軽くスルーの方向でお願いします

115 ：デフォルトの名無しさん：2012/12/18(火) 22:38:37.43

CGIはPerlの用途の一つだけど
CPANは違うだろ
ちょっとそこの致傷は口夫妻で黙って棺桶にでも入ってろよ
ジャマだジャマ

116 ：デフォルトの名無しさん：2012/12/18(火) 22:54:27.73

Perl6って結局、失敗なの？

117 ：デフォルトの名無しさん：2012/12/18(火) 22:55:29.32

お前の頭がしっピアなのは分かった

118 ：デフォルトの名無しさん：2012/12/18(火) 23:51:57.40

履歴書書いたか？早く就職して親御さんを安心させたほうがいい。間違いない。

119 ：デフォルトの名無しさん：2012/12/19(水) 00:06:42.19

退職願書いたか？早く退職して親御さんを安心させたほうがいい。間違いない。

120 ：デフォルトの名無しさん：2012/12/19(水) 00:08:26.27

遺書書いたか？早く他界して親御さんを安心させたほうがいい。間違いない。

121 ：デフォルトの名無しさん：2012/12/19(水) 00:30:03.48

ム板屈指の糞スレ

122 ：デフォルトの名無しさん：2012/12/19(水) 00:33:50.39

>>89です
>>97番さん
なるほど　こう書けばいいんですね

>>98番さん
無駄じゃないです　ありがとうございました

123 ：デフォルトの名無しさん：2012/12/19(水) 00:35:45.45

>>122
二度と来るな基地害。

124 ：デフォルトの名無しさん：2012/12/19(水) 00:36:03.09

>>89です
>>99番さん
LinuxやCygWinのシェルは知ってました
その前にNEWSやSun OSからシェル使ってました
Perlもそのころからですね
どういういきさつで使うようになったかは覚えてません
大量のテキストデータを処理するのに
すごく便利だと感動した記憶は残っています
でも　もっぱらスクリプトファイルを書いてだったので
ワンライナーはほとんど経験ありません

Windows8は先月からやっと本格的に使い出したばかりです

125 ：デフォルトの名無しさん：2012/12/19(水) 00:41:30.03

とうとうブログと2chの区別もつかなくなったか

これが自分一人でできないくせにプログラミングに手を出した挙げ句赤の他人にタダで情報よこせと乞食みたいな真似をした馬鹿の末路なんだろうな

126 ：デフォルトの名無しさん：2012/12/19(水) 00:48:04.24

>>125
乞食に失礼
乞食は>>124と違って
生き延びるために頑張ってんだよ

127 ：デフォルトの名無しさん：2012/12/19(水) 01:20:27.31

>>89さん、こんばんは。
ということは Windows は初めてなわけですね？
Windows のコマンドプロンプトは MS-DOS との互換性を考慮してあるので
UN*X とは違うことも多々あります。正直言って UN*X のように便利では
ありません。だからスクリプトに書いて実行したほうがいいですよ。

128 ：デフォルトの名無しさん：2012/12/19(水) 01:31:50.87

>>119
俺が辞めたからって、お前が就職できるかどうかは別問題だろ？

129 ：デフォルトの名無しさん：2012/12/19(水) 03:03:58.99

低級荒らしは荒らしワード使うからNGに突っ込めばいいけど、
>>89みたいに質問者のふりした荒らしはNGに突っ込むのが難しいから一番タチが悪い。
>>89みたいな荒らし方できる奴は本当に才能すら感じるわ。
不特定多数の他人に嫌な思いをさせることに限っては天才だな。

130 ：デフォルトの名無しさん：2012/12/19(水) 03:32:34.21

お前ら>89に釣られすぎｗｗｗｗ

131 ：デフォルトの名無しさん：2012/12/19(水) 10:02:46.67

>>125って、専門学校の講師とかかな？
専門学校の講師って詐欺師も良いところw

132 ：デフォルトの名無しさん：2012/12/19(水) 10:31:45.18

>>89
perl -e "print \"Hello World\n\""

Unixツールを突っ込んで、癖と常にCP932でエンコードすることを覚えておけば、
それほど違いないと思うけどな。バッチスクリプトは奇怪だけど。

133 ：デフォルトの名無しさん：2012/12/19(水) 12:21:52.22

PerlスレでUnixツールの話をしてるスレ違いのほうが奇怪

134 ：デフォルトの名無しさん：2012/12/19(水) 16:51:14.09

スレ違いの話をし続けるってことは
>>89とグルになってる荒らしなんじゃね？

135 ：デフォルトの名無しさん：2012/12/19(水) 18:06:27.79

何この殺伐さ加減。
またアホどもに張り付かれてるな。

136 ：デフォルトの名無しさん：2012/12/20(木) 00:53:25.73

>> 89番です
>> 127番さん
MS WindowsそのものはPC-9801用のMicrosoft Windows 2.1 日本語版
からいじってます
ただコマンドプロンプト（当時はDOSプロンプト）では簡単な操作し
かしてなく
あまりシェル的な使い方は馴染みがありません

だからPrograming Perlに載っている
perl -e 'print "Hello, world!\n";'
が動かなくて焦ってしまいました

137 ：デフォルトの名無しさん：2012/12/20(木) 01:01:53.20

突っ込みどころを完備満載した
美しいまでの釣りレスｗｗｗ

138 ：デフォルトの名無しさん：2012/12/20(木) 01:04:47.54

>>89番です
>>129番さん
すみません
何かいけないことを書いたでしょうか
荒らしているつもりはないんですが
言葉遣いが悪いというのであれば気をつけます

139 ：デフォルトの名無しさん：2012/12/20(木) 01:05:11.52

>>136は何でこのスレを荒らそうと思ったんだろうな

140 ：デフォルトの名無しさん：2012/12/20(木) 01:06:47.86

それなら
「Learning Perl on Win32 Systems」「初めてのPerl Win32システム」
がいいですよ。

あるいはWindows版のbashを入れるとか。

141 ：デフォルトの名無しさん：2012/12/20(木) 01:09:30.75

windowsを捨てろ
以上

これ以上話すことはない
後の報告もいらない

windows番のbashとかはクソだからまどわさられないように

142 ：デフォルトの名無しさん：2012/12/20(木) 01:18:12.99

あるいはWindows版のtcshを入れるとか。

143 ：デフォルトの名無しさん：2012/12/20(木) 01:27:25.69

>>89さん
荒らしだの何だの言ってるレスは頭がおかしいひとなので無視したほうがいい
ですよ。あとWindows8ならばPowerShellも使えると思います。

144 ：デフォルトの名無しさん：2012/12/20(木) 01:32:10.62

スレ違いの話をしてる基地害のほうがどう見ても異常。

それとも無視していいってことはスレ違いの話題OKになった？

145 ：デフォルトの名無しさん：2012/12/20(木) 01:44:09.09

PerlはUNIX上で誕生したのだけれど、いまではWindowsで使われることのほうが
多いです。CPANはアプリなのでなくともPerlは動きますが、OSがなくてはPerl
は動きません。ワンライナーでのクォートについての質問はスレ違いではあり
ません。Windowsの回答ができないならばそのレスについてはROMしててください。

146 ：デフォルトの名無しさん：2012/12/20(木) 02:52:52.85

クズの典型ワラタｗ

＞いまではWindowsで使われることのほうが多いです。
どこで統計取ったんだろうなｗ
もし感覚で言ってるならクズすぎるｗ

147 ：デフォルトの名無しさん：2012/12/20(木) 03:04:40.84

OSがないとPerlが動かないとか言われても、そうだね、としか言いようがないし、それがスレ違いの免罪符になるわけでもなし。

148 ：デフォルトの名無しさん：2012/12/20(木) 03:38:00.62

>>143=荒らしを助長してるゴミ

149 ：デフォルトの名無しさん：2012/12/20(木) 04:44:32.18

>148
氏ね
勘違いしてないか？
低脳しかいないスレでも質問してもらえることに感謝しろ
例え釣りでも相手にしてもらえるだけありがたいと思え

>143
お前も何で上から目線なの？
「思います」とか断言できない状態でレスつけるな
質問者の環境で確実に動く方法を提示しろ

150 ：デフォルトの名無しさん：2012/12/20(木) 11:10:23.79

「氏ね」は自殺教唆
しかも刑事事件の範囲

151 ：デフォルトの名無しさん：2012/12/20(木) 16:45:02.84

浦島太郎にアドバイスすると、世の中が代りすぎたからJScriptなりnode.jsを使え

152 ：デフォルトの名無しさん：2012/12/20(木) 17:43:51.27

>>151は本当にヴァカなんだろうな。

153 ：デフォルトの名無しさん：2012/12/20(木) 18:55:07.80

perlって一度商標登録されたってマジ？

154 ：デフォルトの名無しさん：2012/12/20(木) 22:53:59.16

分散並列処理フレームワークありませんか？

155 ：デフォルトの名無しさん：2012/12/20(木) 23:43:46.42

>>153
まじだけどだんこがいがだんこそしした

156 ：デフォルトの名無しさん：2012/12/21(金) 00:15:04.33

>>154
ない。
PerlはCなんかより負荷がかかったり処理速度が遅くてもいいから開発効率を上げるという目的のために生み出された。
だから分散並列処理はできないし、そもそも処理速度を上げようって時点でPerlの開発理念から外れてる。
そりゃコードは無駄な処理がないように効率の処理がいいようには書くけど、それはコード以下での世界。
JavaScriptで3DMMORPGを作りたいんです、って言ってるようなもん。
どうしても欲しかったら自分で作るしかない。

ってレスしたらこのゴミは信用するのかね？ｗ

157 ：デフォルトの名無しさん：2012/12/21(金) 01:00:16.19

>>156
お前がゴミじゃないなら信じてもいいけど
どうやらゴミっぽいねｗ

158 ：デフォルトの名無しさん：2012/12/21(金) 01:01:54.54

>>157
　　　　　　　　　　＿＿＿_
　 .ｎi 7　　　　／ノ　　　ヽ＼　　壁に向かってしゃべってろゴミ
l^l | | ｌ ,/) 　／／ﾟヽ　／ﾟヾ＼　　　　　 .ｎ
', U ! ﾚ' / ／　　　⌒　　　⌒　　＼　　 l^l.| | /）
/　　　〈　|　　（＿＿__人＿＿）　　| 　 | U ﾚ'/／)
　　　　　ヽ＼　　　　|lr┬-l|　　　／　　ﾉ　　　／
　／´￣￣ノ　　　　ﾞ=ニ二"　　　＼ｒニ　　　　|

159 ：デフォルトの名無しさん：2012/12/21(金) 01:08:12.67

>>154=>>157=ゴミ

160 ：　　　　たすけて～　燃やされる～～～　(>>158)：2012/12/21(金) 01:08:55.83

　　　　　　　　．;　　"．;"．．;．;"．;": 　　　　　．．;．;　　　　　ボォォォォ　　　．
　　　　　;"．;"　　从人　　从从从从　　;"．;";"．;"从";从ゝ;"
　　　　．;"．;":　＿．从从;．;从从．;"从从．;":从从．;"．;;:从从从　　　;"．;"
．;":　从从从　:　．．;"．从;;:　　　　　　　　从　　　　　　　　　　从　　　．;．;"．;
　．;"．;;:　　　　从ノノ:;"．;":　．．从;．;"．;;:　．;";　　":　;";"　　．;"从　．;"．;
　．;"　　　从　从;　"　从从从从从从从从　　从从从．;"人ｗ　:"　;从　从;"
　　;"．;"　从"．．　　;;:．;　从　从;"．;　从　　　．;．从_ 　　;"．;"　　　从从
　　　　;ソ;"ノ　　;"．;"　　从从　　从从从　　从　　　　　　　　　从从从
　　从;;:　人　　;:从从从;"．;":　　　;"．;":从．　从　！从
　　　　从;:　　;"．;":　．．;"．;;:　　从从| 人　　　从从　　　　从;"．从从 "．　　
　　　　　　　|从从从　．;"从从ノし　| 　　　从　从　　　　..从从|　　　　　.|
　　　　从　　:从;"从从从;";" | 从从从　　从从从　从;．〃"; ー从;从:;从;:从
　　　从从从．;"．从　　．;从从　　．;":．;　从从　　　　　;"．;"　　　　　　从从

161 ：デフォルトの名無しさん：2012/12/21(金) 01:57:56.76

>>156
並列分散処理でググるとhadoopとの連携やmapreduceの話ばかり出てくるな

超古代文明で、perlによってピラミッドが作られていた可能性は否定できないけれど、
これまでの歴史上、凡そ、unixが出来て以来、perlで3DMMOが作られた例なんてあるの?
mozillaがemscripttenでブラウザ上にFPSを作るぐらいなんだし、
まだまだ、jsにドル箱をぶっこまれて進化する可能性の方が高いよ

162 ：デフォルトの名無しさん：2012/12/21(金) 02:18:32.74

技術者にとって技術そのものが無くなることは職と雇用、
これまでに蓄積した経験の多くを失うに等しいんだし、
飯の種になる方へ人口が流動するのは、当然のことだよね？
安定した技術基盤の1つがjavaで、その地位が揺らぐことは、もはや在りえ無いだろう。
その座にjsが昇格してしまったし、君らは、それを阻止できなかった。

163 ：デフォルトの名無しさん：2012/12/21(金) 03:11:39.41

>>161
お前それリアルで誰かに言ってみろよ
基地害扱いされるから

164 ：デフォルトの名無しさん：2012/12/21(金) 03:48:35.18

たまにはオカルト板を見てみろよ．俺なんて、ずっとマシな方だから
グリーのロゴが六角形なことを話題に挙げりゃ、
あいつらフリーメーソンがどうこう喰いつくはずだぞ

165 ：デフォルトの名無しさん：2012/12/21(金) 03:50:50.98

なんでそんな板みてるん？
なんで詳しいん？
興味ないし、全く知らないんだけど。

166 ：デフォルトの名無しさん：2012/12/21(金) 03:59:24.99

知らなくて良いし、知らない方が幸せだよ
真理の1つは、世の中、金が動く方に出来ていて、
その金はイルミナティのような闇の組織が実権を握っているってことだよ
千円札の富士山を透かして御覧。ピラミッドに目が浮かんでくるから

167 ：デフォルトの名無しさん：2012/12/21(金) 07:26:47.11

>>156
耄碌爺が何を言っても誰も聞いてないから安心しろ

168 ：デフォルトの名無しさん：2012/12/21(金) 11:20:00.89

何を言っても誰にも聞いてもらえなかった>>167の実体験か。
やっぱり実際に経験したことのある人が言うと真実味があるね。

169 ：デフォルトの名無しさん：2012/12/21(金) 20:35:16.28

>>168
氏ねよゴミが
ゴミ早く氏ね

170 ：デフォルトの名無しさん：2012/12/21(金) 21:25:12.82

>>169
お前が市ねゴミウジ虫

171 ：デフォルトの名無しさん：2012/12/21(金) 21:43:01.32

>>170=池沼

氏ね

172 ：デフォルトの名無しさん：2012/12/21(金) 21:46:24.77

うるさいゴミ

173 ：デフォルトの名無しさん：2012/12/22(土) 00:46:18.94

初心者を育てるのがPHP､初心者を袋叩きにして人格否定までするのがPerl

174 ：デフォルトの名無しさん：2012/12/22(土) 01:37:51.68

というか、入門には、ダンコガイですらjs勧めてただろ
perl独特の記法なんてバグを誘発するだけで不要。
少し前まで、cのポインタですら叩かれていたのに。
何れはjsもperlと同じ運命を辿るよ。バッドノウハウ多過ぎだし
とはいえ、今日日の計算機事情を考えるとjsがベター。

175 ：デフォルトの名無しさん：2012/12/22(土) 02:14:31.16

while(<>){print "バグを誘発するってよ！"}

176 ：デフォルトの名無しさん：2012/12/22(土) 03:37:19.39

断固害

177 ：デフォルトの名無しさん：2012/12/22(土) 05:02:11.70

アナルにガチムチで角刈りのアニキのバキバキに勃起したチムポを突っ込まれてケツの穴を締めろと言われたから締めたらそのままガンガン掘られて最後は直腸の奥に熱くて黄色い濃いザーメンを出されてフィニッシュ

178 ：デフォルトの名無しさん：2012/12/22(土) 15:10:52.22

Windowsを使いこなす庶民的なだんこがいを妄想中。。。

179 ：デフォルトの名無しさん：2012/12/26(水) 11:34:56.26

180 ：デフォルトの名無しさん：2013/01/06(日) 14:27:04.51

お世話になります。
packageを変数に入れて使用したいのですが方法はありますか？

use strict;
package A;
our $foo = 5;
sub var{1}

package main;
my $b = $A::foo;
my $c = A::var();

上記のようなことをイメージとしては、以下のようにして使用したいです。
package main;
my $d = A;
$d::foo;
$d::var();

お手数おかけしますが、よろしくお願いします。

181 ：デフォルトの名無しさん：2013/01/06(日) 17:04:14.11

>>180
いくつか方法があるけど

my $pkg = 'A';
$pkg->var();

みたいにして変数も関数経由がおすすめかな。

182 ：デフォルトの名無しさん：2013/01/06(日) 17:06:06.38

死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね

183 ：デフォルトの名無しさん：2013/01/06(日) 18:08:02.36

>>181
回答ありがとうございます。

少しはぐらかした感がありますが、
どちらかというと、関数を使用せずに変数にアクセスしたいです。

背景として、
モジュールA,B,Cがあり
Aにグローバル変数群があり、
Bを経由してCからAの変数にアクセスしたいと考えています。
また、Aは変更は加えたくないと考えています。

# my $pkg = 'A';
# ↑現在調べていますが、シンボリック変数というんですかね？

お手数おかけしますが、よろしくお願いします。

184 ：デフォルトの名無しさん：2013/01/06(日) 18:12:53.33

185 ：デフォルトの名無しさん：2013/01/06(日) 18:16:57.46

あるスコープのレキシカル変数を自動的にハッシュにまとめる、というような操作はできないでしょうか。
perlでリフレクションというとシンボルテーブルへのアクセスですが、
レキシカル変数にはどうもアクセスできないように思いまして・・・
↓今現在の用途としてはこんな場面をイメージしています。

erb風のテンプレートクラスに値を渡す
(resultメソッド内でevalを実行するにあたり、現在は手作業でハッシュを作って渡しています)

my $name = 'my name';
my $output_text = $epl->result({'name'=>$name});

rubyではbindingオブジェクト、pythonではlocals()やvars()で
任意のスコープにあるすべての値を集めることができるので、近い形にできればと思ったのですが・・
erb.result(binding)　 #ruby
epy.result(locals())　#python

186 ：デフォルトの名無しさん：2013/01/06(日) 18:55:03.96

>>183
想定が分からん。

package _A;
$foo = "Hello, World!";

package _B;
sub new {
my ($class) = @_;

return bless {
foo => *_A::foo,
}, $class;
}

package main;
use strict;
use warnings;

my $obj = _B->new;
print ${$obj->{foo}};

187 ：デフォルトの名無しさん：2013/01/06(日) 19:09:27.88

>>184
B を経由して、の意味が良く分からん。
もうちょい本当にやりたいこと書いた方が回答つきやすいんじゃない？

>>185
PadWalker 使えばできそうたけどどっちかっていうとデバッグ向けモジュール

188 ：デフォルトの名無しさん：2013/01/06(日) 19:24:33.07

バイナリファイル内から、特定の数バイトが存在する場所を
探すプログラムを書いているんですが、最終的な検索がうまく
いきません。

ファイルをopenして、一定の長さのデータを読み込んでから、
unpack()で16進文字列(?)に変換して、index()で検索している
のですが、テスト用のデータで確かに検索対象の16進文字列
があるはずなのに、index()の戻り値が-1になってしまいます。

my $seach = "ffffffffff";
read(IN,$buf,$size);
my $data = unpack("H*",$buf);
my $pos = index($data,$search);

みたいな感じで、$data内には"ffffffffff"が見えるのですが、
$pos=-1で戻されてしまいます。

unpackで変換した$dataは文字列として解釈されてないので
しょうか？

189 ：デフォルトの名無しさん：2013/01/06(日) 20:02:49.24

>>186
>>187
返信ありがとうございます。
イメージとしては

use strict;
package _A;
our $foo = 1;
our $var = 2;

package _B;
sub new {
my $self = {A => '_A'};
return bless $self, __PACKAGE__;
}

package main;
my $c = _B->new();
$c->{A}::foo # 1を取得したい
$c->{A}::var # 2を取得したい

↑コードとしては上記のようなイメージです。

わかり難くて申し訳ないです。
よろしくお願いします。

190 ：デフォルトの名無しさん：2013/01/06(日) 20:03:23.66

なんでそんな重くなるようなことしてんの？
単純にバイナリのまま探せばいいじゃない。

191 ：デフォルトの名無しさん：2013/01/06(日) 20:27:48.35

なんでそんな重くなるようなことしてんの？
単純にバイナリのまま探せばいいじゃない。

192 ：デフォルトの名無しさん：2013/01/06(日) 22:08:13.75

なんでそんな重くなるようなことしてんの？
単純にバイナリのまま探せばいいじゃない。

193 ：デフォルトの名無しさん：2013/01/06(日) 22:56:58.60

なんでそんな重くなるようなことしてんの？
単純にバイナリのまま探せばいいじゃない。

194 ：デフォルトの名無しさん：2013/01/06(日) 23:02:36.90

いつもの方連投しないでください

195 ：191-193：2013/01/06(日) 23:03:30.12

ごめんなさい

196 ：デフォルトの名無しさん：2013/01/06(日) 23:05:44.08

read(IN,$buf,$size);
my $pos = index($buf,"\xff\xff\xff\xff\xff");

単純にバイナリの意味が分からないに一票。

197 ：デフォルトの名無しさん：2013/01/06(日) 23:08:52.34

read(IN,$buf,$size);
my $pos = index($buf,"\xff\xff\xff\xff\xff");

単純にバイナリの意味が分からないに一票。

198 ：デフォルトの名無しさん：2013/01/07(月) 00:27:50.28

>>189
use strict;

package _A;
our $foo = 1;
our $var = 2;

package _B;
sub new {
my $self = {A => '_A'};
return bless $self, __PACKAGE__;
}

package main;
use Data::Dumper;
my $c = _B->new();

my %st_a; # Aのシンボルテーブル
{
no strict 'refs';
%st_a = %{$c->{A} . '::'};
}

printf "foo: %d\n", ${$st_a{foo}}; # 1を取得したい
printf "bar: %d\n", ${$st_a{var}}; # 2を取得したい

199 ：デフォルトの名無しさん：2013/01/07(月) 00:30:21.99

200 ：デフォルトの名無しさん：2013/01/07(月) 13:37:45.73

201 ：デフォルトの名無しさん：2013/01/07(月) 23:56:19.92

>>198 - 200
回答ありがとうございます。
間で、no strict 'refs';を挿んで
使う方法があるんですね。勉強になりました。

ただ、これだと_Bを介すメリットが薄れてしまうような気がするので
別な方法を検討したいと思います。

回答ありがとうございました。

202 ：デフォルトの名無しさん：2013/01/08(火) 00:27:47.81

203 ：デフォルトの名無しさん：2013/01/08(火) 01:10:24.28

>>190
>>189の頭が根本的に悪いからだよ。

204 ：デフォルトの名無しさん：2013/01/08(火) 03:22:51.90

>>201
＞メリットが薄れてしまう
それでもここの回答者たちが低能な情報乞食のお前に回答するメリットよりはるかに大きいからいいんじゃない？
メリットがどうのと抜かす前に身の程を知れ屑が。

205 ：デフォルトの名無しさん：2013/01/08(火) 05:37:33.08

東方みたいなカッコイイゲームってパールで作れますか？
作れるなら作り方よろ＾＾

206 ：デフォルトの名無しさん：2013/01/08(火) 05:48:40.97

>>205
このサイト行って二度と戻ってくるな
ttp://dixq.net/rp/

207 ：デフォルトの名無しさん：2013/01/08(火) 11:47:49.07

昨日延々と質問してた馬鹿はどこいった
からかってもマジレス返してくるから別所でヲチってて面白かったんだが

208 ：デフォルトの名無しさん：2013/01/08(火) 12:33:58.49

>>206スレチうざ

209 ：デフォルトの名無しさん：2013/01/08(火) 14:43:41.78

1 3 5 6 7 8 13 45 67 54

みたいな1行の10個の数字がスペースで区切られてるようなファイルが100個あります。(001.data ~ 100.data)
1つのファイルを読み込んで、num[0]~num[9]みたいに配列に格納して計算して、結果を算出します。(結果はファイル毎に > result001.dat　で出力する。)
そして、結果を出力したら次のファイルを読み込み、この一連の作業を100個のファイルに関して行いたいです。
（出力ファイル result001.dat ~ result100.dat　を得る）

さて、この場合にどのようなコードを書けばいいのでしょうか。計算処理の部分は別として、ファイルを読み込み、配列に格納する過程を教えていただけないでしょうか。
あとこの場合、シェルみたいにファイル名をforを使って $i.dat　という風に指定することはPerlでもできるのでしょうか。

よろしくお願いします。

210 ：デフォルトの名無しさん：2013/01/08(火) 15:12:11.83

211 ：デフォルトの名無しさん：2013/01/08(火) 15:17:48.38

ループ開始
読み込む
区切り文字で分割して配列に格納、ゴミ処理
計算する
書き出す
ループ終わり

ファイル操作とかでggrks
何がわからないのかわからない

212 ：デフォルトの名無しさん：2013/01/08(火) 15:22:39.19

連レス失礼しました

>>211
ぐぐってもよく分からなかったのです。
>ループ開始
>読み込む
>区切り文字で分割して配列に格納、ゴミ処理
のところ、詳しく教えていただけませんか。

213 ：デフォルトの名無しさん：2013/01/08(火) 16:09:07.81

214 ：デフォルトの名無しさん：2013/01/08(火) 16:10:02.39

215 ：デフォルトの名無しさん：2013/01/08(火) 16:26:26.05

>>212
じゃあお前の頭では無理

216 ：デフォルトの名無しさん：2013/01/08(火) 16:29:09.05

>>215
ありがとうございました。

217 ：デフォルトの名無しさん：2013/01/08(火) 16:45:52.31

オライリーの「初めてのPerl」をしっかり読み込みましょう

218 ：デフォルトの名無しさん：2013/01/08(火) 17:21:56.99

外部モジュールインストール禁止のため、swatch相当の処理をtailでやろうとしているのですが、
hoge.plをkill-9するとtailがゾンビになってしまいます

hoge.pl
-----
$pid=fork;
exit 0 if ($pid);
print $$;

open FH, "/usr/bin/tail -f hoge.log |";

while (<FH>) {
print $_ if (/hogehoge/);
};

シグナルを捕まえればと$SIG{KILL}を設定しても受け取ってもらえないようで、
tailというかopenした子プロセスも道連れ？に終了させるにはどうすればいいのでしょうか？

Cent6付属のperlで足掻いてます

219 ：デフォルトの名無しさん：2013/01/08(火) 17:25:06.36

正確に言うとphpなんですがpreg系の正規表現置換で、
バックスラッシュ以外の一文字っていう正規表現がわかりません。
/[^\\]/
かなと思ったのですが[]が閉じてないと言われてしまいます。
/[^\]/でも同様でした。
文字列を指定した文字で、分割したくて、エスケープ処理も使いたいってことなんですが、
1:2\::3
↑この文字列を1,2:,3に分割したいってことで\が前にない:で分割ってのをしたいんです。
よろしくお願いします

220 ：デフォルトの名無しさん：2013/01/08(火) 18:21:07.29

>>218
Cent6って何？
妙なものに付属してたPerlなんか使ってるからそういうことになる。

221 ：デフォルトの名無しさん：2013/01/08(火) 18:23:12.98

>>218
OSをシャットダウンすればそれも道連れで終了されるよ＾＾分かったかゴミ

222 ：デフォルトの名無しさん：2013/01/08(火) 18:57:18.81

ああああああああああああああああああああああ

223 ：デフォルトの名無しさん：2013/01/08(火) 19:09:58.61

>>221は煽りたいだけだろうけど、実際問題それが解答だと思う。
osの再起動かければ消えないプロセスはないし、こんなところで質問してる>>218みたいな基地害のシステムが頻繁に再起動したところで誰も困らない。
>>218自身が面倒ってだけでしょ。
面倒だと感じるたびに、能もないくせにプログラミングに手を出したことを猛省すればいい。

224 ：デフォルトの名無しさん：2013/01/08(火) 20:00:01.06

Cent6も知らないカスが喚いておるわ

225 ：デフォルトの名無しさん：2013/01/08(火) 20:02:29.01

いるわｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

226 ：デフォルトの名無しさん：2013/01/08(火) 20:04:28.91

>>219
>かなと思ったのですが[]が閉じてないと言われてしまいます。
なんとなく、\が]に掛かっているんだろうなとエスパー
cpan辺りの正規表現やtrapとかいったドキュメントでも漁れ

227 ：デフォルトの名無しさん：2013/01/08(火) 20:07:32.41

>かなと思ったのですが[]が閉じてないと言われてしまいます。
なんとなく、\が]に掛かっているんだろうなとエスパー
cpan辺りの正規表現やtrapとかいったドキュメントでも漁れ

ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

228 ：デフォルトの名無しさん：2013/01/08(火) 20:08:26.94

perlの糞ノウハウなんて忘れるもんだよ

229 ：デフォルトの名無しさん：2013/01/08(火) 20:18:23.14

管理者やアドミンがperlなんかでバッチ処理する神経がわからない

230 ：デフォルトの名無しさん：2013/01/08(火) 20:24:46.14

キチガイはするんだよ

231 ：デフォルトの名無しさん：2013/01/08(火) 20:48:21.91

$test{'www'}="test1";
文字列の場合は$test{'www'}のように連想配列を使って
wwwに対応した文字列を取り出せるけど
これを文字列ではなく配列に対応させるにはどうしたらいいんですか？

if($str eq "www"){
@use_hairetu = @www_no_hairetu;
}
とするしかないんでしょうか？

232 ：デフォルトの名無しさん：2013/01/08(火) 20:54:42.14

参照を入れればいいんじゃね

233 ：デフォルトの名無しさん：2013/01/08(火) 20:57:06.55

>>231
すればいいだろウザいよお前。

234 ：デフォルトの名無しさん：2013/01/08(火) 21:05:01.61

>>232
参照を入れるとは？
詳しく

235 ：デフォルトの名無しさん：2013/01/08(火) 21:09:41.19

>>234
こういう感じ
http://www.google.co.jp/search?q=%E3%83%B4%E3%82%A1%E3%82%AB%E3%81%8C%E3%81%9D%E3%82%8C%E3%81%A3%E3%81%BD%E3%81%84%E5%8D%98%E8%AA%9E%E3%81%AB%E5%BC%95%E3%81%A3%E3%81%8B%E3%81%8B%E3%81%A3%E3%81%9F%EF%BD%97%EF%BD%97%EF%BD%97

236 ：デフォルトの名無しさん：2013/01/08(火) 21:15:41.20

>>234
連想配列のキーを抽象化して単独の配列にしたものを入れるんだよ。
そうすればあとは自動で処理される。
詳しくはここでも読め。
ttp://dixq.net/rp/

237 ：デフォルトの名無しさん：2013/01/08(火) 21:20:55.07

>>234
そんなことも知らずにPerlやってんの？

本物のキチガイか？

基礎もやってないゴミが質問しに来るんじゃねーよ

ここは基礎から手取り足取り教えてくれるPerl教室じゃねーんだよ

そのゴミみたいな脳でそれが理解できるか？

238 ：デフォルトの名無しさん：2013/01/08(火) 21:27:07.17

キチガイｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

239 ：デフォルトの名無しさん：2013/01/08(火) 21:38:25.01

東方って結局何？
たまに「東方厨」とかって単語を見かけるんだけど実体が分からない

240 ：デフォルトの名無しさん：2013/01/08(火) 21:50:36.70

>>237
このスレで、そんなレスして楽しいかい？

241 ：デフォルトの名無しさん：2013/01/08(火) 22:02:31.11

>>239
東方プロジェクトってヲタ集団のサークルがあるんだよ

242 ：デフォルトの名無しさん：2013/01/08(火) 22:03:52.75

>>240
Perl以外に友達がいない田舎猿なんだからほっとけよ

243 ：デフォルトの名無しさん：2013/01/08(火) 22:05:06.72

オタクｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

244 ：デフォルトの名無しさん：2013/01/08(火) 22:07:24.76

>>241
集団じゃないよ一人だよ

245 ：デフォルトの名無しさん：2013/01/08(火) 22:07:30.72

>>240
なぜ、楽しいかどうかを基準にしたんだい？

246 ：デフォルトの名無しさん：2013/01/08(火) 22:09:09.57

東方Projectってサークル名じゃないぞ。
上海アリス歌劇団ってサークルの作ってる作品をまとめて東方Projectという。

247 ：デフォルトの名無しさん：2013/01/08(火) 22:15:53.60

正しい知識を身に付けろ
いい加減な知識で喋ってると社会に出てから恥ずかしいぞ

東方Project
ttp://ja.wikipedia.org/wiki/%E6%9D%B1%E6%96%B9Project

上海アリス幻樂団
ttp://ja.wikipedia.org/wiki/%E4%B8%8A%E6%B5%B7%E3%82%A2%E3%83%AA%E3%82%B9%E5%B9%BB%E6%A8%82%E5%9B%A3

東方のすごさはこのサイトを見れば分かる
↓
同人最大手の東方を越える規模の同人がでてこないのはなんで？
ttp://blog.livedoor.jp/coleblog/archives/51827036.html

248 ：デフォルトの名無しさん：2013/01/08(火) 22:23:52.61

キモオタｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

249 ：デフォルトの名無しさん：2013/01/08(火) 22:42:31.35

で？Cent6って何？
東方と関係あんの？

250 ：デフォルトの名無しさん：2013/01/08(火) 22:44:45.39

東方厨ファビョるｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

251 ：デフォルトの名無しさん：2013/01/08(火) 22:53:40.23

キチガイのすくつになったなここも
晴れてクソスレの仲間入りだ
泣けよ喜べよ

252 ：デフォルトの名無しさん：2013/01/08(火) 23:00:32.25

>>251
Perl自体がオワコンなのに何言ってんだか

253 ：デフォルトの名無しさん：2013/01/08(火) 23:08:32.10

これからはＰＨＰの時代！

254 ：206：2013/01/08(火) 23:13:34.77

東方のアンチも厨も両方ここから消えろ
ガチで東方似のゲーム作りたいなら前に紹介したサイトに行って戻ってくるな

255 ：デフォルトの名無しさん：2013/01/08(火) 23:23:01.08

>>254
うるさいゴミ
ゴミのお前に指図される筋合いはない
自治厨か？キメェｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

256 ：デフォルトの名無しさん：2013/01/08(火) 23:26:34.55

東方ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

257 ：デフォルトの名無しさん：2013/01/09(水) 00:00:47.29

>>254
お前の紹介したサイトはスレチだったろボケ、スレタイ1億回声に出して読みなおせ。

258 ：デフォルトの名無しさん：2013/01/09(水) 00:04:02.72

>>218
$SIG{TERM}をトラップして、子プロセスにシグナル送るようにする。
んで、kill -15 でいかんの？

kill -9 でやるなら、子プロセス側で親プロセスを監視するとか。

>>219
こちらへどうぞ。
【PHP】下らねぇ質問はID出して書き込みやがれ 124
http://kohada.2ch.net/test/read.cgi/php/1353402165/

>>231
http://perldoc.jp/docs/perl/5.16.1/perlref.pod

259 ：デフォルトの名無しさん：2013/01/09(水) 00:26:45.09

>>258←自己顕示欲を満たしたいだけのヴァカが入りましたｗ

260 ：デフォルトの名無しさん：2013/01/09(水) 00:35:11.67

>>259
それ以下のﾐｼﾞﾝｺなみのヴァーーーーーーーーーーーーーーーーーカ（）が入りましたｗ

261 ：デフォルトの名無しさん：2013/01/09(水) 00:47:36.91

>>258みたいのがURL一つで回答が終わるような糞質問や、スレ違いのOSのゴミ質問にまでせこせこ回答するから
低レベルな池沼ばかり集まってスレのクオリティを下げるんだろうな
ほんと>>258みたいな本物のキチガイは存在が迷惑でしかない
本人は全く自覚がないんだろうけど

262 ：デフォルトの名無しさん：2013/01/09(水) 01:02:50.40

ぶはあああｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

263 ：デフォルトの名無しさん：2013/01/09(水) 01:36:34.19

やたら伸びてるなと思って見にきたら亞汰魔のおかしな人が暴れてるだけだった。

今日の書き込みには全部目を通したけどまともな書き込みがものの見事に一つもなかった。

264 ：デフォルトの名無しさん：2013/01/09(水) 05:10:26.71

>>263
死ねゴミ
ね
ゴ
ミ

さっさと自決しろ

265 ：デフォルトの名無しさん：2013/01/09(水) 13:07:41.79

東方みたいなゲームってやっぱりパールでは無理なんですかね？＾＾
引き続きリプ募集してるから作り方分かる人は具体的なコードよろよろ＾＾

266 ：デフォルトの名無しさん：2013/01/09(水) 13:33:24.51

>>265
できるよ、コンパイルも出来るから。

267 ：デフォルトの名無しさん：2013/01/09(水) 14:27:55.83

結局東方って何？
硬派なシューティング？
俺はてっきり萌えキャラとかを創作してるヲタ集団だと思ってたんだが。

268 ：デフォルトの名無しさん：2013/01/09(水) 17:31:18.32

ヲタっぽいもの作ってただろ

まりさが何とかとかあれ東方じゃないの？

269 ：デフォルトの名無しさん：2013/01/09(水) 17:52:21.26

東方厨はきもい

270 ：デフォルトの名無しさん：2013/01/09(水) 17:57:46.30

それに関してはいつもの基地外に同意

271 ：デフォルトの名無しさん：2013/01/09(水) 18:11:12.52

>>265
perlがどうとか以前に、おまえはプログラミング初心者

272 ：デフォルトの名無しさん：2013/01/09(水) 18:39:01.45

>>266
コードよろ＾＾

>>271
まあカリカリすんなって＾＾

273 ：デフォルトの名無しさん：2013/01/09(水) 18:40:25.17

perlきもい

274 ：デフォルトの名無しさん：2013/01/09(水) 18:42:59.85

これか。
ttp://www.youtube.com/watch?v=2r9qM4aFDDU
ttp://www27.atwiki.jp/minkey/

275 ：デフォルトの名無しさん：2013/01/09(水) 18:54:53.03

いかにもオタクが好きそう

276 ：デフォルトの名無しさん：2013/01/09(水) 18:58:30.21

perlオタ

277 ：デフォルトの名無しさん：2013/01/09(水) 19:14:17.06

ヲタの好きなものってだいたいキモい。

278 ：デフォルトの名無しさん：2013/01/09(水) 19:19:24.12

なんていうか幼稚臭いんだよね

279 ：デフォルトの名無しさん：2013/01/09(水) 19:26:33.37

こんなもの見つけた

コンサートの様子

http://www.youtube.com/watch?v=enmSm1kG4Qs

後半だんだん声が聞きとりにくくなってくるｗ

280 ：デフォルトの名無しさん：2013/01/09(水) 19:41:52.99

>>279
一生懸命やってる人を馬鹿にするな。

281 ：デフォルトの名無しさん：2013/01/09(水) 19:47:15.11

ｗ

282 ：デフォルトの名無しさん：2013/01/09(水) 19:59:12.04

>>279
これはｗｗｗｗｗｗｗｗｗひｗｗｗｗどｗｗｗｗｗいｗｗｗｗｗｗｗｗｗ

283 ：デフォルトの名無しさん：2013/01/09(水) 22:51:57.77

ゲーム関連の話題で盛り上がってるから便乗質問
こういう超かっこいいゲームってPerlで作れるもんかね？
ttp://www.youtube.com/watch?v=kj4SQKSgh4g

284 ：デフォルトの名無しさん：2013/01/09(水) 23:29:36.33

馬鹿には無理

285 ：デフォルトの名無しさん：2013/01/10(木) 00:13:00.73

>>283
perlは処理の遅いゴミだから無理。

286 ：デフォルトの名無しさん：2013/01/10(木) 00:22:23.16

×　perlは処理の遅いゴミだから無理。
○　>>285はアホでトロいゴミだから無理。

287 ：デフォルトの名無しさん：2013/01/10(木) 01:32:54.97

グラフィックやサウンド周りをXSで作成して、それらを組合わせる部分を
perlで作れば可能となる。

288 ：デフォルトの名無しさん：2013/01/10(木) 01:45:21.79

>>286
じゃあお前作ってみろよゴミ

289 ：デフォルトの名無しさん：2013/01/10(木) 02:55:53.56

>>288
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね

290 ：デフォルトの名無しさん：2013/01/10(木) 03:22:45.40

>>279
その人が東方の中の人なの？

291 ：デフォルトの名無しさん：2013/01/10(木) 04:47:55.20

ヲタっぽくないじゃん
可愛いじゃん

292 ：デフォルトの名無しさん：2013/01/10(木) 08:17:45.32

とっとと叩き出さないからこんなことに

293 ：デフォルトの名無しさん：2013/01/10(木) 10:41:05.57

>>287
XS？
Perl単体では無理なの？

294 ：デフォルトの名無しさん：2013/01/10(木) 16:03:20.43

>>291
異議あり！

295 ：デフォルトの名無しさん：2013/01/10(木) 16:11:14.44

回答ありがとうございます
一応自決しました
色々試行錯誤していたところ何とか無事に動くようになりました

296 ：デフォルトの名無しさん：2013/01/10(木) 16:48:13.66

自決ねぇ…

297 ：デフォルトの名無しさん：2013/01/10(木) 18:58:40.33

こんばんわ＾＾
歌とかどうでもいいんで東方っぽいゲームのパールコードまだすかね？＾＾

298 ：デフォルトの名無しさん：2013/01/11(金) 01:10:38.40

そんな話こそどうでもいい

299 ：デフォルトの名無しさん：2013/01/11(金) 02:45:46.61

ここは質問スレに見せかけた初心者袋叩きスレだからなｗ

300 ：デフォルトの名無しさん：2013/01/11(金) 03:41:23.78

MKTだな

301 ：デフォルトの名無しさん：2013/01/11(金) 05:06:50.59

MKTって何？

302 ：デフォルトの名無しさん：2013/01/11(金) 10:18:43.38

>>301
「マジでクソスレ」

303 ：デフォルトの名無しさん：2013/01/11(金) 13:39:39.05

>>298
そんなにmikoの話がしたいのか。

304 ：デフォルトの名無しさん：2013/01/11(金) 19:32:28.43

>>279
これは何なんだ
何をどう間違えたらこういうことになるんだ
何かの罰ゲームだろ

305 ：デフォルトの名無しさん：2013/01/12(土) 00:12:35.04

あれ？＾＾
東方ゲームのコードまだ来てない系すかね？＾＾
はじめは東方弾幕あたりから入っちゃって、このスレで段々レベル上げまくってく感じ＾＾
長い付き合いになると思うから仲良くしてな＾＾

306 ：デフォルトの名無しさん：2013/01/12(土) 00:56:21.84

>>305
Perlも初心者を脱出できないレベルだし、ゲームプログラムも詳しくないけど。
作っても良いよ。(ちょっと長めのスパンだけど)
でも、作ったら作ったで叩かれるんだよね？

307 ：デフォルトの名無しさん：2013/01/12(土) 03:45:45.97

>>306
俺は自分が作れないから叩かないよ＾＾
それより長いスパンって結構かかる系？＾＾；
もう少ししたら春休みになるから、春休み中に何とか完成させたいんだけど＾＾

308 ：デフォルトの名無しさん：2013/01/12(土) 14:26:46.14

>>307
叩かれるのだけ恐怖。

どれぐらいのものを作るとか、一日に割ける時間によると思う。
OSとかPerlのバージョンとか指定はあるんですか？

309 ：デフォルトの名無しさん：2013/01/12(土) 16:59:41.91

>>308
もう叩かれる前提で作ったら？そうすれば叩かれても精神的ダメージは少ないだろう

一つでも完成までこぎつけて動くものが作れれば自信にもつながるし、そこから知識を増やしたり技術を身に付けたりして発展させればよい

最初から良質のコードを書ける奴なんていないわけだし

310 ：デフォルトの名無しさん：2013/01/12(土) 17:16:50.45

ゴミみたいな質問しかこないんだからゲーム開発のプロジェクトスレにしてしまえばいいだろ。
前にも確か将棋かなんか作ろうとしてる香具師いただろ。

311 ：308：2013/01/12(土) 20:59:38.08

>>309
>>310
そうだね。
せっかく手を挙げてしまったので覚悟を決めとく。

僕もしばらく、ここでお世話になるよ。
また、あまりにも殺伐としてたら
適した板に誘導してほしい。

自己紹介と前準備は明日やるよ。

といっても、僕が作っていくのか
>>305
の手伝いをすればいいのか。

312 ：デフォルトの名無しさん：2013/01/13(日) 00:02:08.54

俺はCGIゲームを作りたいな
ここもキチガイしかいないからここを拠点に開発するわ

313 ：デフォルトの名無しさん：2013/01/13(日) 00:10:46.23

おまえら、ゲ製に行けよ。

314 ：デフォルトの名無しさん：2013/01/13(日) 00:32:23.40

>>313
ウゼェよ黙れゴミ

315 ：デフォルトの名無しさん：2013/01/13(日) 01:17:44.51

ゲ製も調べられぬ無能か
見世物としては役に立つな
それ以外の用途には全く不適のゴミだ

316 ：デフォルトの名無しさん：2013/01/13(日) 02:10:49.17

とりあえずゲームのアイデアを書いて、そこから仕様に落とし込んでいこうと思う
CGIゲームという特性からアクション性の高いゲームは無理だよな

317 ：デフォルトの名無しさん：2013/01/13(日) 02:32:57.52

>>316
CGIってことはブラウザ使うんだろうしJavaScript使えば動きのあるゲームも作れるよ。

318 ：デフォルトの名無しさん：2013/01/13(日) 04:03:39.38

オワコンのクソスレで自治ってるヴァカって何なんだろうな

319 ：デフォルトの名無しさん：2013/01/13(日) 04:21:37.73

＞＞３１７
ｊａｖａｓｃｒｉｐｔ使えるならｍｍｏｒｐｇとかまで作れそう

320 ：デフォルトの名無しさん：2013/01/13(日) 09:58:01.17

JSってソケット通信できたっけ？
できないとMMOはきついぞ

321 ：デフォルトの名無しさん：2013/01/13(日) 10:28:28.26

>>311
えっと・・・＾＾；
ぼくの学習用にコードが欲しかったんすけど・・・＾＾；
なんか方向性が>>313さんの学習になってる＾＾；
別々にしましょか＾＾；

322 ：デフォルトの名無しさん：2013/01/13(日) 14:33:05.54

>>320
つ[websocket]

323 ：デフォルトの名無しさん：2013/01/13(日) 14:56:19.50

何人画面内に入るか分からないMMOをJavaScriptで作るのは無理がある
100人くらい画面に入ったらブラウザが重くなって落ちそう

324 ：デフォルトの名無しさん：2013/01/13(日) 15:06:18.11

>>321
あ～、ゴメン。
舞い上がって色々勘違いしてた。

とりあえず、ベース的なものが出来たらupするわ。
(そのコードが学習用になるかはわからないけど)
後、環境はwindows使用するので。

とりあえず、1週間後を目安にお願いします。

325 ：デフォルトの名無しさん：2013/01/13(日) 15:17:59.59

その前にJavaScriptってマルチスレッドができないだろ。
処理は重い、マルチスレッドはできない。
MMO開発には完全に不向き。

一方でPerlによるMMO鯖は作れると思う。
ソケット使えるし、マルチスレッド使えるし、データベースとの連携も可能。

326 ：デフォルトの名無しさん：2013/01/13(日) 15:24:08.93

javascriptで作ったクライアントも十分動くよ

japanese.engadget.com/2012/03/28/mozilla-html5-js-mmo-rpg-browserquest/

なんかリンク禁止とか言われてURLが書き込めないｗ

327 ：デフォルトの名無しさん：2013/01/13(日) 15:52:27.38

> その前にJavaScriptってマルチスレッドができないだろ。
できるようになった。

328 ：デフォルトの名無しさん：2013/01/13(日) 15:55:53.36

>>327
なんで？できるようになった理由は？

329 ：デフォルトの名無しさん：2013/01/13(日) 16:38:33.14

理由？マルチスレッドがないと不便だからだろ。

330 ：デフォルトの名無しさん：2013/01/13(日) 22:46:35.37

>>329
そのソースは？javascriptは消滅すべきところをアフォ検索サイトが延命させてるだけだから、そんな要望は関係者以外から出ないはずなんだけど？

331 ：デフォルトの名無しさん：2013/01/13(日) 22:57:04.06

W3C に言ってこい。

332 ：デフォルトの名無しさん：2013/01/13(日) 23:07:52.71

>>330
そりゃ、お前が思っていることが事実であれば、そのとおりだ。
だが、マルチスレッドが実装されたことから
お前が思っていることのほうが間違いだと証明された。

333 ：デフォルトの名無しさん：2013/01/14(月) 00:15:41.74

javascriptでwindowsアプリが作れるとか言ってる時代に本当に消滅するとでも思っているのかね・・・
アンテナ低いな、老害か

334 ：デフォルトの名無しさん：2013/01/14(月) 01:02:59.46

ECMAスクリプト

335 ：デフォルトの名無しさん：2013/01/14(月) 02:53:11.75

PCヲタにアンテナ低いとか言われてもなｗ

336 ：デフォルトの名無しさん：2013/01/14(月) 15:01:33.73

>>335
ここは開発者の板だ。部外者はうせろよ。

337 ：デフォルトの名無しさん：2013/01/14(月) 15:34:00.35

＞少し寒さと付き合いませんか？
うるせーよ、それで風邪ひいたら責任取れるのかよCM作ってる奴らは
風邪ひいた場合の医療費と、仕事に影響が出た場合その収入に対する保証できんの？
ほんとこのCM作ってる奴らキチガイだわ、無責任にもほどがあるだろゴミクズ

338 ：デフォルトの名無しさん：2013/01/14(月) 20:43:23.69

CGIゲーム作ろうと思ってんだけど、どんなのがいいだろうか悩んでる
今はキャラ育成かなとも思ってる
プレイヤー1人あたり3キャラのパーティーを作って
それぞれのキャラにガンビットで行動を指定しといて
戦闘は自動で行われるやつ

339 ：デフォルトの名無しさん：2013/01/14(月) 21:38:23.06

>>338
ガンビットとか一般ユーザーには敷居が高いと思うぞ。
あれはある程度プログラマー的な思考が要求されるし。

340 ：デフォルトの名無しさん：2013/01/14(月) 21:42:01.09

First Operationを思い出した。懐かしいな

341 ：デフォルトの名無しさん：2013/01/14(月) 22:19:57.71

なんだそれ

342 ：デフォルトの名無しさん：2013/01/15(火) 15:01:49.17

ガンビットじゃなくてじゃんけん方式にしたらどうよ
グーチョキパーじゃなくて格闘ゲームの上段中段下段みたいな感じで
確か、上段＞中段＞下段＞上段、だよな

水面斬り（攻撃力200、下段）と
ヘッドブレーカー（攻撃力380、上段）をお互い出したら
水面斬りのほうが有効判定出て相手に200ダメージ与えるとか

これのほうがまだ一般人には分かりやすいと思われ

343 ：デフォルトの名無しさん：2013/01/15(火) 16:44:12.66

それだともうほとんど運じゃん

344 ：デフォルトの名無しさん：2013/01/15(火) 16:50:31.51

有料ガンビットがたくさん売れると思ったら大間違いだが
ネタガンビットを組み込んだ上で勝てばポイントが多く稼げるような
強さだけではない要素がほしい

345 ：デフォルトの名無しさん：2013/01/15(火) 16:56:36.19

>>344
詳しく

346 ：デフォルトの名無しさん：2013/01/15(火) 17:13:05.97

>>342
技の出る速さの概念を入れるとよい。
技の速さを適当に120とか180とか決めておき、上中下段の前に速さで判定を行う。
上段と下段のぶつかり合う組み合わせでも上段のほうが速ければ勝つといった具合だ。

347 ：デフォルトの名無しさん：2013/01/15(火) 18:11:35.80

そうしたらみんな速い技ばっか使って結局じゃんけんの運になるだろ

348 ：デフォルトの名無しさん：2013/01/15(火) 18:26:29.14

二人零和有限確定だが不完全情報なゲームは
どうしたってじゃんけんになるしかないんじゃね

349 ：デフォルトの名無しさん：2013/01/15(火) 18:42:23.41

なんだろう、こう、運40%、実力（装備や技の組み合わせ）60%みたいな感じがいいと思う

350 ：デフォルトの名無しさん：2013/01/15(火) 19:51:37.35

>>349
だからそれだと同格同士なら運でじゃんけんだろ

351 ：デフォルトの名無しさん：2013/01/15(火) 20:28:22.80

ゴルゴ

352 ：デフォルトの名無しさん：2013/01/15(火) 20:47:38.75

だったらやっぱガンビットしかないじゃん。

353 ：デフォルトの名無しさん：2013/01/15(火) 20:57:49.36

ガンビットって言うから難しく聞こえるんだろ
「HPが半分以下になったら回復しろ」とか「敵が3体以上のときは範囲魔法を撃て」とかそんなんでいいんじゃないの

354 ：デフォルトの名無しさん：2013/01/15(火) 21:05:31.76

■アイデア
・HPが半分以下になったら回復しろ
・敵が3体以上のときは範囲魔法を撃て

355 ：デフォルトの名無しさん：2013/01/15(火) 21:20:46.90

ちょっと自分のスキルに見合った作成可能な範囲でアイデアを書いていきますね
仕様はまだまだ先です

システム
　ガンビットによる自動戦闘のCGIゲーム
　ブラウザの場合はちゃんと動く/モバイルの場合は結果のみ表示
　プレイヤーは3キャラからなるパーティーを作りガンビットを設定
　各キャラには職業を設定できる
　各キャラにはLV、HP、MP、攻撃力、防御力、素早さのステータスがある
　各キャラは武器や防具といった装備を身に付けることができる
　「クエストモード」と「コロシアムモード」がある
　クエストモードではダンジョンに入り、次々と出てくるモンスターを倒していく。ダンジョンによってモンスターの強さも違い、全滅するまでに倒した敵の数によって報酬がもらえる
　コロシアムモードでは他のプレイヤーと対戦できる
　手に入れたアイテムなどを他のプレイヤーにゲーム内マネーと引き換えに譲ることができる

356 ：デフォルトの名無しさん：2013/01/15(火) 21:38:28.51

あああああああああああああああああああああああああああああああ

357 ：デフォルトの名無しさん：2013/01/16(水) 03:58:18.90

結果だけ表示されて面白いもんかね？

358 ：デフォルトの名無しさん：2013/01/16(水) 05:21:30.15

アクア=エリアスのような？

359 ：デフォルトの名無しさん：2013/01/16(水) 12:02:40.77

スレチのバカどもはさっさと出てけよｋｓ

360 ：デフォルトの名無しさん：2013/01/16(水) 12:52:05.81

>>359
ウゼェぞ空気読めないゴミは黙ってろクズが

361 ：デフォルトの名無しさん：2013/01/16(水) 13:10:51.89

ゲームの話やってるスレチの
スレタイ読めない低能無能のサルは
同じく低能無能のオナニー猿がよりおおく集まってる
ゲー裂く板でやってろよｋｓ
ここに寄りついてんじゃねーよアフォ
さっさと出てけウンコ
おめーらがいると臭くなる
臭くて臭くてしょうがない
ゴミクズゴミカス便所のてめーらはさっさと失せろ

362 ：デフォルトの名無しさん：2013/01/16(水) 14:28:52.80

>>354
回復とかってどうなんだろう。
自動で戦闘ってことはお互いのチームの　平均総与ダメ<平均総回復　だった場合にCGIが処理終えられなくてタイムアウトすると思う。

363 ：デフォルトの名無しさん：2013/01/16(水) 14:31:27.22

だから出てけって言ってんだろアホクズ
さっさと出てけよ
スレチのｋｓ野郎の脳の入ってないゴミは
産廃集積所に行け

364 ：デフォルトの名無しさん：2013/01/16(水) 15:55:47.43

CGIは板違い。Webプログラミング板へどうぞ。

365 ：デフォルトの名無しさん：2013/01/16(水) 16:07:26.38

Perl最強

366 ：デフォルトの名無しさん：2013/01/16(水) 17:16:37.04

>>362
そこらへんはゲームバランスの調整段階で何とかなるだろ

このスレでテストプレイヤーを募集して
時間かけて意見交換しながらていねいに調整していけばいい

367 ：デフォルトの名無しさん：2013/01/16(水) 17:55:12.56

それより結果のみってどういうことよｗ

368 ：デフォルトの名無しさん：2013/01/16(水) 18:17:38.95

＜シーン1＞
ﾌﾞﾗｯｸｺﾞｰﾚﾑがあらわれた!!
　　●

→たたかう
　にげる
--------------------------
＜シーン2＞
ﾌﾞﾗｯｸｺﾞｰﾚﾑをたおした!!

118EXP 32G かくとく!!
ゆうしゃのﾚﾍﾞﾙが上がった!!
--------------------------

自動で結果のみってこういうことだよなｗｗｗｗｗｗｗｗｗ

369 ：デフォルトの名無しさん：2013/01/16(水) 19:56:39.98

途中経過を表示してこそ、だよな

あとネタガンビットもほしい
体力が10%以下になったら服がやぶける（特殊効果特になし）
とか

370 ：デフォルトの名無しさん：2013/01/16(水) 21:10:21.17

でもマルチプラットホームで経過を表示って大変じゃね？
かなり面倒だろ

371 ：デフォルトの名無しさん：2013/01/16(水) 22:42:15.19

スレチのクソクズはさっさと失せろよｋｓ
脳味噌入ってない頭は産廃業者に引き取ってもらえ

372 ：デフォルトの名無しさん：2013/01/16(水) 23:14:11.64

非建設的な言い方してもスルーされるだけなのにな
非建設的だからただ自治したいだけだと思われてるだろうし

373 ：デフォルトの名無しさん：2013/01/16(水) 23:35:00.55

Webでのゲーム開発はこちらへ

WebProg
http://kohada.2ch.net/php/

スタンドアロンのゲーム開発はこちらへ

ゲ製作技術
http://toro.2ch.net/gamedev/

板ローカルルールに従ってください。

374 ：デフォルトの名無しさん：2013/01/17(木) 01:43:55.03

>>370
戦闘が全自動って前提ならさほど大変でもない。

戦闘終了までの過程をリストでCGIから返して、あとはプラットホームごとにそれに従って描画すればいい。

JavaScriptでダイナミックにするなり、DirectX使った専用アプリで3DRPGみたいなバトルにするなり。

375 ：デフォルトの名無しさん：2013/01/17(木) 01:55:55.59

クソゲーのクソを練り上げる作業なら他でやれっていってんだろ
さっさと出てけよｋｓ
おめーのくせーネタを肥溜未満の便壺から引っ張り出してｸﾝなアフォ
くせーからさっさとblogでやってろｋｓ
クズ
無能

376 ：デフォルトの名無しさん：2013/01/17(木) 03:16:42.92

PerlMagickのインストール方法を教えてください

377 ：デフォルトの名無しさん：2013/01/17(木) 03:55:44.51

>>376
ウザい

378 ：デフォルトの名無しさん：2013/01/17(木) 03:57:06.96

>>376
インストールマニュアルすら読めないってただのゴミだよお前
ゴミはプログラミングなんかするな

379 ：デフォルトの名無しさん：2013/01/17(木) 04:26:19.53

僕も皆さんと同じようにこのスレでゲームを作りたいんです
そのためにはPerlMagickが必要なんです
お願いします

380 ：デフォルトの名無しさん：2013/01/17(木) 05:20:20.83

>>374
そうは言ってもUAごとにある程度は違うものをPerlで吐いてやらないとだめだろ
JavaScriptに対応してない携帯端末にまでPCのブラウザと同じコードを返すのは微妙

専用アプリについても同じでHTMLをパースするのは無駄すぎ

381 ：デフォルトの名無しさん：2013/01/17(木) 12:55:47.06

無駄かどうかは開発＆保守にかかるコストも含めて考える必要があるけどな

382 ：デフォルトの名無しさん：2013/01/17(木) 15:47:35.67

>>369
それはガンビットではなく描画処理じゃないのか？ｗ
ネタだったら戦闘にほとんど影響がない程度の特殊効果があると面白いと思う

たとえば体力が10%以下になったら踊って、体力が1回復するとか
お互い削りあってギリギリってところで、その回復のお蔭で体力が1残ってて勝ったら面白いだろｗ

（前省略）
甲の残り体力4021
乙の残り体力3954（乙は踊るガンビットを設定してある）
甲の攻撃！乙は1923のダメージを受けた！
乙の体力が10%をきった！体力が1回復した！
乙の攻撃！甲は2020のダメージを受けた！
甲の攻撃！乙は2031のダメージを受けた！
乙の攻撃！甲は2001のダメージを受けた！甲は倒れた！

みたいに超超低確率で効いてくると面白いと思う

383 ：デフォルトの名無しさん：2013/01/17(木) 17:30:16.36

スレチのウスノロはさっさと出てけよ
脳味噌にウジわいてんだろ
ヴォケナスの腐った馬鹿は消えろ
くせぇｶｷｺしてんじゃねーよ

384 ：デフォルトの名無しさん：2013/01/17(木) 17:41:58.84

>>380
リアルタイムに情報を垂れ流す部分の出力内容は
全ブラウザで共通にすべきですな

385 ：デフォルトの名無しさん：2013/01/17(木) 18:41:16.72

よっしゃ、先日の続き書いていきます
議論になってる不明な部分を中心に詰めてみました

戦闘について
　戦闘システム
　　ステータスの素早さを利用した、非ターン制の戦闘
　　プログラムでは戦闘に参加しているキャラの素早さの値を1ループずつそれぞれのカウンタに加算していき、
　　カウンタが1万を超えたキャラからガンビットに従って行動する、行動後はそのキャラのカウンタをリセット
　魔法について
　　攻撃魔法
　　回復魔法
　　強化魔法（攻撃・防御）
　無限ループについて
　　単位時間あたりの回復量がダメージ量を上回る場合など無限ループが発生する可能性があるが、
　　戦闘のシーンそのものにもカウンタを持たせ、それが一定回数1万を超えたら戦闘は強制終了（時間切れ）
　　総与ダメージを基準に勝敗を決定

ガンビットについて
　皆さんアイデアをどんどん出していってください

出力について
　モバイル版について
　　戦闘終了のメッセージとともに戦闘で誰が何をしたといった行動の履歴がずらずらと表示される
　PC版（ブラウザ版について）
　　未定

データ形式について
　最終的にはCGIゲームとして無償配布する予定
　導入が容易なように、各種データはDBを使わずファイルに記録

386 ：デフォルトの名無しさん：2013/01/17(木) 21:12:29.00

失せろクソガキ
出ていけ
いつまでｽﾚﾁを続ける木田
お前の頭蓋骨の中身は豆腐以下のクズだ

387 ：デフォルトの名無しさん：2013/01/17(木) 21:41:17.51

ん？なんだこの流れは
厨が来てたところまでは見た
けどなんで乗り気になってる人がいるんだｗ

388 ：デフォルトの名無しさん：2013/01/17(木) 22:08:11.36

カウンタって何だろう？

389 ：デフォルトの名無しさん：2013/01/17(木) 22:29:37.07

きもｗ

390 ：デフォルトの名無しさん：2013/01/17(木) 22:48:53.21

きもｗ

391 ：デフォルトの名無しさん：2013/01/17(木) 23:02:26.45

今まで、スレのルールを守っていなかったのに
今更何を言っているんだろうね。
会話が成り立っている状態がうらやましいのかな？

スレチだろうが今の流れの方がどうみても健全的でしょ。

392 ：デフォルトの名無しさん：2013/01/17(木) 23:08:51.91

ｽﾚﾁのクズはさっさと出てけ
オメェーにいってんだよ
出てけｋｓ
クズ
ゴミ
出てけ
スレチのアフォ野郎は出てけ
脳味噌からウジ飛び出てんぞ

393 ：デフォルトの名無しさん：2013/01/17(木) 23:13:11.16

基地外なぜか疎外感ｗ

394 ：デフォルトの名無しさん：2013/01/17(木) 23:13:30.20

これじゃかえって居座るわな…

395 ：デフォルトの名無しさん：2013/01/17(木) 23:24:41.04

カウンタって何だろう？

396 ：デフォルトの名無しさん：2013/01/17(木) 23:37:08.17

基地外の語彙が・・・

397 ：デフォルトの名無しさん：2013/01/17(木) 23:54:03.30

>>384
それはそうだろ。
これでWindows、Linux、Wii、PS3、ケータイ、スマホ、macに対応だな。
クロスプラットホームによる熱いバトルが繰り広げられそう。

398 ：デフォルトの名無しさん：2013/01/18(金) 00:06:15.21

スマホってJavaScript動くの？

399 ：デフォルトの名無しさん：2013/01/18(金) 00:56:54.47

>>395
ちょっと待っててください
サンプルを作りました

400 ：1/3：2013/01/18(金) 00:58:01.43

use strict;

my @g_charactorData;
my @g_enemyData;
my $g_battleLog;
my $g_winParty;

@g_charactorData = (
　　　 { "name" => "自A" , "speed" => "36" } ,
　　　 { "name" => "自B" , "speed" => "42" } ,
　　　 { "name" => "自C" , "speed" => "37" } ,
);

@g_enemyData = (
　　　 { "name" => "敵A" , "speed" => "28" } ,
　　　 { "name" => "敵B" , "speed" => "48" } ,
　　　 { "name" => "敵C" , "speed" => "35" } ,
);

$g_winParty = &BattleMain( \@g_charactorData , \@g_enemyData , \$g_battleLog );

exit;

401 ：2/3：2013/01/18(金) 00:59:17.51

sub BattleMain{
　　　my $charactorData;
　　　my $enemyData;
　　　my $battleLog;
　　　
　　　my @charactorCounter;
　　　my @enemyCounter;
　　　
　　　my $topCharactor;
　　　my $topCharactorID;
　　　my $topEnemy;
　　　my $topEnemyID;
　　　
　　　my $counterLimit;
　　　
　　　my $i;
　　　
　　　( $charactorData , $enemyData , $battleLog ) = @_;
　　　
　　　$counterLimit = 500;
　　　
　　　while( 1 ){
　　　　　　print "###################################\n";
　　　　　　$topCharactor = 0;
　　　　　　for( $i=0;$i<3;$i++ ){
　　　　　　　　　$charactorCounter[$i] += @$charactorData[$i]->{"speed"};
　　　　　　　　　print @$charactorData[$i]->{"name"} . ":" . $charactorCounter[$i] . "\n";
　　　　　　　　　if ( $topCharactor < $charactorCounter[$i] ){
　　　　　　　　　　　　$topCharactor = $charactorCounter[$i];
　　　　　　　　　　　　$topCharactorID = $i;
　　　　　　　　　}
　　　　　　}

402 ：3/3：2013/01/18(金) 01:00:42.83

　　　　　　$topEnemy = 0;
　　　　　　for( $i=0;$i<3;$i++ ){
　　　　　　　　　$enemyCounter[$i] += @$enemyData[$i]->{"speed"};
　　　　　　　　　print @$enemyData[$i]->{"name"} . ":" . $enemyCounter[$i] . "\n";
　　　　　　　　　if ( $topEnemy < $enemyCounter[$i] ){
　　　　　　　　　　　　$topEnemy = $enemyCounter[$i];
　　　　　　　　　　　　$topEnemyID = $i;
　　　　　　　　　}
　　　　　　}
　　　　　　
　　　　　　if ( $topCharactor >= $topEnemy ){
　　　　　　　　　if ( $topCharactor >= $counterLimit ){
　　　　　　　　　　　　print "**** " . @$charactorData[$topCharactorID]->{"name"} . " がガンビットに従って行動\n";
　　　　　　　　　　　　$charactorCounter[$topCharactorID] -= $counterLimit;
　　　　　　　　　}
　　　　　　}else{
　　　　　　　　　if ( $topEnemy >= $counterLimit ){
　　　　　　　　　　　　print "**** " . @$enemyData[$topEnemyID]->{"name"} . " がガンビットに従って行動\n";
　　　　　　　　　　　　$enemyCounter[$topEnemyID] -= $counterLimit;
　　　　　　　　　}
　　　　　　}
　　　　　　
　　　　　　sleep( 1 );
　　　}
　　　
　　　return;
}

403 ：デフォルトの名無しさん：2013/01/18(金) 01:06:19.53

>>385ではカウンタを1万と言いましたがこのサンプルでは500に設定しています
サンプルのためsleepを入れて実行時に分かりやすくしてあり、これが1万だとかなり時間がかかるので500にしました

実際のバージョンでは素早さが最大で数百から場合によっては1000を越える可能性があると思うので、1万程度に設定します

404 ：デフォルトの名無しさん：2013/01/18(金) 02:18:14.90

醜いので修正

use strict;
use warnings;

my @g_charactorData = (
　　　 { "name" => "自A" , "speed" => "36" } ,
　　　 { "name" => "自B" , "speed" => "42" } ,
　　　 { "name" => "自C" , "speed" => "37" } ,
);

my @g_enemyData = (
　　　 { "name" => "敵A" , "speed" => "28" } ,
　　　 { "name" => "敵B" , "speed" => "48" } ,
　　　 { "name" => "敵C" , "speed" => "35" } ,
);

my $g_battleLog;
my $g_winParty = BattleMain( \@g_charactorData , \@g_enemyData , \$g_battleLog );

exit;

405 ：デフォルトの名無しさん：2013/01/18(金) 04:00:45.21

＞各キャラには職業を設定できる
サラリーマンとか学生とか？

406 ：デフォルトの名無しさん：2013/01/18(金) 05:12:38.02

jsがperlのようなモノとなった時代に、perlを使い続けるメリットって何よ？

407 ：デフォルトの名無しさん：2013/01/18(金) 07:48:16.00

jsより高速

408 ：デフォルトの名無しさん：2013/01/18(金) 08:05:59.87

nodejsは、Perlより9倍はやいらしい

Javascript (nodejs) 2.812 0.599

Which is roughly 9 times (900%) faster than Perl

409 ：デフォルトの名無しさん：2013/01/18(金) 08:28:44.61

>>406
言語やライブラリの仕様だけで比べてんだろ？
稼働の仕組みも用途も全然違うわｗ

410 ：デフォルトの名無しさん：2013/01/18(金) 09:06:18.39

このC++くさいコードは何。

411 ：デフォルトの名無しさん：2013/01/18(金) 18:28:06.93

ガンビットつったってアイデアもくそもないだろ
自分のHPとMPをどうみるかってだけの話だろ

412 ：デフォルトの名無しさん：2013/01/18(金) 22:29:21.84

>>406
jsが高級シェルスクリプトとして使われてるのはあまり聞いたことがないな

413 ：デフォルトの名無しさん：2013/01/19(土) 00:44:05.28

>>411
強化魔法が何とかって書いてあった気がするから、そういうのも関係してくるだろう。

強敵と対峙したときは防御強化の魔法がかかるまで防御を続けておくとか。

他にも敵の数なんかも判断基準として考慮する必要がある。

414 ：デフォルトの名無しさん：2013/01/19(土) 02:49:55.35

ダメージの大小とかは？
一撃でHPの1/4もってかれるような破壊力の敵が混ざってたらまずそいつから袋叩きにして倒す必要がある

415 ：デフォルトの名無しさん：2013/01/19(土) 03:50:27.85

そんなこと言ってたら極端な話、
敵の行動全てに対してガンビットを
設定できるようにしなきゃいけないだろ

416 ：デフォルトの名無しさん：2013/01/19(土) 16:28:45.90

なんで？

行動の種類はどうでもよくて結果を見ればいい

417 ：デフォルトの名無しさん：2013/01/19(土) 22:27:50.05

東方作ってる人はどこいった

418 ：308：2013/01/19(土) 23:39:27.03

東方は作ってないけど
シューティングゲームのサンプルらしきものは作っているよ。

まとまった時間が平日なかなかとれなかったから少しずつ作成中だよ。
とはいえ、ここで投稿するの叩かれないか怖いなぁ。
ゲーム製作板じゃなくて、ここで良いんだよね？

419 ：デフォルトの名無しさん：2013/01/19(土) 23:43:30.88

いいわけねーだろアホ
さっさと出てけよｋｓクズゴミヴァカ

420 ：デフォルトの名無しさん：2013/01/19(土) 23:49:09.24

許可する。ここでやれ。

421 ：デフォルトの名無しさん：2013/01/19(土) 23:54:04.88

発破！

422 ：デフォルトの名無しさん：2013/01/20(日) 00:13:37.23

>>418
やったモン勝ちだよ。
基地害も当初の元気がなくなってきてるから大丈夫だろ。

423 ：デフォルトの名無しさん：2013/01/20(日) 00:22:42.54

どっちがｷﾁｶﾞｲだよ
ちったあ自分の脳味噌のちっぽけさを自覚しろドアホ

424 ：デフォルトの名無しさん：2013/01/20(日) 00:33:22.40

くやしいのうｗｗｗｗｗｗｗｗｗくやしいのうｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

425 ：デフォルトの名無しさん：2013/01/20(日) 04:09:43.03

>>415
例えば敵の攻撃が何であろうと攻撃されてHPが減ったら回復すればいいだろ？
減らなきゃ回復する必要ないだろ？

426 ：デフォルトの名無しさん：2013/01/20(日) 19:33:06.50

>>425
例えば敵の炎属性の魔法でHPの40%くらいダメージ受けるとする。
でも回復魔法で30%くらいしか回復しないとする。
炎属性のダメージを半減させるシールドを貼る魔法があるとする。

この条件だと回復よりシールドを優先したいよね。

427 ：デフォルトの名無しさん：2013/01/20(日) 19:56:31.11

スレチのｷﾁｶﾞｲどもはさっさと出てけｸｽﾞ

428 ：デフォルトの名無しさん：2013/01/20(日) 21:41:49.69

>>418
どこで出したって叩かれるよ

ゲ製で出したって叩かれる

そこは避けられないから仕方がないと思ったほうがいい

「叩かれて当たり前」くらいの勢いで

一番恐ろしいのは何の反応もないことだよ

429 ：デフォルトの名無しさん：2013/01/20(日) 22:09:20.27

ゴタクはいいからさっさと出てけよ
ﾐｼﾞﾝｺ野郎

430 ：デフォルトの名無しさん：2013/01/20(日) 23:29:04.43

悔しがってる所悪いが、
出て行くつもりはないよｗ

俺の相手をするか、
もしくはお前が出て行くしか無いのでは？

431 ：デフォルトの名無しさん：2013/01/20(日) 23:32:49.81

なんだこれｗ

432 ：デフォルトの名無しさん：2013/01/21(月) 00:01:22.69

人が自らの愚かさに気付くのはいつか

433 ：デフォルトの名無しさん：2013/01/21(月) 03:57:00.80

>>426
そんなこと言い出したらキリがないんじゃね
AIとかそういう話になるぞ

434 ：デフォルトの名無しさん：2013/01/21(月) 04:44:23.77

まあスレチなのは間違いないが
叩き出し方が非常に悪かった
こりゃしばらく居座るね

435 ：デフォルトの名無しさん：2013/01/21(月) 10:02:42.99

非常に悪いもクソもなにもかもねーよ
何自作自演してんだｋｓ
出てけっつったら
さっさと出てけよスレチの蛆虫野郎
この手の無能低能がいるからおかしくなるん世

436 ：デフォルトの名無しさん：2013/01/21(月) 12:11:24.47

PerlにAIなんて無理だろ。
処理速度が遅すぎる。

437 ：デフォルトの名無しさん：2013/01/21(月) 12:23:21.39

今までゴミみたいな質問を受け入れ続けてきた結果がこれだろうな

自業自得

438 ：デフォルトの名無しさん：2013/01/21(月) 15:05:09.01

Perlがゴミを増やし
ゴミがPerlをよりゴミにし

439 ：デフォルトの名無しさん：2013/01/21(月) 16:08:48.20

頭の悪いゴミが増えればそのコミュニティのレベルが下がるのは当たり前だろ。
だから学校でも企業でも選別するんだけどな。

ゴミにせっせと回答してた奴はそれが目的だった可能性が高い。

440 ：デフォルトの名無しさん：2013/01/21(月) 23:52:23.51

橋本なんとかのせいでなんとか高校の体育科が入試中止だってよ
普通科に振り替えるとか言ってるけど意味不明

441 ：デフォルトの名無しさん：2013/01/22(火) 00:05:46.78

うぜーぞキチガイ

442 ：デフォルトの名無しさん：2013/01/22(火) 00:36:15.52

>>441
死ねゴミ

443 ：デフォルトの名無しさん：2013/01/22(火) 03:29:37.75

他人に向かって死ねとかゴミとかキチガイとかって言葉が常日頃から飛び交ってるようなスレで誰が質問したいと思う？
質問があったとしても普通の神経してたらすぐにスレを閉じるよ。
それにいくら2chとはいえここまで言葉を選ばない罵声が他人に向けられて発せられていたら、Perlそのもののイメージダウンになるよ。
もう少し利用者やPerlそのもののイメージについて考えてから書き込んでほしい。

444 ：デフォルトの名無しさん：2013/01/22(火) 14:32:10.61

>>426
シールド魔法があるかどうかの話が出てないからどうなるか知らんけど、そこまで緻密なガンビットはユーザーに自由度をもたせたうえで実装となると難しいだろうな
でも例えば古典的なRPGだとダンジョンごとにだいたいの属性傾向があるから、それをもとにざっくり指定するとかあると思う
色んな属性の敵が出てくる場合にはあらかじめどれかに絞ってガンビットを指定させるってことでいいだろ

445 ：デフォルトの名無しさん：2013/01/22(火) 15:47:26.54

属性って必要？
本来は戦略に幅を持たせる目的で導入された概念だけど、
開発側もプレイヤー側も面倒になるだけなら必要？

446 ：デフォルトの名無しさん：2013/01/22(火) 15:56:43.12

スレチのアホはさっさと出てけ
ゴミｷﾁｶﾞｲ
おめーら普通の神経してねーだろ
スレを選ばないヴァカはさっさと立ち去れよ
perlスレのイメージが悪くなんだろｋｓ

447 ：デフォルトの名無しさん：2013/01/22(火) 16:04:28.24

将棋のGUI作るとか言ってた人はどうなった？

448 ：デフォルトの名無しさん：2013/01/22(火) 18:53:49.43

スマイルプリキュア

449 ：デフォルトの名無しさん：2013/01/22(火) 21:01:26.32

将棋のGUIは？

450 ：デフォルトの名無しさん：2013/01/22(火) 21:15:59.00

将棋のGUI作って欲しいって言ってた人まだいるのかな

451 ：デフォルトの名無しさん：2013/01/22(火) 21:38:32.42

>>445
プレイヤー側は一概に面倒とは言えないのでは？

452 ：デフォルトの名無しさん：2013/01/22(火) 23:13:43.71

今からプリキュアでヌく

453 ：デフォルトの名無しさん：2013/01/23(水) 01:11:08.95

将棋のGUI作って欲しいって言ってた奴出てこい

454 ：デフォルトの名無しさん：2013/01/23(水) 01:58:46.14

ちょっとググればソフトウェアが転がっている飽食の時代

455 ：デフォルトの名無しさん：2013/01/23(水) 04:00:24.06

言ったのは俺だぜ。
すでにGUIあったから作ってみたけど、AI作るの超難しかった。

456 ：デフォルトの名無しさん：2013/01/23(水) 13:19:00.13

なんだよもうあるのかよ・・・

457 ：デフォルトの名無しさん：2013/01/23(水) 15:34:25.99

別にあってもいいじゃないか。
もうかなりの時間たったから完成見えてんだろ？

458 ：デフォルトの名無しさん：2013/01/23(水) 20:26:23.95

見えてるからすぐってわけでもないしな。
月は遠い。

459 ：デフォルトの名無しさん：2013/01/24(木) 04:59:32.26

>>457
見えてねえよｗ
仕様の打ち合わせしようかと思ってた段階だｗ

460 ：デフォルトの名無しさん：2013/01/24(木) 16:55:18.40

すいません、リアルが忙しくてなかなかアイデアをまとめきれていません。
もうちょっとしたら詰めた内容をカキコします。

とりあえず属性は面白そうなので導入します。

461 ：デフォルトの名無しさん：2013/01/24(木) 19:31:24.25

>>909
HSP厨はどんなに侮辱されても使い続けるから問題ない
だから人払いではない

462 ：デフォルトの名無しさん：2013/01/27(日) 00:40:56.31

ヴァーーーーーカｗ

463 ：デフォルトの名無しさん：2013/01/30(水) 03:17:24.41

仮想の街中でウンコ水を投げまくるゲームを作りたいのですがどうしたらいいですか？

464 ：デフォルトの名無しさん：2013/01/30(水) 03:20:11.09

面白いレスした奴が優勝

465 ：デフォルトの名無しさん：2013/01/30(水) 04:46:35.20

ちぇりーぺにゅぺにゅ

466 ：デフォルトの名無しさん：2013/01/30(水) 22:06:55.43

ウンコ水って何ですか？

467 ：デフォルトの名無しさん：2013/01/30(水) 22:09:30.84

お前の腹と脳味噌に詰まってる有難い水のこと
つまりは有難いお前自身、お前そのもののこと

468 ：デフォルトの名無しさん：2013/01/31(木) 02:34:04.76

違います
ウンコを洗面器に入れ、そこへさらに水を入れて溶かしたものです
それを水風船の中に入れます

469 ：デフォルトの名無しさん：2013/02/02(土) 22:54:53.33

それはウンコ水ではなくウンコ水風船だ。

470 ：デフォルトの名無しさん：2013/02/03(日) 16:20:53.61

Mechanize を使ってサイトにアクセスするプログラムについて質問です。
通常のブラウザでは、例えば Chrome なら Edit This Cookie 、Firefox なら FireBug 等で Cookie の値を変更できます。
同じように、Mechanaize でアクセスするときに、Cookie の値を自分でセットしてからアクセスしたいのですが、うまくいきません。
コードは以下です。

use WWW::Mechanize;
use HTTP::Cookies;

my $cookie_jar = HTTP::Cookies->new(file => "cookie.txt", autosave => 1, ignore_discard => 1);
$cookie_jar->set_cookie(
qw(
3
Times
20
/
www.tohoho-web.com
0
0
0
)
);
my $mech = WWW::Mechanize->new( autocheck => 1, cookie_jar => $cookie_jar );
$mech->agent_alias( 'Windows Mozilla' );
$mech->get('http://www.cardbotmtgo.com/');
print $mech->content;

上記コードでは、とほほ氏の Cookie をテストするページにて、訪問カウンターを20にセットしたいのですが、
結果は通常のアクセスと変わらない挙動（初めての訪問時は1、次は2）となります。
set-Cookie で設定するドメインとパスは、上記以外に自分のサーバのものでも試してみましたが、結果は変わりませんでした。
どうすれば Cookie の値をこちらで設定することができるでしょうか。

471 ：デフォルトの名無しさん：2013/02/03(日) 16:23:13.40

↑
コード中の URL を間違えました。
最終的には、http://www.cardbotmtgo.com/ のサイトにアクセスしたいのですが、
今回の質問は $mech->get('http://www.tohoho-web.com/wwwcook2.htm')
が正しいコードです。

472 ：デフォルトの名無しさん：2013/02/03(日) 18:57:39.72

>>471
投稿前に確認すらできないゴミにプログラムは無理
どうせ自分のコードも確認してないんだろ
クズだなお前

473 ：デフォルトの名無しさん：2013/02/03(日) 19:21:25.72

相変わらずの語彙力

474 ：デフォルトの名無しさん：2013/02/03(日) 19:25:53.42

>>470
他人のサイトで検証してる常識知らずの知能障害は失せろ。

475 ：デフォルトの名無しさん：2013/02/03(日) 19:35:00.76

きめえｗ

476 ：デフォルトの名無しさん：2013/02/03(日) 19:52:01.17

語彙力あっても幼稚園児並の奴に理解させようと思うと使える言葉には限りがある

>>473みたいな奴だろうな
幼稚園児に大学レベルで習う言葉を使って得意気に語るのは
コミュ障と同じ

477 ：デフォルトの名無しさん：2013/02/03(日) 19:57:39.73

>>473
煽れば回答が付くと思ってるお前も似たようなもんｗ

478 ：デフォルトの名無しさん：2013/02/03(日) 20:01:19.11

>>477
死ねゴミ

479 ：デフォルトの名無しさん：2013/02/03(日) 20:14:46.49

>>478

↑
これが語彙力がなんとかって言ってる奴のレスｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

480 ：470：2013/02/03(日) 21:13:50.09

あの、なんだか険悪な雰囲気にしてしまい申し訳ありません。
とほほ氏の件は解決いたしました。
>>472さんのご指摘のとおりですので、もっと勉強します。

481 ：デフォルトの名無しさん：2013/02/03(日) 21:42:58.67

>>470
WWW::MechanizeをWWW::Scripter::Plugin::JavaScriptに置き換えるといいよ。
http://search.cpan.org/~sprout/WWW-Scripter-Plugin-JavaScript-0.008a/lib/WWW/Scripter/Plugin/JavaScript.pm

newするときにMechanizeのオプション使えるし、
$w->cookie_jarでクッキーも取り出せる。
って解決したのか。

482 ：デフォルトの名無しさん：2013/02/04(月) 03:12:45.30

解決した相手に書き込んでる基地害がいるな。
自覚あっても書き込まずにはいられないならもう救いようがない。

483 ：デフォルトの名無しさん：2013/02/04(月) 09:03:41.55

>>482
後から検索して、ここにたどり着いた人の為にも回答は必要なんだよ。
本来なら、>>480が解決策を書くべきなんだが、
>>480が元質問者である保証もないしな。

掲示板はどういうものか学びなおした方がいいよ。

484 ：デフォルトの名無しさん：2013/02/04(月) 13:27:18.56

>>480
>>472は罵倒してるだけだからどうでもいいだろ
問題は>>474

485 ：デフォルトの名無しさん：2013/02/04(月) 17:36:29.22

例の図書館のDBに一定時間おきに自動でアクセスするサービス作った人みたいに
1回捕まれば>>470みたいな頭でも理解できるだろ

486 ：デフォルトの名無しさん：2013/02/04(月) 19:34:50.18

サーバの裏で何か動けばそういうこともあるだろうけど、
これはクライアント側で完結してる問題だけど。

487 ：デフォルトの名無しさん：2013/02/04(月) 23:08:17.72

@list = <STDIN>
↑のようにリストをキーボードから入力したいのですが、
macの場合、終端文字(入力を終了)として何を入力すればよいのでしょうか？
お願いします。

488 ：デフォルトの名無しさん：2013/02/04(月) 23:10:20.89

ばーか

489 ：デフォルトの名無しさん：2013/02/04(月) 23:19:48.44

>>487
自分で調べられないゴミのくせに何でプログラムに手を出しちゃったの？
身の程を知れ

490 ：デフォルトの名無しさん：2013/02/04(月) 23:26:06.02

>>487
Ctrl-Dじゃね？

491 ：デフォルトの名無しさん：2013/02/04(月) 23:29:32.55

>>487
糞みたいなコード書いてる暇があったら働け屑ニート

492 ：デフォルトの名無しさん：2013/02/04(月) 23:35:17.02

俺も何か質問して叩かれようかと思ったけど・・・
考えても別に何も分からないで困ってる事ないや(´・ω・｀)

493 ：デフォルトの名無しさん：2013/02/04(月) 23:42:05.78

>>492
普通はそうだよ。
いつレスが来るか分からない、そもそもレスが来るって保証もない掲示板で質問して
叩かれてまくってストレス溜めながらレスを待つより、
自分でさっさと検索したほうが早いしストレスも溜まらない。

494 ：デフォルトの名無しさん：2013/02/04(月) 23:45:40.48

すいません。誰か教えて下さい。。

PerlでMP3のID3v2タグを表示(そして編集)したいと思ったんですが、
日本語の文字化けの直し方がイマイチわかりません。

「MP3(ID3v2.3+v1.1),UTF16」というタイプのMP3ファイルを使用してます。
そのままだと日本語が化けてしまうので、
ネット情報を参考に、デコード→SJISエンコードしてみたんですがダメでした。
しかし、デコードをせず、SJISエンコードを直接やってみたらうまく表示されました。

495 ：494：2013/02/04(月) 23:50:47.25

use MP3::Tag ;
use Encode ;
my $mp3 = MP3::Tag->new('02 EXTRA LOVE.mp3') or die ;
$mp3->get_tags() or die ;
if (exists $mp3->{ID3v2}) {
my $id3v2 = $mp3->{ID3v2} ;
my $artist = $id3v2->get_frame('TPE1') ;
$artist = decode('UTF-16LE', $artist) ; #1
$artist = encode('Shift_JIS', $artist) ; #2
print "$artist\n" ;
}
$mp3->close() ;

#1と#2の行を記述しないと、正しく出力されません。

Wide character in print at G:\id3v2.pl line 10.
蝮ゆｸ翫↑縺｡

#1と#2を入れると、printもされなくなります。

Wide character in subroutine entry at D:/Program Files/Perl/site/lib/Encode.pm line 175.

#1だけを消したときだけ、正しく出力されます。

坂上なち

文字コードのデコード、エンコードのテストをしてみて出来たのですが、
MP3のタグだと上記のように意味がわからなくなります。

496 ：デフォルトの名無しさん：2013/02/04(月) 23:55:34.79

>>494
失せろゴミ

497 ：デフォルトの名無しさん：2013/02/04(月) 23:56:04.42

ウンコード一級認定

498 ：デフォルトの名無しさん：2013/02/05(火) 00:00:31.75

しらねーよ
普通ｌｉｎｕｘの文字コードはeucだろヴァカ
shiftjisなんかにしてどーすんだよアホ

499 ：デフォルトの名無しさん：2013/02/05(火) 00:03:43.40

>494は基礎をやってないからそういう知識もないんだろう
プログラム言語さえ覚えれば何とかなると思って覚えみたものの
行き詰まって赤の他人にきいてる池沼の見本

500 ：デフォルトの名無しさん：2013/02/05(火) 01:03:16.54

>>495
環境が分からんけどWindowsだとすると、>>5を参考にSTDOUTを弄って、
decode/encodeのぐちゃぐちゃは削除。

501 ：デフォルトの名無しさん：2013/02/05(火) 01:11:25.45

>>500 ← 環境も分からないのに回答しちゃってる馬鹿

502 ：494：2013/02/05(火) 01:47:23.87

やっぱ環境つっこまれるよなぁ。。すみません。

Windows XP Home Edition SP3 32bit
ActivePerl 5.14.2 Build 1402

MP3-Tag 1.13
Encode(site) 2.47
Encode(perl) 2.44

「MP3(ID3v2.3+v1.1),UTF16」というのはSTEP_M 1.054fでチェックしました。
スクリプトの文字コードはSJIS(CR+LF)です。

>>500
ありがとうございます。その辺調べてみます。
それ付け足してみただけだとエラー出まくりましたが。

503 ：デフォルトの名無しさん：2013/02/05(火) 02:19:19.13

はい荒らしの常套手段、情報の後出し入りました～

504 ：デフォルトの名無しさん：2013/02/05(火) 02:21:13.99

MP3::Tag が自前で decode してるっぽいけど。

505 ：デフォルトの名無しさん：2013/02/05(火) 02:34:14.67

>>502
ようゴミクズ
まだいたのか
よく恥ずかしくないな

506 ：494：2013/02/05(火) 03:47:43.07

>>500
エンコード入れてました。消したらちゃんと表示されました。

>>504
そうみたいですね。
MP3::Tagで読み込んだタグはデコード済なんですね。

日本語処理に疎くて、頭こんがらがってましたが、大体分かって来ました。ありがとうございました。
ちなみにShift-JISにしないと標準出力が文字化けするのはWindows環境だからなんですよね。
最近やらなくなって消しちゃったけど、仮想Linuxまた作っとくか・・

507 ：デフォルトの名無しさん：2013/02/05(火) 05:42:23.25

> 普通ｌｉｎｕｘの文字コードはeucだろヴァカ
今どきeuc
しかも全角

また化石爺が出たかｗ

508 ：デフォルトの名無しさん：2013/02/05(火) 13:14:42.34

＞最近やらなくなって消しちゃったけど、仮想Linuxまた作っとくか・・
ここがお前のブログに見えるのか
こいつ本当に荒らしだな

509 ：デフォルトの名無しさん：2013/02/05(火) 14:25:37.69

何だ、荒らしか・・・回答して損した。

510 ：デフォルトの名無しさん：2013/02/05(火) 14:37:51.17

>>508
お前馬鹿だろ。

このスレはスレ違いとかないからどんな話題もおｋなんだよ。

ゲームのアイデアを出しあったりとか何でもおｋ。

511 ：デフォルトの名無しさん：2013/02/05(火) 23:11:30.73

>>506
二度とくるなキチガイ

512 ：デフォルトの名無しさん：2013/02/05(火) 23:34:10.27

perlってCGIとセットで学習するものなの？

513 ：デフォルトの名無しさん：2013/02/05(火) 23:48:31.78

いや、そんなことはない。最近はPSGIとセット。

514 ：デフォルトの名無しさん：2013/02/05(火) 23:57:22.20

このスレ的にもOKなのかなるへそ

515 ：デフォルトの名無しさん：2013/02/06(水) 00:03:35.70

EUC(Extended UNIX Code)はプロの世界ではまだ現役だけどな
むしろJISコードに切り替えたなんて話、聞いたことがない

516 ：デフォルトの名無しさん：2013/02/06(水) 01:53:38.55

>>506
何でこのスレを荒らそうと思ったの？？

517 ：デフォルトの名無しさん：2013/02/06(水) 02:25:16.22

ウザいゴミ

518 ：デフォルトの名無しさん：2013/02/06(水) 04:36:45.29

>>517
うるせー死ね。

519 ：デフォルトの名無しさん：2013/02/06(水) 04:50:06.94

http://www.google.co.jp/#q=encode+Wide+character

520 ：デフォルトの名無しさん：2013/02/06(水) 13:32:13.59

きちがいすれっど

521 ：デフォルトの名無しさん：2013/02/06(水) 13:33:23.15

>>518
お前が死ねゴミ

522 ：デフォルトの名無しさん：2013/02/06(水) 15:40:49.16

Perlってなんすか？

523 ：デフォルトの名無しさん：2013/02/06(水) 16:14:50.50

>>522
糞未満の救いようがないIT派遣ドカタが有り難がって使ってるマジもんの産廃

524 ：デフォルトの名無しさん：2013/02/06(水) 16:20:50.22

X - Windows、Linux、Mac OS X、Solarisのクロスプラットフォーム
A - ApacheのA
M - MySQLのM
P - PHPのP
P - PerlのP

XAMPP（ザンプ）
- Wikipedia

525 ：デフォルトの名無しさん：2013/02/06(水) 16:25:18.66

有料のレンタルサーバーをかりると、要望しなくても最初からPerlがつかえる。

526 ：デフォルトの名無しさん：2013/02/06(水) 16:29:32.79

今日もキチガイしかいないようだ

煽ってるキチはひたすら煽ってるし
自己顕示欲を満たしたいキチは嘘を含んだ場当たり的な回答してるし
ブログと2chの区別が付かないキチは好き勝手に書き込んでるし

まさにカオス

527 ：デフォルトの名無しさん：2013/02/06(水) 16:41:57.70

>>522
コンパイラではなくインタープリッターで実行する言語です。
処理を実行するために、
Cとことなり、Perlは、毎回プログラム（スクリプトともいう）のテキストをよみます。

528 ：デフォルトの名無しさん：2013/02/06(水) 16:56:30.53

Perlは、大文字と小文字を区別します。

529 ：デフォルトの名無しさん：2013/02/06(水) 17:14:01.46

>>522
正規表現を勉強するとき「Perlの正規表現」がでてきますよ。Perlの正規表現は、豊富です。

「POSIXとは異なり、Perlでは最長マッチを行うか指定できる」
正規表現（せいきひょうげん、regular expression）
- Wikipedia

530 ：デフォルトの名無しさん：2013/02/06(水) 17:39:05.72

未だに情報源としてWikipediaを出してくる情弱がいることに驚きｗ

531 ：デフォルトの名無しさん：2013/02/06(水) 17:44:49.98

Wikiにリンクがあるから、ここでリンクしなくていい。
だから、サーバにもブラウザにもやさしい

532 ：デフォルトの名無しさん：2013/02/06(水) 17:54:46.38

Perl使ってる奴にはこんなレベルの奴しかいないんだよ

533 ：デフォルトの名無しさん：2013/02/06(水) 18:22:19.49

回答にけちをつけないで質問に回答してください

534 ：デフォルトの名無しさん：2013/02/06(水) 18:28:53.09

>>522
言語としてのPerl
処理系はperl
- Wikipedia

535 ：デフォルトの名無しさん：2013/02/06(水) 18:29:58.80

WindowsでCPANどうやるの

536 ：デフォルトの名無しさん：2013/02/06(水) 18:51:38.74

>>535
馬鹿には無理
お前みたいな低知能じゃ一人でできないって理解できただろ？
消えろ

537 ：デフォルトの名無しさん：2013/02/06(水) 19:03:35.36

>>535みたいなｱﾌｫを受け入れるからｽﾚの糞化が進んだんだろうな。
>>535がｽﾚを糞化させる目的でわざとｱﾌｫ質問を作って書き込んでるのかもしれんが。

538 ：デフォルトの名無しさん：2013/02/06(水) 19:05:53.05

>>535
煽りは気にすんな

CPANトップ→Binaries→Windows→x86行って
最新版をインストールすればおｋ
コマンドラインでの操作はLinuxと同じ

539 ：デフォルトの名無しさん：2013/02/06(水) 19:45:05.96

自己顕示欲を満たしたいだけの無能↑

540 ：デフォルトの名無しさん：2013/02/06(水) 20:23:28.66

腹PAN

541 ：デフォルトの名無しさん：2013/02/07(木) 02:19:56.56

基地害の隔離スレ

542 ：デフォルトの名無しさん：2013/02/07(木) 08:10:39.14

CGIは普通のPerlと何が違うの

543 ：デフォルトの名無しさん：2013/02/07(木) 09:57:16.06

.cgiのプログラムは、サーバにあるperlで実行される。
.plのプログラムは、
サーバではなくクライアント（ローカルマシン、端末）のperlで実行（テスト）される。

544 ：デフォルトの名無しさん：2013/02/07(木) 12:42:16.27

>>1も読めないゴミに回答するゴミ

545 ：デフォルトの名無しさん：2013/02/07(木) 13:20:34.66

だからここは>>1を守る必要もなければスレ違いもないんだよ。池沼の隔離スレにルールは不要。

546 ：デフォルトの名無しさん：2013/02/07(木) 14:25:56.41

>>543
何と申しますか…ﾍｯﾍｯﾍｯ

547 ：デフォルトの名無しさん：2013/02/07(木) 14:30:54.69

CGIはWebサーバのクライアントのソケットと標準入出力をつないで
環境変数を設定してプログラムを起動する「仕組み」だろ？ｗ

548 ：デフォルトの名無しさん：2013/02/07(木) 14:33:10.34

CでもFORTRANでもアセンブラでも、CGIは書ける。

549 ：デフォルトの名無しさん：2013/02/07(木) 15:49:52.49

CGIを書いたと言って差し出してきたものは
すべてがCGIから起動されるプログラムでしかなかった。

550 ：デフォルトの名無しさん：2013/02/07(木) 16:12:26.01

>>549
文系？
今はそういう話をしてるんじゃあないの

551 ：デフォルトの名無しさん：2013/02/07(木) 16:12:43.24

本当にちょっとしたものならシェルスクリプトでCGI書いてる

552 ：デフォルトの名無しさん：2013/02/07(木) 16:24:23.78

>>550
お前は単に否定したいだけだろゴミ
どういう話をしてるのかの説明もしようとしないで否定するだけ

まさにゴミｗ

553 ：デフォルトの名無しさん：2013/02/07(木) 16:30:17.57

> お前は単に否定したいだけだろゴミ
常日頃お前がやってることだろうが山猿

554 ：デフォルトの名無しさん：2013/02/07(木) 16:37:37.99

>> お前は単に否定したいだけだろゴミ
>常日頃お前がやってることだろうが山猿
そんなことしたことないんだけどどうやってそういう判断下したの？
まさか妄想じゃないよね？
客観的な根拠もないならそれ妄想癖だから病院に行ったほうがいいよ

555 ：デフォルトの名無しさん：2013/02/07(木) 16:37:55.69

>>553
それは山猿に失礼ですよ
山猿のほうが、>>552よりずっと知能も高いし語彙も多いし秩序もある

556 ：デフォルトの名無しさん：2013/02/07(木) 16:46:42.72

いっつも同じように罵るだけでユーモアが感じられないんだよなあ

557 ：デフォルトの名無しさん：2013/02/07(木) 16:49:02.48

そう。コピペ馬鹿と同じレベル。

558 ：デフォルトの名無しさん：2013/02/07(木) 17:17:51.48

昼間から書き込みしてるニート同士の小競り合い
ハロワ行けお前ら

559 ：デフォルトの名無しさん：2013/02/07(木) 17:22:38.23

>>543-557
偉そうなこと言ってもニートはニート

560 ：デフォルトの名無しさん：2013/02/07(木) 17:23:07.52

perlきも

561 ：デフォルトの名無しさん：2013/02/07(木) 17:29:35.69

ゴミしか言えない単細胞じゃ
学校授業レベルのスクリプトにも劣るわな

562 ：デフォルトの名無しさん：2013/02/07(木) 17:30:18.16

ゴミゴミゴミゴミ

563 ：デフォルトの名無しさん：2013/02/07(木) 17:36:17.53

ゴミ厨の特徴
フルボッコされるといつもしばらく間を置いて
>>558-560のように別人を装って出てくる
これでリセットできたつもりｗ

564 ：デフォルトの名無しさん：2013/02/07(木) 17:43:40.64

なるほど、Perlやってると自分にとって都合の悪い相手は全部一人に見えるのかｗ

565 ：デフォルトの名無しさん：2013/02/07(木) 17:52:37.33

>>561
え、お前ゴミを指すのに毎回表現変えてんの？
すっげー！

「明日は金曜日だからゴミ出さなきゃ」
「おいゴミ箱からゴミ引っ張り出して散らかしたのは誰だよ」
「ゴミはそこらに投げ捨てるなよ」
「ゴミが溢れてるぞ」

ゴミはゴミとしか表現しないわ

566 ：デフォルトの名無しさん：2013/02/07(木) 17:57:04.20

所詮はニートのスレ

567 ：デフォルトの名無しさん：2013/02/07(木) 18:47:32.92

ニートじゃないだろ
キチガイ派遣ITドカタが業務中にきいてんだろ

568 ：デフォルトの名無しさん：2013/02/07(木) 19:00:18.26

Ｐｅｒｌ使えても就職先なんてないからニートになるんだろｗだっせｗｗしかもニートなうえに２ｃｈで煽り合いｗｗｗｗ
ＰＨＰなら就職先いくらでもあるのにｗｗｗｗうえっうえっｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

569 ：デフォルトの名無しさん：2013/02/07(木) 19:49:09.38

　　　　　　　　　　　　　　　　　　　　／＼
　　　　　　　　　　　　 ┌─── ／(^p^)＼←────────────────┐
　　　　てんすの恵み│　　　／　てんす　＼←────┐たかしちゃんは天使　 .│
　　　　　　　　　　　　 └→ ／￣￣￣￣￣￣＼　　　　　 │（補助金うめえｗｗｗｗ） │
　　　　　　　　　　　　　　／　　　　(＾o＾)　　　　＼───┘　　　　　　　　　　　　　　献
　　　　　　　　　　　　　／　　　　　保護者　　　　　＼　　　　　　　　　　　　　　　　　　上
　　　　　　　　　　　／　　　　　　　　　　　　　　　　 .＼　　　　　　　　　　　　　　　　　.│
　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣＼ ────────┐　　 ..│
　　　　　　　　　／　　　　　　　　擁護団体　　　　　　　.＼　　　　　　　　　　 │　　　|
　　　　　　　　／　　　　　　　　　　　　　　　　　　　　　　　　＼　　　　　　　　 ..├──┘
　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼　　　　　　　 |
　　　　　　／　　　　　　　　　　　　　健常者　　　　　　　　　　　　＼ .────┘
　　　　　／　　　　　　　　　　　　　　（奴隷）　　　　　　　　　　　　　＼
　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

570 ：デフォルトの名無しさん：2013/02/07(木) 21:31:41.29

>>564
一人なんだから一人に見えて当然

571 ：デフォルトの名無しさん：2013/02/07(木) 21:46:01.94

一人に見えるんだから一人に見えて当然

572 ：デフォルトの名無しさん：2013/02/07(木) 21:53:00.87

print "最初のバカ発生\n" ;
for (1..10) {
my $pid = fork ;
$bakanumber{$pid} = $_ ;
if (not defined $pid) {
die '>' x 5, "バカその$_ IS FAILED.\n" ;
} elsif ($pid == 0) {
sleep $_ ;
exit ;
} else {
print '>' x 5, "バカその${_}発生\n" ;
}
}
while ($kid != -1) {
sleep 0.25 ;
$kid = waitpid (-1, WNOHANG) ;
die "最初のバカも駆除ですっきり。\n" if ($kid == -1) ;
print "バカその$bakanumber{$kid}は駆除されました。\n" unless ($kid == 0) ;
}
exit ;

573 ：デフォルトの名無しさん：2013/02/07(木) 22:15:41.51

仕事がなくて余程暇なんだな

574 ：デフォルトの名無しさん：2013/02/08(金) 00:10:39.73

きちがいは病気ではなくて個性だから直そうと思ってはいけない。
決して直ることはない。

575 ：デフォルトの名無しさん：2013/02/10(日) 03:38:31.85

子どもの頃の話。

子どもの頃、僕は２階建ての借家にすんでいた。
母親も仕事をしていたので、学校から帰っても自分一人のことが多かった。
ある日、夕方遅く学校から帰ってくると、家の中が暗い。
「おかあさ～ん」と呼ぶと、２階からか小さな声で「はあ～い」と
応える声がする。もういっかい呼ぶとまた「はあ～い」。
自分を呼んでいるような気がして、２階へあがる。
階段をあがったところでまた母を呼ぶと、奥の部屋から「はあ～い」と声がする。
奇妙な胸騒ぎと、いっこくも母に会いたいのとで、奥の部屋へゆっくりと
近づいていく。
そのとき、下で玄関を開ける音がする。母親があわただしく買い物袋をさげて
帰ってきた。「しゅんすけ、帰ってる～？」明るい声で僕を呼んでいる。
僕はすっかり元気を取り戻して、階段を駆け下りていく。
そのとき、ふと奥の部屋に目をやる。
奥の部屋のドアがキキキとわずかに動いた。
僕は一瞬、ドアのすきまに奇妙なものを見た。
こっちを見ている白い人間の顔だった。

576 ：デフォルトの名無しさん：2013/02/10(日) 06:07:49.92

>>575
普通に泥棒だろ。それ。

577 ：デフォルトの名無しさん：2013/02/10(日) 06:28:04.34

>>576
泥棒だったらいちいち返事しないだろ

578 ：デフォルトの名無しさん：2013/02/10(日) 12:30:54.98

>>577
おかあさ～んって呼ばれて、存在に気づかれたと思い適当に返事したとか。
猫の鳴く真似するような物で。

579 ：デフォルトの名無しさん：2013/02/10(日) 12:31:46.08

Perlの質問すると荒らすヤツがいるのに雑談は何も言わない。
質問して叩くヤツは本当、ただの荒らしだな

580 ：デフォルトの名無しさん：2013/02/10(日) 13:11:21.20

配列と連想配列を引数として渡す場合は
&func(\@array,\%hash);
でいいんでしょうか？
それと受け取る側は
@$array、@$hash{$key}でいいのかな？

581 ：デフォルトの名無しさん：2013/02/10(日) 13:15:20.87

消えろ

582 ：デフォルトの名無しさん：2013/02/10(日) 13:55:25.99

>>579
Perlすらまともに使えずクビになったことへの逆恨み

である確立は99.9%

583 ：デフォルトの名無しさん：2013/02/10(日) 13:57:37.85

>>580
受け取りは、@_に入ってる
@{$_[0]} と、%{$_[1]}って感じで、$_[0]->[0] とか、$_[1]->{$key}のように参照。
ってか、適当に荒らせば返事がくるって風潮をなんとかしろよ・・・・

584 ：デフォルトの名無しさん：2013/02/10(日) 14:21:11.11

これだからドカタは

585 ：デフォルトの名無しさん：2013/02/10(日) 14:38:35.54

>>580
渡し方はそれでOKですが、
サブルーチン側で受け取られるのは配列(ハッシュ)のリファレンスなので、
元の配列(ハッシュ)を呼び出すには下記のようにします。

sub func {
my ($array_ref, $hash_ref) = @_ ;
my @array_sub = @$array_ref ;
my %hash_sub = %$hash_ref ;
}

わかりやすいように、
リファレンスをスカラー変数 $array_ref と $hash_ref に一度入れ、
呼び出した配列とハッシュは @array_sub と %hash_sub に入れましたが、
$$array_ref[0] のように記述して、配列の要素の値を直接呼び出せます。
これを、$array_ref と $hash_ref を介さずにしたい時は下記のようにします。

sub func {
my @array_sub = @{$_[0]} ;
my %hash_sub = %{$_[1]} ;
}

・・さて俺も叩かれるのかな

586 ：デフォルトの名無しさん：2013/02/10(日) 15:02:43.12

こういう状況で張り切って答える馬鹿がいるんだよな。

そういう奴に限って実社会では役に立たないクズで、
しかも空気読めなくて周りから嫌われるタイプ。

587 ：デフォルトの名無しさん：2013/02/10(日) 15:17:02.08

>>586
雑談＞質問の答え　という時点でお前はただの荒らし

588 ：デフォルトの名無しさん：2013/02/10(日) 15:34:56.83

>>586は
「Perlすらまともに使えず実社会からつまみ出された負け犬」

589 ：デフォルトの名無しさん：2013/02/10(日) 16:06:07.44

荒らしをスルーせずに荒らし荒らしと言ってる池沼もグルだろう。
そういう池沼共は荒らしかどうかは実際には問題じゃなく
そうやってスレを消費しつつ雰囲気を悪くするのが目的。

その証拠に質問への回答より先に荒らしにレスしている。
分かりやすすぎ。

590 ：デフォルトの名無しさん：2013/02/10(日) 16:10:40.82

>>589
>>589

591 ：デフォルトの名無しさん：2013/02/10(日) 17:44:24.71

このスレは質問したあと自演で荒らせばヴァカが張り切って答えてくれるからなｗ

ヴァカの行動は単純だからこっちも考えずに単純に荒らせばいいｗ

592 ：デフォルトの名無しさん：2013/02/10(日) 19:54:25.14

>>568
まだまだ掲示板やSNSはperlが現役で使われている
perlができれば就職先は結構ある

593 ：デフォルトの名無しさん：2013/02/10(日) 20:46:38.01

じゃあ何でこのスレは平日昼間から伸びるの？
業務中に2chで遊び放題の糞企業なの？

594 ：デフォルトの名無しさん：2013/02/10(日) 20:51:34.67

そりゃ俺様が開発した高水準の自動書き込みツールで
おまいらのていのーな書き込みに自動応答してるからさ。

もちろんperl製だよ

595 ：デフォルトの名無しさん：2013/02/10(日) 21:05:44.22

すっげええええええええええええええええええええええええ！！！
スーパープログラマーだ！！！！！！！

596 ：デフォルトの名無しさん：2013/02/10(日) 22:48:57.55

まぁ今日は日曜日だけどな。

597 ：デフォルトの名無しさん：2013/02/11(月) 01:33:44.39

別に高水準ってほどでもないよーな…まあ、それ作る時間があれば別のことやるけどさ

598 ：デフォルトの名無しさん：2013/02/11(月) 05:28:33.79

初心者ですが質問です。

今ドラゴニックで育てているのですが、育成指針で悩んでいます。
そろそろ育成指針に合わせて装備を絞り混まなければならないようです。

クリ特化ならソケットはタカ50P、呪文50P、デュナミス＋司祭征服セット、でしょうし
属性特化ならソケットは40Pずつ全属性、メタトロン＋祝福シュゼ、覇王、だと思うのですが、
お金もかかる話なので少しずつ揃えていくことになりますが、最初にちゃんと決めておかないと迷走しそうです。
よろしくお願いします。

599 ：デフォルトの名無しさん：2013/02/11(月) 06:44:17.55

こちらこそよろしくお願い島s。

600 ：デフォルトの名無しさん：2013/02/11(月) 22:55:20.65

結局クリ特化と属性特化どっちがいいんですかね？

601 ：デフォルトの名無しさん：2013/02/12(火) 17:49:46.49

両方でいいよ

602 ：デフォルトの名無しさん：2013/02/13(水) 19:03:39.38

初心者ですが質問します
今やっているMMORPGが、プレイ中によく強制終了します
移動するマップにもよりますが、平均30分に1回くらい落ちます
もう1年以上続いていて、運営会社も原因究明にあたっているようですが未だに直りません
むしろアップデートがあるだびに悪化しているような気がします
しょっちゅう落ちるのでストレスもたまりまくりです
そこで、Perlを使って落ちないようにするプログラムの作り方を教えてください
落ちかけたら強制的に落ちないようにするのが理想ですが
他にもっと良いやり方があればそれで構いません

603 ：デフォルトの名無しさん：2013/02/13(水) 20:21:17.61

笑

604 ：デフォルトの名無しさん：2013/02/13(水) 20:28:48.60

perlみたいなゴミ言語には無理

605 ：デフォルトの名無しさん：2013/02/13(水) 20:35:57.66

>>602
バカには無理

606 ：デフォルトの名無しさん：2013/02/13(水) 23:29:24.33

eval {　} で囲んで、if ($@) {　} で受ける。

607 ：デフォルトの名無しさん：2013/02/13(水) 23:32:18.76

すまん、誤爆。

608 ：602：2013/02/15(金) 01:47:42.29

回答はまだでしょうか

Perlは糞言語だから何もできないって言ってる人がいますが
やっぱり本当なのでしょうか

609 ：デフォルトの名無しさん：2013/02/15(金) 08:33:03.04

×　糞言語
○　602の脳味噌が糞

610 ：デフォルトの名無しさん：2013/02/15(金) 10:16:44.36

>>608=602
いつものゴミ厨が化けて燃料投下してるんだろ？
誰がまともに相手するかよ

611 ：デフォルトの名無しさん：2013/02/15(金) 13:33:15.64

知識もスキルもなくて答えられないけどプライドだけは一人前なので
ゴミ厨レッテルを貼って答えられないのではなく答える必要がないアピールをしてみました

612 ：デフォルトの名無しさん：2013/02/15(金) 13:44:56.66

おまえにはむり

613 ：デフォルトの名無しさん：2013/02/15(金) 13:54:09.11

きも

614 ：デフォルトの名無しさん：2013/02/15(金) 13:58:12.72

>>612
お前どうせ2ch風低機能掲示板くらいしか作れないだろ？
無理すんなって。

615 ：デフォルトの名無しさん：2013/02/15(金) 14:32:30.45

２ちゃんねるなんか廃止するべき
管理されない掲示板は禁止

616 ：デフォルトの名無しさん：2013/02/15(金) 17:50:11.85

構ってちゃんじゃあるまいし掲示板なんて作る必要ねえんだがw
俺は俺にとって必要な自動化に必要となるもの作るだけ

617 ：デフォルトの名無しさん：2013/02/15(金) 18:06:28.69

うるさいゴミ

618 ：デフォルトの名無しさん：2013/02/15(金) 20:38:38.68

>>608
>>605

619 ：デフォルトの名無しさん：2013/02/15(金) 20:53:45.26

このスレの住人には無理みたいだからつまりバｋ（ｒｙ

620 ：デフォルトの名無しさん：2013/02/15(金) 21:30:47.08

MMORPGときいても、ぴんとこないから、回答がないんだろう

621 ：デフォルトの名無しさん：2013/02/15(金) 21:32:29.30

MMORPGなんてみんなやってるのにピンとこないわけがなかろう

622 ：デフォルトの名無しさん：2013/02/15(金) 21:33:10.00

Massively multiplayer online role-playing game (MMORPG)
is a genre of role-playing video games
in which a very large number of players interact with
one another within a virtual game world.
- Ｗｉｋｉｐｅｄｉａ

623 ：デフォルトの名無しさん：2013/02/15(金) 22:25:54.26

ほらまたWikipediaを辞書か何かと勘違いした雑魚が来ちゃったよ。

624 ：デフォルトの名無しさん：2013/02/15(金) 22:40:20.25

>>623
おまえだろ、新スレたてたの
削除依頼だせよ

625 ：デフォルトの名無しさん：2013/02/15(金) 22:41:13.76

MMORPGなんてやってないのに、わかるわけないだろ

626 ：デフォルトの名無しさん：2013/02/15(金) 23:01:25.67

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

627 ：デフォルトの名無しさん：2013/02/15(金) 23:39:38.19

>>624←こいつ絶対妄想癖あり

628 ：デフォルトの名無しさん：2013/02/16(土) 02:38:26.78

このスレなんか雰囲気がキモい

629 ：602：2013/02/16(土) 05:09:56.72

昨日も昼の12時から夜中の24時までの間に17回落ちました

升をしたいわけではなくて原因不明の強制終了を回避したいだけです
OSが32bitなら落ちにくいとか、XPなら落ちにくいとか、GeForceの8500番台なら落ちにくいとか
色々な風説がありますが、それでもよく落ちるという話なので眉唾物です

落ちるときは何やってても落ちます
IDの中でもインベントリを開いてもNPCをクリックしても落ちます
ロード画面が異常に長いなと思ったらフリーズしてたりします

これを落ちないようにするプログラムをPerlで作りたいと思っています
怪盗をお待ちしております

630 ：デフォルトの名無しさん：2013/02/16(土) 09:56:44.64

明日の午前零時、貴殿の大切なモノ、貰い受けます
～怪盗Perl～

631 ：デフォルトの名無しさん：2013/02/16(土) 10:03:04.19

@aに1から10までの数がランダムに入っているとする
これを順に取り出していって、合計が100を超えない最大の固まりごとに
出力したい

エレガントに書くと、どんな感じ?

632 ：デフォルトの名無しさん：2013/02/16(土) 10:24:34.07

＞エレガント
こういう曖昧な基準を持ち出してくる精神異常うざい。
マジで糞だろこいつ。

633 ：デフォルトの名無しさん：2013/02/16(土) 10:46:05.92

こうか？

my @result;
my $sum;
for (@a) {
next if (($sum += $_) < 100);
push (@result, ($snum -= $_));
$sum = $_;
}

634 ：デフォルトの名無しさん：2013/02/16(土) 10:48:30.18

あぁ、ピッタリ100の時ダメだからこうだな
my @result;
my $sum;
for (@a) {
next if (($sum += $_) <= 100);
push (@result, ($snum -= $_));
$sum = $_;
}

635 ：デフォルトの名無しさん：2013/02/16(土) 10:52:15.13

>>631
> これを順に取り出していって、合計が100を超えない最大の固まりごとに
> 出力したい
ここがどういうことがよくわからないんだけどｋｗｓｋ
@aの頭から最後まで足し合わせた後、また頭の要素から取り出すのかな。
100を超えない最大の固まりができたら、その次の位置からスタート？

あと、どうでもいいかもだけど、
Perlで$aと$bという変数は特殊変数として使われることがあるから、
気をつけて

636 ：デフォルトの名無しさん：2013/02/16(土) 12:11:01.51

>>634
固まり1個だけ出して終わってしまうような
100を超えるかどうか取り出してみて、超えてたから次の固まりに回す、
というあたりの処理が厄介な部分なのに

普通に考えると、shiftで配列を削っていって、
削り過ぎたらunshiftで戻しとく、というのが自然だけど、
そんなことしなくてもいいようなエレガントな方法はないかなと

637 ：デフォルトの名無しさん：2013/02/16(土) 12:19:27.77

>>636
え？実際動かしてみた？

638 ：デフォルトの名無しさん：2013/02/16(土) 12:20:43.18

＞エレガント
こういう曖昧な基準を持ち出してくる精神異常うざい。
マジで糞だろこいつ。

639 ：デフォルトの名無しさん：2013/02/16(土) 12:32:24.57

ああ、固まり=合計と解釈したのね
じゃなくて、配列のままでないと
あと、半端な残りが捨てられている

640 ：デフォルトの名無しさん：2013/02/16(土) 12:47:22.80

問題文もクソじゃねーか
なーにが
>解釈したのね
だ
上から目線のアホは消えろよ
てめーの言うことがアホだから通じてねぇんダロｋｓ

641 ：デフォルトの名無しさん：2013/02/16(土) 12:50:35.11

>>639
１から１０までの答えを求めるなよ
あれから改造できるだろ。
半端が捨てられるって、$sumにあるだろ、
ループ抜けた後に $sum 使えばいい

642 ：デフォルトの名無しさん：2013/02/16(土) 12:54:05.90

>>631
sub hundred {
    my @list = @_;
    my $i = 0;
    return sub {
        my $start = $i;
        ($start < @list) or return ();
        my $sum = 0;
        while(($i < @list) and (($sum += $list[$i]) <= 100)){
            $i++;
        }
        return @list[$start .. $i - 1];
    };
}

643 ：デフォルトの名無しさん：2013/02/16(土) 13:04:51.21

意味がわからんので
具体例で書いてくれ

644 ：デフォルトの名無しさん：2013/02/16(土) 13:09:36.66

よくこんなコード晒して恥ずかしくないな

こんなコード書いてる奴が何かシステム作ってるかと思うと恐怖だな

645 ：デフォルトの名無しさん：2013/02/16(土) 13:16:18.57

>>643
http://ideone.com/JejpCW

646 ：デフォルトの名無しさん：2013/02/16(土) 13:19:12.08

>>639
荒らしたいだけだろゴミ

647 ：デフォルトの名無しさん：2013/02/16(土) 13:45:13.47

なるほどなー
取り出さずにインデックスで見れば戻す必要がないという点と、
インデックスを安全に保持させる為に関数化してしまうのは参考になる

再利用とかまで考えるとこう書くのがいいんだろうけど、
大仰過ぎるというか、なんかエレガントと違う
関数化してるから万能そうに見えて、@aに追加があっても対応できないし

変数で初期化して、作った関数は即座に使って終わり、というのは
オブジェクト指向脳ではごく自然なんだろうな

648 ：デフォルトの名無しさん：2013/02/16(土) 13:53:39.56

なんかくだらなくなってきたなぁ～
ってか、これくらい想像できない>>647が、
偉ぶって評価してる時点で頭おかしいとしか思えない

my @result = ('');
my $sum;
for (@a) {
if (($sum += $_) <= 100) {
push (@{$result[-1]}, $_);
} else {
push (@{$result[scalar @a]}, $_);
$sum = $_;
}
}

649 ：デフォルトの名無しさん：2013/02/16(土) 14:00:26.17

そもそも質問者は荒らしたいだけだからね

650 ：デフォルトの名無しさん：2013/02/16(土) 14:29:46.43

つーかさ、毎度そうだけどスクリプト言語が短く書けるということに
あぐらをかいて、自分で関数を作らないから、
自分の限界＝他人が用意してくれたものになるんだよ。お前ら。

例えばこんな汎用関数(batch_shift)を作ればスマートに書けるだろ？

while(@list) {
　my $i = 0;
　my @results = batch_shift { ($i+=$_) <= 100 } \@list;
　# @resultsの固まりに処理をする
}

batch_shiftは条件を満たしている限り取り出していくshiftの拡張版
grepでも近いことはできるが、@listを破壊するのと
条件を満たさなくなった時点で打ち切るという点で違う。

batch_shift の実装ぐらい省略していいよな？
まあ、俺はここまで考えてから、batch_shiftを実装する前に
既存のモジュールでこのようなことが出来るものがないか探す工程を入れるけど。

651 ：デフォルトの名無しさん：2013/02/16(土) 14:36:24.43

グダグダと小出しにして
結局は断罪やらヘイトをやりたいだけのｋｓかよ
消えろアホ

652 ：650：2013/02/16(土) 14:37:25.90

念の為に言っておくけど、俺出題者じゃないからな
この話題で初めて書いたのが>>650だからな。

653 ：デフォルトの名無しさん：2013/02/16(土) 14:38:39.06

>>631で質問を出して
>>650で自分の言わんとすることをようやくブチあげる。

完璧なマッチポンプで、>>649の言う通りに
質問者は荒らしたいだけ。

そのくっだらねーオナニーに付き合わされたのが間に挟んでマジメにこたえようとしたアホ

654 ：デフォルトの名無しさん：2013/02/16(土) 14:40:26.18

>>653
必死だなｗ
技術者なら陰謀論の話ではなく
コードの話をしろよ。

655 ：デフォルトの名無しさん：2013/02/16(土) 14:42:40.53

最初っから
> あぐらをかいて、自分で関数を作らない
> お前ら。
とか煽る気マンマンじゃん

こりゃ仕込みだよ
新聞社が良くやるえげつない手法さ

そしてbatch_shiftとか
ぼくのかんがえたかんすう
とかを持ち上げる、
しかもそれはできてない、

こりゃ最初から最後まで嵐の仕業だｗｗ

656 ：デフォルトの名無しさん：2013/02/16(土) 14:45:02.82

コードの話しろよ（苦笑）

657 ：デフォルトの名無しさん：2013/02/16(土) 14:45:04.31

>>650は質問者なのか？
リストを破壊していいとか、後出しすぎるわ。

658 ：デフォルトの名無しさん：2013/02/16(土) 14:45:48.58

え？何も言っていない＝何やってもいいだろ？

659 ：650：2013/02/16(土) 14:46:25.50

破壊したくなければ@listを@tmpにでも入れればいいだけ。
どっちでも簡単。

660 ：デフォルトの名無しさん：2013/02/16(土) 14:46:41.49

>>650
俺は、同じ処理を何度もするから関数にするという考えであって、
スマートに見えるからと抽象化のみ目的に関数にするのは間違いだと俺は思う。
逆にソースの見通しを悪くする。
ってか、別にそんなトリッキーな事してねーだろ普通だ普通。

661 ：デフォルトの名無しさん：2013/02/16(土) 14:48:00.88

詐欺師がまだなんかポポポポとか言ってんのか

お前らはダメだとか
限界だとか
他人のおこぼれだとか
ついでにいろいろとバカにされてんぞｗｗｗ

662 ：デフォルトの名無しさん：2013/02/16(土) 14:51:48.87

>>631でこれ見よがしなエサ出しといて
>>650で「お前らダメだな関数作れよ」とか言いたいだけのｋｓだ

663 ：デフォルトの名無しさん：2013/02/16(土) 15:05:08.97

> 100を超えない最大の固まり
とか言ってるヤツはやっぱり荒らしか

最初からコレだ
言い方が曖昧だモンこれ
はぐらかす気しかねェ
出てきたコード全部に違うとか言えるじゃん

664 ：デフォルトの名無しさん：2013/02/16(土) 15:29:48.85

アプローチが違うだけで、みんな正攻法なんだよな

そういう手があったか、と膝を打つようなアイディアが無いものかと思ったけど、
結論としては無いということらしい

こういうよくあるちょっと厄介な問題に対して、
perlはうまい回避法を用意してくれてることが多いけど、
この場合は多分unshiftで逃げろ、というのがそれなんだろうな

665 ：デフォルトの名無しさん：2013/02/16(土) 15:31:48.94

>>664
それの方がありえねーだろ
ちょっとお前が作ったソース見せてみ？

666 ：デフォルトの名無しさん：2013/02/16(土) 15:45:51.88

自己顕示欲を満たしたいだけの馬鹿が必死で回答ｗ
別所でヲチされて笑われても知らずにｗ

667 ：デフォルトの名無しさん：2013/02/16(土) 15:48:57.03

るの

668 ：デフォルトの名無しさん：2013/02/16(土) 15:49:55.85

お前らTMTOWTDIがあることを忘れるな

669 ：デフォルトの名無しさん：2013/02/16(土) 15:55:56.81

>>666
いいからソース見せてみろって
口だけの人に見せられないような糞ソースなのはわかってるから見せてみ？

670 ：デフォルトの名無しさん：2013/02/16(土) 15:57:10.95

すんません、コードはあげれませんｗ

> batch_shift の実装ぐらい省略していいよな？
> まあ、俺はここまで考えてから、batch_shiftを実装する前に
> 既存のモジュールでこのようなことが出来るものがないか探す工程を入れるけど。

って書いたじゃないスかｗｗｗ

こんなくっさい場所にオレのコードなんかあげませんよ（笑）

671 ：デフォルトの名無しさん：2013/02/16(土) 16:03:19.62

本人たちは至極真面目に議論してるつもりらしいが半年前と比べると質が異常に落ちてるな。

まともに議論してた人たちはどこ行った？

672 ：デフォルトの名無しさん：2013/02/16(土) 16:10:07.03

>>671
返す言葉もコードもなくなったから
そろそろ敗北宣言の意味不明の戯言か？
妄想も大概にしとけよ低能

673 ：デフォルトの名無しさん：2013/02/16(土) 16:10:34.82

今はただの基地害隔離すれですから

674 ：デフォルトの名無しさん：2013/02/16(土) 16:15:19.53

>>672

675 ：デフォルトの名無しさん：2013/02/16(土) 16:19:28.13

>>672
エレガントとか認識に固体差がある釣り質問に何ムキになってんの？亞汰魔がおかしいの？

開発効率
実行効率
保守性
拡張性
安全性

で語れずにエレガントとか言ってるゴミは自己満足以外の何物でもない
自己満足はブログだけにしとけよゴミが

676 ：デフォルトの名無しさん：2013/02/16(土) 16:54:39.92

コアのアルゴリズム自体の話だからな
良いアルゴリズムを採用したせいで保守性が落ちるとか、そんなことにはならない訳で
単に話の次元が違うだけ

677 ：デフォルトの名無しさん：2013/02/16(土) 17:18:07.16

>>660
> 俺は、同じ処理を何度もするから関数にするという考えであって、

へ？初期化処理をinit関数に分けないの？
チェック処理をチェック関数に分けないの？

一度しか使わなくても、それがある処理の固まりになっているのなら
関数にするべきだよ。それをしないでほかの処理と混ぜたら
スコープごっちゃまぜになるし、処理を分離しづらくなるだけ。

ここからここまでは○○の処理って、コメント書くくらいなら関数にするべき。

まあ、がんばって。その程度ならまだ若いでしょ？

678 ：デフォルトの名無しさん：2013/02/16(土) 17:59:10.11

それはどうかな

679 ：デフォルトの名無しさん：2013/02/16(土) 20:07:53.17

>>677
どんな作りしてるんだろう・・・
１つのファイルで巨大な物作ってるんだろうなぁ～
まるでケントスクリプトのようなのを予想する。

スコープごちゃごちゃなんてありえない。
お前はじじぃだろ、perl4時代のような作りをしていると思う。

680 ：デフォルトの名無しさん：2013/02/16(土) 20:12:59.78

>>679
あほ？
お前は、

sub main {
　my $data1 = read_data1(); #長くて複雑なデータ読み込み
　my $data2 = read_data2(); #長くて複雑なデータ読み込み
　my $data3 = read_data3(); #長くて複雑なデータ読み込み

　my $result = process($data1, $data2, $data3); # 長くて複雑なデータ処理

　display($result); # 人間的に見やすい形式で表示
}

というコードを、それぞれ1回しか使わないからって
main関数に全部展開するんだろ？

681 ：デフォルトの名無しさん：2013/02/16(土) 20:18:01.38

>>680
はぁ・・・お前がアフォだ。
アフォというか古いよ老害。
うちの会社の昔のオッサンが作ったような作りだ。
他の保守する人間が、
その「長くて複雑なデータ読み込み」でなんなのかわかるとでも思ってるのか
どれだけ「長くて複雑なデータ」読み込んでるんだよ
必要な時に必要なだけ読み込むよう作れよ

絶対お前のソースは俺がみたら大半を作り変える事になるわ

682 ：デフォルトの名無しさん：2013/02/16(土) 20:21:07.80

>>681
焦点がずれてる。

お前は一回しか使わない関数は
作らないって言ってるんだろ？

じゃあ一回しか行わない処理は
なんて関数に入れるんだよ？

関数に入れないつもりか？

683 ：デフォルトの名無しさん：2013/02/16(土) 20:24:28.47

>>681
お前が何に対して文句言ってるのかさっぱりわからない。

1度しかやらない処理は関数にしない（というお前の主張）の話じゃないの？

684 ：デフォルトの名無しさん：2013/02/16(土) 20:25:56.02

>>682
そうか「１度しか使わない関数は作らない」ってのでは語弊があった。
たとえば分岐で処理変えたりする時は１度の呼び出しだけど関数にする事はよくある

けど、分岐やらではなく、
ただ処理が長くなるからって関数に分けるような事はまずしない
なぜなら、その長くなる、複雑になるっていってる処理が、
今その場所でのメイン処理なのだから。別に分ければ逆に見通しが悪くなる

685 ：デフォルトの名無しさん：2013/02/16(土) 20:26:52.46

「長くて複雑なデータ読み込み」でわからないから
わかりやすい関数名にするわけだろ。

それた例え一回しか使われない関数でもな。

違う？

686 ：デフォルトの名無しさん：2013/02/16(土) 20:28:41.78

文体だけで低脳とすぐ分かる>>681みたいな奴は
まともに相手しても意味なし。

687 ：デフォルトの名無しさん：2013/02/16(土) 20:30:51.69

>>684
あーお前が言ってるのは

100行あるコードを長いからって
前50行、後ろ50行に単純分割するって話だろ。

馬鹿だ。誰もそんな話はしていない。

コードが長くなれば見通しが悪くなる。
たいていは分岐やループが増え、コードが複雑になる。

だから論理的に意味がある固まりを見つけ
その部分を（例え1回しか使わない関数になったとしても）
抜き出せって言ってるんだよ。
そうすりゃ複雑度は下がるだろ。

688 ：デフォルトの名無しさん：2013/02/16(土) 20:34:16.61

いったいみんなどんな作りしてるんだ・・・？？
１つ見せてほしい所だけど、まぁ無理だろうな
>>686のような何の意見でもない荒らしが出てきたので、
この辺でやめるわ

689 ：デフォルトの名無しさん：2013/02/16(土) 20:35:18.80

>>688
お前が見せろってｗ

>>680をお前はどう修正するんだ？
修正したいんだろ？

690 ：デフォルトの名無しさん：2013/02/16(土) 20:36:02.76

昔、長いソースを100行ずつ物理的にぶった切って
それらをincludeで並べ、「ハイモジュール分割しました～!!」と
得意そうに見せに来た新人を思い出した。
多分そんな類の思考回路だなｗ

691 ：デフォルトの名無しさん：2013/02/16(土) 20:37:06.26

>>690
まああれだ。

類は友を呼ぶ的な感じで、
>>688の周りにはそんな奴らしかいないから
ここで話してるのも、その話だと思っちゃったんだろｗ

誰が単純分割しろって言ったよ？ｗ

692 ：デフォルトの名無しさん：2013/02/16(土) 20:38:48.74

>>689
その長い処理うんぬんのソースあるなら見せてくれ
修正してみせる。
ってか、あんな抽象的な書き込みで何をどうしろというんだｗ

>>690
お前の会社そんな程度で入社できるのか・・・
程度の低い会社だなｗｗｗ

693 ：デフォルトの名無しさん：2013/02/16(土) 20:43:16.40

>>692
なんで関数の中身が必要なんだ？
・・・で書けばいいだろ。

まあいいや。
read_data1(); はini形式に似たファイルからデータを呼び出す。
read_data2(); はxml形式に似たファイルからデータを呼び出す。
read_data3(); はデータベースからデータを呼び出す。

元々のデータストレージが違うから共通化は出来ない、
それをお前はどう直すんだ？
やっぱり具体的なコードがないと直せないのか？

直せるかどうかわからないのに
直せると言い切ったのか？

694 ：デフォルトの名無しさん：2013/02/16(土) 20:44:23.05

あ、重要なことを言い忘れた。

それぞれのread_data?は一回しか使われない。

一回しか使われないから、それをお前は
mainに全部展開するっていうんだよな？

695 ：デフォルトの名無しさん：2013/02/16(土) 20:45:18.03

> ってか、あんな抽象的な書き込みで何をどうしろというんだｗ

抽象的な書き込みみて、
「俺がどうにかしてやる」といったのが
お前なわけでｗ

696 ：デフォルトの名無しさん：2013/02/16(土) 20:50:44.58

>>693
そんなので直せねーよ
そんな抽象的な会話で、どう答えるんだ・・・

my $val = &make_graph()；
これで表計算するんだけど関数展開したらどんななる？って聞かれているような物だろ

>>695
だから、実際そんなソースがあるなら見せろって言ってる。
本当頭痛い・・・マジになって話できない場所だな本当

697 ：デフォルトの名無しさん：2013/02/16(土) 20:59:00.78

これで足りないならもっと”裏設定”を作ってやろうか？

> read_data1(); はini形式に似たファイルからデータを呼び出す。
> read_data2(); はxml形式に似たファイルからデータを呼び出す。
> read_data3(); はデータベースからデータを呼び出す。

"形式に似た"というのは、iniやxmlに似てるんだけど微妙に違うんだ。
外部システムが生成するものだから、その形式を直す事はできない。
微妙に違うから既存のライブラリも使えない。

まあそれぞれ独自実装だ。パース処理が入るから結構長いぞ。
とはいえ、ローカル変数とかは$iとか$record、$itemとか、
ローカル変数名だからね。他の関数のローカル変数名と
かぶりやすそうな名前が使われてるよ。

もちろん全部つくり話だが？ｗ抽象的な書き込みじゃ分からないと
いったから裏設定作ったよ。

さて、これらの関数、一回しか使わないからmainに全部展開するのか？

それとも、まだini風、xml風、データベースから読み込み処理がないと答えられないというのか？
そんなの出したらお前は、それぞれの独立した処理を複雑に組み合わせそうなんだがｗ

それぞれのread_data？関数で共通化出来るところはない。という前提だけで十分だろ？
さて、これらの関数、お前は一回しか使わないからmainに全部展開するのか？

698 ：デフォルトの名無しさん：2013/02/16(土) 21:05:38.12

「一回しか使われない関数」という前提はそのままに
名前を変えてみたよ。

sub main {
　my $data1 = IniModoki::read(); #長くて複雑なデータ読み込み
　my $data2 = XmlModoki::data(); #長くて複雑なデータ読み込み
　my $data3 = DB::data(); #長くて複雑なデータ読み込み

　my $result = process($data1, $data2, $data3); # 長くて複雑なデータ処理

　display($result); # 人間的に見やすい形式で表示
}

>>660はこれでも一回しか使われないからってmain関数を展開するのか？

それとも別々のパッケージなのに、必要もない依存関係を作る気か？

699 ：デフォルトの名無しさん：2013/02/16(土) 21:10:49.76

>>697
いろいろ設定してお題を出してくれてるし何とか答えたいんだけど・・・
そうだなぁ・・
処理する内容にもよるけど・・・
本当に作り込むとなったら、パーサになる関数を作るだろうな。
なぜなら、それ１回だけの使用とならなさそうだから。
でも、今の設定の話でいくならば・・・

まず、iniもどきであっても、xmlもどきであっても、
１データずつ読み込みパースしながら処理する。

while (<$FH>) {
my ($val) = $_ =~ /<value>(.*?)</value>/;
....
}

こんな雰囲気か・・・？
データベースとかなら、事前にステートメントハンドル作って、
それでループ回す感じか・・・

こんなので答えになってるのか・・・

700 ：デフォルトの名無しさん：2013/02/16(土) 21:14:39.01

もう一つ別の作り話をしてやろう。

今回は、read_data1、read_data2、read_data3で
共通化出来る処理があった！というお前にとっては好都合な状態がスタートだｗ

read_data1("file1.ini"); はfile1.iniから必要な部分のみのデータを取ってくる
read_data2("file2.ini"); はfile2.iniから必要な部分のみのデータを取ってくる
read_data3("file2.ini"); はfile3.iniから必要な部分のみのデータを取ってくる

すべてini形式風だ。だから汎用のライブラリは使えなくても
ini風ライブラリとして共通部分が作れる。
read_ini_modoki()という共通関数が出来ました！この関数は3回使います！

数日後・・・仕様変更でfile2.iniが不要になりました。
数日後・・・仕様変更でfile3.iniが不要になりました。

read_ini_modoki()という共通関数は1回しか使われなくなりました。

お前の「1回しか使われない関数は展開する」を守れば、このread_ini_modoki()は
消すってことになるわけだが、それでいいんだな？

念の為に言っておくが、俺の考えは、
「たとえ一回しか使われなくても、論理的に意味がある固まりになっていれば、その部分を関数に抜き出せ」だ
（複雑度が下がるから）

701 ：デフォルトの名無しさん：2013/02/16(土) 21:16:01.54

>>699
> 本当に作り込むとなったら、パーサになる関数を作るだろうな。
> なぜなら、それ１回だけの使用とならなさそうだから。

>>700と被るが、仕様変更で
read_data2, read_data3が不要になりました。

1回だけの使用となってしまいました。

さてどうするｗ

702 ：デフォルトの名無しさん：2013/02/16(土) 21:18:39.33

もうそろそろ、「一回しか使わないなら関数にしない」が
初心者を抜けだしたつもりの初心者の考えだって気づいたかな？
一回しか使わないなら（略そんな基準はナンセンスだ。

703 ：デフォルトの名無しさん：2013/02/16(土) 21:22:01.05

>>700
＞お前の「1回しか使われない関数は展開する」を守れば、このread_ini_modoki()は
＞消すってことになるわけだが、それでいいんだな？

いい訳ねーだろｗ
一回作った物を、わざわざ壊して展開してるとか普通に考えてありえないだろ。
それと、その時は１回の使用かもしれないけど後々は再利用するような物であるなら、
それは関数にするよ、そんなの当たり前。
そんな、ひねくれた事を俺は言ってるんじゃないんだけど・・・
ずっと上の方見たらわかると思うけど・・・
ただ単にごちゃごちゃするからって理由だけで関数にして抽象化するのは間違っていると俺は思うって話

704 ：デフォルトの名無しさん：2013/02/16(土) 21:28:29.61

なんか、もう何を問われているのかわからなくなってきた・・・

>>680を見た時、必要もないデータを、
とにかくごちゃごちゃ読み込みまくる変な関数を作っているのかと思った
そりゃスコープもごちゃごちゃになるだろうなって感じ。
実際ソースがある方が話しやすいけど、そういうのもないしなぁ・・・

705 ：デフォルトの名無しさん：2013/02/16(土) 21:29:49.60

>>703
一回作ったものは壊さない？
じゃあ何か最初からread_data1だけだったら
お前はIni風対応の関数を作らないのか？

sub main {
　my $data1 = read_data1(); #長くて複雑なデータ読み込み
　my $result = process($data1); # 長くて複雑なデータ処理
　display($result); # 人間的に見やすい形式で表示
}

この例で言えば、read_data1とprocessとdisplayは
それぞれ1回しか使われてないから、main関数の中に
全部一緒くたにして書くってことだよな？

706 ：デフォルトの名無しさん：2013/02/16(土) 21:32:49.35

そうだよ。一度聞けばわかるだろ、ばかが

707 ：デフォルトの名無しさん：2013/02/16(土) 21:34:14.23

>>705
普通なら作るだろうな。
>>699で言ったように、その時１回だけ使用する関数とは思えないし。
後々有用となる物と考えるから関数として作る。
関数として作るけど、それは見やすくなるから～なんて理由じゃないって話

708 ：デフォルトの名無しさん：2013/02/16(土) 21:37:05.95

「単にごちゃごちゃするからって理由だけで関数にして抽象化する」
なんて一言も言っていない。

論理的に意味がある固まりに分離できるから
（1回しか使わなくても）分離すると言ってる。

コードを小さい単純な機能の関数の集まりにしておけば
複雑度が下がってシンプルになるからコードの理解も早く。
という理由で関数化して抽象化してるんだよ。俺はな。

709 ：デフォルトの名無しさん：2013/02/16(土) 21:43:58.20

>>707
> 後々有用となる物と考えるから関数として作る。
後々有用となるかなんてわからんだろ。
将来のことは誰にもわからん。

そんな基準で関数を作っていくと、
有用にならないだろう
↓
関数にしない
↓
一つの関数に複数の独立した処理がどんどん追加されていく。
↓
気づけば関数の行数、数千行、どこからどこで何をしているのか
さっぱりわからない。

って状態になるぞ。

論理的に意味がある固まりを見つけられたら積極的に関数にしろ。
機能は単純であればあるほどいい。（それこそ再利用がしやすい）

710 ：デフォルトの名無しさん：2013/02/16(土) 21:56:20.42

あとから共通の処理を抜き出すというのは
すごく大変な作業。

有用かどうか（＝今すぐ再利用できるか？）で考えていくと
必然的にコードはどんどん膨れ上がっていく。
なぜなら最初の一回目は、当然一回しか使われないからね。

あるコードの断片があって、論理的に意味があって分けられるはずなのに、
初めて使う＝一箇所だ。という理由でわけないでいると
そのコードの断片は、その周りのコードと絡み合うことになる。

そこから引き剥がすのはすごく大変なんだよ。
大変だからやらない。コピペする。悪循環ってやつだ。

関数の行数なんて、一画面、最大でも50～100行程度だ。
そんなのあっという間に埋まる。だから積極的に関数にしても無駄にはならん。

一箇所でしか使ってなくても、論理的な意味で自然な形に関数にでき
それによってコードがシンプルになるのであれば何の問題もないだろ。

711 ：デフォルトの名無しさん：2013/02/16(土) 22:03:09.42

ついさっき来たばかりだけど、えーと、
ルーチン処理の位置づけについてのハナシですか？

712 ：デフォルトの名無しさん：2013/02/16(土) 22:07:08.73

サブルーチン　【subroutine】
プログラミングにおいて、コード中で何度も必要とされる定型的な処理を
一つのプログラムにまとめて外部から呼び出せるようにしたもの。
汎用性の高いコードをサブルーチンとして切り出すことにより、
似たようなコードを何度も記述する必要が無くなり、コード量の削減や開発効率の向上、
不具合発生率の低減などが見込める。

参照：http://e-words.jp/w/E382B5E38396E383ABE383BCE38381E383B3.html

713 ：デフォルトの名無しさん：2013/02/16(土) 22:14:01.65

ついに辞書厨まで出てきたじゃねぇかｗｗｗ

714 ：デフォルトの名無しさん：2013/02/16(土) 22:17:36.30

サブルーチンでもないものを無理してサブルーチンにするな。
無理をするからあとから読めなくなる。
自然体で書け、自然体で。

どうせ変な名前つけて訳わかんなくなるんだから。

715 ：デフォルトの名無しさん：2013/02/16(土) 22:34:14.70

>>714
ちょっとでいいからJavaやってみな

716 ：デフォルトの名無しさん：2013/02/16(土) 22:37:38.32

CODE COMPLETEを読むといいよ。

てか、テストをどうやって書いてるのか興味ある。

717 ：デフォルトの名無しさん：2013/02/16(土) 22:42:41.34

臭男がテストなんかしてるわけねーよ
いつも書き散らしただけ
これならド素人にも楽勝だわ

718 ：デフォルトの名無しさん：2013/02/16(土) 22:45:56.31

機能があると使わずにはいられないっていう上司がいて、よせばいいのに
コードを複雑にしてしまう。客から何度もクレームを受けてようやく５回目
でちゃんとしたものを完成。
引き継いだ俺はシンプルにしてやったさ。当然バグもなし。

なんつーか、予約語全部使い切らないと気が済まないような感じだったな。
まあ、個性だから直らないんだろうけどな。

719 ：デフォルトの名無しさん：2013/02/16(土) 22:48:45.88

Javaより前のC++への反動でできたのがPerlだろ、そんなのと合わせてどうする

720 ：デフォルトの名無しさん：2013/02/16(土) 22:51:25.75

ホントかよ
C++とかウソ八百じゃん

721 ：デフォルトの名無しさん：2013/02/16(土) 23:00:47.07

Cで書くのは大変だからawkができて、
それが進化したのがperl

722 ：デフォルトの名無しさん：2013/02/16(土) 23:57:59.56

プログラミングのことはよくわからないけど・・

沢山変数が出てきても頑張ればある程度は把握しきれるだろうけど、
人間だからいつか限界が来て行き詰まるハズ。

サブルーチンが「何度も記述しなくていいように～」
ってなってるから「１回しか使わないなら要らない」って
意見が出るんだろうけど、１回しか使わないからと言って、
プログラムを整理することを怠っていると、
自分の把握限界を超えるような処理は書けなくなるし、
書いている時はわかっていても後から修正するときに、
思い出せなかったりすると思う。

「論理的に意味がある固まり」はちょっと難しい表現だと思ったけど、
「人間の言葉では簡潔に言えても、コードにすると融通がきかなくなって長くなる部分」
って言えば通じるんじゃないかな。(俺なりには

書き捨てだったら使わないで書いた方が早いだろうけど、
しっかり組み立てるには柔軟なルーチンワークを考えることにも
頭を使わなきゃいけない。

結局はTMTOWTDI、どう書こうが自由なんだろうけど。
長文失礼。

723 ：デフォルトの名無しさん：2013/02/17(日) 00:04:27.59

本来、法則のないものに無理やり法則を見つけ出してしまう困ったひとがいる。
そういうひとは構造がないコードを目にしたときに無理やり構造を作ってしまう。例えばサブルーチン化だ。
必然性のないサブルーチンは後で読むと本人を含み誰もその意味を理解できない。

よく似たケースとして本来、フラグが必要ないところに

724 ：デフォルトの名無しさん：2013/02/17(日) 00:07:41.90

作業変数の受け渡しが冗長になる時は
まあ関数化しなくてもいいかなと思う時はある

725 ：デフォルトの名無しさん：2013/02/17(日) 00:21:03.80

サブルーチンにする必要がないが、ひと固まりにしておきたいのなら
ブロックにしておけばいい。もちろん無名だ。
その固まりをサブルーチンにしたくなった段階で sub とサブルーチン名
をつけてサブルーチンにする。
そのサブルーチンが値を返すようになったら、それは関数だ。

726 ：デフォルトの名無しさん：2013/02/17(日) 00:22:40.08

で、サブルーチン野郎の結論は
関数にした方がいいということか。

727 ：デフォルトの名無しさん：2013/02/17(日) 00:23:29.43

そのあたりのことは続・初めてのPerlに書かれているのでここでは繰り返さ
ない。

728 ：デフォルトの名無しさん：2013/02/17(日) 00:25:59.54

エキスパートperlプログラミング―?知られざるperlの深層

729 ：デフォルトの名無しさん：2013/02/17(日) 00:27:24.43

うん。だな。
さっきから適切な名前をつけて
関数にしろとしか言ってない。

730 ：デフォルトの名無しさん：2013/02/17(日) 00:27:35.62

無意味なサブルーチンは作ると混乱するよ。そりゃあ
「人間にとって意味のある」サブルーチンを作るんだよ。
「コメントアウトで簡潔に説明できるような」って言っても良いかな。

731 ：デフォルトの名無しさん：2013/02/17(日) 00:30:57.56

誰だよ、これからはオブジェクト指向の時代、Javaの時代だ、なんて言ってたのは
結局、関数指向プログラムなんじゃないか

732 ：デフォルトの名無しさん：2013/02/17(日) 00:33:12.39

>>730
当たり前じゃね？

だから、論理的に意味がある固まりを見つけられたら積極的に関数にしろ。
ってあの人も言ってるわけで。

反論してた人は論破されたみたいねw

733 ：デフォルトの名無しさん：2013/02/17(日) 00:36:07.83

>>731
オブジェクト指向と関数指向プログラムは相反しないぞ。

オブジェクトの中に関数（メソッド）がある。

734 ：デフォルトの名無しさん：2013/02/17(日) 00:39:13.00

関数指向の関数はそういう意味じゃねーよ

735 ：デフォルトの名無しさん：2013/02/17(日) 00:41:13.77

>>734
え？誰か正しい意味での
関数指向の話してたっけ？

てっきり、わかっていて、
普通の関数の話をしているのだと思ったが？

736 ：730：2013/02/17(日) 00:49:43.03

>>732
すまん。俺反論派じゃないぞ？

737 ：デフォルトの名無しさん：2013/02/17(日) 00:54:19.82

え？何でも関数ってヤツの方がおかしいと思うけど？

738 ：デフォルトの名無しさん：2013/02/17(日) 00:55:08.83

ほらまた、誰も言ってないことを言い出して
けむにまこうとしてるｗ

739 ：デフォルトの名無しさん：2013/02/17(日) 00:59:25.62

>>735
はいはい
見なかったことにしてあげるから、そんなにいきり立たなくても

740 ：デフォルトの名無しさん：2013/02/17(日) 01:00:11.21

>>731が見てて可哀想ｗ

741 ：デフォルトの名無しさん：2013/02/17(日) 01:00:38.67

そしてエレガントバカは姿をくらましたのであった・・・

742 ：デフォルトの名無しさん：2013/02/17(日) 01:04:03.05

>>741
それって、一回しか使わない関数は
関数にするべきではないと
言っていたヤツのこと？

743 ：730：2013/02/17(日) 01:07:47.40

>>742
こいつだろ→>>631

744 ：デフォルトの名無しさん：2013/02/17(日) 01:08:05.23

>>636がエレガントバカ

745 ：デフォルトの名無しさん：2013/02/17(日) 01:09:27.16

while(@list) {
　my $i = 0;
　my @results = batch_shift { ($i+=$_) <= 100 } \@list;
　# @resultsの固まりに処理をする
}

746 ：デフォルトの名無しさん：2013/02/17(日) 01:14:14.95

jQueryにnextUntilとかいうメソッドがあるんだ。
特定の条件を満たすまで兄弟要素を抽出するという。

それを真似て batch_shift ではなくshift_untilという名前のもいいかと思った。
使い方はほぼ同じで、条件を満たすまでshiftする。

747 ：デフォルトの名無しさん：2013/02/17(日) 01:14:55.68

良くも悪くも、仕事としてプログラム書いてる人ばっかりだからね
アルゴリズムの発想とか、そんなのとは無縁なところにいる
保守性とか可読性とかそういうつまらない部分にしか時間を割いてない

748 ：デフォルトの名無しさん：2013/02/17(日) 01:18:18.59

今度はいきなりアルゴリズムの話か？
今まで出てなかったのだが、
お前が言いたいことをちゃんと言えよ。

保守性も可読性も重要だろ。
オープンソースアプリだって重要視してる部分だ。

749 ：デフォルトの名無しさん：2013/02/17(日) 01:19:56.54

アルゴリズムは作ったら
再利用できるように汎用化して
関数にしましょう。

そうすれば後は関数を使うだけだから
シンプルになりますって話じゃねーの？

750 ：デフォルトの名無しさん：2013/02/17(日) 01:25:26.77

アルゴリズムって保守性や可読性を
高めるためのものなんだけど・・・。

751 ：デフォルトの名無しさん：2013/02/17(日) 01:25:29.14

重要な部分というのはえてして面白くない部分なんだ

752 ：デフォルトの名無しさん：2013/02/17(日) 01:28:39.91

コードをシンプルにし保守性や可読性を上げるのも
十分面白いと思うけど？

自然科学の法則をシンプルな式で表現するのと同じで。

まあ、そういう数学的なことが嫌いな人がいるのもわかるけどね。

753 ：デフォルトの名無しさん：2013/02/17(日) 01:29:10.86

というかエレガントに書くには関数使わないほうがいいの？
そもそも「エレガント」がよくわからないのだが・・・

754 ：デフォルトの名無しさん：2013/02/17(日) 01:31:10.64

いや使えるのであれば
使った方がいいだろｗ

755 ：デフォルトの名無しさん：2013/02/17(日) 03:35:41.31

>>752
腐った脳ミソしたてめーが面白いと思うだけだろブログにでも書いてろｋｓ

756 ：デフォルトの名無しさん：2013/02/17(日) 04:08:53.05

動けばいいだけの>>755

VS

無駄がなくて速くて読みやすくて修正しやすくてテスト可能なコードを書こうとする人

757 ：デフォルトの名無しさん：2013/02/17(日) 04:48:27.73

なんだキチガイか

758 ：デフォルトの名無しさん：2013/02/17(日) 10:24:27.08

関数化云々は設計の話なんだよな
アルゴリズムはコーディングの話
両者を峻別できない人は論理的に思考できていない

759 ：デフォルトの名無しさん：2013/02/17(日) 12:00:26.83

>>758
> アルゴリズムはコーディングの話
学生かい？w

760 ：デフォルトの名無しさん：2013/02/17(日) 13:10:24.71

だからね、自然体で書くんだよ、自然体で。
解くべき問題をそのまま記述するんだよ。

無理にねじって記述するから後で分からなくなるんだよ。
そのために unless だの not だの !~ のようなものが
ふんだんにある。Perlの一見、無駄っぽい機能はみんな
そのためのもの。Javaとは違うのだよ、Javaとは。

761 ：デフォルトの名無しさん：2013/02/17(日) 13:20:52.54

プログラムをばかっぽく作るとばかっぽくメンテナンスできるようになる。
検索できるプログラムになるから、ただのm//検索やs///置換でメンテナンス
できる。

構造を自分ででっちあげてしまうとそれができなくなる。

762 ：デフォルトの名無しさん：2013/02/17(日) 14:42:24.43

議論に負けて、ネタで荒らすｗ

763 ：デフォルトの名無しさん：2013/02/17(日) 17:06:40.53

ここで質問しようと思ってる人はまず最新50レスを読んでみるといい

まともな回答の返ってくる可能性が絶望的だということに気付くだろう

764 ：デフォルトの名無しさん：2013/02/17(日) 17:58:23.50

まともでない回答は必ず帰ってくるが、
それをコメントアウトすると、意外とまともなやりとりが成立してるぞ

765 ：デフォルトの名無しさん：2013/02/17(日) 18:32:14.28

そんなことしたら全レスコメントアウトになるが・・・

766 ：デフォルトの名無しさん：2013/02/18(月) 00:14:41.87

最近の質問の中では割と成立してるほうではあるんだよな…
酷いと煽り以外のレスが付かないところ、コードまで出てるのにはちょっと感動した

767 ：デフォルトの名無しさん：2013/02/18(月) 00:42:50.55

基地害の隔離スレ

768 ：デフォルトの名無しさん：2013/02/18(月) 00:51:47.73

Java好きならJavaで書けばいいんじゃない？きっとそのほうがいいよ。

769 ：デフォルトの名無しさん：2013/02/18(月) 01:10:06.05

Java板でPerlっぽく書こうずっていって追い出されてこっち着たんですよ

770 ：デフォルトの名無しさん：2013/02/18(月) 02:57:58.62

なんだ？ Javaにコンプレックスがある奴がいるのか？

↓こいつ（ら？）恥ずかしい奴

715 名前：デフォルトの名無しさん[sage] 投稿日：2013/02/16(土) 22:34:14.70
>>714
ちょっとでいいからJavaやってみな

719 名前：デフォルトの名無しさん[sage] 投稿日：2013/02/16(土) 22:48:45.88
Javaより前のC++への反動でできたのがPerlだろ、そんなのと合わせてどうする

731 名前：デフォルトの名無しさん[sage] 投稿日：2013/02/17(日) 00:30:57.56
誰だよ、これからはオブジェクト指向の時代、Javaの時代だ、なんて言ってたのは
結局、関数指向プログラムなんじゃないか

760 名前：デフォルトの名無しさん[sage] 投稿日：2013/02/17(日) 13:10:24.71
だからね、自然体で書くんだよ、自然体で。
解くべき問題をそのまま記述するんだよ。

無理にねじって記述するから後で分からなくなるんだよ。
そのために unless だの not だの !~ のようなものが
ふんだんにある。Perlの一見、無駄っぽい機能はみんな
そのためのもの。Javaとは違うのだよ、Javaとは。

768 名前：デフォルトの名無しさん[sage] 投稿日：2013/02/18(月) 00:51:47.73
Java好きならJavaで書けばいいんじゃない？きっとそのほうがいいよ。

769 名前：デフォルトの名無しさん[sage] 投稿日：2013/02/18(月) 01:10:06.05
Java板でPerlっぽく書こうずっていって追い出されてこっち着たんですよ

771 ：デフォルトの名無しさん：2013/02/18(月) 09:09:49.68

昔の2chのように、ゴミの中に有効な回答が埋まってる方がらしくていいか。
手を動かした人だけ分かればいいし。

772 ：デフォルトの名無しさん：2013/02/18(月) 14:55:37.53

その有効な回答も質がかなり落ちてるけどなあ。
Twitterできいたほうがまだまともな回答が返ってくる。

773 ：デフォルトの名無しさん：2013/02/18(月) 22:40:49.31

すみません、教えて下さい。
use LWP::Simple;
$html = get ("URL");
みたいなコードなんですが、
タイムアウト時間を設定する書式がわかりません。
よろしくお願いします。

774 ：デフォルトの名無しさん：2013/02/18(月) 23:30:19.22

そんなものは無い

775 ：デフォルトの名無しさん：2013/02/18(月) 23:47:29.99

>>773
失せろゴミ

776 ：デフォルトの名無しさん：2013/02/18(月) 23:58:03.74

>>773
use LWP::Simple qw($ua get);
とやると、$uaはLWP::UserAgentのオブジェクトだから、それでタイムアウトの設定すればいい。

777 ：デフォルトの名無しさん：2013/02/19(火) 00:02:01.36

自作自演はきもいよ

778 ：デフォルトの名無しさん：2013/02/19(火) 00:03:05.02

779 ：デフォルトの名無しさん：2013/02/19(火) 00:12:29.62

まだ解決してなかったのか。

780 ：デフォルトの名無しさん：2013/02/19(火) 00:45:04.09

$max が 0 なので割り算ができない

781 ：デフォルトの名無しさん：2013/02/19(火) 00:53:14.91

本人は>>63で解決してて>>778はコピペだろ

782 ：デフォルトの名無しさん：2013/02/19(火) 01:29:23.97

バレたかｗ
自己顕示欲を満たしたいだけのヴァカがコピペにもレスするから面白いんだよなｗ

783 ：デフォルトの名無しさん：2013/02/19(火) 01:49:55.37

Java,Java言ってたあいつはちっとはPerlで書けるようになったんかな？
あいつに任せるとシジルやブレースを忘れてそのままコミットしちゃうんで
しばらく外してたんだが、こんなところで厄介者になっていたのか

784 ：デフォルトの名無しさん：2013/02/19(火) 02:34:12.55

>>783
Java、Java言ってるのはお前だっていい加減気づけよｗ

785 ：デフォルトの名無しさん：2013/02/19(火) 02:49:38.24

>>776
ありがとうございます。助かりました。

786 ：デフォルトの名無しさん：2013/02/19(火) 02:52:02.28

俺はAPL派だけどな

787 ：デフォルトの名無しさん：2013/02/19(火) 03:51:38.36

>>785
二度と来るな

788 ：デフォルトの名無しさん：2013/02/19(火) 03:56:23.93

>>787
ごめん、きちゃったよｗ

789 ：デフォルトの名無しさん：2013/02/19(火) 04:24:20.72

>>788
どうしてもここを糞スレ化して他人に迷惑をかけたい場合は何度でも来てください
他人に迷惑をかけるのが嫌な場合のみ来ないでください

790 ：730：2013/02/19(火) 04:33:51.32

>>789
つまりおまえも糞スレ化推進派なんだな

791 ：デフォルトの名無しさん：2013/02/19(火) 20:21:46.61

>>789
他の人を不愉快にしています。
もう来ないでください。

792 ：デフォルトの名無しさん：2013/02/19(火) 20:34:23.90

>>791も他人を不愉快にしています。
二度とネット回線に接続しないでください。

793 ：デフォルトの名無しさん：2013/02/19(火) 20:42:01.20

今日はハロワで嫌味でも言われたんだろうな

794 ：デフォルトの名無しさん：2013/02/19(火) 20:50:10.06

「そんなこともわからないやつ」
「迷惑をかけるだけ」
「回線切れ」
「自己顕示欲を満たしたいだけのヴァカ」

いつものパターン

795 ：デフォルトの名無しさん：2013/02/19(火) 20:59:02.19

いつも自演で荒らしてるのって>>791だろ

796 ：デフォルトの名無しさん：2013/02/19(火) 21:02:15.10

自学症状がないようですね

797 ：デフォルトの名無しさん：2013/02/19(火) 21:31:45.02

顔真っ赤でタイプミスする人っているよね。

798 ：デフォルトの名無しさん：2013/02/19(火) 21:41:02.14

顔真っ赤にしてタイプミスを指摘する人っているよね

799 ：デフォルトの名無しさん：2013/02/19(火) 21:45:00.09

顔真っ赤だからタイプミスの指摘すらスルーできない人っているよね

800 ：デフォルトの名無しさん：2013/02/19(火) 21:58:55.88

そういうのもスルーできなくて

801 ：デフォルトの名無しさん：2013/02/19(火) 21:59:03.08

　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣
　　　　　∧＿∧ 　＜落ち着けよカスども
　　　　　（　´_ゝ｀）　　　＼＿＿＿＿＿＿＿＿
　　　　／　　　　＼
　　　/ /＼　　　/￣＼
　＿|￣￣＼　/　ヽ　＼＿
　＼￣￣￣￣￣￣＼＿_）
　　||＼　　　　　　　　　　　　＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　||　 ||　　　　　　　　　　 ||

802 ：デフォルトの名無しさん：2013/02/19(火) 22:40:20.06

マジでTwitterのほうがいい

＜メリット＞
キチガイはブロックできるから精神衛生上良い
回答者してきた人の過去ツイートを見られるから回答の信憑性も測れる
コードパッドやブログと併用することで長いコードでを話題にすることもできる

＜デメリット＞
キチガイは即ブロックされるため、ここでよく見られる荒らしてアホ回答者の回答を誘う行為ができない
学習のためなどと言いつつ情報を一方的にもらうだけの乞食ができない

803 ：デフォルトの名無しさん：2013/02/19(火) 23:03:33.85

きちがいはどの世界でもいるから諦めろ

804 ：デフォルトの名無しさん：2013/02/19(火) 23:32:11.40

どうせ荒らしてるのはルネッサンスについていけない奴だしな

805 ：デフォルトの名無しさん：2013/02/19(火) 23:35:07.83

やっぱりお前は馬鹿だな

806 ：デフォルトの名無しさん：2013/02/20(水) 11:47:11.31

エレガントとか答えの出ない質問には回答できても特定の要件を満たさなければならない質問には回答できないアフォの棲むスレ
質問スレとして機能していない、単なるエレガントなコードコンテストスレ()

807 ：デフォルトの名無しさん：2013/02/20(水) 12:32:54.57

スレのレベルが上がれば馬鹿は寄ってこないのにな
でも残念ながら糞質問に答える馬鹿がいるからこうなる

808 ：デフォルトの名無しさん：2013/02/20(水) 13:57:40.45

学校・企業が入学・入社志望の奴に試験を課すのにはそういった理由もある
単に全員受け入れる余裕がないからという理由だけではない

ヴァカを受け入れ続ければその組織のレベルは際限なく下がっていくからな

809 ：デフォルトの名無しさん：2013/02/20(水) 16:13:39.11

はいはいヴァカヴァカ

810 ：デフォルトの名無しさん：2013/02/20(水) 18:13:02.87

池沼質問者にまでせっせと回答する荒らし方はかなりレベルが高い

ボディーブローみたいにじわじわ効いてくる

811 ：デフォルトの名無しさん：2013/02/20(水) 18:34:08.96

はいはい池沼池沼

812 ：デフォルトの名無しさん：2013/02/20(水) 19:26:32.40

ここってMKTだなｗ

813 ：デフォルトの名無しさん：2013/02/20(水) 19:27:26.54

あうあうあー

814 ：デフォルトの名無しさん：2013/02/20(水) 21:47:57.84

ｍｋｔ認定

815 ：デフォルトの名無しさん：2013/02/20(水) 22:19:32.83

はいはいｍｋｔｍｋｔ

816 ：デフォルトの名無しさん：2013/02/20(水) 23:08:26.76

>>815

817 ：デフォルトの名無しさん：2013/03/04(月) 13:05:29.77

#!/usr/bin/perl

@aaa = ("A1", "B21", "A2", "A11", "A3" );
@aaa = sort { $a cmp $b } @aaa;
print $_ . "\n" for @aaa;

とすると下記がでます。

A1
A11
A21
A3
B21

アルファベットの後の数字は数字としてソートし、下記のように出したいのですが、
どのようにしたら良いでしょうか。

A1
A3
A11
A21
B21

818 ：デフォルトの名無しさん：2013/03/04(月) 13:20:03.44

質問サンプルをまかなうことは出来るが
A1
A3
A11
A21
B1
B21
は簡単にできない。
したいなら分けてから引っ付けた方が早いぞ。

世の連番に01、02がある意味を考えてみなよ。

819 ：デフォルトの名無しさん：2013/03/04(月) 13:28:59.79

それかこれ
http://search.cpan.org/~salva/Sort-Key-1.32/lib/Sort/Key/Natural.pm

820 ：デフォルトの名無しさん：2013/03/04(月) 14:06:44.25

>>817
自分で調べろよ
本物のゴミだなお前

821 ：817：2013/03/04(月) 14:09:25.01

>>818,819

ご意見ありがとうございます。
01,02のことを忘れていました。

リスト作成時に01,02をつけることで対応しました。
ありがとうございます。

822 ：デフォルトの名無しさん：2013/03/04(月) 14:39:40.93

>>821
忘れてた？
やっぱただのヴァカだったか、二度と来るな。

823 ：デフォルトの名無しさん：2013/03/04(月) 15:01:09.37

うわ、何このレベル低い質問
自分で調べることもできないのか

824 ：デフォルトの名無しさん：2013/03/04(月) 15:06:19.76

なんつーか知恵の問題だよ
>>821みたいに知恵のない奴は何やっても無理
知識や経験がないだけなら努力で何とかなるけど
>>821は根本的に知恵がないから無理

825 ：デフォルトの名無しさん：2013/03/04(月) 16:27:32.96

悪い感情に流されている奴がいるが気にすんなよ＞質問者

826 ：デフォルトの名無しさん：2013/03/04(月) 16:31:10.16

>>817-818
http://perldoc.jp/docs/perl/5.14.1/perlfaq4.pod#How32do32I32sort32an32array32by32anything41
@aaa = map{ $_->[0] } sort { $a->[1] cmp $b->[1] || $a->[2] <=> $b->[2] } map{[ $_, unpack('A1A2') ]} @aaa;

827 ：デフォルトの名無しさん：2013/03/04(月) 16:36:38.34

糞みたいな質問してる基地害って>>825みたいなのを鵜呑みにしてるんだろうな
だからいつまで経っても成長できずに底辺を這いずりまわってる
まさに歩く恥晒しｗ

828 ：デフォルトの名無しさん：2013/03/04(月) 23:24:27.85

こんなスレで聞くこと自体おかしい
ちょっと前のスレの流れ見たらわかるでしょ

829 ：デフォルトの名無しさん：2013/03/04(月) 23:44:17.38

>>817,821
単純に下記のやり方でいけます
無駄多いかもしれませんが。。
インデントの空白は全角なので注意

@aaa = ("A1", "B21", "A2", "A11", "B1", "A3" );
print "@aaa\n" ;
@aaa_sorted = &test(@aaa) ;
print "@aaa_sorted\n" ;

sub test {
　my @input = @_ ;
　my (%hash, @output) ;
　for my $abc (@input) {
　　if ($abc =~ /^([A-Z]+)(\d+)$/) {
　　　$hash{$1}{$2} = $abc ;
　　}
　}
　for my $abc (sort keys %hash) {
　　foreach my $num (sort {$a <=> $b} (keys %{$hash{$abc}})) {
　　　push (@output, $abc . $num) ;
　　}
　}
　return @output ;
}

830 ：829：2013/03/04(月) 23:49:52.23

失礼
11行目で$abc代入する必要なかった
値は未定義でOK

$hash{$1}{$2} = $abc ;
　　↓
$hash{$1}{$2} = undef ;

831 ：デフォルトの名無しさん：2013/03/04(月) 23:51:25.94

>>829
ありがとうございます。
そのコードで完璧に希望通りの動作をしました。

とでもレスもらえれば満足か？ｗ
コードは1/10人前のくせに自己顕示欲だけは人一倍の自己顕示君ｗ

832 ：デフォルトの名無しさん：2013/03/04(月) 23:51:51.80

こういうのは自己顕示欲が強いだけなんで
全く価値のないウンコード

833 ：デフォルトの名無しさん：2013/03/04(月) 23:53:03.95

>>830
投稿前に確認すらできない低能の書いたウンコードを誰が信用するんだよ

お前は不要だからさっさと消えろ

834 ：デフォルトの名無しさん：2013/03/05(火) 00:26:37.40

質問者が解決したって書いて何時間も経ってからだからな。
自己顕示欲とか言われても仕方ないだろ。
しかも書いたコードが産廃レベルでどうしようもない。

835 ：デフォルトの名無しさん：2013/03/05(火) 11:40:32.48

シュワルツ(シュオーツ)変換を含むソートは、続・初めてのPerl(通称アルパカ本)かEffective Perlで学べる。
リャマ本とアルパカ本マスターすれば、この辺りでクダ巻いてる奴らの上は行ける。

836 ：デフォルトの名無しさん：2013/03/05(火) 14:13:11.13

でも質問してるのは本も買えないほど貧乏な情報乞食

837 ：デフォルトの名無しさん：2013/03/05(火) 16:34:49.97

質問が来ると罵倒するヤツと、
質問に、ただ答えようとするヤツ。

どっちが基地外でしょう？

838 ：デフォルトの名無しさん：2013/03/05(火) 18:08:51.22

（^q^）「…」

女子高生たち「ひそひそ…」

（^q^）「見ろ。お笑いだ。我々が町を歩くだけで劇場が生まれる」

女子高生A「なんかぶつぶついってるよー」

女子高生B「ほんと、きもちわるいよねー」

（^q^）「…ああ、自らの浅はかさに未だ気づかぬ哀れなる衆愚どもよ」

主婦たち「ひそひそ」

（^q^）「同情しよう、いっぱしの常識人を気取り、その実、
　　　　障害者にも劣る思考形態でもって日々を浪費する哀れなる”健常者”ども」

小学生「おじさん、何言ってるのー？」

（^q^）「革命は常にマイノリティが起こすものだということだよ、ぼうや」

839 ：デフォルトの名無しさん：2013/03/05(火) 18:18:54.14

「質問」と抽象化して辞書通りの意味しか考えさない。
どこからどこまでが罵倒かの線引きもせず、「ただ答えようとするヤツ」と比較して心象の悪い「罵倒」というワードを選択。
世の中には二択しかないものはほとんどないのに無理やり二択から選択させる。

世論誘導の上手いメディア並の巧妙さ。
本物の荒らしはさすがだな。

840 ：デフォルトの名無しさん：2013/03/05(火) 18:20:53.51

>>839
お前の誘導は下手糞すぎる

841 ：デフォルトの名無しさん：2013/03/05(火) 18:20:57.06

>>839
意味も述べずに批判しているのは罵倒以外の何者でもないだろ
罵倒じゃなかったら何だというのだｗ
荒らしてる自覚がないとか本物の病人は手が付けられないな

842 ：デフォルトの名無しさん：2013/03/05(火) 18:23:53.71

2択出されてどっちかって言われたらどっちを選ぶか考えてしまうわな
文章は短くて読みやすいし下手な自演よりはるかに効果的に荒らせるな

843 ：デフォルトの名無しさん：2013/03/05(火) 18:25:38.99

>>837って荒らしてる自覚なかったの？
本物の病人は手が付けられないってのはガチかｗ

844 ：デフォルトの名無しさん：2013/03/05(火) 18:26:15.17

以上、下手な自演でした。

845 ：デフォルトの名無しさん：2013/03/05(火) 18:30:23.27

たった3行で見事な燃料投下と思ったら全部>>837の自（ｒｙ

846 ：デフォルトの名無しさん：2013/03/05(火) 18:42:03.30

自演かどうか知らんけどせっかく沈静化してるところに何やってんだ

847 ：デフォルトの名無しさん：2013/03/05(火) 19:16:18.10

自演乙で終わらせようとしてるところがもうね

848 ：デフォルトの名無しさん：2013/03/05(火) 19:37:18.43

神動画一覧
http://www.youtube.com/watch?v=lqAlRz5GCBo
http://www.youtube.com/watch?v=LhF6WCfUn4k
http://www.youtube.com/watch?v=VX6yQzlX2bg

849 ：デフォルトの名無しさん：2013/03/05(火) 21:16:12.30

gdbのようなソフトはありますか？

ブレークが貼れて、変数を見たりステップ実行したいです。
できればすでに動作中のプロセスにもアタッチしたい。

850 ：デフォルトの名無しさん：2013/03/05(火) 21:24:57.81

これまたすっとぼけたゴミ質問が来たよ

851 ：デフォルトの名無しさん：2013/03/05(火) 21:25:05.70

>>849
その程度も自分で調べられないゴミは消えろ
ここは代理検索じゃねえんだよゴミ

852 ：デフォルトの名無しさん：2013/03/05(火) 21:26:39.85

>>849=キチガイ

853 ：デフォルトの名無しさん：2013/03/05(火) 21:28:20.36

プログラミングをたしなむものがこんな馬鹿みたいな質問するべきじゃないな

854 ：デフォルトの名無しさん：2013/03/05(火) 21:30:41.99

ほら。
>>850-852
↑これ見て荒らし以外の何に見えんの？ｗ
知らないなら黙ってればいいじゃないｗ

>>849
perl -d test.pl
この１行だけでレス終わるじゃない

855 ：デフォルトの名無しさん：2013/03/05(火) 21:32:05.24

ほらまた素人を餌にして自分を強く見せたいだけの自己顕示欲塊が発狂してるよ

856 ：デフォルトの名無しさん：2013/03/05(火) 21:33:16.21

>>855
質問に答える＝自己顕示欲って、
スレタイ読んで来いよ
いったい何するスレだよ

857 ：デフォルトの名無しさん：2013/03/05(火) 21:34:33.81

お前みたいな奴がスレを低レベル化してる

858 ：デフォルトの名無しさん：2013/03/05(火) 21:37:24.72

>>857
レベルの高い質問ってどんなだよｗｗｗ
してはいけない低レベルの質問ってどんな区別で分けてんだよｗｗｗｗ

859 ：デフォルトの名無しさん：2013/03/05(火) 21:43:58.92

>>858は一日中ヨダレ垂らしながら生きてるんだろうな

860 ：デフォルトの名無しさん：2013/03/05(火) 21:50:50.45

いやだっておかしいでしょ
>>849にないよってレス来たら頭の悪い>>849はそれ信じるんでしょ？
その程度で満足して帰っていくヴァカの質問にまともに答える必要あるの？

861 ：デフォルトの名無しさん：2013/03/05(火) 21:52:58.07

>>859-860
なんかめんどくせーｗ
荒らしはスルー推奨って>>1にも書いてるし、
かまっちゃった俺が悪かったなｗｗｗｗｗｗ

862 ：デフォルトの名無しさん：2013/03/05(火) 21:54:09.38

>>860
空気読めは縛りが無いから、せめてテンプレ作れ。

863 ：デフォルトの名無しさん：2013/03/05(火) 21:56:33.01

>>861
炎上させるつもりで構ってるくせに白々しいな

864 ：デフォルトの名無しさん：2013/03/05(火) 21:59:03.01

＞Perl の奥深さについて皆で語り合い、追求してまいりましょう。
とてもじゃないがそんなことのできる状態ではない

865 ：デフォルトの名無しさん：2013/03/05(火) 22:00:32.92

もう追求ってレベルじゃねーぞ！

なるほど、このレベルだったか・・・

866 ：デフォルトの名無しさん：2013/03/05(火) 22:03:18.91

亞汰魔がおかしい

867 ：デフォルトの名無しさん：2013/03/05(火) 22:06:30.65

この間、日本のPerlコミュニティがおかしいってラリーのオッサンが泣いてたぞ
絶対ここのことだろ

868 ：デフォルトの名無しさん：2013/03/05(火) 22:07:41.55

ここ見てるってラリーなかなかコアだな

869 ：デフォルトの名無しさん：2013/03/05(火) 22:09:00.33

>>826で教科書通りのシュワルツ変換のソートを出しても、
ガチのGRTも、ネタのシャチ泳ぎも出ないからな。終わってる。

初心者はアルパカ本で軽く超えてけ。

870 ：デフォルトの名無しさん：2013/03/05(火) 22:11:52.65

Perlなんか使ってるからそういうことになる。
PHP厨を使っていればそんなところで躓かない。

871 ：デフォルトの名無しさん：2013/03/05(火) 22:14:47.66

PHP厨を使うってどういう事だ・・・使えんのかソレ・・・・

872 ：デフォルトの名無しさん：2013/03/06(水) 00:03:10.38

>>275
最後の式を使えばいいからvもTも後からでいい、というかaとtが決まれば決まる
必要なのはaとt

aが決まればtが決まる
もしくはtが決まればaが決まる

aは加速度、tは最高速度に達するまでの時間
それは相互に影響するからどっちか自分の好きな値を決めないと、自然には決定しない
とりあえず13秒で走るって言ってるから、0 > t > 13 でしょうね
たぶんtから決めるほうが楽かと

それからさっさと高校生用の物理の参考書買ってこい
コードに直せないのはセンスがないから諦めろ
努力する気があるなら中学生からの数学の問題を片っ端からコードに直せ

↑↑↑↑↑↑↑↑
こういうのが典型初心者の糞回答

873 ：デフォルトの名無しさん：2013/03/06(水) 00:09:22.44

誤爆か？

874 ：デフォルトの名無しさん：2013/03/06(水) 01:43:35.75

中途半端にUnicode対応したかと思えば、急に投げ出して作れもしないPerl6
だとか始めたラリー・ウォーレンにそんなこと言われたくないね

875 ：デフォルトの名無しさん：2013/03/06(水) 03:12:33.24

>>854
ありがとう。試してみます

876 ：デフォルトの名無しさん：2013/03/06(水) 03:18:07.65

>>875
試さなくていいからperlのオプションすら調べられないゴミは二度と来るな

877 ：デフォルトの名無しさん：2013/03/06(水) 03:58:03.41

>>876は煽りたいだけのゴミ厨基地害だろうけど、
オプションも確認せずに質問する>>875には本当に二度と来ないで欲しい。

878 ：デフォルトの名無しさん：2013/03/06(水) 08:54:57.24

>>875=本物の知恵遅れ

879 ：デフォルトの名無しさん：2013/03/06(水) 11:02:42.26

こういう低レベルな質問するやつがPerlだとか思わないでほしい

880 ：デフォルトの名無しさん：2013/03/06(水) 12:32:07.42

質問が低レベルだから答えない＆罵倒するだけなのか
自分が低レベルだから答えられないのか

881 ：デフォルトの名無しさん：2013/03/06(水) 15:46:50.83

オプションも見ずに質問とか低レベル以前の問題でしょ

882 ：デフォルトの名無しさん：2013/03/06(水) 23:53:45.11

まさか今さらPerl5に戻りたいなんて言うんじゃないだろうな？
一度俺たちを見捨てたんだ、二度、三度あってもおかしくはない。

883 ：デフォルトの名無しさん：2013/03/07(木) 05:50:56.60

臭い餌だのォ

884 ：デフォルトの名無しさん：2013/03/07(木) 16:06:45.32

質問です。

$line =~ /^(?:AAA(\d+))$/;

だと、最初の()がバッファに保存されず、$1=数字となりますが、
下記はどういった意味があるのでしょうか？

$line =~ /^(:?AAA(\d+))$/;

885 ：デフォルトの名無しさん：2013/03/07(木) 16:13:00.29

>>884
ここは正規表現スレじゃねーんだよゴミクズ
スレ違いも分からない池沼には無理

886 ：デフォルトの名無しさん：2013/03/07(木) 16:15:08.78

正規表現スレは、もはやアナルスレと化している

887 ：デフォルトの名無しさん：2013/03/07(木) 16:16:55.98

お前は何を言ってるんだ

888 ：デフォルトの名無しさん：2013/03/07(木) 16:19:12.56

>>884
正規表現の本はどれを読んだの？
そんなことも理解できない糞を輩出するような本は悪本としてブラックリストに入れたいからタイトルかISBNよろ。

まさか本すら調べてない屑人間じゃないよね。

889 ：デフォルトの名無しさん：2013/03/07(木) 17:27:22.03

>>884
そんなことすら自分で調べられないくせによくプログラムなんかやろうと思ったな
自分の力量も分からないほどの馬鹿は致命傷

890 ：デフォルトの名無しさん：2013/03/07(木) 17:43:21.51

>>884
/^(:?AAA(\d+))$/

^ と $ 行先頭から行末までマッチ。
:? コロンが有っても無くてもマッチ。
AAA "AAA"にマッチ。
\d+ 一文字以上の数字にマッチ。

"AAA7"や、":AAA０２３"などにマッチする。

http://perldoc.jp/docs/perl/5.12.1/perlre.pod
http://www.kt.rim.or.jp/~kbk/regex/regex.html#PERL

891 ：884：2013/03/07(木) 17:55:45.63

あれ？まだやってたんですか？
もうTwitterで回答もらってるので締め切ってます

892 ：デフォルトの名無しさん：2013/03/07(木) 20:13:38.90

質問させてください

てきとうな順番で数字の値が入った配列で、
すべてを順番に調べて行き、足してピッタリ１００となる組み合わせを調べたいのです
とにかく、できれば全部調べ終わる前に足して１００となる組み合わせを調べたいです

893 ：デフォルトの名無しさん：2013/03/07(木) 20:28:54.68

>>892
数学の問題だし馬鹿には無理

894 ：デフォルトの名無しさん：2013/03/07(木) 20:32:27.70

>>892
お前がやらなきゃいけないのは回線切ることであってそれを調べることではない。

895 ：892：2013/03/07(木) 20:33:26.17

いつものつまらない回答しかこないですね
せっかく屑ニートの相手をしてやってるんだから笑わせてください

896 ：892：2013/03/07(木) 20:35:48.87

う～ん、質問者が解答もらうために荒らしてると思ってたんだけど・・・
本当に荒らしが常駐してるんだな～、お前ら暇かｗ

あぁ、ちなみに、>>892は縦読みなｗ

897 ：892(本物)：2013/03/07(木) 20:36:03.16

>>895は偽物です
Twitterのほうで回答もらったのでもういいです

898 ：892(本物)：2013/03/07(木) 20:37:48.37

>>896も偽物です

899 ：デフォルトの名無しさん：2013/03/07(木) 20:40:33.79

荒らしも上手くたて読みになる部分を見つけるもんだな
いつも質問者のふりして荒らしてるのは>>896か

900 ：デフォルトの名無しさん：2013/03/07(木) 20:47:09.75

>>896
両方だと思うよ。
質問者が叩かれるたびに張り切って答える馬鹿が現れる傾向があるし。

901 ：892：2013/03/07(木) 20:49:39.32

荒らさなくても、分かる質問には一応普通に答えてんだけどな
荒らしてるヤツは、Perlにどんなトラウマ抱えて荒らしてんだｗｗｗ
結構長くいてるよなｗｗｗ

902 ：デフォルトの名無しさん：2013/03/07(木) 21:16:45.00

>>901
そうこういう俺凄いんだぜアピール欲求が強すぎる奴が出来る人たちの会話を排除してる
結果糞質問に答えるだけの例レベル糞スレに成り果てる、それが今

903 ：デフォルトの名無しさん：2013/03/07(木) 21:18:01.79

モダンPerlを推奨したいらしいが、みんなにダメ出しされて荒らしてるんだろ

904 ：デフォルトの名無しさん：2013/03/07(木) 21:24:10.07

お、私以外の回答者が居た。
もう面倒すぎるわ、コイツら。
1レス、いくらで荒らしてるんだよ。

905 ：デフォルトの名無しさん：2013/03/07(木) 22:02:20.24

>>904
はい馬鹿が釣れたｗ

池沼とゴミ質問者を釣るのは簡単だけど常駐してるアフォ回答者は耐性あるから釣れにくいｗ

906 ：デフォルトの名無しさん：2013/03/07(木) 22:07:31.10

お、おう。ﾜｹﾜｶﾗﾝ(AA略

907 ：デフォルトの名無しさん：2013/03/07(木) 22:24:38.27

いやそもそもまともな人ならこんな糞スレで質問はしない

908 ：デフォルトの名無しさん：2013/03/07(木) 23:52:17.10

×まともな人ならこんな糞スレで質問はしない
○まともな人を近づけないためにレッテル貼りで荒らしている（動機は不明）
レッテルの例：低レベル、糞スレ、池沼、屑人間、馬鹿

909 ：デフォルトの名無しさん：2013/03/08(金) 00:22:34.28

いや馬鹿は馬鹿でしょ
荒れたスレで素人丸出しな質問して、それに答える回答を丸呑みしてって
こんなことやる奴は頭のおかしい池沼しかいない、常識的に考えて

910 ：デフォルトの名無しさん：2013/03/08(金) 01:28:12.82

>>908
どこがどう低レベルじゃないのか説明してみろよ
オプションも見ずに質問するのが低レベルじゃないって？
機械使うのに説明書も読まずに使えないとかってのは小学生以下でしょ

911 ：デフォルトの名無しさん：2013/03/08(金) 06:11:13.79

だからって、いちいち罵倒するレスしなくていいだろ
ってか、どんな質問が来ても煽ってるじゃねーか
自覚ない所が痛すぎるんだよ、黙ってスルーしてるやハゲ

912 ：デフォルトの名無しさん：2013/03/08(金) 06:48:26.68

基地外荒らしは、よっぽどPerlに恨みがあるらしいな
陰湿な腐った奴だ
そのうち包丁持って繁華街で暴れるタイプだな

913 ：デフォルトの名無しさん：2013/03/08(金) 09:02:49.44

罵倒して、相手にラベルをせっせと貼って、自分を正当化しようとする。
技術も技量も他人とコミュニケーションを取る力さえなく、なけなしの自尊心で生きている。

自ら努力することも、学ぶこともない。
若くして「老害」。

そんなかわいそうな人達。

914 ：デフォルトの名無しさん：2013/03/08(金) 10:13:36.26

どんな環境でも数秒間CPU使用率100%にできる
Perlスクリプトってないっすよね

あったとしても書ける人がここにいるわけない(ｷﾘ

915 ：デフォルトの名無しさん：2013/03/08(金) 12:18:20.79

ここでの質問の半分以上は別所でヲチするためだけに投稿されたものだけどな。
マジレスかましてる香具師は大抵笑い者になってる。

916 ：デフォルトの名無しさん：2013/03/08(金) 12:30:11.20

マジレスかましてんじゃねーよ

917 ：デフォルトの名無しさん：2013/03/08(金) 12:46:32.21

一番自覚のないのは>>911

>>911がスレの低レベル化を謀ってる主犯各かも

918 ：デフォルトの名無しさん：2013/03/08(金) 12:52:24.57

>>917
お前も探偵ごっこかましてないで、笑われてる自覚もてよｗ

919 ：デフォルトの毛無しさん：2013/03/08(金) 13:04:54.91

精神病院から脱走してきたような>>918ひとりに笑われてるだけで自覚を持つ必要があるそうです。

920 ：デフォルトの名無しさん：2013/03/08(金) 13:07:18.08

>>918
それお前だけ
お前みたいな空気読めないちょっとPerlかじった程度の馬鹿一人が回答しまくるせいで
スレの雰囲気が悪くなって誰も寄り付かなくなる

921 ：デフォルトの名無しさん：2013/03/08(金) 13:13:48.96

>>919,920
もっと笑えるレスしろよ、その程度なら無理して書きこまんでいいわ

922 ：デフォルトの名無しさん：2013/03/08(金) 13:15:07.08

>>921
お前はもっと勉強してから来い。でないとウザいだけです

923 ：デフォルトの名無しさん：2013/03/08(金) 13:15:36.45

じゃ、俺がクソ質問を定義してやる。

1 googleで「perl」に加えてキーワード一つ追加すれば正解に到達できる質問例: >>849
2 perlに依存してないで高卒程度の知能があれば思いつく質問　例: >>817

これらはクソ質問だから思いっクソ罵倒する。回答してはいけない。

924 ：デフォルトの名無しさん：2013/03/08(金) 13:17:29.63

>>923
お前の定義なんぞクソほどの価値もないってのに

925 ：デフォルトの名無しさん：2013/03/08(金) 13:43:49.95

価値がないんじゃなくて分からないんだろ
豚に真珠とはよく言ったもんだ
昔からそういう人間って一定数いるんだろうなｗ

926 ：デフォルトの名無しさん：2013/03/08(金) 13:59:05.62

>>924
そういう質問にドヤ顔で答えたら思いっクソ罵倒してやる。
ほら意味あるだろ。

927 ：デフォルトの名無しさん：2013/03/08(金) 14:12:41.17

>>923
お前は、perlfaq4読んどけ。

928 ：デフォルトの名無しさん：2013/03/08(金) 14:22:38.69

おまえらつまらんことで争ってないで
カツカレーの話でもしようず

929 ：デフォルトの名無しさん：2013/03/08(金) 14:41:04.77

その話をしたければ自分からネタ投下しろハゲ

930 ：デフォルトの名無しさん：2013/03/08(金) 15:18:17.87

カツカレーうまいね（終）

931 ：デフォルトの名無しさん：2013/03/08(金) 15:24:35.39

ここで荒らしてるのは、perl?はぁ?何その時代遅れな言語ってバカにしてたPHP使いが、
Python使いから、おいおいPHPだってとっくの昔に化石だろ、perlもPHPも目糞鼻糞とコテンパンにされて以来ファビョってる奴。
そして今やPython使いが…

932 ：デフォルトの名無しさん：2013/03/08(金) 18:17:11.84

探偵ごっこで喜んでる生きてる価値のない奴がいるな
たとえば>>931とか

933 ：デフォルトの名無しさん：2013/03/08(金) 18:32:02.36

>>932
お前は死ぬ価値すらないだろｗ

934 ：デフォルトの名無しさん：2013/03/08(金) 19:45:33.55

>>933
どういう意味だよ

935 ：デフォルトの名無しさん：2013/03/08(金) 19:50:48.74

>>933
日本語崩壊してるぞ
お前日本人か？

936 ：デフォルトの名無しさん：2013/03/09(土) 00:31:11.39

ファイルの中身を配列に入れて改行を落とす時に
@a = <$in>;
chomp @a;

みたいにするけど、これを1行で書けないだろうか

937 ：デフォルトの名無しさん：2013/03/09(土) 00:37:46.27

お前みたいな馬鹿には一行で書いたら解らないだろ？

938 ：デフォルトの名無しさん：2013/03/09(土) 00:43:27.78

@a = <$in>; chomp @a;
基本的にPerlはフリーフォーマットだから一行に複数のステートメントを書いても構わない

939 ：デフォルトの名無しさん：2013/03/09(土) 01:11:46.16

初手から土下座てwww

940 ：デフォルトの名無しさん：2013/03/09(土) 02:06:55.71

chomp(@a = <$in>); で行けるみたいだけど。

941 ：デフォルトの名無しさん：2013/03/09(土) 04:06:00.24

perlのデバッグモードで変数が表示されない時があるのですが
どうしたらよいでしょうか

942 ：デフォルトの名無しさん：2013/03/09(土) 09:53:15.50

>>940が正解だな
でも、なんで上手く行くのかの機序が説明できない

代入文が何を値として持つのかよく知らない上に、
スカラーで評価されてるのかリストで評価されてるのかも見て判らない

943 ：デフォルトの名無しさん：2013/03/09(土) 10:12:49.83

>>942
$n = ($n = ($n = 1) + 1) + 1 ;
これが3になる
Perlは括弧内から処理するよ

944 ：デフォルトの名無しさん：2013/03/09(土) 10:16:31.79

代入文が返す値は代入後の値
ふつうにリストで評価されてる

945 ：デフォルトの名無しさん：2013/03/09(土) 10:49:59.02

>>942
代入演算子の左辺は配列変数だから、式がリストコンテキストで評価される。
右辺のダイヤモンド(山括弧)演算子もリストコンテキストで評価される。
chompの引数がリストだから、chompもリストコンテキストで処理される。

946 ：デフォルトの名無しさん：2013/03/09(土) 12:51:49.15

chomp がリストも扱える、ということ自体があまり知られてないんだよな

代入結果を引数にするのはいいんだけど、
それが値渡しなのか参照渡しなのかがはっきり見えない
実際にはみんな参照渡しで、代入結果というよりは、
最後に代入した変数そのものを渡していると見た方が分かり易い

947 ：デフォルトの名無しさん：2013/03/09(土) 14:01:05.84

×　ということ自体があまり知られてない
○　わたくしは馬鹿で無知なので全く知らない

948 ：デフォルトの名無しさん：2013/03/09(土) 14:06:06.52

$b = ($a = 1)++;

の後の$aと$bが何になってるか、ぱっと見て判るかどうか

949 ：デフォルトの名無しさん：2013/03/09(土) 14:06:37.91

Perlはchompのような
副作用をもたらす命令が多すぎ。

関数型言語の逆を言ってるな。

950 ：デフォルトの名無しさん：2013/03/09(土) 14:07:47.66

>>948
２

951 ：デフォルトの名無しさん：2013/03/09(土) 14:16:03.20

とりあえずテキスト処理できりゃいいんだよ
３分で出来る使い捨てスクリプトがパッと書けりゃいいの

952 ：デフォルトの名無しさん：2013/03/09(土) 14:17:15.10

Perlって戻り値がスカラなのかリストなのか
状況によって変わるから怖いんだよな。

953 ：デフォルトの名無しさん：2013/03/09(土) 14:17:21.09

普通に考えると、リストを受け取って、改行を外したリストを返す仕様にするよな
でもchompの戻り値はスカラー
改行を外したバージョンと元のバージョンと両方使うことは無いだろうという思想の元、
引数の方をいじる設計になっている

@a = chomp <$in>;
みたいに書ければいちばん素直なのに

954 ：デフォルトの名無しさん：2013/03/09(土) 14:20:13.94

while(<>){
　　chomp;
　　～～～
}

とかが想定した使い方なんじゃねーの
なら、戻り値は無いほうがいい
引数をいじったほうがｲｲ

955 ：デフォルトの名無しさん：2013/03/09(土) 14:24:27.94

$_ だけを相手にするならそうだけど、
ずっと $_ を持ってるのはいろいろ危険だから、
while (my $line = <>) {
　　chomp $line;

}
みたいになっていく訳で
なら、
while (<>) {
　　my $line = chomp;

}
と書いても手間は同じ

956 ：デフォルトの名無しさん：2013/03/09(土) 14:32:03.84

>>955
むしろ$line一個書かないで済むから
この場合は下のほうが楽になるな

957 ：デフォルトの名無しさん：2013/03/09(土) 14:40:27.60

元々を考えろ。chompの派生元は、chopだぞ？
my $v = 'ABC' ;
my $tail = chop $v ;
$tail は 'C'、$v は、 'AB'

派生したchompの挙動を変更して、切った後の変数を返すようにしたら
chopとの挙動が違いすぎる（それだったら0,1の現行の方がいい）。

chomp単体で（しかもwhile(<>){chomp}だけに関して）
考えると955のラインが良いとは思うけど、
ハッシュ時は？リスト時は？
my %hash2 = chomp %hash ;
とかすんの？

958 ：デフォルトの名無しさん：2013/03/09(土) 14:48:57.11

馬鹿発見ｗｗｗｗｗｗｗｗｗｗ

959 ：デフォルトの名無しさん：2013/03/09(土) 14:58:43.53

メモリが潤沢な今なら、
my %hash2 = chomp %hash ;
もありかと思うけど

昔の設計では有り得ん罠

960 ：デフォルトの名無しさん：2013/03/09(土) 15:00:26.44

イマイチ使い道がなさそうだけど

961 ：デフォルトの名無しさん：2013/03/09(土) 15:06:04.90

>イマイチ使い道がなさそうだけど
ハッシュのchompが？
それだったら現行で実装されてる事だけど？
If VARIABLE is a hash, it chomps the hash's values, but not its keys.

>my %hash2 = chomp %hash ;
の事だったら、ナンセンスな例として出してるんだから、
へったくれもないです。

962 ：デフォルトの名無しさん：2013/03/09(土) 15:13:24.67

あーきもいきもい

963 ：デフォルトの名無しさん：2013/03/09(土) 15:27:29.17

引数をいじる、というパターンだと

$str =~ s/\s//g;

とかもキモい
パターンにマッチするか見るだけですよと言われてたのに、
いつの間にか身ぐるみ剥がされてる

964 ：デフォルトの名無しさん：2013/03/09(土) 15:42:08.33

お前が馬鹿だからだろ

965 ：デフォルトの名無しさん：2013/03/09(土) 15:57:36.04

気持ち悪いコードを見せるな

966 ：デフォルトの名無しさん：2013/03/09(土) 16:31:30.70

あんまりこういうの見たことないのか
かなり定番の処理なんだが

967 ：デフォルトの名無しさん：2013/03/09(土) 16:38:10.93

糞コードのオンパレードPerl以外では
見ないコードだな。