七行プログラミング ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
9: ◆hMJAPH9PWA 02/11/01 19:43 何とかも何も、変数の冗長性を残しても3行になったよ。 #!/usr/bin/perl -w $addr=$ENV{REMOTE_ADDR};open L,"+<.log";flock L,2;($c,$ip)=split/:/,<L>; if($addr ne$ip){$c++;seek L,0,0;print L "$c:$addr";truncate L,tell(L);print "Content-Type:text/plain\n\n$c"} 10:nobodyさん 02/11/01 19:53 ワーイ　3行にナッター　有難う。 まだまだperl勉強中の身ですー 11: ◆hMJAPH9PWA 02/11/01 20:47 と思ったらバグがあった。後半の処理全部ifブロックに入れたらダメじゃん。 しかも3行じゃなくて3行ね。 ついでに変数を短く。flockしなけりゃ3行いけるね。 #!/usr/bin/perl -w $a=$ENV{REMOTE_ADDR};open L,"+<l";flock L,2;($c,$i)=split/:/,<L>;if($a ne$i){ $c++;seek L,0,0;print L"$c:$a";truncate L,tell L}print"Content-Type:text/plain \n$c" 12:nobodyさん 02/11/01 21:11 >>11 でも、読みにくいね 13:nobodyさん 02/11/01 21:44 >>12 読みやすさを追求してるわけじゃないんだけどね 趣旨を理解してよ

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5378日前に更新/211 KB
担当:undef