弐ch編集のPerl講座
なんか俺の偽者がいるから俺の本命Perlでたててみた。 とりあえず読み書きできるようにするか。 そうすりゃ自分で掲示板くらい組めるようになるだろうし。 #! /usr/local/bin/perl print "Content-type: text/plain\n"; print "\n"; print "MegabbsXP!\n"; 基本だな。 まずはヘッダを出力。とりあえずプレーンテキストだからtext/plain。 ヘッダと本文の間は一行空けるために改行を入れる。 じゃないとどこまでがヘッダか分からんから。 もちろんこれは"Content-type: text/plain\n\n"ってまとめてOK。 で次は本文を出力してるわけだ。画面にきちんとでれば成功。 #! /usr/local/bin/perl $text = 'MegabbsXP!'; print "Content-type: text/html\n\n" print qq|<html><body text="#FF0000">$text</body></html>|; exit; 次は$textに代入してHTML表示だ。HTMLだからtext/html。 printの次がqq||で囲まれてて変だろ。これはとりあえずqqという関数だと思ってくれ。 意味は「値を""で囲まれてるものとして扱う」かな。 なんでこんなめんどくさいことをするかっていうと、""のなかで"を使いたいから。 普通に"text="#FF0000""ってやったらどこが区切りだかわけ分からんからな。 こういう場合は"text=\"#FF0000\""とエスケープするのが普通だが "を多用するHTMLでいちいちエスケープしてたら見にくいだろ?だから。 まあqq||なので|を使いたいときはエスケープしなくてはならないが…。 ちなみにqq~~とかqq()とかもできるぞ。 最後のexitはまんま終了な。前回書き忘れたが。 俺はお前の精神構造が理解出来ない かまって欲しいのか、奉仕の快感を得たいのか 前に自分の板でやってたのと同じ主旨だろう? 正直、初めはお前の企画に期待してたんだが 最近ではウンザリだ MEGABBS-XP、MEGABBSバグ無し版(現金徴収済)、二編perl講座 他にも企画倒れが有ったら教えてくれ open(IN, './log.dat') or &error; @lines = <IN>; close(IN); これでファイルが読める。どうだ?Perlは俺と同じくらいすごいだろ? openでファイルハンドルINとファイルを結びつける。 openは失敗すると偽を返す。そうするとorが反応して&errorが呼ばれる。 &errorはてきとうなエラー表示関数な。or dieとしてdie関数を呼んでもいいが、 掲示板なら「ファイルが開けませんでした」とか表示したいだろ? だからわざわざエラー表示関数を呼ぶ。 で@lines。ファイルの改行までをひとつのデータとみて どんどん配列にぶちこまれるってわけだ。 そしてクローズ。これでINとファイルはきれいに手を切ることができる。 ところで、この方法にはいろいろ問題がある。配列にファイルの全データが 読み込まれる点だ。極端な話、ファイルが500MBあったらそれが全部配列に 代入されちまう。メモリ上に500MB読み込まれるってわけ。お前のパソコン メモリ何MB?64MB?即死だな。お前が一人で勝手に死ぬのはかまわんが、 サーバー上にはお前以外の人も住んでいるから、その人たちも迷惑をこうむる。 最悪だな。そんなんじゃお前は俺と同類だぞ?ようこそMegabbsへ。 じゃあどうすればいいのかっていうと、次。 open(IN, './log.dat') or die; while($line = <IN>) { print $line; } close(IN); $line=<IN>で$lineに改行まで一行だけ読み込まれるから whileでぐるぐる回して好きな処理をするわけだ。 つまり<IN>が全部返すが一行返すか 自分の相手をみて勝手にやってくれてるようなもんだ。 この「相手が変数か配列か」っていうのはPerlでは結構重要な部分だと 俺は個人的には思っている。だからお前も思え。 話を戻すが、これなら一行づつだからメモリも安泰なわけだ。 6で俺が書いたお前のパソコンうんぬんっつーのは、ローカルでやるならOKってこと。 お前がお前のパソコンで@lines=<IN>するのは問題ない。お前が死ぬだけだし。 だが鯖上には他の人もいるからやめろってこと。 だから例えば少しのデータをお前がローカルで処理したい時は @lines=<IN>の方が簡単だからそれでいいじゃん、と。頭は使いようだぞ? ゴメン、やっぱり飽きたからやめるよ (=´Д`=) じゃっ open(OUT, "> ./log.dat") or die; print OUT "MegabbsXP!\n"; close(OUT); 書き込み。>は上書きの記号だ。覚えろ。 print OUTもなんとなく分かるだろ?OUTに書き込むって意味。 で、クローズ。終わり。 注意すべきは>は上書きだということ。openは最初にファイルを 空にして、それからファイルハンドルとくっつけるイメージだ。 だからor dieの時、つまりopenが失敗した時には ファイルは空、しかも書き込みもできずっていう最悪パターンだ。 常套手段としてはこれ。 $tmp = './log.tmp'; $file = './log.dat'; open(OUT, "> $tmp") or die; print OUT "MegabbsXP!\n"; close(OUT); chmod(0600, $tmp); rename($tmp, $file); テンポラリに書きだして、それが成功したのを見届けてからリネーム。 これならopenに失敗してもlog.datは生きてる。無関係だから。 ちなみにrenameも失敗する時があるのだが…まあそれは自分でorしてくれ。 chmodは宿題。自分で調べろ。 ($name1, $name2, $god) = ('mike', 'mary', 'nihen'); @names = ('mike', 'mary', 'nihen'); @names = qw(mike mary nihen); %data = (name1 => 'mike', name2 => 'mary', god => 'nihen'); %data = qw(name1 mike name2 mary god nihen); 分かるよな?分かるようになれ。代入の話だ。 qwはqqと同じようなもので「配列として扱う」ものだ。空白や改行が区切りとみなされる。 qw[]やqw~~でもOK。 $line = <IN>; ($no, $name, $comment) = split(/<>/, $line); ファイルを処理するループの中でこんなのを見たことがあると思う。 splitで配列が返ってきてるからそれを代入してるわけだ。 ファイルの中身は「1<>nihen<>i am god.」こんな感じだろうな。 じゃあちょっとひねってみるか。 ($log{'no'}, $log{'name'}, $log{'comment'}) = split(/<>/, $line); ハッシュに入れてる。OK?さて。ここでハッシュの配列を表すいい方法がある。 @log{('no', 'name', 'comment')} = split(/<>/, $line); これだ。これをハッシュスライスという。そのままハッシュのいくつかを並べた配列、だな。 見ればなんとなくやってること分かるだろ?勘のいいお前ならこうもいけることに気付くはず。 @log{qw(no name comment)} = split(/<>/, $line); な。 だがqw(no name comment)をスクリプトのいろんな場所にいちいち書くのはコピペでも面倒だし、 途中で要素、例えばmailとかが増えると全部書き換えなくてはならない。女関係なみの面倒臭さだ。 そこでこうしてみる。 @format = qw(no name comment mail); $line = <IN>; @log{@format} = split(/<>/, $line); これで@formatを書き換えるだけでこいつを使う全ての個所に対応できるようになった。俺のようにCOOLだろ? > 9 > だからor dieの時、つまりopenが失敗した時には > ファイルは空、しかも書き込みもできずっていう最悪パターンだ。 > openが失敗したのにファイルが空になるのか? ファイルが空になるということは空文字を書きこめたということでは? 詳しく説明しろYO! print OUT join('<>', @log{@format}),"\n"; 書き込みは当然こうなるはずだ。分かるな?次はrequire。 #! /usr/local/bin/perl require './mytext.pl'; print qq|Content-type: text/html\n\n|; print qq|<html><body text="#FF0000">$text</body></html>|; exit; mytext.plを読み込んでる。イメージとしてはスクリプトのその場所に 指定したファイルが展開されてる感じだ。つまりmytext.plが $text = 'MegabbsXP!'; 1; なら、スクリプトが #! /usr/local/bin/perl $text = 'MegabbsXP!'; 1; print qq|Content-type: text/html\n\n|; print qq|<html><body text="#FF0000">$text</body></html>|; exit; と書かれているようなイメージ。なせmytext.plの最後に1;があるかというと、requireは自分が 成功したのか失敗したのか知る時にファイルの最後の式の真偽で判断するからだ。 だから最後にわざと真をおいてやるわけ。まったくうちの子のように手がかかる…。 で、こうもできる。 # mytext.pl $text = $text . '?'; 1; #! /usr/local/bin/perl $text = 'MegabbsXP!'; require './mytext.pl'; print qq|Content-type: text/html\n\n|; print qq|<html><body text="#FF0000">$text</body></html>|; exit; 出力はMegabbsXP!?になる。簡単だ。 >>12 ああ、書き方がおかしかったな。flockとrenameを抜いてしまっていてはな。 print中にスクリプトが停止された場合というべきだった。 そうするとログが破壊される。途中までしか書けてないから。 #! /usr/local/bin/perl use strict; $text = 'MegabbsXP!'; print qq|Content-type: text/html\n\n|; print qq|<html><body text="#FF0000">$text</body></html>|; exit; use strictとは文字通りstrictというものを使うという意味だ。 てきとうにいうとstrictとは未知の値が出てくるとスクリプトエラーになる能力を 持っているライブラリってとこかな。この状態でスクリプトを組んでいけば エラーが分かりやすくなって開発効率もあがる。 ちなみにこのスクリプトもエラーになるはず。なぜなら$textが いきなり出てきているから。どこの誰なのか明確にしてやる必要があるわけだ。 my $text = 'MegabbsXP!'; これでOK。「どこ」なのかは分からないが、メインスクリプトで「どこ」はmainだということになっている。 そしてmainがmy $text、つまり私の$textですと言ってるわけ。 # mytext.pl package MyText; use strict; my $text = 'god'; 1; #! /usr/local/bin/perl use strict; my $text = 'MegabbsXP!'; require './mytext.pl'; print qq|Content-type: text/html\n\n|; print qq|<html><body text="#FF0000">$text</body></html>|; exit; 「どこ」はpackageで宣言できる。mytext.plではMyTextだな。たしかあらたにpackageが 宣言されるかファイルの終わりまでがMyTextの世界。出力は「MegabbsXP!」…分かるよな? 暗黙で自分のpackageの変数が呼ばれるからだ。つまりmainもpackageのひとつにすぎなかったということ。 MyTextの$textは正式名称「$MyText::text」だ。どこの誰か、だ。 よく見かける&jcode::convertがいい例だな。あれはpackage jcodeの中のconvert関数という意味。 > 15 > MyTextの$textは正式名称「$MyText::text」だ。どこの誰か、だ。 > my $text と局所化されているのでパッケージもヘッタクリもないダロウ? my %tmp = (); @tmp{qw(no name com)} = split(/<>/); my $log = \%tmp これで$tmp{'no'}は$log->{'no'}とも表せるようになった。リファレンスだ。 \%tmpで%tmpのアドレスが取得でき、それが$logに代入されているわけだが… 簡単には「○○のところの」が$logに入ったわけだ。$logの指すところのno。つまり$tmp{'no'}。 だから$log->{'no'}を変更すると$tmp{'no'}も変わる。 my %log = %tmp; の場合、これは単純なコピーなので$log{'no'}を変更しても$tmp{'no'}は変わらない。別物だから当然だ。 %tmpはマイドキュメントにあるフォルダで$logはデスクトップに置いた%tmpへの ショートカットだと言えば分かるか?%logはデスクトップにフォルダごとコピーしたってとこだな。 my $log = []; my $log = {}; これで@tmpや%tmpなどを使わずいきなりリファレンスが作れる。上は配列、下はハッシュ。 $logを元のもののように扱うのには@$log、%$logなどとすればいい。簡単だ。 見やすく分かりやすくする意味で@{$log}、%{$log}としてもいいかもな。 具体的には push(@{$log}, 100); @{$log}{qw(no name com)} = split(/<>/); などと使える。 push(@{$log}, \%tmp); とした時に$log->[0]->{'no'}は$tmp{'no'}だということが分かれば上出来だ。 そうそう、$log = \$textなら$$logか${$log}、な。 で、なぜこんなものを使うかという話だが。一番単純にはメモリだ。 上の例でいえばHDDがもったいないからということ。 まあ他にもいろいろあるがそれは使っていくうちに分かるだろう。 使える場面では使っていったほうがいい。 ゴメン、やっぱり飽きたからやめるよ (=´Д`=) じゃっ > 1 > なんか俺の偽者がいるから俺の本命Perlでたててみた。 > 18に漏れの偽者もいるんだけど スレはたてないでおこう。 このスレは一体何がしたいんですか? 間違った知識をひけらかして。 >>1 とりあえずホンモノの姫の方は、 姫萌え野郎どものために スカートをめくってパンチラを見せてあげることだ。 >>29 胸だけはだけての方がいいなぁ・・・はぁはぁ。 open(OUT, "> ./log.dat") or die; print OUT "姫の尻穴チェーック!!\n"; close(OUT); open(OUT, "> ./log.dat") or die; print OUT "「ふしぎの海のナディア」って感じでやってみるかな。 現在決定したキャストは、 ナディア=弐編姫 ネモ=ひろゆき ガーゴイル=切込み かな。 いや、 ネモ=切込み ガーゴイル=ひろゆき かな。現実上の役職では、 ガーゴイル=切込み ネモ=ひろゆき だが。 \n"; close(OUT); >>35 文字列に改行入れるなよ・・・レベルがばれるぞ。 >>38 はあ、何逝ってんのオマエ?? 白痴は消えろや どんな理由があるにせよ、スレ立て荒らしよりコピペ荒らしの方が規制されやすいの法則。 そろそろ、うるせー馬鹿を貼りまくってる奴に関して、 削除依頼で対応してみようか? スレ立て荒らしもカスだが、コピペ荒らしもカス。 >>1 漏れだったら open FILE,$file ていうふうに括弧つかわないし; splitだって split /<>/, $line; こうするです。。。 というわけでなんとなーく引き継いでperl講座でも。 多分大体の人はwindows環境でしょうからそれを前提に進めていきます。 とりあえず前提知識、環境整備はこれをよんでください http://www.megabbs.com/perl.txt 去年の4月に漏れが書いてたものです。 いまとなってはちと不備が見つかるのですが、まぁ修正するのはめんどし たいしたことではないのでそのままで。 >55 不備の修正を面倒がるのにperl講座するの? じゃーまずはお決まりのHello World!でも ##ここから print "Hello World!\n"; ##ここまで 簡単ですね。 printは print FILEHANDLE list; という書式で、listをFILEHANDLEに書き出すという機能を持っています。 FILEHANDLEは省略すると'STDOUT' listは省略すると$_になります。 この場合 FILEHANDLEは省略されているため print "Hello World!\n";は print STDOUT "Hello World!\n"; と同意ということになります。 STDOUTとはCGIでいうところのブラウザー、コマンドプロンプト上でいうところでの画面(モニター)ということになります。 listの部分にはlist(配列)というだけあって (あたりまえだが)配列で指定でき print "Hello ","world!","\n"; なんてことができます。 はーい!じゃあSTDINは何を指すんですか〜! と、>>58 の実力を探るべく生徒役に徹するテスト。 えーちなみに 文字列を""で囲むと「変数」や「エスケープシーケンス」の解釈がおこなわれて、展開されます。 よって\nを改行として出力したい場合は""で囲むことになります。 単に\nとして表示したい場合は''を使います。 こちらは「変数」、「エスケープシーケンス」の展開が行われません。 >>59 STDINとは標準入力で、 CGIでいうところのPOSTやGETリクエストにおける httpヘッダーの後の空行の後の部分で コマンドプロンプト上でいうところのキーボード入力になります。 STDOUT=Standard Out STDIN=Standard In print STDOUT "姫一発ヤラセロハァハァw\n" >>60 >GETリクエストにおけるhttpヘッダーの後の空行の後の部分で 例えばCONTENT-TYPE: text/html\n\n以下の通常HTMLソースと呼ばれる部分のことで良いんだよね。先生。 %a.pl < a.txt > b.txt おいおい、STDOUTは画面でSTDINはキーボード入力だけじゃないのかよ。と不良学生に豹変するテスト。 >>64 >例えばCONTENT-TYPE: text/html\n\n以下の通常HTMLソースと呼ばれる部分のことで良いんだよね。先生。 んーとそれはレスポンス部分だよね? リクエストのボディの部分がSTDINになるんだよ。 %a.pl < a.txt > b.txt えと、まぁ確かに画面ではないんだけど 本来画面に出力されるものを他のファイル(など)にリダイレクトしてる、、、 んだとおもう。 いや詳しいところは知らないや((≡´Д`≡)) スマソ ま、とりあえず今日のところはでかけまーす。 明日の今ぐらいの時間にまた質問(いじめ質問含)にでも答えながらすすめていきまーす。 >>67 でかけまーす。 ホンダのストリームでかね?w >>65 HTTPリクエストって\n\nが終端記号で後には何も続かないと思ってたよ。アタシの宿題にしようっと。 標準出力とは「データを渡されることができる何か」です。 実体はそのときの状態によって異なります。 例えば、STDOUTが画面に割り当てられている場合(デフォルトのことが多い)は文字列を表示。 プリンタなら文字列を印刷。 ファイルならそのファイルに出力内容を保存。 ロボットの手を割り当てればprintfでロボットの手を制御できたりも。 STDINも同じ概念。 入力元はキーボードだったりファイルだったり温度センサーだったりします。 おおー、マトモにやってくれそうな予感ー。 期待してるよー > 60 > 単に\nとして表示したい場合は''を使います。 > こちらは「変数」、「エスケープシーケンス」の展開が行われません。 > シングルクウォート内にある ¥¥ および ¥’はどうなんだYO! >>74 ¥'はともかく\\ってエスケープされるの? けどそれ、屁理屈レベルだぞ・・・。 > 75 そんなの次を実行してみればわかるだRO! これを屁理屈レベルといってうやむやに する人には所詮プログラミングなんて無理無理! $a= '\\'; $b= '\\\\'; print "\$a=$a: \$b=$b\n"; >>72 STDIN、STDOUTの件は了解。 漏れの認識不足でした。 HTTPリクエストの件は googleで見つけたここらへんを参照 http://docs.iplanet.com/docs/manuals/enterprise/41/ja/ag/esaphttp.htm#1004513 RFCとかを見たほうが確実なんだろうけど 日本語みつかんなかったんで断念。。。もちっとさがせばあるかも。 >>74-76 ここらへんは明日あたりに持ち越しー。 またもや漏れの認識不足があたかも、、、 はぁ、、、だめだな、、、 >>77 姫、phpなんて勉強するヒマがあったら 英語勉強しな。 RFC読め ''とエスケープシーケンスの話、明日にもちこそーかとおもったけど 安らかに眠れそうになさそうなんでちと調べました。 えー、シングルクォーテーションの中で唯一解釈されるエスケープシーケンスとして 「\\」と「\'」 があるようです。 後者はクォーテーション自身をあらわすためにあり 前者はエスケープに使われる\記号をあらわすためです。 てかんじですかねー。 >>79 phpやってないし(笑 >英語勉強しな。 たしかにねー。。。英語のドキュメント読めないのはちと痛いよなー。。。 勉強したいが。。。 >>80 なぁに、まずは勉強さ。 Give me your anal virginity. >>85 かねてから弐編へのラブコールをくりかえし、 ホモ疑惑があがっていたミルクカフェの管理人けんすうに、 ホモ確定判決が下った。 同被告人は、これ以外にも弐編姫萌えレスを2chやmegabbsで繰り返しており、 当然の判決だ、との声が高い。 http://lemmingdead.mine.nu/cgi-bin/megabbs/readres.cgi?bo=kensuu&vi=1002867854155 YIPPIEE!! 2001/12/04(Tue) 01:06 つーか、けんすうの分際で ユメボタンの会合で女子高校生と茶をシバいてるぢゃねーかw 罰として腕立て伏せ200回+ヴァカ駄精神病院全棟全階永久便所掃除の刑なw 160 YIPPIEE!! 2001/12/06(Thu) 03:18 >>155 ただの女子高生じゃない。スタアの恋に出てるアイドル。 164 けんすう 2001/12/06(Thu) 11:51 >160 かわいかった、、、 173 YIPPIEE!! 2001/12/09(Sun) 10:02 >>164 <160>弐編姫とどっちが可愛かったんだ?(マラ 174 けんすう 2001/12/10(Mon) 01:24 >>173 あーーーーーー!微妙。 これ、マジ?(汗 / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ | オカマ に ホモ か | そら目出てえな!! ∧ ∧ |/\_________ (,,゚Д゚)____. (つ/~ ※ ※ \ /※ ※ ※ ※ \ ~~~~~~~~~~~~~~~~~~~ 電網海の弐編姫 予告編 第壱話 うそっ、君、オトコなのか?? 時は2002年。 俺は渋谷で3人の男女に追われていた とある美少女とぶつかり、 ある青い宝石を手に入れる。 それが全ての物語の始まりだったのだ。 気持ちはわかるが、ちゃんとやろうとしてる人を邪魔するのは 単なる荒らしだぞ。 とか書くと今まで弐編が〜」とか言い出すやつが出てきそうだけど。 _/二二) / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ / / / \ | 弐編の家臣でござる。 iーΥー―i ( | このスレはメガビ領民一同の i!!!!!!!!!!!!iii( > < 唯一の楽しみでござる。 _ |!!!!!!!!!/ヽ/_ | 何卒、荒らしはご容赦くだされ。 \  ̄ ̄ ̄ ̄ ̄ ̄ ̄ / \_______________ \;;;;;;;;;◎;;;;;;;;;;;;;;; / \ / | / ノ \ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ | >>91-92 巣窟に帰れ! | >>91-92 巣窟に帰れ! | >>91-92 巣窟に帰れ! | >>91-92 巣窟に帰れ! | >>91-92 巣窟に帰れ! | >>91-92 巣窟に帰れ! | >>91-92 巣窟に帰れ! | >>91-92 巣窟に帰れ! ∧ ∧ |/\_________ (,,゚Д゚)____. (つ/~ ※ ※ \ /※ ※ ※ ※ \ ~~~~~~~~~~~~~~~~~~~ ΛΛガバッ! / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ (;゚Д゚)ミ < コタツギコを荒らしに使うなゴルァ! ⊆ ̄ιノυ 〇 \____________________ 姫って秋田の大館出身なんだろ? 秋田美人だね、ハァハァw http://www24.big.or.jp/ ~faru/nihen.jpg 秋田美人弐編姫w http://thor.prohosting.com/ ~mizore/up/img-box/img20020212005936.jpg 姫タン・・・ハァハァハァハァ・・・・・(*´Д`)・・・・・ハァハァハァハァ 姫はさぁ、30過ぎのヴスな年増女にうまいこと言いくるめられて乗っかられて 新鮮な種絞り取られて 双子の父親になっちゃったんだよねぇ。。。 もちろんゴムは年増女によって事前に穴開き。 姫、116はヲレぢゃないぜ。 見損なうなよ(@w荒 姫はさぁ、30過ぎのヴスな年増女にうまいこと言いくるめられて乗っかられて 新鮮な種絞り取られて 双子の父親になっちゃったんだよねぇ。。。 もちろんゴムは年増女によって事前に穴開き。 結城さんのPerlクイズの解答編で載った! しかし、後々検証すると適当なコードだったなと反省、、、 否定の否定を肯定してしまふ、、、 >>137 http://yasai.2ch.net/test/read.cgi/event/1016036498/ 3/17弐編姫強制女装化計画発動? 1 :参加するカモさん :02/03/14 01:21 新宿ロフトイベントでのひろゆき欠席の穴埋めとして、 急遽計画が持ち上がった模様。 計画中の服装としては、 1.東京女学館制式セーラー服(冬仕様) 2.目白女学院制式セーラー服(冬仕様) 3.警視庁女子警察官制服(冬仕様) 4.自衛隊女性士官制服(冬仕様) 等が上がっている模様。 こんな悪巧みが進行中らしい、、、 まぁ138は次の「大攻略マガジソ」の企画の一環なんだろうな。 >137 おまえのコードはマジックナンバーを埋め込みすぎていて、きめうちのために 汎用性・拡張性がないんダヨ! バーカ。 漏れのコードを見てもっと勉強シロ!! >>140 漏れとか言っていて自分が誰か示していないヴァカハッケソ ヴァカの癖に姫に意見するなんて1兆年早いよ低脳(ワラ 140みたいなヴァカは初めてみました 人間、ここまでヴァカになれるものなんだね 何か特別な訓練をして、 血の滲む(にじむ)努力をしているんだろうねw >>138 弐編姫セーラー服実装計画 (PNSUIP=Princess Nihen Sailor's Uniform Implementation Project)か・・・ PNSUIPは当然写真撮影計画も包含していると考えていいんだろうな? PNSUIPに関しては、 どの制服を姫に着せるかで相当の意見の対立があるようです。 マックの女子バイトの制服が候補に入っていないのは 「残念です」(ロイエンタールの声で) PNSUIPって言い出したの、マガジソの編集人だっけ? 黒○とかいう。 で、○の○も○と○込○○がのって決定だろ。 PNSUIPと一緒に弐編姫のパンティ即売会もあるそうです 性器表現1 I ==> )*( princess_nihen 俺のティンポを弐編姫の尻穴に代入(assignment)する 弐編姫が新宿ロフトに来てました。 セーラー服着てたよ。 ああ、やっぱ女装好きなんだなとオモタ 性器表現 I ==> )*( princess_nihen 俺のティンポを弐編姫の尻穴に代入(assignment)する I==E+<L|princess_nihen 弐編姫の左の胸の乳首を揉む I==C+<R|princess_nihen 弐編姫の右の胸の乳首をつかむ ついにmegabbsに「姫」鯖ができたな。 これで「弐編姫」はmegabbsにおける公式称号となったわけだw ばんざーい! ばんざーい! ばんざーーーーーーい!!!!!!!!!!! 弐編「姫」概念というのは、 もはやネット界では公認だし、 2ch的に使用してもOKということになったんだよ? http://yasai.2ch.net/test/read.cgi/event/1016036498/l5019 :参加するカモさん :02/04/06 09:20 弐編姫よりも可愛いというか、 少女性と処女性を感じさせる女を見つけ出すのは結構難しいと思う。 現実の女性というのは、 その実結構ずさんで色気がないものだ。 弐編姫は、少女の恥じらいを濃厚に有した稀な存在だw 20 :参加するカモさん :02/04/06 09:24 この前の新宿ロフトで、 切込隊長から「また女装したんだ?」とカマをかけられた弐編姫は、 「や、やってませんよ!そ、そんな!だ、だれが言ったんですか?!!!」 などと声のオクターブを揚げ、 恥じらい2000パーセントの応答を返した。 このとき、俺は思ったものだ。 「この子は、容貌だけでなくて心の中も少女だったのか。」 そう、弐編姫の中には少女が住んでいるw 21 :切込隊長 ★ :02/04/07 01:19 そうだったね・・・。 >>169 粘着キタ━━━━━━(゚∀゚)━━━━━━ !!!!! 話した切込が認めたんじゃもうどうしようもないよ、 弐編くん。 「この子は、容貌だけでなくて心の中も少女だったのか。」 そう、弐編姫の中には少女が住んでいるw 21 :切込隊長 ★ :02/04/07 01:19 そうだったね・・・。 >>172-173 粘着キタ━━━━━━(゚∀゚)━━━━━━ !!!!! >>174 もしかして、姫かい?w 俺を待っていてくれたのかい? ちょっと嬉しいぜw >>175 粘着ウゼ━━━━━━(゚∀゚)━━━━━━ !!!!! 弐編姫キタ━━━━━━(゚∀゚)━━━━━━ !!!!! >>178 Digi/Userの記事は読んでるよ 毎回楽しみにしているw というのはとにかく、 姫はボートをやってたんだなw 3/9は確か弐編姫の誕生日だったな。 おめでとう姫w / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\ / \ / \ |<(・) > < (・)>| | | | (。 。) | | | | ∀ | \____________/ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\ / \ / \ |<(・) > < (・)>| | | | (。 。) | | | | ∀ | \____________/ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\ / \ / \ |<(・) > < (・)>| | | | (。 。) | | | | ∀ | \____________/ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\ / \ / \ |<(・) > < (・)>| | | | (。 。) | | | | ∀ | \____________/ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\ / \ / \ |<(・) > < (・)>| | | | (。 。) | | | | ∀ | \____________/ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\ / \ / \ |<(・) > < (・)>| | | | (。 。) | | | | ∀ | \____________/ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\ / \ / \ |<(・) > < (・)>| | | | (。 。) | | | | ∀ | \____________/ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\ / \ / \ |<(・) > < (・)>| | | | (。 。) | | | | ∀ | \____________/ 女性ということ? だとしたらもっと大切に扱わなきゃ。 urlは? / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\ Λ_Λ | 君さぁ こんなスレッド立てるから | ( ´∀`)< 厨房って言われちゃうんだよ | ( ΛΛ つ >―――――――――――――――――――‐< ( ゚Д゚) < おまえのことを必要としてる奴なんて | /つつ | いないんだからさっさと回線切って首吊れ | \____________________/ (-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ… (∩∩) (∩∩) (∩∩) (-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ… (∩∩) (∩∩) (∩∩) (-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ… (∩∩) (∩∩) (∩∩) ━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━― ★私は毎月確実に収入が入り、すごく助かっています★ 安心で確実、変な資金はまったく要りません。 ちょっとの努力と、根気だけです。 http://www.h2.dion.ne.jp/ ~m_oka/moemoe/afelli.html (・∀・)イイ懸賞サイト、お小遣いサイトをピックアップして紹介しています 月に1万円以上は稼げそうにないけど、4000円ぐらいなら稼げそうです 無料登録するだけで商品券が貰えるサイトなども載せてあります http://f15.aaacafe.ne.jp/ ~suikas/present.html オールスターでカツノリと川崎憲次郎のバッテリーを実現させよう!! https://allstar.sanyo.co.jp/vote/ ∧_∧ ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。 =〔~∪ ̄ ̄〕 = ◎――◎ 山崎渉 __∧_∧_ |( ^^ )| <寝るぽ(^^) |\⌒⌒⌒\ \ |⌒⌒⌒~| 山崎渉 ~ ̄ ̄ ̄ ̄ ∧_∧ ∧_∧ ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。 =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕 = ◎――――――◎ 山崎渉&ぼるじょあ (⌒V⌒) │ ^ ^ │<これからも僕を応援して下さいね(^^)。 ⊂| |つ (_)(_) 山崎パン 初めてこの板来たけどゴミだな。。。 お前らに板いらんだろ? (,, ・∀・) と ) Y /ノ 人 / ) ガッ ∩∧_.< > /し' //. ヽ(`Д´V(_フ彡 >>219 _ |O\ | \ キリキリ ∧|∧ \ キリキリ ググゥ>(;⌒ヽ \ ∪ | (~) ∪∪ γ´⌒`ヽ ) ) {i:i:i:i:i:i:i:i:} ( ( ( ´・ω・)、 (O ⌒ )O ⊂_)∪ 転職の際に必ず思い出してください。 下記の条件が全て当てはまる会社にご注意下さい。 ・IT系 in 東京 ・転職会議で2.5点 ・転職会議の「その他>2ch情報」の欄で過去の労基2chスレが表示される use strict; use warnings; my $test = 'aaa444111aAAA'; while ($test =~ /[a-z]/g){ print $&,"\n"; } とした時、 a a a a と縦に表示されるんじゃなくて aaaaと横に表示したいのですが、どうしたらよいのでしょうか? 誰でも簡単にネットで稼げる方法など 参考までに、 ⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。 グーグル検索⇒『半藤のブブイウイウレレ』 WCUQQPTGMS read.cgi ver 07.5.1 2024/04/28 Walang Kapalit ★ | Donguri System Team 5ちゃんねる