トップページ⇒tech
1001コメント298KB

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

レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん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
0002デフォルトの名無しさん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/
0003デフォルトの名無しさん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
0004デフォルトの名無しさん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/
0005デフォルトの名無しさん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 でエンコードする必要があります。
0006デフォルトの名無しさん2012/11/25(日) 11:02:51.39
>>1 修正
www.perl.org/get.html
Download Latest Stable Source (5.16.2)
0007デフォルトの名無しさん2012/11/25(日) 11:26:27.03
>>5
このまどろっこしいのを1行で簡単に書けるといいね。
ついでに use strict; use warnings; もできるといいね。
0008デフォルトの名無しさん2012/11/25(日) 11:30:44.54
扱うデータがすべてcp932なのにスクリプトをutf8で書こうとしてるせいだ
0009デフォルトの名無しさん2012/11/25(日) 11:54:43.42
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

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

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

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
0010デフォルトの名無しさん2012/11/25(日) 12:55:16.17
>>7
今は use 5.12.0; って書けば
use strictの効果があるよ。

http://blog.perlassociation.org/2010/04/perl5-12-0.html
0011デフォルトの名無しさん2012/11/25(日) 14:05:45.50
>>10
だから何？
そういうことはTwitterでやろうね。
0012デフォルトの名無しさん2012/11/25(日) 14:58:49.04
BrainfuckでPerl組もうぜ〜
0013デフォルトの名無しさん2012/11/25(日) 15:28:26.81
>>11
断りますｗ
2ちゃんねるでもやりますよ。

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

俺はここから消えるつもりはないので、
あなたに残された手はそれだけです。
0014デフォルトの名無しさん2012/11/25(日) 15:39:33.85
>>11
>>11
0015デフォルトの名無しさん2012/11/25(日) 16:40:05.09
なるほど、ずっと荒らしてる基地害が>>13だったのか
まぁそんなに荒らしたいならこれからもここに書き込むといいよ
0016デフォルトの名無しさん2012/11/25(日) 17:48:40.67
荒らしてるのは>>13一人じゃないと思う。
0017デフォルトの名無しさん2012/11/25(日) 17:50:58.35
use encoding 'cp932'; # と書いてスクリプトもCP932で書いてみるテスト
0018デフォルトの名無しさん2012/11/26(月) 13:42:27.47
>13は荒らしじゃなくね？

単に頭がおかしいだけっぽい
0019デフォルトの名無しさん2012/11/27(火) 12:27:42.57
>>17
いける？
0020デフォルトの名無しさん2012/11/27(火) 21:51:04.72
何とかなるんじゃないか
0021デフォルトの名無しさん2012/11/30(金) 00:58:13.62
内部的にコード変換されてしまうなら思ってたのと違う
いろいろ問題あるっぽい
0022デフォルトの名無しさん2012/11/30(金) 01:11:54.35
その問題の一つも書いてないゴミの言ってることを信じろと？
ゴミはゴミらしくROMってろ
0023デフォルトの名無しさん2012/11/30(金) 11:07:04.80
質問です
ふんりゅうかと思って潰したら
例のにゅるにゅるしたものは出てこなくて肉片みたいのが出てきたんだけど
これは何ですか？
0024デフォルトの名無しさん2012/11/30(金) 18:06:54.82
配列の要素をランダムに並びかえるにはどうやればいいんですか？
モジュールを使わない方法で教えて
0025デフォルトの名無しさん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);で考えればわかる
0026デフォルトの名無しさん2012/11/30(金) 19:22:03.49
>>24
http://perldoc.jp/docs/perl/5.14.1/perlfaq4.pod#How32do32I32shuffle32an32array32randomly63
or Fisher-Yatesでググる。
0027デフォルトの名無しさん2012/11/30(金) 22:57:01.32
配列の要素と同じ数のユニークな乱数を作成し、乱数 => 要素番号のハッシュ
を作成する。そのハッシュのキーをソートしてキーに対応する要素番号順に
元の配列の要素を並べる。
0028デフォルトの名無しさん2012/11/30(金) 23:23:42.42
内部的にコード変換されてしまうのが問題。encodingを使わなければ解決。
0029242012/11/30(金) 23:47:27.51
ああ、Twitterで回答もらってるのでもういいですよ
0030デフォルトの名無しさん2012/12/01(土) 05:24:12.14
Twitterでもらったという回答も勉強のために見てみたいな。
URL貼って。
0031デフォルトの名無しさん2012/12/01(土) 15:02:12.84
@array = sort { (rand < 0.5) ? -1 : 1 } @array;

こんな感じです。変数名は変えてありますが。
0032デフォルトの名無しさん2012/12/01(土) 17:45:39.72
>>25
>ちなみに敢えて自己交換の確率を確保しておかないと偏ってランダムに
>ならない @a=(0,1);で考えればわかる
自己交換の確立の確保は int rand ($n+1) の +1 のことですか？
0033デフォルトの名無しさん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);
}
続く
0034デフォルトの名無しさん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);
}
0035デフォルトの名無しさん2012/12/02(日) 10:27:53.09
my @rand_sorted = ();
while(@array){
　　push @rand_sorted, splice(@array,rand(@array),1);
}
0036デフォルトの名無しさん2012/12/02(日) 21:13:50.58
@array = sort { rand <=> .5 } @array;

Twitterからの転載です。URLはごめんなさい。
0037デフォルトの名無しさん2012/12/02(日) 22:16:30.46
@array = sort { -.5 + rand } @array;
0038デフォルトの名無しさん2012/12/03(月) 08:50:31.86
http://ideone.com/Ni7koB
0039デフォルトの名無しさん2012/12/04(火) 01:32:51.98
push @rand_sorted, splice(@array,rand(@array),1) while @array;
0040デフォルトの名無しさん2012/12/04(火) 02:01:47.83
こうやってコードだけ書いていくゴミってコミュ障？
0041デフォルトの名無しさん2012/12/04(火) 07:55:57.05
うーん
どちらかというと何の役に立つ情報も書けない>>40みたいなのの方がコミュ障っぽい気がするな
0042デフォルトの名無しさん2012/12/04(火) 21:16:03.37
うーん
どちらかというと何の役に立つ情報も書けない>>41みたいなのの方がコミュ障っぽい気がするな
0043デフォルトの名無しさん2012/12/04(火) 21:43:09.60
うーん
鸚鵡返ししかできない>>42みたいなのの方がコミュ障っぽい気がするな
0044デフォルトの名無しさん2012/12/04(火) 23:48:10.97
うーん
どちらかというと何の役に立つ情報も書けない>>43みたいなのの方がコミュ障っぽい気がするな
0045デフォルトの名無しさん2012/12/05(水) 08:25:08.08
コミュ障でも問題なく使えるavailabilityの高い言語、それがPerl。
0046デフォルトの名無しさん2012/12/05(水) 18:11:55.93
>>44でも使えるPerlってすばらしいね
0047デフォルトの名無しさん2012/12/06(木) 23:34:37.74
sort{rand<=>rand}@_
0048デフォルトの名無しさん2012/12/08(土) 00:25:32.67
Perlが素晴らしいならPHPは神レベル
0049デフォルトの名無しさん2012/12/08(土) 01:28:30.83
むしろ申レベル
0050デフォルトの名無しさん2012/12/08(土) 14:35:49.20
Perlが人間だとするとPHPはチョン
0051デフォルトの名無しさん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>;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。
0052デフォルトの名無しさん2012/12/09(日) 02:59:44.77
Perlの起源は韓国！
0053デフォルトの名無しさん2012/12/09(日) 12:00:13.37
韓国でもPerlって使われてるの？本とか出版されているの？オライリーとかあるの？
0054デフォルトの名無しさん2012/12/09(日) 22:00:45.55
>>39はもっと評価されていい
検索すれば出てくるけど

>>53
韓国人はwhile暴走させて鯖ダウンさせてみんなに迷惑かけてそうだな
0055デフォルトの名無しさん2012/12/09(日) 23:51:26.77
コードだけ書き捨てていくゴミみたいなコミュ力の>>39をどう評価しろって？ｗ
ただのクズじゃんｗｗｗ
0056デフォルトの名無しさん2012/12/10(月) 00:10:21.76
質問でもなく回答でもない>>55のようなレスは今後スルーの方向で
0057デフォルトの名無しさん2012/12/10(月) 00:50:04.20
つまり>>56をスルーすればいいのかな？
0058デフォルトの名無しさん2012/12/10(月) 01:19:06.74
>>51はもっと評価してもいい>>5よりもシンプルで無理がない
0059デフォルトの名無しさん2012/12/10(月) 10:03:42.71
ほんとだ
ウジ虫の>>56を個別あぼーんしたらスレの見通しがよくなった
0060デフォルトの名無しさん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 ;
となっています。
0061デフォルトの名無しさん2012/12/10(月) 14:57:12.65
@datasが数字じゃねーよ！！　isn't numeric
チャック・ノリスだけが零除算できる！！！　division by zero
0062デフォルトの名無しさん2012/12/10(月) 15:00:46.73
チャック・ノリス自重ｗｗｗ
0063デフォルトの名無しさん2012/12/10(月) 15:05:48.69
>>61

レスありがとう
@datasにテキストファイルに数字入れてあるものを格納してるんだけどその方法が間違っているのか…それじゃできないのか
初心者なもんですんません
0064デフォルトの名無しさん2012/12/10(月) 15:06:00.47
>>60
エラーが出てるのにエラーが理解できないならプログラムは諦めろ
何のためのエラーメッセージだと思ってるんだ？
お前の頭の悪さは致命的
0065デフォルトの名無しさん2012/12/10(月) 15:32:49.83
0を0.00にする
0066デフォルトの名無しさん2012/12/10(月) 15:35:31.04
datasってのが英語的に間違ってるのがよくないと思うね
0067デフォルトの名無しさん2012/12/10(月) 15:57:40.34
>>66
もし「Sというデータ」の意図なら、当然sdataとすべきだな。
0068デフォルトの名無しさん2012/12/10(月) 17:32:43.32
>>63
> @datasにテキストファイルに数字入れてあるものを格納してるんだけど
その数字は半角でないとエラー出ると思うけどそのへんは大丈夫なのかな
> axestype.pmの１４８８行目は、
なんてのを見るとちょっと嫌な予感がするんだけど
0069デフォルトの名無しさん2012/12/10(月) 18:47:28.31
大丈夫だろ。
初心者を言い訳にしてるゴミ>>63のコードが動こうが動くまいが社会には何の影響もない。

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

両親の顔想像できる？
それ、ガキ一人まともに教育できないくせに中出ししまくったゴミ生産機だから。
0070デフォルトの名無しさん2012/12/10(月) 22:55:53.82
>>63
>@datasにテキストファイルに数字入れてあるものを格納してるんだけどその方法が間違っているのか…それじゃできないのか
open()でそのファイルをオープンして、ファイルの内容を読む必要がある
0071デフォルトの名無しさん2012/12/10(月) 23:00:58.00
また初心者名乗ってる馬鹿が来たのかｗ
一生言ってろｗｗｗそれがお似合いｗｗｗｗｗ
0072デフォルトの名無しさん2012/12/10(月) 23:36:03.85
何か知らんがものすごい叩きっぷりだな
んじゃ俺はどこぞでゴミコードばらまくとしますかね
0073デフォルトの名無しさん2012/12/10(月) 23:57:17.21
@datasに入れるのはファイル名ではなくて、数字そのものにしないといけない

はっきり言って、自分自身のニーズで組んでないでしょ？学校の宿題なんでしょ？
0074デフォルトの名無しさん2012/12/11(火) 00:54:05.44
そういえばスパコンでゼロ除算してハングさせたことがあったっけ
なつかしい思い出だ
0075デフォルトの名無しさん2012/12/11(火) 01:11:47.82
スーパーもコンビニもいまじゃあ、ほとんどPOSシステムだからなあ
0076デフォルトの名無しさん2012/12/11(火) 09:41:43.85
$min/$max > 0 ; って $min * $max > 0 ; と同じことだろ？
なぜ割り算に？

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

割っちゃいかんというんだから$maxに何が入ってるか表示させてみ
0077デフォルトの名無しさん2012/12/11(火) 23:02:52.37
１行目がよくわからないのですが。
0078デフォルトの名無しさん2012/12/12(水) 01:44:42.90
a/bの符号はabの符号に一致するやん
それがわからないなら中１からやり直そう
0079デフォルトの名無しさん2012/12/12(水) 17:28:23.88
メンバ変数がメソッドの外で宣言されているインサイドオブジェクトの継承ってどうやるの
0080デフォルトの名無しさん2012/12/12(水) 20:49:09.96
インサイドオブジェクトってなんぞ
0081デフォルトの名無しさん2012/12/12(水) 20:56:27.68
ゼロで割ると結果はゼロになるとかならないとかゆとりとか脱ゆとりとか
0082デフォルトの名無しさん2012/12/12(水) 21:01:28.08
インサイドアウトオブジェクト
0083デフォルトの名無しさん2012/12/12(水) 21:24:15.17
オフサイドオブジェクト
0084デフォルトの名無しさん2012/12/12(水) 22:34:37.31
baseでもparentでも使って、普通に継承できるっしょ。
0085デフォルトの名無しさん2012/12/14(金) 02:16:44.58
http://blog.livedoor.jp/dankogai/archives/50783623.html
0086デフォルトの名無しさん2012/12/14(金) 08:53:42.24
Perldocにあるよ。
http://perldoc.perl.org/perlobj.html#Inside-Out-objects
0087デフォルトの名無しさん2012/12/15(土) 04:25:57.71
>>85
ブログの宣伝キチガイ乙
0088デフォルトの名無しさん2012/12/15(土) 16:59:26.50
ゼロにはプラスのゼロとマイナスのゼロがあるとかないとか円周率は３とか符号のないぴったりゼロとか
0089デフォルトの名無しさん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.

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

ファイルに書いたプログラムはちゃんと実行できるのですが
何が悪いのでしょう？
0090デフォルトの名無しさん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)"
0091デフォルトの名無しさん2012/12/16(日) 15:39:22.67
>>90
Windowsってことはコマンドプロンプトだろ？

ならコマンドプロンプトに合わせた
クォートやエスケープをしないといかんよ。
0092デフォルトの名無しさん2012/12/16(日) 16:26:57.60
>>90
そういう基本の分かってないゴミはPerl以前の問題
ゴミが何で調子に乗ってPerlなんかに手を出したんだろうな
0093デフォルトの名無しさん2012/12/16(日) 17:38:54.32
>>92
今日も寂しそうだなお前
まあそのうちいいことも…ないわ
0094デフォルトの名無しさん2012/12/16(日) 18:53:41.14
自己紹介乙。
0095デフォルトの名無しさん2012/12/16(日) 19:58:10.48
wwwwwwwwwwwwwwwwwwwwww
0096デフォルトの名無しさん2012/12/16(日) 21:36:22.86
89番です
90番さん
ありがとうございました
書いていただいたやり方でちゃんと動きました

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

92番さん
すみません　LinuxやCygWinではちゃんと動いていたので焦って
しまいました
0097デフォルトの名無しさん2012/12/16(日) 22:04:32.40
レスアンカーのつけかた
半角の不等号を2個入力して、その直後に半角数字をかきます
自動的にあおくなります
0098デフォルトの名無しさん2012/12/16(日) 23:19:23.48
頭の悪い>>96には言うだけ無駄
まともな精神構造なら他のレスからそのくらい推察できる
0099デフォルトの名無しさん2012/12/17(月) 01:42:18.72
"シェル" も知らずにLinuxやCygWin使ってたとするとむしろおどろき
どういういきさつでPerlを使うようになったのか興味しんしん
0100デフォルトの名無しさん2012/12/17(月) 13:46:28.20
モジュールとか他人が作ったものを使うと特許や著作権とか言われそうだから
自分で全部作った方が安心だからモジュールは使わない
0101デフォルトの名無しさん2012/12/17(月) 14:15:01.45
OSから自作か
スゲェ御仁だ
是非ともお師様と呼ばせてくんしゃい
0102デフォルトの名無しさん2012/12/17(月) 15:28:15.22
>>101
あんたは知らんのだろうが、実務の世界では>>100のような状況はいくらでもある。
0103デフォルトの名無しさん2012/12/17(月) 16:05:48.19
個人用にひっそり使うのならともかく、業務用としてコードを販売したり
サービス提供に絡んだりする時は、権利関係きちんとしないと危ないんだろうな
0104デフォルトの名無しさん2012/12/17(月) 22:14:35.84
まったくそのとおりのBSD。
0105デフォルトの名無しさん2012/12/17(月) 22:17:03.82
情報管理部門にごっそりlibディレクトリを消されるケースだってあるしね。
0106デフォルトの名無しさん2012/12/17(月) 22:23:02.02
アホかこいつら
CPAN使わないなんてperl使わないのと同義、
そんなクソいシステムは捨てろ
それが出来ない開発者はなーんにも考えてないただのｳﾞｧｶだ
0107デフォルトの名無しさん2012/12/18(火) 00:39:12.81
はいはい。アマチュア乙。学生乙。就職先決まったの？
0108デフォルトの名無しさん2012/12/18(火) 01:05:24.52
そもそもPerl使ってるのなんて>>106みたいなヴァカばっかだから仕方がない


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


PHPにしとけ
0109デフォルトの名無しさん2012/12/18(火) 01:26:11.39
まあ３ちゃん企業と大企業・公共団体を同列で論じるのも酷な話だがな
0110デフォルトの名無しさん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);

例えばこういうプログラムでも特許があるか調べながら作るべきだ
0111デフォルトの名無しさん2012/12/18(火) 13:19:32.78
ヴァカはすっこんでろよ
ジョークでもそれ面白いつもりかよ
本当のコミュ小だオメーは
0112デフォルトの名無しさん2012/12/18(火) 15:50:46.24
カリカリすんなよ
0113デフォルトの名無しさん2012/12/18(火) 22:30:08.20
にゃー
0114デフォルトの名無しさん2012/12/18(火) 22:31:56.73
CGIとPerlの区別がつかないひともCPANとPerlの区別がつなかいひとも
軽くスルーの方向でお願いします
0115デフォルトの名無しさん2012/12/18(火) 22:38:37.43
CGIはPerlの用途の一つだけど
CPANは違うだろ
ちょっとそこの致傷は口夫妻で黙って棺桶にでも入ってろよ
ジャマだジャマ
0116デフォルトの名無しさん2012/12/18(火) 22:54:27.73
Perl6って結局、失敗なの？
0117デフォルトの名無しさん2012/12/18(火) 22:55:29.32
お前の頭がしっピアなのは分かった
0118デフォルトの名無しさん2012/12/18(火) 23:51:57.40
履歴書書いたか？早く就職して親御さんを安心させたほうがいい。間違いない。
0119デフォルトの名無しさん2012/12/19(水) 00:06:42.19
退職願書いたか？早く退職して親御さんを安心させたほうがいい。間違いない。
0120デフォルトの名無しさん2012/12/19(水) 00:08:26.27
遺書書いたか？早く他界して親御さんを安心させたほうがいい。間違いない。
0121デフォルトの名無しさん2012/12/19(水) 00:30:03.48
ム板屈指の糞スレ
0122デフォルトの名無しさん2012/12/19(水) 00:33:50.39
>>89です
>>97番さん
なるほど　こう書けばいいんですね

>>98番さん
無駄じゃないです　ありがとうございました
0123デフォルトの名無しさん2012/12/19(水) 00:35:45.45
>>122
二度と来るな基地害。
0124デフォルトの名無しさん2012/12/19(水) 00:36:03.09
>>89です
>>99番さん
LinuxやCygWinのシェルは知ってました
その前にNEWSやSun OSからシェル使ってました
Perlもそのころからですね
どういういきさつで使うようになったかは覚えてません
大量のテキストデータを処理するのに
すごく便利だと感動した記憶は残っています
でも　もっぱらスクリプトファイルを書いてだったので
ワンライナーはほとんど経験ありません

Windows8は先月からやっと本格的に使い出したばかりです
0125デフォルトの名無しさん2012/12/19(水) 00:41:30.03
とうとうブログと2chの区別もつかなくなったか

これが自分一人でできないくせにプログラミングに手を出した挙げ句赤の他人にタダで情報よこせと乞食みたいな真似をした馬鹿の末路なんだろうな
0126デフォルトの名無しさん2012/12/19(水) 00:48:04.24
>>125
乞食に失礼
乞食は>>124と違って
生き延びるために頑張ってんだよ
0127デフォルトの名無しさん2012/12/19(水) 01:20:27.31
>>89さん、こんばんは。
ということは Windows は初めてなわけですね？
Windows のコマンドプロンプトは MS-DOS との互換性を考慮してあるので
UN*X とは違うことも多々あります。正直言って UN*X のように便利では
ありません。だからスクリプトに書いて実行したほうがいいですよ。
0128デフォルトの名無しさん2012/12/19(水) 01:31:50.87
>>119
俺が辞めたからって、お前が就職できるかどうかは別問題だろ？
0129デフォルトの名無しさん2012/12/19(水) 03:03:58.99
低級荒らしは荒らしワード使うからNGに突っ込めばいいけど、
>>89みたいに質問者のふりした荒らしはNGに突っ込むのが難しいから一番タチが悪い。
>>89みたいな荒らし方できる奴は本当に才能すら感じるわ。
不特定多数の他人に嫌な思いをさせることに限っては天才だな。
0130デフォルトの名無しさん2012/12/19(水) 03:32:34.21
お前ら>89に釣られすぎｗｗｗｗ
0131デフォルトの名無しさん2012/12/19(水) 10:02:46.67
>>125って、専門学校の講師とかかな？
専門学校の講師って詐欺師も良いところw
0132デフォルトの名無しさん2012/12/19(水) 10:31:45.18
>>89
perl -e "print \"Hello World\n\""

Unixツールを突っ込んで、癖と常にCP932でエンコードすることを覚えておけば、
それほど違いないと思うけどな。バッチスクリプトは奇怪だけど。
0133デフォルトの名無しさん2012/12/19(水) 12:21:52.22
PerlスレでUnixツールの話をしてるスレ違いのほうが奇怪
0134デフォルトの名無しさん2012/12/19(水) 16:51:14.09
スレ違いの話をし続けるってことは
>>89とグルになってる荒らしなんじゃね？
0135デフォルトの名無しさん2012/12/19(水) 18:06:27.79
何この殺伐さ加減。
またアホどもに張り付かれてるな。
0136デフォルトの名無しさん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";'
が動かなくて焦ってしまいました
0137デフォルトの名無しさん2012/12/20(木) 01:01:53.20
突っ込みどころを完備満載した
美しいまでの釣りレスｗｗｗ
0138デフォルトの名無しさん2012/12/20(木) 01:04:47.54
>>89番です
>>129番さん
すみません
何かいけないことを書いたでしょうか
荒らしているつもりはないんですが
言葉遣いが悪いというのであれば気をつけます
0139デフォルトの名無しさん2012/12/20(木) 01:05:11.52
>>136は何でこのスレを荒らそうと思ったんだろうな
0140デフォルトの名無しさん2012/12/20(木) 01:06:47.86
それなら
「Learning Perl on Win32 Systems」「初めてのPerl Win32システム」
がいいですよ。

あるいはWindows版のbashを入れるとか。
0141デフォルトの名無しさん2012/12/20(木) 01:09:30.75
windowsを捨てろ
以上

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

windows番のbashとかはクソだからまどわさられないように
0142デフォルトの名無しさん2012/12/20(木) 01:18:12.99
あるいはWindows版のtcshを入れるとか。
0143デフォルトの名無しさん2012/12/20(木) 01:27:25.69
>>89さん
荒らしだの何だの言ってるレスは頭がおかしいひとなので無視したほうがいい
ですよ。あとWindows8ならばPowerShellも使えると思います。
0144デフォルトの名無しさん2012/12/20(木) 01:32:10.62
スレ違いの話をしてる基地害のほうがどう見ても異常。

それとも無視していいってことはスレ違いの話題OKになった？
0145デフォルトの名無しさん2012/12/20(木) 01:44:09.09
PerlはUNIX上で誕生したのだけれど、いまではWindowsで使われることのほうが
多いです。CPANはアプリなのでなくともPerlは動きますが、OSがなくてはPerl
は動きません。ワンライナーでのクォートについての質問はスレ違いではあり
ません。Windowsの回答ができないならばそのレスについてはROMしててください。
0146デフォルトの名無しさん2012/12/20(木) 02:52:52.85
クズの典型ワラタｗ

