ギコタクの「だから逝ってないでしょ」出張所

>>14
Perlでブラウザって作れるんですか？（厨房質問ｽﾏｿ ﾃﾞﾓ知りたいの）
どこかにサンプル無いですか？

>>15
perlだからブラウザ作れないって事はないと思うぞ。
ウインドウベースにするとめんどくさそうだが・・・・
作ってみようかなー。

>>15
http://fsinfo.cs.uni-sb.de/~abe/wApua/

>>16
目から鱗がボロボロと出てきました。
作ってみてくださいよ〜
>>17
ありがとうございます。これカッコイイかも…

>>17
そのページの下にあるスクリプトが最高。

% perl
$$=42;$_=qq 93233313242132627322017304228173024422013152317309;while(!!$_){$:=
$|++;s$[1-4][0-8]$$e;$==$&;$\=pack c,$;=$|.$:;$=+=$=!=$$?$$:-$=-$;;$,=$=+$$;$@
.=pack c,$!!=$$-$;?!!$!!=$:?$=+$$:$,-$$:$,^$|<<chr$;+$|+$$;$!=$,;$|=$:}print$@

Just Another Perl Hacker

>>20
ｶｺｲｲﾅ…

＞＞１７
Perlを侮っていた…

>>17
むむ。
使ってみたいですがActevPerlだとうまくいかないっぽいです…無念。

# まずmakeは失敗
# binでperl -Mlib=../ wApuaでも動かず…

しかしこれならPerlによる2chブラウザも夢ではないような…(笑)

ブラウザじゃなくて2chクライアントを作ろうぜ。

>いかんせんTixGridウィジェットが重たすぎる.......。
Listbox並べればｲｲだけか。

>>27
>ちなみに、かちゅーしゃライクなポップアップは$TextWidget->tagBind()で簡単に実装できるよ。
もっと詳しく教えて_gunzipたん

>>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);
}
---------------------------------------

今度新しく5,000サイトとの共有を目指す
宣伝掲示板、その名もおりーぶおじさんの
超共有宣伝掲示板を設置しました。是非み
なさん、共有してください。先着50名様だ
けバナーリンクします。26番目の掲示板と
して設置してますので、そこをクリックして
参加の方法を見て早くご参加くださいませ。

おりーぶおじさんのホームページ
http://home9.highway.ne.jp/cym10262/

>>35
なるほどーサンクスｖ
Perl/Tkって面白いな♪

わー本当に作ってくれたんですか！ありがとうですです。
とりあえず使ってみた感想…
を書こうとしたら031の方はメニューは大丈夫なんだけど下の部分が文字化け。（うちの設定が悪いんかな？）
033の方はなんかWidget.pmとAfter.pmがbad anchor positionだと怒られる…
んー厨房ですまんです。。

age

なんでだろう？
うちだと動いてるけど。
Tkが4.x系統だったりしないよねぇ？

っつーか誰も反応ないから破棄しようかと思ってたんだが（ｗ
これからLinuxにもTk入れてみるか・・・・

あーなんかMakeにやたら時間かかった。さすがPentium133だけのことはあるな。
そりゃともかく、うちでは31も33もちゃんと動いたぞ。
Linuxだとすごい勢いで文字化けしてた風だけど、半角カナのせいみたい。
どうしたらいいんだろ・・・・
文字がずれるのはモナーフォントとか入れてもらうとして。

>>45
とりあえず $textfont = ... と $menufont = をいじってみてー。

>>48
そんなにリンク地味だった？（ｗ

http://aspn.activestate.com/ASPN/Downloads/ActivePerl/
ここでActivePerl 5.6.1.626を落としてインストール。
その後、コマンドラインで
C>ppm[Enter]
ppm> search Tk[Enter]
ppm> install Tk[Enter]
でOK。

あ、違うか。よく読んでなかった。ｽﾏｿ

<INPUT TYPE=submit VALUE="かきこむ" name="submit">

Cookie => 'NAME; MAIL'

すげーーー
ＡＡ書き忘れるくらいすげーーーー
Ｃやろうと思ってたけどこりゃＰｅｒｌ／Ｔｋの方が面白そうだ（わら

#当然ながら、これは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' );
#続く

    #----------------------------#
    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' );
    
}

それと、-w オプションを付けて起動した場合、
レスを取得するたびに238行目でUse of unintialized 〜警告が出ます。
（原因はまだ調べていません........）

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
と言うような感じです（これだけの情報ではちょっとわからないでしょうか…）

どこが悪いのでしょうか、厨房的な質問ですが。
質問ばかりで申し訳ありません。

うんにゃ。出来なかった気がする。

C:\PERL> ppm install --location=http://www.shonanblue.ne.jp/~kipp/perl/packages/5.6 Jcode

↑こうなら出来るみたい。
参考：http://www.att.or.jp/perl/oldnews.html