Perlについての質問箱 54目

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

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

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

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

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

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

[プログラミング自体の経験が無い奴はまずココを読め]
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/

糞スレ















>>1
バーカ

>>1
どうせゴミしか書き込まないのに何でわざわざ立てたんだゴミ

[モジュール]
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

ここで質問してる奴は大抵頭がおかしい
回答者もだいたいおかしい
前スレの>>1000みたいな奴とか

#　[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 でエンコードする必要があります。

Encodeモジュール （現在のPerl文字コードの標準）
http://search.cpan.org/dist/Encode/

UNICODEでわからなくなったらここを読め
http://perldoc.jp/docs/perl/5.8.1/utf8.pod
http://perldoc.jp/docs/perl/5.10.0/perlunifaq.pod

そりゃまともにPerlやりたい奴はTwitterのほうだろうな。

ちなみにスレタイ間違いました

正しくは 54"箱"目でした

またクソスレが立ったか
質問者をおびき寄せて罵倒しまくるために立ててるんだろうな
性格悪そう

>>10
ヴァカが調子に乗ってスレ建てなんかするからだろ？

>>1乙

前スレ988へ
use strict ;
use warnings ;

my $netmask = '123.123.123.0/22';
my $ip = '123.123.123.111' ;
my ( $org_ip, $byte ) = split m{/}, $netmask ;
my $packed_one = unpack "B$byte", pack 'C4', split ( /\./, $ip ) ;
my $packed_two = unpack "B$byte", pack 'C4', split ( /\./, $org_ip ) ;
if ( $packed_one eq $packed_two ){ print "hit\n" ; }

一部の荒らしが騒いでるだけ、無視すればいい
まともな答えも結構ある

>>11
それが>>1の生き甲斐だからなｗ

>>1ってアホなんだろうな、少しでも人の役に立ってRUUUUUUUUUUUUUUUUUとか思ってんだろ。
実際は初心者がフルボッコになる場所を作ってるだけなのに。

淡々と回答するだけさ。昔と変わらない。

違うよ、>>1は初心者がフルボッコにされるのをニヤニヤしながらヲチするために立ててるんだよ

C++でラーメン作れますか？ってスレがあるけど、Perlなら作れると思う。

あっそ。いつもの人が騒がしくてひどいな。

詳しく

ゴミが暴れまくった後は必ずといっていいほど「いつもの人〜」って書き込みがあるんだけど
これ実は暴れてるのと同一人物じゃないか？

じゃあID制を申請してこいよアホ
何もしねークズはしゃべんな
資源使うな贅肉

>>19
何にしてもデバイスないと無理だろ。

リャマ: ttp://www.oreilly.co.jp/books/9784873115672/

リャマ6版出てる。

>>23
さすがだなｗ
ID申請されてもいいようにIP複数持ちかｗ
自分からID推奨したらバレないと思った？ｗ

かなり前から自演だってバレてますぜダンナｗｗｗ

>23
いや別に2chだし、色んな人がいるから、自演は別にいいんだけど、暴れるときもうちょっとお手柔らかにお願いします。

>>26
ンンじゃあ前ｽﾚの俺の自演書き込みの番号をURL付きで
32行ｷﾞﾘｷﾞﾘに張り付けて
それが全部オレ様のだったらﾋﾞｯｸﾘしてやんよ

いやこれどう見てもいつもの人だろ

いつもタイミングがいいとは思ってたｗ

>>24
USBに電熱線と温度センサーを付ける
Perlで温度に応じて電力を制御する

タイイングもクソもなにも
特徴文書読んで仕分けてbotはしらせりゃ
バカでもできんだろ
こいつらマジでアホなのか？
たいｍんぐじゃねーんだよ
そういうbotなんてラクラクにつくれんだろ

USBでそんなに熱くなるのだろうか。

Perlでデバイスの制御ってきいたことないけど、できるものなの？

>>33
焼き肉だったかゆで卵だったかの記事は見かけたことがある

無理すんなってwww

>>1
乙

>>32
言い訳はいいから。

やるなら見破られないようにやれ。

でそのバカアホはどれが自演だっちゅーんだよ
さっさとスレ番号うｔきURL乗せろよアホ

そうすりゃ自演を見破ったと信じてヤンよ
それが出来ないなら吠えるな生ゴミ
燃やされてろよ　野焼きされてろ

＞USBラーメン
これ買ってPerlでアクセスできるようにすればいいんじゃないの？
ttp://www.thinkgeek.com/stuff/looflirpa/igrill.shtml
[iGrill]---[ドライバ]---[モジュール]---[Perlスクリプト]

自演ばれて気が立ってんだからつついてやるなよ