＞いまではWindowsで使われることのほうが多いです。
どこで統計取ったんだろうなｗ
もし感覚で言ってるならクズすぎるｗ
0147デフォルトの名無しさん2012/12/20(木) 03:04:40.84
OSがないとPerlが動かないとか言われても、そうだね、としか言いようがないし、それがスレ違いの免罪符になるわけでもなし。
0148デフォルトの名無しさん2012/12/20(木) 03:38:00.62
>>143=荒らしを助長してるゴミ
0149デフォルトの名無しさん2012/12/20(木) 04:44:32.18
>148
氏ね
勘違いしてないか？
低脳しかいないスレでも質問してもらえることに感謝しろ
例え釣りでも相手にしてもらえるだけありがたいと思え

>143
お前も何で上から目線なの？
「思います」とか断言できない状態でレスつけるな
質問者の環境で確実に動く方法を提示しろ
0150デフォルトの名無しさん2012/12/20(木) 11:10:23.79
「氏ね」は自殺教唆
しかも刑事事件の範囲
0151デフォルトの名無しさん2012/12/20(木) 16:45:02.84
浦島太郎にアドバイスすると、世の中が代りすぎたからJScriptなりnode.jsを使え
0152デフォルトの名無しさん2012/12/20(木) 17:43:51.27
>>151は本当にヴァカなんだろうな。
0153デフォルトの名無しさん2012/12/20(木) 18:55:07.80
perlって一度商標登録されたってマジ？
0154デフォルトの名無しさん2012/12/20(木) 22:53:59.16
分散並列処理フレームワークありませんか？
0155デフォルトの名無しさん2012/12/20(木) 23:43:46.42
>>153
まじだけどだんこがいがだんこそしした
0156デフォルトの名無しさん2012/12/21(金) 00:15:04.33
>>154
ない。
PerlはCなんかより負荷がかかったり処理速度が遅くてもいいから開発効率を上げるという目的のために生み出された。
だから分散並列処理はできないし、そもそも処理速度を上げようって時点でPerlの開発理念から外れてる。
そりゃコードは無駄な処理がないように効率の処理がいいようには書くけど、それはコード以下での世界。
JavaScriptで3DMMORPGを作りたいんです、って言ってるようなもん。
どうしても欲しかったら自分で作るしかない。























ってレスしたらこのゴミは信用するのかね？ｗ
0157デフォルトの名無しさん2012/12/21(金) 01:00:16.19
>>156
お前がゴミじゃないなら信じてもいいけど
どうやらゴミっぽいねｗ
0158デフォルトの名無しさん2012/12/21(金) 01:01:54.54
>>157
　　　　　　　　　　 ＿＿＿_
　 .ｎi 7　　　 　 ／ノ　　　ヽ＼ 　　壁に向かってしゃべってろゴミ
l^l | | ｌ ,/) 　 ／ ／ﾟヽ　 ／ﾟヾ＼　　　　　 .ｎ
', U ! ﾚ' / ／　　　⌒　　　⌒　　＼　　 l^l.| | /）
/　　　 〈　|　　（＿＿__人＿＿）　　| 　 | U ﾚ'/／)
　　　　　ヽ＼　　　　|lr┬-l|　　　／　　ﾉ　　　 ／
　／´￣￣ノ　　　　ﾞ=ニ二"　　　＼ｒニ 　　　　|
0159デフォルトの名無しさん2012/12/21(金) 01:08:12.67
>>154=>>157=ゴミ
0160　　　　 たすけて〜　燃やされる〜〜〜　(>>158)2012/12/21(金) 01:08:55.83
　　　　　　　　．;　　"．;"．．;．;"．;": 　　　　　．．;．;　　　　　ボォォォォ　　　．
　　　　　;"．;"　　从人　　从从从从　　;"．;";"．;"从";从ゝ;"
　　　　．;"．;":　＿．从从;．;从从．;"从从．;":从从．;"．;;:从从从　　　;"．;"
．;":　从从从　:　．．;"．从;;:　　　　　　　　从　　　　　　　　　　从　　　．;．;"．;
　．;"．;;:　　　　从 ノノ:;"．;":　．．从;．;"．;;:　．;";　　":　;";"　　．;"从　．;"．;
　．;"　　　从　从;　"　从从从从从从从从　　从从从．;"人ｗ　:"　;从　从;"
　　;"．;"　从"．．　　;;:．;　从　从;"．;　从　　　．;．从_ 　　;"．;"　　　从从
　　　　;ソ;"ノ　　;"．;"　　从从　　从从从　　从　　　　　　　　　从从从
　　从;;:　人　　;:从从从;"．;":　　　;"．;":从．　从　！从
　　　　从;:　　;"．;":　．．;"．;;:　　从从| 人　　　从从　　　　从;"．从从 "．　　
　　　　　　　|从从从　．;"从 从ノし　| 　　　从　从　　　　..从从|　　　　 　.|
　　　　从　　:从;"从从从;";" | 从从从　　从从从　从;．〃"; ー从;从:;从;:从
　　　从从从．;"．从　　．;从从　　．;":．;　从从　　　　　;"．;"　　　　　　从从
0161デフォルトの名無しさん2012/12/21(金) 01:57:56.76
>>156
並列分散処理でググるとhadoopとの連携やmapreduceの話ばかり出てくるな

超古代文明で、perlによってピラミッドが作られていた可能性は否定できないけれど、
これまでの歴史上、凡そ、unixが出来て以来、perlで3DMMOが作られた例なんてあるの?
mozillaがemscripttenでブラウザ上にFPSを作るぐらいなんだし、
まだまだ、jsにドル箱をぶっこまれて進化する可能性の方が高いよ
0162デフォルトの名無しさん2012/12/21(金) 02:18:32.74
技術者にとって技術そのものが無くなることは職と雇用、
これまでに蓄積した経験の多くを失うに等しいんだし、
飯の種になる方へ人口が流動するのは、当然のことだよね？
安定した技術基盤の1つがjavaで、その地位が揺らぐことは、もはや在りえ無いだろう。
その座にjsが昇格してしまったし、君らは、それを阻止できなかった。
0163デフォルトの名無しさん2012/12/21(金) 03:11:39.41
>>161
お前それリアルで誰かに言ってみろよ
基地害扱いされるから
0164デフォルトの名無しさん2012/12/21(金) 03:48:35.18
たまにはオカルト板を見てみろよ．俺なんて、ずっとマシな方だから
グリーのロゴが六角形なことを話題に挙げりゃ、
あいつらフリーメーソンがどうこう喰いつくはずだぞ
0165デフォルトの名無しさん2012/12/21(金) 03:50:50.98
なんでそんな板みてるん？
なんで詳しいん？
興味ないし、全く知らないんだけど。
0166デフォルトの名無しさん2012/12/21(金) 03:59:24.99
知らなくて良いし、知らない方が幸せだよ
真理の1つは、世の中、金が動く方に出来ていて、
その金はイルミナティのような闇の組織が実権を握っているってことだよ
千円札の富士山を透かして御覧。ピラミッドに目が浮かんでくるから
0167デフォルトの名無しさん2012/12/21(金) 07:26:47.11
>>156
耄碌爺が何を言っても誰も聞いてないから安心しろ
0168デフォルトの名無しさん2012/12/21(金) 11:20:00.89
何を言っても誰にも聞いてもらえなかった>>167の実体験か。
やっぱり実際に経験したことのある人が言うと真実味があるね。
0169デフォルトの名無しさん2012/12/21(金) 20:35:16.28
>>168
氏ねよゴミが
ゴミ早く氏ね
0170デフォルトの名無しさん2012/12/21(金) 21:25:12.82
>>169
お前が市ねゴミウジ虫
0171デフォルトの名無しさん2012/12/21(金) 21:43:01.32
>>170=池沼

氏ね
0172デフォルトの名無しさん2012/12/21(金) 21:46:24.77
うるさいゴミ
0173デフォルトの名無しさん2012/12/22(土) 00:46:18.94
初心者を育てるのがPHP､初心者を袋叩きにして人格否定までするのがPerl
0174デフォルトの名無しさん2012/12/22(土) 01:37:51.68
というか、入門には、ダンコガイですらjs勧めてただろ
perl独特の記法なんてバグを誘発するだけで不要。
少し前まで、cのポインタですら叩かれていたのに。
何れはjsもperlと同じ運命を辿るよ。バッドノウハウ多過ぎだし
とはいえ、今日日の計算機事情を考えるとjsがベター。
0175デフォルトの名無しさん2012/12/22(土) 02:14:31.16
while(<>){print "バグを誘発するってよ！"}
0176デフォルトの名無しさん2012/12/22(土) 03:37:19.39
断固害
0177デフォルトの名無しさん2012/12/22(土) 05:02:11.70
アナルにガチムチで角刈りのアニキのバキバキに勃起したチムポを突っ込まれてケツの穴を締めろと言われたから締めたらそのままガンガン掘られて最後は直腸の奥に熱くて黄色い濃いザーメンを出されてフィニッシュ
0178デフォルトの名無しさん2012/12/22(土) 15:10:52.22
Windowsを使いこなす庶民的なだんこがいを妄想中。。。
0179デフォルトの名無しさん2012/12/26(水) 11:34:56.26
po
0180デフォルトの名無しさん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();

お手数おかけしますが、よろしくお願いします。
0181デフォルトの名無しさん2013/01/06(日) 17:04:14.11
>>180
いくつか方法があるけど

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

みたいにして変数も関数経由がおすすめかな。
0182デフォルトの名無しさん2013/01/06(日) 17:06:06.38
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
0183デフォルトの名無しさん2013/01/06(日) 18:08:02.36
>>181
回答ありがとうございます。

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

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

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

お手数おかけしますが、よろしくお願いします。
0184デフォルトの名無しさん2013/01/06(日) 18:12:53.33
>>181
回答ありがとうございます。

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

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

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

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


↑キモ過ぎｗｗｗｗｗ
0185デフォルトの名無しさん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
0186デフォルトの名無しさん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}};
0187デフォルトの名無しさん2013/01/06(日) 19:09:27.88
>>184
B を経由して、の意味が良く分からん。
もうちょい本当にやりたいこと書いた方が回答つきやすいんじゃない？

>>185
PadWalker 使えばできそうたけどどっちかっていうとデバッグ向けモジュール
0188デフォルトの名無しさん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は文字列として解釈されてないので
しょうか？
0189デフォルトの名無しさん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を取得したい

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

わかり難くて申し訳ないです。
よろしくお願いします。
0190デフォルトの名無しさん2013/01/06(日) 20:03:23.66
なんでそんな重くなるようなことしてんの？
単純にバイナリのまま探せばいいじゃない。
0191デフォルトの名無しさん2013/01/06(日) 20:27:48.35
なんでそんな重くなるようなことしてんの？
単純にバイナリのまま探せばいいじゃない。
0192デフォルトの名無しさん2013/01/06(日) 22:08:13.75
なんでそんな重くなるようなことしてんの？
単純にバイナリのまま探せばいいじゃない。
0193デフォルトの名無しさん2013/01/06(日) 22:56:58.60
なんでそんな重くなるようなことしてんの？
単純にバイナリのまま探せばいいじゃない。
0194デフォルトの名無しさん2013/01/06(日) 23:02:36.90
いつもの方連投しないでください
0195191-1932013/01/06(日) 23:03:30.12
ごめんなさい
0196デフォルトの名無しさん2013/01/06(日) 23:05:44.08
read(IN,$buf,$size);
my $pos = index($buf,"\xff\xff\xff\xff\xff");

単純にバイナリの意味が分からないに一票。
0197デフォルトの名無しさん2013/01/06(日) 23:08:52.34
read(IN,$buf,$size);
my $pos = index($buf,"\xff\xff\xff\xff\xff");

単純にバイナリの意味が分からないに一票。
0198デフォルトの名無しさん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を取得したい
0199デフォルトの名無しさん2013/01/07(月) 00:30:21.99
>>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を取得したい
0200デフォルトの名無しさん2013/01/07(月) 13:37:45.73
>>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を取得したい
0201デフォルトの名無しさん2013/01/07(月) 23:56:19.92
>>198 - 200
回答ありがとうございます。
間で、no strict 'refs';を挿んで
使う方法があるんですね。勉強になりました。

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

回答ありがとうございました。
0202デフォルトの名無しさん2013/01/08(火) 00:27:47.81
>>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を取得したい
0203デフォルトの名無しさん2013/01/08(火) 01:10:24.28
>>190
>>189の頭が根本的に悪いからだよ。
0204デフォルトの名無しさん2013/01/08(火) 03:22:51.90
>>201
＞メリットが薄れてしまう
それでもここの回答者たちが低能な情報乞食のお前に回答するメリットよりはるかに大きいからいいんじゃない？
メリットがどうのと抜かす前に身の程を知れ屑が。
0205デフォルトの名無しさん2013/01/08(火) 05:37:33.08
東方みたいなカッコイイゲームってパールで作れますか？
作れるなら作り方よろ＾＾
0206デフォルトの名無しさん2013/01/08(火) 05:48:40.97
>>205
このサイト行って二度と戻ってくるな
ttp://dixq.net/rp/
0207デフォルトの名無しさん2013/01/08(火) 11:47:49.07
昨日延々と質問してた馬鹿はどこいった
からかってもマジレス返してくるから別所でヲチってて面白かったんだが
0208デフォルトの名無しさん2013/01/08(火) 12:33:58.49
>>206スレチうざ
0209デフォルトの名無しさん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でもできるのでしょうか。

よろしくお願いします。
0210デフォルトの名無しさん2013/01/08(火) 15:12:11.83
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でもできるのでしょうか。

よろしくお願いします。
0211デフォルトの名無しさん2013/01/08(火) 15:17:48.38
ループ開始
読み込む
区切り文字で分割して配列に格納、ゴミ処理
計算する
書き出す
ループ終わり

ファイル操作とかでggrks
何がわからないのかわからない
0212デフォルトの名無しさん2013/01/08(火) 15:22:39.19
連レス失礼しました

>>211
ぐぐってもよく分からなかったのです。
>ループ開始
>読み込む
>区切り文字で分割して配列に格納、ゴミ処理
のところ、詳しく教えていただけませんか。
0213デフォルトの名無しさん2013/01/08(火) 16:09:07.81
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でもできるのでしょうか。

よろしくお願いしま
0214デフォルトの名無しさん2013/01/08(火) 16:10:02.39
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でもできるのでしょうか。

よろしくお願いしま
0215デフォルトの名無しさん2013/01/08(火) 16:26:26.05
>>212
じゃあお前の頭では無理
0216デフォルトの名無しさん2013/01/08(火) 16:29:09.05
>>215
ありがとうございました。
0217デフォルトの名無しさん2013/01/08(火) 16:45:52.31
オライリーの「初めてのPerl」をしっかり読み込みましょう
0218デフォルトの名無しさん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で足掻いてます
0219デフォルトの名無しさん2013/01/08(火) 17:25:06.36
正確に言うとphpなんですがpreg系の正規表現置換で、
バックスラッシュ以外の一文字っていう正規表現がわかりません。
/[^\\]/
かなと思ったのですが[]が閉じてないと言われてしまいます。
/[^\]/でも同様でした。
文字列を指定した文字で、分割したくて、エスケープ処理も使いたいってことなんですが、
1:2\::3
↑この文字列を1,2:,3に分割したいってことで\が前にない:で分割ってのをしたいんです。
よろしくお願いします
0220デフォルトの名無しさん2013/01/08(火) 18:21:07.29
>>218
Cent6って何？
妙なものに付属してたPerlなんか使ってるからそういうことになる。
0221デフォルトの名無しさん2013/01/08(火) 18:23:12.98
>>218
OSをシャットダウンすればそれも道連れで終了されるよ＾＾分かったかゴミ
0222デフォルトの名無しさん2013/01/08(火) 18:57:18.81
ああああああああああああああああああああああ
0223デフォルトの名無しさん2013/01/08(火) 19:09:58.61
>>221は煽りたいだけだろうけど、実際問題それが解答だと思う。
osの再起動かければ消えないプロセスはないし、こんなところで質問してる>>218みたいな基地害のシステムが頻繁に再起動したところで誰も困らない。
>>218自身が面倒ってだけでしょ。
面倒だと感じるたびに、能もないくせにプログラミングに手を出したことを猛省すればいい。
0224デフォルトの名無しさん2013/01/08(火) 20:00:01.06
Cent6も知らないカスが喚いておるわ
0225デフォルトの名無しさん2013/01/08(火) 20:02:29.01
いるわｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0226デフォルトの名無しさん2013/01/08(火) 20:04:28.91
>>219
>かなと思ったのですが[]が閉じてないと言われてしまいます。
なんとなく、\が]に掛かっているんだろうなとエスパー
cpan辺りの正規表現やtrapとかいったドキュメントでも漁れ
0227デフォルトの名無しさん2013/01/08(火) 20:07:32.41
>かなと思ったのですが[]が閉じてないと言われてしまいます。
なんとなく、\が]に掛かっているんだろうなとエスパー
cpan辺りの正規表現やtrapとかいったドキュメントでも漁れ

ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0228デフォルトの名無しさん2013/01/08(火) 20:08:26.94
perlの糞ノウハウなんて忘れるもんだよ
0229デフォルトの名無しさん2013/01/08(火) 20:18:23.14
管理者やアドミンがperlなんかでバッチ処理する神経がわからない
0230デフォルトの名無しさん2013/01/08(火) 20:24:46.14
キチガイはするんだよ
0231デフォルトの名無しさん2013/01/08(火) 20:48:21.91
$test{'www'}="test1";
文字列の場合は$test{'www'}のように連想配列を使って
wwwに対応した文字列を取り出せるけど
これを文字列ではなく配列に対応させるにはどうしたらいいんですか？

if($str eq "www"){
@use_hairetu = @www_no_hairetu;
}
とするしかないんでしょうか？
0232デフォルトの名無しさん2013/01/08(火) 20:54:42.14
参照を入れればいいんじゃね
0233デフォルトの名無しさん2013/01/08(火) 20:57:06.55
>>231
すればいいだろウザいよお前。
0234デフォルトの名無しさん2013/01/08(火) 21:05:01.61
>>232
参照を入れるとは？
詳しく
0235デフォルトの名無しさん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
0236デフォルトの名無しさん2013/01/08(火) 21:15:41.20
>>234
連想配列のキーを抽象化して単独の配列にしたものを入れるんだよ。
そうすればあとは自動で処理される。
詳しくはここでも読め。
ttp://dixq.net/rp/
0237デフォルトの名無しさん2013/01/08(火) 21:20:55.07
>>234
そんなことも知らずにPerlやってんの？

本物のキチガイか？

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

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

そのゴミみたいな脳でそれが理解できるか？
0238デフォルトの名無しさん2013/01/08(火) 21:27:07.17
キチガイｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0239デフォルトの名無しさん2013/01/08(火) 21:38:25.01
東方って結局何？
たまに「東方厨」とかって単語を見かけるんだけど実体が分からない
0240デフォルトの名無しさん2013/01/08(火) 21:50:36.70
>>237
このスレで、そんなレスして楽しいかい？
0241デフォルトの名無しさん2013/01/08(火) 22:02:31.11
>>239
東方プロジェクトってヲタ集団のサークルがあるんだよ
0242デフォルトの名無しさん2013/01/08(火) 22:03:52.75
>>240
Perl以外に友達がいない田舎猿なんだからほっとけよ
0243デフォルトの名無しさん2013/01/08(火) 22:05:06.72
オタクｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0244デフォルトの名無しさん2013/01/08(火) 22:07:24.76
>>241
集団じゃないよ一人だよ
0245デフォルトの名無しさん2013/01/08(火) 22:07:30.72
>>240
なぜ、楽しいかどうかを基準にしたんだい？
0246デフォルトの名無しさん2013/01/08(火) 22:09:09.57
東方Projectってサークル名じゃないぞ。
上海アリス歌劇団ってサークルの作ってる作品をまとめて東方Projectという。
0247デフォルトの名無しさん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
0248デフォルトの名無しさん2013/01/08(火) 22:23:52.61
キモオタｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0249デフォルトの名無しさん2013/01/08(火) 22:42:31.35
で？Cent6って何？
東方と関係あんの？
0250デフォルトの名無しさん2013/01/08(火) 22:44:45.39
東方厨ファビョるｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0251デフォルトの名無しさん2013/01/08(火) 22:53:40.23
キチガイのすくつになったなここも
晴れてクソスレの仲間入りだ
泣けよ喜べよ
0252デフォルトの名無しさん2013/01/08(火) 23:00:32.25
>>251
Perl自体がオワコンなのに何言ってんだか
0253デフォルトの名無しさん2013/01/08(火) 23:08:32.10
これからはＰＨＰの時代！
02542062013/01/08(火) 23:13:34.77
東方のアンチも厨も両方ここから消えろ
ガチで東方似のゲーム作りたいなら前に紹介したサイトに行って戻ってくるな
0255デフォルトの名無しさん2013/01/08(火) 23:23:01.08
>>254
うるさいゴミ
ゴミのお前に指図される筋合いはない
自治厨か？キメェｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0256デフォルトの名無しさん2013/01/08(火) 23:26:34.55
東方ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0257デフォルトの名無しさん2013/01/09(水) 00:00:47.29
>>254
お前の紹介したサイトはスレチだったろボケ、スレタイ1億回声に出して読みなおせ。
0258デフォルトの名無しさん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
0259デフォルトの名無しさん2013/01/09(水) 00:26:45.09
>>258←自己顕示欲を満たしたいだけのヴァカが入りましたｗ
0260デフォルトの名無しさん2013/01/09(水) 00:35:11.67
>>259
それ以下のﾐｼﾞﾝｺなみのヴァーーーーーーーーーーーーーーーーーカ（）が入りましたｗ
0261デフォルトの名無しさん2013/01/09(水) 00:47:36.91
>>258みたいのがURL一つで回答が終わるような糞質問や、スレ違いのOSのゴミ質問にまでせこせこ回答するから
低レベルな池沼ばかり集まってスレのクオリティを下げるんだろうな
ほんと>>258みたいな本物のキチガイは存在が迷惑でしかない
本人は全く自覚がないんだろうけど
0262デフォルトの名無しさん2013/01/09(水) 01:02:50.40
ぶはあああｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0263デフォルトの名無しさん2013/01/09(水) 01:36:34.19
やたら伸びてるなと思って見にきたら亞汰魔のおかしな人が暴れてるだけだった。

今日の書き込みには全部目を通したけどまともな書き込みがものの見事に一つもなかった。
0264デフォルトの名無しさん2013/01/09(水) 05:10:26.71
>>263
死ねゴミ
ね
ゴ
ミ

さっさと自決しろ
0265デフォルトの名無しさん2013/01/09(水) 13:07:41.79
東方みたいなゲームってやっぱりパールでは無理なんですかね？＾＾
引き続きリプ募集してるから作り方分かる人は具体的なコードよろよろ＾＾
0266デフォルトの名無しさん2013/01/09(水) 13:33:24.51
>>265
できるよ、コンパイルも出来るから。
0267デフォルトの名無しさん2013/01/09(水) 14:27:55.83
結局東方って何？
硬派なシューティング？
俺はてっきり萌えキャラとかを創作してるヲタ集団だと思ってたんだが。
0268デフォルトの名無しさん2013/01/09(水) 17:31:18.32
ヲタっぽいもの作ってただろ

まりさが何とかとかあれ東方じゃないの？
0269デフォルトの名無しさん2013/01/09(水) 17:52:21.26
東方厨はきもい
0270デフォルトの名無しさん2013/01/09(水) 17:57:46.30
それに関してはいつもの基地外に同意
0271デフォルトの名無しさん2013/01/09(水) 18:11:12.52
>>265
perlがどうとか以前に、おまえはプログラミング初心者
0272デフォルトの名無しさん2013/01/09(水) 18:39:01.45
>>266
コードよろ＾＾

