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

ギコタクの「だから逝ってないでしょ」出張所 (427ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

71: 名梨さん＠お腹いっぱい。 [sage] 2001/06/27(水) 19:24 ID:???

／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 　∧ ∧ 　　　　＜　最大化すると板メニューの幅が増えてウザいね
　　　　　　 　　 　 (,,ﾟДﾟ)y━~~　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　￣￣￣￣￣￣ （つ ＿＿＿
　￣￣￣日∇￣￣＼|.LibL1.|＼
　　　　 　 　￣　　 　　=======　 ＼
　　 　　　　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 　∧ ∧ 　　　　＜　日本語の真中にフォーカスすると化けるな
　　　　　　 　　 　 (,,ﾟДﾟ)y━~~　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　￣￣￣￣￣￣ （つ ＿＿＿
　￣￣￣日∇￣￣＼|.LibL1.|＼
　　　　 　 　￣　　 　　=======　 ＼
　　 　　　　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 　∧ ∧ 　　　　＜　欲を言えば項目を選びやすくして欲し。。。
　　　　　　 　　 　 (,,ﾟДﾟ)y━~~　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　￣￣￣￣￣￣ （つ ＿＿＿
　￣￣￣日∇￣￣＼|.LibL1.|＼
　　　　 　 　￣　　 　　=======　 ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　ほう、くだらない苦情を書き殴ってフィードバックのつもりですか？
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 （　　・∀）　 ∧ ∧ ＜　な、なんですか？あなた・・・
　（　　　　 ）　 (；ﾟДﾟ)　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| LibL1. |＼
　　　 　 　￣　　　=======　　＼

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　僕は出来るPerl Hackerだと逝っているわけだ
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 （　　・∀）　 ∧ ∧ ＜　逝ってないですよ・・・ｿﾝﾅｺﾄ
　（　　　　 ）　 (；ﾟДﾟ)　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| LibL1. |＼
　　　 　 　￣　　　=======　　＼

http://medaka.5ch.io/test/read.cgi/php/991966646/71

74: _gunzip [_crescent] 2001/06/28(木) 16:40 ID:???

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　ところで、「最大化すると板メニューの幅が増えてウザい」という苦情が・・・・
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　 ∧＿∧　　　　　　　　ｶﾀｶﾀ 　　／￣￣￣￣￣￣￣￣￣￣￣￣
　（　・∀・）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|＼
　　　　 　 　￣　　 　　=======　 ＼

http://medaka.5ch.io/test/read.cgi/php/991966646/74

79: 16 [] 2001/07/02(月) 01:52 ID: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;
}
}

http://medaka.5ch.io/test/read.cgi/php/991966646/79

94: _gunzip [sage] 2001/07/02(月) 23:38 ID:???

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

http://medaka.5ch.io/test/read.cgi/php/991966646/94

95: _gunzip [sage] 2001/07/02(月) 23:40 ID:???

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

http://medaka.5ch.io/test/read.cgi/php/991966646/95

147: _gunzip [p_e_r_l_u_s_e_r] 2001/07/18(水) 17:37 ID:???

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

http://medaka.5ch.io/test/read.cgi/php/991966646/147

159: 名無しさん＠お腹いっぱい。 [sage] 2001/07/20(金) 23:18 ID:???

∧＿∧　　ｶﾀｶﾀ　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　（　　　　）　　∧ ∧ ＜　http://www.geocities.co.jp/SiliconValley-PaloAlto/2514/
　（　　　　）　　(,,ﾟДﾟ)　 ＼ここのアイデアを拝借できないものか、と…
￣￣￣￣￣ （つ＿つ＿ ￣￣￣￣￣￣￣￣￣￣￣￣
￣￣￣日∇￣＼| BIBLO |＼
　　　 　 　￣　　　=======　　＼

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　ほう、日本語を書く際にもっと自然な処理をて欲しい、と？
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 （　・∀・）　 ∧ ∧ ＜　な、なんですか？あなた・・・
　（　　⊃ ）　 (ﾟДﾟ；)　　＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
　　　 　 　￣　　　=======　　＼

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　BSやカーソル移動で文字が崩れるのはもうゴメンだ、と
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 （　　・∀）　 ∧ ∧ ＜　そのとおりですよ・・・ｽﾙﾄﾞｲｼﾞｬﾅｲﾃﾞｽｶ
　（　　　　 ）　 (；ﾟДﾟ)　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
　　　 　 　￣　　　=======　　＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　そんなことも出来ない>>16や>>_gunzipは「厨房逝ってよし！」だと…
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 （　・∀・）　 ∧ ∧ ＜　そんな事思ってもいませんって！！
　（　　⊃ ）　 (ﾟДﾟ；)　　＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
　　　 　 　￣　　　=======　　＼

# 協力したくともとても付いていけない…。↑は別に悪気は無いです。気に障ったらｽﾐﾏｾｿ

http://medaka.5ch.io/test/read.cgi/php/991966646/159

上下前次 1-新書関写板覧索設栞歴

あと 260 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.020s