　||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||
　|| ○荒らしは放置が一番キライ。荒らしは常に誰かの反応を待っています。
　|| ○重複スレには誘導リンクを貼って放置。ウザイと思ったらそのまま放置。
　|| ○放置された荒らしは煽りや自作自演であなたのレスを誘います。
　||　　ノセられてレスしたらその時点であなたの負け。
　|| ○反撃は荒らしの滋養にして栄養であり最も喜ぶことです。荒らしにエサを
　||　　与えないで下さい。 　　　　　　　　　　　　　　　　 Λ_Λ
　|| ○枯死するまで孤独に暴れさせておいて　　 ＼　(ﾟーﾟ*)　ｷﾎﾝ。
　||　　ゴミが溜まったら削除が一番です。　　　　　 　⊂⊂ |
　||＿＿＿ ∧ ∧＿＿∧ ∧＿＿　∧ ∧＿　　　　　 |￣￣￣￣|
　　　　　　(　 ∧ ∧__ (　　 ∧ ∧__(　　 ∧ ∧　　　　￣￣￣
　　　　〜（＿(　　∧ ∧＿ (　 ∧ ∧＿ (　　∧ ∧ 　は〜い、先生。
　　　　　　〜（＿(　 　,,)〜（＿(　 　,,)〜（＿(　 　,,)
　　　　　　　　〜（＿__ﾉ　　〜（＿__ﾉ 　　〜（＿__ﾉ

ということで以後>>39の自演荒らしはスルーでよろ

42も自演です
どもうありがとうござすｍｓた

そんなんしなくても、ラーメンの画像とか作ってだな。

ご飯炊くとかならできそう

そういえば前スレで西暦0年から使えるtimeみたいなモジュールが欲しいって言ってる奴がいたな
ほれモジュールだ

package AC1;
sub timeultimatesuperavanced{
my $val;
$val = time * 1970 * 365 * 24 * 60 * 60;
return $val;
}
1;

かわいそうに。

うるう年は？

知らぬ存ぜぬ顧みぬ

苦節8年！
とうとうリファレンスが使えるようになったぜ！
これでCのアドレスが扱えるのと同じだからコードの高速化が可能！

なんでそこでいちいち計算するんだ？
西暦0年から1970年の秒数は未来永劫変わらないんだから決め打ちでいいだろ。
そのほうが速い。

スゲェ解決策だ
畏れ入る
で、難病なんだ？

1万行と2000行前からバグってる
8000年過ぎた頃からもっとカオスになった
1億と2000行後もバグってる
バグがばれたその日から僕の地獄にクレームはやまない

>>51
俺はCのポインタを綺麗サッパリ忘れることで
ようやくリファレンスを理解できた、気がする。

>>54
1箇所「年」のままだぞ

+じゃないの？

そもそも西暦0年って何

時空姦の闇に消えた謎の一年だろｊｋ

>>53
てめぇでやれ。
コマンドライン用な。
perl "print ( ( 1970 - ( 1970 / 4 - 1970 / 100 + 1970 / 400 ) ) * 365 + ( 1970 / 4 - 1970 / 100 + 1970 / 400 ) * 366 ) * 24 * 60 * 60"

馬鹿しかいない

perl -e "$p=1970;print ((int($p/4)-int($p/100)+int($p/400)+$p*365)*24*60*60)
62167132800
だけどグレゴリオ暦導入までの改暦経緯とかうるう秒とかどうすんだろ

$res[54] =~ s/年/行/ieg;

地球の公転秒数から計算させるとか！

>>64=天才

勢い459ワラタｗｗｗｗｗ

通常の１０倍じゃないか
perlの将来は安泰だな

で　西暦０年て

神といえども生まれたときは0才

>>62
そんな昔のこととかうるう秒とかどうでもいいだろ
そんな精度で記録されたデータもないから確認しようもないし

時の神クロノス

うるう秒は定義される以前はないぞ！
あと公転速度は年々微妙に遅くなっているらしい。
2000年もあればけっこうな秒数になってそうだけど…。

>>71
うるう年は？

クロノスかっけーな
そのモジュール名前「Chronos」とかでよくね？

すでにあるぞ。
http://search.cpan.org/~simonp/chronos-1.1.6.1/

うるう年はたぶんあるだろ。
2000年くらいなら今と同じ計算方法でさかのぼっても、公転が秒でずれることはあっても、日でずれたりはしない気がする。
いやあくまで気がするだけだし、調べるのもめんどうくさい。

では年代を意味する イアラ(Era)はどう？
ギリシャ語だとaera 何て読むかは知らない

んで内容は>>47な

time *
になってるのがポイント

>>47
色々とだめだろｗ

そういえば日本で閏年（グリコレオ歴）が導入されたのは1872年
Wikipedia見たら徳川家康が将軍職に任じられたのは1603年3月24日

グリコレオ歴で計算した場合もこの3月24日って大丈夫なの？
閏年とかの影響でずれたりしないの？

さぁ。歴史とか考古学の日付の計算方法はすごいことになってるぞ。
とてもとてもついてけん。
たぶん歴史の日時は世界統一されてんだろうけど。

＞timeultimatesuperavanced

　　↓

＞time
時間、時間の、時間に関する

＞ultimate
究極の、最高の

＞super
すごい、素晴らしい

＞avanced
？（参考：Googleの検索結果→次の検索結果を表示しています:advanced）

ぼくのなつやすみをかえして

スラドで一番ひどいプログラム板のスレだと聞いてやってきました！

そのヒドさを加速させるべく
また一人のアホが参加してきたのか
胸厚だな

Perlwwwwwwwwwwwww
パールwwwwwwwwwwwwwwwwwwwww
Pwwwwwwwwwwwewwwwwwwwwwwwwwwwwrwwwwwwwwwwwwwwwwwwlwwwwwwwwwwwwwwwwwwwww
金銀パールプレゼントwwwwwwwwwwwwwwwwwwwwwwww

>>82
このスレこういう幼稚なやつ多いよな

これだけ低質なスレなのに住民が居なくならないのがまた不思議
もしかして俺以外は全員同一人物の自演とか？

住民がいなくならないのも不思議だけどスレ立てしてる奴も十分不思議。

スレ立てしてる人は質問者が人格まで攻撃されて
ボコボコにされるのを見て楽しむために立ててるからね

次は西暦1年から使えるlocaltimeの作成だな。

歴史時間の世界規格は、秒単位まで定義されてるんだろうか。

いろいろ見たが地球の公転位置とかだったら秒単位でありそう
天文学の時系列や位置計算は精密だった。

ただ歴史の日時は必ずそれと同期は取れてない印象。
さらに秒はおろか、時間も歴史では出さない。
日単位で出てくる歴史があれば「おー！精密！」って思うくらいのレベル。

package Chronos;

sub localtime{
my $time = $_[0];
my $days = $time / ( 24 * 60 * 60 );
my $hour = ( $time - $days * 24 * 60 * 60 ) / 60 * 60;
my $min = ( $time - $days * 24 * 60 * 60 - $hour * 60 * 60 ) * 60;
my $sec = $time - $days * 24 * 60 * 60 - $hour * 60 * 60 - $min * 60;
return ( $sec , $min , $hour );
}

1;

>晒した奴
local厨（忍者？）が常駐してたからって、他サイトに晒すんじゃねーよ。
おかげで、hoge厨とスラドのROM専の連中、呼び込んじまったろうが。
こっちだけじゃなくあっちは、ラーメン談義スレになってんだぞ。
その前の事業家気取りのアホが常駐したときも凌いでたってのに…

よくわからんが誤爆乙

>>84

Perl自体がオワコンだしな
これからはPHPの時代

さぁ100レス目はどのバーコードハゲが取るのか！？

ものすごくレベルの低い質問で申し訳ないが、
ハッシュの定義で

%hoge = ('foo' => 'aaa', 'bar' => 'bbb');
って定義するのと

$hoge = {'foo' => 'aaa', 'bar' => 'bbb'};
と定義するのとでは

どちらにどのようなメリット・デメリットがある？

メリット・デメリットというのはちょっと表現が変か。
どのように使い分ける？

hogeにメリットない

>>100みたいに本質と関係ないところでウダウダ考えてるゴミっているよね

ハッシュだと $hash{'ok'}; で呼び出せるから見た目がコンパクト。
あと普通に用意された変数を普通に使ってるだけだから、違和感がないと言うか受け入れられにくさがない。
スカラーだと $scalar->{'ok'} こうなってしまう。
ハッシュ関係の関数を使う場合もいちいちデリファレンスしなければならない。

しかし他の構造(ルーチン)や、クロージャやオブジェクトを介するならその構造によって
\%hash; を渡さなければならない時が来るかもしれない。渡す時に\はきもい。
その場合 $scalar が自然だと思う。
ようは受け渡しが多いと言うかメインになるなら$scalar。

でも実際は単一であるスカラーにハッシュを入れる意味なんて何もない。
なにかの理由で「リファレンス」が欲しかった場合は別として。

今いろいろ出力テストでok書きまくってたから、なぜかkeyにokって書いてしまった。

104氏が先にほとんど書いてた。

リファレンス
5.14以降の人ならkeys $refなんかも出来るから便利かも知れないが、実験的だと明記してある。
俺は、5.14未満なので確認出来んがハッシュリファレンスのリバースも出来るのか？
%val_key = reverse $key_val ;
無理かな？deltaに書いてないし。

>>104
違和感とか受け入れにくいとか主観がメインの長文乙

そのうち
無名関数にどのようなメリットありますか
クロージャにどんなメリットあるましゅか
てな質問がくるぞ
容易しとけ

>>106
まじか。自分用の使い捨てだったらいいかもな。

>>84

>>104はただのアホなんだろ

>>100が救いようのないヴァカってのはよくわかった

>>109
|----------------------------+---------------------------|
| 伝統的文法 | 簡潔文法 |
|----------------------------+---------------------------|
| push @$arrayref, @stuff | push $arrayref, @stuff |
| unshift @$arrayref, @stuff | unshift $arrayref, @stuff |
| pop @$arrayref | pop $arrayref |
| shift @$arrayref | shift $arrayref |
| splice @$arrayref, 0, 2 | splice $arrayref, 0, 2 |
| keys %$hashref | keys $hashref |
| keys @$arrayref | keys $arrayref |
| values %$hashref | values $hashref |
| values @$arrayref | values $arrayref |
| ($k,$v) = each %$hashref | ($k,$v) = each $hashref |
| ($k,$v) = each @$arrayref | ($k,$v) = each $arrayref |
|----------------------------+---------------------------|
だそうだ。

>>113
ほっほー。ただ中に何が入ってるのか曖昧にされそうな書式ではあるな。

小規模なら %$scalar もありか…

5.12.4なので確かめられん。

古いバージョンなんかどうでもよくね？
古いバージョンについての情報が必要なのはメンテばっかやらされてる負け組のITドカタだろｗ
企業的にも社会的にも代わりがいくらでもいる人種ｗ
氏んでも構わないｗ

>>104
ありがとうございます。
スッキリしまいした。

>>118
どうでもいいから二度と来るなよ

…そっか、5.12からeachってARRAYでも使えたんだね。
$ perl -le 'my $ref = [4,3,2,1] ; while( my ( $i, $v ) = each @{$ref} ){ printf "%s\n", join "\t", $i, $v}'
0 4
1 3
2 2
3 1


>>106
当然だが、%val_key = reverse $key_val ; は出来んかった。と自己レス

おいおい
そんなこといっちゃあ
粘着ｸﾝがまた一人増えるだろｗｗｗ
やさしいなお前ｗ

>当然だが、%val_key = reverse $key_val ; は出来んかった。と自己レス
ああ、5.14.1で確かめてダメだった。って書くべきだった。

記法は毎回相手によって決めるようにしてけど、
foo \@array; の形式はラリーが哲学的な解を出してんだよなぁ

>>120
俺のarrayのeachはイメージはこうゆう感じだったんだがｗ
{
my %memory;
sub each_array(\@;\@\@\@\@\@){

my @array_rfs = @_;
(exists $memory{"@array_rfs"}) ? ($memory{"@array_rfs"}++) : ($memory{"@array_rfs"} = 0);

my @return = map { $_->[$memory{"@array_rfs"}] } @array_rfs;

my @sort = sort { @{$b} <=> @{$a} } @array_rfs;
(@{$sort[0]} - 1) < $memory{"@array_rfs"} and (delete $memory{"@array_rfs"} and return());

return(@return);

}
}

一応、こうやって使うイメージもってたってアレな。
foreach my $ (@array1, @array2, @array3){}

使い方全然違ったｗｗｗ
while(my(@array_line) = each_array @array, @array2, @array3){}

perlって言語仕様にかなり問題あるよな
どんなに注意して書いても10行くらい追加するとすぐにInternal Server Errorが出る

言語仕様というかサブルーチンに引数が6個以上渡せないのが糞。

>>124
ナニコレ。

>>127
板違い。Webprog板へどうぞ。

>>128
use 5.14.0;

sub {
my ($c, $d, $e, $f, $g, $h, $i) = @_;
say $c, $d, $e, $f, $g, $h, $i;
}->(1, 2, 3, 4, 5, 6, 7);

>>127
どうせ今までuse strict;付けずにやってたのを急に付けたとかだろ、そのうち慣れる

>>124
愛は伝わった。
(;\@...)は正規表現みたいな書き方あればいいのにな。

CGIモジュール使ってブラウザから送信された値を取り出すときに、ないかもしれない値を取り出そうとすると警告出るんだけど
これっていちいちチェックかけるものなの？

ブログのページをpage=5とかやってて、pageの値がないときはデフォでpageを0にしたいんだけど
my $cgi=use CGI;
my $page=$cgi->param("page");
$page+=0;
にすると希望通りの動作で問題はないけど警告が出て気持ち悪い

ブラウザからpage=0送るようにしとけばいいだろハゲ。

my $page = $cgi->param("page") || 0;
$page = 0 if $page !~ /^[0-9]+$/;

これが無難な処理かと。

>>133
カスだなお前

>>128
いやレスの流れで書いたやつだからｗ
それ言うならもっと突っ込むところあるぞ、場合によって困ったことになる穴がｗｗ

>>131
記憶になかったから書かなかっただけ。むしろ俺が聞きたい。できないの？

>>138
自分で試せばいいだろ
クズかお前

>>135はどこがカスかも言わずに勝った気になってるゴミ。

自演か？

>>136
カスだなお前

>>134
それだと未入力なのか、0入力なのかわからないな。
pageだとそれでもいいかもしれないが、
区別できるようにするべきだな。

また「いつもの人」の自演だろｗ
もうすぐ他人のフリして「いつもの人」って書き込みくるぞｗ

・・・って書いたから来ないかなｗ

荒しの人（>>127,>>128）や、>>129氏が暗に言ってるが
気付いて無いみたいだから。

>>124
コレ、まともに動かんよ。

List::MoreUtilsのmeshのプログレッシブ版みたいのを目指そうとしてた？
回答者だったら、use strict; と use warnings ; が通るコードで
実際に動かしてからレスした方が良いよ。

>>141
>>132の仕様を見る限り>>134のコードで要件を満たせるのに区別するのはなんでかな？
頭がおかしいのかな？

回答じゃねぇよ

>>143 use strict; use warnings; しても何も出んぞ？
つーか会話としてブラウザからそのまま書いたやつだぞそれ。

>実際に動かしてからレスした方が良いよ。

毎年夏になると基地害がここを避暑地にしてるときいたので観察にきました！

>>147
一応チェックしたいからエラーコードplz。エラー出ない。
と言っても穴があるって先に言ってるくらいどうでもいいコードだからね、それ。

エラーコード出してもいいけどお前はいくら出すの？
情報をまさかタダとか言わないよね

なんだ荒らしか

cat foo.pl
{
use strict;
use warnings;
use Data::Dumper;
my %memory;
sub each_array(\@;\@\@\@\@\@){ 略 }
my @arr = 1,2,3,4,5 ;
my @arr2 = 6,7,8,9,10;
while(my(@array_line) = each_array @arr, @arr2){ print Dumper \@array_line}
}
perl foo.pl
Useless use of a constant (2) in void context at foo.pl line 20.
Useless use of a constant (3) in void context at foo.pl line 20.
Useless use of a constant (4) in void context at foo.pl line 20.
Useless use of a constant (5) in void context at foo.pl line 20.
Useless use of a constant (7) in void context at foo.pl line 21.
Useless use of a constant (8) in void context at foo.pl line 21.
Useless use of a constant (9) in void context at foo.pl line 21.
Useless use of a constant (10) in void context at foo.pl line 21.
$VAR1 = [
1,
6
];

Perl 5.14
>>143
俺もエラーが出ない…
>>149
そして穴がどれかも分からない…

よければ教えて下さい。荒らしがこないことを祈りつつ。

>>152
あのー・・・その代入はできませんけども。


my @arr = 1, 2, 3, 4, 5;
print @arr;

Useless use of a constant (2) in void context at - line 1.
1Useless use of a constant (3) in void context at - line 1.
Useless use of a constant (4) in void context at - line 1.
Useless use of a constant (5) in void context at - line 1.

www
スラドから来た他の言語の人だった？
List::MoreUtils知ってるから違うか？

>>154が揚げ足とって荒らしてるだけってのがはっきりしたなｗ

すまん、言い訳の仕様もない。
>>124氏には重ね重ねの無礼申し訳ありませんでした。
吊ってくるorz…

>>155 さっきから気になってたんだがスラドってなに？

てめーで調べろボンクラ
単語一つ検索できないとかパーかおめ

>>156 なんでエラーの出てない俺が揚げ足を取るんだよ。
>>157 124はどうでもいいけど>>150の態度が。

my @a = (1);
while(my @l = each_array(@a)){
while(my @l = each_array(@a)){
...
}
}
で終了しないだろ、これ。

>>159
市ねゴミ

ttp://developers.slashdot.jp/comments.pl?sid=566675&cid=2143313

それを言うと
%sss = (1,2);
while( my($key1, $val1) = each %sss ){
while( my($key2, $val2) = each %sss ){
print 1;
}
}

これも終了しない。

穴って言うのは、
潜在的にeachが持ってる穴を全て引き継いだこと。

>>152
カプセル化されてた %memory; を外に出して同じスコープで使ってる。

>>129
単純なスカラ変数ならいいけどハッシュとかクラス混ざってると無理。

use Data::Dumper;

sub f (&$\%\@&$;\%\%\%\%\%\%\%){ print Dumper \@_ ; }
sub new { bless {}, shift }
my @arr = my %h1 = my %h2 = my %h3 = my %h4 = my %h5 = my %h6 = my %h7 = (1,2) ;
f sub { 1+1 }, main->new, %h1, @arr, sub { 1+2 }, main->new,%h2, %h3, %h4,%h5, %h6,%h7, ;

読ませる気ないだろ、しかも>>167に対してｗ
そんなの作るなんて暇だな。楽しそうではあるけどｗ

新しい暗号化技術→>168

俺の専ブラが >>168 をAAと認識したw

>>168
天才の誕生であるな！

たしかにeachと内部構造が同じだな。
まぁshiftだのkeysだのeach配列やハッシュ関数は数行で自作出来るんだよな。
ベンチマークもたいして変わらないし、俺もそれ関連は自作だな。
むしろ組み込みは使ってないかも。読めない人から苦情くるかもだけど。

実体じゃなくて変数に対してのリファレンスか何かを得る方法はありますか。
グローバルなら取れますけどレキシカルが取れません。

>>174
自分で調べろゴミクズ

>>174
何で調べずに質問するの？
本物？

>175-176
こっちが下手に出ればいい気になりやがって
ニートの分際で口答えするな
ここは質問スレだからお前らにはどんな質問にでも答える義務がある
さっさとしろ

pushとかは自作したほうが速いんでない？
@arr=push(@arr,@arr2);
だから配列を引数で2つも渡してさらに戻り値で配列が返ってくる
これをpush2(\@arr,\@arr2);でできるようにしたら爆速になると思う

>>174
ある。
質問には答えたから後出し質問するなよ。

>>178
ベンチとってから言え。

>>178
push(@arr, @arr2) は@arr2の中身を@arrに直接ぶち込むし戻り値は追加後の@arrの要素数なんですけど

>>174
これ？
http://perldoc.jp/docs/perl/5.14.1/perlref.pod#Making32References

>>178
リファレンス値をプッシュするにはどうすｒ

くらえ！
コンソメパーンチ！＾＾

>>181
h抜けよ低脳

>>183
h抜くのはねらーのキモい文化だから抜く必要はないんだよ。
h抜いても何の意味もないのに、俺は他のネットサーフィンやってる情弱とは違うんだぜって言いたいだけのオナニー
一般社会ではh抜かないのが常識、抜くのは異常、わかる？

PerlってCGIにしか利用されないのは何で？
他のPHPやC++もCGIに利用されることはあるけど、PHPはマジキチが使ってるだけだしC++は高速化ヲタが使ってるだけじゃん
世のにあるCGIの99.99%がPerlなのは何で？

>>184
> h抜くのはねらーのキモい文化
その通り
抜く意味も分からずに吠えてる滑稽な奴も多いしｗ

意味も分からずというか元々意味も糞もない

ぼくのなつやすみをかえして

意味はあるよ
昔はみんな回線細かったからデータ量の節約
同じ理由で句読点アレルギーの基地害もいる

ベンチってどうやってとるの？

>>183
h抜きは、個人サイトにリンクを張るときにリンク元を隠すためのものだけど、
隠す必要あるのか。

ちなみに外部リンクはdat中ではただの文字列。

すんげーシステム考えたｗｗｗｗｗ
絶対儲かるｗｗｗｗ
後期まで暇だから起業しようかなｗｗｗｗｗｗｗｗｗ
そしてPerlでシステム作るｗｗｗｗｗｗｗｗ

Perlで作ったシステムなんかで金儲けできるの？
インタプリタ言語なんてコピーされて終わりだろ

インタプリタに限らず
コピーされない言語ってあるの

つーか根本からお前はアホだろ
隠すなよ水臭い　ついでにワキもくさいからひっこんでろクズ

コンパイルしてからしか使えない言語なら完成品コピーされないだろ低脳

お前インタプリンタしか触ったことないだろ
一度も女に突っ込んだことのないチンコが臭いからひっこんでろゴミ

さぁさぁ夏も本番になってまいりました！

>>185
まず「Perlと言えばCGI」と「CGIと言えばPerl」は全く違う話なので分けるとして。

＞PerlってCGIにしか利用されないのは何で？

そもそも、そんなことはない。
Perlは元々がテキストフィルタ向けの言語であり
高級シェルスクリプトとしての需要も未だある。

「どうしてそう勘違いされるの？」という質問ならば
Windowsの世界ではCGIで有名になった言語だからじゃねーかな。
書籍もPerlとCGIをセットにするものが多いせいでその勘違いを後押しした。

＞世のにあるCGIの99.99%がPerlなのは何で？

こっちはそれなりに多いと思う。(流石に99.99%かどうかは疑問だが…)
まあ、一口で言えば歴史的経緯だな。

そうだったのか

なんでもないです板ごと誤爆です

気になるだろスレッド教えろよ

197は簡潔にまとまってていいな。

では印刷して額に入れて居間に飾っておけ

foreach my $i (@array){}
の形式って、実際にはどうなってるの？
配列としては展開されてない？
1個ずつ発生して不要なのは切り捨てられてるの？

foreach my $i (0 .. 99999999){}
for(my $i = 1; $i <= 99999999; $i++){}
後者のほうが5秒ほど遅くなるんだけど。

>>203
自分でPerlのソースコード落としてきて調べろよ脳弱

>>203
YES.
ついでに演算子などの動作も変わる。
コンテキストはリストのまま。あくまで表面上は。

>>204
ソースコード？具体的にどれのどこのことだ？

>>203
前者がやってるのは、メモリ上に作成された無名配列の各要素へのアクセス
後者がやってるのは、数値変数の++演算と条件判断
やってる事が全く違うし、遅いの当たり前。

>>206＝池沼さん

>メモリ上に作成された無名配列の各要素へのアクセス
これをきちんと説明しろって事でしょ？
ただ、「展開」って言葉とか「発生」って言葉を適切に訂正しながら
理解させるのってアホくさい。

そうだよなw
「配列の展開をします。」ってforループを呼んだりしたとき自体の事を示すから
>foreach my $i (@array){}
>の形式って、実際にはどうなってるの？
自分で展開行為をしといて
>配列としては展開されてない？
だと意味不明だもん。

初心者スレで習って来たら？

>>203
> foreach my $i (0 .. 99999999){}
これは配列を発生させず、最適化されることになってる。

http://perldoc.perl.org/perl5005delta.html#foreach-%281..1000000%29-optimized

>>205, >>210
ありがとう。
今まさにちょうど。>>206-209配列が発生してる痕跡がないんだけど…、
ってテスト数値を書いてるとこだった。

コマンドプロンプトでGDGraphをインストールしようとしたら

コンピューターにlibexpat-1_.dllがないため、プログラムを開始できません。この問題を解決するには、プログラムを再インストールしてみてください。
と出ました。

libexpat-1_.dllをインストール？すればGDGraphをインストール出来るのでしょうか？

>>212
やってみてから言えゴミグラマ
基地害こじらせたのかよこのクズ
実験より先に質問が出るようならプログラマ向いてない
余計なことしなくていいからエロサイトでマスでもかいてろ

>>950
このスレが隔離スレだって言われてるけど、実は雑魚の養殖場になってて迷惑。
最近他のスレでもこのスレ発祥っぽい雑魚を見かけるようになった。

>>213
氏ね屑。
糞共でも質問してもらえるだけありがたいと思え。

回答をお待ちしております

>>215
はぁ？
ライブラリのインストール試せないゴミグラマが何言ってんの？
お前迷惑だから社会に出てくんなよゴミグラマ
自分では正常だと思ってるかしらんがインストール一つ試せないのは異常だから
精神にが問題あるんだよキチガイ

>>216
氏ね屑。
失敗したら時間がもったいない、だからこのスレにいる糞共の価値のない人生の時間を使って試せばいい。

心優しい方からの回答をお待ちしております

出現してもだんだん違和感を感じなくなってきた。

本物です

もうTwitterで回答をもらえたので大丈夫です

Twitterのほうが早いというのはネタだと思ってましたが、本当に早かったです

>>212
OSがWindowsで、ActivePerlの5.10か5.12辺りだったら、5.14にバージョンを上げて、
モジュールも全部ppmで入れなおせば出なくなるんじゃないかな。

野良dllを拾ってカレントディレクトリに置いても解消すると思うけど。

ゴミみたいな質問に対して、
ただ自己顕示欲を満たすためだけに回答する精神異常。

私は今から自己紹介しますが、
ゴミスレに書き込むゴミです。
どうぞ皆さま、お手柔らかに、どうかよろしくお願いします。

なんで、このスレってperlとかよくわかんない俺が見てても
それなりに面白いんだろ？

>>222
開き直ってる奴はゴミ未満

ここってプロフェッショナル様の戦場だったっけ

戦場を導くのは
あなたのナイスな釣り質問です
頑張りましょう
god bless you. (紙にブレスされて死ね)

祝福だの気持ち悪いが、なかなか良いやり方だよね。

プロフェッショナル様の戦場ではないけど、検索能力すらない全裸同然の丸腰でほっつき歩いてたら蜂の巣にされるのは当たり前。

どうもスレッド読んでもピンとこない的外れな意見ばかり
紛争地域の真っ只中にいる俺らを理解出来るわけないし
所詮別世界の外野が言ってるだけだしな
黙ってろって

ことわる。

少なくともお前と同じ程度のことは
しゃべる。

典型的な負け犬だな
俺は社会の歯車まになって朽ち果てるつもりはないし
あんたらみたいに社会の負け犬とは違う
それと例えが悪かったな仕事じゃない戦争
ライバルカチあったらそれはもう戦場なんだよ
戦場の真っ只中にいてどうとかいえるか？
そんな甘いもんじゃない今を勝ち抜くんだよ

＞俺は社会の歯車まになって朽ち果てるつもりはないし
＞あんたらみたいに社会の負け犬とは違う

一世紀近く前から若い奴はみんなこう考えてるよな
30
そして40代50代になった頃にふとそれが幻想だったことに気付くんだよな

俺は社会の歯車になって朽ち果てていない。
つまり、達成した事実だ。

お前は、「朽ち果てるつもりはない」？
つもり・・・？将来の話か。
まだ、社会経験もないガキだな。

146 名前：カズヤ ◆1Np/JJBAYQ [] 投稿日：2009/06/25(木) 22:37:04 ID:k6xdjhx8Q
>>137
典型的な負け犬だな
今更リアル現実世界に何の意味がある
俺は社会の歯車まになって朽ち果てるつもりはないし俺にとってリアルはFF
あんたらみたいに社会の負け犬とは違う
それと例えが悪かったな仕事じゃないHNMLSとは戦争
ライバルカチあったらそれはもう戦場なんだよ
戦場の真っ只中にいてリアルがどうとかいえるか？
そんな甘いもんじゃない今を勝ち抜くんだよ

俺は自分が朽ち果ててるのかどうかよく分からない。
でも一応仕事があって食べ物にもありつけてるからありがたいことだとは思ってる。

やはりPHP書きよりPerl書きの方が頼りにされていた日立製くん所との案件で
おれはコーディング開始時期に遅れてしまったんだがちょうど書きはじめたみたいでなんとか耐えているみたいだった
おれは別派遣先にいたので急いだところがアワレにもPHP書きがくずれそうになっているっぽいのがメール会話で叫んでいた
どうやらPHP書きがたよりないらしく「はやくきて〜はやくきて〜」と泣き叫んでいるコーダーのために俺は契約解除を使って普通ならまだ付かない時間できょうきょ参戦すると
「もうついたのか！」「はやい！」「きた！Perlきた！」「メインPerl書ききた！」「これで勝つる！」と大歓迎状態だったPHPはアワレにもコーダーの役目を果たせず泣いていた近くですばやくPerlを書いてコーディングした
PHP書きから裏メールで「勝ったと思うなよ・・・」ときたが開発メンバーがどっちの見方だかは一瞬でわからないみたいだった
「もう勝負ついてるから」というと黙ったので日立プロパーのJava書きの後ろに回り、モジュールのテストをして何週間かしてたらサーバーサイドのコーディングは終わった
「Perl書きのおかげだ」「助かった、終わったと思ったよ」とPHP書きを行き帰らせるのも忘れてメンバーがおれのまわりに集まってきた忘れられてるPHP書きがかわいそうだった
普通なら裏メールのことで無視する人がぜいいんだろうがおれは無視できなかったみんなとよｒこびほめられたかったので打ち上げ飲み回に誘ってやったらそうとう自分の裏メールが恥ずかしかったのか自社に帰って行った

ナイトと忍者のＬＳ信頼度は違いすぎた

1 名前：既にその名前は使われています 投稿日：2005/04/28(木) 11:25:42 B9zsO3y1
やはり忍者よりナイトの方が頼りにされていたキングベヒーもスとの戦いで
おれは集合時間に遅れてしまったんだがちょうどわきはじめたみたいでなんとか耐えているみたいだった
おれはジュノにいたので急いだところがアワレにも忍者がくずれそうになっているっぽいのがＬＳ会話で叫んでいた
どうやら忍者がたよりないらしく「はやくきて〜はやくきて〜」と泣き叫んでいるＬＳメンバーのために俺はとんずらを使って普通ならまだ付かない時間できょうきょ参戦すると
「もうついたのか！」「はやい！」「きた！盾きた！」「メイン盾きた！」「これで勝つる！」と大歓迎状態だった忍者はアワレにも盾の役目を果たせず死んでいた近くですばやくフラッシュを使い盾をした
忍者から裏テルで「勝ったと思うなよ・・・」ときたがＬＳメンバーがどっちの見方だかは一瞬でわからないみたいだった
「もう勝負ついてるから」というと黙ったので戦士サポ忍の後ろに回り不意だまスフィストを打つと何回かしてたらキングベヒんもスは倒された
「ナイトのおかげだ」「助かった、終わったと思ったよ」と忍者を行き帰らせるのも忘れてメンバーがおれのまわりに集まってきた忘れられてる忍者がかわいそうだった
普通なら裏テルのことで無視する人がぜいいんだろうがおれは無視できなかったみんなとよｒこびほめられたかったのでレイズを唱えてやったらそうとう自分の裏テルが恥ずかしかったのかＨＰに帰って行った

なんかイラっときた

http://d.hatena.ne.jp/marujx/20120407

おまえらも質問に回答するときとか「っつ−−のは」とかやめようぜ

>>238
何でHDDの容量を監視しとくシステムを構築してなかったんだろうな
シェルスクリプトでもすぐ作れるだろ
cronで5分おきにチェックして容量がキモかったらメール飛ばすようにすればいいだけなのに
その労力を惜しむから再インストールになるんだろうな

労力を惜しんだんじゃなくて
想定してなかっただけでは？

お前ならもし電源が落ちたら？って
考えて作業してるか？

するだろ

そりゃするよな。ましてや他人様のデータ管理してるわけだしな。

労力を惜しんだんでなくて、コストカッツで担当者の負担大きすぎて
首が回らなかったんでないだろうか。

じゃあ、津波が起きたらって考えてるか？

もちろん！そのために埼玉県にいるんじゃないか！

　|　　さいたまさいたまさいたま！をやっていいですか？
　＼＿＿＿＿　 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／
　　　　／||ミ　 Ｖ
　　 ／ ::::||
　／:::::::::::||＿＿＿＿
　|:::::::::::::::||　 　 　 　 ||
　|:::::::::::::::||│　／ 　 ||
　|:::::::::::::::||￣＼　　 ｶﾞﾁｬｯ
　|:::::::::::::::||ﾟ ∀ﾟ）─　||
　|:::::::::::::::||＿／　 　 ||
　|:::::::::::::::||│　＼ 　 ||
　|:::::::::::::::||∧ ∧∩　||
　|:::::::::::::::|| ﾟ∀ﾟ）/　 .||
　|:::::::::::::::||∧ ∧∩　||
　|:::::::::::::::||　ﾟ∀ﾟ）/ . ||
　|:::::::::::::::||　　　 〈......||
　|:::::::::::::::||,,／＼」......||　　　　　　　　　　…
　＼:::::::::::||￣￣￣￣　　　　　　　　　　　　　　　　　　　　　 　 ∧＿∧
　　 ＼ ::::||　　　　　　　　　　　　　　　　　　　　　　　＿＿_＼（・∀・　 ）　＜ こ、ここでやるのかよ・・・
　　　　＼||　　　　　　　　　　　　　　　　　　　　　　　＼＿／⊂　⊂＿ )
　　　　　　　　　　　　　　　　　　　　 　 　　 　 　 ／￣￣￣￣￣￣ ／|

電源が落ちるとか津波みたいな外的要因と
HDDの容量がいっぱいになるってのでは話が違うだろ

HDDがいっぱいになるのは正常動作であって天災や事故がなくても発生する
普通はシステムの内容から見積もってそれに応じた容量のHDDを確保するし
無限にデータが増え続けるようなシステムなら他のデータストア用の鯖に移すとかってシステムを構築することになるだろ

何一つやってないのはどういうことよ

　　　　　　　　　　　　　　　　＼　│　／
　　　　　　　　　　　　　　　　　／￣＼　　 ／￣￣￣￣￣￣￣￣￣
　　　　　　　　　　　　　　　─（ ﾟ ∀ ﾟ ）＜　さいたまさいたま！
　　　　　　　　　　　　　　　　　＼＿／　　 ＼＿＿＿＿＿＿＿＿＿
　　　　　　　　　　　　　　　　／　│　＼
　　　　　　　　　　　　　　　　　　　 ∩ ∧　∧　　／￣￣￣￣￣￣￣￣￣￣
￣￣￣￣￣￣￣￣＼∩ ∧　∧　＼（ ﾟ∀ﾟ）＜　さいたまさいたまさいたま！
さいたま〜〜〜！ 　 ＞（ ﾟ∀ﾟ ）/ ｜　　　　/　＼＿＿＿＿＿＿＿＿＿＿
＿＿＿＿＿＿＿＿／ ｜　　　 〈　｜　　　｜
　　　　　　　　　　　　　 /　／＼_」　/　／＼」
　　　　　　　　　　　　　 ￣　　　　 / ／

馬鹿には無理

爆発的に、あるいは無限にデータを増やすには、
perlが打って付けです

HDDという資源を圧迫したいのならば、
延々とテキストを吐き続ける華麗なperlスクリプトを使いましょう。
さすればあなたも、延々と連なるゴミマーの一角を占めることができます。

そのようなスクリプトは、私が書くことができます。
どうでしょう。すばらしいでしょう。

>>249
めんどくさいやつだな。

お前はPerlを褒めてるの？
それともディスってるの？

$ yes > foo.txt
も知らん奴なんか、ほっとけよ

>>251
このyesって止める方法が分からずパソコンを再起動したのが良い思ひ出・・・

HDDの容量アラートなんて普通全鯖に仕込むだろ

メモリもスワップ使いだしたらアラート飛ぶようにするだろう。

Perlで実装するのか！それ！

>>255
馬鹿がおめ
んなもんシェルスクリプトで十分

ばっかだなぁ
そんな物、目視で十分

24時間目視するの？
一人じゃ無理だし、人雇うならスクリプト書いたほうがはるかに安くあがる

>>251はhogeではなくfooを使っている。
これがまともな人間。



ホゲってｗｗｗｗｗ

>>259
お前がウザいから、hogeを使わなかっただけだ。
とっとと巣に帰れ。

地獄

>>95

ぼくのなつやすみをかえして

ぼくの勃起力をかえして

配列@nameに入っている文字を全てつなげて一つの文字列にしたいのですが
foreachでつないでいくしかないのでしょうか？

>>265
my $str = join '', @name ;

はい自己顕示欲を満たしたいだけの馬鹿が釣れましたｗｗｗｗｗｗｗｗｗｗ → >>256
お前みたいにちょっと調べれば分かるようなクソ質問にせこせこ答えてる馬鹿がスレの質を低下させるんだよ
自覚しろ馬鹿

はじめてのPerl第6版買ってくる！

>>267
質なんて始めからねーじゃねーかw

煽り入れるのに、リダイレクト間違えるって、、、

高度なアホだ
見よ　これがperlスレの質の高さというものだ
これほど高度なことをやってのける人物はそうそういない

地獄

hogeこそが正義！
hogeを抹殺しよおとしている者がいるが
宇宙の意志を継ぐhogeが怖いのであろう！

心を開き、hogeを受け入れ、hogeと一つになるのだ！
さすればhogeの加護あらん！

>>273
氏ねキ〇チガイ

>>273
hogeを当たり前のように使ってる奴はマジで頭おかしいよ
煽りとか抜きでマジで異常

でもhogeは一流のプログラマが書いてる解説サイトでも使われてるよね。

あまり英語ができないひとだろう（こっちが赤面するね）
執筆も依頼されないだろう

＞hoge




















馬鹿じゃねｗ

hogeとかhugaとかpiyoって何て読むの？
ホージ、ヒューガ、パイヨー？
まさかホゲとかフガとかピヨじゃないよね？

ねえ、hoge使ってる基地害の人答えてよ
何て読むの？

>>280
タルタルスレにいけ

早く読み方教えろやｋｓ

なぜぐぐらない。ネタにマジレスとどうしてもつっこみたいのか

ｈｏｇｅ

読み方：ほげ


huge
ヒューージです。


piyoとは (ピヨとは) - ニコニコ大百科

ほげだってｗｗｗｗｗ
だせぇｗｗｗｗｗｗｗｗｗｗ

ほげとかセンスのかけらもないな

こういう奴がセンスのないウンコードを垂れ流すんだろうな

成程
最近の子供はhogeとか好きじゃないのか

この板も世代交代始まったな

hogeでセンスをしめしてみろや

hogeとか大人でも嫌だけどな

hogeが許されるのはちんこまんこうんこで喜んでる小学生まで。

>>279
マジレスするとhogeはホーグ。

Perlに関連する質問をよろしく。

>>290
perlについて質問です
hoge使ってる脳弱はperlに特に多いようですが、
脳弱がperlを使う傾向があるのですか？
それともperlを使ってると脳弱になるのですか？

PHPerが入るとスレがあれるな

perlか何かに関わらず、
その言語使用者群には、脳弱が一定数いる。
カンでは、20%ほどが脳弱。
そして脳弱ほど２ｃｈねるのスットレに書き込むので、
あぼぼぼぼぼぼぼおおおおおおおおおおおおおおおおおおおお

あぼぼぼぼぼぼぼおおおおおおおおおおおおおおおおおおおお

あばばばばばばばばばば

あぼぼぼばぼばばばばぼぼばばばぼおおおおおおおおおおおおあああああおおおおおおおおあああああああああ

いや、俺は冗談のつもりだったんだけど
ここまで荒れるネタを提供することになるとは思わなかった
正直すまなかった

謝って済むなら警察は必要？

>>293-296
電車の中だけどPerlスレならぬ荒れ方に吹きかけたｗ

Perlスレってまともな奴が一人もいないんだな

WebProgの方は、真面目に議論されてるぞ
Perlの話じゃないけど

hogeとかhugaとかpiyoとかについて真面目に儀式ばって議論されているのか
素晴らしい、涙ぐましい光景じゃないか
脳弱だと気づいていない、気付かせる者すら近寄らない魔窟だろ　そこ
そしてそこを覗いているあなたは
自分自身がそうであることに全く気付いていない

まぁ落ち着けよお前ら
俺が来たからにああばばばばばばばぼあぼぼぼぼぼぼぼぼぼぼぼおおおおおああああああああ

WebProgのほうはなくなったんじゃなかったか？

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

こんなスレあるんだなw

Perl忍者スレと大して変わらないレベル．

>>302
「ここ」じゃなくて「そこ」なのか？
「そこ」だとどうもこのスレじゃないニュアンスが伝わってくるんだが

Perlはちょっと数行書き加えただけですぐInternal Server Errorになるのが糞

PerlとCGIの違いを理解出来ない云々
というか、構文ミスったりしたらエラー出るのはどの言語もいっしょだよね？

>>309
馬鹿がおめ
他の言語は「〇〇行目がおかしくてエラーです」って出るだろ
Perlは糞だからとりあえず「いんたーなるさーばえらああああああああっ！！！！」しかいわねーんだよ

誰がただのエラーつった、インターナルサーバエラーつってんだよ
分かったか調子に乗って脊髄反射でレスしてんじゃねーぞボンクラ

趣味ならこんな糞言語使ってねーぞ

WebProg行け

誘導済みだから、
Internal Server Error煽り（メール欄PHP最高）
はスルーする様に。

>>310
鯖のログ見れば何行に問題があるかヒント付きで書いてあるだろ。

>>310
構文チェックするツール使えば？

>>311-312
自治したいだけのキチガイ自治厨は引っ込んでろｗ

Webprog板はこちら。
http://kohada.2ch.net/php/

>>315
>>1を100回音読しろ。

>>313
その程度知ってる
わざわざ鯖のログまで辿らねーと分かんねーとか糞すぎるつってんだボンクラ
PHPはちゃんと画面に出るわ糞

>>314
他のツールがないとバグ取りもできないとか言語として糞

>>317
他の言語はコンパイラとかにデバッグ機能が仕込んであるんだよ
だから言語とはまた別の問題

>>317
そもそも間違ったコード書いてるのが問題だろ
そういう支援機能のある環境使えよ

おいおい
PHP脳炎に罹ってる末期者じゃねーか

webprogの人間はアホを放つなよ
そこで養殖した脳弱を他に移植すんなｗ

>>317
じゃあphp()でも使ってろよｗ

>>318
セットで配ってるくせに別とか言い逃れできるわけねーだろボンクラ

>>319
メモ帳で開発すんなって？
開発環境を限定する言語がどこにあんだよ
あ？

>>321
趣味ではPHPしか使ってねーよ常識だろ

>>322
で？
俺らにどうして欲しいんだ？

まあでもIntermalなんちゃらは別にして、
最終行でMissing right curly or square bracketは勘弁して欲しい。

マジで馬鹿しかいない

かく言うわたしも痴呆でしてね
自己紹介ありがとうございます
お仲間が増えて嬉しい限りです

何でパールスレってまともな人が一人もいないんだろ

↑
ゲイ

質問です。
ヤリマン、ヤリチンとよく言いますが、
ちんこをアナルに入れられまくるゲイの方は何と言うのでしょうか？
ゲイでも相手にちんこを入れる側の方ならヤリチンでいいと思うですが、
入れられる専門の方は何と言うのでしょうか？

ネコ？

なんですぐPHP厨沸いてしまうん？

>>331
Perl使いがPHPを馬鹿にしにくるからだろうね

変な奴が来たら、逆にそいつのスレに
行って騒ぐのは当たり前。

PerlerはPHPerと違って案件いっぱい来て忙しいから
わざわざ自分から好き好んで地べたを這いずり回って泥水すすってるようなキチガイPHPerを馬鹿にしに行く暇なんてないよ
産廃PHP使ってるPHPerが勝手にPerlをライバル視してこのスレに出張してきてウザいからフルボッコにされてるだけだろ

しかし一番の収穫と言えば
やはりPHP書きよりPerl書きの方が頼りにされていた
がFFIXのコピペだっちゅーことを知ったことだ
とても有意義なスレだよここは

もうこのスレはネ実ならぬマ実とでも名乗っていいんじゃないか？
我々のperlなのだし

Perlは神！

定期上げを兼ねたスレだから優秀ではある

それでもゴミPHP使う奴がいるってのが不思議

そら振り込め詐欺に引っ掛かる奴も、アレフに入信する奴も後を絶たないはずだわ
常識で考えたら分かりそうなもんだけどな

そういえばだっちゅーのを最近見ないと思ったら片方がAVデビューしてた。

俺もPHP使ってる奴の神経はよくわからんなって思う

少し調べればPHPが使い物にならないのは分かるはずなんだけどな。

>>332
この板にPHPスレッドあったっけ？

あと、ガチの亞北ネルが常駐してるだろ、このスレ。

Web以外でPHPを無理やり使うスレ、とかならあっても良さそうだが

WebでもPHPはありえねｗ
やっぱりPerlのほうが優秀

PHP()

PHPが馬鹿にされてるけどRubyについてはどう思ってるん？

安定板のメンテナ公募してて、半年180万だっけ？
そんなことやるだけで、十分忌避対象。

Perlメンテナは全員無償奉仕だというのに

韓国で建設会社の90％が倒産！不動産バブル崩壊で銀行、国民、企業みんなオワタ
http://engawa.2ch.net/test/read.cgi/poverty/1344466560/


住宅市場冷え込み悲鳴上げる建設会社

100大建設会社の4分の1は倒産、関連産業も続々とまひ

資産価値の下落が続く場合、生活苦に陥った「ハウスプア」が子どもの塾通いや外食、各種ショッピングの費用などを減らし、
深刻な内需不況の泥沼にはまり込むという懸念も出ている。
資金難に耐えられず、倒産する建設会社も続出している。大韓建設協会によると、施工能力評価額基準で上位100社に挙げられる
建設業者のうち、現在23社が企業改善作業（ワークアウト。経営再建）や企業回生手続き（法的管理。会社更生）を進めている。

建設協会のチェ・ユンホ専務は「このままでは、10大建設会社を除けば生き残る建設会社はほとんどないだろう」と語った。

2012/08/04
http://www.chosunonline.com/site/data/html_dir/2012/08/04/2012080400787.html

Ruby厨は身の程を知ってるから大人しく身の丈に合った活動してる。
PHP厨は知能が低いからか身の程を知らずにPerlをライバル視してる池沼が多い。

そしてperlはマジモンのキチガイを擁している
何物もperlerには勝てまい
どうだハハハ

昨日のログ読んでたら自治厨がスルーされててワラタｗ
マジで頭悪そうな自治厨だなｗｗ

ム板のキチガイ隔離スレ

最近は話をするのも嫌なレベルの馬鹿が常駐してるから嫌になる

>>353
で
あなたのレヴェルはどの辺でしょうか？
イヤーなおバカさんｗ

>>354みたいなキチガイを隔離するためのスレか、なるほど。

PHPは嫌いだしなるべく触りたくもないが、使いものにならないとは到底思えんなあ。
実際使われまくってるし、低質のモンばかりかというと全然そうでもないし。
使う人間次第ってことなんだろうな。俺は優秀じゃないからPHPよりPerlの方が好きだ。

＞実際使われまくってるし
こういう人が詐欺にコロっと引っ掛かるんだろうな
セカンドライフをみんなやってるって言っても信じそうｗ

なるほど >>357 みたいな人が詐欺師に向いてるんだろうな

今日もキチガイの書き込みしかないな

プログラミングでのひとつの話題に自己言及がある
それはクワインなどとも呼ばれる
自分自身で自分自身を表現すること、
それがクワインの目的であり、
自己を生成する自己を作ることが目的だ。
それ以外にも、様々なレヴェルでの自己言及があり、
>>359などはその好例にあたる。

地獄

ぼくのなつやすみをかえして

HTMLテンプレートとしては優秀だと思うよ。
HTMLテンプレートの上に、さらにテンプレートを重ねるのは何か間違ってるような気はするが。

HTMLテンプレートとして優秀じゃないから、
新たにテンプレートを作ったのだろう？

どういった点が優秀じゃないかというと
HTMLテンプレートとしては機能が多すぎる。

テンプレートの場合に機能が多すぎることが
なんでダメなのかその理由ぐらいはわかるよね？

>>364
バカだなぁ
PHP厨の知能は無いに等しいんだから分かるわけないじゃん

>>365
わかるから、テンプレートとコードが分離してきてるんだろｗ

その分離の理由がわからないお前がアホ

>>366はアホとか以前に話が噛み合ってない
自分の知恵遅れを棚に上げてるし致命的すぎるｗ

>>366=ゴミｗ

>>367-368
真っ赤になってるｗ

そりゃ真っ赤になるだろｗ
俺も顔真っ赤ｗ

>>366の見当違いのレスは見てるこっちが恥ずかしくてｗｗ

タッチパネルで操作できるようになるPerlモジュールを教えてください

cpanにあるpTouchがそれ
捗るぞ

>>372
うそつき
検索しても出てこないぞ

こういでも言って釣らなきゃCPANいかねーだろオメー
あとはそのページをもっと掘ればいい
捗るぞ

嘘つきがまた何か言ってるｗ

Paranoidってなんですか？

地獄

そうか、Paranoidは地獄なのか。

タ〇チパ〇ルで操作で〇るようになるP〇rlモ〇ュールを〇えてく〇さい

脳に病気持ってる奴しかいない。

いやはや
全くその通りだ
このスレに書きこむ人間は全員、
脳に病気持ってるな

誰とは言わんが

>>381

中学時代のパソコンの授業でインターネットを使った時
みんなが自分の好きな漫画や野球のページを見てる時に
自分だけこれみよがしにperlスレにつないでAAとかを周りに見せてたこと
しかも「このページって何？」って聞かれた時に「ヤバイ奴らの集会所みたいなもん」とか答えたこと
さらに友達にperlスレへの行きかたを教えるためにヤフーでperlスレって検索させて
でてきたリンクをクリックしてperlスレが表示された瞬間に
そいつの耳元で「Welcome to　Underground」ってささやいたこと

真面目なスレかと思ったら糞スレだったでござる

韓国語を勉強しよう
やっぱり敵国語は学んで攻撃の兆候なんかを察知できるようにしておくべきだと思う

地獄

何もスレタイ「54目」とか間違えただけでこんなスレにしなくとも

この世界じゃ
単位が違うのは致命的
J/KとJじゃ意味が全然違うだろ

だから我々は「目」という単位に合致したperl的行動をとているだけだ

質問者がフルボッコになるのを見たいだけのヴァカが調子に乗って立てるから間違えたんだろ
スレタイ一つまともに書けないとか脳弱にも程がある

Perler（普通のPerl使い）とPerl厨（池沼）の見分け方。
Perl厨には以下の傾向が見られる。

□use strictを使わない理由がない場面でも使わない（問題の早期発見を自分から遅らせている）
□use warningsを使わない理由がない場面でも使わない（問題の早期発見を自分から遅らせている）
□2ちゃんねるで質問している（まともな人はTwitterで質問する）
□Perlに関する本を一冊も持っていないのに質問している（知識に対する投資を惜しんでいる、情報乞食）
□Perl以外の言語が適しているシステムの開発でもPerlで開発しようとする（手段と目的から適切に判別する能力の欠如）
□PerlとCGIの区別がついていない（基礎知識が皆無である）

ないないない三連発の三重否定が
とってもバカっぽくてステキです！
是非ともわたしと付き合ってくだしい！
きっとあなたのアタマの中もお花畑でしゅよね？！
お返事まってましゅ！！！
しゅしゅしゅしゅしゅ！！！！！

>>391の文章は全体的にバカっぽいな
「しゅ」とか多用しまくってる辺り

基地害なんだろう
本人は基地害のフリをしようとしてるんだろうけど
普通の人はそもそも基地害のフリをしようと思わないからなｗ

お前どこに住んでんの

PHP厨か？

お前ら内容のない書き込みでageまくるんじゃねーよウゼーンだよｋｓ

ageるかsageるか、もあるけど
janeとかなら勢い順とかでソートとかできるだろ
やっぱし勢いのあるスレとかは目立つよ
何もしなくとも

勢い？
このスレは勢いあるの？ないの？

ある
七位だ
398あるうちの

夏の勢い値はただの炎上値だったりするけどな

なんだ、ここもただ炎上してるだけか

いや
常にtop10ほどには入っている
この板でも人気のあるスレだよ

まともなレスがないのに人気？

人気　にんき　ひとけ
どちらとｔるかは
あなた次第！！

キチガイに大人気のスレがこちら！

地獄

↑これ最近よく書き込まれてるけど地獄がどうしたの？

ここがPHPerにとって地獄のようなところだという意味だろう

くらえ！
秘剣、連葬拝烈！

片山さつき 「韓国は竹島で日本人44人を殺害した。韓国への通貨スワップ700億ドルは即刻止めよ！」
http://engawa.2ch.net/test/read.cgi/poverty/1344753252/


大使償還、外交日程中止は当然、通貨スワップも凍結、冷静に経済制裁しよう！

歴史的にも国際法上も日本国有の領土である、竹島ですが、マッカーサーラインでは、
「暫定的に」韓国側だったのが、サンフランシスコ平和条約では日本側になった、その際に当時の李承晩大統領が
一方的にラインを設定して不法占拠し、1953年4月には「独島義勇守備隊」が駐屯。6月に日本の海上保安庁と
島根県が竹島を調査し、「日本島根県隠岐郡五箇村」の領土標識を立て、観光漁民6名を退去させた。この頃から、
韓国は竹島を「武装化」し、1952年から 1965年に日韓基本条約が締結されるまで、日本の漁船３２８隻を拿捕し、44人を死傷させたわけです。

日韓スワップ協定の凍結、輸出入に冠するなんらかの非関税障壁設定、竹島南側のメタンハイドレートを日本側も独自探査、採取へ、等の措置を淡々と、実行していくこと

片山さつき
詳細　2012年08月11日 14:00
http://blogos.com/article/44753/

＜参考＞
>韓国による日本人抑留者は3929人、拿捕された船舶数は328隻、死傷者は44人を数えた
http://ja.wikipedia.org/wiki/%E6%9D%8E%E6%89%BF%E6%99%A9%E3%83%A9%E3%82%A4%E3%83%B3

&test1("www");

sub test1{
my($aaa) = @_;
&test2;

}

sub test2{
my($bbb) = @_;
print "$bbb";
}

このときtest2には引数をわたさない場合、test1の引数がtest2にわたってしまいwwwが表示されてしまいます
test2に引数をわたさない場合test1の@_がわたらないようにするにはどうすればいいんですか？

>>411
基礎からやり直せゴミ

>>411
Perlの言語仕様も調べずに何言ってんのこいつ。
頭悪すぎ。
ここで回答もらったとしてもお前みたいなダメ人間はすぐにまた躓くから回答するだけ無駄。

おいおいお前らリアルでどんだけいじめ受けてんだｗｗｗ

>>411
&test2;
は@_を引き継いでしまう
&test2();
とすればtest2には空の引数が渡る
あとは ttp://perldoc.jp/perlsub 参照

さすが>>415
これで>>411も自分で調べる能力がまた一つ衰えたな

そのままどんどん衰えろ

>>415は自己顕示欲を満たしたいだけで回答してるマジキチ
少ない知識とカスみたいな経験だけで回答している
そしていずれは>>411も少ない知識とカスみたいな経験だけで回答するようになる

>>416
お前は彼が自分で正解見つけてもどうせなにも言わんけどな
で、間違ってた時だけ罵詈雑言
お前が受けた教育を下の世代に受け継がせるなよゴミ

>>416-417
豊富な知識と経験を持つ人間はお前のように性根が腐ったりせんわ

>>411
普通どの入門書にでも書いてあると思うけどね、お前はどの本読んで勉強したの？
それ悪本だから参考までに書籍名教えてくれ

>>419
うるせえ黙れゴミクズ!!!!!!!!１１１１１１１１１１１１１１１！！！！！！！！！！！！！！！！！！！！

>>418
このレベルは自分で調べるのが普通
それすらできないゴミに今後何かまともなものでも作れるとでも？
役に立たない不要な>>411
まさにゴミ

>>419
腐る根性があるならまだマシだろうよ。
>>411とかその腐る根性すらない。

>>411
おまえこの前も質問してすでに答え貰ってなかったか？

あ、レスつくとは思ってなかったのでTwitterで教えてもらいました
回答してくださった方ありがとうございました
一応お礼を言っておきます

なるほど
>>412,413の対応は正しかったんだな

　||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||
　|| ○荒らしは放置が一番キライ。荒らしは常に誰かの反応を待っています。
　|| ○重複スレには誘導リンクを貼って放置。ウザイと思ったらそのまま放置。
　|| ○放置された荒らしは煽りや自作自演であなたのレスを誘います。
　||　　ノセられてレスしたらその時点であなたの負け。
　|| ○反撃は荒らしの滋養にして栄養であり最も喜ぶことです。荒らしにエサを
　||　　与えないで下さい。 　　　　　　　　　　　　　　　　 Λ_Λ
　|| ○枯死するまで孤独に暴れさせておいて　　 ＼　(ﾟーﾟ*)　ｷﾎﾝ。
　||　　ゴミが溜まったら削除が一番です。　　　　　 　⊂⊂ |
　||＿＿＿ ∧ ∧＿＿∧ ∧＿＿　∧ ∧＿　　　　　 |￣￣￣￣|
　　　　　　(　 ∧ ∧__ (　　 ∧ ∧__(　　 ∧ ∧　　　　￣￣￣
　　　　〜（＿(　　∧ ∧＿ (　 ∧ ∧＿ (　　∧ ∧ 　は〜い、先生。
　　　　　　〜（＿(　 　,,)〜（＿(　 　,,)〜（＿(　 　,,)
　　　　　　　　〜（＿__ﾉ　　〜（＿__ﾉ 　　〜（＿__ﾉ

はーい、一人で複数人のふりして自画自賛する奴はもう相手にしません。

後から読んだ人が、情報を得られるように回答するのが正しい。
ここは掲示板で、情報を蓄積させるのが目的だから。

正規表現でない置換ってどうやればいいんでしょうか？
quotemetaはなしで。

なんでquotemetaがダメなのか
まずはそれから書け

カテゴライズもタグ付けもせずに後から読んだ人が情報を得られるようにって真性の馬鹿か？

自治廚はえてしてこんなモンだな

>>430
それが分からない池沼のために正規表現があるんだよ
自分で調べられないものに手を出そうとしてんじゃねーよゴミ
お前みたいな身の程知らずが社会に迷惑かけるんだよ
身の程知らないからチャラチャラ冬山登山に行って遭難したりな
社会の迷惑でしかないから一生出てくるな

>>434
知らないならレスするなヴォケ。
それだけレスが無駄に消費される。

>>435
お前のレスも無駄だな

クソレス乙

>>436
もともとスレが機能してないんだからクソレスもCGIの質問も肉じゃがの作り方も何でもありなんだよ、
スレ読んでてそんなことも分からないのかこの低脳は。
クソスレにクソレス、ゴミ、池沼、>>430、上等だろ。

初心者は今のうちにPHPスレに乗り換えたほうがいいよ
PHPスレなら優しく教えてもらえるからおいで

なんだよその
お菓子あげるからおじちゃんといいことしようか
的ないかがわしい文面は

>>430
一文字の置換ならtr//が使える。
それ以外なら、面倒だけどコード書くしかないね。
こんなとか。
sub replace {
my ($string, $replacer, $replacement) = @_;

my $replacer_length = length $replacer or return $string;

my $pos = length $string;
while(($pos = rindex($string, $replacer, $pos - 1)) >= 0){
$string =
substr($string, 0, $pos) .
$replacement .
substr($string, $pos + $replacer_length);
}

return $string;
}

俺コード付きで回答できるんだぜすごいだろ！
と言わんばかりにコード乞食に稚拙なコードをやって喜んでる池沼がいるのはこのスレですか？

仕方がないよ、>>440は>>430みたいなゴミにしか認めてもらえないんだから

>>441-442
死ね、氏ねじゃなく死ね
初心者は右も左も分からないんだからソースつきで丁寧に教えてやるのがこのスレ住人の義務だろうが
誰でも検索できると思うなよ

本当にツイッターのほうが回答早いですね
今試しに質問を同時投下したのですが
ツイッターのほうでは15:31に回答をもらえました

本当にtwitterはバカ発券機として機能してるな
バカのひとつ覚えのようにうぃってｒとか
いい加減あきたぞ
同じこと繰り返し繰り返しクリ菓子の
サルかよ

栗菓子食べたい。

あと質問を2chでするかTwitterでするかの二択は有り得ないな。

>>443
死ねは自殺教唆だ。
刑事事件に発展する可能性もある。

ここで煽ってる奴はコードに対する煽りを入れないんだよな
コードを理解出来ないから

でtwitter煽りとか入れるけど、質問すらしてないのもバレバレ。
ttp://t-proj.jp/twitter/?q=perl+%40_
まあ、その煽りに付き合う御人好しが何回かに一回はひっかかる
からやってんだろーけど、バカの一つ覚え。

で、hを削るのは無意味！とかって煽りを入れる

Twitterは日夜莫大な数のツイートが投稿されているから、完璧な検索はできないのが実情
自分のツイート検索しても出てこないなんてよくあるだろ
それを知らずに検索しても出てこいからって煽り扱いにするとか無知もいいとこ
とりあえずなにがなんでも煽り扱いにしたいわけだなｗ

とりあえず、このスレで質問してみたら
毎度同じパターンの中傷がきて、
最後に「ツイッターで解決しました」とか書かかれてるぞ。

>>212
ttp://t-proj.com/twitter/?q=perl+libexpat
ttp://t-proj.info/twitter/?q=+libexpat
perlの時だけクロール出来てないのかもね

検索は完璧！
検索は無敵！
検索で出てこないものは存在しない！

って検索脳の人なんだろ。
質問者が来ると検索しろ調べろって叩いてるのもこいつじゃね？

perldocとcpanくらいは検索しろよｋｓ
そんなのだからいつまでもお前は夏廚とか呼ばれっぱなしなんだ
鼻水吹いてケツ拭ってさっさと便所にとじｋもってこいよ

>>448
コード乞食にエサをやるのが問題だからでは？

地獄

問題になる程、コードが溢れてますか？ココ。
後、わざとミスがあるコードを書いても反応しないよ、ここの煽りの人は。

>>447
自殺しなけりゃ自殺教唆にならねぇんだよ
成立させたきゃさっさと死ねや
早くしろ

コードが問題じゃないんじゃないの？
白痴？

>>457
宿題気味の奴はスルーすべきだとは思うけど。
後、430なんて「自己顕示煽り」にも読めるんだよねw

誘導されるかどうかは別にして、昔の様に初心者スレに
誘導すればいいだけ

>>460
誘導するまえに、四六時中張り付いてるバカが煽り始めるw

見事に基地害しかいない
まともな書き込みが1つもないってどういうことよｗ

その貼りついてるやつ
誰とは言わんが
誰だろうなｗ

「地獄」「ぼくのなつやすみ」
って犬のマーキングみたいな事やってる奴も、煽りの人？BOT？

でも総合的に見るとヴァカをブロックできるTwitterのほうがいいな。

平日の昼間から大量の書き込みがｗ
ニートしかいないのかここｗ

>>466
盆も正月もなく生きて故郷に帰れないあなたを憐れむ

質問です。
パソコンで格闘ゲームをしようと考えています。
色々調べた結果、ギルティギアゼクスとゆうゲームとストリートファイター4とゆうが良さそうだとゆうところまで分かりました。
しかし公式サイトとYoutubeを見てもどちらを買おうか決めかねています。
どちらもゲームセンター等でプレイしたことはありません。
両方買うお金がないのでどちらか一方を選びたいのですが、どちらがよいのでしょうか？
パソコンのスペック的には大丈夫だと思います。
ご教授よろしくお願いします。

買うお金がないのでPerlで作ってみました。どうでしょうか、これ？
だったらけっこう盛り上がった。

>>468
Ozawa-kenと言うリアルな格闘ゲームが無料であるので
試してみてはいかがでしょうか？

それ10年くらい前からあるだろｗ

Perlで格闘ゲームは無理
そもそもGUIで使えないし

>そもそもGUIで使えないし

ひょっとしてバカが釣れたのか
それともそういうツッコミ待ちなのか
脳みそがちょっとプログラミングには無理な構造してるのか

perlにGUIないとか言ってるヴァーーーーーーーーーカがいるのは
やはりこのスレにｍぎれこんだPHPの達人（）様か

「地獄」って煽りなの？
意味不明だし煽られてる感覚なかったんだけど

まぁでも時代的にPHPになっていってるからね・・・

赤の他人だけど
>>425がはげしくむかついたんだけどこんなもんなのか

>>477
つ[カルシウム]

>>477
ここはお前の感想掲示板じゃねえんだよｋｓ

ぐいぐいいっちゃうよ〜ん
http://blog.remora.cx/2010/03/gui-programming-with-win32-gui-loft.html

そもそもCGI専用に設計されてる言語でGUI作るってのもなぁ

> CGI専用

に突っ込んでほしいのか？
穴空けて見せびらかして待ってるのか？
オマエ相当下品なｋｓだな
このスレから消えろよ汚物
目に入るだけで目ざわりだ

やだこの人どこの病院から抜け出してきたのかしら。

PHPスレという脳病院だろ
それくらい察してやれよ
CGIだと思ってるｋｓはPHPのアホ野郎ｋｓくらいしかいねーよｗｗｗ

test

Twitterは2chと違って削除できるって知らないヴァカが混ざってるなｗ
削除されてたら検索にも出ないだろうよｗｗ

なにここマジでニートしかいないの？

削除する程度の価値しかない情報だろ
ンなもん最初から書くなよ
電子ｋｓをこの地球上に排出するなよアホッターのゴミ
ごみ溜めでゴミ再生産して
消えた！けした！！
とか言ってナニにぎってマスかいてろ低脳

guiはいいけど処理速度的に大丈夫なの？
60fps安定で格ゲー作れる？

初心者がマルチポストするのは悪くない
問題解決のためにありとあらゆる手段を講じることが必要
ときにはインターネットの向こうの他人を道具として扱う非情さも生きていく上では仕方のないことだ

>>488
じゃぁ一定時間経ったらオンライン記事削除してる新聞社にも同じこと言ってこいや池沼

>>491
ずいぶん前に同じようなこと
新聞に投書したよ

その返答は
「消えるからこそ価値があるのです」
だってさ

良かったな
同レヴェルで

PHPのスレからいろいろなところに波及してるな・・ちょっとまじやめてほしい

Twitterの投稿削除とは新聞屋の記事削除とは訳が違う
Twitterの投稿削除は自己防衛のため
叩きまくったあげくにTwitter検索して見つからないと言ってる奴とか
>>492みたいなキチガイがアカウント晒しとかしてくる可能性があるからだろ

質問者がきても叩きまくる回答者しかいないスレなんていらない。
そもそも今回も立たないはずじゃなかったっけ？

被害者を出さないためにももう次スレは立てないほうがいいと思う。

サッカー選手「竹島」主張、韓国協会が謝罪文書
読売新聞 8月13日(月)22時45分配信

　ロンドン五輪サッカー男子の３位決定戦直後に韓国選手が竹島の韓国領有を主張する政治的メッセージを掲げた問題で、
日本サッカー協会の大仁(だいに)邦弥会長は１３日、謝罪と再発防止を徹底させる旨を記した韓国サッカー
協会長名の文書を受け取ったことを明らかにした。

　文書は同日付で電子メールとファクスで送られており、大仁会長によると「申し訳なかった。二度とこういうこと
が起こらないように徹底する」という内容だったという。

　国際オリンピック委員会（ＩＯＣ）のロゲ会長は１２日、当該選手の銅メダルを預かりとしたうえで、国際サッカー
連盟（ＦＩＦＡ）規律委員会の決定を待って処分を決める意向を示している。大仁会長も「五輪の場で起こったの
は残念だが、当面はＩＯＣとＦＩＦＡに任せたい」と静観する構えであることを強調した。
.http://headlines.yahoo.co.jp/hl?a=20120813-00001408-yom-spo

>>495
×回答者
○更年期障害のオバハン地味た煽り厨

起動させっぱで入力待ちを維持するので
while(1) で問題ない？
それとも普通は他の方法？

ノンブロッキングI/Oなら無限ループを使うかな。

わかったありがとう

質問がきても>>498みたな本物のゴミクズしかこないし次スレいらないんじゃ？

俺が質問者に嘘教えて遊ぶのに必要。

もうしたらばに避難所作ろうか？
ゴミクズなレスは排除しやすくなるし

>>502
なりすましやめろ。

>>504
偽物が(本物)とか付けてるよ・・・
俺は実際>>498をおちょくるために嘘教えたんだけど？

「俺こそが本物の人間のクズ」と言う為にわざわざ戻ってきてくれた499に拍手

>>505はまともな回答には「自分で調べる能力ガー」とか言って荒らします

>>506
普通のスレならともかく、釣り質問にネタ書き込みしかないこのスレッドで何を言ってる？

>>499本人の位置から観るお芝居は、とても楽しい。

PHPスレは糞スレみたいになってしまったから終了する流れになってるぞ
PHPerはプログラマとしてのレベルはPerlerより低いけど、
自制できる辺りはPerlerより社会性があると思う
このスレももういらないのに立てらるたしね

>>510
荒らし大勝利だな
次はブログとTwitterが荒らされるぞ

>>510
Perlって一括りにしないでくれる？
俺は前スレ最後で立てようかと思ったけどやめた。

実際一人だから問題あるの。
普通に見分け付くから別にどうということもない。

初心者は見分けがつかないから人格攻撃までされるとトラウマになるよ・・・

自分は大丈夫だから問題ない
って小学生並の自己中が混ざってるな

>>515
自分の拙い妄想を「実際」って言っちゃう時点で察してやれよ。

荒らしと釣り質問しかないこのスレ必要？

>>515
ヒント：荒らしの性格→自己中

>>516
ヒント：自分自身で荒らしていて自分以外の荒らし書き込みがない場合は妄想でなくとも（ｒｙ

人格攻撃は第三者から見てもこたえるわ

糞スレイラネ

このスレの四割ぐらい同一人物なんだろうな

いつもの人〜とか言って自演荒ししてた奴が未だに張り付いてるんだろ
ご苦労なこった

客観的に見てもうこのスレ終わってんじゃん。

Perlスレを終わらせて今度は何をターゲットにするのかな？

そもそも質問なくね？
まともに機能してたら多少荒らしが現れたところで
質問と回答で埋もれてるしな

ターゲットってどこから出てきた話？

>>526
Perlスレを荒らしてた奴がPerlスレ潰れたら荒らしやめてくれるとでも？

Perlの起源は韓国。

>>525
荒れる前（忍者より前）は、二日に1回程度の質問頻度。
一週間丸々来ないこともざら。
まあ、便乗質問とかで賑やかになる事はあっても、罵詈雑言を交しても、
sage進行の穏やかなスレ。

そもそも年単位のスレ消費が、3から4スレ程度。
今の荒しの出現頻度で、「質問と回答で埋もれる」スレになりうると思う？

ここ出身とおぼしきhoge厨が他スレで暴れてるぞ、責任とれよお前ら。

>>511
ツイッターはブロック＆非公開機能があるから池沼はシャットアウトできる

>>529
じゃあ荒らし云々以前に必要ないんじゃないか。

　　　　　　 ,／　　　`ー-ニ ノ<´ 丿｛
　　　　　／ /　　　　　　　　　￣　 ＾ヽ. 　_
　　　　/ 　１　　　　　　　　　　　　''''''''''"丿
　　　./　　･　　　　　　　／　　‐-..,,　　･
　　 /　　　 ヽ　　　　　／ 　　　　　　 ゛　│
　　亅　　　　＼　　 ／　　　　　　　　　　│
　　|!　　　　　　 　　　　　　　　　　　　　　･
　　１　　　　　　　　　　　　　　　　__..-.....　│
　　│　　　　　　￣゛`ー--一'''''''" 　　　 ヽ･
　　│　　　　　　!　　　　　　　　　　　　 __|丿
　　丿ー 、　　/´ 　 ィニ-‐‐‐‐　　　　　'‐''彳　　　　お前それ大津市でも同じ事言えんの？
　　｛ｌフ‐->　･　　　　 _____　　　　　___--│
　　│･./＾、」　　　　'''レエ゛ゝ　　│宀‐"　!
　　　ゝ−-　''　　　　　　　　　　　|!　　　　|
　　　　ヽ..,,..　　　　　　　　　ｒ　　　゛ｌ1　　 /
　　　　　　　1　　　　　　　 ／r'　　　j亅･
　　　　　　　ヽ　　　　　　　　`ー゛‐‐´　　ノ
　　　　　　 　ヽ.　　　　　 ＿__,,........-‐ ./
　　　　　　／　‐ー 、　　　 ＾￣^´_ノ /
　　　　　　| 　　　　　゛ー....　　　￣ 丿＼
　　　　 　 |　　 　　 　　　` 、__....／　　 |
　　　　　　|　　 　　 　　　　　　　　　　 |
　　　　　　|　　　i 　　　　　　　　i　　　_|
　　　　　　|　　　｀ー――----┴ ⌒´ ）
　　　　　　（ヽ　 ＿＿＿＿＿＿ ,, ＿´）
　　　 　　（_⌒ ＿＿＿＿＿＿ ,, ィ
　　　　　　　丁　　　　　　　　　　 |
　　　　　　　 |　　　　　　　　　　　|

>>532
「まともに機能してたら」って仮定の現実を書いただけだよ。

今の状態の、このスレなんて必要無いんじゃないの？
初心者スレと併せて無駄なスレ立てしてるな、と正直思うわ

　||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||
　|| ○荒らしは放置が一番キライ。荒らしは常に誰かの反応を待っています。
　|| ○重複スレには誘導リンクを貼って放置。ウザイと思ったらそのまま放置。
　|| ○放置された荒らしは煽りや自作自演であなたのレスを誘います。
　||　　ノセられてレスしたらその時点であなたの負け。
　|| ○反撃は荒らしの滋養にして栄養であり最も喜ぶことです。荒らしにエサを
　||　　与えないで下さい。 　　　　　　　　　　　　　　　　 Λ_Λ
　|| ○枯死するまで孤独に暴れさせておいて　　 ＼　(ﾟーﾟ*)　ｷﾎﾝ。
　||　　ゴミが溜まったら削除が一番です。　　　　　 　⊂⊂ |
　||＿＿＿ ∧ ∧＿＿∧ ∧＿＿　∧ ∧＿　　　　　 |￣￣￣￣|
　　　　　　(　 ∧ ∧__ (　　 ∧ ∧__(　　 ∧ ∧　　　　￣￣￣
　　　　〜（＿(　　∧ ∧＿ (　 ∧ ∧＿ (　　∧ ∧ 　は〜い、先生。
　　　　　　〜（＿(　 　,,)〜（＿(　 　,,)〜（＿(　 　,,)
　　　　　　　　〜（＿__ﾉ　　〜（＿__ﾉ 　　〜（＿__ﾉ

無駄というか初心者が叩かれるのを面白がってヲチするためだけに立てられてるからね

初心者スレに行ってから、感想をどうぞ

はい馬鹿(>>537)が釣れた。

末期臭がすごい

末期？
もう終わってるよ

クソスレ終了
以後質問者はくだ質スレへ

Perlの起源は韓国！

韓国大統領発言:「悪影響、数年続く」日本側懸念

韓国の李明博（イ・ミョンバク）大統領が１４日、独立運動家への謝罪を天皇訪韓の条件だとする発言をしたことで、
日韓関係の展望はまったく見通せなくなった。日本側の外交関係者は
「信じられない発言だ。悪影響は数年単位に及ぶのではないか」と述べ、来年２月に発足する韓国の次期政権下でも
日韓関係の修復は簡単ではないとの見方を示した。

発言は、地方視察での教育関係者との会合でのもの。１０日の竹島上陸について話してほしいと参加者に言われ、
「思いつきではない。深い配慮と（日本からの反発という）副作用がありうると（検討した）」などと述べた上で、
天皇訪韓に自ら話題を移した。李大統領の真意は不明だが、
予期せぬ質問に不用意な答えをしてしまったということではなさそうだ。

韓国政府は、李大統領の竹島上陸後、竹島周辺に整備する予定だった「総合海洋科学基地」の建設を
当面見合わせることにするなど、日本側の反発を意識したかのような動きを見せていた。
それだけに今回の発言は唐突感があり、与党セヌリ党の議員からも「日本にとっては敏感な問題なのに……」と
今後の展開を危ぶむ声が出ている。

日本政府当局者は「竹島上陸への対抗措置の検討が行われている状況で、こんな発言をされたら感情的反発が強くなる。
決していい結果にはならないだろう」と話す。
一方、韓国外交通商省当局者は取材に対し「何もコメントできない」と言葉少なに答えた。

http://mainichi.jp/select/news/20120815k0000m030047000c.html

日本ナメられすぎ
チョンも調子に乗りすぎ
もう一度植民地にしてチョンに身の程を思い知らせてやれ

姦国人を駆除しろよ。
とっとと全員故郷に送り返せ。

チョンやりたい放題だなｗ

>>543-546
こちらへどうぞ。
http://hayabusa3.2ch.net/news/

>>546
自民党のころからつけあがってきたけど民主党になってから余計酷くなった
酷くなったというか露骨になってきた
ごり押しすれば通ると思ってるんだよあいつら

やっぱり国交断絶しとくべきだったんだよ。

中途半端に国交戻すからこんなことになるんだ。

Perl最強！

とはいえPerlの起源は韓国！
世界中で広く使われているから韓国はそれだけ社会に貢献している！

perlを作ったのはアメリカ人だよ
ポールなんとかって人

ちがうだろ
ジョンなんとかって人だよ

ポールって誰だよｗ
Perl作ったのはジョナサン・イーストウッド

チョンには即刻経済制裁すべき
チョンの大将が竹島に上陸する前からそれを警告して
上陸した時点で制裁発動すればよかったんだよ

ポール・サンレンタン

Perlの起源は韓国！

リンゴなんとかって人だろ

常識で考えれば韓国が発祥じゃないってことくらい分かるだろ
何でPerlが韓国産なんだよ
ごり押しすれば通ると思ってんの？
小学生でも分かるぞ

でも韓国って魅力的な国だと思うよ。
友達もみんな韓国行きたいって言ってるし。

　　　　　　 ,／　　　`ー-ニ ノ<´ 丿｛
　　　　　／ /　　　　　　　　　￣　 ＾ヽ. 　_
　　　　/ 　１　　　　　　　　　　　　''''''''''"丿
　　　./　　･　　　　　　　／　　‐-..,,　　･
　　 /　　　 ヽ　　　　　／ 　　　　　　 ゛　│
　　亅　　　　＼　　 ／　　　　　　　　　　│
　　|!　　　　　　 　　　　　　　　　　　　　　･
　　１　　　　　　　　　　　　　　　　__..-.....　│
　　│　　　　　　￣゛`ー--一'''''''" 　　　 ヽ･
　　│　　　　　　!　　　　　　　　　　　　 __|丿
　　丿ー 、　　/´ 　 ィニ-‐‐‐‐　　　　　'‐''彳　　　　お前それ大津市でも同じ事言えんの？
　　｛ｌフ‐->　･　　　　 _____　　　　　___--│
　　│･./＾、」　　　　'''レエ゛ゝ　　│宀‐"　!
　　　ゝ−-　''　　　　　　　　　　　|!　　　　|
　　　　ヽ..,,..　　　　　　　　　ｒ　　　゛ｌ1　　 /
　　　　　　　1　　　　　　　 ／r'　　　j亅･
　　　　　　　ヽ　　　　　　　　`ー゛‐‐´　　ノ
　　　　　　 　ヽ.　　　　　 ＿__,,........-‐ ./
　　　　　　／　‐ー 、　　　 ＾￣^´_ノ /
　　　　　　| 　　　　　゛ー....　　　￣ 丿＼
　　　　 　 |　　 　　 　　　` 、__....／　　 |
　　　　　　|　　 　　 　　　　　　　　　　 |
　　　　　　|　　　i 　　　　　　　　i　　　_|
　　　　　　|　　　｀ー――----┴ ⌒´ ）
　　　　　　（ヽ　 ＿＿＿＿＿＿ ,, ＿´）
　　　 　　（_⌒ ＿＿＿＿＿＿ ,, ィ
　　　　　　　丁　　　　　　　　　　 |
　　　　　　　 |　　　　　　　　　　　|

>>554
ヴィヴィアン・ウエストウッドみたいで格好いいな

Perlを布教するために映画作ろうぜ。

国際的なテロ組織のPerl使いとインターポールのPerl使いが戦って
アメリカでのテロが阻止されるいわゆるハリウッド系映画。
アクション中心でドッカンドッカンするやつ。
テロ組織とインターポールの頭脳戦、というかPerl戦。
ただの勧善懲悪ではなく地
球上で最強のPerl使いの名を賭けて男達のプライドが火花を散らす
観た人の魂を揺さぶる映画。
笑いあり、涙あり、Perlありの2013年最強のバイオレンスアクション。

金銀パールをプレゼントすれば不況するよ。

8月15日に攻撃対象へ指定されていた、日本のコミュニティサイト 「 2ch 」 は現在スムーズに稼動している。

インターネットカフェ ネトテロデウンヨンハプ は14日、光復節当日（8/15）、日本のコミュニティサイト 「 2ch 」 を対象とした
集団サイバー攻撃の計画を立てた。 計画が出ると、このカフェでは、（2ちゃんねるへの）攻撃に参加するというネチズンたちが列をなした。

しかし、このカフェは、15日早朝、突然の計画を取り消した。
カフェは、 『攻撃予定日は9月ですが、光復節（8/15）に日本サイトの攻撃はない』と公示した。

詳細 2012/8/15 ソース韓国語 inews24
http://news.inews24.com/php/news_view.php?g_serial=682052&g_menu=020310

荒らしはWebprog板に出払ってるな。

ウェブプロのほうは食い物の話になってるじゃねーかｗ

あばばばばばばばばばばばばばばばばばば

日本のチョンを全員強制送還しろよ

今日、何気なしにJINROって酒買ってみたんだよ
んで飲んでみたら、びっくりするくらいマズイ
ミリンだよ、料理の酒の味がするよ、何だよコレ身体壊すわ
よく見たら韓国とか書いてるしマジ死ねよ。
酒ってドブに流したら怒られるよな・・・
どうやって処分すりゃいいんだよ

>>569
それよりお前一匹追放するか消すかした方がはるかにラクだな
余計な税金もかけずに済むし

>>560
味醂は日本では昔から栄養ドリンクとしても親しまれてきたのを知らないんだな
ていうか料理に使えるものを飲んで壊れる身体ってどんなポンコツ身体だ？

＞ていうか料理に使えるものを飲んで壊れる身体ってどんなポンコツ身体だ？

じゃぁ醤油でも飲んでろバーカｗｗｗｗｗ

>>571
ミリンが栄養ドリンクだって？
ばっかか、ミリン飲んだ事無いのか
料理用の酒と、普通に飲む酒は全然違う
ミリンで酔えるほど飲んでみろよ、めちゃ悪酔いする

チョンと一緒に>>571のようなキチガイも駆除すべきだな。
保健所の仕事に追加してくれ。

>>571
馬鹿がおめ
日本人一人消したところで韓国人による被害は減らないだろ低脳
そんなことも分からないのか

まぁ韓国産の時点で体に悪いわな

ジンロは飲みやすいからけっこう日本でも飲まれてたけど
あれのサッパリって焼酎に酸味つけてるだけなんだよね
大五郎に薬局で安く売ってるクエン酸入れるだけで代用出来る

>>569-577
こちらへどうぞ。

東アジアnews+
http://awabi.2ch.net/news4plus/
酒・Bar
http://toro.2ch.net/sake/

マッコリって旨味成分がかなり少ないらしい
それを流行ってるとか言って飲んでる奴は頭おかしいんじゃね

>>571=ただの馬鹿

相変わらず半島人使ったCMやってるよな。

イメージダウンになるのが何で分からないんだろう。

せめて人間レベルの奴を使えばいいのに。

韓国がなくなればある程度平和になる

>>582
中国と北朝鮮があるぞ

チョンよりはマシだな
チョンは日本への輸出や日本からの支援がなければやっていけないくせに
調子に乗りすぎ

夏はレゲエで盛り上がろう！

zipファイルがパスワード付きかそうでないかテストするにはどうすればいいですか

解凍ソフトでパスワードを聞かれたら
それはパスワード付きです。

>>573
へえ　ミリンで酔えるほど飲んだことがあるんだ

>>571
お前が飲んだのは本みりんじゃなくて
みりん風調味料だろｗ

基地害自治厨がスルーされててワロタｗ
自治厨って本当に頭悪いよなｗ
例外なく自治厨には馬鹿しかいないｗ

>>586
use Archive::Zip qw(:ERROR_CODES);
use feature qw(say);

my $zip = Archive::Zip->new;
($zip->read('foo.zip') == AZ_OK) or die;
foreach my $member ($zip->members){
say $member->fileName, " => ", $member->isEncrypted;
}

file is too short とか can't find EOCD signature のエラーでまくるね
画面にエラーを出さない方法は無いのかな

>>592
文句あるなら人に聞くなよ
最低だなお前
どんなクズ親に教育受けたんだ？

自己顕示欲を満たすためだけにゴミに餌を与える>>591。

>>592
my $zip_error = "";
Archive::Zip::setErrorHandler(sub{ $zip_error = shift });

... die $zip_error;

zipにパスワードが掛かってるかなんて
1バイト読み込んで、ビットたってるか調べるだけじゃん
perl使いは無駄なことしてるなｗ

もういい、Twitterで聞いたらすぐ答えきたわ
最初からTwitterで聞くべきだった

お前らに聞いたのが間違いだったわ

>>596
この質問者はzipの仕様も調べてないんだよ。

質問丸投げしてるだけ。

社会には必要ない、つまりこの質問者の命にはゴミほどの価値もない。

>>595は何でゴミみたいな質問にゴミみたいなレスしてるの？

馬鹿を定着させてスレッドの更なる低レベル化をするために決まってるだろ

こっちでやろうか
http://awabi.2ch.net/test/read.cgi/watch/1344588835

そう叩くなって
この質問者もこれから中学高校と進んでいく過程で人格も矯正されていくと思うぞ
大人と違って子供は人格に致命的な欠陥があっても直る可能性がある

>>592
失せろ知能障害

ぼくのなつやすみをかえして

すっかりキチガイの巣にされててﾜﾛﾀ

>>605
キチガイの巣へようこそ・・・

　||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||
　|| ○荒らしは放置が一番キライ。荒らしは常に誰かの反応を待っています。
　|| ○重複スレには誘導リンクを貼って放置。ウザイと思ったらそのまま放置。
　|| ○放置された荒らしは煽りや自作自演であなたのレスを誘います。
　||　　ノセられてレスしたらその時点であなたの負け。
　|| ○反撃は荒らしの滋養にして栄養であり最も喜ぶことです。荒らしにエサを
　||　　与えないで下さい。 　　　　　　　　　　　　　　　　 Λ_Λ
　|| ○枯死するまで孤独に暴れさせておいて　　 ＼　(ﾟーﾟ*)　ｷﾎﾝ。
　||　　ゴミが溜まったら削除が一番です。　　　　　 　⊂⊂ |
　||＿＿＿ ∧ ∧＿＿∧ ∧＿＿　∧ ∧＿　　　　　 |￣￣￣￣|
　　　　　　(　 ∧ ∧__ (　　 ∧ ∧__(　　 ∧ ∧　　　　￣￣￣
　　　　〜（＿(　　∧ ∧＿ (　 ∧ ∧＿ (　　∧ ∧ 　は〜い、先生。
　　　　　　〜（＿(　 　,,)〜（＿(　 　,,)〜（＿(　 　,,)
　　　　　　　　〜（＿__ﾉ　　〜（＿__ﾉ 　　〜（＿__ﾉ

ここまで自演

クソスレ壱号発進！！！

socket通信でこちらのIPアドレスを偽装する方法を押してあください。

無理

馬鹿には無理

ニコ生ってヲタの巣窟でマジきもい
あそこは異臭がする

http://www.forexite.com/free_forex_quotes/2012/01/020112.zip

ここにあるzipファイルをDLする.plを作りたいのですが、
どうすればよいでしょうか。

はい、できた。

#!/usr/bin/perl

print 'ブラウザを開いて http://www.forexite.com/free_forex_quotes/2012/01/020112.zip をクリックしろ！'

>>614
はい、できた。

#!/usr/bin/perl
use LWP::Simple;
getprint 'http://www.forexite.com/free_forex_quotes/2012/01/020112.zip';

>>615
お前もちゃんと覚えて帰るように。

>>614
use LWP::Simple;
use URI;

my $path = "http://www.forexite.com/free_forex_quotes/2012/01/020112.zip";

my $uri = URI->new($path);
my $file = ($uri->path_segments)[-1] || "index.html";

my $rc = getstore($uri->as_string, $file);
is_success($rc) or die status_message($rc);

system qq(wget http://www.forexite.com/free_forex_quotes/2012/01/020112.zip);

＜韓国の身の程＞

次期主力戦車K2エンジンの開発まとめ　1/2

･･･2005年、韓国は開発テスト用としてドイツから買ったパワーパック数基を元に、
突然ドイツのパワーパックをパクルと宣言をする。
その流れで、韓国が100基単位で買う予定だったドイツ製パワーパックを突然キャンセル
･･･ドイツ側は唖然＆抗議
パクリの担当は、エンジンは斗山インフラコア＆韓国防科研共同開発、
変速機は韓S&T大宇社・韓国防科研共同開発
以後４年間、ドイツの再三に渡る抗議は笑って黙殺、ロイヤリティ交渉にも応じない。

2009年･･･韓国念願のパクリエンジン完成、K2の評価試験開始
しかしエンジンが早速壊れる、ウリナラコピー修理不可能、修理代案も出ず、
この解決の為にドイツまで「何故パクリが上手く行かないのか？」っと上から目線で聞きに行く(マジ
ドイツ憤怒！追い返される･･････だが何回も聞きに行く、でもダメ
しょうがないので、今度はドイツからエンジンを買うのを条件に技術移転を引き出す交渉に行く、
交渉は出来た様だが、韓国に手痛く裏切られたドイツ側の最終回答はノー
韓国はドイツからエンジンも売って貰えず、技術移転も無い。

同2009年･･･しょうがないので、ドイツエンジンにパクった変速機を付け
K2評価テストを続行、2010年に評価試験をとりあえず終わらせる。
だが、パクッた変速機も故障･･････故障原因は数ヶ月経っても不明
当然この間もパクりエンジンの不調の原因を調べ続けるも、原因不明

>>615-618

みなさん、Perl詳しいんですね。

ちなみに、こうしました。

wget http://www.forexite.com/free_forex_quotes/2012/01/020112.zip

perlいらねｗ

相変わらずヴァカが釣れるなｗ
低レベルの質問だと嬉々として答える

ヴァカじゃね？

>>620
>>615-618はPerlより便利なものがあってもPerlを使う低能。
手段が目的化してる知能指数が低い奴の典型。

>>615は違うだろｗ

>>623=>>615乙

>>624
必死だなｗ

>>620>>622
> ここにあるzipファイルをDLする.plを作りたいのですが、
> .plを作りたいのですが
> .plを作りたいのですが

>>626
お前本当に頭悪いな
引っ越してきた土地勘のない奴が「近くのコンビニまで車で行こうと思うのですが」
って言ったら2件隣でも車での行き方を説明するの？

こういう奴って会社にいるとマジで迷惑だよな
状況に応じて最適な方法を考えない
上司に言われたやり方がどんなに効率悪くても言われた通りにやって自分は悪くありませんってタイプ
昭和時代の企業ならそれでいいんだろうけどな

迷惑は違うだろ。
思いやりが全くないだけだろ。

>>627は「近くのコンビニまで車で行こうと思うのですが」と問われたら
「お前頭悪いな」と二時間罵倒し説教し、結局回答を教えないような奴

ずいぶんとここの住人もマルクなったもんだ
なんとpearで書いてやるなんて

オレ様なら　wget入れろアホ
くらいで済ませる

スクリプト書くのはそｎあとだ

×：マルクなった
〇：自己顕示欲を満たしたいためだけに拙い知識で必死で回答する馬鹿が増えた

それじゃあゴージャスな知識でサラリと回答してみてよ

>>632
>>620,>>630

最新20レスも読めない>>632がいると聞いてやってきました

最新10レスを読めばここが糞スレだと分かる。

pearなんて書いてるから、いつものPHPの人でしょ。

pearって何？

pearはpearだろｊｋ

洋ナシ？

産廃PHPにもっと依存させるための巧妙な罠だろ

北海道十勝産Perl
十勝の大自然に育まれた風味豊かなPerlです

キチガイの巣

Perl忍者のスレとル変わんないじゃん

似たようなスレ2つもいらんだろ

早く統合しろよ

Twitterで教えてもらったとか言ってる雑魚で
それは偽物ですって言ってる雑魚とか、それとは別にお礼言ってる雑魚とか、
それ以外はガチじゃないのか？

　　　　　＿＿＿＿
　　　 ／∵∴∵∴＼
　　 /∵∴∵∴∵∴＼
　　/∵∴∴,（・）（・）∴|
　　|∵∵／　　 ○　＼|
　　|∵ /　　三　|　三　|　　／￣￣￣￣￣
　　|∵ |　　　＿_|＿_ 　|　＜　市ね
　　 ＼|　　　＼＿/　／　　＼＿＿＿＿＿
　 　 　 ＼＿＿＿_／

あぁ！？
テメェに市ねとか言われるる筋あばばばばばばばばばぼぼぼぼぼぼぼぼぼぼぼぼぼぼぼぼ

あばばばばばばばばばばばばばばーるのようなもの

お薬きめきめｈｍひる太陽の火がひろがっる
ゆめのゆうな時間んｔみいっしょが
ｒらん

広げよう！
クソスレの輪！

ニコ生って何でキモい奴しかいないの？
配信してるのもレスしてるのもキモい奴ばっか
観て損したわ
マジでキモすぎ

>>650
そりゃそういう奴らの隔離施設だからね。

質問です。
チンコとマンコはどちらが強いのですか？

Perl最強！

Perlの起源は韓国！

>>650
見なけりゃいいだろ。
あそこは汚物の掃き溜めだ。

汚物のはぎだめ！？














じゃぁここといっしょじゃんｗｗｗｗｗｗｗｗ

そうだよな
ここは技術力ありそうなふりしてるヘボが初心者を見下すスレ

自民党内から文化交流停止の訴え「韓流、K-POPとかサムスン等も禁止したらいい」
http://engawa.2ch.net/test/read.cgi/poverty/1345744956/


　竹島、尖閣諸島と日本の領土をめぐって問題が続くなか、経済制裁を求める声が高まっている。日本政府は
李明博大統領（70）の竹島訪問と天皇陛下に対する発言への追加対抗措置の検討に入った。

　政府は次官級以上の協議と韓国政府職員の招聘の凍結を予定。全府省庁は日韓両国が関わる政策、会合など
交流事業を再点検している最中だ。19日には竹島で李大統領の名前を刻んだ標石の除幕式が行われたこともあり、
国民の怒りは高まるばかり。政府としても何かしらの対抗措置を取らないと世論を抑えられないとの判断がある。

　自民党は日韓スワップ協定の見直しを求める声明を出し、藤村修官房長官（62）も「検討することはあり得る」と発言。
これだけにとどまらず、自民党内からは文化交流停止の訴えも出てきた。

「韓流だとかＫ―ＰＯＰとかも禁止したらいい。少女時代もＫＡＲＡもアウト。韓国製の電化製品なども日本に
入ってきますが、不買運動もきっと起きますよ」（自民党関係者）

　韓流ドラマもＫ―ＰＯＰも今ではテレビで見ない日がないほどだが、竹島問題を契機に禁止してしまえというのだ。
テレビ局にも「こんな時期に韓流ドラマを放送するのはおかしい。控えるべきだ」という投書が寄せられているという。
禁止しなくても、李大統領の暴走のおかげで、もはや韓流は風前のともしびなのだ。

ソース：http://www.tokyo-sports.co.jp/nonsec/32494/

見事な糞スレ

ム板って以外にも糞版だわ
初心者とへボPGしかいない、有益な情報もない



なにこれ

初心者の質問を受け入れ
アングラ色のなくなってきた頃からじわじわと進行してたんだけどな

うるさいゴミ

この口の悪い人が消えるだけで良スレになると思う

この他人のせいにすれば済むと思ってる馬鹿が消えるだけで良スレになると思う

ID出せば解決だろぉ

>>663
役目を終えたクズの掃き溜めで何言ってんの？ｗ

のびてるな〜と思ってスレ開いたら、いつもの基地外が暴れてるだけだったときの
虚脱感といったらなかなかないよ

　　　　　　　　　　　 　 　 ハ　 　 　 　 _
　　　 ＿＿_　　 　 　 　 ‖ヾ　　　　　ハ
　　/　　　　 ヽ　　　 　 ‖::::|l　　　　‖:||.
　/　聞　え　　|　　　　 ||:::::::||　　　　||:::||
　|　 こ　？　　|　　　　 |{:::::‖.　　.　.||:::||
　|　 え　 　 　 |　 　 　_」ゝ/'--―- 、|{::ノ!
　|　 な　何 　 |　　／　　　__　　　　　 `'〈
　|　 い　？ 　 ! /´　　　/´ ●　　　 __　 ヽ
　ヽ　　　　　 / /　　　　 ゝ....ノ　　 /´● 　 i
　　｀ ー―＜　{　　　　　　　　　　　ゝ- ′　|
　　　　　　　 厶-―　　　　r　 l＞　 　 　 　 |
　　　　　 ∠ヽ ゝ-― 　 　 `r-ト、_,) 　 　　　|
　　　　　 レ^ヾ ヽ>'￣ 　 　　LL/　　、　 　/
　　 　 　.l　　 ヾ:ヽ `　、_　　　　　　＼＼ '
　　　　　l　　　 ヾ:ヽ　 　ト`ー-r-;;y‐T^
　　　 　 |　　　　ヾ ｀ニニ「〈〉フ /‖. j

　　　　　　　　　 　 　　　 ハ　 　 　 　 _
　　　　　　　 　 　 　 　 ‖ヾ　　　　　ハ
　　　　　　　　　　　 　 ‖::::|l　　　　‖:||.
　　　　　　　　 　　　　 ||:::::::||　　　　||:::||
　　　　　　　　 　　　　 |{:::::‖.　　.　.||:::||
　　　　　　　　 　 　 　_」ゝ/'--―- 、|{::ノ!
　　　　　　　　　　　／　　　__　　　 　 `'〈
　　　　　　　　　 /´　　　/´ 　ノ￣￣｀ヽ、―ニ 二　
　　　　　　　　 /　　　.::/'::::／　´｀ヽ _　 三,:三ー二
　　　　　　　　{　　　　　　ノヽ--/￣ ,　
　　　　　　　 厶-―　　ミ }　　...|　 /!　　
　　　　　 ∠ヽ ゝ-― 　」_}｀ー‐し'ゝL _
　　　　　 レ^ヾ ヽ>'￣ 　_,:ヘｒ--‐‐'´}　　　 ;ー------
　　 　 　.l　　 ヾ:ヽ `　、_.、,,ノ｀ヾ:::-‐'ーｒ‐'"＝＝-
　　　　　l　　　 ヾ:ヽ　 　ト`ー-r-;;y‐T^
　　　 　 |　　　　ヾ ｀ニニ「〈〉フ /‖. j

改行があるテキストファイルではなくバイナリファイルをPerlでコピーしたい

おすすめのかきかた、ありますか

初心者スレに行け

>>670
あっそ
勝手にすれば
ここはお前の希望を書く場所じゃねえんだよゴミ

回答できないの？　はずかし

>>670
どういうこと？
ファイルコピーのコマンドや関数を使うんじゃなくて？

本当の質問なら初心者スレに行け
ttp://kohada.2ch.net/test/read.cgi/php/1343668425/

twitterなら派がアップを始めたようです

「自治厨プギャー」と「自己顕示欲プギャー」には飽きたから
レスんなくていいぞ。

あ、そいやIDって申請しれば出してくれるんだっけか。
あまりにも忘れてた。IDの存在自体を。

>>670
基準も示さずにオススメとかマジで頭狂ってんの？

最近>>670みたいなキチガイ質問者多いな
ゆとり世代か？

>>669
涙目で謝るとこまで入れて欲しかった

　　　　　　　　　　　 　 　 ハ　 　 　 　 _
　　　 ＿＿_　　 　 　 　 ‖ヾ　　　　　ハ
　　/　　　　 ヽ　　　 　 ‖::::|l　　　　‖:||.
　/　聞　え　　|　　　　 ||:::::::||　　　　||:::||
　|　 こ　？　　|　　　　 |{:::::‖.　　.　.||:::||
　|　 え　 　 　 |　 　 　_」ゝ/'--―- 、|{::ノ!
　|　 な　何 　 |　　／　　　__　　　　　 `'〈　　　　　　　　　　　　　　　　バシッ
　|　 い　？ 　 ! /´　　　/´ ●　　　 __　 ヽ
　ヽ　　　　　 / /　　　　 ゝ....ノ　　 /´● 　 i　　　ノ￣￣｀ヽ　　　ヘヘヘヘ
　　｀ ー―＜　{　　　　　　　　　　　ゝ- ′　| 　ノヽ--/￣ ,　￣｀｀~´´^´￣￣￣
　　　　　　　 厶-―　　　　r　 l＞　 　 　 　 |　}　　...|　 /!ヘ;;;;丿 ヘ,
　　　　　 ∠ヽ ゝ-― 　 　 `r-ト、_,) 　 　　　|　 }｀ー‐し'ゝL _ {　 i　く_
　　　　　 レ^ヾ ヽ>'￣ 　 　　LL/　　、　 　/　　ヘｒ--‐‐'´}　　 ;ー{　　｀ゝt--------
　　 　 　.l　　 ヾ:ヽ `　、_　　　　　　＼＼ '　　.、 ヾ:::-‐'ーｒ‐'"　　人　　.く
　　　　　l　　　 ヾ:ヽ　 　ト`ー-r-;;y‐T^　　　　　　　　　　　　　　/　　　 /
　　　 　 |　　　　ヾ ｀ニニ「〈〉フ /‖. j　　　　　　　　　　　　　　 /　　　 /

消えろ

マンコを突き進んだチンコはやがて子宮口に到達した。
そこで終わりかと思いきや、なんと子宮口をこじ開けて侵入を試みたのだ。
興奮でバキバキに勃起した亀頭は子宮口の中心をグリグリと押し開き
じわりじわりとその中に押し入ってきた。

質問いいでしょうか
%inputhash←入力ファイルをあらかじめキー1：1列目の値,キー2:2列目以降のヘッダ名という形で生成
これをforループでキー1のレコード回(100万回)
%outputhash←%inputhashのキー2の特定ヘッダに格納されている値に応じてデータをふるいわけて格納
なおキー2の値がすでに存在している場合一旦配列待避して,新規値をpushしてjoinし再度格納
という処理を行なっていますが如何せん時間がかかります。

調べているとマルチスレッドという手法があるのを知りましたが、
今回のような入力ハッシュを各スレッドで共有させ（forループを分担させる）、
さらに共通の出力ハッシュへ格納していく（重複部分の処理でエラーを起こさないか）ということは可能でしょうか？

ああめんどくさい
なんでソースをそのっままあげないんだろう

>>687
すいません
会社のプロジェクトなのですし、冗長的なコードうを含んでいるので難読化しすぎて不適かと思います。
そもそも前半は話半分で、お尋ねしたいのは、後半のマルチスレッド化に関して可能かどうかです
お願いします

１つのファイルを、その共有ハッシュに見立てて、
複数スクリプト立ち上げて、うまく１つのファイル内情報を共有して処理するでどうよ

可能ですか？って質問にはコード次第と答えるけど、
速くなりますか？って質問には必ずしも保証できん、と答える。
（マルチスレッド=速度upなんて単純なもんじゃありません）

そもそも、100万回程度で遅いって、他の要因じゃないの？
今回の場合、コードの精査とか、hashじゃなくSQLiteなどの
運用などを先に考えるべき。

>>688
会社のソースをそのまま出す必要はない。

遅いと証明できる
最小限のコードを出せばいい。

>>686
後半のマルチスレッド化の部分について答えよう。

不可能だ。

理由は省略。なぜなら前半部分の
書いてない場所にその理由があるからだ。

>>688
何でお前の仕事をタダで手伝わなきゃならないの？
キチガイかお前

プロに金払って解決してもらう程度の規模に見える

>>693
マジキチ

最近は自分の仕事を匿名掲示板で赤の他人に手伝わせる奴がいるのか。
駅員に暴力ふるう常識知らずがいるのもなんか分かった気がする。

答えられないのに偉そうな奴がいるな
まぁマルチスレッドは俺にもわからん

ここは底辺の掃き溜めだから>>680みたいなゴミクズにふさわしいと思うんだけど。

叩いて追い出す理由はない。

他に行くと迷惑でしかないから親身になって相談に乗ってるフリして引き留めておくのが一番。

Twitterで知り合いに教えてもらったのでもういいです。
ありがとうございました。

>>699
なりすましとか最低すぎ。質問するからって遜ってやってんだよゴミクズ

threads::shared、Thread::Queueみたいな共有・排他制御がスカラ変数以外にも適応できないかと
スレッド間でのハッシュの共有・排他制御は可能か？っていうモジュールの仕様、テクニック面での質問だったのに
>>692は答えられないからって「理由は省略」とか = コード読めないし、そもそも知らないってこと? 無能きわまりないですね、ふぁっく。
>>689はアイデア出してもらってありがとう。seek()で読み取り範囲を分配させるわけですかね。出力した結果のキー部分が重複してると厄介そう

for my $input_key(nsort keys %{$inputhash{$inputfilename}}){　　　　　　　　　　　　　　　#このinput_keyが100万個、このfor文をマルチスレッドさせたい
　　my @key1 = ()
　　#中略：正規表現でキーワード配列と一致したものを @key1にpush

　　my @key2 = split(/,/,$inputhash{$inputfilename}{$input_key}{$input_header[$cols_keyword]});
　　for(my $j=0;$j < scalar(@key2);$j++){
　　　　for(my $i=0;$i < scalar(@key1);$i++){ 　　　　　　　　　　　　　　　　　　　　　　　　　#key1をカテゴリとして入力ハッシュを分配
　　　　　　if(exists $outerhash{$key1[$i]}{$key2[$j]}){　　　　　　　　　　　　　　　　　　　　#すでに出力ハッシュにキーが存在していれば
　　　　　　　　my @tmp = @{$outputhash{$key1[$i]}{$key2[$j]}{$output_header[$g]}};　　#既存値を退避
　　　　　　　　push @tmp,$inputhash{$inputfilename}{$key1}{$input_header[$g]};
　　　　　　　　@{$outerhash{$key1}{$key2[$i]}{$outputheaders[$g]}} = @tmp_probeidlist;　　　　　　　#ハッシュの値を上書き
　　　　　　}
　　　　　　else{#キーが存在しない時
　　　　　　　　my $k=0;
　　　　　　　　@{$outputhash{$key1[$i]}{$key2[$j]}{$output_header[$k]}} = $inputrecs{$inputfilename}{$key1}{$headers_input[$列番号]};
　　　　　　　　$k++;
　　　　　　　　#以下順番に@{$outputhash{$key1[$i]}{$key2[$j]}{$output_header[$k]}}に%inputhashの任意の値を格納
　　　　　　}
　　　　}
　　}
}

>>700
よく読んでないけど
既存値逃がしてるところでものすごく長い文字列入れた配列できてんじゃねーの？

>>700

↑
仕事の質問を2chでやってる最低なゴミクズがここにいます
晒しage

このコードは酷いｗｗｗｗｗｗｗ
そりゃ元のコードも相当酷いだろうなｗｗｗｗｗｗｗｗｗｗ
遅いはずだわｗｗｗｗｗｗｗｗｗｗｗｗｗ

>>693=>>696=>>699=>>702だろ
面白いから黙ってろ

プログラマじゃないんじゃね？
まともな企業ならこんなコード書く奴雇わないよ。

>>701-703,>>705
お前ら釣られ杉。
>>700のコード見てまだマジレスする香具師もいるんだな。

てか全部uyの自演だから

もうID申請してくれよ
久々の餌=初心者?さんが来てマジキチ歓喜
なりすましはやりすぎだアホ

　||￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣||
　|| ○荒らしは放置が一番キライ。荒らしは常に誰かの反応を待っています。
　|| ○重複スレには誘導リンクを貼って放置。ウザイと思ったらそのまま放置。
　|| ○放置された荒らしは煽りや自作自演であなたのレスを誘います。
　||　　ノセられてレスしたらその時点であなたの負け。
　|| ○反撃は荒らしの滋養にして栄養であり最も喜ぶことです。荒らしにエサを
　||　　与えないで下さい。 　　　　　　　　　　　　　　　　 Λ_Λ
　|| ○枯死するまで孤独に暴れさせておいて　　 ＼　(ﾟーﾟ*)　ｷﾎﾝ。
　||　　ゴミが溜まったら削除が一番です。　　　　　 　⊂⊂ |
　||＿＿＿ ∧ ∧＿＿∧ ∧＿＿　∧ ∧＿　　　　　 |￣￣￣￣|
　　　　　　(　 ∧ ∧__ (　　 ∧ ∧__(　　 ∧ ∧　　　　￣￣￣
　　　　〜（＿(　　∧ ∧＿ (　 ∧ ∧＿ (　　∧ ∧ 　は〜い、先生。
　　　　　　〜（＿(　 　,,)〜（＿(　 　,,)〜（＿(　 　,,)
　　　　　　　　〜（＿__ﾉ　　〜（＿__ﾉ 　　〜（＿__ﾉ

>>700のコードを読まなくても
見ただけで、「汚い」と判断できるのは
一体何を見て判断してるんだろうな。

文字が詰まりすぎているところなんだろうか。

自分の直感が理解できないｗ

でも汚いってのは正しいだろうね。

そのAAも専門板の文化じゃないんだから止めろよ
韓国ニュースコピペと何ら変らん不快感

見やすい書き方ができない
↓
見やすい書き方を知らない
↓
プログラミングを知らない
↓
そんな奴が正しいコードを書けるわけがない。

こんな感じかねぇ。

コード読まなくてパッと見で感じるのは
空白が少ない（記号が少ない）とか
同じような文字の繰り返しを認識してるからなのかな？

まーたキチガイがフィッシングしてるのかｗ

>>700
何そのゴミ
ここはゴミ置き場じゃないんで

ブログにでも書いてろ白痴

21行、実質17行ほどの間に、20個ほども変数が乱舞すれば、見分けがつきにくくなる。
あとはアンダーバー。これが入っているのと入っていないのがあって、それが統一感を削いでいる。
命名規則を良くすれば、把握しやすくなる。

# $inputfilename

# %inputhash
# @input_header
# @headers_input
# $input_key
# %inputrecs

# %outputhash
# @output_header
# @outputheaders
# %outerhash

# $cols_keyword
# $列番号 ($cols_num ?)
# @tmp
# @tmp_probeidlist

# @key1
# @key2
# $key1
# $i
# $j
# $k
# $g

と、プログラムの常識をドヤ顔で投稿する基地害が住み着いてるわけか。

>>716
黙ってろってｗｗｗ
これでも食ってろ〜〜〜ｗｗｗ
ビッグ便アタック〜〜ｗｗ
　　　　　　　　　　　　　 |ヽ
　　　　　　　　　　　　ヘノ:::::ヽ
　　　　　　　　　　／:::::::::::::::::ヽ
　　　　　　 /|　／::::::::::::::::::::::::::ゝ
　　　　　 /::::|/:::::::::::::::::::::::::::::::::::〉／!
　　　　 |:::::::::::::::::::::::::::::::::::::::::::::::::/／|
　　　　 |::::::::::::::;;;;:::::::::::::::::::::::::::::::::::::::|
　　　 |＼:::::::::/　 `、::::::::/　ヽ:::::::::::::::|/　
　　　 ヽ:::::::::/　　　 !::::/　　　!:::::::::::/
　　　 ＼::::::::>　　　 V 　　<,,=-、／　
　　　　　ヽ「｀|　/゜＼　　/゜＼＃l）
　　　　　　‐ゝ、 ⌒　　　 ⌒　ナ＿＿＿　　＿＿＿
　　　　　　　　ヘ 　i=`==、　 ／　　 　　゛Y"　　　 　＼
　　 　 　　 　　　＼ー＝.'／　　　　　　 　　　 　　　　＼
　　　　　　　　　　　`ー／　　　　　　　　　　　　 　　　　 ＼
　　 　　　　　　 /￣￣￣￣）　　　 　 　 ＊　　　　 　（￣￣￣￣）
　　　　　　　　　|　　　 ─＜　　 　　 　 　|＼　　　　　 ＞─　　 (
　　　　　　　　　|　　　　　　）　　　　 /　 (|ミ;＼　　 　（　　　　 　）
　　　　　　　　　ヽ　　 ￣￣）　　 　/（___人|,iミ'=;＼ 　（ ￣￣　 　）
　　　　　　　　 /"￣￣￣￣ 　　／　　　　《v厂リiy＼ ￣￣￣￣＼
　　　　　 　　 /　　　　　　　　／ 　 　 　　 ゛|,/'' v:,,、.¨)z,_　　　　 　 ＼
　　　　　　　 /　　　　　　　／　　　 　　　　 ミ／　.-─ .゛》z、　　　　　 ＼
　　　　 　　 /　　　　　　／　　　　　　 　　　 〔」″ノ‐　、u　¨＼　　　 　　）
　　　　　　 (　　　　　　/　　　　　　　　　　 　 ゛|,　..冫 .rー　　 ￣＼_　　 　|
　　　　 　　 |　 　　　 〔　　　　　　　　 　　　　　ミ./′　　 ..r-ー　__,,ア┐　 |

>>686
イメージとしてはこういうことをしたいの？
http://pics.dmm.co.jp/digital/video/erml00001/erml00001pl.jpg

どんなＤＱＮ親に育てられたら>700みたいな人格障害ができあがるのかということについては興味がある

>>686もなりすましも煽ってる奴も
みんな同レベルでワラタｗ
馬鹿に変わりはないｗ

ageんな、荒し

なぜ>>700が見難いのかという
そっちの理由のほうが面白いｗ

>>721
自己紹介乙
荒らすな

　　　　　　　　　　　　,+'"二三三三三三三｀‐，、
　　　　　　　　　　,#"乍'":::::::::::::::::::::::::::::::::::::::::::::::￣::｀゛#、
　　　　　　　　,#":::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::＼
　　　　　　／::::::::::::::::::::::::：：：：：：：：#########;;::::;;;;;;;::::::::::::ヽ、
　　　　 ／::::::::::::::::::::::::::；：・川川川川川川川｀ヽ　:::::::::::::::::::::::ゝ
　　　 //::::::::::::::::::::::::川川川川川川川川川ノ｀ミミミ!::::::::::::::::::::::::i
　 　 //:::::::::::::::::,'"川川川川川川川川川川川　 iミミi::::::::::::::::::::i
　　.//::::::::::::::::::川川川川川川川川川川川川　　iミミミ!::::::::::::::::|
　　|"::::::::::::::::::川川川川川川川川川川川川ノ　　iミミミミミ!::::::::::::::|
　　|:::::::::::::::::/川川川川川川川川川川川川ノ　　 iミミミミ!::::::::::::::|
　　|::::::::::::::/川川川川川川,;,;,;,;,;川川川川ノ ..;;;;;;,,,,iミミミミ|::::::::::::::|
　　{::::::::::::|川川川川川// 　,,＿''　　　 　　.::::.＿"´　iミミ|:::::::::::::|
　　|:::::::::::::/⌒＼//////ノ#(人゜ノ ヽ　　　 ;::: 人゜ノヽ#..iミ.ミ|:::::::::::/
　　!::::::::::::(　　,　　|jjjj‖　 　"""" ´　 　　';::""""゛　 !||||::::::::::/
　　ヽ::::::/|||ヽ(　　|||^ヽ　　　　　　　.:;　　　ヽ.; 　 　　　!|||:::::／　こいつ最高にアホだねー☆ウフフッ☆オッケー！
　　　ゝ〃||||{＼　 ||ソ ;|:　　　　　,:´ 　 　 　 　:; 　 　 　.!|||
　　　　ヒ||||||||||||∪||　 |: 　 　　;:'　 　　 ｀　´　　 :;,.　　.i||||
　　　　　||||||||||||||||　　|:!　　　:;　ｔ┬┬┬┬┬┬;; 　i||||
　　　　　|||||||||||||||i　　 !:!　 　 ｀　|　 /　/￣, , /　　 i||||
　　　　　 !|||||||||||||!　　:|::! 　　 ・　ゝ..'ノ＾￣￣　　,#|||||
　　　　　　||||||||||ソ　:　 ゞ;;＼＿　　　　　　　　 　#i|||||
　　　　　　|||||||||ソ　　　　￣￣￣)　　　　　　／|||||||||

オマエモナー

何だ、
できもしない仕事を引き受けたヴァカが2chで質問して
回答もらえないから暴れてただけか

>>700
どうして、もっと簡潔にして晒さないのか
ってか、もっと矢印とか使うべき
もう、ごちゃごちゃしてて見る気失せる。

・結局並列処理についてのレスは全くなし
・おそらくうp用に書き間違えた変数名叩き
・うp用コードは精査しとけよ…
・なりすまし

あいかわらず最低だなお前らw
この処理は並列化無理でしょ、forkで変数まるごとコピーさせても全キーを重複チェックしつつ纏める処理が次の課題になる
現状動いてて数時間程度で終わるんなら気長に待て、待ってる時間サボれるなら羨ましいわ

最低なのｈあコードだろｊｋ

>>700
これ、ハッシュで無理やり管理するんじゃなく
クラス作って管理したら？

自説だけどやっぱり>>694ってことじゃないの？

韓国征伐国民大行進!! in 新宿
http://live.nicovideo.jp/watch/lv105494675

韓国征伐国民大行進(*｀Д´)ノ！！！
http://live.nicovideo.jp/watch/lv105376241

ミラー　韓国征伐国民大行進(?*｀Д´)ノ！！！
http://live.nicovideo.jp/watch/lv105485599

櫻花さんミラー　韓国征伐国民大行進!! in? 新宿
http://live.nicovideo.jp/watch/lv105499908


★【日韓断交共闘委員会開催】
★キレイ事禁止御意見無用
★【開催日】平成二十四年八月二十五日（土曜日）
★ 【時間】午後十六時集合、十六時三十分出発
★【集合場所】東京都新宿区西新宿七番地
★柏木公園
★【呼びかけ人】荒木しほ★せとひろゆき★桜井誠★加藤哲史★金友隆幸★菊川あけみ★中井ケイノスケ
世界一の反日国家ユスリ、タカリ、イカサマ国家に対しとことん糾弾をしよう！！
日本人よ！もう我慢する事はない！！
★日章旗、旭日旗、Ｚ旗プラカード持ち込み歓迎！！
★服装自由！！
【注意事項】キレイ事禁止！チマチョゴリ、人民服など現場にそぐわない服装は御遠慮下さい！！
ゴキブリ旗歓迎！
現場の指示には必ず従って下さい！！
自分勝手な行動はつつしんで下さい！！
★【代表世話人】愛国者市民団体日の丸友の会★中井ケイノスケ。

速さがほしいならC使う
俺ならJava使う
暗号すぎてどこに代入されてんのかわからん

かじった程度の知識でプログラムできますとか言っちゃったんだろ。
>>686みたいなゴミは社会の迷惑でしかない。
でも悪いのは>>686ではなく>>686みたいなゴミを育てた>>686の親。

>>732





ついに始まったか・・・

でも安心してください
そのような迷える子羊たちは
このperlスレは全て受け入れます
わたちたちの心は海よりも広いのです
さあコードの向こう側へ一緒に行きましょう

とりあえず>>700みたいな汚物を平気で貼れる神経にびっくり
エラそうな口叩いて出てきたのがあの汚物とはね












>>700はまさに歩く恥さらし

マジキチ今日も元気だな

何でもいいけど池沼は世間と関わり持つな。
生ポもらってもいいから回線切って引きこもっててくれ。
>>700みたいのは自覚がないから余計に始末が悪い。

でも日本経済って韓国のお蔭で何とかなってるようなものだから、国交断絶したらやばいんじゃ？これはIT業界のお前らにもモロに影響あるだろ

ちんぽっぽ

>>740
IT屋には影響ねーよ。
大手なら多少は影響あるかもしれないが。
そこらのシステム開発やってる企業は何の影響もない。
PerlスレだからPerlに限定した話をすると、
Perl使ってるのはWeb業界だけだからほとんど影響ない。

あまりにも汚すぎるな。汚過ぎで遅い原因もわからん。
俺が無償でコードレビューしてやっから俺の言うことに従って書きなおせ。

http://www.woodensoldier.info/computer/refactoring/index.htm リファクタリング用語の意味はこっち

・$inputhash{$inputfilename} が多すぎ。Intorducing Explaining Variable のリファクタリングをしろ
・forを使うな、foreachを使え。

とりあえず、この2点の修正をしろ。続きはそれからだ。

for my $input_key(nsort keys %{$inputhash{$inputfilename}}){
　　my @key1 = ()
　　my @key2 = split(/,/,$inputhash{$inputfilename}{$input_key}{$input_header[$cols_keyword]});
　　for(my $j=0;$j < scalar(@key2);$j++){
　　　　for(my $i=0;$i < scalar(@key1);$i++){ 　　　　　　　　　　　　　　　　　　　　　　　　　#key1をカテゴリとして入力ハッシュを分配
　　　　　　if(exists $outerhash{$key1[$i]}{$key2[$j]}){　　　　　　　　　　　　　　　　　　　　#すでに出力ハッシュにキーが存在していれば
　　　　　　　　my @tmp = @{$outputhash{$key1[$i]}{$key2[$j]}{$output_header[$g]}};　　#既存値を退避
　　　　　　　　push @tmp,$inputhash{$inputfilename}{$key1}{$input_header[$g]};
　　　　　　　　@{$outerhash{$key1}{$key2[$i]}{$outputheaders[$g]}} = @tmp_probeidlist;　　　　　　　#ハッシュの値を上書き
　　　　　　}
　　　　　　else{#キーが存在しない時
　　　　　　　　my $k=0;
　　　　　　　　@{$outputhash{$key1[$i]}{$key2[$j]}{$output_header[$k]}} = $inputrecs{$inputfilename}{$key1}{$headers_input[$列番号]};
　　　　　　　　$k++;
　　　　　　　　#以下順番に@{$outputhash{$key1[$i]}{$key2[$j]}{$output_header[$k]}}に%inputhashの任意の値を格納
　　　　　　}
　　　　}
　　}
}

こうやって対価も取らずに教えるお人好しが経済を停滞させるんだろうな。
日本から出ていけ非国民。

>>743
いつまで同じネタで荒らし続ける気だ？

>>744
対価を取ってないCPANに言えよアホ
そこに上げてる日本人作者全員に言って来いよアホ
それが出来ないならスレから去れ

>>744-745
死ねや屑が

>>743はキチガイを定着させて更なる糞スレ化をするために回答してるんだよ

>>747
死ねは殺人教唆だからな
殺人罪に匹敵する重罪で刑事事件になるからな

まぁ楽しみにしとけよｗ

おまえはすでに常駐してるから関係ない

>>750
常駐乙

殺人教唆って何？

Read It Later→はてブがやりたいんだけど、
「[501] at line 23」と返ってきてしまいます。
何が原因なのでしょうか？

use strict;
use warnings;
use utf8;
use Encode;
use Config::Pit;
use WebService::RIL;
use WebService::Hatena::Bookmark::Lite;
my $config_ril = pit_get('RIL');
my $ril = WebService::RIL->new(
user => $config_ril->{user},
pass => $config_ril->{pass},
apikey => $config_ril->{apikey},
);
my $config_hatena = pit_get('hatena');
my $bookmark = WebService::Hatena::Bookmark::Lite->new(
username => $config_hatena->{username},
password => $config_hatena->{password},
);
my $list = $ril->get_list(
state => 'unread',
);
for my $item (@{$list->{'list'}}) {
$bookmark->add(
url => $item->{url},
);
}

501なのが原因なんだろ
それ以上はwebPROG板に行ってくれ

＞俺の言うことに従って書きなおせ。
こういう物言いしかできない奴は例外なくDQNでスキルもない

まんま501が原因とか

>>753
マジレスするとこっちできいたほうがいい。

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

ム板屈指の糞スレ

>>700
splitしてpushしてjoinして再格納、とかやらずに、
値をスカラではなく無名配列のリファレンスで持っておいて重複分もどんどんpushしていって、
最後まとめて各々joinするようにすればちっとは速くなったりしないかね。

759の続き。
あるいは無名配列じゃなくスカラ(文字列)でもいいけど、
セパレータ(タブとか)+値、の形でひたすらアペンドしていって、
最後に先頭のセパレータを取り除いて必要に応じてsplitしてやるとかの方が速いかも。

>>759-760
そのベンチの結果をなぜ貼らない？
それとも妄想全開で書いてるマジキチ？

そういう病気なんだろ、思い付きで行動する的な

1レスで済むものを2レスに分けて書いてるし、行動に移す前に吟味できないタイプ

吟味できないのはプログラマとしては致命的だし

ましてやその書き込みの価値はゼロに等しい

>>759
そんなつまらないところが原因じゃないだろ。

だがいまのままじゃソースコード読む気になれんから
読めるように書きなおせと言ってる。

>>795=問題点の分かってないヴァカ

よし、じゃあ、俺がその役やるから、
レス取らないでくれよ！

見当違いのレスして喜んでる>>759って一体何がしたいんだろうな。

糞

あはは
ruby使いが通りますよっと

　 ＿■＿ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　|∵∴∵|:::ー-ーーー-ー─ーー--ーーーー-ーー-ー,||
　|∵∴∵|:::: 　　　磯野家の系図　　　 　 　 　 　 i ||
　|∵∴∵|::::　　　　　　　　　　　　　　　　　　　　　 ; ||
　|∵∴∵|::::　波平─-──┬─-──フネ　　 　 :; ||
　|∵∴∵|::::　　　　　　　　　│　　　　　　　 　 　 |　||
　|＝＝＝|::::　波平───サザエ　　　　　 　 　 !　||===-3
　|∵∴∵|::::　　　　　　　│　　　　　　　　　　　　　; ||
　|∵∴∵|::::　波平─ワカメ 　　　　　　　　　 　 |　 ||
　|∵∴∵|::::　　　　│ 　 　 　 　 　 　 　 　 　 　 i　 ||
　|∵∴∵|::::　　　タラチャン　　　　 　 　 　 　 　 |　||
　|∵∴∵|:::ーーー ーー- -ーー-ーー-ーー-ーー─　||
　 ￣■￣ ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　【磯野家の秘密】

>>761
ベンチはやってないから結果は貼れない。すまねえ。
まあ、仮説→実験→検証サイクルのうちの仮説の段階ってことで。
そもそもソースがやたら見づらくてちゃんと見てないし。
あとで気が向いたらベンチ取ってみるわ。でもたぶんこのまま忘れる。

ベンチってテンプレ用意しときゃ一瞬なのに
なんでそんなことをするのにも時間かかっちゃうの

>>771
それは普段ベンチなんてぜんぜんやらないんでテンプレとかも用意してないからだよ。

パフォーマンスにこだわってるのにベンチとらないっていうのが
わからないんだけど、
きれいで洗練されたコーディングにしたいとかそういう感じなのか？

>>700はただの馬鹿だからだろ
救いようがない
体感で速いとか遅いって言ってるゴミクズでしょ

質問の内容はどうであれ、
どんな質問でも、とにかく叩く変なのが常駐してるよな

まぁ以前質問して答えてくれなかった腹いせに荒らしに来てるんだろうけどｗｗ

そうやって自己紹介していくやつも結構いるから別に不思議じゃないけどｗｗ

どんな質問でもって・・・

叩かれて当然の質問しか来てなくね？

叩かれない質問をしてみて

ム板の肥溜めだから糞質問者も糞回答者も何でもありだろｗ
そもそも機能してない無歩地帯だしｗ

　　　　　　　　　　　　　 ＿_＿＿
　　　　　　　 　 　 　 ／　　ー　-＼
　　　　　　　　　　　/　　（ ●）　（●）
　　　　　　　　　 　 |　 　 　 （__人_）　!
　　　　　　　　　　　ヽ、＿＿ ｀⌒´ ノ
　　　　　　　ｒへニニ,r ''　 　 ＼ノ￣∨￣'''''ー-ｖ‐''７
　　　　　　　|　 |　 　|　　　　　　 　 /::::::::::::::::::::/:::::/
　　　 　 ｆニニ):|　 　|　　ト.　　　　./::::::::::::::::::::/:::::/
　　　　　| |:::|　 |　 　|　　|　　 　 ./::::::::::::::::::::/:::::/
　 　((二ソ　|　 |　 　| 　┴──ｒつ::::::::::::::::/:とヽ
　　　　　　　|　 |:　 　'i───‐(_つ:::::::::::::/::と}ノ
　　　　　　　ヘ,,』,,＿ Ｌ＿＿＿＿_i￣'''ー'-‐´
　　　　 　 　 └|i へ { 　 　　 、::::.　￣￣￣￣　ヽ
　　　　　　　　　L_　',ヽ、 　　⌒ヽ:::,,＿＿__/　　 !
　　　　　　　　 　　!　 '、｀ - _　 　ｌ三ソ　 　 !　 　!
　　　　　　　　 　　ヽ.　　￣:|　　 |　./　　　 |　　,'
　　　　　　　　　　 　!:　　　 |　　 | /　　＿,,,|　 イ
　　　　　　　　 　　　!:　　　 |__＿i ニ￣　 .⊥_.ノ）
　　　　　　　　　　 　!　　　｛ミ─　∠＼￣/＞彡｝　　　　　　　　　　ノ）
　　　　　　　　　　　 ｀'' ー-｛ミ二ミ＝─Υ::＿シ二)　　　　　　　　（;:.:.__）
　　　　　　　　　　　　　　　　}￣ヽ￣￣ ￣　　　　　　　　　　　　（;;:::.:.__::;）
　　　　　　　　　　　　　　　　ヾニニ)　　　　　　　　　　　　　　　（;;:_:.__゜.:.:⌒)

質問考えてみた
みんなPerlでTDDってやってる?

地獄

>>781
×：質問
〇：アンケート

それじゃ俺も質問をしてみる。
前から不思議に思ってたけど支障なかったから放置してた疑問

#!/usr/bin/perl
use strict;
use warnings;

my $test;
$test = 40;
@$test = (10, 20, 30);

print $_."\n" for (@$test);
print $test."\n";
exit;

これ、use use strict があったら警告だしてくれるけど外すと、
10〜40まで表示される・・・
@$test = (10, 20, 30) の後に$testに何か代入すると壊れるけど。
これずっと不思議

あぁ、ごめん意味わかったわｗ
ひさびさに思い出して考えたらわかったｗ

>>784
「40」というポインタの参照先に配列が作られたって考えれば理解できないかな？

＞@$test = (10, 20, 30) の後に$testに何か代入すると壊れるけど。
そりゃそうだ、@$testが違う配列をさすようになるわけだから。

>>777
最近の叩き方は叩かれて当然の質問に対しての叩き方じゃなくなってるからなあ

>>786
そう、つまりはそういう事だったんだな〜
数字から始まる名前が変数名になる訳ないと視野に入れてなかったよ

って事は、変数名はどんな文字でも大丈夫って事になるよな
たとえば、

${'日本語で変数'} = "日本語";
print ${'日本語で変数'};

これが通る。
strictつけたらエラーになるけどｗ

うん、そういうことがあるからuse strictは大事なんだなぁ、と。

本筋からズレるけど、随分前から use utf8; すりゃ日本語変数は使えますよ、と。
勿論、strict も通る。
# "$あ" があるスクリプトのリライトを依頼された時の衝撃と来たら、もう、、、

>>795 期待してるよ

use strict使ってない奴はマジキチ

文字列中の^の数を数えるときはどのようにすればよいでしょうか？

s/"^"/"^"/g
とやってもダメで、
s/"\^"/"\^"/g
とエスケープしようとしてもダメでした。

>>793
置換とカウントの違いも区別できないゴミは消えろ。

>>793
my $string = "ab^cd^efg^";
my @match;
@match = ($string =~ /(\^)/g);
print @match+0 ,"\n";

>>793
本は何冊調べて分からなかったの？
まさか3冊未満なんてことないよね？
それ悪本だから書籍名教えてくれるかな？

自分で調べもせずに質問してる屑＝>>793

お前存在価値ないよ。
お前の存在価値があると思ってるのは
頭のおかしいお前自身と
そんな屑を育てた屑親だけ。

このレベルの質問は初心者スレに誘導しろよ、「質問者叩き荒し」が喜ぶだけだから。

自治厨プギャー

>>793
その程度も分からない奴が書いてるコードなんてゴミでしょ
ゴミ書いてるくらいならPCの電源落として節電したら？
どんな教育受けたら電気使ってゴミを生産するようになるんだろう

他人が節電して生まれた余剰電力を使って自己満足の糞プログラムを書いてるのかｗ

さすが本物の基地害は格が違うｗｗｗ

日常でも相手にされず、逃げ場のネット上でも相手にされずで発狂。毎日キチガイじみた煽りとか惨めすぎるな

質問した人はスレ閉じて忘れた頃に開くといいよ。いらつくだけ
>>793
ググったら出てきた。
ファイル中の全個数数えたいなら$sObjに1行ずつ代入してグローバル変数を+=$iCntすれば動きそう
use strict;
my $sObj ='ABCDE12ABDEABC';
my $iCnt = 0;
map {++$iCnt} ($sObj =~ /ABC/g);
print "COUNT: $iCnt\n";

>>802

レス遅すぎｗｗｗｗｗ

お前、要らない子

>>802
>>795ではいけないの？

「自己顕示欲プギャー」って煽る人の気持が分ったわ。
回答者のレベルになってない。

>>804
いいとか悪いとかじゃなくて自己顕(ｒｙだけだから
日常でも相手にされず、逃げ場のネット上でも相手にされずで
発狂して投稿してるだけだから

>>804
動けば好きな方でどうぞ
Perlのモットーみたいなあれ

と、電力使用のピーク時間帯に情報乞食に餌をやって喜んでる池沼が申しておりますゆえ、

回答者煽りでなくマジレスで。
質問者ならいいが、回答者が
>map {++$iCnt} ($sObj =~ /ABC/g);
なんて書くなよ。

理由が分るまで回答も質問もすんな。

なんで回答者の俺が叩かれなきゃならんの？
俺のほうが偉いんだし

>>810
お前誰だよ

>>809
視覚的にはわかりやすい気がするけどだめなのか

本当に出来る人ってのは、
質問に対して、適切な回答のみをするか
何も書かない。

>>802みたいに、
どーでもいいことをかいて
偉そうにしているやつは、
初心者を抜けだしたと思ってる初心者

> ググったら出てきた。

この時点で初心者だろｗｗｗ

この程度ぐぐるか？
コードなんて頭の中ですぐに思いつく。
書くのが面倒だから書かないが
だからといってググろうとは思わない。

本当に出来る人ってのは、(略)何も書かない。(ｷﾘｯ

新しい名言きましたｗ

集団ってレベルの低いほうに引っ張られるからな
だから高校でも大学でも自分のところのレベルに合わせた評価基準作ってそれ以下の奴は受け入れないようにしてる

ここでも同じこと

>>812
ダメコードの代表例

できない人は回答を書かないで
偉そうにしてるからなｗ

例

偉そうな無能「>>1のルールに○○を書けと書いてあるでしょ。
それをちゃんと書かない奴にレスは不要！
情報を小出しにするな！」」

↓

（○○書いても今回は関係無いだろ。○○書いたら
こいつちゃんとレスするんだろうな？）

↓

偉そうな無能は逃亡しましたｗｗｗｗ

なんでIDでないのかなぁ、この板

>>812
てめーの腐りきった感覚でわかりやすいだけだろボンクラ。
腐ったコードばっか書いてるとお前みたいになるんだよ。
他人の感覚まで腐らせる気かよ。
ここでは迷惑でしかないからブログにでも書いてろ知能障害。

>>819
IDでたらでたで
毎回ID変えてレスするだけだろｗ

問題点を指摘されると反論できないID厨が沸くなｗ
論破できれば相手が一人だろうと複数だろうと関係ないのに、自演認定したりして勝った気になってるタイプの人種かなｗ

ID出たら粘着しやすいよね

>819はそれを狙ってるんだと思う

そもそも問題点指摘できてるのか？
ただクズだ低能だ罵ってるだけで具体的なこと言ってなくね

おれならこうする

my $test = '^asdasdf^^^asdfasdfasdf^^asdfasdf^asdfa^a^fasdfasdf^a';
my @count = $test =~ /(\^)/g;

print scalar @count;

レス来てたんですね。
Twitterで教えてもらったので大丈夫です。

コマンドラインで実行したかったので>>795さん、>>802さんの案は
せっかく回答していただいたのですが不可です。

スレ汚し失礼しました。

ついったー万能すぎだろｗ

またtwitterネタのなりすましか

厨房限定低級コード自慢大会が始まったと聞いてバカにしに来ました！

あぁ、見てなかったけど>>795で俺と同じだな、まぁいいか

>>829
お前の高級コード見せてみ？

　　　　　　 ,／　　　`ー-ニ ノ<´ 丿｛
　　　　　／ /　　　　　　　　　￣　 ＾ヽ. 　_
　　　　/ 　１　　　　　　　　　　　　''''''''''"丿
　　　./　　･　　　　　　　／　　‐-..,,　　･
　　 /　　　 ヽ　　　　　／ 　　　　　　 ゛　│
　　亅　　　　＼　　 ／　　　　　　　　　　│
　　|!　　　　　　 　　　　　　　　　　　　　　･
　　１　　　　　　　　　　　　　　　　__..-.....　│
　　│　　　　　　￣゛`ー--一'''''''" 　　　 ヽ･
　　│　　　　　　!　　　　　　　　　　　　 __|丿
　　丿ー 、　　/´ 　 ィニ-‐‐‐‐　　　　　'‐''彳　　　　お前それ大津市でも同じ事言えんの？
　　｛ｌフ‐->　･　　　　 _____　　　　　___--│
　　│･./＾、」　　　　'''レエ゛ゝ　　│宀‐"　!
　　　ゝ−-　''　　　　　　　　　　　|!　　　　|
　　　　ヽ..,,..　　　　　　　　　ｒ　　　゛ｌ1　　 /
　　　　　　　1　　　　　　　 ／r'　　　j亅･
　　　　　　　ヽ　　　　　　　　`ー゛‐‐´　　ノ
　　　　　　 　ヽ.　　　　　 ＿__,,........-‐ ./
　　　　　　／　‐ー 、　　　 ＾￣^´_ノ /
　　　　　　| 　　　　　゛ー....　　　￣ 丿＼
　　　　 　 |　　 　　 　　　` 、__....／　　 |
　　　　　　|　　 　　 　　　　　　　　　　 |
　　　　　　|　　　i 　　　　　　　　i　　　_|
　　　　　　|　　　｀ー――----┴ ⌒´ ）
　　　　　　（ヽ　 ＿＿＿＿＿＿ ,, ＿´）
　　　 　　（_⌒ ＿＿＿＿＿＿ ,, ィ
　　　　　　　丁　　　　　　　　　　 |
　　　　　　　 |　　　　　　　　　　　|

my $count = $str =~ tr/^//;

my $count = $str =~ s/(\Q^\E)/$1/g;

>>830
情報料について書いてないが後出しか？
まさかタダで情報よこせなんてガキ並の世間知らずじゃないよな？

>>832
おぉ、この１行目が一番シンプルで綺麗だな

>>833
どこへ振り込めばいいですか？

なりすましならいいけどなｗ

ぼくのなつやすみをかえして

一番シンプルなのは、

my $count = count_shar($str, '^');

いくら頑張っても正規表現を
直接書いてると見難い。

関数にしてしまった方がいい。

関数馬鹿登場

# 文字数を数える
my $count = $str =~ tr/^//;


コメント書くぐらいなら
コード自体にコメントと同じ情報量を
埋め込んだほうがいい。

my $count = count_char($str, '^');

>>837
そうだねよかったねどんなきょだいしすてむでもMainFunctionよべばしんぷるだねみやすいね

>>840
関数の適切な使い方を知らないと
そういうレスをしちゃうんですねｗ


関数を作らないのも、一つの大きな関数にするのも
どちらも同じ人＝関数の適切な使い方を知らない人です。

>>839
いつまでゴミみたいなコードとレスを垂れ流す気だ？
ここがお前の日記帳見えるのか基地害。

>>841
文字のカウントのしかたの話が何で見やすいかどうかの話にいくのか意味不明
公開オナニーか
さすが低脳やることが違う

>>842
リーダブルコーディングの考え方を
実践してるだけですが、何か気に触ることでもありましたか？

>>841
カス以下の知識と経験しかないお前みたいな池沼に誰も何もきいてないから書き込まなくていいよ

Perl厨って口が悪いですねｗ
正規表現を消されたことにでもむかついたのですか？
正規表現だけがアイデンティティｗ

tr/^// は正規表現じゃないんだけど

正規表現といったのは、こっちのこと。

my $count = $str =~ s/(\Q^\E)/$1/g;

>>837みたいな人格障害が住み着いてるのが
このスレが荒れてる大きな原因の一つだな。

本人は微塵も自覚なさそうだけどｗ

さっきから、悪口をはいているのは誰か
見てみましょうねｗ

WinAPIスレ辺りから流れて来たのかな

count_charの中身は、>>802で結局バカにされまくるんだろ？

>>846-848の流れを見たら分かるけど、
>>846は明確に書かなくても自分の考えが相手も分かると無意識に思ってる。
指摘されてやっと気付く。

実はこの傾向は誰でも3歳前後まであるが、それ以降は消えてきて遅い子でも5歳までには消える。
臨床心理学とか発育関係の研究でよくこの話が出てくる。

使ってる単語や文章から考えて>>847が3歳児とは思えない。
恐らく中学生〜高校生中ば。
つまり>>847はガチで精神的な発達が遅れているということ。
プログラムなんかやってる場合じゃないだろ。

なんだ、>>848は発達障害か
釣りだと思ったけどそういうことかｗ

>>853
荒らすなよ。

PHPスレなら優しく教えてもらえるよ

これからPerl始めようと思ってる人、始めたばかりの人は一度PHPスレにおいで

Perl使ってると無意味なプライドが生まれるのか、
プライドを傷つけられると、すぐに罵倒しだす。


リアルでもこうだから困る。

なんの根拠もなく叩いてる奴は、ただの荒らしだから放置しろよ

PHPなら

substr_count("検索対象","検索文字列"[,オフセット]);

一発で個数が返ってくるｗ
しかもオフセットまで効くから至れり尽くせりｗＷｗ
Perlみたいに無駄で程度の低い議論をする余地もないｗｗＷｗ
どっちが開発者のことを考えて作られたか分かるよね？ｗｗｗＷｗｗ
まじでPerl使えねーｗＷｗｗｗｗｗＷｗｗｗｗＷｗｗｗｗ
人生の時間を無駄にしたくなかったらPHPを使うことだよｗＷｗｗｗｗｗｗｗｗｗｗｗｗＷｗＷｗｗｗｗｗｗｗＷｗｗｗｗ

>>859
いーから死ね

まぁまともな人ならとっくにPHPに移行してるわな。

PHPみたいな低速言語なんか使えるかバーカ

アメリカで韓国産貝類から「うんこ」　販売禁止措置

現在、韓国から日本へ大量の養殖魚類や貝類が輸出されている。当然安いからである。そのため、日本の養殖業者は壊滅的なダメージも受けている。
既に日本でも、韓国産魚介類から、うんこ垂れ流しの海域の養殖場の魚介類から、病原菌や寄生虫が検出され、山形県では寄生虫による食中毒事件も引き起こしている。
奈良の料理人が韓国産ハモは最高の美味であると報道した新聞社も料理人も糞便のことは知っているのであろうか（うんこ喰っているから美味？）。

（ハモは沿岸域の水深100メートルまでの水域に生息する鰻の仲間＝ウナギ目・ハモ科）
米国ではＦＤＡ（食品・医薬品規制局）が、既に韓国産の貝類の生鮮〜缶詰に至るまで、流通業者に対して販売禁止措置を取った。その理由は、
カキ（牡蠣）などを食して、食中毒事件が発生したわけではなかった。
その理由とは、韓国産の貝類から人糞（うんこ）が検出され、ノロウィルスなど人由来の病原菌により、食中毒事件を引き起こす恐れがあるからとの理由であり、
ＦＤＡの通知書にそのように記載（下部に原文あり）されている。販売禁止措置が取られているものは、生ものだけではなく、加工品・缶詰類に至るまで徹底している。それに比べ日本は・・・。

日本では、韓国産貝類が、アメリカではこのような措置が取られようが、関係ないとばかり、何の対策も講じない。ましてや、日本での韓国産養殖ヒラメで食中毒事件が発生しているにも関わらず、
何故韓国産魚介類の輸入制限をしないのだろうか。松下政経塾政権の暖かい韓国への思いやりであろうが、そうした思いやりなど韓国民は屁とも思っていない。そのことは大統領自らの行動と言動で証明させている。
韓国でも次のとおり報道されていた。米食品医薬品局（ＦＤＡ）は２０１２年６月１４日、韓国産のカキ、貝、ムール貝、ホタテなどの貝類が、人糞などに汚染され食中毒を引き起こす恐れがあるとして、
流通業者に販売禁止を通告した。韓国農林水産食品省は、米国に輸出している主な貝類がカキであることから、現場点検などを実施した上で、カキの収穫時期である１０月までに再輸出したい考え。
韓国産貝類の対米輸出量は、今年だけで4,970トンにのぼり、日本、中国に継ぐ主な輸出先とされる。

http://n-seikei.jp/2012/08/post-10636.html

>>798
初心者スレは逆に板違いじゃないかい

板違いじゃないよ。過去に綿々と誘導した歴史がある。
まあ、今誘導しても、マジレスが返ってくるかどうか不明だけど。

今ならスレ立てるまでもない質問スレだろうな
あそこは荒れてないみたいだし

今日は伸びてると思ったらキチガイのレスしかついてなくてワラタ

ム板の掃き溜めだから当たり前。

Perlって何？
美味しいの？

>>869
ケツに突っ込んで奥歯をガチガチ言わせるやつだよ

「文字列中の^の数を数える」方法のまとめ。
795: --------------------
my $string = "ab^cd^efg^";
my @match;
@match = ($string =~ /(\^)/g);
print @match+0 ,"\n";
802: --------------------
use strict;
my $sObj ='A^BCDE1^2ABDE^ABC';
my $iCnt = 0;
map {++$iCnt} ($sObj =~ /\^/g);
print "COUNT: $iCnt\n";
(↑お題に沿うよう手を入れました)
825: --------------------
my $test = '^asdasdf^^^asdfasdfasdf^^asdfasdf^asdfa^a^fasdfasdf^a';
my @count = $test =~ /(\^)/g;
print scalar @count;
832: --------------------
my $count = $str =~ tr/^//;

my $count = $str =~ s/(\Q^\E)/$1/g;


795と825はまあ同じですね。
しかし結構いろいろあるもんだね。

そのまま眠らすんだったらレスるつもりは無かったが
>map {++$iCnt} ($sObj =~ /\^/g);
がダメな理由

perldoc perltyle
>Avoid using "grep()" (or "map()") or `backticks` in a void context,
>that is, when you just throw away their return values. Those
>functions all have return values, so use them. Otherwise use a
>"foreach()" loop or the "system()" function instead.

s/perltyle/perlstyle/

>>871
話を蒸し返すなヴァカ

>>871
use strict入ってる前提かと思ったらわざわざ書いてあるのがある。
つーことは書いてないのは入ってないってことだな。
入ってないコードはゴミ以下だから入れる必要なくね？

>>875
ちょっと落ち着け

で、普通は tr/// 使えばよろし。それがPerl。

>>871
＞map {++$iCnt} ($sObj =~ /\^/g);

何でこれ混ぜた？
まとめる能力ないならしゃしゃり出てくるなよ基地害

それとも初心者を混乱させる新しい遊び？

どっちにしてもまともじゃないわな

＞しかし結構いろいろあるもんだね。












バーカｗｗｗｗｗ
なにが、結構いろいろあるもんだね。だｗｗ
コードの精査もせずに情報価値ゼロの糞コメントｗｗｗｗ
バカは回線切っておとなしくしとけばいいのにｗｗｗｗ

>>872
perlstyle - Perl スタイルガイド 【perldoc.jp】
ttp://perldoc.jp/docs/perl/5.8.0/perlstyle.pod
> grep() (や map())、また `バックティクス` を void コンテキスト、つまり
> 返り値を無視する文で使用しないでください。これらの関数はすべて返り値を
> 持っていますから、それを使用してください。いらないのであれば、
> foreach() ループや system()関数を使用してください。

これは返り値を保持するための計算コストが無駄になるから非推奨、ってことなのかね。
計算コストが無視できる程度の処理量で、1行で簡潔に記述できるからって理由でなら
個人的にはmap()は別に使ってもいいような気もするけど。
あくまで推奨・非推奨であって、強制・禁止、ではないだろうし。

>>875
use strict; は俺はワンライナーの時は使わない。ごく短い処理の時もたまに使わない。

>>879
> コードの精査もせずに情報価値ゼロの糞コメントｗｗｗｗ

じゃコードの精査の担当よろしく。

>>880
お前センス無いなｗ

>>882
kwsk

>>871=人間のクズ

>>883

> grep() (や map())、また `バックティクス` を void コンテキスト、つまり
> 返り値を無視する文で使用しないでください。これらの関数はすべて返り値を
> 持っていますから、それを使用してください。いらないのであれば、
> foreach() ループや system()関数を使用してください。

>>872,880
ちょっと親切で書き込めばコード叩き、ちょっと親切で日本語訳すれば和訳叩き。ほんと揚げ足取り得意だな。
非推奨でも動作しない訳じゃなかったらちょっと使いのスクリプトには十分

>>885
答になっとらん。

>>886
ちなみにその日本語訳は自分でやったんじゃなくて、リンク先のコピペです。
「引用」と言っておくか…。

>>887
使用してはいけない理由が
ちゃんと書いてあるだろｗ

openでコマンドラインPHPのsubstr_countに投げれば一発じゃん
オフセットも指定できるし

>>886
まともなコードじゃないなら叩かれて当たり前。
おかしな日本語は日本語じゃないから叩かれて当たり前。

嫌なら中途半端なもの書き込むなｋｓ。
満足にできもしないものにチャラチャラ手を出すお前みたいな池沼は社会にとって迷惑でしかないんだよ。

>>886
だから>>809で「質問者ならいいが、回答者が書くなよ」
とレスしてる。
自分のコードで使う分には勝手にすればいい。

>>888も日本語訳しらべてきてくれたわけで
＞map {++$iCnt} ($sObj =~ /\^/g);だってググってきてくれたわけで
キチガイはこういう親切な奴標的にするの大好きだからスルー推奨

そろそろ次スレのころ合いだな
この調子で和気あいあいとperlのなんたるかを
みなさんと一緒に語り合って行きましょう
perlの輝かしい未来を作るのは我々なのですから

＞非推奨でも動作しない訳じゃなかったらちょっと使いのスクリプトには十分
とてもプログラムをやってる人間の発言とは思えない

>>889
それをわかった上で使ったところでこの場合は大して問題じゃないと思う、って書いたんだけど。
それのどこがどう「センスない」と言えるのか、って聞いてるんだけど。
ただ「そう書いてあるからとにかく従わなきゃいけない」と思ってるだけなのかな。

はいはい

>>896
もっとふさわしい書き方があるのに、
それをしないから、センスが無いということ

>>896
じゃあ推奨とか非推奨とかいらないなｗ

>>896
適材適所って言う言葉がある。
++$iCnt for $sObj =~ /\^/g;
その為にfor修飾子とか用意してある。

次スレ立てられる人は立てて！
初心者がフルボッコになるのが見たい！
どんなに完璧にスルーしてても目に入ってる時点で心にダメージいってるはずだから見てて楽しい！

>>896
ブログかツイッターでやってろゴミカス

>>896
　　　　　　 ,／　　　`ー-ニ ノ<´ 丿｛
　　　　　／ /　　　　　　　　　￣　 ＾ヽ. 　_
　　　　/ 　１　　　　　　　　　　　　''''''''''"丿
　　　./　　･　　　　　　　／　　‐-..,,　　･
　　 /　　　 ヽ　　　　　／ 　　　　　　 ゛　│
　　亅　　　　＼　　 ／　　　　　　　　　　│
　　|!　　　　　　 　　　　　　　　　　　　　　･
　　１　　　　　　　　　　　　　　　　__..-.....　│
　　│　　　　　　￣゛`ー--一'''''''" 　　　 ヽ･
　　│　　　　　　!　　　　　　　　　　　　 __|丿
　　丿ー 、　　/´ 　 ィニ-‐‐‐‐　　　　　'‐''彳　　　　お前それ大津市でも同じ事言えんの？
　　｛ｌフ‐->　･　　　　 _____　　　　　___--│
　　│･./＾、」　　　　'''レエ゛ゝ　　│宀‐"　!
　　　ゝ−-　''　　　　　　　　　　　|!　　　　|
　　　　ヽ..,,..　　　　　　　　　ｒ　　　゛ｌ1　　 /
　　　　　　　1　　　　　　　 ／r'　　　j亅･
　　　　　　　ヽ　　　　　　　　`ー゛‐‐´　　ノ
　　　　　　 　ヽ.　　　　　 ＿__,,........-‐ ./
　　　　　　／　‐ー 、　　　 ＾￣^´_ノ /
　　　　　　| 　　　　　゛ー....　　　￣ 丿＼
　　　　 　 |　　 　　 　　　` 、__....／　　 |
　　　　　　|　　 　　 　　　　　　　　　　 |
　　　　　　|　　　i 　　　　　　　　i　　　_|
　　　　　　|　　　｀ー――----┴ ⌒´ ）
　　　　　　（ヽ　 ＿＿＿＿＿＿ ,, ＿´）
　　　 　　（_⌒ ＿＿＿＿＿＿ ,, ィ
　　　　　　　丁　　　　　　　　　　 |
　　　　　　　 |　　　　　　　　　　　|

基地害>>896がフルボッコになってるなう

>>900
まあ確かにそっちのコードの方が筋はいいか…。
でもmap()使う方法もあるってのはそんなに無駄な情報でもないと思うけど。
あとは好みでいいんでないのかねえ。

ついでに試しにベンチ取ってみたらmap()もforもほとんど変わらなかった。
返り値処理が無駄になる割にはmap()の方が微妙に速い。1〜4%程度だが。
そのへんはPerlのバージョンにもよるかもだけど。(v5.14.2)

mapの是非以前にこの例ならループで回してインクリメントすること自体無駄
スカラーコンテキストで評価されるwhileならまだ利点あるからわかるけど
mapやfor使うくらいならこっちのほうが効率的
my $count = () = $str =~ /(\^)/g;

もちろん>>832を知ってればこれすら必要ないが

>>905
なるほど好みで非推奨のもの使ったり使わなかったりするんですね



このキチガイはどこから湧いて出たの？

>>905
mapが速いのは意外
foreachと比較するとどんな感じ？

>>908
何で自分でしないの？

>>908
10回くらいベンチ取った感じなんだけどforeachのほうが22〜25%速いね。
思ったより速くてちょっとびっくりしたけど。

>>910
そんな違うのか。さんくす

>>910
うちでもやってみたらどれも1〜2%しか違わなかった。ほぼ誤差の範囲だな。
速度的には今の処理系はかなり最適化されてるってことなのかな。

>>907
> なるほど好みで非推奨のもの使ったり使わなかったりするんですね

アスペルガー的傾向のある人なんかだと
“非推奨”が“禁止”と同じくらいの強い意味を持つのかもしれないね。

最適化っていうか、
どっちも遅い。

C言語などでは不要な
無駄な処理が入っているから
一見速いだろうと思うコードでも
遅くなる

大昔に左辺値捨てる場合の最適化は済んでるよmapは。
いくら>>872で警告しても従わない人がいるから。
（それでいて>>872を外さないって意図を汲んで欲しいと。）

流れ的にmapの解説からfor修飾子まで説明したけど、全面的に>>906に同意。

馬鹿しかいない

>>916
自己紹介どもう有り難うございます

本人たちは真面目に議論してるつもりなんだろうな。

mapは戻り値を使うもんといわれて
そりゃそうだろうなって思わない奴は
センスが無いね。

はいはい

はい は一回でいいよ。

>>919
自己紹介どもう有り難うございます
次はどのようなバカ実話を我々perlerに聞かせてくれるのでしょうか
首を長くして待ってるからsっさとオテメーのバカさ加減をさらけだしちまってください

> からsっさと

餅つけｗ餅つけｗ

センスのあるなし以前に頭のおかしな奴が相当数混ざってる
こんな奴らが日々どこかで何かを開発してるのかと思うと恐ろしい

>>924
自己紹介乙

みんな自己紹介しまくって礼儀正しいな。

それは由緒正しい我々のperlスレだからです

余分なループを除いてベンチ取り直してみた。(不慣れですんません)
perldoc perlstyle の出力chompしてjoin ''して1個の文字列にして、
そこからカンマの個数をカウントしてみた。
map、foreachループ、foreach修飾子はどれも数%の差でほぼ同じ。
>>906のコードはそれらの半分くらいで一番遅かった(でもこのコードちょっと好き)。
trは一番速かった。mapやforeachなどの2.5倍ほど。

なるほど文字数カウントするならtr使うに限るな!!

そりゃ違うんじゃね？
count系統の関数を10や20用意して初めてマットウな言語だと言える
そうでないものはただのマニアのオモチャだよ
奥が深い（と思い込んでいる）人間の積木だよ

>>928
満足したか？
さっさとケツ拭いて寝ろ

>>929
> count系統の関数を10や20用意して初めてマットウな言語だと言える
PHPer乙です

反論できないので
根拠なしの妄想全開でPHP厨だということにしてレッテルを貼ってみました

するとどうでしょう
自分はクズのままでも何となく勝った気分になれるのです

ひとつ確かなことは
PHPとかPHPでなくてもcount系統の関数を10や20用意している言語とかの話は
著しくスレ違いだということです

count系とか文字列系とかそういうのはライブラリにするべきではあるが、
Perlはcpanとかいう質の低い個人作品の集まりが、
一番まともなライブラリ提供の場となってるからなぁ。
公式ライブラリがやっぱり必要だよ。

早くperl6来ないかなぁ〜

記号にいちいち機能割り当てやがってウザい言語だよ

アスペ向け言語だからな

マジキチの棲むスレ。

CPANってまともなライブラリは数える程しかないよな
他は稚拙でバグだらけのゴミ

このスレで自信満々で回答してる池沼レベルの奴が作ってるんだろう

むかしから、おまえのように、批判ばかりしてるやつがおおい

ちゃんと使えるライブラリが数えるほどもあれば
残りの質がどうだろうと全く問題なかったりする

問題はどれがちゃんとしているかわからんってことだ。

今後もちゃんとメンテナンスをしていき
互換性もちゃんと保つモジュールはどれだ？

地獄

>>942
> 問題はどれがちゃんとしているかわからんってことだ。
ググって、大勢使ってるやつを使っとけば大体大丈夫。

> 今後もちゃんとメンテナンスをしていき
> 互換性もちゃんと保つモジュールはどれだ？
互換性のないアップデートが万一あると困るな。
でも質が悪くなくてユーザも多いメジャーなモジュールなら、
そのへんはまあ大概大丈夫だろう。
作者も心得てるだろうから。

>>944
大体・大概ってのが中途半端なんだよ糞が
俺は自分で作れないようなモジュールは仕方なくCPANから仕入れてるけど
できるだけ自作してる

>>945
> できるだけ自作してる
それもありだと思う。
俺も昔結構使えんモジュールを拾っちゃって痛い目にあったりもしたんで、
CPANモジュールは超定番以外はなるべく使わない方針だったけど、
最近はCPANの質も全体的に上がってきてるみたいなので、
なるべく既存のモジュールで使えるやつがないか探してみるようになった。

826は自分ではありません。
８７１のうちまともにカウントできたのは、
my $sObj ='A^BCDE1^2ABDE^ABC';
my $iCnt = 0;
map {++$iCnt} ($sObj =~ /\^/g);
print "COUNT: $iCnt\n";
だけでした。
他は、カウントできません。
そもそもそのぐらいはさんざ試した上で質問しています。
お願いですから、正しい答えだけ書いてくださるようによろしくお願いいたします。

>>947
> ８７１のうちまともにカウントできたのは、
> my $sObj ='A^BCDE1^2ABDE^ABC';
> my $iCnt = 0;
> map {++$iCnt} ($sObj =~ /\^/g);
> print "COUNT: $iCnt\n";
> だけでした。
> 他は、カウントできません。

そんなばかな。どんなコードを書いて試したんだ?

そもそも>>793の
> s/"^"/"^"/g
とか
> s/"\^"/"\^"/g
も、文字列中の ^ を " で括ってる意味がわからん。
今頃言うのもなんだが。

$strに何もいれてないとか

散々叩かれてたコードだけが動作するとか滑稽極まりないな

次スレはよ

うるさいゴミ

釣れたｗｗｗｗｗ

>>950
いやちゃんとどれも動いたよ釣り

はいはい

後釣り宣言w

ゴミの埋立地だな

つられちゃった☆

お前らの頭の悪さにはイライラするわ。

>>953は偽物。

>>948
分からないなら黙ってろ低脳。
お前にきいてない。

さすがム板の肥溜め

早く次スレ立てられる人は立てて！
初心者がフルボッコになるのが見たい！
どんなに完璧にスルーしてても目に入ってる時点で心にダメージいってるはずだから見てて楽しい！

ぼくのなつやすみをかえして

>>950
どうせ自分で動作確認もせずに>>948を鵜呑みにしたんだろ？
お前みたいな奴を基地害って言うんだよ
基地害は書き込むな

>>963
いいから氏ねって。

このキチガイ共はどこから湧いたんだ？

お前の糞穴

>>965
DQN親のマンコから

いい加減ID出るようにしてくれないかな

質問です。
連想配列のキーと値をイコールでつないで、
それをさらにカンマでつなだ文字列として取得したいのですが、
どうしたらいいでしょうか？

"a=b,c=d,e=f"

みたいな文字列が欲しいです。