ギコタクの「だから逝ってないでしょ」出張所
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
2001/06/08(金) 11:17ID:Ngqkrj.g| 私の事は教えて君だと・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ だから言ってないでしょ！！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
.＿＿＿＿＿＿＿＿＿
| |
| 本筋はこちら ｜
|＿＿＿＿＿＿＿＿＿|
∧,,∧ ||
⊂ミ.,,ﾟДﾟ彡つ ｲﾏｲﾁｶ...
http://piza.2ch.net/test/read.cgi?bbs=mona&key=991615070
0028_gunzip
2001/06/16(土) 09:47ID:???Listbox並べればｲｲだけか。
0029rubbish_lister
2001/06/16(土) 15:47ID:???∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ） ∧ ∧ ＜ ナルホド>>27の方法で動きました。ども
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
0030名無しさん＠お腹いっぱい。
2001/06/16(土) 16:55ID:???（ ） ∧ ∧ ＜ なるほどね っと
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| あなた本当にわかってますか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ な、なんですか？あなた・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| わかんなくても動けばいいというわけだ。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ｲｯﾃﾅｲｼﾞｬﾅｲﾃﾞｽｶ･･･ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 何のこと言ってるかわかんない私は逝って良しだと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ だから逝ってないでしょ！ｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
0031名無しさん＠お腹いっぱい。
2001/06/18(月) 00:37ID:???| なにが分からないのかも分からない私が一番怖い、と。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 頼むからその状態でサポートに電話してこないでくれ！ｺﾞﾙｧ・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
0032名無しさん＠お腹いっぱい。
2001/06/18(月) 00:43ID:???| 本家の内容についていけなくなってここに流れてきたのに
| ここも高度なのでついていけなくて困ってる、と。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ だから逝ってないでしょ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
0033名無しさん＠お腹いっぱい。
2001/06/18(月) 00:46ID:???| あなた、よく分かってないのに書き込んでいいんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 楽しいからいいのだ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
0034名無しさん＠お腹いっぱい。
2001/06/18(月) 05:52ID:???>ちなみに、かちゅーしゃライクなポップアップは$TextWidget->tagBind()で簡単に実装できるよ。
もっと詳しく教えて_gunzipたん
0035_gunzip
2001/06/18(月) 08:42ID:???一例だよ。
---------------------------------------
#!/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);
}
---------------------------------------
0036_gunzip
2001/06/18(月) 08:44ID:???∧ ∧ ＜ ずれた♪
(,,・∀・) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ
0037名無しさん＠お腹いっぱい。
2001/06/18(月) 10:28ID:???| あなたも>>32と同じく本家流れだと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ こっちの方が(･∀･)ｲｲ！！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
0038顔も名前も出さずに毎月１００万円
2001/06/18(月) 11:24ID:fkO4aTN2宣伝掲示板、その名もおりーぶおじさんの
超共有宣伝掲示板を設置しました。是非み
なさん、共有してください。先着50名様だ
けバナーリンクします。26番目の掲示板と
して設置してますので、そこをクリックして
参加の方法を見て早くご参加くださいませ。
おりーぶおじさんのホームページ
http://home9.highway.ne.jp/cym10262/
0039名無しさん＠お腹いっぱい。
2001/06/18(月) 11:34ID:???| ついに>>38のようなｱﾌｫが出てきてしまったと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 逝ってよしだｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
0041名無しさん＠お腹いっぱい。
2001/06/20(水) 05:24ID:/WkSGKxo| ほほお、最近になってかちゅ〜しゃの機能を覚えたと・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 38 名前：あぼ〜ん 投稿日：あぼ〜ん
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| ＶＡＩＯ |＼
￣ ======= ＼
004216
2001/06/21(木) 03:41ID:???（ ） ∧ ∧ ＜ http://xbbs21.virtualave.net/xbbs/up/src/up031.lzh っと・・・
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、Perl/Tkで2chブラウザですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ い、いや使い物にはならないんだが、>>18がな・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 僕はできるPerl Hackerだと逝っているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 逝ってないですよ・・・ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 2chブラウザを作れない私を「厨房逝ってよし！」だと…
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ だから逝ってないでしょ！！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
はぢめてのAAこぴぺなので崩れてるかも。
っつーかまだ全然ダメダメ・・・・
0043名無しさん＠お腹いっぱい。
2001/06/21(木) 17:10ID:???| >>42にレスですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 初体験おめでとうｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
004416
2001/06/21(木) 22:51ID:???（ ） ∧ ∧ ＜ ありがとうございます、っと・・・
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、>>43にレスですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 反応がなくてさみしかったんだよｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
http://xbbs21.virtualave.net/xbbs/up/src/up033.lzh
いちお、全板読み込み可に。
004518
2001/06/24(日) 19:29ID:???とりあえず使ってみた感想…
を書こうとしたら031の方はメニューは大丈夫なんだけど下の部分が文字化け。（うちの設定が悪いんかな？）
033の方はなんかWidget.pmとAfter.pmがbad anchor positionだと怒られる…
んー厨房ですまんです。。
0046age
2001/06/24(日) 23:56ID:???004716
2001/06/25(月) 00:21ID:Kol/mXZIうちだと動いてるけど。
Tkが4.x系統だったりしないよねぇ？
っつーか誰も反応ないから破棄しようかと思ってたんだが（ｗ
これからLinuxにもTk入れてみるか・・・・
0048名無しさん＠お腹いっぱい。
2001/06/25(月) 00:48ID:42iy55BY| >>47にレスですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 地味にリンク貼ってあったから気づかんかった（わら
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼ ｱｼﾀﾀﾒｼﾃﾐﾙｰﾖ
￣ ======= ＼
004916
2001/06/25(月) 01:50ID:Kol/mXZIそりゃともかく、うちでは31も33もちゃんと動いたぞ。
Linuxだとすごい勢いで文字化けしてた風だけど、半角カナのせいみたい。
どうしたらいいんだろ・・・・
文字がずれるのはモナーフォントとか入れてもらうとして。
>>45
とりあえず $textfont = ... と $menufont = をいじってみてー。
>>48
そんなにリンク地味だった？（ｗ
0050名無しさん＠お腹いっぱい。
2001/06/25(月) 11:38ID:???| 動きましたか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 会社のＰＣにＰｅｒｌもＴｋも入れてなかった気づかんかった（わら
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
0051名無しさん＠お腹いっぱい。
2001/06/26(火) 10:49ID:???| 動きましたか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ ＷｉｎのＰＣにＰｅｒｌとＴｋの入れ方がわからん（わら
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
0052名無しさん＠お腹いっぱい。
2001/06/26(火) 11:29ID:yYk1Uw7IここでActivePerl 5.6.1.626を落としてインストール。
その後、コマンドラインで
C>ppm[Enter]
ppm> search Tk[Enter]
ppm> install Tk[Enter]
でOK。
0053名無しさん＠お腹いっぱい。
2001/06/26(火) 13:03ID:???| Ｔｋいれましたか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 今度はどうやって起動させるかわからん（わら
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼ ﾁｭｳﾎﾞｳﾃﾞｽﾏｿ
0054名無しさん＠お腹いっぱい。
2001/06/26(火) 13:15ID:???| 起動ってひょっとしてperl tkz.plと入力するだけだと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ パスきってないならディレクトリまで移動しろよ
（ ⊃ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| SOTEC|＼
￣ ======= ＼
0055名無しさん＠お腹いっぱい。
2001/06/26(火) 13:25ID:???| ちゃんと見えてますね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ すげー
（ ⊃ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| SOTEC|＼
￣ ======= ＼
0056名無しさん＠お腹いっぱい。
2001/06/26(火) 14:43ID:???| おや？１６さんのﾌﾞﾗｳｻﾞ起動ですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ﾋｻﾋﾞｻﾉW2Kﾀﾞﾖ･･･ﾌﾟﾊｰ
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 画面真っ黒のままですが？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ｺﾏﾝﾄﾞ窓ﾈ・・・ｱﾚ?ﾌｧｲﾙｲﾁﾗﾝｶﾞﾃﾞﾅｲｿﾞ?
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| （ｌｓってなんだ？）･･･
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ （ｄｉｒだったっけ？）･･･ﾌﾟﾊｰ
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| そのくらいのｺﾏﾝﾄﾞも知らないんじゃ君クビね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（∀・ ；） |＼|＼ ＜ 黒い画面みると反射的に・・・
（ ） (； ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣⊂＿ ＼丿＿
￣￣￣日∇￣＼| SOTEC|＼
￣ ======= ＼
0057電動ナナシ
2001/06/26(火) 17:52ID:???／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| cygwin 入れれば？ http://sources.redhat.com/cygwin/
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ もう DOS コマンドはさよならだ！
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0058rubbish_lister
2001/06/26(火) 18:00ID:???| cygwinもいいけどSOSとPPT(Perl Power Tools)の組み合わせもかなりいい感じだよ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ はて、話題に上がったのはどのスレだったかな…
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0059名無しさん＠お腹いっぱい。
2001/06/26(火) 18:39ID:???| おや、あなたも１６さんのﾌﾞﾗｳｻﾞを？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ Perl/Tk面白そうだね･･･
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ･･･ﾌﾟﾊｰ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ ･･･ﾌﾟﾊｰ
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 納期近いんだから仕事優先ね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（∀・ ；） |＼|＼ ＜ これからはやっぱりGUIｲﾝﾀｰﾌｪｰｽの方が･･･
（ ） (； ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣⊂＿ ＼丿＿
￣￣￣日∇￣＼| SOTEC|＼
￣ ======= ＼
0060ひろゆき＠管直人
2001/06/26(火) 18:45ID:???| ほう、Perlで2chブラウザですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 凄いぞｺﾞﾙｧ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
￣ ======= ＼
006118
2001/06/26(火) 20:21ID:???| ほう、いじってたら直ったんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ いい感じですです
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ひろゆきも来ただと･･･
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ なんでsageなんだｺﾞﾙｧ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| VAIO |＼
￣ ======= ＼
0062梨
2001/06/26(火) 21:19ID:6WVCIie2| 文字化けしてますね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ フォントサイズを10から変えたら直ったぞ！
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| かちゅ〜しゃより早い気がしますね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 本体が5KBに収まってるのが驚異的だぞｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| VAIO |＼
￣ ======= ＼
006316
2001/06/27(水) 00:17ID:NfbVrjcI（ ） ∧ ∧ ＜ かちゅ〜しゃ風のポップアップできたぞ、っと・・・
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、_gunzipさんのパクリですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ それを言ったらおしまいだろｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
http://xbbs21.virtualave.net/xbbs/up/src/up039.lzh
>>56
俺もよくこんなことやってるような気がする・・・・
>>62
とりあえずフォントサイズを11にした。
あと、ファイルサイズは軽く6k超えちゃいました（ｗ
0064なごやん
2001/06/27(水) 11:08ID:???| おや、あなたも１６さんのﾌﾞﾗｳｻﾞを？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ 噂になってるから気になって･･･
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| （ミーハー？）･･･ﾌﾟﾊｰ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ （見えるぞ！）･･･ﾌﾟﾊｰ
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼ ｵﾚﾓTkﾔｯﾃﾐﾙｶ
0065梨
2001/06/27(水) 15:23ID:keWx3MwY| ポップアップが文字化けしてますね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ フォントサイズを8から9に変えたら直ったぞ！
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| "ＭＳ UIゴシック"が効いてませんね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 確か"MS UI Gothic"だった気がするぞ
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| Windowsの標準設定ぐらい適用して欲しいですね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ Win32APIに依存するのは嫌すぎだｺﾞﾙｧ!!
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| VAIO |＼
￣ ======= ＼
開発頑張ってください。
しかし、なんでサイズ変えると化けたり直ったりするんだろ？
0066名無しさん＠お腹いっぱい。
2001/06/27(水) 16:36ID:???| 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|＼
￣ ======= ＼
0067名無しさん＠お腹いっぱい。
2001/06/27(水) 17:31ID:???| >>66 PerlはDドライブに入れた？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ Cに入れたならCでやれ！
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|CONPAQ|＼
￣ ======= ＼
006867
2001/06/27(水) 18:04ID:???0069名無しさん＠お腹いっぱい。
2001/06/27(水) 18:07ID:???∧∧ ﾎﾞｿ…
/⌒ヽ）；
〜（＿__）
書込みもしたいな･･･
007016
2001/06/27(水) 18:32ID:NfbVrjcI| ほう、タブがついたんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ とりあえず、かちゅ〜しゃライクに・・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| なんでもかちゅ〜しゃの真似をすればいいと逝っているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 逝ってないですよ・・・ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
ほい。
http://xbbs21.virtualave.net/xbbs/up/src/up042.lzh
>>66
実はきちんとインストールが完了していないんでは？
perl -MTk -e "print $Tk::VERSION" してみよう。
>>69
んじゃ次の目標は書き込みってことで。
0071名梨さん＠お腹いっぱい。
2001/06/27(水) 19:24ID:???∧ ∧ ＜ 最大化すると板メニューの幅が増えてウザいね
(,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|.LibL1.|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ 日本語の真中にフォーカスすると化けるな
(,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|.LibL1.|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ 欲を言えば項目を選びやすくして欲し。。。
(,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|.LibL1.|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、くだらない苦情を書き殴ってフィードバックのつもりですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ な、なんですか？あなた・・・
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| LibL1. |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 僕は出来るPerl Hackerだと逝っているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 逝ってないですよ・・・ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| LibL1. |＼
￣ ======= ＼
0072名無しさん＠お腹いっぱい。
2001/06/28(木) 12:11ID:???| おや、１６さん開発ペースが上がってますね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ 書き込みできようになったら起動BATつくろっと･･･
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0073_gunzip
2001/06/28(木) 16:40ID:???／￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ いつの間にか、凄いものが出来上がりつつあるな・・・
(,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、今頃気づいたのですか。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ﾅﾝﾃﾞｽｶｱﾅﾀﾊ･･･ｼﾊﾞﾗｸﾐﾃﾅｶｯﾀﾝﾃﾞｽﾖ
（つ 目 ） (ﾟДﾟ；)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| また何か協力できることがあったら逝って欲しいと・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ ﾀﾞｶﾗｲｯﾃﾅｲﾃﾞｼｮ･･･ﾌﾟﾊｰ
（つ 目 ） (ﾟДﾟ；)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0074_gunzip
2001/06/28(木) 16:40ID:???／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ところで、「最大化すると板メニューの幅が増えてウザい」という苦情が・・・・
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）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|＼
￣ ======= ＼
007516
2001/06/29(金) 05:35ID:???| Adjusterウイジェットを使うのだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ Adjusterってなんだ？ とりあえず98行目くらいを
（ ） (；ﾟДﾟ) ＼ $list->pack(-side => 'left', -fill => 'y', -expand =>'no');
￣￣￣￣￣ （つ＿つ＿＿ ＼ ってやるとうまくいく風。
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 「おや、１６さん開発ペースが上がってますね」とか言われてますが
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 今日明日は飲み会で更新できないが・・・・
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
ってことで書き込みの実装はもうちっと待ってほしいかも。（ほとんどできてるけど）
ここのCGIに流し込むのって、URIエスケープみたいなことしてPOSTに流すのかな？
SJISの生データを流し込んでいいんかいな？？
まぁ、目標は日曜日中ってことで。
_gunzipたんの協力があるとおもうとうれしー。
007616
2001/06/29(金) 12:48ID:???| ほう、Adjusterを他のところにもつけようと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ いまいち使い方がわからなくて挫折しそうだがな。
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| で、それで書き込みの部分がつくれなかったと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ いや、そういうわけではないんだが・・・・・
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
0077名無しさん＠お腹いっぱい。
2001/06/30(土) 17:21ID:???| 何気に見たらﾌﾞﾗｳｻﾞ製作ｽﾚ･･･
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ 名ｽﾚの予感･･･ﾌﾟﾊｰ
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0078名無しさん＠お腹いっぱい。
2001/07/02(月) 00:41ID:???007916
2001/07/02(月) 01:52ID:jXUn5Xms| まだ書き込みできないのかね？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（∀・ ；） |＼|＼ ＜ なんでこれでおかしいのか教えてくださいよー。
（ ） (； ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣⊂＿ ＼丿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
うう・・・なんで書き込みできないのかほんとにわからん。
#!/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;
}
}
0080名無しさん＠お腹いっぱい。
2001/07/02(月) 02:45ID:???| >>79
| http://teri.2ch.net/test/read.cgi?bbs=accuse&key=993974693&ls=100
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧
(,,ﾟДﾟ)y━~~
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|.LibL1.|＼
￣ ======= ＼
0081rubbish_lister
2001/07/02(月) 03:43ID:???| write_res()への引数のミスは愛嬌としても…
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ それでも書けないことに違いは無いな。
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
Refererやcookieを設定しないとダメらしいですね。
http://members.jcom.home.ne.jp/monazilla/
#Cookieの送信の仕方がわからない…
0082名無しさん＠お腹いっぱい。
2001/07/02(月) 06:27ID:???008316
2001/07/02(月) 11:35ID:jXUn5Xms| 不可視・浮上不可実験(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");
で問題なさそう。
008416
2001/07/02(月) 12:16ID:jXUn5Xms（ ） ∧ ∧ ＜ とりあえずテスト書き込み、っと・・・・
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、ついに書き込みができるようになったんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ これがちゃんと書けたらアップロードするぞ
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
008516
2001/07/02(月) 12:37ID:jXUn5Xms／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ついにかけるようになったんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ http://xbbs21.virtualave.net/xbbs/up/src/up052.lzh だぞ
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
えーと、アップした後気づいた。
340行目くらいからのprint連打うざいから削って使ってください。
0086名無しさん＠お腹いっぱい。
2001/07/02(月) 12:42ID:???| ほう、Cookie => "NAME=$name; MAIL=$mail" のほうがよくないかと?
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 実際はあるかないかくらいしか見てなさそうですけど
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 僕は出来るPerl Hackerだと逝っているわけだ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 逝ってないですよ・・・ｿﾝﾅｺﾄ
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
0087rubbish_lister
2001/07/02(月) 15:14ID:???| ほう、あなたも書き込みテストですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ｶｺｲｲｰ!
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 更にログを保存するようになれば完璧だと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ かちゅーしゃ互換で出来ないものかな…
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| それならあなたが書いたらどうですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ Perl/Tkのアプリなんて作ったこと無いんだよｺﾞﾙｧ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
0088名無しさん＠お腹いっぱい。
2001/07/02(月) 15:14ID:???| 書き込めるんかな？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ 大変な作業だったろうに・・・
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0089名無しさん＠お腹いっぱい。
2001/07/02(月) 16:10ID:???ＡＡ書き忘れるくらいすげーーーー
Ｃやろうと思ってたけどこりゃＰｅｒｌ／Ｔｋの方が面白そうだ（わら
0090_gunzip@テスト
2001/07/02(月) 17:22ID:???(,,・∀・)
〜（＿__ﾉ
0091_gunzip
2001/07/02(月) 17:42ID:???／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ お疲れさま〜 自分も何かお手伝いしましょうか？
(,,・∀・) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ
# 「〜な機能があるといいけれど、実装するのが面倒くさい」 とかありましたら
# 出来る範囲で資料集め+コード書きますよい。
例：
* ログの保存 && 前回読んだ位置を記憶して、次回からはそこへ移動する機能
* 最新の***件表示
* 左のメニューを折り畳みツリーにしたい。（例えば）
* 行頭のタブを＆nbsp;に変換するチェックボックスを書込ウインドウに付ける。
* ボード一覧の更新 && マージ
* ほかいろいろ
0092なごやん
2001/07/02(月) 18:31ID:???| 何か手伝おうか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ オレには技術がない・・・
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0093_gunzip
2001/07/02(月) 23:24ID:???♪ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ sage用とタブ展開送信用Checkbuttonを付けたよい。
(,,・∀・) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ
0094_gunzip
2001/07/02(月) 23:38ID:???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' );
#続く
0095_gunzip
2001/07/02(月) 23:40ID:???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' );
}
0096_gunzip
2001/07/02(月) 23:43ID:???レスを取得するたびに238行目でUse of unintialized 〜警告が出ます。
（原因はまだ調べていません........）
009716
2001/07/03(火) 00:07ID:ipaH5kuY| 流石_gunzipさん、作るの速いですね。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ Perl/Tkのアプリなんてこれがほぼはじめてなんだよｺﾞﾙｧ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
# Hello,Worldくらいなら作ったことはあるが。
238行目のは直前の正規表現にマッチしなかったときに文句をいうらしい。
my $quote = index($_, $1) if $1;
で回避。
ってことで早速組み込みませていただきますね〜。
しかし、writeres()関数とwrite_res()関数があるのはどうかと思った、
自分の書いたプログラムながら。
0098なごやん
2001/07/03(火) 18:45ID:???| Webprog板らしくなってきたと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ よくわからんが頑張ってねage
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0099名無しさん＠お腹いっぱい。
2001/07/03(火) 21:55ID:???実行しようとすると。
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
と言うような感じです（これだけの情報ではちょっとわからないでしょうか…）
どこが悪いのでしょうか、厨房的な質問ですが。
質問ばかりで申し訳ありません。
0100rubbish_lister
2001/07/03(火) 23:09ID:???| >>99 英語だからってエラーメッセージを読むことを放棄しないでね
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ Jcode.pmが見つからない、と逝ってるぞｺﾞﾙｧ！
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
C:\>ppm
ppm>install Jcode
#で出来たっけ？
0101見習い君
2001/07/04(水) 00:31ID:???C:\PERL> ppm install --location=http://www.shonanblue.ne.jp/~kipp/perl/packages/5.6 Jcode
↑こうなら出来るみたい。
参考：http://www.att.or.jp/perl/oldnews.html
010299
2001/07/04(水) 01:27ID:???教えて君全開でした。
大変申し訳ありません。
ついついエラーメッセージをじっくり読むと言うことを怠ってしまったようです。
まだ試してはおりませんが、レスありがとうございました。
もしまた動かない場合は何とか努力致します。
本当にありがとうございました。
いつか皆さんと一緒に色々と作ったり、考えたりできるようがんばります。
010399
2001/07/04(水) 01:46ID:???| ほら、動くでしょう。キミが全然エラーメッセージ見てなかった証拠
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ うぉっ、動いた！
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
動きました。
本当にありがとうございました。
まず調べる、と言う基本的な、そして重要な事を忘れておりました。
今回はそれを改めて教えていただきました。
しつこいようですが本当にありがとうございました。
0104rubbish_lister
2001/07/04(水) 16:44ID:???| >>101 補足してくれてありがとう
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 適当なこと逝ってスマソ …
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
010516
2001/07/05(木) 00:44ID:A8Q42XTQ| 板一覧をツリーにしたんですか？ ログ保存は？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ ログ保存はこれから書くんだよｺﾞﾙｧ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
http://xbbs21.virtualave.net/xbbs/up/src/up053.lzh
あと、誰か、スレッド一覧Widget（見やすい奴）を作ってくれません？
ListBox使えばいいって_gunzipさんが言ってたけど、よくわからん・・・・
0106_gunzip
2001/07/05(木) 15:27ID:???／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| http://www.hyuki.com/dp/cat_Flyweight.html
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 結城氏ご乱心・・・・
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
0107rubbish_lister
2001/07/05(木) 15:51ID:???／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| >>106 ｳｹﾀよ
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ 結城さんここ見てるのかなー
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣￣＼| VAIO |＼
￣ ======= ＼
0108_gunzip
2001/07/05(木) 16:05ID:???♪ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ 2chモジュールを作成するのも面白い/楽かも。
(,,・∀・) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ
例えば........
#名前は適当（先頭に2はアウトなのでMyとか付けた）
My2chBBS
My2chBBS::Board（未定）
My2chBBS::Article（未定）
My2chBBS::Thread
#My2chBBS::Thread *
new(string $server, string $dir, long $key)
コンストラクタ
#bool
$thread->post(string $name, string $mail, string $message)
スレッドに対して書き込む。(LWP::UserAgent利用)
#string[]
$thread->get_article(int $start, int $end)
$start から $end 番目までのスレッドの記事を返す。
取得した記事はDB_File($DB_RECNO)に蓄えられ、必要に応じて更新
(LWP::UserAgent利用)される。
#bool
$thread->update()
スレッドの書き込み情報とログを更新する。(LWP::UserAgent利用)
#void
$thread->clear()
このスレッドのログを破棄する。
#int
$thread->log_count()
保持しているログの記事数を返す。
$thread->key(), $thread->dir(), $thread->server()
各種情報を返す。
0109_gunzip
2001/07/05(木) 16:11ID:???／￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ ↑こういったもので良ければ、自分が書いてもｲｲです。
ﾐ,,‐∀‐ﾐ ＼＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ (･∀･)ｲｿｶﾞｼ-ｹﾄﾞ
>スレッド一覧Widget
確かに必要ですね。これもやってみます。
（Listboxを並べるか、TixGrid使うか........ううむ）
0110_gunzip@何回も済みません
2001/07/05(木) 16:49ID:???煤ﾈ ∧ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
ﾐ；・∀・ﾐ ＜ Tableウィジェット忘れてた。
＼ﾐ＿__ﾐ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>>16氏
>スレッド一覧Widget
出来れば、どのようなメソッドを実装するべきか、
書いて頂けると有り難いです。（あと「〜が出来て欲しい」とかの要望も）
011116
2001/07/06(金) 03:02ID:gLmCrluw| ログ保存は？ ログ保存は？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ HTTPプロトコルの勉強中なんだよｺﾞﾙｧ！
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
If-Modified-SinceとRangeでなんとかなるのかなぁ？
ただ、途中にあぼーんが入ると無茶苦茶になるような予感が。
011216
2001/07/06(金) 03:23ID:gLmCrluw| ほう、スレッド一覧Widgetを_gunzipさんにやらせようと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ ほっといてくださいよ、Perl/Tkよくわからないんだから・・・
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
メソッド実装なんて、左クリックしたときにgetTargetThread()を呼び出す、くらいしか思いつかないんだけれど。
引数ｊは読みたいスレッドに関する構造体、って感じで。
# こうしてgetTargetThread()が肥大化するのね・・・・
2chモジュールはいいかもねぇ。
実装さえしっかりしてればGUIだけ作れば完成、みたいな感じになるしー。
0113_gunzip
2001/07/06(金) 23:22ID:???ﾘｮｳｶｲ〜
♪ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ なるべく早くパッチをupしますね。
(,,・∀・) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ
011416
2001/07/07(土) 12:55ID:XmkeoP0E| ほう、アカウント取ったんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ Bizlandのメールアドレスで取れるとは思ってなかった・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
http://www.gooside.com/perltk/
やっとログ保存できるようになった風。
0115名無しさん＠お腹いっぱい。
2001/07/09(月) 23:03ID:???| ほう、あげるんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 16さんには頑張って欲しいんで........
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
0116_gunzip
2001/07/10(火) 17:31ID:???／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ところで、例のものは出来たの？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ すみません。もう少し待ってください・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
# 夏風邪ひいてしまい、土日月と38度の熱で枕から頭が上がらなかった・・・
# 申し訳ない >16氏
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 今日明日中に仕上げるんだよ。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（∀・ ；） |＼|＼ ＜ 頑張りますぅ............
（ ） (； ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣⊂＿ ＼丿＿
￣￣￣日∇￣＼| SOTEC|＼
￣ ======= ＼
0117_gunzip
2001/07/11(水) 06:21ID:???／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 取りあえずThreadView.pmは書いた.....っと。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（；・∀・）y━~~ ∧ ∧ ﾊｯ ＜ ってgetTargetThread()も変更しないといけないのか....。
（つ 目 ） (；ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
011816
2001/07/11(水) 12:11ID:OQ6S3gKE| _gunzipさんモジュールまで作ってますよ。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ なんかだんだん大掛かりになっていくな・・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
っつーかそろそろネタないよ。
なにすればいいんだろう？
2編も読めるようにするとか？
0119_gunzip
2001/07/11(水) 17:02ID:???／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| できた？できた？できた？できた？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 取りあえず上に上げてみました。（暫定）
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
変更点
・レス作成ウィンドウを書き直した。
（複合ウィジェット化し、ReplyWindow.pmとして外に追い出した）
・スレッドビューを取り付けた。
（Listboxウィジェット利用の、軽量 && カラム幅変更可能バージョンは、
拡大すると表示がおかしくなるので見送り。修正が出来れば差し替えます。
カラムの項目について追加するものでも有れば言ってくださいな。）
#カラムをクリックすると、その項目でソートします。
#モジュールのインターフェイスについて、ちゃんと文章化しておいた方がいいかな・・・・
012016
2001/07/11(水) 17:27ID:OQ6S3gKE| _gunzipさん、さすがですね。
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ ・・・・・・ここまでやられると俺の出る幕なくなってきたな・・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
0121名無しさん＠お腹いっぱい。
2001/07/11(水) 19:59ID:???0122名無しさん＠お腹いっぱい。
2001/07/12(木) 11:13ID:Ah5wBUQA| これはすごい！！と？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ マジすげー
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0123名無しさん＠お腹いっぱい。
2001/07/12(木) 18:16ID:???| cygwinがこんなに便利だとは思わなかったと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ gccもあるぞ、すげー
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0124名無しさん＠お腹いっぱい。
2001/07/12(木) 18:45ID:???| CPANの使い方がわからないと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ Tk入れるのにどうすりゃいいの？
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0125名無しさん＠お腹いっぱい。
2001/07/12(木) 19:58ID:???| Cygwinいいけど日本語の使い方が分からんのよ（；；
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ >>124検索ってことを覚えようぜ。WIｎならPPMを使った方がよし。
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0126名無しさん＠お腹いっぱい。
2001/07/13(金) 00:05ID:???今までのperlのイメージがかわりました。こんなこともできるんだぁとおもいました。
ｽﾚを見よう見真似でTkと、Jcodeインストールして１６さんの作ったTｋ2chブラウザ
いじってます。
Cygwinって、DosのCommand.comのようなものですか？
0127名無しさん＠お腹いっぱい。
2001/07/13(金) 03:38ID:???| CygwinとDOSは違うと言った方がいいのでは？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・）y━~~ ∧ ∧ ＜ >>Win環境でGNUツールが使えるぞ。
（つ 目 ） (,,ﾟДﾟ)y━~~ ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣ （つ ＿＿＿
￣￣￣日∇￣￣＼|SOTEC|＼
￣ ======= ＼
0128名無しさん＠お腹いっぱい。
2001/07/13(金) 06:11ID:???Cygwinって、一言で言うとどういうものなんでしょうか。
GNUツールというと、Linux、Unixのなにかぐらいしか思い浮かばないんですが、
Linuxはうごいてるのを触ったぐらいしかないのでサパーリです。ｽﾝﾏｿ
■ このスレッドは過去ログ倉庫に格納されています