>>271
まあカリカリすんなって＾＾
0273デフォルトの名無しさん2013/01/09(水) 18:40:25.17
perlきもい
0274デフォルトの名無しさん2013/01/09(水) 18:42:59.85
これか。
ttp://www.youtube.com/watch?v=2r9qM4aFDDU
ttp://www27.atwiki.jp/minkey/
0275デフォルトの名無しさん2013/01/09(水) 18:54:53.03
いかにもオタクが好きそう
0276デフォルトの名無しさん2013/01/09(水) 18:58:30.21
perlオタ
0277デフォルトの名無しさん2013/01/09(水) 19:14:17.06
ヲタの好きなものってだいたいキモい。
0278デフォルトの名無しさん2013/01/09(水) 19:19:24.12
なんていうか幼稚臭いんだよね
0279デフォルトの名無しさん2013/01/09(水) 19:26:33.37
こんなもの見つけた

コンサートの様子

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

後半だんだん声が聞きとりにくくなってくるｗ
0280デフォルトの名無しさん2013/01/09(水) 19:41:52.99
>>279
一生懸命やってる人を馬鹿にするな。
0281デフォルトの名無しさん2013/01/09(水) 19:47:15.11
ｗ
0282デフォルトの名無しさん2013/01/09(水) 19:59:12.04
>>279
これはｗｗｗｗｗｗｗｗｗひｗｗｗｗどｗｗｗｗｗいｗｗｗｗｗｗｗｗｗ
0283デフォルトの名無しさん2013/01/09(水) 22:51:57.77
ゲーム関連の話題で盛り上がってるから便乗質問
こういう超かっこいいゲームってPerlで作れるもんかね？
ttp://www.youtube.com/watch?v=kj4SQKSgh4g
0284デフォルトの名無しさん2013/01/09(水) 23:29:36.33
馬鹿には無理
0285デフォルトの名無しさん2013/01/10(木) 00:13:00.73
>>283
perlは処理の遅いゴミだから無理。
0286デフォルトの名無しさん2013/01/10(木) 00:22:23.16
×　perlは処理の遅いゴミだから無理。
○　>>285はアホでトロいゴミだから無理。
0287デフォルトの名無しさん2013/01/10(木) 01:32:54.97
グラフィックやサウンド周りをXSで作成して、それらを組合わせる部分を
perlで作れば可能となる。
0288デフォルトの名無しさん2013/01/10(木) 01:45:21.79
>>286
じゃあお前作ってみろよゴミ
0289デフォルトの名無しさん2013/01/10(木) 02:55:53.56
>>288
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
0290デフォルトの名無しさん2013/01/10(木) 03:22:45.40
>>279
その人が東方の中の人なの？
0291デフォルトの名無しさん2013/01/10(木) 04:47:55.20
ヲタっぽくないじゃん
可愛いじゃん
0292デフォルトの名無しさん2013/01/10(木) 08:17:45.32
とっとと叩き出さないからこんなことに
0293デフォルトの名無しさん2013/01/10(木) 10:41:05.57
>>287
XS？
Perl単体では無理なの？
0294デフォルトの名無しさん2013/01/10(木) 16:03:20.43
>>291
異議あり！
0295デフォルトの名無しさん2013/01/10(木) 16:11:14.44
回答ありがとうございます
一応自決しました
色々試行錯誤していたところ何とか無事に動くようになりました
0296デフォルトの名無しさん2013/01/10(木) 16:48:13.66
自決ねぇ…
0297デフォルトの名無しさん2013/01/10(木) 18:58:40.33
こんばんわ＾＾
歌とかどうでもいいんで東方っぽいゲームのパールコードまだすかね？＾＾
0298デフォルトの名無しさん2013/01/11(金) 01:10:38.40
そんな話こそどうでもいい
0299デフォルトの名無しさん2013/01/11(金) 02:45:46.61
ここは質問スレに見せかけた初心者袋叩きスレだからなｗ
0300デフォルトの名無しさん2013/01/11(金) 03:41:23.78
MKTだな
0301デフォルトの名無しさん2013/01/11(金) 05:06:50.59
MKTって何？
0302デフォルトの名無しさん2013/01/11(金) 10:18:43.38
>>301
「マジでクソスレ」
0303デフォルトの名無しさん2013/01/11(金) 13:39:39.05
>>298
そんなにmikoの話がしたいのか。
0304デフォルトの名無しさん2013/01/11(金) 19:32:28.43
>>279
これは何なんだ
何をどう間違えたらこういうことになるんだ
何かの罰ゲームだろ
0305デフォルトの名無しさん2013/01/12(土) 00:12:35.04
あれ？＾＾
東方ゲームのコードまだ来てない系すかね？＾＾
はじめは東方弾幕あたりから入っちゃって、このスレで段々レベル上げまくってく感じ＾＾
長い付き合いになると思うから仲良くしてな＾＾
0306デフォルトの名無しさん2013/01/12(土) 00:56:21.84
>>305
Perlも初心者を脱出できないレベルだし、ゲームプログラムも詳しくないけど。
作っても良いよ。(ちょっと長めのスパンだけど)
でも、作ったら作ったで叩かれるんだよね？
0307デフォルトの名無しさん2013/01/12(土) 03:45:45.97
>>306
俺は自分が作れないから叩かないよ＾＾
それより長いスパンって結構かかる系？＾＾；
もう少ししたら春休みになるから、春休み中に何とか完成させたいんだけど＾＾
0308デフォルトの名無しさん2013/01/12(土) 14:26:46.14
>>307
叩かれるのだけ恐怖。

どれぐらいのものを作るとか、一日に割ける時間によると思う。
OSとかPerlのバージョンとか指定はあるんですか？
0309デフォルトの名無しさん2013/01/12(土) 16:59:41.91
>>308
もう叩かれる前提で作ったら？そうすれば叩かれても精神的ダメージは少ないだろう

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

最初から良質のコードを書ける奴なんていないわけだし
0310デフォルトの名無しさん2013/01/12(土) 17:16:50.45
ゴミみたいな質問しかこないんだからゲーム開発のプロジェクトスレにしてしまえばいいだろ。
前にも確か将棋かなんか作ろうとしてる香具師いただろ。
03113082013/01/12(土) 20:59:38.08
>>309
>>310
そうだね。
せっかく手を挙げてしまったので覚悟を決めとく。

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

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

といっても、僕が作っていくのか
>>305
の手伝いをすればいいのか。
0312デフォルトの名無しさん2013/01/13(日) 00:02:08.54
俺はCGIゲームを作りたいな
ここもキチガイしかいないからここを拠点に開発するわ
0313デフォルトの名無しさん2013/01/13(日) 00:10:46.23
おまえら、ゲ製に行けよ。
0314デフォルトの名無しさん2013/01/13(日) 00:32:23.40
>>313
ウゼェよ黙れゴミ
0315デフォルトの名無しさん2013/01/13(日) 01:17:44.51
ゲ製も調べられぬ無能か
見世物としては役に立つな
それ以外の用途には全く不適のゴミだ
0316デフォルトの名無しさん2013/01/13(日) 02:10:49.17
とりあえずゲームのアイデアを書いて、そこから仕様に落とし込んでいこうと思う
CGIゲームという特性からアクション性の高いゲームは無理だよな
0317デフォルトの名無しさん2013/01/13(日) 02:32:57.52
>>316
CGIってことはブラウザ使うんだろうしJavaScript使えば動きのあるゲームも作れるよ。
0318デフォルトの名無しさん2013/01/13(日) 04:03:39.38
オワコンのクソスレで自治ってるヴァカって何なんだろうな
0319デフォルトの名無しさん2013/01/13(日) 04:21:37.73
＞＞３１７
ｊａｖａｓｃｒｉｐｔ使えるならｍｍｏｒｐｇとかまで作れそう
0320デフォルトの名無しさん2013/01/13(日) 09:58:01.17
JSってソケット通信できたっけ？
できないとMMOはきついぞ
0321デフォルトの名無しさん2013/01/13(日) 10:28:28.26
>>311
えっと・・・＾＾；
ぼくの学習用にコードが欲しかったんすけど・・・＾＾；
なんか方向性が>>313さんの学習になってる＾＾；
別々にしましょか＾＾；
0322デフォルトの名無しさん2013/01/13(日) 14:33:05.54
>>320
つ[websocket]
0323デフォルトの名無しさん2013/01/13(日) 14:56:19.50
何人画面内に入るか分からないMMOをJavaScriptで作るのは無理がある
100人くらい画面に入ったらブラウザが重くなって落ちそう
0324デフォルトの名無しさん2013/01/13(日) 15:06:18.11
>>321
あ〜、ゴメン。
舞い上がって色々勘違いしてた。

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

とりあえず、1週間後を目安にお願いします。
0325デフォルトの名無しさん2013/01/13(日) 15:17:59.59
その前にJavaScriptってマルチスレッドができないだろ。
処理は重い、マルチスレッドはできない。
MMO開発には完全に不向き。

一方でPerlによるMMO鯖は作れると思う。
ソケット使えるし、マルチスレッド使えるし、データベースとの連携も可能。
0326デフォルトの名無しさん2013/01/13(日) 15:24:08.93
javascriptで作ったクライアントも十分動くよ

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

なんかリンク禁止とか言われてURLが書き込めないｗ
0327デフォルトの名無しさん2013/01/13(日) 15:52:27.38
> その前にJavaScriptってマルチスレッドができないだろ。
できるようになった。
0328デフォルトの名無しさん2013/01/13(日) 15:55:53.36
>>327
なんで？できるようになった理由は？
0329デフォルトの名無しさん2013/01/13(日) 16:38:33.14
理由？ マルチスレッドがないと不便だからだろ。
0330デフォルトの名無しさん2013/01/13(日) 22:46:35.37
>>329
そのソースは？javascriptは消滅すべきところをアフォ検索サイトが延命させてるだけだから、そんな要望は関係者以外から出ないはずなんだけど？
0331デフォルトの名無しさん2013/01/13(日) 22:57:04.06
W3C に言ってこい。
0332デフォルトの名無しさん2013/01/13(日) 23:07:52.71
>>330
そりゃ、お前が思っていることが事実であれば、そのとおりだ。
だが、マルチスレッドが実装されたことから
お前が思っていることのほうが間違いだと証明された。
0333デフォルトの名無しさん2013/01/14(月) 00:15:41.74
javascriptでwindowsアプリが作れるとか言ってる時代に本当に消滅するとでも思っているのかね・・・
アンテナ低いな、老害か
0334デフォルトの名無しさん2013/01/14(月) 01:02:59.46
ECMAスクリプト
0335デフォルトの名無しさん2013/01/14(月) 02:53:11.75
PCヲタにアンテナ低いとか言われてもなｗ
0336デフォルトの名無しさん2013/01/14(月) 15:01:33.73
>>335
ここは開発者の板だ。部外者はうせろよ。
0337デフォルトの名無しさん2013/01/14(月) 15:34:00.35
＞少し寒さと付き合いませんか？
うるせーよ、それで風邪ひいたら責任取れるのかよCM作ってる奴らは
風邪ひいた場合の医療費と、仕事に影響が出た場合その収入に対する保証できんの？
ほんとこのCM作ってる奴らキチガイだわ、無責任にもほどがあるだろゴミクズ
0338デフォルトの名無しさん2013/01/14(月) 20:43:23.69
CGIゲーム作ろうと思ってんだけど、どんなのがいいだろうか悩んでる
今はキャラ育成かなとも思ってる
プレイヤー1人あたり3キャラのパーティーを作って
それぞれのキャラにガンビットで行動を指定しといて
戦闘は自動で行われるやつ
0339デフォルトの名無しさん2013/01/14(月) 21:38:23.06
>>338
ガンビットとか一般ユーザーには敷居が高いと思うぞ。
あれはある程度プログラマー的な思考が要求されるし。
0340デフォルトの名無しさん2013/01/14(月) 21:42:01.09
First Operationを思い出した。懐かしいな
0341デフォルトの名無しさん2013/01/14(月) 22:19:57.71
なんだそれ
0342デフォルトの名無しさん2013/01/15(火) 15:01:49.17
ガンビットじゃなくてじゃんけん方式にしたらどうよ
グーチョキパーじゃなくて格闘ゲームの上段中段下段みたいな感じで
確か、上段＞中段＞下段＞上段、だよな

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

これのほうがまだ一般人には分かりやすいと思われ
0343デフォルトの名無しさん2013/01/15(火) 16:44:12.66
それだともうほとんど運じゃん
0344デフォルトの名無しさん2013/01/15(火) 16:50:31.51
有料ガンビットがたくさん売れると思ったら大間違いだが
ネタガンビットを組み込んだ上で勝てばポイントが多く稼げるような
強さだけではない要素がほしい
0345デフォルトの名無しさん2013/01/15(火) 16:56:36.19
>>344
詳しく
0346デフォルトの名無しさん2013/01/15(火) 17:13:05.97
>>342
技の出る速さの概念を入れるとよい。
技の速さを適当に120とか180とか決めておき、上中下段の前に速さで判定を行う。
上段と下段のぶつかり合う組み合わせでも上段のほうが速ければ勝つといった具合だ。
0347デフォルトの名無しさん2013/01/15(火) 18:11:35.80
そうしたらみんな速い技ばっか使って結局じゃんけんの運になるだろ
0348デフォルトの名無しさん2013/01/15(火) 18:26:29.14
二人零和有限確定だが不完全情報なゲームは
どうしたってじゃんけんになるしかないんじゃね
0349デフォルトの名無しさん2013/01/15(火) 18:42:23.41
なんだろう、こう、運40%、実力（装備や技の組み合わせ）60%みたいな感じがいいと思う
0350デフォルトの名無しさん2013/01/15(火) 19:51:37.35
>>349
だからそれだと同格同士なら運でじゃんけんだろ
0351デフォルトの名無しさん2013/01/15(火) 20:28:22.80
ゴルゴ
0352デフォルトの名無しさん2013/01/15(火) 20:47:38.75
だったらやっぱガンビットしかないじゃん。
0353デフォルトの名無しさん2013/01/15(火) 20:57:49.36
ガンビットって言うから難しく聞こえるんだろ
「HPが半分以下になったら回復しろ」とか「敵が3体以上のときは範囲魔法を撃て」とかそんなんでいいんじゃないの
0354デフォルトの名無しさん2013/01/15(火) 21:05:31.76
■アイデア
・HPが半分以下になったら回復しろ
・敵が3体以上のときは範囲魔法を撃て
0355デフォルトの名無しさん2013/01/15(火) 21:20:46.90
ちょっと自分のスキルに見合った作成可能な範囲でアイデアを書いていきますね
仕様はまだまだ先です

システム
　ガンビットによる自動戦闘のCGIゲーム
　ブラウザの場合はちゃんと動く/モバイルの場合は結果のみ表示
　プレイヤーは3キャラからなるパーティーを作りガンビットを設定
　各キャラには職業を設定できる
　各キャラにはLV、HP、MP、攻撃力、防御力、素早さのステータスがある
　各キャラは武器や防具といった装備を身に付けることができる
　「クエストモード」と「コロシアムモード」がある
　クエストモードではダンジョンに入り、次々と出てくるモンスターを倒していく。ダンジョンによってモンスターの強さも違い、全滅するまでに倒した敵の数によって報酬がもらえる
　コロシアムモードでは他のプレイヤーと対戦できる
　手に入れたアイテムなどを他のプレイヤーにゲーム内マネーと引き換えに譲ることができる
0356デフォルトの名無しさん2013/01/15(火) 21:38:28.51
あああああああああああああああああああああああああああああああ
0357デフォルトの名無しさん2013/01/16(水) 03:58:18.90
結果だけ表示されて面白いもんかね？
0358デフォルトの名無しさん2013/01/16(水) 05:21:30.15
アクア=エリアスのような？
0359デフォルトの名無しさん2013/01/16(水) 12:02:40.77
スレチのバカどもはさっさと出てけよｋｓ
0360デフォルトの名無しさん2013/01/16(水) 12:52:05.81
>>359
ウゼェぞ空気読めないゴミは黙ってろクズが
0361デフォルトの名無しさん2013/01/16(水) 13:10:51.89
ゲームの話やってるスレチの
スレタイ読めない低能無能のサルは
同じく低能無能のオナニー猿がよりおおく集まってる
ゲー裂く板でやってろよｋｓ
ここに寄りついてんじゃねーよアフォ
さっさと出てけウンコ
おめーらがいると臭くなる
臭くて臭くてしょうがない
ゴミクズゴミカス便所のてめーらはさっさと失せろ
0362デフォルトの名無しさん2013/01/16(水) 14:28:52.80
>>354
回復とかってどうなんだろう。
自動で戦闘ってことはお互いのチームの　平均総与ダメ<平均総回復　だった場合にCGIが処理終えられなくてタイムアウトすると思う。
0363デフォルトの名無しさん2013/01/16(水) 14:31:27.22
だから出てけって言ってんだろアホクズ
さっさと出てけよ
スレチのｋｓ野郎の脳の入ってないゴミは
産廃集積所に行け
0364デフォルトの名無しさん2013/01/16(水) 15:55:47.43
CGIは板違い。Webプログラミング板へどうぞ。
0365デフォルトの名無しさん2013/01/16(水) 16:07:26.38
Perl最強
0366デフォルトの名無しさん2013/01/16(水) 17:16:37.04
>>362
そこらへんはゲームバランスの調整段階で何とかなるだろ

このスレでテストプレイヤーを募集して
時間かけて意見交換しながらていねいに調整していけばいい
0367デフォルトの名無しさん2013/01/16(水) 17:55:12.56
それより結果のみってどういうことよｗ
0368デフォルトの名無しさん2013/01/16(水) 18:17:38.95
＜シーン1＞
ﾌﾞﾗｯｸｺﾞｰﾚﾑがあらわれた!!
　　●

→たたかう
　にげる
--------------------------
＜シーン2＞
ﾌﾞﾗｯｸｺﾞｰﾚﾑをたおした!!



118EXP 32G かくとく!!
ゆうしゃのﾚﾍﾞﾙが上がった!!
--------------------------

自動で結果のみってこういうことだよなｗｗｗｗｗｗｗｗｗ
0369デフォルトの名無しさん2013/01/16(水) 19:56:39.98
途中経過を表示してこそ、だよな

あとネタガンビットもほしい
体力が10%以下になったら服がやぶける（特殊効果特になし）
とか
0370デフォルトの名無しさん2013/01/16(水) 21:10:21.17
でもマルチプラットホームで経過を表示って大変じゃね？
かなり面倒だろ
0371デフォルトの名無しさん2013/01/16(水) 22:42:15.19
スレチのクソクズはさっさと失せろよｋｓ
脳味噌入ってない頭は産廃業者に引き取ってもらえ
0372デフォルトの名無しさん2013/01/16(水) 23:14:11.64
非建設的な言い方してもスルーされるだけなのにな
非建設的だからただ自治したいだけだと思われてるだろうし
0373デフォルトの名無しさん2013/01/16(水) 23:35:00.55
Webでのゲーム開発はこちらへ

WebProg
http://kohada.2ch.net/php/

スタンドアロンのゲーム開発はこちらへ

ゲ製作技術
http://toro.2ch.net/gamedev/

板ローカルルールに従ってください。
0374デフォルトの名無しさん2013/01/17(木) 01:43:55.03
>>370
戦闘が全自動って前提ならさほど大変でもない。

戦闘終了までの過程をリストでCGIから返して、あとはプラットホームごとにそれに従って描画すればいい。

JavaScriptでダイナミックにするなり、DirectX使った専用アプリで3DRPGみたいなバトルにするなり。
0375デフォルトの名無しさん2013/01/17(木) 01:55:55.59
クソゲーのクソを練り上げる作業なら他でやれっていってんだろ
さっさと出てけよｋｓ
おめーのくせーネタを肥溜未満の便壺から引っ張り出してｸﾝなアフォ
くせーからさっさとblogでやってろｋｓ
クズ
無能
0376デフォルトの名無しさん2013/01/17(木) 03:16:42.92
PerlMagickのインストール方法を教えてください
0377デフォルトの名無しさん2013/01/17(木) 03:55:44.51
>>376
ウザい
0378デフォルトの名無しさん2013/01/17(木) 03:57:06.96
>>376
インストールマニュアルすら読めないってただのゴミだよお前
ゴミはプログラミングなんかするな
0379デフォルトの名無しさん2013/01/17(木) 04:26:19.53
僕も皆さんと同じようにこのスレでゲームを作りたいんです
そのためにはPerlMagickが必要なんです
お願いします
0380デフォルトの名無しさん2013/01/17(木) 05:20:20.83
>>374
そうは言ってもUAごとにある程度は違うものをPerlで吐いてやらないとだめだろ
JavaScriptに対応してない携帯端末にまでPCのブラウザと同じコードを返すのは微妙

専用アプリについても同じでHTMLをパースするのは無駄すぎ
0381デフォルトの名無しさん2013/01/17(木) 12:55:47.06
無駄かどうかは開発＆保守にかかるコストも含めて考える必要があるけどな
0382デフォルトの名無しさん2013/01/17(木) 15:47:35.67
>>369
それはガンビットではなく描画処理じゃないのか？ｗ
ネタだったら戦闘にほとんど影響がない程度の特殊効果があると面白いと思う

たとえば体力が10%以下になったら踊って、体力が1回復するとか
お互い削りあってギリギリってところで、その回復のお蔭で体力が1残ってて勝ったら面白いだろｗ

（前省略）
甲の残り体力4021
乙の残り体力3954（乙は踊るガンビットを設定してある）
甲の攻撃！乙は1923のダメージを受けた！
乙の体力が10%をきった！体力が1回復した！
乙の攻撃！甲は2020のダメージを受けた！
甲の攻撃！乙は2031のダメージを受けた！
乙の攻撃！甲は2001のダメージを受けた！甲は倒れた！

みたいに超超低確率で効いてくると面白いと思う
0383デフォルトの名無しさん2013/01/17(木) 17:30:16.36
スレチのウスノロはさっさと出てけよ
脳味噌にウジわいてんだろ
ヴォケナスの腐った馬鹿は消えろ
くせぇｶｷｺしてんじゃねーよ
0384デフォルトの名無しさん2013/01/17(木) 17:41:58.84
>>380
リアルタイムに情報を垂れ流す部分の出力内容は
全ブラウザで共通にすべきですな
0385デフォルトの名無しさん2013/01/17(木) 18:41:16.72
よっしゃ、先日の続き書いていきます
議論になってる不明な部分を中心に詰めてみました

戦闘について
　戦闘システム
　　ステータスの素早さを利用した、非ターン制の戦闘
　　プログラムでは戦闘に参加しているキャラの素早さの値を1ループずつそれぞれのカウンタに加算していき、
　　カウンタが1万を超えたキャラからガンビットに従って行動する、行動後はそのキャラのカウンタをリセット
　魔法について
　　攻撃魔法
　　回復魔法
　　強化魔法（攻撃・防御）
　無限ループについて
　　単位時間あたりの回復量がダメージ量を上回る場合など無限ループが発生する可能性があるが、
　　戦闘のシーンそのものにもカウンタを持たせ、それが一定回数1万を超えたら戦闘は強制終了（時間切れ）
　　総与ダメージを基準に勝敗を決定

ガンビットについて
　皆さんアイデアをどんどん出していってください

出力について
　モバイル版について
　　戦闘終了のメッセージとともに戦闘で誰が何をしたといった行動の履歴がずらずらと表示される
　PC版（ブラウザ版について）
　　未定

データ形式について
　最終的にはCGIゲームとして無償配布する予定
　導入が容易なように、各種データはDBを使わずファイルに記録
0386デフォルトの名無しさん2013/01/17(木) 21:12:29.00
失せろクソガキ
出ていけ
いつまでｽﾚﾁを続ける木田
お前の頭蓋骨の中身は豆腐以下のクズだ
0387デフォルトの名無しさん2013/01/17(木) 21:41:17.51
ん？なんだこの流れは
厨が来てたところまでは見た
けどなんで乗り気になってる人がいるんだｗ
0388デフォルトの名無しさん2013/01/17(木) 22:08:11.36
カウンタって何だろう？
0389デフォルトの名無しさん2013/01/17(木) 22:29:37.07
きもｗ
0390デフォルトの名無しさん2013/01/17(木) 22:48:53.21
きもｗ
0391デフォルトの名無しさん2013/01/17(木) 23:02:26.45
今まで、スレのルールを守っていなかったのに
今更何を言っているんだろうね。
会話が成り立っている状態がうらやましいのかな？

