TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
【Perl】掲示板を使ろう!
symfony PHPフレームワークpart2
【Perl】何をやれば「出来る」といえる?【PHP】
MySQL4.0を追っかけるスレ
SOHOです。仕事下さい。
【勉強するのは】PHPとPerl【どっちが最初?】
io.js (VS Node.js)
【SG】fusianasanの仕様を考えてみるスレ【SG】
外部2ちゃんねるread.cgi
【Go言語】 webapp GO Part1 【Golang】
ギコタクの「だから逝ってないでしょ」出張所
- 1 :2001/06/08 〜 最終レス :2017/12/30
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 私の事は教えて君だと・・・
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < だから言ってないでしょ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
._________
| |
| 本筋はこちら |
|_________|
∧,,∧ ||
⊂ミ.,,゚Д゚彡つ イマイチカ...
http://piza.2ch.sc/test/read.cgi?bbs=mona&key=991615070
- 2 :
-
WebProg板にも来たか
\______ __________
|/
____ ∧ ∧
\SOTEC\ (゚Д゚ ) ∩゛
{========{⊂、 ∩~⌒つ
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
どこから入って来たんですか?
\______ __________
|/
____ ∧ ∧ ∧_∧ / ̄ ̄ ̄ ̄ ̄
\SOTEC\ (;゚Д゚) ∩゛ (・∀・ )< 一つくらいマターリAAスレがあってもいいよね
{========{∩、 ∩~⌒つ ( ) \_____
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
- 3 :
- ヾ ;ヾ ;" ;" ;;ヾ ;ヾ ;ヾ ;ヾ ;〇;"ヾ ● ;ヾ; " ;;ヾ ●〃 ;ヾ ;ヾ:::""" 〇●"
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
;"; | ほう、AirH”でモバイルですか。
:ヾゞ\_____ ______________________
::、ヾ:':'ヾ、、ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
、;;;|;;l;;::|!iii|;;;ノ"""" / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
|;;l;;::|!iii| ∧_∧ ∧ ∧ ___ < 早く使い放題コース出て欲しいぞ
|;;l;;::|!iii|_( ・∀)___(;゚Д゚)//SOTEC/ \______________________
|;;l;;::|!iii| ( つ へ、つ ( つ;;;}=======}
|;;l;;::||iii| 乂__ (_)_乂 _) ) ̄
|;;|;l;::i|ii| ̄ ̄ ̄(_) U ̄U ̄| ̄
、从w;jjjf从jwwjwjjrj从wjw从jrj从jffjjrjj从WWjj从jrj从jffjjrj从Wjj从jr
- 4 :
- ヾ ;ヾ ;" ;" ;;ヾ ;ヾ ;ヾ ;ヾ ;〇;"ヾ ● ;ヾ; " ;;ヾ ●〃 ;ヾ ;ヾ:::""" 〇●"
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
;"; | ほう、SPAMを送りつけるスクリプトですか?
:ヾゞ\_____ ______________________
::、ヾ:':'ヾ、、ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
、;;;|;;l;;::|!iii|;;;ノ"""" / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
|;;l;;::|!iii| ∧_∧ ∧ ∧ ___ < そんなもん作ってねーぞゴルァ!!
|;;l;;::|!iii|_( ・∀)___(;゚Д゚)//SOTEC/ \______________________
|;;l;;::|!iii| ( つ へ、つ ( つ;;;}=======}
|;;l;;::||iii| 乂__ (_)_乂 _) ) ̄
|;;|;l;::i|ii| ̄ ̄ ̄(_) U ̄U ̄| ̄
、从w;jjjf从jwwjwjjrj从wjw从jrj从jffjjrjj从WWjj从jrj从jffjjrj从Wjj从jr
- 5 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ソースリストの「KISS!」を見てスケベな奴が書いてるなーと思ってたと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < Keep it simple, stupid. (短くしとけよ)の略だなんて知らなかったぞ・・・
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\|Libretto|\
 ̄ ======= \
