くだらない質問でもど偉そうに聞いていいスレ

くだらない質問でもど ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

606:nobodyさん
 09/01/03 15:09:45 
直してみたけどうごかない 
 
#!/usr/bin/perl 
 
open(IN, "bufomikuji.txt"); 
while ($xx = <IN>) 
close(IN); 
 
print "Content-type: text/html\n\n"; 
 
if($xx == 777) { 
print "超大吉" 
} 
if($xx > 77) { 
print "大吉" 
} 
if($xx > 0) { 
$xx = 1000 
} 
else { 
    print "小吉"; 
} 
$xx = $xx - 1 
 
open(OUT, "> bafomikuji.txt"); 
print(OUT "$xx"); 
close(OUT);

607:nobodyさん
 09/01/03 15:30:34 
while ($xx=<IN>)  ーーーーー＞ chomp($xx=<IN>); 
 
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ 
 
if ($xx == 777){ print "超大吉"; } 
elsif ($xx > 77){ print "大吉"; } 
else { print "小吉"; } 
$xx++; 
if ($xx < 0){ $xx= 1000; }

608:nobodyさん
 09/01/03 15:34:18 
++じゃないな。。(´･ω･`)

609:nobodyさん
 09/01/03 20:51:33 rMyERx8L
うごきませんorz 
 
#!/usr/bin/perl 
 
open(IN, "./bufomikuji.txt"); 
chomp($xx=<IN>); 
close(IN); 
 
print "Content-type: text/html\n\n";  
 
if ($xx == 777){ print "超大吉"; } 
elsif ($xx > 77){ print "大吉"; } 
else { print "小吉"; } 
$xx--; 
if ($xx < 0){ $xx= 1000; } 
 
print "小吉"; 
open(OUT, "> ./bufomikuji.txt"); 
print(OUT "$xx"); 
close(OUT);

次ページ