スレチだろうが今の流れの方がどうみても健全的でしょ。
0392デフォルトの名無しさん2013/01/17(木) 23:08:51.91
ｽﾚﾁのクズはさっさと出てけ
オメェーにいってんだよ
出てけｋｓ
クズ
ゴミ
出てけ
スレチのアフォ野郎は出てけ
脳味噌からウジ飛び出てんぞ
0393デフォルトの名無しさん2013/01/17(木) 23:13:11.16
基地外なぜか疎外感ｗ
0394デフォルトの名無しさん2013/01/17(木) 23:13:30.20
これじゃかえって居座るわな…
0395デフォルトの名無しさん2013/01/17(木) 23:24:41.04
カウンタって何だろう？
0396デフォルトの名無しさん2013/01/17(木) 23:37:08.17
基地外の語彙が・・・
0397デフォルトの名無しさん2013/01/17(木) 23:54:03.30
>>384
それはそうだろ。
これでWindows、Linux、Wii、PS3、ケータイ、スマホ、macに対応だな。
クロスプラットホームによる熱いバトルが繰り広げられそう。
0398デフォルトの名無しさん2013/01/18(金) 00:06:15.21
スマホってJavaScript動くの？
0399デフォルトの名無しさん2013/01/18(金) 00:56:54.47
>>395
ちょっと待っててください
サンプルを作りました
04001/32013/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;
04012/32013/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;
　　　　　　　　　}
　　　　　　}
04023/32013/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;
}
0403デフォルトの名無しさん2013/01/18(金) 01:06:19.53
>>385ではカウンタを1万と言いましたがこのサンプルでは500に設定しています
サンプルのためsleepを入れて実行時に分かりやすくしてあり、これが1万だとかなり時間がかかるので500にしました

実際のバージョンでは素早さが最大で数百から場合によっては1000を越える可能性があると思うので、1万程度に設定します
0404デフォルトの名無しさん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;
0405デフォルトの名無しさん2013/01/18(金) 04:00:45.21
＞各キャラには職業を設定できる
サラリーマンとか学生とか？
0406デフォルトの名無しさん2013/01/18(金) 05:12:38.02
jsがperlのようなモノとなった時代に、perlを使い続けるメリットって何よ？
0407デフォルトの名無しさん2013/01/18(金) 07:48:16.00
jsより高速
0408デフォルトの名無しさん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
0409デフォルトの名無しさん2013/01/18(金) 08:28:44.61
>>406
言語やライブラリの仕様だけで比べてんだろ？
稼働の仕組みも用途も全然違うわｗ
0410デフォルトの名無しさん2013/01/18(金) 09:06:18.39
このC++くさいコードは何。
0411デフォルトの名無しさん2013/01/18(金) 18:28:06.93
ガンビットつったってアイデアもくそもないだろ
自分のHPとMPをどうみるかってだけの話だろ
0412デフォルトの名無しさん2013/01/18(金) 22:29:21.84
>>406
jsが高級シェルスクリプトとして使われてるのはあまり聞いたことがないな
0413デフォルトの名無しさん2013/01/19(土) 00:44:05.28
>>411
強化魔法が何とかって書いてあった気がするから、そういうのも関係してくるだろう。

強敵と対峙したときは防御強化の魔法がかかるまで防御を続けておくとか。

他にも敵の数なんかも判断基準として考慮する必要がある。
0414デフォルトの名無しさん2013/01/19(土) 02:49:55.35
ダメージの大小とかは？
一撃でHPの1/4もってかれるような破壊力の敵が混ざってたらまずそいつから袋叩きにして倒す必要がある
0415デフォルトの名無しさん2013/01/19(土) 03:50:27.85
そんなこと言ってたら極端な話、
敵の行動全てに対してガンビットを
設定できるようにしなきゃいけないだろ
0416デフォルトの名無しさん2013/01/19(土) 16:28:45.90
なんで？

行動の種類はどうでもよくて結果を見ればいい
0417デフォルトの名無しさん2013/01/19(土) 22:27:50.05
東方作ってる人はどこいった
04183082013/01/19(土) 23:39:27.03
東方は作ってないけど
シューティングゲームのサンプルらしきものは作っているよ。

まとまった時間が平日なかなかとれなかったから少しずつ作成中だよ。
とはいえ、ここで投稿するの叩かれないか怖いなぁ。
ゲーム製作板じゃなくて、ここで良いんだよね？
0419デフォルトの名無しさん2013/01/19(土) 23:43:30.88
いいわけねーだろアホ
さっさと出てけよｋｓクズゴミヴァカ
0420デフォルトの名無しさん2013/01/19(土) 23:49:09.24
許可する。ここでやれ。
0421デフォルトの名無しさん2013/01/19(土) 23:54:04.88
発破！
0422デフォルトの名無しさん2013/01/20(日) 00:13:37.23
>>418
やったモン勝ちだよ。
基地害も当初の元気がなくなってきてるから大丈夫だろ。
0423デフォルトの名無しさん2013/01/20(日) 00:22:42.54
どっちがｷﾁｶﾞｲだよ
ちったあ自分の脳味噌のちっぽけさを自覚しろドアホ
0424デフォルトの名無しさん2013/01/20(日) 00:33:22.40
くやしいのうｗｗｗｗｗｗｗｗｗくやしいのうｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0425デフォルトの名無しさん2013/01/20(日) 04:09:43.03
>>415
例えば敵の攻撃が何であろうと攻撃されてHPが減ったら回復すればいいだろ？
減らなきゃ回復する必要ないだろ？
0426デフォルトの名無しさん2013/01/20(日) 19:33:06.50
>>425
例えば敵の炎属性の魔法でHPの40%くらいダメージ受けるとする。
でも回復魔法で30%くらいしか回復しないとする。
炎属性のダメージを半減させるシールドを貼る魔法があるとする。

この条件だと回復よりシールドを優先したいよね。
0427デフォルトの名無しさん2013/01/20(日) 19:56:31.11
スレチのｷﾁｶﾞｲどもはさっさと出てけｸｽﾞ
0428デフォルトの名無しさん2013/01/20(日) 21:41:49.69
>>418
どこで出したって叩かれるよ

ゲ製で出したって叩かれる

そこは避けられないから仕方がないと思ったほうがいい

「叩かれて当たり前」くらいの勢いで



一番恐ろしいのは何の反応もないことだよ
0429デフォルトの名無しさん2013/01/20(日) 22:09:20.27
ゴタクはいいからさっさと出てけよ
ﾐｼﾞﾝｺ野郎
0430デフォルトの名無しさん2013/01/20(日) 23:29:04.43
悔しがってる所悪いが、
出て行くつもりはないよｗ

俺の相手をするか、
もしくはお前が出て行くしか無いのでは？
0431デフォルトの名無しさん2013/01/20(日) 23:32:49.81
なんだこれｗ
0432デフォルトの名無しさん2013/01/21(月) 00:01:22.69
人が自らの愚かさに気付くのはいつか
0433デフォルトの名無しさん2013/01/21(月) 03:57:00.80
>>426
そんなこと言い出したらキリがないんじゃね
AIとかそういう話になるぞ
0434デフォルトの名無しさん2013/01/21(月) 04:44:23.77
まあスレチなのは間違いないが
叩き出し方が非常に悪かった
こりゃしばらく居座るね
0435デフォルトの名無しさん2013/01/21(月) 10:02:42.99
非常に悪いもクソもなにもかもねーよ
何自作自演してんだｋｓ
出てけっつったら
さっさと出てけよスレチの蛆虫野郎
この手の無能低能がいるからおかしくなるん世
0436デフォルトの名無しさん2013/01/21(月) 12:11:24.47
PerlにAIなんて無理だろ。
処理速度が遅すぎる。
0437デフォルトの名無しさん2013/01/21(月) 12:23:21.39
今までゴミみたいな質問を受け入れ続けてきた結果がこれだろうな


自業自得
0438デフォルトの名無しさん2013/01/21(月) 15:05:09.01
Perlがゴミを増やし
ゴミがPerlをよりゴミにし
0439デフォルトの名無しさん2013/01/21(月) 16:08:48.20
頭の悪いゴミが増えればそのコミュニティのレベルが下がるのは当たり前だろ。
だから学校でも企業でも選別するんだけどな。

ゴミにせっせと回答してた奴はそれが目的だった可能性が高い。
0440デフォルトの名無しさん2013/01/21(月) 23:52:23.51
橋本なんとかのせいでなんとか高校の体育科が入試中止だってよ
普通科に振り替えるとか言ってるけど意味不明
0441デフォルトの名無しさん2013/01/22(火) 00:05:46.78
うぜーぞキチガイ
0442デフォルトの名無しさん2013/01/22(火) 00:36:15.52
>>441
死ねゴミ
0443デフォルトの名無しさん2013/01/22(火) 03:29:37.75
他人に向かって死ねとかゴミとかキチガイとかって言葉が常日頃から飛び交ってるようなスレで誰が質問したいと思う？
質問があったとしても普通の神経してたらすぐにスレを閉じるよ。
それにいくら2chとはいえここまで言葉を選ばない罵声が他人に向けられて発せられていたら、Perlそのもののイメージダウンになるよ。
もう少し利用者やPerlそのもののイメージについて考えてから書き込んでほしい。
0444デフォルトの名無しさん2013/01/22(火) 14:32:10.61
>>426
シールド魔法があるかどうかの話が出てないからどうなるか知らんけど、そこまで緻密なガンビットはユーザーに自由度をもたせたうえで実装となると難しいだろうな
でも例えば古典的なRPGだとダンジョンごとにだいたいの属性傾向があるから、それをもとにざっくり指定するとかあると思う
色んな属性の敵が出てくる場合にはあらかじめどれかに絞ってガンビットを指定させるってことでいいだろ
0445デフォルトの名無しさん2013/01/22(火) 15:47:26.54
属性って必要？
本来は戦略に幅を持たせる目的で導入された概念だけど、
開発側もプレイヤー側も面倒になるだけなら必要？
0446デフォルトの名無しさん2013/01/22(火) 15:56:43.12
スレチのアホはさっさと出てけ
ゴミｷﾁｶﾞｲ
おめーら普通の神経してねーだろ
スレを選ばないヴァカはさっさと立ち去れよ
perlスレのイメージが悪くなんだろｋｓ
0447デフォルトの名無しさん2013/01/22(火) 16:04:28.24
将棋のGUI作るとか言ってた人はどうなった？
0448デフォルトの名無しさん2013/01/22(火) 18:53:49.43
スマイルプリキュア
0449デフォルトの名無しさん2013/01/22(火) 21:01:26.32
将棋のGUIは？
0450デフォルトの名無しさん2013/01/22(火) 21:15:59.00
将棋のGUI作って欲しいって言ってた人まだいるのかな
0451デフォルトの名無しさん2013/01/22(火) 21:38:32.42
>>445
プレイヤー側は一概に面倒とは言えないのでは？
0452デフォルトの名無しさん2013/01/22(火) 23:13:43.71
今からプリキュアでヌく
0453デフォルトの名無しさん2013/01/23(水) 01:11:08.95
将棋のGUI作って欲しいって言ってた奴出てこい
0454デフォルトの名無しさん2013/01/23(水) 01:58:46.14
ちょっとググればソフトウェアが転がっている飽食の時代
0455デフォルトの名無しさん2013/01/23(水) 04:00:24.06
言ったのは俺だぜ。
すでにGUIあったから作ってみたけど、AI作るの超難しかった。
0456デフォルトの名無しさん2013/01/23(水) 13:19:00.13
なんだよもうあるのかよ・・・
0457デフォルトの名無しさん2013/01/23(水) 15:34:25.99
別にあってもいいじゃないか。
もうかなりの時間たったから完成見えてんだろ？
0458デフォルトの名無しさん2013/01/23(水) 20:26:23.95
見えてるからすぐってわけでもないしな。
月は遠い。
0459デフォルトの名無しさん2013/01/24(木) 04:59:32.26
>>457
見えてねえよｗ
仕様の打ち合わせしようかと思ってた段階だｗ
0460デフォルトの名無しさん2013/01/24(木) 16:55:18.40
すいません、リアルが忙しくてなかなかアイデアをまとめきれていません。
もうちょっとしたら詰めた内容をカキコします。

とりあえず属性は面白そうなので導入します。
0461デフォルトの名無しさん2013/01/24(木) 19:31:24.25
>>909
HSP厨はどんなに侮辱されても使い続けるから問題ない
だから人払いではない
0462デフォルトの名無しさん2013/01/27(日) 00:40:56.31
ヴァーーーーーカｗ
0463デフォルトの名無しさん2013/01/30(水) 03:17:24.41
仮想の街中でウンコ水を投げまくるゲームを作りたいのですがどうしたらいいですか？
0464デフォルトの名無しさん2013/01/30(水) 03:20:11.09
面白いレスした奴が優勝
0465デフォルトの名無しさん2013/01/30(水) 04:46:35.20
ちぇりーぺにゅぺにゅ
0466デフォルトの名無しさん2013/01/30(水) 22:06:55.43
ウンコ水って何ですか？
0467デフォルトの名無しさん2013/01/30(水) 22:09:30.84
お前の腹と脳味噌に詰まってる有難い水のこと
つまりは有難いお前自身、お前そのもののこと
0468デフォルトの名無しさん2013/01/31(木) 02:34:04.76
違います
ウンコを洗面器に入れ、そこへさらに水を入れて溶かしたものです
それを水風船の中に入れます
0469デフォルトの名無しさん2013/02/02(土) 22:54:53.33
それはウンコ水ではなくウンコ水風船だ。
0470デフォルトの名無しさん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 の値をこちらで設定することができるでしょうか。
0471デフォルトの名無しさん2013/02/03(日) 16:23:13.40
↑
コード中の URL を間違えました。
最終的には、http://www.cardbotmtgo.com/ のサイトにアクセスしたいのですが、
今回の質問は $mech->get('http://www.tohoho-web.com/wwwcook2.htm')
が正しいコードです。
0472デフォルトの名無しさん2013/02/03(日) 18:57:39.72
>>471
投稿前に確認すらできないゴミにプログラムは無理
どうせ自分のコードも確認してないんだろ
クズだなお前
0473デフォルトの名無しさん2013/02/03(日) 19:21:25.72
相変わらずの語彙力
0474デフォルトの名無しさん2013/02/03(日) 19:25:53.42
>>470
他人のサイトで検証してる常識知らずの知能障害は失せろ。
0475デフォルトの名無しさん2013/02/03(日) 19:35:00.76
きめえｗ
0476デフォルトの名無しさん2013/02/03(日) 19:52:01.17
語彙力あっても幼稚園児並の奴に理解させようと思うと使える言葉には限りがある

>>473みたいな奴だろうな
幼稚園児に大学レベルで習う言葉を使って得意気に語るのは
コミュ障と同じ
0477デフォルトの名無しさん2013/02/03(日) 19:57:39.73
>>473
煽れば回答が付くと思ってるお前も似たようなもんｗ
0478デフォルトの名無しさん2013/02/03(日) 20:01:19.11
>>477
死ねゴミ
0479デフォルトの名無しさん2013/02/03(日) 20:14:46.49
>>478

↑
これが語彙力がなんとかって言ってる奴のレスｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
04804702013/02/03(日) 21:13:50.09
あの、なんだか険悪な雰囲気にしてしまい申し訳ありません。
とほほ氏の件は解決いたしました。
>>472さんのご指摘のとおりですので、もっと勉強します。
0481デフォルトの名無しさん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でクッキーも取り出せる。
って解決したのか。
0482デフォルトの名無しさん2013/02/04(月) 03:12:45.30
解決した相手に書き込んでる基地害がいるな。
自覚あっても書き込まずにはいられないならもう救いようがない。
0483デフォルトの名無しさん2013/02/04(月) 09:03:41.55
>>482
後から検索して、ここにたどり着いた人の為にも回答は必要なんだよ。
本来なら、>>480が解決策を書くべきなんだが、
>>480が元質問者である保証もないしな。

掲示板はどういうものか学びなおした方がいいよ。
0484デフォルトの名無しさん2013/02/04(月) 13:27:18.56
>>480
>>472は罵倒してるだけだからどうでもいいだろ
問題は>>474
0485デフォルトの名無しさん2013/02/04(月) 17:36:29.22
例の図書館のDBに一定時間おきに自動でアクセスするサービス作った人みたいに
1回捕まれば>>470みたいな頭でも理解できるだろ
0486デフォルトの名無しさん2013/02/04(月) 19:34:50.18
サーバの裏で何か動けばそういうこともあるだろうけど、
これはクライアント側で完結してる問題だけど。
0487デフォルトの名無しさん2013/02/04(月) 23:08:17.72
@list = <STDIN>
↑のようにリストをキーボードから入力したいのですが、
macの場合、終端文字(入力を終了)として何を入力すればよいのでしょうか？
お願いします。
0488デフォルトの名無しさん2013/02/04(月) 23:10:20.89
ばーか
0489デフォルトの名無しさん2013/02/04(月) 23:19:48.44
>>487
自分で調べられないゴミのくせに何でプログラムに手を出しちゃったの？
身の程を知れ
0490デフォルトの名無しさん2013/02/04(月) 23:26:06.02
>>487
Ctrl-Dじゃね？
0491デフォルトの名無しさん2013/02/04(月) 23:29:32.55
>>487
糞みたいなコード書いてる暇があったら働け屑ニート
0492デフォルトの名無しさん2013/02/04(月) 23:35:17.02
俺も何か質問して叩かれようかと思ったけど・・・
考えても別に何も分からないで困ってる事ないや(´・ω・｀)
0493デフォルトの名無しさん2013/02/04(月) 23:42:05.78
>>492
普通はそうだよ。
いつレスが来るか分からない、そもそもレスが来るって保証もない掲示板で質問して
叩かれてまくってストレス溜めながらレスを待つより、
自分でさっさと検索したほうが早いしストレスも溜まらない。
0494デフォルトの名無しさん2013/02/04(月) 23:45:40.48
すいません。誰か教えて下さい。。

PerlでMP3のID3v2タグを表示(そして編集)したいと思ったんですが、
日本語の文字化けの直し方がイマイチわかりません。

「MP3(ID3v2.3+v1.1),UTF16」というタイプのMP3ファイルを使用してます。
そのままだと日本語が化けてしまうので、
ネット情報を参考に、デコード→SJISエンコードしてみたんですがダメでした。
しかし、デコードをせず、SJISエンコードを直接やってみたらうまく表示されました。
04954942013/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のタグだと上記のように意味がわからなくなります。
0496デフォルトの名無しさん2013/02/04(月) 23:55:34.79
>>494
失せろゴミ
0497デフォルトの名無しさん2013/02/04(月) 23:56:04.42
ウンコード一級認定
0498デフォルトの名無しさん2013/02/05(火) 00:00:31.75
しらねーよ
普通ｌｉｎｕｘの文字コードはeucだろヴァカ
shiftjisなんかにしてどーすんだよアホ
0499デフォルトの名無しさん2013/02/05(火) 00:03:43.40
>494は基礎をやってないからそういう知識もないんだろう
プログラム言語さえ覚えれば何とかなると思って覚えみたものの
行き詰まって赤の他人にきいてる池沼の見本
0500デフォルトの名無しさん2013/02/05(火) 01:03:16.54
>>495
環境が分からんけどWindowsだとすると、>>5を参考にSTDOUTを弄って、
decode/encodeのぐちゃぐちゃは削除。
0501デフォルトの名無しさん2013/02/05(火) 01:11:25.45
>>500 ← 環境も分からないのに回答しちゃってる馬鹿
05024942013/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
ありがとうございます。その辺調べてみます。
それ付け足してみただけだとエラー出まくりましたが。
0503デフォルトの名無しさん2013/02/05(火) 02:19:19.13
はい荒らしの常套手段、情報の後出し入りました〜
0504デフォルトの名無しさん2013/02/05(火) 02:21:13.99
MP3::Tag が自前で decode してるっぽいけど。
0505デフォルトの名無しさん2013/02/05(火) 02:34:14.67
>>502
ようゴミクズ
まだいたのか
よく恥ずかしくないな
05064942013/02/05(火) 03:47:43.07
>>500
エンコード入れてました。消したらちゃんと表示されました。

>>504
そうみたいですね。
MP3::Tagで読み込んだタグはデコード済なんですね。


日本語処理に疎くて、頭こんがらがってましたが、大体分かって来ました。ありがとうございました。
ちなみにShift-JISにしないと標準出力が文字化けするのはWindows環境だからなんですよね。
最近やらなくなって消しちゃったけど、仮想Linuxまた作っとくか・・
0507デフォルトの名無しさん2013/02/05(火) 05:42:23.25
> 普通ｌｉｎｕｘの文字コードはeucだろヴァカ
今どきeuc
しかも全角

また化石爺が出たかｗ
0508デフォルトの名無しさん2013/02/05(火) 13:14:42.34
＞最近やらなくなって消しちゃったけど、仮想Linuxまた作っとくか・・
ここがお前のブログに見えるのか
こいつ本当に荒らしだな
0509デフォルトの名無しさん2013/02/05(火) 14:25:37.69
何だ、荒らしか・・・回答して損した。
0510デフォルトの名無しさん2013/02/05(火) 14:37:51.17
>>508
お前馬鹿だろ。

このスレはスレ違いとかないからどんな話題もおｋなんだよ。

ゲームのアイデアを出しあったりとか何でもおｋ。
0511デフォルトの名無しさん2013/02/05(火) 23:11:30.73
>>506
二度とくるなキチガイ
0512デフォルトの名無しさん2013/02/05(火) 23:34:10.27
perlってCGIとセットで学習するものなの？
0513デフォルトの名無しさん2013/02/05(火) 23:48:31.78
いや、そんなことはない。最近はPSGIとセット。
0514デフォルトの名無しさん2013/02/05(火) 23:57:22.20
このスレ的にもOKなのかなるへそ
0515デフォルトの名無しさん2013/02/06(水) 00:03:35.70
EUC(Extended UNIX Code)はプロの世界ではまだ現役だけどな
むしろJISコードに切り替えたなんて話、聞いたことがない
0516デフォルトの名無しさん2013/02/06(水) 01:53:38.55
>>506
何でこのスレを荒らそうと思ったの？？
0517デフォルトの名無しさん2013/02/06(水) 02:25:16.22
ウザいゴミ
0518デフォルトの名無しさん2013/02/06(水) 04:36:45.29
>>517
うるせー死ね。
0519デフォルトの名無しさん2013/02/06(水) 04:50:06.94
http://www.google.co.jp/#q=encode+Wide+character
0520デフォルトの名無しさん2013/02/06(水) 13:32:13.59
きちがいすれっど
0521デフォルトの名無しさん2013/02/06(水) 13:33:23.15
>>518
お前が死ねゴミ
0522デフォルトの名無しさん2013/02/06(水) 15:40:49.16
Perlってなんすか？
0523デフォルトの名無しさん2013/02/06(水) 16:14:50.50
>>522
糞未満の救いようがないIT派遣ドカタが有り難がって使ってるマジもんの産廃
0524デフォルトの名無しさん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
0525デフォルトの名無しさん2013/02/06(水) 16:25:18.66
有料のレンタルサーバーをかりると、要望しなくても最初からPerlがつかえる。
0526デフォルトの名無しさん2013/02/06(水) 16:29:32.79
今日もキチガイしかいないようだ

煽ってるキチはひたすら煽ってるし
自己顕示欲を満たしたいキチは嘘を含んだ場当たり的な回答してるし
ブログと2chの区別が付かないキチは好き勝手に書き込んでるし

まさにカオス
0527デフォルトの名無しさん2013/02/06(水) 16:41:57.70
>>522
コンパイラではなくインタープリッターで実行する言語です。
処理を実行するために、
Cとことなり、Perlは、毎回プログラム（スクリプトともいう）のテキストをよみます。
0528デフォルトの名無しさん2013/02/06(水) 16:56:30.53
Perlは、大文字と小文字を区別します。
0529デフォルトの名無しさん2013/02/06(水) 17:14:01.46
>>522
正規表現を勉強するとき「Perlの正規表現」がでてきますよ。Perlの正規表現は、豊富です。