- 6 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 今時Perlですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < ほっといてくださいよ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 7 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| Perl,Rubyと来れば・・・\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 当然次はPeridot(ペリドット)? タブン、ハゲシクガイシュツ・・・
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 8 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧ < 掲示板の作り方っと・・・プハー
(,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、スレ式の掲示板作成ですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < ナンデスカアナタハ・・・プハー
(つ 目 ) (゚Д゚;)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| しかもPostgreSQLでサクサク感を出したいと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < イッテナイヂャナイデスカ・・・プハー
(つ 目 ) (゚Д゚;)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| XML使ってiモードなんか逝ってよしだと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < ダカライッテナイデショ・・・プハー
(つ 目 ) (゚Д゚;)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
- 9 :
- ヾ ;ヾ ;" ;" ;;ヾ ;ヾ ;ヾ ;ヾ ;〇;"ヾ ● ;ヾ; " ;;ヾ ●〃 ;ヾ ;ヾ:::""" 〇●"
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
;"; | use strictを使っていない私は逝ってよしだと?
:ヾゞ\_____ ______________________
::、ヾ:':'ヾ、、ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
、;;;|;;l;;::|!iii|;;;ノ"""" / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
|;;l;;::|!iii| ∧_∧ ∧ ∧ ___ < そりゃあんたの自由だゴルァ!!
|;;l;;::|!iii|_( ・∀)___(;゚Д゚)//SOTEC/ \______________________
|;;l;;::|!iii| ( つ へ、つ ( つ;;;}=======}
|;;l;;::||iii| 乂__ (_)_乂 _) ) ̄
|;;|;l;::i|ii| ̄ ̄ ̄(_) U ̄U ̄| ̄
、从w;jjjf从jwwjwjjrj从wjw从jrj从jffjjrjj从WWjj从jrj从jffjjrj从Wjj从jr
- 10 :
- ∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ) ∧ ∧ < print <<"EOD"; っと
( ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、ヒアドキュメント使って上級者のつもりですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < な、なんですか?あなた・・・
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 僕は出来るPerl Hackerだと逝っているわけだ
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < 逝ってないですよ・・・ソンナコト
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| print()を散りばめる私の事は「厨房逝ってよし!」だと・・・
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < だから逝ってないでしょ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 11 :
- ∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ) ∧ ∧ < Perl5.8はいつ頃出るんだろう…と
( ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、Perl6ではなく敢えて5.8ですか
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < な、なんですか?あなた・・・
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 僕はPerl6なんて興味ないと逝っているわけだ
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < 逝ってないですよ・・・ソンナコト
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| Perl6が楽しみでしょうがない私を「厨房逝ってよし!」だと…
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < だから逝ってないでしょ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 12 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 単なるCプログラマの私にはここのネタは高度でよく分からない、と
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < このスレは寂しいぞぅ。ZZZzzz......
( ⊃ ) (-_-) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 13 :
- ヾ ;ヾ ;" ;" ;;ヾ ;ヾ ;ヾ ;ヾ ;〇;"ヾ ● ;ヾ; " ;;ヾ ●〃 ;ヾ ;ヾ:::""" 〇●"
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
;"; | 素直に use cgi.pm; って書いちゃえよ、うざいよそのスクリプト
:ヾゞ\_____ ______________________
::、ヾ:':'ヾ、、ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
、;;;|;;l;;::|!iii|;;;ノ"""" / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
|;;l;;::|!iii| ∧_∧ ∧ ∧ ___ < なんだよcgi.pmってゴルァ!!
|;;l;;::|!iii|_( ・∀)___(;゚Д゚)//SOTEC/ \______________________
|;;l;;::|!iii| ( つ へ、つ ( つ;;;}=======}
|;;l;;::||iii| 乂__ (_)_乂 _) ) ̄
|;;|;l;::i|ii| ̄ ̄ ̄(_) U ̄U ̄| ̄
、从w;jjjf从jwwjwjjrj从wjw从jrj从jffjjrjj从WWjj从jrj从jffjjrj从Wjj从jr
- 14 :
- ∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ) ∧ ∧ < Java 2ch APIか…ここも一応技術版なんだよなー
( ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、Perlで2chブラウザでも作るつもりですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < い、いや使い物にはならないと思うがな…
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 技術板なのに2chブラウザが無くて寂しいと言っているわけだ
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < まぁ…スコシナ
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
======= \
オチナシ
- 15 :
- >>14
Perlでブラウザって作れるんですか?(厨房質問スマソ デモ知りたいの)
どこかにサンプル無いですか?
- 16 :
- >>15
perlだからブラウザ作れないって事はないと思うぞ。
ウインドウベースにするとめんどくさそうだが・・・・
作ってみようかなー。
- 17 :
- >>15
http://fsinfo.cs.uni-sb.de/~abe/wApua/
- 18 :
- >>16
目から鱗がボロボロと出てきました。
作ってみてくださいよ〜
>>17
ありがとうございます。これカッコイイかも…
- 19 :
- ヾ ;ヾ ;" ;" ;;ヾ ;ヾ ;ヾ ;ヾ ;〇;"ヾ ● ;ヾ; " ;;ヾ ●〃 ;ヾ ;ヾ:::""" 〇●"
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
;"; | Perlでもブラウザ作れるんですって
:ヾゞ\_____ ______________________
::、ヾ:':'ヾ、、ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
、;;;|;;l;;::|!iii|;;;ノ"""" / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
|;;l;;::|!iii| ∧_∧ ∧ ∧ ___ < >>17すげえぞゴルァ!!
|;;l;;::|!iii|_( ・∀)___(;゚Д゚)//SOTEC/ \______________________
|;;l;;::|!iii| ( つ へ、つ ( つ;;;}=======}
|;;l;;::||iii| 乂__ (_)_乂 _) ) ̄
|;;|;l;::i|ii| ̄ ̄ ̄(_) U ̄U ̄| ̄
、从w;jjjf从jwwjwjjrj从wjw从jrj从jffjjrjj从WWjj从jrj从jffjjrj从Wjj从jr
- 20 :
- >>17
そのページの下にあるスクリプトが最高。
% perl
$$=42;$_=qq 93233313242132627322017304228173024422013152317309;while(!!$_){$:=
$|++;s$[1-4][0-8]$$e;$==$&;$\=pack c,$;=$|.$:;$=+=$=!=$$?$$:-$=-$;;$,=$=+$$;$@
.=pack c,$!!=$$-$;?!!$!!=$:?$=+$$:$,-$$:$,^$|<<chr$;+$|+$$;$!=$,;$|=$:}print$@
Just Another Perl Hacker
- 21 :
- >>20
カコイイナ…
- 22 :
- >>17
Perlを侮っていた…
- 23 :
- >>17
むむ。
使ってみたいですがActevPerlだとうまくいかないっぽいです…無念。
# まずmakeは失敗
# binでperl -Mlib=../ wApuaでも動かず…
しかしこれならPerlによる2chブラウザも夢ではないような…(笑)
- 24 :
- ブラウザじゃなくて2chクライアントを作ろうぜ。
- 25 :
- ヾ ;ヾ ;" ;" ;;ヾ ;ヾ ;ヾ ;ヾ ;〇;"ヾ ● ;ヾ; " ;;ヾ ●〃 ;ヾ ;ヾ:::""" 〇●"
●ヾ ;ヾ ; 〇●" "; ヾ ; " :;ヾ ;:ヾ;;;〃●"; ;ヾ ;ヾヾ 〇'',,,''::::";"",,,":::"";;;""
:;ヾ ;/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
;"; | すっかりブラウザ作るスレになってしまいましたね
:ヾゞ\_____ ______________________
::、ヾ:':'ヾ、、ヾ∨" ;〇"ヾ;" ";ヾ ;;ヾ";;;"";;;/""
l;;::ヾゞ,|!ii;;ノ●;;";ヾ;;;ヾ;;;;ヾ ●;;";〇;;.ノ"
、;;;|;;l;;::|!iii|;;;ノ"""" / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
|;;l;;::|!iii| ∧_∧ ∧ ∧ ___ < 掲示板一つつくれねえ折れは逝ってよしだな
|;;l;;::|!iii|_( ・∀)___(;゚Д゚)//SOTEC/ \______________________
|;;l;;::|!iii| ( つ へ、つ ( つ;;;}=======}
|;;l;;::||iii| 乂__ (_)_乂 _) ) ̄
|;;|;l;::i|ii| ̄ ̄ ̄(_) U ̄U ̄| ̄
、从w;jjjf从jwwjwjjrj从wjw从jrj从jffjjrjj从WWjj从jrj从jffjjrj从Wjj从jr
- 26 :
-
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ) ∧ ∧ < http://members.jcom.home.ne.jp/monazilla/ っと
( ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、Monazilla.org(w ですか
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < な、なんですか?あなた・・・
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 先人が開発した技術をパクろうというわけだ。
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < コードの再利用と言ってくださいよ…シャリンノサイハツメイハムダダシ
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 文字レスをする>>15-18>>20-24は「流れを読めない奴逝ってよし!」だと…
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 全然関係ないでしょ!! イチリアルケドナ. ゴルァ
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 27 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧ < ♪
(,,・∀・) \_______________
〜(___ノ
>>23
エラーメッセージが分からないので何とも言えないが、
恐らくWindows版Tkの不具合が原因だろう。
wApua/Config.pm の70行目
$CONFIG{NoKPKeySyms} = 0;
の0を1に変更する。
#2chブラウザは作ってみたいが、いかんせんTixGridウィジェットが重たすぎる.......。
# Gtk-Perl振興のためにGTK+で....と行きたいが最近忙しいし......。
ちなみに、かちゅーしゃライクなポップアップは$TextWidget->tagBind()で簡単に実装できるよ。
- 28 :
- >いかんせんTixGridウィジェットが重たすぎる.......。
Listbox並べればイイだけか。
- 29 :
-
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ) ∧ ∧ < ナルホド>>27の方法で動きました。ども
( ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 30 :
- ∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ) ∧ ∧ < なるほどね っと
( ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| あなた本当にわかってますか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < な、なんですか?あなた・・・
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| わかんなくても動けばいいというわけだ。
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < イッテナイジャナイデスカ・・・ソンナコト
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 何のこと言ってるかわかんない私は逝って良しだと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < だから逝ってないでしょ!ゴルァ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 31 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| なにが分からないのかも分からない私が一番怖い、と。
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 頼むからその状態でサポートに電話してこないでくれ!ゴルァ・・・
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 32 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 本家の内容についていけなくなってここに流れてきたのに
| ここも高度なのでついていけなくて困ってる、と。
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < だから逝ってないでしょ!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 33 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| あなた、よく分かってないのに書き込んでいいんですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 楽しいからいいのだ!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 34 :
- >>27
>ちなみに、かちゅーしゃライクなポップアップは$TextWidget->tagBind()で簡単に実装できるよ。
もっと詳しく教えて_gunzipたん
- 35 :
- >>34
一例だよ。
---------------------------------------
#!/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);
}
---------------------------------------
- 36 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧ < ずれた♪
(,,・∀・) \_______________
〜(___ノ
- 37 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| あなたも>>32と同じく本家流れだと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < こっちの方が(・∀・)イイ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 38 :
- 今度新しく5,000サイトとの共有を目指す
宣伝掲示板、その名もおりーぶおじさんの
超共有宣伝掲示板を設置しました。是非み
なさん、共有してください。先着50名様だ
けバナーリンクします。26番目の掲示板と
して設置してますので、そこをクリックして
参加の方法を見て早くご参加くださいませ。
おりーぶおじさんのホームページ
http://home9.highway.ne.jp/cym10262/
- 39 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ついに>>38のようなアフォが出てきてしまったと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 逝ってよしだゴルァ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 40 :
- >>35
なるほどーサンクスv
Perl/Tkって面白いな♪
- 41 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほほお、最近になってかちゅ〜しゃの機能を覚えたと・・・
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 38 名前:あぼ〜ん 投稿日:あぼ〜ん
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| VAIO |\
 ̄ ======= \
- 42 :
- ∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ) ∧ ∧ < http://xbbs21.virtualave.net/xbbs/up/src/up031.lzh っと・・・
( ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、Perl/Tkで2chブラウザですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < い、いや使い物にはならないんだが、>>18がな・・・
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 僕はできるPerl Hackerだと逝っているわけだ
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < 逝ってないですよ・・・ソンナコト
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 2chブラウザを作れない私を「厨房逝ってよし!」だと…
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < だから逝ってないでしょ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
はぢめてのAAこぴぺなので崩れてるかも。
っつーかまだ全然ダメダメ・・・・
- 43 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| >>42にレスですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 初体験おめでとうゴルァ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 44 :
- ∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ) ∧ ∧ < ありがとうございます、っと・・・
( ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、>>43にレスですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 反応がなくてさみしかったんだよゴルァ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
http://xbbs21.virtualave.net/xbbs/up/src/up033.lzh
いちお、全板読み込み可に。
- 45 :
- わー本当に作ってくれたんですか!ありがとうですです。
とりあえず使ってみた感想…
を書こうとしたら031の方はメニューは大丈夫なんだけど下の部分が文字化け。(うちの設定が悪いんかな?)
033の方はなんかWidget.pmとAfter.pmがbad anchor positionだと怒られる…
んー厨房ですまんです。。
- 46 :
- age
- 47 :
- なんでだろう?
うちだと動いてるけど。
Tkが4.x系統だったりしないよねぇ?
っつーか誰も反応ないから破棄しようかと思ってたんだが(w
これからLinuxにもTk入れてみるか・・・・
- 48 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| >>47にレスですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 地味にリンク貼ってあったから気づかんかった(わら
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\ アシタタメシテミルーヨ
 ̄ ======= \
- 49 :
- あーなんかMakeにやたら時間かかった。さすがPentium133だけのことはあるな。
そりゃともかく、うちでは31も33もちゃんと動いたぞ。
Linuxだとすごい勢いで文字化けしてた風だけど、半角カナのせいみたい。
どうしたらいいんだろ・・・・
文字がずれるのはモナーフォントとか入れてもらうとして。
>>45
とりあえず $textfont = ... と $menufont = をいじってみてー。
>>48
そんなにリンク地味だった?(w
- 50 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 動きましたか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 会社のPCにPerlもTkも入れてなかった気づかんかった(わら
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 51 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 動きましたか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < WinのPCにPerlとTkの入れ方がわからん(わら
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 52 :
- http://aspn.activestate.com/ASPN/Downloads/ActivePerl/
ここでActivePerl 5.6.1.626を落としてインストール。
その後、コマンドラインで
C>ppm[Enter]
ppm> search Tk[Enter]
ppm> install Tk[Enter]
でOK。
- 53 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| Tkいれましたか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 今度はどうやって起動させるかわからん(わら
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \ チュウボウデスマソ
- 54 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 起動ってひょっとしてperl tkz.plと入力するだけだと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < パスきってないならディレクトリまで移動しろよ
( ⊃ ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| SOTEC|\
 ̄ ======= \
- 55 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ちゃんと見えてますね
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < すげー
( ⊃ ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| SOTEC|\
 ̄ ======= \
- 56 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| おや?16さんのブラウザ起動ですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < ヒサビサノW2Kダヨ・・・プハー
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 画面真っ黒のままですが?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < コマンド窓ネ・・・アレ?ファイルイチランガデナイゾ?
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| (lsってなんだ?)・・・
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(;・∀・)y━~~ ∧ ∧ ハッ < (dirだったっけ?)・・・プハー
(つ 目 ) (;゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| そのくらいのコマンドも知らないんじゃ君クビね
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(∀・ ;) |\|\ < 黒い画面みると反射的に・・・
( ) (; ) \____________
 ̄ ̄ ̄ ̄ ̄⊂_ \丿_
 ̄ ̄ ̄日∇ ̄\| SOTEC|\
 ̄ ======= \
- 57 :
-
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| cygwin 入れれば? http://sources.redhat.com/cygwin/
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < もう DOS コマンドはさよならだ!
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
- 58 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| cygwinもいいけどSOSとPPT(Perl Power Tools)の組み合わせもかなりいい感じだよ
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < はて、話題に上がったのはどのスレだったかな…
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
- 59 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| おや、あなたも16さんのブラウザを?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < Perl/Tk面白そうだね・・・
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ・・・プハー
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(;・∀・)y━~~ ∧ ∧ ハッ < ・・・プハー
(つ 目 ) (;゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 納期近いんだから仕事優先ね
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(∀・ ;) |\|\ < これからはやっぱりGUIインターフェースの方が・・・
( ) (; ) \____________
 ̄ ̄ ̄ ̄ ̄⊂_ \丿_
 ̄ ̄ ̄日∇ ̄\| SOTEC|\
 ̄ ======= \
- 60 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、Perlで2chブラウザですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 凄いぞゴルァ!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| BIBLO |\
 ̄ ======= \
- 61 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、いじってたら直ったんですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < いい感じですです
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|VAIO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ひろゆきも来ただと・・・
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < なんでsageなんだゴルァ!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| VAIO |\
 ̄ ======= \
- 62 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 文字化けしてますね
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < フォントサイズを10から変えたら直ったぞ!
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|VAIO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| かちゅ〜しゃより早い気がしますね
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 本体が5KBに収まってるのが驚異的だぞゴルァ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| VAIO |\
 ̄ ======= \
- 63 :
- ∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ) ∧ ∧ < かちゅ〜しゃ風のポップアップできたぞ、っと・・・
( ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、_gunzipさんのパクリですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < それを言ったらおしまいだろゴルァ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
http://xbbs21.virtualave.net/xbbs/up/src/up039.lzh
>>56
俺もよくこんなことやってるような気がする・・・・
>>62
とりあえずフォントサイズを11にした。
あと、ファイルサイズは軽く6k超えちゃいました(w
- 64 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| おや、あなたも16さんのブラウザを?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < 噂になってるから気になって・・・
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| (ミーハー?)・・・プハー
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(;・∀・)y━~~ ∧ ∧ ハッ < (見えるぞ!)・・・プハー
(つ 目 ) (;゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \ オレモTkヤッテミルカ
- 65 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ポップアップが文字化けしてますね
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < フォントサイズを8から9に変えたら直ったぞ!
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|VAIO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| "MS UIゴシック"が効いてませんね
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < 確か"MS UI Gothic"だった気がするぞ
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| VAIO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| Windowsの標準設定ぐらい適用して欲しいですね
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < Win32APIに依存するのは嫌すぎだゴルァ!!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| VAIO |\
 ̄ ======= \
開発頑張ってください。
しかし、なんでサイズ変えると化けたり直ったりするんだろ?
- 66 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 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|\
 ̄ ======= \
- 67 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| >>66 PerlはDドライブに入れた?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < Cに入れたならCでやれ!
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|CONPAQ|\
 ̄ ======= \
- 68 :
- あ、違うか。よく読んでなかった。スマソ
- 69 :
-
∧∧ ボソ…
/⌒ヽ);
〜(___)
書込みもしたいな・・・
- 70 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、タブがついたんですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < とりあえず、かちゅ〜しゃライクに・・・・
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| なんでもかちゅ〜しゃの真似をすればいいと逝っているわけだ
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < 逝ってないですよ・・・ソンナコト
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
ほい。
http://xbbs21.virtualave.net/xbbs/up/src/up042.lzh
>>66
実はきちんとインストールが完了していないんでは?
perl -MTk -e "print $Tk::VERSION" してみよう。
>>69
んじゃ次の目標は書き込みってことで。
- 71 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧ < 最大化すると板メニューの幅が増えてウザいね
(,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|.LibL1.|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧ < 日本語の真中にフォーカスすると化けるな
(,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|.LibL1.|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧ < 欲を言えば項目を選びやすくして欲し。。。
(,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|.LibL1.|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、くだらない苦情を書き殴ってフィードバックのつもりですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < な、なんですか?あなた・・・
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| LibL1. |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 僕は出来るPerl Hackerだと逝っているわけだ
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < 逝ってないですよ・・・ソンナコト
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| LibL1. |\
 ̄ ======= \
- 72 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| おや、16さん開発ペースが上がってますね
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < 書き込みできようになったら起動BATつくろっと・・・
(つ 目 ) (,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
- 73 :
-
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧ < いつの間にか、凄いものが出来上がりつつあるな・・・
(,,゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、今頃気づいたのですか。
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < ナンデスカアナタハ・・・シバラクミテナカッタンデスヨ
(つ 目 ) (゚Д゚;)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| また何か協力できることがあったら逝って欲しいと・・・
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)y━~~ ∧ ∧ < ダカライッテナイデショ・・・プハー
(つ 目 ) (゚Д゚;)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
- 74 :
-
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ところで、「最大化すると板メニューの幅が増えてウザい」という苦情が・・・・
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・)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|\
 ̄ ======= \
- 75 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| Adjusterウイジェットを使うのだ
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < Adjusterってなんだ? とりあえず98行目くらいを
( ) (;゚Д゚) \ $list->pack(-side => 'left', -fill => 'y', -expand =>'no');
 ̄ ̄ ̄ ̄ ̄ (つ_つ__ \ ってやるとうまくいく風。
 ̄ ̄ ̄日∇ ̄\| Let’s |\ \____________
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 「おや、16さん開発ペースが上がってますね」とか言われてますが
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < 今日明日は飲み会で更新できないが・・・・
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
ってことで書き込みの実装はもうちっと待ってほしいかも。(ほとんどできてるけど)
ここのCGIに流し込むのって、URIエスケープみたいなことしてPOSTに流すのかな?
SJISの生データを流し込んでいいんかいな??
まぁ、目標は日曜日中ってことで。
_gunzipたんの協力があるとおもうとうれしー。
- 76 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、Adjusterを他のところにもつけようと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < いまいち使い方がわからなくて挫折しそうだがな。
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| で、それで書き込みの部分がつくれなかったと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < いや、そういうわけではないんだが・・・・・
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
- 77 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 何気に見たらブラウザ製作スレ・・・
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(;・∀・)y━~~ ∧ ∧ ハッ < 名スレの予感・・・プハー
(つ 目 ) (;゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
- 78 :
- <INPUT TYPE=submit VALUE="かきこむ" name="submit">
- 79 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| まだ書き込みできないのかね?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(∀・ ;) |\|\ < なんでこれでおかしいのか教えてくださいよー。
( ) (; ) \____________
 ̄ ̄ ̄ ̄ ̄⊂_ \丿_
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
うう・・・なんで書き込みできないのかほんとにわからん。
#!/usr/local/bin/perl
use LWP::UserAgent;
use strict;
my $server = "corn.2ch.sc";
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;
}
}
- 80 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| >>79
| http://teri.2ch.sc/test/read.cgi?bbs=accuse&key=993974693&ls=100
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧
(,,゚Д゚)y━~~
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|.LibL1.|\
 ̄ ======= \
- 81 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| write_res()への引数のミスは愛嬌としても…
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(;・∀・)y━~~ ∧ ∧ ハッ < それでも書けないことに違いは無いな。
(つ 目 ) (;゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
Refererやcookieを設定しないとダメらしいですね。
http://members.jcom.home.ne.jp/monazilla/
#Cookieの送信の仕方がわからない…
- 82 :
- Cookie => 'NAME; MAIL'
- 83 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 不可視・浮上不可実験(10000) http://corn.2ch.sc/test/read.cgi?bbs=php&key=982688337
| なんてところに書き込んでるんですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < sageとけばなにしても問題ないだろそのスレは。ケサレテモイイシ・・・
( ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
write_res()への引数はお恥ずかしい。
post($url, $contents,
Cookie => "$name; $mail", Referer => "http://$server/$dir/index2.html");
で問題なさそう。
- 84 :
- ∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ) ∧ ∧ < とりあえずテスト書き込み、っと・・・・
( ) (,,゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、ついに書き込みができるようになったんですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < これがちゃんと書けたらアップロードするぞ
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
- 85 :
-
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ついにかけるようになったんですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < http://xbbs21.virtualave.net/xbbs/up/src/up052.lzh だぞ
( ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
えーと、アップした後気づいた。
340行目くらいからのprint連打うざいから削って使ってください。
- 86 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、Cookie => "NAME=$name; MAIL=$mail" のほうがよくないかと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < 実際はあるかないかくらいしか見てなさそうですけど
( ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄ ̄\| VAIO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 僕は出来るPerl Hackerだと逝っているわけだ
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < 逝ってないですよ・・・ソンナコト
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄ ̄\| VAIO |\
 ̄ ======= \
- 87 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ほう、あなたも書き込みテストですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < カコイイー!
( ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄ ̄\| VAIO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 更にログを保存するようになれば完璧だと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < かちゅーしゃ互換で出来ないものかな…
( ) (;゚Д゚) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄ ̄\| VAIO |\
 ̄ ======= \
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| それならあなたが書いたらどうですか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < Perl/Tkのアプリなんて作ったこと無いんだよゴルァ!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
- 88 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 書き込めるんかな?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(;・∀・)y━~~ ∧ ∧ ハッ < 大変な作業だったろうに・・・
(つ 目 ) (;゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
- 89 :
- すげーーー
AA書き忘れるくらいすげーーーー
Cやろうと思ってたけどこりゃPerl/Tkの方が面白そうだ(わら
- 90 :
- ∧ ∧ ♪
(,,・∀・)
〜(___ノ
- 91 :
- >>16氏
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧ < お疲れさま〜 自分も何かお手伝いしましょうか?
(,,・∀・) \_______________
〜(___ノ
# 「〜な機能があるといいけれど、実装するのが面倒くさい」 とかありましたら
# 出来る範囲で資料集め+コード書きますよい。
例:
* ログの保存 && 前回読んだ位置を記憶して、次回からはそこへ移動する機能
* 最新の***件表示
* 左のメニューを折り畳みツリーにしたい。(例えば)
* 行頭のタブを&nbsp;に変換するチェックボックスを書込ウインドウに付ける。
* ボード一覧の更新 && マージ
* ほかいろいろ
- 92 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 何か手伝おうか?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(;・∀・)y━~~ ∧ ∧ ハッ < オレには技術がない・・・
(つ 目 ) (;゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
- 93 :
-
♪ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧ < sage用とタブ展開送信用Checkbuttonを付けたよい。
(,,・∀・) \_______________
〜(___ノ
- 94 :
- #当然ながら、これは16さんので書きこんでいます。
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' );
#続く
- 95 :
- #----------------------------#
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' );
}
- 96 :
- それと、-w オプションを付けて起動した場合、
レスを取得するたびに238行目でUse of unintialized 〜警告が出ます。
(原因はまだ調べていません........)
- 97 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 流石_gunzipさん、作るの速いですね。
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀・) ∧ ∧ < Perl/Tkのアプリなんてこれがほぼはじめてなんだよゴルァ!
( ⊃ ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄\| Let’s |\
 ̄ ======= \
# Hello,Worldくらいなら作ったことはあるが。
238行目のは直前の正規表現にマッチしなかったときに文句をいうらしい。
my $quote = index($_, $1) if $1;
で回避。
ってことで早速組み込みませていただきますね〜。
しかし、writeres()関数とwrite_res()関数があるのはどうかと思った、
自分の書いたプログラムながら。
- 98 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| Webprog板らしくなってきたと?
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
(;・∀・)y━~~ ∧ ∧ ハッ < よくわからんが頑張ってねage
(つ 目 ) (;゚Д゚)y━~~ \____________
 ̄ ̄ ̄ ̄ ̄ ̄ (つ ___
 ̄ ̄ ̄日∇ ̄ ̄\|SOTEC|\
 ̄ ======= \
- 99 :
- 66氏とは別人ですが。
実行しようとすると。
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
と言うような感じです(これだけの情報ではちょっとわからないでしょうか…)
どこが悪いのでしょうか、厨房的な質問ですが。
質問ばかりで申し訳ありません。
- 100 :
- / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| >>99 英語だからってエラーメッセージを読むことを放棄しないでね
\
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
( ・∀) ∧ ∧ < Jcode.pmが見つからない、と逝ってるぞゴルァ!
( ) (゚Д゚;) \____________
 ̄ ̄ ̄ ̄ ̄ (つ_つ__
 ̄ ̄ ̄日∇ ̄ ̄\| VAIO |\
 ̄ ======= \
C:\>ppm
ppm>install Jcode
#で出来たっけ?
100〜のスレッドの続きを読む
PostWikiスレ 当ての無い旅路へ
【V5計画】CAFEMILK SHOPPING CART V5
CGI: Common Gateway Interface part 13
use Socket;について熱く語るスレ
tDiaryスレッド その1
美しいコードのCGIを愛でるスレ
☆三 【 スクリプト改造工房 PART 9 】 ★三
Perlなんですが・・・
■最強の出会い系サイト作ろうぜ!■
アパッチが動かねんだよ!!タコ
--------------------
【国技】韓国でガソリンを積んだ車が日本大使館に突っ込み大爆発 78歳男性は大火傷の重体
Appleが遅れを取った、折り畳みスマホと折り畳みノートPC
【韓国】 96歳の強制徴用被害者 「生きているうちに賠償金を早く支給を…もどかしい」 [06/15] [荒波φ★]
昭和34年4月〜35年3月生まれのスレ Part28
多少ブスの方がチンポ勃つだろ 顔は変だけどスタイルバツグンみたいな女性も居るしな
何で徳井は逮捕されないの?
【話題】鳩山元首相「この国は滅びに向かっている」「いよいよ安倍首相も年貢の納め時」
【3197】すかいらーく37【高優待&0配当】
おまいら休みの日は何してんのYO?14397日目※粉RRR
何度でも言ってやる。韓国への輸出規制で最終的に損するのは日本メーカー。顧客失う
【小6女児誘拐】男の自宅からSIMカード3枚押収…1枚は女児のスマホのもの、他の2枚は誰のものかわからず
自分に矢印さして直せない無能ニート
X1 ネガティブスレ2
【チラシより】カレンダーの裏(IDなし)579【大きめ】
ヤンキー系DQN女にありがちな事
新説!所JAPAN Part1
【訃報】服部克久さんの主な作品、「ザ・ベストテン」テーマ曲、谷村新司「昴」竹内まりや「駅」 [砂漠のマスカレード★]
王者ドイツ大々々々々々反省会会場
CAD総合スレッド37 Jw_cad/AutoCAD/VectorWorks etc
【生コン/武建一逮捕】辻元清美事務所「献金を受け取った事実はない」 ネット「息を吐くように嘘をつく辻元」「疑惑の総合商社」
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