Perlコーディング初心者質問スレ Part 55
おつ
6 :
デフォルトの名無しさん:2007/05/30(水) 13:24:59
なぜここ??
>7
ん?
ここ WebProg じゃないし WebProg にも立ってるし、、、
11 :
デフォルトの名無しさん:2007/05/30(水) 23:48:17
対応してないんじゃねーの?
13 :
デフォルトの名無しさん:2007/05/31(木) 11:16:48
14 :
デフォルトの名無しさん:2007/05/31(木) 19:54:15
>>13 >何が原因になってるかお分りになる方教えてください。←これ読める?
>何が原因になってるかお分りになる方教えてください。←これ読める?←これ読めない。
ファイルを1行づつ読み込み、ある文字列と配列の要素の二つが含まれている行をカウントするには
どうしたらいいのでしょうか。
foreach $tes (@array){
open (IN,"<$file_name") || &error('error!!!');
while($_ = <IN>){
if(/DOWN/){
if(/$tes/){
$cou1++;
}
}
if(/UP/){
if(/$tes/){
$cou2++;
}
}
}
}
インデントがずれて、見難くてすみません。もっとスマートにできると思うのですが、
なかなか出来ません。
foreach $tes (@array){
open (IN,"<$file_name") || &error('error!!!');
while($_ = <IN>){
if(/DOWN/){
if(/$tes/){
$cou1++;
}
}
if(/UP/){
if(/$tes/){
$cou2++;
}
}
}
}
どう考えてもループの順番おかしいだろ
open (IN, "<", $file_name) || &error('error!!!');
while(<IN>) {
for my $tes (@array){
if(/$tes/) {
$cou1++ if /DOWN/;
$cou2++ if /UP/;
}
}
}
close IN;
レスありがとうございます。
こんなにスマートになるものなんですね。お手数おかけしました。
21 :
デフォルトの名無しさん:2007/06/01(金) 07:52:05
削除依頼されてから考えるので、神経質に書き込むのは止めましょう
24 :
デフォルトの名無しさん:2007/06/01(金) 20:47:07
削除されてからでいいんじゃね?
削除されてないってことは、削除する必要がないって事
必死に妨害してる意味がわからん
この世の中には他人を仕切ることでしか幸福を得られない人種もいるんです。
そっとしておいてあげてください。
まあ、削除要請済みのスレを必死に維持しようとする24の痛さも
しつこい誘導する痛さもどっちも変らん。
ご丁寧に横レスした22=俺が一番痛い。
>削除されてからでいいんじゃね?
削除されてから何をどうするんだオマエは。「削除されたあと誘導
する」なんて意味か?エスパーかいw
削除されるまで使えばいいじゃないか。
つか、本スレがあるのに、何に使うというのかサッパリ分からん。
Perlの質問とその回答?
間抜けだよな。
むしろスレタイを低脳専用に変えて
低脳専用質疑応答スレとして運用すべき
たぶんWebProg板へのスレ立て誤爆だから。
何を今更
そもそも Perl って CGI 向けの言語では無いんだがなぁ
テキスト処理にそこそこ強い言語ってだけで
本スレで暴れてるアホをこのスレに隔離できないものか…。
それともこのスレの11が向うで暴れてるのか…。
このスレはスレタイを
「Perl全般初心者様&低脳様専用隔離スレ」
として再運用すべき
粘着くん本スレでさらに頑張ってるな。
マジでム板にもID制の導入して欲しいな…
特にあぼーんしやすくなると言う意味で
ImageMagicくんに煽られて切れちゃってるような人も居るからもう手遅れかもw