「POSIXとは異なり、Perlでは最長マッチを行うか指定できる」
正規表現（せいきひょうげん、regular expression）
- Wikipedia
0530デフォルトの名無しさん2013/02/06(水) 17:39:05.72
未だに情報源としてWikipediaを出してくる情弱がいることに驚きｗ
0531デフォルトの名無しさん2013/02/06(水) 17:44:49.98
Wikiにリンクがあるから、ここでリンクしなくていい。
だから、サーバにもブラウザにもやさしい
0532デフォルトの名無しさん2013/02/06(水) 17:54:46.38
Perl使ってる奴にはこんなレベルの奴しかいないんだよ
0533デフォルトの名無しさん2013/02/06(水) 18:22:19.49
回答にけちをつけないで質問に回答してください
0534デフォルトの名無しさん2013/02/06(水) 18:28:53.09
>>522
言語としてのPerl
処理系はperl
- Wikipedia
0535デフォルトの名無しさん2013/02/06(水) 18:29:58.80
WindowsでCPANどうやるの
0536デフォルトの名無しさん2013/02/06(水) 18:51:38.74
>>535
馬鹿には無理
お前みたいな低知能じゃ一人でできないって理解できただろ？
消えろ
0537デフォルトの名無しさん2013/02/06(水) 19:03:35.36
>>535みたいなｱﾌｫを受け入れるからｽﾚの糞化が進んだんだろうな。
>>535がｽﾚを糞化させる目的でわざとｱﾌｫ質問を作って書き込んでるのかもしれんが。
0538デフォルトの名無しさん2013/02/06(水) 19:05:53.05
>>535
煽りは気にすんな

CPANトップ→Binaries→Windows→x86行って
最新版をインストールすればおｋ
コマンドラインでの操作はLinuxと同じ
0539デフォルトの名無しさん2013/02/06(水) 19:45:05.96
自己顕示欲を満たしたいだけの無能↑
0540デフォルトの名無しさん2013/02/06(水) 20:23:28.66
腹PAN
0541デフォルトの名無しさん2013/02/07(木) 02:19:56.56
基地害の隔離スレ
0542デフォルトの名無しさん2013/02/07(木) 08:10:39.14
CGIは普通のPerlと何が違うの
0543デフォルトの名無しさん2013/02/07(木) 09:57:16.06
.cgiのプログラムは、サーバにあるperlで実行される。
.plのプログラムは、
サーバではなくクライアント（ローカルマシン、端末）のperlで実行（テスト）される。
0544デフォルトの名無しさん2013/02/07(木) 12:42:16.27
>>1も読めないゴミに回答するゴミ
0545デフォルトの名無しさん2013/02/07(木) 13:20:34.66
だからここは>>1を守る必要もなければスレ違いもないんだよ。池沼の隔離スレにルールは不要。
0546デフォルトの名無しさん2013/02/07(木) 14:25:56.41
>>543
何と申しますか…ﾍｯﾍｯﾍｯ
0547デフォルトの名無しさん2013/02/07(木) 14:30:54.69
CGIはWebサーバのクライアントのソケットと標準入出力をつないで
環境変数を設定してプログラムを起動する「仕組み」だろ？ｗ
0548デフォルトの名無しさん2013/02/07(木) 14:33:10.34
CでもFORTRANでもアセンブラでも、CGIは書ける。
0549デフォルトの名無しさん2013/02/07(木) 15:49:52.49
CGIを書いたと言って差し出してきたものは
すべてがCGIから起動されるプログラムでしかなかった。
0550デフォルトの名無しさん2013/02/07(木) 16:12:26.01
>>549
文系？
今はそういう話をしてるんじゃあないの
0551デフォルトの名無しさん2013/02/07(木) 16:12:43.24
本当にちょっとしたものならシェルスクリプトでCGI書いてる
0552デフォルトの名無しさん2013/02/07(木) 16:24:23.78
>>550
お前は単に否定したいだけだろゴミ
どういう話をしてるのかの説明もしようとしないで否定するだけ

まさにゴミｗ
0553デフォルトの名無しさん2013/02/07(木) 16:30:17.57
> お前は単に否定したいだけだろゴミ
常日頃お前がやってることだろうが山猿
0554デフォルトの名無しさん2013/02/07(木) 16:37:37.99
>> お前は単に否定したいだけだろゴミ
>常日頃お前がやってることだろうが山猿
そんなことしたことないんだけどどうやってそういう判断下したの？
まさか妄想じゃないよね？
客観的な根拠もないならそれ妄想癖だから病院に行ったほうがいいよ
0555デフォルトの名無しさん2013/02/07(木) 16:37:55.69
>>553
それは山猿に失礼ですよ
山猿のほうが、>>552よりずっと知能も高いし語彙も多いし秩序もある
0556デフォルトの名無しさん2013/02/07(木) 16:46:42.72
いっつも同じように罵るだけでユーモアが感じられないんだよなあ
0557デフォルトの名無しさん2013/02/07(木) 16:49:02.48
そう。コピペ馬鹿と同じレベル。
0558デフォルトの名無しさん2013/02/07(木) 17:17:51.48
昼間から書き込みしてるニート同士の小競り合い
ハロワ行けお前ら
0559デフォルトの名無しさん2013/02/07(木) 17:22:38.23
>>543-557
偉そうなこと言ってもニートはニート
0560デフォルトの名無しさん2013/02/07(木) 17:23:07.52
perlきも
0561デフォルトの名無しさん2013/02/07(木) 17:29:35.69
ゴミしか言えない単細胞じゃ
学校授業レベルのスクリプトにも劣るわな
0562デフォルトの名無しさん2013/02/07(木) 17:30:18.16
ゴミゴミゴミゴミ
0563デフォルトの名無しさん2013/02/07(木) 17:36:17.53
ゴミ厨の特徴
フルボッコされるといつもしばらく間を置いて
>>558-560のように別人を装って出てくる
これでリセットできたつもりｗ
0564デフォルトの名無しさん2013/02/07(木) 17:43:40.64
なるほど、Perlやってると自分にとって都合の悪い相手は全部一人に見えるのかｗ
0565デフォルトの名無しさん2013/02/07(木) 17:52:37.33
>>561
え、お前ゴミを指すのに毎回表現変えてんの？
すっげー！

「明日は金曜日だからゴミ出さなきゃ」
「おいゴミ箱からゴミ引っ張り出して散らかしたのは誰だよ」
「ゴミはそこらに投げ捨てるなよ」
「ゴミが溢れてるぞ」

ゴミはゴミとしか表現しないわ
0566デフォルトの名無しさん2013/02/07(木) 17:57:04.20
所詮はニートのスレ
0567デフォルトの名無しさん2013/02/07(木) 18:47:32.92
ニートじゃないだろ
キチガイ派遣ITドカタが業務中にきいてんだろ
0568デフォルトの名無しさん2013/02/07(木) 19:00:18.26
Ｐｅｒｌ使えても就職先なんてないからニートになるんだろｗだっせｗｗしかもニートなうえに２ｃｈで煽り合いｗｗｗｗ
ＰＨＰなら就職先いくらでもあるのにｗｗｗｗうえっうえっｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0569デフォルトの名無しさん2013/02/07(木) 19:49:09.38
　　 　　　　　　　　　　　　　　　　　　 ／＼
　　　 　 　　　　　　　　 ┌─── ／(^p^)＼←────────────────┐
　　　 　 てんすの恵み│　　 　／　てんす　＼←────┐たかしちゃんは天使 　 .│
　　　 　 　　　　　　　　 └→ ／￣￣￣￣￣￣＼ 　　　　　 │（補助金うめえｗｗｗｗ） │
　　 　　 　　　 　　　　　　　／　　　　(＾o＾)　　　 　＼───┘　　　　　　　　　　　　　 　献
　　　 　 　　　　　　　　　／　　　　　保護者　　　　　＼ 　　　　　　　　　　　　　　　　　 　上
　　　 　 　　　　　　　 ／　　　 　　　　　　　　　　　　　 .＼　　　　　　　　　　　　　　　　 　.│
　　　 　 　　 　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣ ＼ ────────┐　　 ..│
　　　 　 　　　　　／ 　　　　　　　 　擁護団体　　　　　　　.＼　　　　　 　　　　　 │　　 　|
　　　 　　　　　／　　　　　　　　　　　　　　　　　　　　　　 　　 ＼　　　 　　　　　 ..├──┘
　　 　　　　　／ ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ ＼ 　　　 　　　 　 |
　 　　　　　／　　　　　　　　　　　　　健常者　　　　　　　　　　　 　＼ .────┘
　　　　　／　　　　　　　　　　　　 　　（奴隷）　　　　　　　　　　　　　 ＼
　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
0570デフォルトの名無しさん2013/02/07(木) 21:31:41.29
>>564
一人なんだから一人に見えて当然
0571デフォルトの名無しさん2013/02/07(木) 21:46:01.94
一人に見えるんだから一人に見えて当然
0572デフォルトの名無しさん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 ;
0573デフォルトの名無しさん2013/02/07(木) 22:15:41.51
仕事がなくて余程暇なんだな
0574デフォルトの名無しさん2013/02/08(金) 00:10:39.73
きちがいは病気ではなくて個性だから直そうと思ってはいけない。
決して直ることはない。
0575デフォルトの名無しさん2013/02/10(日) 03:38:31.85
子どもの頃の話。

子どもの頃、僕は２階建ての借家にすんでいた。
母親も仕事をしていたので、学校から帰っても自分一人のことが多かった。
ある日、夕方遅く学校から帰ってくると、家の中が暗い。
「おかあさ〜ん」と呼ぶと、２階からか小さな声で「はあ〜い」と
応える声がする。もういっかい呼ぶとまた「はあ〜い」。
自分を呼んでいるような気がして、２階へあがる。
階段をあがったところでまた母を呼ぶと、奥の部屋から「はあ〜い」と声がする。
奇妙な胸騒ぎと、いっこくも母に会いたいのとで、奥の部屋へゆっくりと
近づいていく。
そのとき、下で玄関を開ける音がする。母親があわただしく買い物袋をさげて
帰ってきた。「しゅんすけ、帰ってる〜？」明るい声で僕を呼んでいる。
僕はすっかり元気を取り戻して、階段を駆け下りていく。
そのとき、ふと奥の部屋に目をやる。
奥の部屋のドアがキキキとわずかに動いた。
僕は一瞬、ドアのすきまに奇妙なものを見た。
こっちを見ている白い人間の顔だった。
0576デフォルトの名無しさん2013/02/10(日) 06:07:49.92
>>575
普通に泥棒だろ。それ。
0577デフォルトの名無しさん2013/02/10(日) 06:28:04.34
>>576
泥棒だったらいちいち返事しないだろ
0578デフォルトの名無しさん2013/02/10(日) 12:30:54.98
>>577
おかあさ〜んって呼ばれて、存在に気づかれたと思い適当に返事したとか。
猫の鳴く真似するような物で。
0579デフォルトの名無しさん2013/02/10(日) 12:31:46.08
Perlの質問すると荒らすヤツがいるのに雑談は何も言わない。
質問して叩くヤツは本当、ただの荒らしだな
0580デフォルトの名無しさん2013/02/10(日) 13:11:21.20
配列と連想配列を引数として渡す場合は
&amp;func(\@array,\%hash);
でいいんでしょうか？
それと受け取る側は
@$array、@$hash{$key}でいいのかな？
0581デフォルトの名無しさん2013/02/10(日) 13:15:20.87
消えろ
0582デフォルトの名無しさん2013/02/10(日) 13:55:25.99
>>579
Perlすらまともに使えずクビになったことへの逆恨み

である確立は99.9%
0583デフォルトの名無しさん2013/02/10(日) 13:57:37.85
>>580
受け取りは、@_に入ってる
@{$_[0]} と、%{$_[1]}って感じで、$_[0]->[0] とか、$_[1]->{$key}のように参照。
ってか、適当に荒らせば返事がくるって風潮をなんとかしろよ・・・・
0584デフォルトの名無しさん2013/02/10(日) 14:21:11.11
これだからドカタは
0585デフォルトの名無しさん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]} ;
}


・・さて俺も叩かれるのかな
0586デフォルトの名無しさん2013/02/10(日) 15:02:43.12
こういう状況で張り切って答える馬鹿がいるんだよな。

そういう奴に限って実社会では役に立たないクズで、
しかも空気読めなくて周りから嫌われるタイプ。
0587デフォルトの名無しさん2013/02/10(日) 15:17:02.08
>>586
雑談＞質問の答え　という時点でお前はただの荒らし
0588デフォルトの名無しさん2013/02/10(日) 15:34:56.83
>>586は
「Perlすらまともに使えず実社会からつまみ出された負け犬」
0589デフォルトの名無しさん2013/02/10(日) 16:06:07.44
荒らしをスルーせずに荒らし荒らしと言ってる池沼もグルだろう。
そういう池沼共は荒らしかどうかは実際には問題じゃなく
そうやってスレを消費しつつ雰囲気を悪くするのが目的。

その証拠に質問への回答より先に荒らしにレスしている。
分かりやすすぎ。
0590デフォルトの名無しさん2013/02/10(日) 16:10:40.82
>>589
>>589
0591デフォルトの名無しさん2013/02/10(日) 17:44:24.71
このスレは質問したあと自演で荒らせばヴァカが張り切って答えてくれるからなｗ

ヴァカの行動は単純だからこっちも考えずに単純に荒らせばいいｗ
0592デフォルトの名無しさん2013/02/10(日) 19:54:25.14
>>568
まだまだ掲示板やSNSはperlが現役で使われている
perlができれば就職先は結構ある
0593デフォルトの名無しさん2013/02/10(日) 20:46:38.01
じゃあ何でこのスレは平日昼間から伸びるの？
業務中に2chで遊び放題の糞企業なの？
0594デフォルトの名無しさん2013/02/10(日) 20:51:34.67
そりゃ俺様が開発した高水準の自動書き込みツールで
おまいらのていのーな書き込みに自動応答してるからさ。

もちろんperl製だよ
0595デフォルトの名無しさん2013/02/10(日) 21:05:44.22
すっげええええええええええええええええええええええええ！！！
スーパープログラマーだ！！！！！！！
0596デフォルトの名無しさん2013/02/10(日) 22:48:57.55
まぁ今日は日曜日だけどな。
0597デフォルトの名無しさん2013/02/11(月) 01:33:44.39
別に高水準ってほどでもないよーな…まあ、それ作る時間があれば別のことやるけどさ
0598デフォルトの名無しさん2013/02/11(月) 05:28:33.79
初心者ですが質問です。

今ドラゴニックで育てているのですが、育成指針で悩んでいます。
そろそろ育成指針に合わせて装備を絞り混まなければならないようです。

クリ特化ならソケットはタカ50P、呪文50P、デュナミス＋司祭征服セット、でしょうし
属性特化ならソケットは40Pずつ全属性、メタトロン＋祝福シュゼ、覇王、だと思うのですが、
お金もかかる話なので少しずつ揃えていくことになりますが、最初にちゃんと決めておかないと迷走しそうです。
よろしくお願いします。
0599デフォルトの名無しさん2013/02/11(月) 06:44:17.55
こちらこそよろしくお願い島s。
0600デフォルトの名無しさん2013/02/11(月) 22:55:20.65
結局クリ特化と属性特化どっちがいいんですかね？
0601デフォルトの名無しさん2013/02/12(火) 17:49:46.49
両方でいいよ
0602デフォルトの名無しさん2013/02/13(水) 19:03:39.38
初心者ですが質問します
今やっているMMORPGが、プレイ中によく強制終了します
移動するマップにもよりますが、平均30分に1回くらい落ちます
もう1年以上続いていて、運営会社も原因究明にあたっているようですが未だに直りません
むしろアップデートがあるだびに悪化しているような気がします
しょっちゅう落ちるのでストレスもたまりまくりです
そこで、Perlを使って落ちないようにするプログラムの作り方を教えてください
落ちかけたら強制的に落ちないようにするのが理想ですが
他にもっと良いやり方があればそれで構いません
0603デフォルトの名無しさん2013/02/13(水) 20:21:17.61
笑
0604デフォルトの名無しさん2013/02/13(水) 20:28:48.60
perlみたいなゴミ言語には無理
0605デフォルトの名無しさん2013/02/13(水) 20:35:57.66
>>602
バカには無理
0606デフォルトの名無しさん2013/02/13(水) 23:29:24.33
eval {　} で囲んで、if ($@) {　} で受ける。
0607デフォルトの名無しさん2013/02/13(水) 23:32:18.76
すまん、誤爆。
06086022013/02/15(金) 01:47:42.29
回答はまだでしょうか

Perlは糞言語だから何もできないって言ってる人がいますが
やっぱり本当なのでしょうか
0609デフォルトの名無しさん2013/02/15(金) 08:33:03.04
×　糞言語
○　602の脳味噌が糞
0610デフォルトの名無しさん2013/02/15(金) 10:16:44.36
>>608=602
いつものゴミ厨が化けて燃料投下してるんだろ？
誰がまともに相手するかよ
0611デフォルトの名無しさん2013/02/15(金) 13:33:15.64
知識もスキルもなくて答えられないけどプライドだけは一人前なので
ゴミ厨レッテルを貼って答えられないのではなく答える必要がないアピールをしてみました
0612デフォルトの名無しさん2013/02/15(金) 13:44:56.66
おまえにはむり
0613デフォルトの名無しさん2013/02/15(金) 13:54:09.11
きも
0614デフォルトの名無しさん2013/02/15(金) 13:58:12.72
>>612
お前どうせ2ch風低機能掲示板くらいしか作れないだろ？
無理すんなって。
0615デフォルトの名無しさん2013/02/15(金) 14:32:30.45
２ちゃんねるなんか廃止するべき
管理されない掲示板は禁止
0616デフォルトの名無しさん2013/02/15(金) 17:50:11.85
構ってちゃんじゃあるまいし掲示板なんて作る必要ねえんだがw
俺は俺にとって必要な自動化に必要となるもの作るだけ
0617デフォルトの名無しさん2013/02/15(金) 18:06:28.69
うるさいゴミ
0618デフォルトの名無しさん2013/02/15(金) 20:38:38.68
>>608
>>605
0619デフォルトの名無しさん2013/02/15(金) 20:53:45.26
このスレの住人には無理みたいだからつまりバｋ（ｒｙ
0620デフォルトの名無しさん2013/02/15(金) 21:30:47.08
MMORPGときいても、ぴんとこないから、回答がないんだろう
0621デフォルトの名無しさん2013/02/15(金) 21:32:29.30
MMORPGなんてみんなやってるのにピンとこないわけがなかろう
0622デフォルトの名無しさん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.
- Ｗｉｋｉｐｅｄｉａ
0623デフォルトの名無しさん2013/02/15(金) 22:25:54.26
ほらまたWikipediaを辞書か何かと勘違いした雑魚が来ちゃったよ。
0624デフォルトの名無しさん2013/02/15(金) 22:40:20.25
>>623
おまえだろ、新スレたてたの
削除依頼だせよ
0625デフォルトの名無しさん2013/02/15(金) 22:41:13.76
MMORPGなんてやってないのに、わかるわけないだろ
0626デフォルトの名無しさん2013/02/15(金) 23:01:25.67
http://toro.2ch.net/test/read.cgi/tech/1360934934/
0627デフォルトの名無しさん2013/02/15(金) 23:39:38.19
>>624←こいつ絶対妄想癖あり
0628デフォルトの名無しさん2013/02/16(土) 02:38:26.78
このスレなんか雰囲気がキモい
06296022013/02/16(土) 05:09:56.72
昨日も昼の12時から夜中の24時までの間に17回落ちました

升をしたいわけではなくて原因不明の強制終了を回避したいだけです
OSが32bitなら落ちにくいとか、XPなら落ちにくいとか、GeForceの8500番台なら落ちにくいとか
色々な風説がありますが、それでもよく落ちるという話なので眉唾物です

落ちるときは何やってても落ちます
IDの中でもインベントリを開いてもNPCをクリックしても落ちます
ロード画面が異常に長いなと思ったらフリーズしてたりします

これを落ちないようにするプログラムをPerlで作りたいと思っています
怪盗をお待ちしております
0630デフォルトの名無しさん2013/02/16(土) 09:56:44.64
明日の午前零時、貴殿の大切なモノ、貰い受けます
〜怪盗Perl〜
0631デフォルトの名無しさん2013/02/16(土) 10:03:04.19
@aに1から10までの数がランダムに入っているとする
これを順に取り出していって、合計が100を超えない最大の固まりごとに
出力したい

エレガントに書くと、どんな感じ?
0632デフォルトの名無しさん2013/02/16(土) 10:24:34.07
＞エレガント
こういう曖昧な基準を持ち出してくる精神異常うざい。
マジで糞だろこいつ。
0633デフォルトの名無しさん2013/02/16(土) 10:46:05.92
こうか？

my @result;
my $sum;
for (@a) {
next if (($sum += $_) < 100);
push (@result, ($snum -= $_));
$sum = $_;
}
0634デフォルトの名無しさん2013/02/16(土) 10:48:30.18
あぁ、ピッタリ100の時ダメだからこうだな
my @result;
my $sum;
for (@a) {
next if (($sum += $_) <= 100);
push (@result, ($snum -= $_));
$sum = $_;
}
0635デフォルトの名無しさん2013/02/16(土) 10:52:15.13
>>631
> これを順に取り出していって、合計が100を超えない最大の固まりごとに
> 出力したい
ここがどういうことがよくわからないんだけどｋｗｓｋ
@aの頭から最後まで足し合わせた後、また頭の要素から取り出すのかな。
100を超えない最大の固まりができたら、その次の位置からスタート？

あと、どうでもいいかもだけど、
Perlで$aと$bという変数は特殊変数として使われることがあるから、
気をつけて
0636デフォルトの名無しさん2013/02/16(土) 12:11:01.51
>>634
固まり1個だけ出して終わってしまうような
100を超えるかどうか取り出してみて、超えてたから次の固まりに回す、
というあたりの処理が厄介な部分なのに

普通に考えると、shiftで配列を削っていって、
削り過ぎたらunshiftで戻しとく、というのが自然だけど、
そんなことしなくてもいいようなエレガントな方法はないかなと
0637デフォルトの名無しさん2013/02/16(土) 12:19:27.77
>>636
え？実際動かしてみた？
0638デフォルトの名無しさん2013/02/16(土) 12:20:43.18
＞エレガント
こういう曖昧な基準を持ち出してくる精神異常うざい。
マジで糞だろこいつ。
0639デフォルトの名無しさん2013/02/16(土) 12:32:24.57
ああ、固まり=合計と解釈したのね
じゃなくて、配列のままでないと
あと、半端な残りが捨てられている
0640デフォルトの名無しさん2013/02/16(土) 12:47:22.80
問題文もクソじゃねーか
なーにが
>解釈したのね
だ
上から目線のアホは消えろよ
てめーの言うことがアホだから通じてねぇんダロｋｓ
0641デフォルトの名無しさん2013/02/16(土) 12:50:35.11
>>639
１から１０までの答えを求めるなよ
あれから改造できるだろ。
半端が捨てられるって、$sumにあるだろ、
ループ抜けた後に $sum 使えばいい
0642デフォルトの名無しさん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];
    };
}
0643デフォルトの名無しさん2013/02/16(土) 13:04:51.21
意味がわからんので
具体例で書いてくれ
0644デフォルトの名無しさん2013/02/16(土) 13:09:36.66
よくこんなコード晒して恥ずかしくないな

こんなコード書いてる奴が何かシステム作ってるかと思うと恐怖だな
0645デフォルトの名無しさん2013/02/16(土) 13:16:18.57
>>643
http://ideone.com/JejpCW
0646デフォルトの名無しさん2013/02/16(土) 13:19:12.08
>>639
荒らしたいだけだろゴミ
0647デフォルトの名無しさん2013/02/16(土) 13:45:13.47
なるほどなー
取り出さずにインデックスで見れば戻す必要がないという点と、
インデックスを安全に保持させる為に関数化してしまうのは参考になる

再利用とかまで考えるとこう書くのがいいんだろうけど、
大仰過ぎるというか、なんかエレガントと違う
関数化してるから万能そうに見えて、@aに追加があっても対応できないし

