| 私の事は教えて君だと・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ だから言ってないでしょ！！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
.＿＿＿＿＿＿＿＿＿
| |
| 本筋はこちら ｜
|＿＿＿＿＿＿＿＿＿|
∧,,∧ ||
⊂ミ.,,ﾟДﾟ彡つ ｲﾏｲﾁｶ...
http://piza.2ch.net/test/read.cgi?bbs=mona&key=991615070
WebProg板にも来たか
＼＿＿＿＿＿＿ ＿＿＿＿＿＿＿＿＿＿
|/
＿＿＿＿ ∧ ∧
＼SOTEC＼ (ﾟДﾟ ) ∩゛
｛========｛⊂、 ∩~⌒つ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
どこから入って来たんですか？
＼＿＿＿＿＿＿ ＿＿＿＿＿＿＿＿＿＿
|/
＿＿＿＿ ∧ ∧ ∧＿∧ ／￣￣￣￣￣
＼SOTEC＼ (；ﾟДﾟ) ∩゛ （・∀・ ）＜ 一つくらいマターリAAスレがあってもいいよね
｛========｛∩、 ∩~⌒つ （ ） ＼＿＿＿＿＿
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
;"; | ほう、ＡｉｒＨ”でﾓﾊﾞｲﾙですか。
:ヾゞ＼＿＿＿__ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
::､ヾ:':'ヾ､､ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
､;;;|;;l;;::|!iii|;;;ノ"""" ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|;;l;;::|!iii| ∧＿∧ ∧ ∧ ＿＿＿ ＜ 早く使い放題コース出て欲しいぞ
|;;l;;::|!iii|＿（ ・∀）＿__(；ﾟДﾟ)//SOTEC/ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|;;l;;::|!iii| （ つ へ､つ （ つ;;;｝=======｝
|;;l;;::||iii| 乂__ （＿）＿乂 _) )￣
|;;|;l;::i|ii|￣￣￣（＿） Ｕ￣Ｕ￣|￣
､从ｗ;ｊｊｊf从ｊｗｗｊｗｊｊｒｊ从ｗｊｗ从ｊｒｊ从ｊffｊｊｒｊj从WWjj从ｊｒｊ从ｊffｊｊｒｊ从Wjj从ｊｒ
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
;"; | ほう、ＳＰＡＭを送りつけるスクリプトですか？
:ヾゞ＼＿＿＿__ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
::､ヾ:':'ヾ､､ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
､;;;|;;l;;::|!iii|;;;ノ"""" ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|;;l;;::|!iii| ∧＿∧ ∧ ∧ ＿＿＿ ＜ そんなもん作ってねーぞｺﾞﾙｧ!!
|;;l;;::|!iii|＿（ ・∀）＿__(；ﾟДﾟ)//SOTEC/ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|;;l;;::|!iii| （ つ へ､つ （ つ;;;｝=======｝
|;;l;;::||iii| 乂__ （＿）＿乂 _) )￣
|;;|;l;::i|ii|￣￣￣（＿） Ｕ￣Ｕ￣|￣
､从ｗ;ｊｊｊf从ｊｗｗｊｗｊｊｒｊ从ｗｊｗ从ｊｒｊ从ｊffｊｊｒｊj从WWjj从ｊｒｊ从ｊffｊｊｒｊ从Wjj从ｊｒ
| ソースリストの「KISS！」を見てスケベな奴が書いてるなーと思ってたと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ Keep it simple, stupid. （短くしとけよ）の略だなんて知らなかったぞ・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼|Libretto|＼
￣ ======= ＼
| 今時Ｐｅｒｌですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ ほっといてくださいよ！！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
| Perl,Rubyと来れば・・・＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 当然次はPeridot（ペリドット）？ ﾀﾌﾞﾝ、ﾊｹﾞｼｸｶﾞｲｼｭﾂ･･･
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
∧ ∧ ＜ 掲示板の作り方っと･･･ﾌﾟﾊｰ
(,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、スレ式の掲示板作成ですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ﾅﾝﾃﾞｽｶｱﾅﾀﾊ･･･ﾌﾟﾊｰ
（つ 目 ） (ﾟДﾟ；)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| しかもＰｏｓｔｇｒｅＳＱＬでサクサク感を出したいと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ｲｯﾃﾅｲﾁﾞｬﾅｲﾃﾞｽｶ･･･ﾌﾟﾊｰ
（つ 目 ） (ﾟДﾟ；)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ＸＭＬ使ってｉモードなんかってよしだと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ﾀﾞｶﾗｲｯﾃﾅｲﾃﾞｼｮ･･･ﾌﾟﾊｰ
（つ 目 ） (ﾟДﾟ；)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
;"; | use strictを使っていない私はってよしだと？
:ヾゞ＼＿＿＿__ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
::､ヾ:':'ヾ､､ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
､;;;|;;l;;::|!iii|;;;ノ"""" ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|;;l;;::|!iii| ∧＿∧ ∧ ∧ ＿＿＿ ＜ そりゃあんたの自由だｺﾞﾙｧ!!
|;;l;;::|!iii|＿（ ・∀）＿__(；ﾟДﾟ)//SOTEC/ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|;;l;;::|!iii| （ つ へ､つ （ つ;;;｝=======｝
|;;l;;::||iii| 乂__ （＿）＿乂 _) )￣
|;;|;l;::i|ii|￣￣￣（＿） Ｕ￣Ｕ￣|￣
､从ｗ;ｊｊｊf从ｊｗｗｊｗｊｊｒｊ从ｗｊｗ从ｊｒｊ从ｊffｊｊｒｊj从WWjj从ｊｒｊ从ｊffｊｊｒｊ从Wjj从ｊｒ
（ ） ∧ ∧ ＜ print <<"EOD"; っと
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、ヒアドキュメント使って上級者のつもりですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ な、なんですか？あなた・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 僕は出来るPerl Hackerだとっているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ってないですよ・・・ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| print()を散りばめる私の事は「厨房ってよし！」だと・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ だからってないでしょ！！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
（ ） ∧ ∧ ＜ Perl5.8はいつ頃出るんだろう…と
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、Perl6ではなく敢えて5.8ですか
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ な、なんですか？あなた・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 僕はPerl6なんて興味ないとっているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ってないですよ・・・ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| Perl6が楽しみでしょうがない私を「厨房ってよし！」だと…
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ だからってないでしょ！！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
| 単なるＣプログラマの私にはここのネタは高度でよく分からない、と
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ このスレは寂しいぞぅ。ZZZzzz......
（ ⊃ ） (-＿-) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
;"; | 素直に use cgi.pm; って書いちゃえよ、うざいよそのスクリプト
:ヾゞ＼＿＿＿__ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
::､ヾ:':'ヾ､､ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
､;;;|;;l;;::|!iii|;;;ノ"""" ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|;;l;;::|!iii| ∧＿∧ ∧ ∧ ＿＿＿ ＜ なんだよcgi.pmってｺﾞﾙｧ!!
|;;l;;::|!iii|＿（ ・∀）＿__(；ﾟДﾟ)//SOTEC/ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|;;l;;::|!iii| （ つ へ､つ （ つ;;;｝=======｝
|;;l;;::||iii| 乂__ （＿）＿乂 _) )￣
|;;|;l;::i|ii|￣￣￣（＿） Ｕ￣Ｕ￣|￣
､从ｗ;ｊｊｊf从ｊｗｗｊｗｊｊｒｊ从ｗｊｗ从ｊｒｊ从ｊffｊｊｒｊj从WWjj从ｊｒｊ从ｊffｊｊｒｊ从Wjj从ｊｒ
（ ） ∧ ∧ ＜ Java 2ch APIか…ここも一応技術版なんだよなー
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、Perlで2chブラウザでも作るつもりですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ い、いや使い物にはならないと思うがな…
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 技術板なのに2chブラウザが無くて寂しいと言っているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ まぁ…ｽｺｼﾅ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
======= ＼
ｵﾁﾅｼ
Perlでブラウザって作れるんですか？（厨房質問ｽﾏｿ ﾃﾞﾓ知りたいの）
どこかにサンプル無いですか？
perlだからブラウザ作れないって事はないと思うぞ。
ウインドウベースにするとめんどくさそうだが・・・・
作ってみようかなー。
http://fsinfo.cs.uni-sb.de/~abe/wApua/
目から鱗がボロボロと出てきました。
作ってみてくださいよ〜
>>17
ありがとうございます。これカッコイイかも…
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
;"; | Ｐｅｒｌでもブラウザ作れるんですって
:ヾゞ＼＿＿＿__ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
::､ヾ:':'ヾ､､ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
､;;;|;;l;;::|!iii|;;;ノ"""" ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|;;l;;::|!iii| ∧＿∧ ∧ ∧ ＿＿＿ ＜ >>17すげえぞｺﾞﾙｧ!!
|;;l;;::|!iii|＿（ ・∀）＿__(；ﾟДﾟ)//SOTEC/ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|;;l;;::|!iii| （ つ へ､つ （ つ;;;｝=======｝
|;;l;;::||iii| 乂__ （＿）＿乂 _) )￣
|;;|;l;::i|ii|￣￣￣（＿） Ｕ￣Ｕ￣|￣
､从ｗ;ｊｊｊf从ｊｗｗｊｗｊｊｒｊ从ｗｊｗ从ｊｒｊ从ｊffｊｊｒｊj从WWjj从ｊｒｊ从ｊffｊｊｒｊ从Wjj从ｊｒ
そのページの下にあるスクリプトが最高。
% perl
$$=42;$_=qq 93233313242132627322017304228173024422013152317309;while(!!$_){$:=
$|++;s$[1-4][0-8]$$e;$==$&;$\=pack c,$;=$|.$:;$=+=$=!=$$?$$:-$=-$;;$,=$=+$$;$@
.=pack c,$!!=$$-$;?!!$!!=$:?$=+$$:$,-$$:$,^$|<<chr$;+$|+$$;$!=$,;$|=$:}print$@
Just Another Perl Hacker
ｶｺｲｲﾅ…
Perlを侮っていた…
むむ。
使ってみたいですがActevPerlだとうまくいかないっぽいです…無念。
# まずmakeは失敗
# binでperl -Mlib=../ wApuaでも動かず…
しかしこれならPerlによる2chブラウザも夢ではないような…(笑)
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
;"; | すっかりブラウザ作るスレになってしまいましたね
:ヾゞ＼＿＿＿__ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
::､ヾ:':'ヾ､､ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
､;;;|;;l;;::|!iii|;;;ノ"""" ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|;;l;;::|!iii| ∧＿∧ ∧ ∧ ＿＿＿ ＜ 掲示板一つつくれねえ折れはってよしだな
|;;l;;::|!iii|＿（ ・∀）＿__(；ﾟДﾟ)//SOTEC/ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|;;l;;::|!iii| （ つ へ､つ （ つ;;;｝=======｝
|;;l;;::||iii| 乂__ （＿）＿乂 _) )￣
|;;|;l;::i|ii|￣￣￣（＿） Ｕ￣Ｕ￣|￣
､从ｗ;ｊｊｊf从ｊｗｗｊｗｊｊｒｊ从ｗｊｗ从ｊｒｊ从ｊffｊｊｒｊj从WWjj从ｊｒｊ从ｊffｊｊｒｊ从Wjj从ｊｒ
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ） ∧ ∧ ＜ http://members.jcom.home.ne.jp/monazilla/ っと
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、Monazilla.org(w ですか
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ な、なんですか？あなた・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 先人が開発した技術をパクろうというわけだ。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ コードの再利用と言ってくださいよ…ｼｬﾘﾝﾉｻｲﾊﾂﾒｲﾊﾑﾀﾞﾀﾞｼ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 文字レスをする>>15-18>>20-24は「流れを読めない奴ってよし！」だと…
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 全然関係ないでしょ！！ ｲﾁﾘｱﾙｹﾄﾞﾅ. ｺﾞﾙｧ
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
∧ ∧ ＜ ♪
(,,・∀・) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ
>>23
エラーメッセージが分からないので何とも言えないが、
恐らくWindows版Tkの不具合が原因だろう。
wApua/Config.pm の70行目
$CONFIG{NoKPKeySyms} = 0;
の0を1に変更する。
#2chブラウザは作ってみたいが、いかんせんTixGridウィジェットが重たすぎる.......。
# Gtk-Perl振興のためにGTK+で....と行きたいが最近忙しいし......。
ちなみに、かちゅーしゃライクなポップアップは$TextWidget->tagBind()で簡単に実装できるよ。
Listbox並べればｲｲだけか。
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ） ∧ ∧ ＜ ナルホド>>27の方法で動きました。ども
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
（ ） ∧ ∧ ＜ なるほどね っと
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| あなた本当にわかってますか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ な、なんですか？あなた・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| わかんなくても動けばいいというわけだ。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ｲｯﾃﾅｲｼﾞｬﾅｲﾃﾞｽｶ･･･ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 何のこと言ってるかわかんない私はって良しだと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ だからってないでしょ！ｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
| なにが分からないのかも分からない私が一番怖い、と。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 頼むからその状態でサポートに電話してこないでくれ！ｺﾞﾙｧ・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
| 本家の内容についていけなくなってここに流れてきたのに
| ここも高度なのでついていけなくて困ってる、と。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ だからってないでしょ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
| あなた、よく分かってないのに書き込んでいいんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 楽しいからいいのだ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
>ちなみに、かちゅーしゃライクなポップアップは$TextWidget->tagBind()で簡単に実装できるよ。
もっと詳しく教えて_gunzipたん
一例だよ。
---------------------------------------
#!/usr/bin/perl -w
use Tk;
use strict;
our $mw = MainWindow->new();
our $text = $mw->Scrolled('Text', -scrollbars => 'e')->pack(-expand => 'yes', -fill => 'both');
our $pop_message = $text->Message(
-background => 'white',
-relief => 'raised',
-foreground => 'blue',
-text => "the straight-line distance as the crow flies.\n(Euclid: fl 370 B.CE)"
);
#make 'desc' tag
$text->tagConfigure('desc', -foreground => 'blue');
$text->tagBind('desc', '<Enter>', [\&popup, Ev('x'), Ev('y')]);
$text->tagBind('desc', '<Leave>', sub { $pop_message->placeForget() } );
$text->insert('end',"There are many ways to define the distance between two points. the most intuitive and common definition is ");
$text->insert('end', "Eucidean distance", 'desc');
MainLoop;
sub popup{
my($x, $y) = @_[1,2];
$pop_message->place(-x => $x, -y => $y);
}
---------------------------------------
∧ ∧ ＜ ずれた♪
(,,・∀・) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ
| あなたも>>32と同じく本家流れだと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ こっちの方が(･∀･)ｲｲ！！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
宣伝掲示板、その名もおりーぶおじさんの
超共有宣伝掲示板を設置しました。是非み
なさん、共有してください。先着50名様だ
けバナーリンクします。26番目の掲示板と
して設置してますので、そこをクリックして
参加の方法を見て早くご参加くださいませ。
おりーぶおじさんのホームページ
http://home9.highway.ne.jp/cym10262/
| ついに>>38のようなｱﾌｫが出てきてしまったと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ ってよしだｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
なるほどーサンクスｖ
Perl/Tkって面白いな♪
| ほほお、最近になってかちゅ〜しゃの機能を覚えたと・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 38 名前：あぼ〜ん 投稿日：あぼ〜ん
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| ＶＡＩＯ |＼
￣ ======= ＼
（ ） ∧ ∧ ＜ http://xbbs21.virtualave.net/xbbs/up/src/up031.lzh っと・・・
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、Perl/Tkで2chブラウザですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ い、いや使い物にはならないんだが、>>18がな・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 僕はできるPerl Hackerだとっているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ってないですよ・・・ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 2chブラウザを作れない私を「厨房ってよし！」だと…
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ だからってないでしょ！！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
はぢめてのAAこぴぺなので崩れてるかも。
っつーかまだ全然ダメダメ・・・・
| >>42にレスですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 初体験おめでとうｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
（ ） ∧ ∧ ＜ ありがとうございます、っと・・・
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、>>43にレスですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 反応がなくてさみしかったんだよｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
http://xbbs21.virtualave.net/xbbs/up/src/up033.lzh
いちお、全板読み込み可に。
とりあえず使ってみた感想…
を書こうとしたら031の方はメニューは大丈夫なんだけど下の部分が文字化け。（うちの設定が悪いんかな？）
033の方はなんかWidget.pmとAfter.pmがbad anchor positionだと怒られる…
んー厨房ですまんです。。
うちだと動いてるけど。
Tkが4.x系統だったりしないよねぇ？
っつーか誰も反応ないから破棄しようかと思ってたんだが（ｗ
これからLinuxにもTk入れてみるか・・・・
| >>47にレスですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 地味にリンク貼ってあったから気づかんかった（わら
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼ ｱｼﾀﾀﾒｼﾃﾐﾙｰﾖ
￣ ======= ＼
そりゃともかく、うちでは31も33もちゃんと動いたぞ。
Linuxだとすごい勢いで文字化けしてた風だけど、半角カナのせいみたい。
どうしたらいいんだろ・・・・
文字がずれるのはモナーフォントとか入れてもらうとして。
>>45
とりあえず $textfont = ... と $menufont = をいじってみてー。
>>48
そんなにリンク地味だった？（ｗ
| 動きましたか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 会社のＰＣにＰｅｒｌもＴｋも入れてなかった気づかんかった（わら
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
| 動きましたか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ ＷｉｎのＰＣにＰｅｒｌとＴｋの入れ方がわからん（わら
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
ここでActivePerl 5.6.1.626を落としてインストール。
その後、コマンドラインで
C>ppm[Enter]
ppm> search Tk[Enter]
ppm> install Tk[Enter]
でOK。
| Ｔｋいれましたか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 今度はどうやって起動させるかわからん（わら
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼ ﾁｭｳﾎﾞｳﾃﾞｽﾏｿ
| 起動ってひょっとしてperl tkz.plと入力するだけだと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ パスきってないならディレクトリまで移動しろよ
（ ⊃ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| SOTEC|＼
￣ ======= ＼
| ちゃんと見えてますね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ すげー
（ ⊃ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| SOTEC|＼
￣ ======= ＼
| おや？１６さんのﾌﾞﾗｳｻﾞ起動ですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ﾋｻﾋﾞｻﾉW2Kﾀﾞﾖ･･･ﾌﾟﾊｰ
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 画面真っ黒のままですが？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ｺﾏﾝﾄﾞ窓ﾈ・・・ｱﾚ?ﾌｧｲﾙｲﾁﾗﾝｶﾞﾃﾞﾅｲｿﾞ?
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| （ｌｓってなんだ？）･･･
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ （ｄｉｒだったっけ？）･･･ﾌﾟﾊｰ
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| そのくらいのｺﾏﾝﾄﾞも知らないんじゃ君クビね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（∀・ ；） |＼|＼ ＜ 黒い画面みると反射的に・・・
（ ） (； ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣⊂＿ ＼丿＿
￣￣￣日∇￣＼| SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| cygwin 入れれば？ http://sources.redhat.com/cygwin/
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ もう DOS コマンドはさよならだ！
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
| cygwinもいいけどSOSとPPT(Perl Power Tools)の組み合わせもかなりいい感じだよ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ はて、話題に上がったのはどのスレだったかな…
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
| おや、あなたも１６さんのﾌﾞﾗｳｻﾞを？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ Perl/Tk面白そうだね･･･
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ･･･ﾌﾟﾊｰ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ ･･･ﾌﾟﾊｰ
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 納期近いんだから仕事優先ね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（∀・ ；） |＼|＼ ＜ これからはやっぱりGUIｲﾝﾀｰﾌｪｰｽの方が･･･
（ ） (； ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣⊂＿ ＼丿＿
￣￣￣日∇￣＼| SOTEC|＼
￣ ======= ＼
| ほう、Perlで2chブラウザですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 凄いぞｺﾞﾙｧ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
| ほう、いじってたら直ったんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ いい感じですです
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ひろゆきも来ただと･･･
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ なんでsageなんだｺﾞﾙｧ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| VAIO |＼
￣ ======= ＼
| 文字化けしてますね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ フォントサイズを10から変えたら直ったぞ！
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| かちゅ〜しゃより早い気がしますね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 本体が5KBに収まってるのが驚異的だぞｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| VAIO |＼
￣ ======= ＼
（ ） ∧ ∧ ＜ かちゅ〜しゃ風のポップアップできたぞ、っと・・・
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、_gunzipさんのパクリですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ それを言ったらおしまいだろｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
http://xbbs21.virtualave.net/xbbs/up/src/up039.lzh
>>56
俺もよくこんなことやってるような気がする・・・・
>>62
とりあえずフォントサイズを11にした。
あと、ファイルサイズは軽く6k超えちゃいました（ｗ
| おや、あなたも１６さんのﾌﾞﾗｳｻﾞを？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ 噂になってるから気になって･･･
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| （ミーハー？）･･･ﾌﾟﾊｰ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ （見えるぞ！）･･･ﾌﾟﾊｰ
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼ ｵﾚﾓTkﾔｯﾃﾐﾙｶ
| ポップアップが文字化けしてますね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ フォントサイズを8から9に変えたら直ったぞ！
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| "ＭＳ UIゴシック"が効いてませんね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 確か"MS UI Gothic"だった気がするぞ
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| Windowsの標準設定ぐらい適用して欲しいですね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ Win32APIに依存するのは嫌すぎだｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| VAIO |＼
￣ ======= ＼
開発頑張ってください。
しかし、なんでサイズ変えると化けたり直ったりするんだろ？
| http://aspn.activestate.com/ASPN/Downloads/ActivePerl/
| ここでActivePerl 5.6.1.626を落としてインストール。
| その後、コマンドラインで
| C>ppm[Enter]
| ppm> search Tk[Enter]
| ppm> install Tk[Enter]
|
| ここまでうまくいったのだが、tkz.pl を展開したディレクトリで
|
| D:\tkz>perl tkz.pl
| Can't locate Tk.pm in @INC (@INC contains: D:/Perl/lib D:/Perl/site/lib .) at tkz.pl line 9.
| BEGIN failed--compilation aborted at tkz.pl line 9.
|
| と出て失敗する、と。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 参加したいのに動かないよぉ・・・。Win2000です。
（ ⊃ ） (,TДT) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| SOTEC|＼
￣ ======= ＼
| >>66 PerlはDドライブに入れた？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ Cに入れたならCでやれ！
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|CONPAQ|＼
￣ ======= ＼
∧∧ ﾎﾞｿ…
/⌒ヽ）；
〜（＿__）
書込みもしたいな･･･
| ほう、タブがついたんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ とりあえず、かちゅ〜しゃライクに・・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| なんでもかちゅ〜しゃの真似をすればいいとっているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ってないですよ・・・ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
ほい。
http://xbbs21.virtualave.net/xbbs/up/src/up042.lzh
>>66
実はきちんとインストールが完了していないんでは？
perl -MTk -e "print $Tk::VERSION" してみよう。
>>69
んじゃ次の目標は書き込みってことで。
∧ ∧ ＜ 最大化すると板メニューの幅が増えてウザいね
(,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|.LibL1.|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ 日本語の真中にフォーカスすると化けるな
(,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|.LibL1.|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ 欲を言えば項目を選びやすくして欲し。。。
(,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|.LibL1.|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、くだらない苦情を書き殴ってフィードバックのつもりですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ な、なんですか？あなた・・・
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| LibL1. |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 僕は出来るPerl Hackerだとっているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ってないですよ・・・ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| LibL1. |＼
￣ ======= ＼
| おや、１６さん開発ペースが上がってますね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ 書き込みできようになったら起動BATつくろっと･･･
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ いつの間にか、凄いものが出来上がりつつあるな・・・
(,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、今頃気づいたのですか。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ﾅﾝﾃﾞｽｶｱﾅﾀﾊ･･･ｼﾊﾞﾗｸﾐﾃﾅｶｯﾀﾝﾃﾞｽﾖ
（つ 目 ） (ﾟДﾟ；)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| また何か協力できることがあったらって欲しいと・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ﾀﾞｶﾗｲｯﾃﾅｲﾃﾞｼｮ･･･ﾌﾟﾊｰ
（つ 目 ） (ﾟДﾟ；)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ところで、「最大化すると板メニューの幅が増えてウザい」という苦情が・・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ Adjusterウイジェットを使うのだ
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼| NEC |＼
￣ ======= ＼
43d42
< use Tk::Adjuster;
59d57
< our $adjuster = $center->Adjuster();
67a66
>
102,103c101
< $adjuster->packAfter($left,-side => 'right');
< $adjuster->packAfter($right,-side => 'right');
---
>
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 「日本語の真中にフォーカスすると化ける」 らしいんだけど・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ Perl/Tk の日本語化パッチを当てるべし
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
http://mirror.nucba.ac.jp/users/tsutomu/perltk/jp-patch.html
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 「項目を選びやすく」 ・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ROTextではなくListBoxウイジェットを利用しては・・・
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
| Adjusterウイジェットを使うのだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ Adjusterってなんだ？ とりあえず98行目くらいを
（ ） (；ﾟДﾟ) ＼ $list->pack(-side => 'left', -fill => 'y', -expand =>'no');
￣￣￣￣￣ （つ＿つ＿＿ ＼ ってやるとうまくいく風。
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 「おや、１６さん開発ペースが上がってますね」とか言われてますが
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 今日明日は飲み会で更新できないが・・・・
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
ってことで書き込みの実装はもうちっと待ってほしいかも。（ほとんどできてるけど）
ここのCGIに流し込むのって、URIエスケープみたいなことしてPOSTに流すのかな？
SJISの生データを流し込んでいいんかいな？？
まぁ、目標は日曜日中ってことで。
_gunzipたんの協力があるとおもうとうれしー。
| ほう、Adjusterを他のところにもつけようと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ いまいち使い方がわからなくて挫折しそうだがな。
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| で、それで書き込みの部分がつくれなかったと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ いや、そういうわけではないんだが・・・・・
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
| 何気に見たらﾌﾞﾗｳｻﾞ製作ｽﾚ･･･
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ 名ｽﾚの予感･･･ﾌﾟﾊｰ
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
| まだ書き込みできないのかね？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（∀・ ；） |＼|＼ ＜ なんでこれでおかしいのか教えてくださいよー。
（ ） (； ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣⊂＿ ＼丿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
うう・・・なんで書き込みできないのかほんとにわからん。
#!/usr/local/bin/perl
use LWP::UserAgent;
use strict;
my $server = "corn.2ch.net";
my $dir = "php";
my $key = "982688337";
my $name = "test";
my $mail = "sage";
my $text = "test kakiko";
my $ret = write_res($server, $dir, $name, $mail, $text);
print $ret;
sub write_res{
my ($server, $dir, $key, $name, $mail, $text) = @_;
$mail =~ s/(\W)/'%'. unpack('H2', $1)/eg;
$name =~ s/(\W)/'%'. unpack('H2', $1)/eg;
$text =~ s/(\W)/'%'. unpack('H2', $1)/eg;
my $url = "http://$server/test/bbs.cgi";
my $contents = "bbs=$dir&FROM=$name&mail=$mail&MESSAGE=$text&key=$key&time=".time;
return post($url, $contents);
}
sub post{
my $targeturl = shift;
my $content = shift;
my @header = @_;
my $hdrs = new HTTP::Headers(Accept => '*/*', @header);
my $url = new URI::URL($targeturl);
my $ua = new LWP::UserAgent;
$ua->agent("Monazilla/1.0 (compatible; writetest.pl; $^O)");
my $req = new HTTP::Request('POST', $url, $hdrs, $content);
my $resp = $ua->request($req);
if ($resp->is_success){
return $resp->content;
}
}
| >>79
| http://teri.2ch.net/test/read.cgi?bbs=accuse&key=993974693&ls=100
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧
(,,ﾟДﾟ)y━~~
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|.LibL1.|＼
￣ ======= ＼
| write_res()への引数のミスは愛嬌としても…
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ それでも書けないことに違いは無いな。
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
Refererやcookieを設定しないとダメらしいですね。
http://members.jcom.home.ne.jp/monazilla/
#Cookieの送信の仕方がわからない…
| 不可視・浮上不可実験(10000) http://corn.2ch.net/test/read.cgi?bbs=php&key=982688337
| なんてところに書き込んでるんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ sageとけばなにしても問題ないだろそのスレは。ｹｻﾚﾃﾓｲｲｼ・・・
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
write_res()への引数はお恥ずかしい。
post($url, $contents,
Cookie => "$name; $mail", Referer => "http://$server/$dir/index2.html");
で問題なさそう。
（ ） ∧ ∧ ＜ とりあえずテスト書き込み、っと・・・・
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、ついに書き込みができるようになったんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ これがちゃんと書けたらアップロードするぞ
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ついにかけるようになったんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ http://xbbs21.virtualave.net/xbbs/up/src/up052.lzh だぞ
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
えーと、アップした後気づいた。
340行目くらいからのprint連打うざいから削って使ってください。
| ほう、Cookie => "NAME=$name; MAIL=$mail" のほうがよくないかと?
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 実際はあるかないかくらいしか見てなさそうですけど
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 僕は出来るPerl Hackerだとっているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ってないですよ・・・ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
| ほう、あなたも書き込みテストですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ｶｺｲｲｰ!
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 更にログを保存するようになれば完璧だと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ かちゅーしゃ互換で出来ないものかな…
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| それならあなたが書いたらどうですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ Perl/Tkのアプリなんて作ったこと無いんだよｺﾞﾙｧ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
| 書き込めるんかな？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ 大変な作業だったろうに・・・
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
ＡＡ書き忘れるくらいすげーーーー
Ｃやろうと思ってたけどこりゃＰｅｒｌ／Ｔｋの方が面白そうだ（わら
(,,・∀・)
〜（＿__ﾉ
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ お疲れさま〜 自分も何かお手伝いしましょうか？
(,,・∀・) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ
# 「〜な機能があるといいけれど、実装するのが面倒くさい」 とかありましたら
# 出来る範囲で資料集め+コード書きますよい。
例：
* ログの保存 && 前回読んだ位置を記憶して、次回からはそこへ移動する機能
* 最新の***件表示
* 左のメニューを折り畳みツリーにしたい。（例えば）
* 行頭のタブを＆nbsp;に変換するチェックボックスを書込ウインドウに付ける。
* ボード一覧の更新 && マージ
* ほかいろいろ
| 何か手伝おうか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ オレには技術がない・・・
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
♪ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ sage用とタブ展開送信用Checkbuttonを付けたよい。
(,,・∀・) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ
sub writeres{
my $wf = $mw->Toplevel;
my $now = $f->{nowtab};
$wf->title($now->{name} .jcode("にレス")->sjis);
#----------------------------#
$wf->Label( -text => "Subject: ")
->form( -top => '%3', -left => '%3', -right => '%15');
$wf->Entry( -font => $textfont , )
->form( -top => '%3', -left => '%15', -right => '%65' )
->insert('0.0', $now->{name} );
#----------------------------#
$wf->Label( -text => "Name: " )
->form( -top => '%10', -left => '%3', -right => '%10' );
my $namef = $wf->Entry( -font => $textfont )
->form( -top => '%10', -left => '%10', -right => '%35' );
#----------------------------#
$wf->Label(-text => "Mail: ")
->form( -top => '%10', -left => '%35', -right => '%42' );
my $mailf = $wf->Entry( -font => $textfont )
->form( -top => '%10', -left => '%42', -right => '%67' );
#----------------------------#
my $mode = 'AGE';
$wf->Checkbutton(
-text => 'sage', -variable => \$mode,
-onvalue => 'SAGE', -offvalue => 'AGE',
-command => sub {
if($mode eq 'SAGE'){
$mailf->delete(0, 'end');
$mailf->insert(0, 'sage');
$mailf->configure( -state => 'disabled' );
}else{
$mailf->configure( -state => 'normal' );
}
}
)->form( -top => '%10', -left => '%67', -right => '%80' );
#続く
my $tab = 'EXTRACT';
$wf->Checkbutton(
-text => 'convert tabs', -variable => \$tab,
-onvalue => 'EXTRACT', -offvalue => 'IGNORE',
)->form( -top => '%10', -left => '%80', -right => '%95' );
#----------------------------#
my $txt = $wf->Scrolled( 'Text',
-scrollbars => 'e', -width=>50, -height => 15,, -font => $textfont
)->form( -top => '%20', -bottom => '%85', -left => '%1', -right => '%99');
#----------------------------#
$wf->Button( -text => "write" , -command => sub {
my $thread = $now;
my $name = $namef->get;
my $mail = $mailf->get;
my $text = $txt->get('0.0','end');
my ($cat, $server, $dir, $bbsname, $file) = split /\t/, $thread->{etc}->[0];
my $key; ($key = $file) =~ s/\D//g;
if($tab eq 'EXTRACT'){
$text =~ s/^(\t+)/' ' x (4 * length($1))/gme;
}
write_res($server, $dir, $key, $name, $mail, $text);
$wf->destroy;
})->form( -top => '%90', -left => '%30', -right => '%45');
$wf->Button( -text => "cancel", -command => sub { $wf->destroy } )
->form( -top => '%90', -left => '%60', -right => '%75' );
}
レスを取得するたびに238行目でUse of unintialized 〜警告が出ます。
（原因はまだ調べていません........）
| 流石_gunzipさん、作るの速いですね。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ Perl/Tkのアプリなんてこれがほぼはじめてなんだよｺﾞﾙｧ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
# Hello,Worldくらいなら作ったことはあるが。
238行目のは直前の正規表現にマッチしなかったときに文句をいうらしい。
my $quote = index($_, $1) if $1;
で回避。
ってことで早速組み込みませていただきますね〜。
しかし、writeres()関数とwrite_res()関数があるのはどうかと思った、
自分の書いたプログラムながら。
| Webprog板らしくなってきたと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ よくわからんが頑張ってねage
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
実行しようとすると。
Can't locate Jcode.pm in @INC (@INC contains: C:/perl/lib C:/perl/site/lib .) at
ThTab.pm line 2.
BEGIN failed--compilation aborted at ThTab.pm line 2.
Compilation failed in require at tkz4.pl line 53.
BEGIN failed--compilation aborted at tkz4.pl line 53.
と出てきます。
今回実行しようとした物は16氏の>>85です。
perl -MTk -e "print $Tk::VERSION"
としてみると。
800.022と表示されます。
OSはW2K
ActivePerl version 5.6.1 build 626 for Windows
と言うような感じです（これだけの情報ではちょっとわからないでしょうか…）
どこが悪いのでしょうか、厨房的な質問ですが。
質問ばかりで申し訳ありません。
TOP カテ一覧 スレ一覧 削除依頼 ▲
・ 次のスレ
実力主義のCGIスクリプトは？
++++FF ADVENTURE++++
使いやすいエディタって何よ？
無駄なことをして遊ぼう
