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

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

>>100-101

教えて君全開でした。

大変申し訳ありません。
ついついエラーメッセージをじっくり読むと言うことを怠ってしまったようです。
まだ試してはおりませんが、レスありがとうございました。
もしまた動かない場合は何とか努力致します。
本当にありがとうございました。

いつか皆さんと一緒に色々と作ったり、考えたりできるようがんばります。

凄い…。ここまでできるのか…。(･∀･)ｲｲ!!

Perl/Tkすごいですね！
今までのperlのイメージがかわりました。こんなこともできるんだぁとおもいました。
ｽﾚを見よう見真似でTkと、Jcodeインストールして１６さんの作ったTｋ2chブラウザ
いじってます。
Cygwinって、DosのCommand.comのようなものですか？

>>127
Cygwinって、一言で言うとどういうものなんでしょうか。
GNUツールというと、Linux、Unixのなにかぐらいしか思い浮かばないんですが、
Linuxはうごいてるのを触ったぐらいしかないのでサパーリです。ｽﾝﾏｿ

に、日本語が使えん…＜Cygwin

どこかで日本語パッチでてなかったっけ？

ここの住人の方でもどなたか被害に会われた方もいらっしゃるのではないでしょうか？
インターネット通販「価格COM」で、今や超有名なPC-Successです。
そのショップの真実を暴いたことで、話題沸騰中のスレッド
「サクセスってどうよ?（自作PC板）」がニュース速報板に上陸しました。
今こそこの悪徳業者に正義の鉄拳を振るうときです！！

関係リンク
[自作板] http://piza.2ch.net/test/read.cgi?bbs=jisaku&key=994412588
[ニュース速報] http://kaba.2ch.net/test/read.cgi?bbs=news&key=995051786
[ショップ] http://www.kakaku.com/sku/shopopinion.asp?ShopCD=111
[価格COM] http://www.kakaku.com

ギコtkからの書き込みテスト、書けるかな？

これマジですごいです。
開発がんばってください。

もうやってる人はやってるだろうけど
WINで且つアスキーアートをやってる人は
フォントの設定をMSPゴシック　12ptにすると
ほぼブラウザで見るのと同じに見える。
これならMEでもズレずにAAみれるかも。
（AAのためだけにこれを導入する人がいるかどうか知らんが）

MEマシンにも入れてみたが、なぜかMSPゴシックの12ptだけ指定すると
表示がおかしくなる。うちの環境だけかもしれないけど。
11ptと13ptではいけるんだけど、謎だ。

#?7%00%CCPY-@=PZ5+"P5ZJP^-p*P_-`yPW5KGP5I@P,=P_15$@P_,TP^-&!P5U PHHHPPQu
#soshdrNIDE/7HX40PR553P58APZVX5WtPR-O9P/-ssP5)eP@@RPZX,AP/5oNP5WI'P-"9PS
#?[XP5^?P-UrPRXRNNNNNN#!
#!z[x@YWIrHIBPCPh@@H@@dIA\@IBP[@BPdHogsRErCyFKwlta\`vtS\tamDsMH[AcO[@@C
#a?TB`TpLJLG@[Q@n`LAnP`@npH@sRFp?~o\OBytCspM]@H|BoetAcp`]@H|B\L|N?et@bK@
#puX^gKxA@Hx^K@ANkRO@]_jmRGVpgWLGU~`P@E~K}ZpbpGPEjnKxzy|_WlOygHo~b~~JACq
#\]@P|KwTGVIqFb~zJANbc?wPNUk}\@K`@J\taWso~]]j]p?rlO@iu~jp|PG\AkNbK?wSzSh
#oVzKw?gJsh]_}ulWLASh_ukNaf?wWzSho^b?Tkvkf@@K|r@zp|IWTwkCpe]CH|LGPiOButI
#Cq@]@Kk`UZ~`@BmSh[DzDG?l@BFqGTBRDXkrG[gd_NddU{kroghN_?kqCpJ]PJpCZh|C^By
#x|vx`@BK~BoARJi@d[xr@?NdL|gh^`AsRsOvcaxl@IurB{@Bz\{~SjpbpGW{`Cp@]OB?HpN
#yAPCsigWkkNcd?gKz]MyNUn`N?u~KsjshuOyu~dx{|WWea~~KsboMN?{hKpArv@x_ocHCot
#xAb}^Ks_Nd`|]?lPSS{xo_t~^tRkd@R{xK@XqLAHqLBHqLCNeJ?ayVTirK}[|r@xoonGx@J
#|ErO_NdAa~]\pbQxsQIlErjdXorb|lkpWHg|zR~J@NyAPAQU?Nda~|k{u}Yn@ACncHCTLta
#VGLIobtC|zSMH[AZVex_puAAUD`}KfMo[P@nYWae@@=
#perl %0 %@

use strict;
use Win32;
use Win32::Process;

#load Tk Module(test)
eval{ require Tk };
show_err("Can't load Tk module.") if $@;

#Process start!
Win32::Process::Create(
    $Win32::Process::Create::ProcessObj, #
    "D:\\bin\\perl\\bin\\perl.exe", # Perlインタプリタのfullpath
    "perl gikotk.pl", #
    0, #
    DETACHED_PROCESS, #
    "." # working directory
) or show_err( Win32::FormatMessage(Win32::GetLastError()) );

sub show_err
{
    Win32::MsgBox($_[0], MB_ICONSTOP, "Program Loader Error");
    exit(1);
}

>>147冒頭の不思議な文字群はなに？

ぐは。何を橡狂ったんだ俺は。
>>147のは間違いです。

Windows環境で利用している人で、
起動の度にDOS窓がでるのが嫌な人向け。（CookBookのパクリだが）
http://xbbs21.virtualave.net/xbbs/up/src/up069.gz

starter.comとstarter.pifをgikotk.plと同じディレクトリにコピー、
次に33行目のPerlインタプリタへのパスを修正する。
（デフォルトはC:\Perl\bin\perl.exe）

あとはショートカットを作るなりして、ダブルクリックで起動。

あほな質問なんですがCygwin入れたらPerlがはいってたんですけど、ActivePerl入れなくてもいいってことですか？

>>150
使用シェルが完全にCygwin(bash/zsh)になるんなら入れなくてもいいかも。
なんたってCPAN.pmを使ってモジュールをインストールできる！
(でもLWPが最初から入っていない上にデフォルトのMakefileじゃうまくいかん…。ヘタレなんで諦め）
これで日本語関係がバッチリならいいんだけどねぇ…。