変数で初期化して、作った関数は即座に使って終わり、というのは
オブジェクト指向脳ではごく自然なんだろうな
0648デフォルトの名無しさん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 = $_;
}
}
0649デフォルトの名無しさん2013/02/16(土) 14:00:26.17
そもそも質問者は荒らしたいだけだからね
0650デフォルトの名無しさん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を実装する前に
既存のモジュールでこのようなことが出来るものがないか探す工程を入れるけど。
0651デフォルトの名無しさん2013/02/16(土) 14:36:24.43
グダグダと小出しにして
結局は断罪やらヘイトをやりたいだけのｋｓかよ
消えろアホ
06526502013/02/16(土) 14:37:25.90
念の為に言っておくけど、俺出題者じゃないからな
この話題で初めて書いたのが>>650だからな。
0653デフォルトの名無しさん2013/02/16(土) 14:38:39.06
>>631で質問を出して
>>650で自分の言わんとすることをようやくブチあげる。

完璧なマッチポンプで、>>649の言う通りに
質問者は荒らしたいだけ。

そのくっだらねーオナニーに付き合わされたのが間に挟んでマジメにこたえようとしたアホ
0654デフォルトの名無しさん2013/02/16(土) 14:40:26.18
>>653
必死だなｗ
技術者なら陰謀論の話ではなく
コードの話をしろよ。
0655デフォルトの名無しさん2013/02/16(土) 14:42:40.53
最初っから
> あぐらをかいて、自分で関数を作らない
> お前ら。
とか煽る気マンマンじゃん

こりゃ仕込みだよ
新聞社が良くやるえげつない手法さ

そしてbatch_shiftとか
ぼくのかんがえたかんすう
とかを持ち上げる、
しかもそれはできてない、

こりゃ最初から最後まで嵐の仕業だｗｗ
0656デフォルトの名無しさん2013/02/16(土) 14:45:02.82
コードの話しろよ（苦笑）
0657デフォルトの名無しさん2013/02/16(土) 14:45:04.31
>>650は質問者なのか？
リストを破壊していいとか、後出しすぎるわ。
0658デフォルトの名無しさん2013/02/16(土) 14:45:48.58
え？ 何も言っていない＝何やってもいいだろ？
06596502013/02/16(土) 14:46:25.50
破壊したくなければ@listを@tmpにでも入れればいいだけ。
どっちでも簡単。
0660デフォルトの名無しさん2013/02/16(土) 14:46:41.49
>>650
俺は、同じ処理を何度もするから関数にするという考えであって、
スマートに見えるからと抽象化のみ目的に関数にするのは間違いだと俺は思う。
逆にソースの見通しを悪くする。
ってか、別にそんなトリッキーな事してねーだろ普通だ普通。
0661デフォルトの名無しさん2013/02/16(土) 14:48:00.88
詐欺師がまだなんかポポポポとか言ってんのか

お前らはダメだとか
限界だとか
他人のおこぼれだとか
ついでにいろいろとバカにされてんぞｗｗｗ
0662デフォルトの名無しさん2013/02/16(土) 14:51:48.87
>>631でこれ見よがしなエサ出しといて
>>650で「お前らダメだな関数作れよ」とか言いたいだけのｋｓだ
0663デフォルトの名無しさん2013/02/16(土) 15:05:08.97
> 100を超えない最大の固まり
とか言ってるヤツはやっぱり荒らしか

最初からコレだ
言い方が曖昧だモンこれ
はぐらかす気しかねェ
出てきたコード全部に違うとか言えるじゃん
0664デフォルトの名無しさん2013/02/16(土) 15:29:48.85
アプローチが違うだけで、みんな正攻法なんだよな

そういう手があったか、と膝を打つようなアイディアが無いものかと思ったけど、
結論としては無いということらしい

こういうよくあるちょっと厄介な問題に対して、
perlはうまい回避法を用意してくれてることが多いけど、
この場合は多分unshiftで逃げろ、というのがそれなんだろうな
0665デフォルトの名無しさん2013/02/16(土) 15:31:48.94
>>664
それの方がありえねーだろ
ちょっとお前が作ったソース見せてみ？
0666デフォルトの名無しさん2013/02/16(土) 15:45:51.88
自己顕示欲を満たしたいだけの馬鹿が必死で回答ｗ
別所でヲチされて笑われても知らずにｗ
0667デフォルトの名無しさん2013/02/16(土) 15:48:57.03
るの
0668デフォルトの名無しさん2013/02/16(土) 15:49:55.85
お前らTMTOWTDIがあることを忘れるな
0669デフォルトの名無しさん2013/02/16(土) 15:55:56.81
>>666
いいからソース見せてみろって
口だけの人に見せられないような糞ソースなのはわかってるから見せてみ？
0670デフォルトの名無しさん2013/02/16(土) 15:57:10.95
すんません、コードはあげれませんｗ

> batch_shift の実装ぐらい省略していいよな？
> まあ、俺はここまで考えてから、batch_shiftを実装する前に
> 既存のモジュールでこのようなことが出来るものがないか探す工程を入れるけど。

って書いたじゃないスかｗｗｗ

こんなくっさい場所にオレのコードなんかあげませんよ（笑）
0671デフォルトの名無しさん2013/02/16(土) 16:03:19.62
本人たちは至極真面目に議論してるつもりらしいが半年前と比べると質が異常に落ちてるな。

まともに議論してた人たちはどこ行った？
0672デフォルトの名無しさん2013/02/16(土) 16:10:07.03
>>671
返す言葉もコードもなくなったから
そろそろ敗北宣言の意味不明の戯言か？
妄想も大概にしとけよ低能
0673デフォルトの名無しさん2013/02/16(土) 16:10:34.82
今はただの基地害隔離すれですから
0674デフォルトの名無しさん2013/02/16(土) 16:15:19.53
>>672
0675デフォルトの名無しさん2013/02/16(土) 16:19:28.13
>>672
エレガントとか認識に固体差がある釣り質問に何ムキになってんの？亞汰魔がおかしいの？

開発効率
実行効率
保守性
拡張性
安全性

で語れずにエレガントとか言ってるゴミは自己満足以外の何物でもない
自己満足はブログだけにしとけよゴミが
0676デフォルトの名無しさん2013/02/16(土) 16:54:39.92
コアのアルゴリズム自体の話だからな
良いアルゴリズムを採用したせいで保守性が落ちるとか、そんなことにはならない訳で
単に話の次元が違うだけ
0677デフォルトの名無しさん2013/02/16(土) 17:18:07.16
>>660
> 俺は、同じ処理を何度もするから関数にするという考えであって、

へ？ 初期化処理をinit関数に分けないの？
チェック処理をチェック関数に分けないの？

一度しか使わなくても、それがある処理の固まりになっているのなら
関数にするべきだよ。それをしないでほかの処理と混ぜたら
スコープごっちゃまぜになるし、処理を分離しづらくなるだけ。

ここからここまでは○○の処理って、コメント書くくらいなら関数にするべき。

まあ、がんばって。その程度ならまだ若いでしょ？
0678デフォルトの名無しさん2013/02/16(土) 17:59:10.11
それはどうかな
0679デフォルトの名無しさん2013/02/16(土) 20:07:53.17
>>677
どんな作りしてるんだろう・・・
１つのファイルで巨大な物作ってるんだろうなぁ〜
まるでケントスクリプトのようなのを予想する。

スコープごちゃごちゃなんてありえない。
お前はじじぃだろ、perl4時代のような作りをしていると思う。
0680デフォルトの名無しさん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関数に全部展開するんだろ？
0681デフォルトの名無しさん2013/02/16(土) 20:18:01.38
>>680
はぁ・・・お前がアフォだ。
アフォというか古いよ老害。
うちの会社の昔のオッサンが作ったような作りだ。
他の保守する人間が、
その「長くて複雑なデータ読み込み」でなんなのかわかるとでも思ってるのか
どれだけ「長くて複雑なデータ」読み込んでるんだよ
必要な時に必要なだけ読み込むよう作れよ

絶対お前のソースは俺がみたら大半を作り変える事になるわ
0682デフォルトの名無しさん2013/02/16(土) 20:21:07.80
>>681
焦点がずれてる。

お前は一回しか使わない関数は
作らないって言ってるんだろ？

じゃあ一回しか行わない処理は
なんて関数に入れるんだよ？

関数に入れないつもりか？
0683デフォルトの名無しさん2013/02/16(土) 20:24:28.47
>>681
お前が何に対して文句言ってるのかさっぱりわからない。

1度しかやらない処理は関数にしない（というお前の主張）の話じゃないの？
0684デフォルトの名無しさん2013/02/16(土) 20:25:56.02
>>682
そうか「１度しか使わない関数は作らない」ってのでは語弊があった。
たとえば分岐で処理変えたりする時は１度の呼び出しだけど関数にする事はよくある

けど、分岐やらではなく、
ただ処理が長くなるからって関数に分けるような事はまずしない
なぜなら、その長くなる、複雑になるっていってる処理が、
今その場所でのメイン処理なのだから。別に分ければ逆に見通しが悪くなる
0685デフォルトの名無しさん2013/02/16(土) 20:26:52.46
「長くて複雑なデータ読み込み」でわからないから
わかりやすい関数名にするわけだろ。

それた例え一回しか使われない関数でもな。

違う？
0686デフォルトの名無しさん2013/02/16(土) 20:28:41.78
文体だけで低脳とすぐ分かる>>681みたいな奴は
まともに相手しても意味なし。
0687デフォルトの名無しさん2013/02/16(土) 20:30:51.69
>>684
あーお前が言ってるのは

100行あるコードを長いからって
前50行、後ろ50行に単純分割するって話だろ。

馬鹿だ。誰もそんな話はしていない。


コードが長くなれば見通しが悪くなる。
たいていは分岐やループが増え、コードが複雑になる。

だから論理的に意味がある固まりを見つけ
その部分を（例え1回しか使わない関数になったとしても）
抜き出せって言ってるんだよ。
そうすりゃ複雑度は下がるだろ。
0688デフォルトの名無しさん2013/02/16(土) 20:34:16.61
いったいみんなどんな作りしてるんだ・・・？？
１つ見せてほしい所だけど、まぁ無理だろうな
>>686のような何の意見でもない荒らしが出てきたので、
この辺でやめるわ
0689デフォルトの名無しさん2013/02/16(土) 20:35:18.80
>>688
お前が見せろってｗ

>>680をお前はどう修正するんだ？
修正したいんだろ？
0690デフォルトの名無しさん2013/02/16(土) 20:36:02.76
昔、長いソースを100行ずつ物理的にぶった切って
それらをincludeで並べ、「ハイモジュール分割しました〜!!」と
得意そうに見せに来た新人を思い出した。
多分そんな類の思考回路だなｗ
0691デフォルトの名無しさん2013/02/16(土) 20:37:06.26
>>690
まああれだ。

類は友を呼ぶ的な感じで、
>>688の周りにはそんな奴らしかいないから
ここで話してるのも、その話だと思っちゃったんだろｗ

誰が単純分割しろって言ったよ？ｗ
0692デフォルトの名無しさん2013/02/16(土) 20:38:48.74
>>689
その長い処理うんぬんのソースあるなら見せてくれ
修正してみせる。
ってか、あんな抽象的な書き込みで何をどうしろというんだｗ

>>690
お前の会社そんな程度で入社できるのか・・・
程度の低い会社だなｗｗｗ
0693デフォルトの名無しさん2013/02/16(土) 20:43:16.40
>>692
なんで関数の中身が必要なんだ？
・・・で書けばいいだろ。

まあいいや。
read_data1(); はini形式に似たファイルからデータを呼び出す。
read_data2(); はxml形式に似たファイルからデータを呼び出す。
read_data3(); はデータベースからデータを呼び出す。

元々のデータストレージが違うから共通化は出来ない、
それをお前はどう直すんだ？
やっぱり具体的なコードがないと直せないのか？

直せるかどうかわからないのに
直せると言い切ったのか？
0694デフォルトの名無しさん2013/02/16(土) 20:44:23.05
あ、重要なことを言い忘れた。

それぞれのread_data?は一回しか使われない。

一回しか使われないから、それをお前は
mainに全部展開するっていうんだよな？
0695デフォルトの名無しさん2013/02/16(土) 20:45:18.03
> ってか、あんな抽象的な書き込みで何をどうしろというんだｗ

抽象的な書き込みみて、
「俺がどうにかしてやる」といったのが
お前なわけでｗ
0696デフォルトの名無しさん2013/02/16(土) 20:50:44.58
>>693
そんなので直せねーよ
そんな抽象的な会話で、どう答えるんだ・・・

my $val = &make_graph()；
これで表計算するんだけど関数展開したらどんななる？って聞かれているような物だろ

>>695
だから、実際そんなソースがあるなら見せろって言ってる。
本当頭痛い・・・マジになって話できない場所だな本当
0697デフォルトの名無しさん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に全部展開するのか？
0698デフォルトの名無しさん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関数を展開するのか？

それとも別々のパッケージなのに、必要もない依存関係を作る気か？
0699デフォルトの名無しさん2013/02/16(土) 21:10:49.76
>>697
いろいろ設定してお題を出してくれてるし何とか答えたいんだけど・・・
そうだなぁ・・
処理する内容にもよるけど・・・
本当に作り込むとなったら、パーサになる関数を作るだろうな。
なぜなら、それ１回だけの使用とならなさそうだから。
でも、今の設定の話でいくならば・・・

まず、iniもどきであっても、xmlもどきであっても、
１データずつ読み込みパースしながら処理する。

while (<$FH>) {
my ($val) = $_ =~ /<value>(.*?)</value>/;
....
}

こんな雰囲気か・・・？
データベースとかなら、事前にステートメントハンドル作って、
それでループ回す感じか・・・

こんなので答えになってるのか・・・
0700デフォルトの名無しさん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()は
消すってことになるわけだが、それでいいんだな？

念の為に言っておくが、俺の考えは、
「たとえ一回しか使われなくても、論理的に意味がある固まりになっていれば、その部分を関数に抜き出せ」だ
（複雑度が下がるから）
0701デフォルトの名無しさん2013/02/16(土) 21:16:01.54
>>699
> 本当に作り込むとなったら、パーサになる関数を作るだろうな。
> なぜなら、それ１回だけの使用とならなさそうだから。

>>700と被るが、仕様変更で
read_data2, read_data3が不要になりました。

1回だけの使用となってしまいました。

さてどうするｗ
0702デフォルトの名無しさん2013/02/16(土) 21:18:39.33
もうそろそろ、「一回しか使わないなら関数にしない」が
初心者を抜けだしたつもりの初心者の考えだって気づいたかな？
一回しか使わないなら（略 そんな基準はナンセンスだ。
0703デフォルトの名無しさん2013/02/16(土) 21:22:01.05
>>700
＞お前の「1回しか使われない関数は展開する」を守れば、このread_ini_modoki()は
＞消すってことになるわけだが、それでいいんだな？

いい訳ねーだろｗ
一回作った物を、わざわざ壊して展開してるとか普通に考えてありえないだろ。
それと、その時は１回の使用かもしれないけど後々は再利用するような物であるなら、
それは関数にするよ、そんなの当たり前。
そんな、ひねくれた事を俺は言ってるんじゃないんだけど・・・
ずっと上の方見たらわかると思うけど・・・
ただ単にごちゃごちゃするからって理由だけで関数にして抽象化するのは間違っていると俺は思うって話
0704デフォルトの名無しさん2013/02/16(土) 21:28:29.61
なんか、もう何を問われているのかわからなくなってきた・・・

>>680を見た時、必要もないデータを、
とにかくごちゃごちゃ読み込みまくる変な関数を作っているのかと思った
そりゃスコープもごちゃごちゃになるだろうなって感じ。
実際ソースがある方が話しやすいけど、そういうのもないしなぁ・・・
0705デフォルトの名無しさん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関数の中に
全部一緒くたにして書くってことだよな？
0706デフォルトの名無しさん2013/02/16(土) 21:32:49.35
そうだよ。一度聞けばわかるだろ、ばかが
0707デフォルトの名無しさん2013/02/16(土) 21:34:14.23
>>705
普通なら作るだろうな。
>>699で言ったように、その時１回だけ使用する関数とは思えないし。
後々有用となる物と考えるから関数として作る。
関数として作るけど、それは見やすくなるから〜なんて理由じゃないって話
0708デフォルトの名無しさん2013/02/16(土) 21:37:05.95
「単にごちゃごちゃするからって理由だけで関数にして抽象化する」
なんて一言も言っていない。

論理的に意味がある固まりに分離できるから
（1回しか使わなくても）分離すると言ってる。

コードを小さい単純な機能の関数の集まりにしておけば
複雑度が下がってシンプルになるからコードの理解も早く。
という理由で関数化して抽象化してるんだよ。俺はな。
0709デフォルトの名無しさん2013/02/16(土) 21:43:58.20
>>707
> 後々有用となる物と考えるから関数として作る。
後々有用となるかなんてわからんだろ。
将来のことは誰にもわからん。

そんな基準で関数を作っていくと、
有用にならないだろう
↓
関数にしない
↓
一つの関数に複数の独立した処理がどんどん追加されていく。
↓
気づけば関数の行数、数千行、どこからどこで何をしているのか
さっぱりわからない。

って状態になるぞ。

論理的に意味がある固まりを見つけられたら積極的に関数にしろ。
機能は単純であればあるほどいい。（それこそ再利用がしやすい）
0710デフォルトの名無しさん2013/02/16(土) 21:56:20.42
あとから共通の処理を抜き出すというのは
すごく大変な作業。

有用かどうか（＝今すぐ再利用できるか？）で考えていくと
必然的にコードはどんどん膨れ上がっていく。
なぜなら最初の一回目は、当然一回しか使われないからね。

あるコードの断片があって、論理的に意味があって分けられるはずなのに、
初めて使う＝一箇所だ。という理由でわけないでいると
そのコードの断片は、その周りのコードと絡み合うことになる。

そこから引き剥がすのはすごく大変なんだよ。
大変だからやらない。コピペする。悪循環ってやつだ。

関数の行数なんて、一画面、最大でも50〜100行程度だ。
そんなのあっという間に埋まる。だから積極的に関数にしても無駄にはならん。

一箇所でしか使ってなくても、論理的な意味で自然な形に関数にでき
それによってコードがシンプルになるのであれば何の問題もないだろ。
0711デフォルトの名無しさん2013/02/16(土) 22:03:09.42
ついさっき来たばかりだけど、えーと、
ルーチン処理の位置づけについてのハナシですか？
0712デフォルトの名無しさん2013/02/16(土) 22:07:08.73
サブルーチン　【subroutine】
プログラミングにおいて、コード中で何度も必要とされる定型的な処理を
一つのプログラムにまとめて外部から呼び出せるようにしたもの。
汎用性の高いコードをサブルーチンとして切り出すことにより、
似たようなコードを何度も記述する必要が無くなり、コード量の削減や開発効率の向上、
不具合発生率の低減などが見込める。

参照：http://e-words.jp/w/E382B5E38396E383ABE383BCE38381E383B3.html
0713デフォルトの名無しさん2013/02/16(土) 22:14:01.65
ついに辞書厨まで出てきたじゃねぇかｗｗｗ
0714デフォルトの名無しさん2013/02/16(土) 22:17:36.30
サブルーチンでもないものを無理してサブルーチンにするな。
無理をするからあとから読めなくなる。
自然体で書け、自然体で。

どうせ変な名前つけて訳わかんなくなるんだから。
0715デフォルトの名無しさん2013/02/16(土) 22:34:14.70
>>714
ちょっとでいいからJavaやってみな
0716デフォルトの名無しさん2013/02/16(土) 22:37:38.32
CODE COMPLETEを読むといいよ。

てか、テストをどうやって書いてるのか興味ある。
0717デフォルトの名無しさん2013/02/16(土) 22:42:41.34
臭男がテストなんかしてるわけねーよ
いつも書き散らしただけ
これならド素人にも楽勝だわ
0718デフォルトの名無しさん2013/02/16(土) 22:45:56.31
機能があると使わずにはいられないっていう上司がいて、よせばいいのに
コードを複雑にしてしまう。客から何度もクレームを受けてようやく５回目
でちゃんとしたものを完成。
引き継いだ俺はシンプルにしてやったさ。当然バグもなし。

なんつーか、予約語全部使い切らないと気が済まないような感じだったな。
まあ、個性だから直らないんだろうけどな。
0719デフォルトの名無しさん2013/02/16(土) 22:48:45.88
Javaより前のC++への反動でできたのがPerlだろ、そんなのと合わせてどうする
0720デフォルトの名無しさん2013/02/16(土) 22:51:25.75
ホントかよ
C++とかウソ八百じゃん
0721デフォルトの名無しさん2013/02/16(土) 23:00:47.07
Cで書くのは大変だからawkができて、
それが進化したのがperl
0722デフォルトの名無しさん2013/02/16(土) 23:57:59.56
プログラミングのことはよくわからないけど・・

沢山変数が出てきても頑張ればある程度は把握しきれるだろうけど、
人間だからいつか限界が来て行き詰まるハズ。

サブルーチンが「何度も記述しなくていいように〜」
ってなってるから「１回しか使わないなら要らない」って
意見が出るんだろうけど、１回しか使わないからと言って、
プログラムを整理することを怠っていると、
自分の把握限界を超えるような処理は書けなくなるし、
書いている時はわかっていても後から修正するときに、
思い出せなかったりすると思う。

