Perlのwhile文について教えてください。
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNG今日からPerlを勉強しているのですがわからないところがあるのでおしえてください。
$n=2;
while($n <= 100){
$div=2;
$prime=1;
#---------------------------------------------
while($div <= ($n/2)){
if(($n % $div) == 0){
$prime = 0;
Last;
}
++$div;
#--------------------------------
}
if($prime){
print "$n\n";
}
++$n;
}
$div; は#---のスコープ内だけが有効なのですか？
$n が３にカウントされると $divもスコープの下の$div++で＋１されると考えたらよろしいのでしょうか？
ぜひ、教えてください。
0002デフォルトの名無しさん
NGNG犯人はお前か？！＞１
0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNG0005デフォルトの名無しさん
NGNGuse strict;しない限り変数の有効無効もないわｳﾞｫｹ
http://pc.2ch.net/test/read.cgi/tech/1010673275/l50
0006デフォルトの名無しさん
NGNG単発質問スレ立てないでください。
perl スレに逝ってください。
http://pc.2ch.net/test/read.cgi/tech/991994996/l50
0007デフォルトの名無しさん
NGNG0008デフォルトの名無しさん
NGNG0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNGんなこというとまたスレを立てられるじゃないか。
やめてくれ。
>>1
質問しなおすならこのスレに書いてくれ
CGIに依存しないPerlの話題一般
http://pc.2ch.net/test/read.cgi/php/991313362/
001110
NGNGPerlは結構使えるっぽいけどどうよ？
http://pc.2ch.net/test/read.cgi/tech/991994996/
ということで終了
0012デフォルトの名無しさん
NGNG0013デフォルトの名無しさん
NGNG誰か教えてください！！ちなみに問2−4（問題1ページ目）
の（ｃ）と（ｄ）はこう書かれています！！
（ｃ）if /\. \. ./ （ｄ）if /[a-zA-Z]+\$/
★問題1ページ目
http://isweb40.infoseek.co.jp/photo/moheaven/perl_1.jpg
★問題2ページ目
http://isweb40.infoseek.co.jp/photo/moheaven/perl_2.jpg
では宜しくお願いします！！明日の夕方5時頃までにお願いします！！
0014デフォルトの名無しさん
NGNGヴァカ？
0015デフォルトの名無しさん
NGNGファイルの拡張子はjpgだけど、種類はbmp。
面倒なのでみていないが、どでかいbitmapか？
0016デフォルトの名無しさん
NGNGperl_1.jpg: PC bitmap data, Windows 3.x format, 1099 x 1506 x 1
perl_2.jpg: PC bitmap data, Windows 3.x format, 1099 x 1506 x 1
問題まるごとスキャン(藁。
■ このスレッドは過去ログ倉庫に格納されています