「論理的に意味がある固まり」はちょっと難しい表現だと思ったけど、
「人間の言葉では簡潔に言えても、コードにすると融通がきかなくなって長くなる部分」
って言えば通じるんじゃないかな。(俺なりには

書き捨てだったら使わないで書いた方が早いだろうけど、
しっかり組み立てるには柔軟なルーチンワークを考えることにも
頭を使わなきゃいけない。

結局はTMTOWTDI、どう書こうが自由なんだろうけど。
長文失礼。
0723デフォルトの名無しさん2013/02/17(日) 00:04:27.59
本来、法則のないものに無理やり法則を見つけ出してしまう困ったひとがいる。
そういうひとは構造がないコードを目にしたときに無理やり構造を作ってしまう。例えばサブルーチン化だ。
必然性のないサブルーチンは後で読むと本人を含み誰もその意味を理解できない。

よく似たケースとして本来、フラグが必要ないところに
0724デフォルトの名無しさん2013/02/17(日) 00:07:41.90
作業変数の受け渡しが冗長になる時は
まあ関数化しなくてもいいかなと思う時はある
0725デフォルトの名無しさん2013/02/17(日) 00:21:03.80
サブルーチンにする必要がないが、ひと固まりにしておきたいのなら
ブロックにしておけばいい。もちろん無名だ。
その固まりをサブルーチンにしたくなった段階で sub とサブルーチン名
をつけてサブルーチンにする。
そのサブルーチンが値を返すようになったら、それは関数だ。
0726デフォルトの名無しさん2013/02/17(日) 00:22:40.08
で、サブルーチン野郎の結論は
関数にした方がいいということか。
0727デフォルトの名無しさん2013/02/17(日) 00:23:29.43
そのあたりのことは続・初めてのPerlに書かれているのでここでは繰り返さ
ない。
0728デフォルトの名無しさん2013/02/17(日) 00:25:59.54
エキスパートperlプログラミング―?知られざるperlの深層
0729デフォルトの名無しさん2013/02/17(日) 00:27:24.43
うん。だな。
さっきから適切な名前をつけて
関数にしろとしか言ってない。
0730デフォルトの名無しさん2013/02/17(日) 00:27:35.62
無意味なサブルーチンは作ると混乱するよ。そりゃあ
「人間にとって意味のある」サブルーチンを作るんだよ。
「コメントアウトで簡潔に説明できるような」って言っても良いかな。
0731デフォルトの名無しさん2013/02/17(日) 00:30:57.56
誰だよ、これからはオブジェクト指向の時代、Javaの時代だ、なんて言ってたのは
結局、関数指向プログラムなんじゃないか
0732デフォルトの名無しさん2013/02/17(日) 00:33:12.39
>>730
当たり前じゃね？

だから、論理的に意味がある固まりを見つけられたら積極的に関数にしろ。
ってあの人も言ってるわけで。

反論してた人は論破されたみたいねw
0733デフォルトの名無しさん2013/02/17(日) 00:36:07.83
>>731
オブジェクト指向と関数指向プログラムは相反しないぞ。

オブジェクトの中に関数（メソッド）がある。
0734デフォルトの名無しさん2013/02/17(日) 00:39:13.00
関数指向の関数はそういう意味じゃねーよ
0735デフォルトの名無しさん2013/02/17(日) 00:41:13.77
>>734
え？ 誰か正しい意味での
関数指向の話してたっけ？

てっきり、わかっていて、
普通の関数の話をしているのだと思ったが？
07367302013/02/17(日) 00:49:43.03
>>732
すまん。俺反論派じゃないぞ？
0737デフォルトの名無しさん2013/02/17(日) 00:54:19.82
え？何でも関数ってヤツの方がおかしいと思うけど？
0738デフォルトの名無しさん2013/02/17(日) 00:55:08.83
ほらまた、誰も言ってないことを言い出して
けむにまこうとしてるｗ
0739デフォルトの名無しさん2013/02/17(日) 00:59:25.62
>>735
はいはい
見なかったことにしてあげるから、そんなにいきり立たなくても
0740デフォルトの名無しさん2013/02/17(日) 01:00:11.21
>>731が見てて可哀想ｗ
0741デフォルトの名無しさん2013/02/17(日) 01:00:38.67
そしてエレガントバカは姿をくらましたのであった・・・
0742デフォルトの名無しさん2013/02/17(日) 01:04:03.05
>>741
それって、一回しか使わない関数は
関数にするべきではないと
言っていたヤツのこと？
07437302013/02/17(日) 01:07:47.40
>>742
こいつだろ→>>631
0744デフォルトの名無しさん2013/02/17(日) 01:08:05.23
>>636がエレガントバカ
0745デフォルトの名無しさん2013/02/17(日) 01:09:27.16
while(@list) {
　my $i = 0;
　my @results = batch_shift { ($i+=$_) <= 100 } \@list;
　# @resultsの固まりに処理をする
}
0746デフォルトの名無しさん2013/02/17(日) 01:14:14.95
jQueryにnextUntilとかいうメソッドがあるんだ。
特定の条件を満たすまで兄弟要素を抽出するという。

それを真似て batch_shift ではなくshift_untilという名前のもいいかと思った。
使い方はほぼ同じで、条件を満たすまでshiftする。
0747デフォルトの名無しさん2013/02/17(日) 01:14:55.68
良くも悪くも、仕事としてプログラム書いてる人ばっかりだからね
アルゴリズムの発想とか、そんなのとは無縁なところにいる
保守性とか可読性とかそういうつまらない部分にしか時間を割いてない
0748デフォルトの名無しさん2013/02/17(日) 01:18:18.59
今度はいきなりアルゴリズムの話か？
今まで出てなかったのだが、
お前が言いたいことをちゃんと言えよ。

保守性も可読性も重要だろ。
オープンソースアプリだって重要視してる部分だ。
0749デフォルトの名無しさん2013/02/17(日) 01:19:56.54
アルゴリズムは作ったら
再利用できるように汎用化して
関数にしましょう。

そうすれば後は関数を使うだけだから
シンプルになりますって話じゃねーの？
0750デフォルトの名無しさん2013/02/17(日) 01:25:26.77
アルゴリズムって保守性や可読性を
高めるためのものなんだけど・・・。
0751デフォルトの名無しさん2013/02/17(日) 01:25:29.14
重要な部分というのはえてして面白くない部分なんだ
0752デフォルトの名無しさん2013/02/17(日) 01:28:39.91
コードをシンプルにし保守性や可読性を上げるのも
十分面白いと思うけど？

自然科学の法則をシンプルな式で表現するのと同じで。

まあ、そういう数学的なことが嫌いな人がいるのもわかるけどね。
0753デフォルトの名無しさん2013/02/17(日) 01:29:10.86
というかエレガントに書くには関数使わないほうがいいの？
そもそも「エレガント」がよくわからないのだが・・・
0754デフォルトの名無しさん2013/02/17(日) 01:31:10.64
いや使えるのであれば
使った方がいいだろｗ
0755デフォルトの名無しさん2013/02/17(日) 03:35:41.31
>>752
腐った脳ミソしたてめーが面白いと思うだけだろブログにでも書いてろｋｓ
0756デフォルトの名無しさん2013/02/17(日) 04:08:53.05
動けばいいだけの>>755

VS

無駄がなくて速くて読みやすくて修正しやすくてテスト可能なコードを書こうとする人
0757デフォルトの名無しさん2013/02/17(日) 04:48:27.73
なんだキチガイか
0758デフォルトの名無しさん2013/02/17(日) 10:24:27.08
関数化云々は設計の話なんだよな
アルゴリズムはコーディングの話
両者を峻別できない人は論理的に思考できていない
0759デフォルトの名無しさん2013/02/17(日) 12:00:26.83
>>758
> アルゴリズムはコーディングの話
学生かい？w
0760デフォルトの名無しさん2013/02/17(日) 13:10:24.71
だからね、自然体で書くんだよ、自然体で。
解くべき問題をそのまま記述するんだよ。

無理にねじって記述するから後で分からなくなるんだよ。
そのために unless だの not だの !~ のようなものが
ふんだんにある。Perlの一見、無駄っぽい機能はみんな
そのためのもの。Javaとは違うのだよ、Javaとは。
0761デフォルトの名無しさん2013/02/17(日) 13:20:52.54
プログラムをばかっぽく作るとばかっぽくメンテナンスできるようになる。
検索できるプログラムになるから、ただのm//検索やs///置換でメンテナンス
できる。

構造を自分ででっちあげてしまうとそれができなくなる。
0762デフォルトの名無しさん2013/02/17(日) 14:42:24.43
議論に負けて、ネタで荒らすｗ
0763デフォルトの名無しさん2013/02/17(日) 17:06:40.53
ここで質問しようと思ってる人はまず最新50レスを読んでみるといい

まともな回答の返ってくる可能性が絶望的だということに気付くだろう
0764デフォルトの名無しさん2013/02/17(日) 17:58:23.50
まともでない回答は必ず帰ってくるが、
それをコメントアウトすると、意外とまともなやりとりが成立してるぞ
0765デフォルトの名無しさん2013/02/17(日) 18:32:14.28
そんなことしたら全レスコメントアウトになるが・・・
0766デフォルトの名無しさん2013/02/18(月) 00:14:41.87
最近の質問の中では割と成立してるほうではあるんだよな…
酷いと煽り以外のレスが付かないところ、コードまで出てるのにはちょっと感動した
0767デフォルトの名無しさん2013/02/18(月) 00:42:50.55
基地害の隔離スレ
0768デフォルトの名無しさん2013/02/18(月) 00:51:47.73
Java好きならJavaで書けばいいんじゃない？きっとそのほうがいいよ。
0769デフォルトの名無しさん2013/02/18(月) 01:10:06.05
Java板でPerlっぽく書こうずっていって追い出されてこっち着たんですよ
0770デフォルトの名無しさん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っぽく書こうずっていって追い出されてこっち着たんですよ
0771デフォルトの名無しさん2013/02/18(月) 09:09:49.68
昔の2chのように、ゴミの中に有効な回答が埋まってる方がらしくていいか。
手を動かした人だけ分かればいいし。
0772デフォルトの名無しさん2013/02/18(月) 14:55:37.53
その有効な回答も質がかなり落ちてるけどなあ。
Twitterできいたほうがまだまともな回答が返ってくる。
0773デフォルトの名無しさん2013/02/18(月) 22:40:49.31
すみません、教えて下さい。
use LWP::Simple;
$html = get ("URL");
みたいなコードなんですが、
タイムアウト時間を設定する書式がわかりません。
よろしくお願いします。
0774デフォルトの名無しさん2013/02/18(月) 23:30:19.22
そんなものは無い
0775デフォルトの名無しさん2013/02/18(月) 23:47:29.99
>>773
失せろゴミ
0776デフォルトの名無しさん2013/02/18(月) 23:58:03.74
>>773
use LWP::Simple qw($ua get);
とやると、$uaはLWP::UserAgentのオブジェクトだから、それでタイムアウトの設定すればいい。
0777デフォルトの名無しさん2013/02/19(火) 00:02:01.36
自作自演はきもいよ
0778デフォルトの名無しさん2013/02/19(火) 00:03:05.02
質問します。

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 ;
となっています。
0779デフォルトの名無しさん2013/02/19(火) 00:12:29.62
まだ解決してなかったのか。
0780デフォルトの名無しさん2013/02/19(火) 00:45:04.09
$max が 0 なので割り算ができない
0781デフォルトの名無しさん2013/02/19(火) 00:53:14.91
本人は>>63で解決してて>>778はコピペだろ
0782デフォルトの名無しさん2013/02/19(火) 01:29:23.97
バレたかｗ
自己顕示欲を満たしたいだけのヴァカがコピペにもレスするから面白いんだよなｗ
0783デフォルトの名無しさん2013/02/19(火) 01:49:55.37
Java,Java言ってたあいつはちっとはPerlで書けるようになったんかな？
あいつに任せるとシジルやブレースを忘れてそのままコミットしちゃうんで
しばらく外してたんだが、こんなところで厄介者になっていたのか
0784デフォルトの名無しさん2013/02/19(火) 02:34:12.55
>>783
Java、Java言ってるのはお前だっていい加減気づけよｗ
0785デフォルトの名無しさん2013/02/19(火) 02:49:38.24
>>776
ありがとうございます。助かりました。
0786デフォルトの名無しさん2013/02/19(火) 02:52:02.28
俺はAPL派だけどな
0787デフォルトの名無しさん2013/02/19(火) 03:51:38.36
>>785
二度と来るな
0788デフォルトの名無しさん2013/02/19(火) 03:56:23.93
>>787
ごめん、きちゃったよｗ
0789デフォルトの名無しさん2013/02/19(火) 04:24:20.72
>>788
どうしてもここを糞スレ化して他人に迷惑をかけたい場合は何度でも来てください
他人に迷惑をかけるのが嫌な場合のみ来ないでください
07907302013/02/19(火) 04:33:51.32
>>789
つまりおまえも糞スレ化推進派なんだな
0791デフォルトの名無しさん2013/02/19(火) 20:21:46.61
>>789
他の人を不愉快にしています。
もう来ないでください。
0792デフォルトの名無しさん2013/02/19(火) 20:34:23.90
>>791も他人を不愉快にしています。
二度とネット回線に接続しないでください。
0793デフォルトの名無しさん2013/02/19(火) 20:42:01.20
今日はハロワで嫌味でも言われたんだろうな
0794デフォルトの名無しさん2013/02/19(火) 20:50:10.06
「そんなこともわからないやつ」
「迷惑をかけるだけ」
「回線切れ」
「自己顕示欲を満たしたいだけのヴァカ」

いつものパターン
0795デフォルトの名無しさん2013/02/19(火) 20:59:02.19
いつも自演で荒らしてるのって>>791だろ
0796デフォルトの名無しさん2013/02/19(火) 21:02:15.10
自学症状がないようですね
0797デフォルトの名無しさん2013/02/19(火) 21:31:45.02
顔真っ赤でタイプミスする人っているよね。
0798デフォルトの名無しさん2013/02/19(火) 21:41:02.14
顔真っ赤にしてタイプミスを指摘する人っているよね
0799デフォルトの名無しさん2013/02/19(火) 21:45:00.09
顔真っ赤だからタイプミスの指摘すらスルーできない人っているよね
0800デフォルトの名無しさん2013/02/19(火) 21:58:55.88
そういうのもスルーできなくて
0801デフォルトの名無しさん2013/02/19(火) 21:59:03.08
　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣
　　　　 　∧＿∧ 　 ＜ 落ち着けよカスども
　　　　　（　´_ゝ｀）　　　＼＿＿＿＿＿＿＿＿
　　　　／　　　　 ＼
　　　/ /＼　　　/￣＼
　＿|￣￣ ＼　/　 ヽ　＼＿
　＼￣￣￣￣￣￣ ＼＿_）
　　||＼　　　　　　　　　　　　＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　||　 ||　　　　　　　　　　 ||
0802デフォルトの名無しさん2013/02/19(火) 22:40:20.06
マジでTwitterのほうがいい

＜メリット＞
キチガイはブロックできるから精神衛生上良い
回答者してきた人の過去ツイートを見られるから回答の信憑性も測れる
コードパッドやブログと併用することで長いコードでを話題にすることもできる

＜デメリット＞
キチガイは即ブロックされるため、ここでよく見られる荒らしてアホ回答者の回答を誘う行為ができない
学習のためなどと言いつつ情報を一方的にもらうだけの乞食ができない
0803デフォルトの名無しさん2013/02/19(火) 23:03:33.85
きちがいはどの世界でもいるから諦めろ
0804デフォルトの名無しさん2013/02/19(火) 23:32:11.40
どうせ荒らしてるのはルネッサンスについていけない奴だしな
0805デフォルトの名無しさん2013/02/19(火) 23:35:07.83
やっぱりお前は馬鹿だな
0806デフォルトの名無しさん2013/02/20(水) 11:47:11.31
エレガントとか答えの出ない質問には回答できても特定の要件を満たさなければならない質問には回答できないアフォの棲むスレ
質問スレとして機能していない、単なるエレガントなコードコンテストスレ()
0807デフォルトの名無しさん2013/02/20(水) 12:32:54.57
スレのレベルが上がれば馬鹿は寄ってこないのにな
でも残念ながら糞質問に答える馬鹿がいるからこうなる
0808デフォルトの名無しさん2013/02/20(水) 13:57:40.45
学校・企業が入学・入社志望の奴に試験を課すのにはそういった理由もある
単に全員受け入れる余裕がないからという理由だけではない

ヴァカを受け入れ続ければその組織のレベルは際限なく下がっていくからな
0809デフォルトの名無しさん2013/02/20(水) 16:13:39.11
はいはいヴァカヴァカ
0810デフォルトの名無しさん2013/02/20(水) 18:13:02.87
池沼質問者にまでせっせと回答する荒らし方はかなりレベルが高い

ボディーブローみたいにじわじわ効いてくる
0811デフォルトの名無しさん2013/02/20(水) 18:34:08.96
はいはい池沼池沼
0812デフォルトの名無しさん2013/02/20(水) 19:26:32.40
ここってMKTだなｗ
0813デフォルトの名無しさん2013/02/20(水) 19:27:26.54
あうあうあー
0814デフォルトの名無しさん2013/02/20(水) 21:47:57.84
ｍｋｔ認定
0815デフォルトの名無しさん2013/02/20(水) 22:19:32.83
はいはいｍｋｔｍｋｔ
0816デフォルトの名無しさん2013/02/20(水) 23:08:26.76
>>815
0817デフォルトの名無しさん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
0818デフォルトの名無しさん2013/03/04(月) 13:20:03.44
質問サンプルをまかなうことは出来るが
A1
A3
A11
A21
B1
B21
は簡単にできない。
したいなら分けてから引っ付けた方が早いぞ。

世の連番に01、02がある意味を考えてみなよ。
0819デフォルトの名無しさん2013/03/04(月) 13:28:59.79
それかこれ
http://search.cpan.org/~salva/Sort-Key-1.32/lib/Sort/Key/Natural.pm
0820デフォルトの名無しさん2013/03/04(月) 14:06:44.25
>>817
自分で調べろよ
本物のゴミだなお前
08218172013/03/04(月) 14:09:25.01
>>818,819

ご意見ありがとうございます。
01,02のことを忘れていました。

リスト作成時に01,02をつけることで対応しました。
ありがとうございます。
0822デフォルトの名無しさん2013/03/04(月) 14:39:40.93
>>821
忘れてた？
やっぱただのヴァカだったか、二度と来るな。
0823デフォルトの名無しさん2013/03/04(月) 15:01:09.37
うわ、何このレベル低い質問
自分で調べることもできないのか
0824デフォルトの名無しさん2013/03/04(月) 15:06:19.76
なんつーか知恵の問題だよ
>>821みたいに知恵のない奴は何やっても無理
知識や経験がないだけなら努力で何とかなるけど
>>821は根本的に知恵がないから無理
0825デフォルトの名無しさん2013/03/04(月) 16:27:32.96
悪い感情に流されている奴がいるが気にすんなよ＞質問者
0826デフォルトの名無しさん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;
0827デフォルトの名無しさん2013/03/04(月) 16:36:38.34
糞みたいな質問してる基地害って>>825みたいなのを鵜呑みにしてるんだろうな
だからいつまで経っても成長できずに底辺を這いずりまわってる
まさに歩く恥晒しｗ
0828デフォルトの名無しさん2013/03/04(月) 23:24:27.85
こんなスレで聞くこと自体おかしい
ちょっと前のスレの流れ見たらわかるでしょ
0829デフォルトの名無しさん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 ;
}
08308292013/03/04(月) 23:49:52.23
失礼
11行目で$abc代入する必要なかった
値は未定義でOK

$hash{$1}{$2} = $abc ;
　　↓
$hash{$1}{$2} = undef ;
0831デフォルトの名無しさん2013/03/04(月) 23:51:25.94
>>829
ありがとうございます。
そのコードで完璧に希望通りの動作をしました。
















とでもレスもらえれば満足か？ｗ
コードは1/10人前のくせに自己顕示欲だけは人一倍の自己顕示君ｗ
0832デフォルトの名無しさん2013/03/04(月) 23:51:51.80
こういうのは自己顕示欲が強いだけなんで
全く価値のないウンコード
0833デフォルトの名無しさん2013/03/04(月) 23:53:03.95
>>830
投稿前に確認すらできない低能の書いたウンコードを誰が信用するんだよ

お前は不要だからさっさと消えろ
0834デフォルトの名無しさん2013/03/05(火) 00:26:37.40
質問者が解決したって書いて何時間も経ってからだからな。
自己顕示欲とか言われても仕方ないだろ。
しかも書いたコードが産廃レベルでどうしようもない。
0835デフォルトの名無しさん2013/03/05(火) 11:40:32.48
シュワルツ(シュオーツ)変換を含むソートは、続・初めてのPerl(通称アルパカ本)かEffective Perlで学べる。
リャマ本とアルパカ本マスターすれば、この辺りでクダ巻いてる奴らの上は行ける。
0836デフォルトの名無しさん2013/03/05(火) 14:13:11.13
でも質問してるのは本も買えないほど貧乏な情報乞食
0837デフォルトの名無しさん2013/03/05(火) 16:34:49.97
質問が来ると罵倒するヤツと、
質問に、ただ答えようとするヤツ。

どっちが基地外でしょう？
0838デフォルトの名無しさん2013/03/05(火) 18:08:51.22
（^q^）「…」

女子高生たち「ひそひそ…」

（^q^）「見ろ。お笑いだ。我々が町を歩くだけで劇場が生まれる」

女子高生A「なんかぶつぶついってるよー」

女子高生B「ほんと、きもちわるいよねー」

（^q^）「…ああ、自らの浅はかさに未だ気づかぬ哀れなる衆愚どもよ」

主婦たち「ひそひそ」

（^q^）「同情しよう、いっぱしの常識人を気取り、その実、
　　　　障害者にも劣る思考形態でもって日々を浪費する哀れなる”健常者”ども」

小学生「おじさん、何言ってるのー？」

（^q^）「革命は常にマイノリティが起こすものだということだよ、ぼうや」
0839デフォルトの名無しさん2013/03/05(火) 18:18:54.14
「質問」と抽象化して辞書通りの意味しか考えさない。
どこからどこまでが罵倒かの線引きもせず、「ただ答えようとするヤツ」と比較して心象の悪い「罵倒」というワードを選択。
世の中には二択しかないものはほとんどないのに無理やり二択から選択させる。

世論誘導の上手いメディア並の巧妙さ。
本物の荒らしはさすがだな。
0840デフォルトの名無しさん2013/03/05(火) 18:20:53.51
>>839
お前の誘導は下手糞すぎる
0841デフォルトの名無しさん2013/03/05(火) 18:20:57.06
>>839
意味も述べずに批判しているのは罵倒以外の何者でもないだろ
罵倒じゃなかったら何だというのだｗ
荒らしてる自覚がないとか本物の病人は手が付けられないな
0842デフォルトの名無しさん2013/03/05(火) 18:23:53.71
2択出されてどっちかって言われたらどっちを選ぶか考えてしまうわな
文章は短くて読みやすいし下手な自演よりはるかに効果的に荒らせるな
0843デフォルトの名無しさん2013/03/05(火) 18:25:38.99
>>837って荒らしてる自覚なかったの？
本物の病人は手が付けられないってのはガチかｗ
0844デフォルトの名無しさん2013/03/05(火) 18:26:15.17
以上、下手な自演でした。
0845デフォルトの名無しさん2013/03/05(火) 18:30:23.27
たった3行で見事な燃料投下と思ったら全部>>837の自（ｒｙ
0846デフォルトの名無しさん2013/03/05(火) 18:42:03.30
自演かどうか知らんけどせっかく沈静化してるところに何やってんだ
0847デフォルトの名無しさん2013/03/05(火) 19:16:18.10
自演乙で終わらせようとしてるところがもうね
0848デフォルトの名無しさん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
0849デフォルトの名無しさん2013/03/05(火) 21:16:12.30
gdbのようなソフトはありますか？

ブレークが貼れて、変数を見たりステップ実行したいです。
できればすでに動作中のプロセスにもアタッチしたい。
0850デフォルトの名無しさん2013/03/05(火) 21:24:57.81
これまたすっとぼけたゴミ質問が来たよ
0851デフォルトの名無しさん2013/03/05(火) 21:25:05.70
>>849
その程度も自分で調べられないゴミは消えろ
ここは代理検索じゃねえんだよゴミ
0852デフォルトの名無しさん2013/03/05(火) 21:26:39.85
>>849=キチガイ
0853デフォルトの名無しさん2013/03/05(火) 21:28:20.36
プログラミングをたしなむものがこんな馬鹿みたいな質問するべきじゃないな
0854デフォルトの名無しさん2013/03/05(火) 21:30:41.99
ほら。
>>850-852
↑これ見て荒らし以外の何に見えんの？ｗ
知らないなら黙ってればいいじゃないｗ

>>849
perl -d test.pl
この１行だけでレス終わるじゃない
0855デフォルトの名無しさん2013/03/05(火) 21:32:05.24
ほらまた素人を餌にして自分を強く見せたいだけの自己顕示欲塊が発狂してるよ
0856デフォルトの名無しさん2013/03/05(火) 21:33:16.21
>>855
質問に答える＝自己顕示欲って、
スレタイ読んで来いよ
いったい何するスレだよ
0857デフォルトの名無しさん2013/03/05(火) 21:34:33.81
お前みたいな奴がスレを低レベル化してる
0858デフォルトの名無しさん2013/03/05(火) 21:37:24.72
>>857
レベルの高い質問ってどんなだよｗｗｗ
してはいけない低レベルの質問ってどんな区別で分けてんだよｗｗｗｗ
0859デフォルトの名無しさん2013/03/05(火) 21:43:58.92
>>858は一日中ヨダレ垂らしながら生きてるんだろうな
0860デフォルトの名無しさん2013/03/05(火) 21:50:50.45
いやだっておかしいでしょ
>>849にないよってレス来たら頭の悪い>>849はそれ信じるんでしょ？
その程度で満足して帰っていくヴァカの質問にまともに答える必要あるの？
0861デフォルトの名無しさん2013/03/05(火) 21:52:58.07
>>859-860
なんかめんどくせーｗ
荒らしはスルー推奨って>>1にも書いてるし、
かまっちゃった俺が悪かったなｗｗｗｗｗｗ
0862デフォルトの名無しさん2013/03/05(火) 21:54:09.38
>>860
空気読めは縛りが無いから、せめてテンプレ作れ。
0863デフォルトの名無しさん2013/03/05(火) 21:56:33.01
>>861
炎上させるつもりで構ってるくせに白々しいな
0864デフォルトの名無しさん2013/03/05(火) 21:59:03.01
＞Perl の奥深さについて皆で語り合い、追求してまいりましょう。
とてもじゃないがそんなことのできる状態ではない
0865デフォルトの名無しさん2013/03/05(火) 22:00:32.92
もう追求ってレベルじゃねーぞ！

なるほど、このレベルだったか・・・
0866デフォルトの名無しさん2013/03/05(火) 22:03:18.91
亞汰魔がおかしい
0867デフォルトの名無しさん2013/03/05(火) 22:06:30.65
この間、日本のPerlコミュニティがおかしいってラリーのオッサンが泣いてたぞ
絶対ここのことだろ
0868デフォルトの名無しさん2013/03/05(火) 22:07:41.55
ここ見てるってラリーなかなかコアだな
0869デフォルトの名無しさん2013/03/05(火) 22:09:00.33
>>826で教科書通りのシュワルツ変換のソートを出しても、
ガチのGRTも、ネタのシャチ泳ぎも出ないからな。終わってる。

初心者はアルパカ本で軽く超えてけ。
0870デフォルトの名無しさん2013/03/05(火) 22:11:52.65
Perlなんか使ってるからそういうことになる。
PHP厨を使っていればそんなところで躓かない。
0871デフォルトの名無しさん2013/03/05(火) 22:14:47.66
PHP厨を使うってどういう事だ・・・使えんのかソレ・・・・
0872デフォルトの名無しさん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から決めるほうが楽かと

それからさっさと高校生用の物理の参考書買ってこい
コードに直せないのはセンスがないから諦めろ
努力する気があるなら中学生からの数学の問題を片っ端からコードに直せ

↑↑↑↑↑↑↑↑
こういうのが典型初心者の糞回答
0873デフォルトの名無しさん2013/03/06(水) 00:09:22.44
誤爆か？
0874デフォルトの名無しさん2013/03/06(水) 01:43:35.75
中途半端にUnicode対応したかと思えば、急に投げ出して作れもしないPerl6
だとか始めたラリー・ウォーレンにそんなこと言われたくないね
0875デフォルトの名無しさん2013/03/06(水) 03:12:33.24
>>854
ありがとう。試してみます
0876デフォルトの名無しさん2013/03/06(水) 03:18:07.65
>>875
試さなくていいからperlのオプションすら調べられないゴミは二度と来るな
0877デフォルトの名無しさん2013/03/06(水) 03:58:03.41
>>876は煽りたいだけのゴミ厨基地害だろうけど、
オプションも確認せずに質問する>>875には本当に二度と来ないで欲しい。
0878デフォルトの名無しさん2013/03/06(水) 08:54:57.24
>>875=本物の知恵遅れ
0879デフォルトの名無しさん2013/03/06(水) 11:02:42.26
こういう低レベルな質問するやつがPerlだとか思わないでほしい
0880デフォルトの名無しさん2013/03/06(水) 12:32:07.42
質問が低レベルだから答えない＆罵倒するだけなのか
自分が低レベルだから答えられないのか
0881デフォルトの名無しさん2013/03/06(水) 15:46:50.83
オプションも見ずに質問とか低レベル以前の問題でしょ
0882デフォルトの名無しさん2013/03/06(水) 23:53:45.11
まさか今さらPerl5に戻りたいなんて言うんじゃないだろうな？
一度俺たちを見捨てたんだ、二度、三度あってもおかしくはない。
0883デフォルトの名無しさん2013/03/07(木) 05:50:56.60
臭い餌だのォ
0884デフォルトの名無しさん2013/03/07(木) 16:06:45.32
質問です。

$line =~ /^(?:AAA(\d+))$/;

だと、最初の()がバッファに保存されず、$1=数字となりますが、
下記はどういった意味があるのでしょうか？

$line =~ /^(:?AAA(\d+))$/;
0885デフォルトの名無しさん2013/03/07(木) 16:13:00.29
>>884
ここは正規表現スレじゃねーんだよゴミクズ
スレ違いも分からない池沼には無理
0886デフォルトの名無しさん2013/03/07(木) 16:15:08.78
正規表現スレは、もはやアナルスレと化している
0887デフォルトの名無しさん2013/03/07(木) 16:16:55.98
お前は何を言ってるんだ
0888デフォルトの名無しさん2013/03/07(木) 16:19:12.56
>>884
正規表現の本はどれを読んだの？
そんなことも理解できない糞を輩出するような本は悪本としてブラックリストに入れたいからタイトルかISBNよろ。

まさか本すら調べてない屑人間じゃないよね。
0889デフォルトの名無しさん2013/03/07(木) 17:27:22.03
>>884
そんなことすら自分で調べられないくせによくプログラムなんかやろうと思ったな
自分の力量も分からないほどの馬鹿は致命傷
0890デフォルトの名無しさん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
08918842013/03/07(木) 17:55:45.63
あれ？まだやってたんですか？
もうTwitterで回答もらってるので締め切ってます
0892デフォルトの名無しさん2013/03/07(木) 20:13:38.90
質問させてください

てきとうな順番で数字の値が入った配列で、
すべてを順番に調べて行き、足してピッタリ１００となる組み合わせを調べたいのです
とにかく、できれば全部調べ終わる前に足して１００となる組み合わせを調べたいです
0893デフォルトの名無しさん2013/03/07(木) 20:28:54.68
>>892
数学の問題だし馬鹿には無理
0894デフォルトの名無しさん2013/03/07(木) 20:32:27.70
>>892
お前がやらなきゃいけないのは回線切ることであってそれを調べることではない。
08958922013/03/07(木) 20:33:26.17
いつものつまらない回答しかこないですね
せっかく屑ニートの相手をしてやってるんだから笑わせてください
08968922013/03/07(木) 20:35:48.87
う〜ん、質問者が解答もらうために荒らしてると思ってたんだけど・・・
本当に荒らしが常駐してるんだな〜、お前ら暇かｗ

あぁ、ちなみに、>>892は縦読みなｗ
0897892(本物)2013/03/07(木) 20:36:03.16
>>895は偽物です
Twitterのほうで回答もらったのでもういいです
0898892(本物)2013/03/07(木) 20:37:48.37
>>896も偽物です
0899デフォルトの名無しさん2013/03/07(木) 20:40:33.79
荒らしも上手くたて読みになる部分を見つけるもんだな
いつも質問者のふりして荒らしてるのは>>896か
0900デフォルトの名無しさん2013/03/07(木) 20:47:09.75
>>896
両方だと思うよ。
質問者が叩かれるたびに張り切って答える馬鹿が現れる傾向があるし。
09018922013/03/07(木) 20:49:39.32
荒らさなくても、分かる質問には一応普通に答えてんだけどな
荒らしてるヤツは、Perlにどんなトラウマ抱えて荒らしてんだｗｗｗ
結構長くいてるよなｗｗｗ
0902デフォルトの名無しさん2013/03/07(木) 21:16:45.00
>>901
そうこういう俺凄いんだぜアピール欲求が強すぎる奴が出来る人たちの会話を排除してる
結果糞質問に答えるだけの例レベル糞スレに成り果てる、それが今
0903デフォルトの名無しさん2013/03/07(木) 21:18:01.79
モダンPerlを推奨したいらしいが、みんなにダメ出しされて荒らしてるんだろ
0904デフォルトの名無しさん2013/03/07(木) 21:24:10.07
お、私以外の回答者が居た。
もう面倒すぎるわ、コイツら。
1レス、いくらで荒らしてるんだよ。
0905デフォルトの名無しさん2013/03/07(木) 22:02:20.24
>>904
はい馬鹿が釣れたｗ

池沼とゴミ質問者を釣るのは簡単だけど常駐してるアフォ回答者は耐性あるから釣れにくいｗ
0906デフォルトの名無しさん2013/03/07(木) 22:07:31.10
お、おう。ﾜｹﾜｶﾗﾝ(AA略
0907デフォルトの名無しさん2013/03/07(木) 22:24:38.27
いやそもそもまともな人ならこんな糞スレで質問はしない
0908デフォルトの名無しさん2013/03/07(木) 23:52:17.10
×まともな人ならこんな糞スレで質問はしない
○まともな人を近づけないためにレッテル貼りで荒らしている（動機は不明）
レッテルの例：低レベル、糞スレ、池沼、屑人間、馬鹿
0909デフォルトの名無しさん2013/03/08(金) 00:22:34.28
いや馬鹿は馬鹿でしょ
荒れたスレで素人丸出しな質問して、それに答える回答を丸呑みしてって
こんなことやる奴は頭のおかしい池沼しかいない、常識的に考えて
0910デフォルトの名無しさん2013/03/08(金) 01:28:12.82
>>908
どこがどう低レベルじゃないのか説明してみろよ
オプションも見ずに質問するのが低レベルじゃないって？
機械使うのに説明書も読まずに使えないとかってのは小学生以下でしょ
0911デフォルトの名無しさん2013/03/08(金) 06:11:13.79
だからって、いちいち罵倒するレスしなくていいだろ
ってか、どんな質問が来ても煽ってるじゃねーか
自覚ない所が痛すぎるんだよ、黙ってスルーしてるやハゲ
0912デフォルトの名無しさん2013/03/08(金) 06:48:26.68
基地外荒らしは、よっぽどPerlに恨みがあるらしいな
陰湿な腐った奴だ
そのうち包丁持って繁華街で暴れるタイプだな
0913デフォルトの名無しさん2013/03/08(金) 09:02:49.44
罵倒して、相手にラベルをせっせと貼って、自分を正当化しようとする。
技術も技量も他人とコミュニケーションを取る力さえなく、なけなしの自尊心で生きている。

自ら努力することも、学ぶこともない。
若くして「老害」。

そんなかわいそうな人達。
0914デフォルトの名無しさん2013/03/08(金) 10:13:36.26
どんな環境でも数秒間CPU使用率100%にできる
Perlスクリプトってないっすよね

あったとしても書ける人がここにいるわけない(ｷﾘ
0915デフォルトの名無しさん2013/03/08(金) 12:18:20.79
ここでの質問の半分以上は別所でヲチするためだけに投稿されたものだけどな。
マジレスかましてる香具師は大抵笑い者になってる。
0916デフォルトの名無しさん2013/03/08(金) 12:30:11.20
マジレスかましてんじゃねーよ
0917デフォルトの名無しさん2013/03/08(金) 12:46:32.21
一番自覚のないのは>>911

>>911がスレの低レベル化を謀ってる主犯各かも
0918デフォルトの名無しさん2013/03/08(金) 12:52:24.57
>>917
お前も探偵ごっこかましてないで、笑われてる自覚もてよｗ
0919デフォルトの毛無しさん2013/03/08(金) 13:04:54.91
精神病院から脱走してきたような>>918ひとりに笑われてるだけで自覚を持つ必要があるそうです。
0920デフォルトの名無しさん2013/03/08(金) 13:07:18.08
>>918
それお前だけ
お前みたいな空気読めないちょっとPerlかじった程度の馬鹿一人が回答しまくるせいで
スレの雰囲気が悪くなって誰も寄り付かなくなる
0921デフォルトの名無しさん2013/03/08(金) 13:13:48.96
>>919,920
もっと笑えるレスしろよ、その程度なら無理して書きこまんでいいわ
0922デフォルトの名無しさん2013/03/08(金) 13:15:07.08
>>921
お前はもっと勉強してから来い。でないとウザいだけです
0923デフォルトの名無しさん2013/03/08(金) 13:15:36.45
じゃ、俺がクソ質問を定義してやる。

1 googleで「perl」に加えてキーワード一つ追加すれば正解に到達できる質問 例: >>849
2 perlに依存してないで高卒程度の知能があれば思いつく質問　例: >>817

これらはクソ質問だから思いっクソ罵倒する。回答してはいけない。
0924デフォルトの名無しさん2013/03/08(金) 13:17:29.63
>>923
お前の定義なんぞクソほどの価値もないってのに
0925デフォルトの名無しさん2013/03/08(金) 13:43:49.95
価値がないんじゃなくて分からないんだろ
豚に真珠とはよく言ったもんだ
昔からそういう人間って一定数いるんだろうなｗ
0926デフォルトの名無しさん2013/03/08(金) 13:59:05.62
>>924
そういう質問にドヤ顔で答えたら思いっクソ罵倒してやる。
ほら意味あるだろ。
0927デフォルトの名無しさん2013/03/08(金) 14:12:41.17
>>923
お前は、perlfaq4読んどけ。
0928デフォルトの名無しさん2013/03/08(金) 14:22:38.69
おまえらつまらんことで争ってないで
カツカレーの話でもしようず
0929デフォルトの名無しさん2013/03/08(金) 14:41:04.77
その話をしたければ自分からネタ投下しろハゲ
0930デフォルトの名無しさん2013/03/08(金) 15:18:17.87
カツカレーうまいね（終）
0931デフォルトの名無しさん2013/03/08(金) 15:24:35.39
ここで荒らしてるのは、perl?はぁ?何その時代遅れな言語ってバカにしてたPHP使いが、
Python使いから、おいおいPHPだってとっくの昔に化石だろ、perlもPHPも目糞鼻糞とコテンパンにされて以来ファビョってる奴。
そして今やPython使いが…
0932デフォルトの名無しさん2013/03/08(金) 18:17:11.84
探偵ごっこで喜んでる生きてる価値のない奴がいるな
たとえば>>931とか
0933デフォルトの名無しさん2013/03/08(金) 18:32:02.36
>>932
お前は死ぬ価値すらないだろｗ
0934デフォルトの名無しさん2013/03/08(金) 19:45:33.55
>>933
どういう意味だよ
0935デフォルトの名無しさん2013/03/08(金) 19:50:48.74
>>933
日本語崩壊してるぞ
お前日本人か？
0936デフォルトの名無しさん2013/03/09(土) 00:31:11.39
ファイルの中身を配列に入れて改行を落とす時に
@a = <$in>;
chomp @a;

みたいにするけど、これを1行で書けないだろうか
0937デフォルトの名無しさん2013/03/09(土) 00:37:46.27
お前みたいな馬鹿には一行で書いたら解らないだろ？
0938デフォルトの名無しさん2013/03/09(土) 00:43:27.78
@a = <$in>; chomp @a;
基本的にPerlはフリーフォーマットだから一行に複数のステートメントを書いても構わない
0939デフォルトの名無しさん2013/03/09(土) 01:11:46.16
初手から土下座てwww
0940デフォルトの名無しさん2013/03/09(土) 02:06:55.71
chomp(@a = <$in>); で行けるみたいだけど。
0941デフォルトの名無しさん2013/03/09(土) 04:06:00.24
perlのデバッグモードで変数が表示されない時があるのですが
どうしたらよいでしょうか
0942デフォルトの名無しさん2013/03/09(土) 09:53:15.50
>>940が正解だな
でも、なんで上手く行くのかの機序が説明できない

代入文が何を値として持つのかよく知らない上に、
スカラーで評価されてるのかリストで評価されてるのかも見て判らない
0943デフォルトの名無しさん2013/03/09(土) 10:12:49.83
>>942
$n = ($n = ($n = 1) + 1) + 1 ;
これが3になる
Perlは括弧内から処理するよ
0944デフォルトの名無しさん2013/03/09(土) 10:16:31.79
代入文が返す値は代入後の値
ふつうにリストで評価されてる
0945デフォルトの名無しさん2013/03/09(土) 10:49:59.02
>>942
代入演算子の左辺は配列変数だから、式がリストコンテキストで評価される。
右辺のダイヤモンド(山括弧)演算子もリストコンテキストで評価される。
chompの引数がリストだから、chompもリストコンテキストで処理される。
0946デフォルトの名無しさん2013/03/09(土) 12:51:49.15
chomp がリストも扱える、ということ自体があまり知られてないんだよな

代入結果を引数にするのはいいんだけど、
それが値渡しなのか参照渡しなのかがはっきり見えない
実際にはみんな参照渡しで、代入結果というよりは、
最後に代入した変数そのものを渡していると見た方が分かり易い
0947デフォルトの名無しさん2013/03/09(土) 14:01:05.84
×　ということ自体があまり知られてない
○　わたくしは馬鹿で無知なので全く知らない
0948デフォルトの名無しさん2013/03/09(土) 14:06:06.52
$b = ($a = 1)++;

の後の$aと$bが何になってるか、ぱっと見て判るかどうか
0949デフォルトの名無しさん2013/03/09(土) 14:06:37.91
Perlはchompのような
副作用をもたらす命令が多すぎ。

関数型言語の逆を言ってるな。
0950デフォルトの名無しさん2013/03/09(土) 14:07:47.66
>>948
２
0951デフォルトの名無しさん2013/03/09(土) 14:16:03.20
とりあえずテキスト処理できりゃいいんだよ
３分で出来る使い捨てスクリプトがパッと書けりゃいいの
0952デフォルトの名無しさん2013/03/09(土) 14:17:15.10
Perlって戻り値がスカラなのかリストなのか
状況によって変わるから怖いんだよな。
0953デフォルトの名無しさん2013/03/09(土) 14:17:21.09
普通に考えると、リストを受け取って、改行を外したリストを返す仕様にするよな
でもchompの戻り値はスカラー
改行を外したバージョンと元のバージョンと両方使うことは無いだろうという思想の元、
引数の方をいじる設計になっている

@a = chomp <$in>;
みたいに書ければいちばん素直なのに
0954デフォルトの名無しさん2013/03/09(土) 14:20:13.94
while(<>){
　　chomp;
　　〜〜〜
}

とかが想定した使い方なんじゃねーの
なら、戻り値は無いほうがいい
引数をいじったほうがｲｲ
0955デフォルトの名無しさん2013/03/09(土) 14:24:27.94
$_ だけを相手にするならそうだけど、
ずっと $_ を持ってるのはいろいろ危険だから、
while (my $line = <>) {
　　chomp $line;

}
みたいになっていく訳で
なら、
while (<>) {
　　my $line = chomp;

}
と書いても手間は同じ
0956デフォルトの名無しさん2013/03/09(土) 14:32:03.84
>>955
むしろ$line一個書かないで済むから
この場合は下のほうが楽になるな
0957デフォルトの名無しさん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 ;
とかすんの？
0958デフォルトの名無しさん2013/03/09(土) 14:48:57.11
馬鹿発見ｗｗｗｗｗｗｗｗｗｗ
0959デフォルトの名無しさん2013/03/09(土) 14:58:43.53
メモリが潤沢な今なら、
my %hash2 = chomp %hash ;
もありかと思うけど

昔の設計では有り得ん罠
0960デフォルトの名無しさん2013/03/09(土) 15:00:26.44
イマイチ使い道がなさそうだけど
0961デフォルトの名無しさん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 ;
の事だったら、ナンセンスな例として出してるんだから、
へったくれもないです。
0962デフォルトの名無しさん2013/03/09(土) 15:13:24.67
あーきもいきもい
0963デフォルトの名無しさん2013/03/09(土) 15:27:29.17
引数をいじる、というパターンだと

$str =~ s/\s//g;

とかもキモい
パターンにマッチするか見るだけですよと言われてたのに、
いつの間にか身ぐるみ剥がされてる
0964デフォルトの名無しさん2013/03/09(土) 15:42:08.33
お前が馬鹿だからだろ
0965デフォルトの名無しさん2013/03/09(土) 15:57:36.04
気持ち悪いコードを見せるな
0966デフォルトの名無しさん2013/03/09(土) 16:31:30.70
あんまりこういうの見たことないのか
かなり定番の処理なんだが
0967デフォルトの名無しさん2013/03/09(土) 16:38:10.93
糞コードのオンパレードPerl以外では
見ないコードだな。
0968デフォルトの名無しさん2013/03/09(土) 17:17:47.42
かなり苦しいな
3点を上げよう
1000点満点だが
0969デフォルトの名無しさん2013/03/09(土) 17:25:01.28
rubyも感嘆符が付くと破壊的になる。
s =~ s///ならs.gsub!()、chomp(s)ならs.chomp!
0970デフォルトの名無しさん2013/03/09(土) 17:35:03.51
rubyはパクリの集積なんで「rubyでは」とか言わない方がいい。
!を破壊操作する名前の最後に使うのはschemeが起源
0971デフォルトの名無しさん2013/03/09(土) 17:56:45.96
便利さとconsistencyの両立だな
破壊した方が楽な時は破壊したい
でも、見てそれと判る方法でないといけない

perlは慣れれば判るという癒着体質
0972デフォルトの名無しさん2013/03/09(土) 18:08:27.61
> 破壊した方が楽な時

あんのか？ 代入すればいいだけじゃん。
0973デフォルトの名無しさん2013/03/09(土) 18:09:00.73
両立っていうのなら両方用意しろ。
0974デフォルトの名無しさん2013/03/09(土) 18:23:44.24
だからPHPのほうがいい。
0975デフォルトの名無しさん2013/03/09(土) 18:30:03.14
>>970
それを言うと、Perlもsedやawkやシェルスクリプトの集積物になってしまう。
今更だが。

>>973
置換は非破壊修飾子を使え。chompは引数で代入がイディオム。
0976デフォルトの名無しさん2013/03/09(土) 18:57:48.88
PHP最高!Perlは糞!
0977デフォルトの名無しさん2013/03/09(土) 19:16:34.66
糞!は何を破壊するメソッドなんだ?
0978デフォルトの名無しさん2013/03/09(土) 19:18:39.45
俺達の心です
0979デフォルトの名無しさん2013/03/09(土) 19:46:47.24
今どきPerlとか古いよ
0980デフォルトの名無しさん2013/03/09(土) 19:56:46.53
言語に新しいや古いなんてねーだろ
それならC言語とかもっと古いしっとマジレスを入れてみる
0981デフォルトの名無しさん2013/03/09(土) 20:32:36.36
例えばrogueの流れを汲むソフトウェアなら
自動拾いのファイルにて、自動破壊に！を使う
！が破壊的とか否定なのは相当に根が深い
0982デフォルトの名無しさん2013/03/09(土) 20:44:15.59
>>975
> 置換は非破壊修飾子を使え

それはPerl 5.14からしか使えない機能だ。
0983デフォルトの名無しさん2013/03/09(土) 20:45:16.15
またモダンPerl厨がきてるのか？

どこでも動くようにコードは書かないといけない
モダンな命令は使用禁止だ。
0984デフォルトの名無しさん2013/03/09(土) 21:12:49.22
どの環境まで動くようにするかの取捨選択問題じゃないのっと
どこまで動くようにと言っても極端な場合は無理だし
0985デフォルトの名無しさん2013/03/09(土) 21:19:03.32
新しい機能も新しい標準モジュールも使うべきだと思うよ。
CPANモジュールに関しては品質見る必要があるけど
有名なものなら大丈夫だろう。

モダンなPerlで行こうぜ。
0986デフォルトの名無しさん2013/03/09(土) 21:31:22.48
ネットワークには繋がらないので、モジュールの類は使えない
0987デフォルトの名無しさん2013/03/09(土) 21:32:49.48
>>986
つ[フラッシュメモリ]
0988デフォルトの名無しさん2013/03/09(土) 21:34:43.04
>>986
OSインストールディスク
0989デフォルトの名無しさん2013/03/09(土) 21:35:34.33
ネットワークもUSBポートもDVDドライブもないんでな。
OSも入れられんのだよ。だからモジュールのたぐいは使えない。
0990デフォルトの名無しさん2013/03/09(土) 21:40:44.34
2000年ごろまで外に繋らない環境でPerl4使ってたなあっつーことを思いだした。
0991デフォルトの名無しさん2013/03/09(土) 21:43:39.04
印刷して手打ちだな。
昔、MSXとかの時代に雑誌に乗ってあるゲームソースを打って動かした物だ。
それを考えたら余裕だな
0992デフォルトの名無しさん2013/03/09(土) 22:05:55.85
実際、それに近いことをしてる
必要なライブラリをkindleに入れて、隣に表示させといて目でコピペ

perlfuncとかなら見れるのが唯一の救い
0993デフォルトの名無しさん2013/03/09(土) 23:18:51.61
高セキュリティのところはそうやらないとだめだよね。
それに最新のPerlは使えないし。
0994デフォルトの名無しさん2013/03/09(土) 23:34:34.99
Kindle持ち込ませてくれるならいいほうだ。普通は無理。
入退室時に持ち物検査があるとこだって珍しくない。
0995デフォルトの名無しさん2013/03/09(土) 23:36:17.38
perlは初心者を袋叩きだっけ？
0996デフォルトの名無しさん2013/03/09(土) 23:42:16.43
うるさいゴミ
0997デフォルトの名無しさん2013/03/09(土) 23:51:02.30
PerlなんかやめてPHPに移行したほうがいいよ
PHPすごくわかりやすいし
0998デフォルトの名無しさん2013/03/09(土) 23:59:51.04
PHPというとWebアプリしか書けないイメージが抜けきれない
0999デフォルトの名無しさん2013/03/10(日) 00:00:46.08
PHPって普通のプログラムも書けるの？
1000デフォルトの名無しさん2013/03/10(日) 00:03:14.54
PHPは"Personal Home Page"のことだから、書けない
1001１００１Over 1000Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。