◎正当な理由による書き込みの削除について： 生島英之とみられる方へ:
弐ch編集のPerl講座->画像>2枚
動画、画像抽出 ｜｜
この掲示板へ
類似スレ
掲示板一覧 人気スレ 動画人気順
このスレへの固定リンク： http://5chb.net/r/php/1013725517/
ヒント：5chスレのurlに http://xxxx.5chb.net/xxxx のようにbを入れるだけでここでスレ保存、閲覧できます。
なんか俺の偽者がいるから俺の本命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では結構重要な部分だと
俺は個人的には思っている。だからお前も思え。
話を戻すが、これなら一行づつだからメモリも安泰なわけだ。
６で俺が書いたお前のパソコンうんぬんっつーのは、ローカルでやるなら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 でかけまーす。
ホンダのストリームでかね？ｗ
>>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 かねてから弐編へのラブコールをくりかえし、
ホモ疑惑があがっていたミルクカフェの管理人けんすうに、
ホモ確定判決が下った。
同被告人は、これ以外にも弐編姫萌えレスを２ｃｈやmegabbsで繰り返しており、
当然の判決だ、との声が高い。
http://lemmingdead.mine.nu/cgi-bin/megabbs/readres.cgi?bo=kensuu&vi=1002867854155 YIPPIEE!! 2001/12/04(Tue) 01:06
つーか、けんすうの分際で
ユメボタンの会合で女子高校生と茶をｼﾊﾞいてるぢゃねーかｗ
罰として腕立て伏せ２００回+ヴァカ駄精神病院全棟全階永久便所掃除の刑なｗ
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 あーーーーーー！微妙。
これ、ﾏｼﾞ？（汗
／￣￣￣￣￣￣￣￣￣￣
| オカマ に ホモ か
| そら目出てえな!!
∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
(,,ﾟДﾟ)＿＿＿＿.
（つ/~ ※ ※ ＼
／※ ※ ※ ※ ＼
~~~~~~~~~~~~~~~~~~~
電網海の弐編姫
予告編
第壱話 うそっ、君、オトコなのか？？
時は２００２年。
俺は渋谷で３人の男女に追われていた
とある美少女とぶつかり、
ある青い宝石を手に入れる。
それが全ての物語の始まりだったのだ。
気持ちはわかるが、ちゃんとやろうとしてる人を邪魔するのは
単なる荒らしだぞ。
とか書くと今まで弐編が～」とか言い出すやつが出てきそうだけど。
_／二二) ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
/ / / ＼ | 弐編の家臣でござる。
iｰΥー―i ( | このスレはメガビ領民一同の
i!!!!!!!!!!!!iii( > ＜ 唯一の楽しみでござる。
＿ |!!!!!!!!!／ヽ/＿ | 何卒、荒らしはご容赦くだされ。
＼ ￣￣￣￣￣￣￣ ／ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
＼;;;;;;;;;◎;;;;;;;;;;;;;;; ／ ＼
/ | ／ ﾉ ＼
／￣￣￣￣￣￣￣￣￣￣
| >>91-92 巣窟に帰れ！
| >>91-92 巣窟に帰れ！
| >>91-92 巣窟に帰れ！
| >>91-92 巣窟に帰れ！
| >>91-92 巣窟に帰れ！
| >>91-92 巣窟に帰れ！
| >>91-92 巣窟に帰れ！
| >>91-92 巣窟に帰れ！
∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
(,,ﾟДﾟ)＿＿＿＿.
（つ/~ ※ ※ ＼
／※ ※ ※ ※ ＼
~~~~~~~~~~~~~~~~~~~ ΛΛｶﾞﾊﾞｯ! ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
(;ﾟДﾟ)ミ ＜ コタツギコを荒らしに使うなｺﾞﾙｧ！
⊆￣ιノυ 〇 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
姫って秋田の大館出身なんだろ？
秋田美人だね、ﾊｧﾊｧｗ
http://www24.big.or.jp/~faru/nihen.jpg
秋田美人弐編姫ｗ
http://thor.prohosting.com/~mizore/up/img-box/img20020212005936.jpg
姫ﾀﾝ・・・ﾊｧﾊｧﾊｧﾊｧ･････(＊´Д`)･････ﾊｧﾊｧﾊｧﾊｧ
姫はさぁ、30過ぎのｳﾞｽな年増女にうまいこと言いくるめられて乗っかられて
新鮮な種絞り取られて
双子の父親になっちゃったんだよねぇ。。。
もちろんゴムは年増女によって事前に穴開き。
姫、１１６はヲレぢゃないぜ。
見損なうなよ（＠ｗ荒
姫はさぁ、30過ぎのｳﾞｽな年増女にうまいこと言いくるめられて乗っかられて
新鮮な種絞り取られて
双子の父親になっちゃったんだよねぇ。。。
もちろんゴムは年増女によって事前に穴開き。
結城さんのPerlクイズの解答編で載った！
しかし、後々検証すると適当なコードだったなと反省、、、
否定の否定を肯定してしまふ、、、
>>137 http://yasai.2ch.net/test/read.cgi/event/1016036498/ 3/17弐編姫強制女装化計画発動？
1 ：参加するカモさん ：02/03/14 01:21
新宿ロフトイベントでのひろゆき欠席の穴埋めとして、
急遽計画が持ち上がった模様。
計画中の服装としては、
１．東京女学館制式セーラー服（冬仕様）
２．目白女学院制式セーラー服（冬仕様）
３．警視庁女子警察官制服（冬仕様）
４．自衛隊女性士官制服（冬仕様）
等が上がっている模様。
こんな悪巧みが進行中らしい、、、
まぁ138は次の「大攻略ﾏｶﾞｼﾞｿ」の企画の一環なんだろうな。
>137
おまえのコードはマジックナンバーを埋め込みすぎていて、きめうちのために
汎用性・拡張性がないんダヨ！ バーカ。
漏れのコードを見てもっと勉強シロ！！
>>140 漏れとか言っていて自分が誰か示していないｳﾞｧｶﾊｯｹｿ
ｳﾞｧｶの癖に姫に意見するなんて１兆年早いよ低脳（ﾜﾗ
140みたいなｳﾞｧｶは初めてみました
人間、ここまでｳﾞｧｶになれるものなんだね
何か特別な訓練をして、
血の滲む（にじむ）努力をしているんだろうねｗ
>>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における公式称号となったわけだｗ
ばんざーい！ ばんざーい！ ばんざーーーーーーい！！！！！！！！！！！
弐編「姫」概念というのは、
もはやネット界では公認だし、
２ｃｈ的に使用してもOKということになったんだよ？
http://yasai.2ch.net/test/read.cgi/event/1016036498/l5019 ：参加するカモさん ：02/04/06 09:20
弐編姫よりも可愛いというか、
少女性と処女性を感じさせる女を見つけ出すのは結構難しいと思う。
現実の女性というのは、
その実結構ずさんで色気がないものだ。
弐編姫は、少女の恥じらいを濃厚に有した稀な存在だｗ
20 ：参加するカモさん ：02/04/06 09:24
この前の新宿ロフトで、
切込隊長から「また女装したんだ？」とカマをかけられた弐編姫は、
「や、やってませんよ！そ、そんな！だ、だれが言ったんですか？！！！」
などと声のオクターブを揚げ、
恥じらい２０００パーセントの応答を返した。
このとき、俺は思ったものだ。
「この子は、容貌だけでなくて心の中も少女だったのか。」
そう、弐編姫の中には少女が住んでいるｗ
21 ：切込隊長 ★ ：02/04/07 01:19
そうだったね・・・。
>>169 粘着ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!
話した切込が認めたんじゃもうどうしようもないよ、
弐編くん。
「この子は、容貌だけでなくて心の中も少女だったのか。」
そう、弐編姫の中には少女が住んでいるｗ
21 ：切込隊長 ★ ：02/04/07 01:19
そうだったね・・・。
>>172-173 粘着ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!
>>174 もしかして、姫かい？ｗ
俺を待っていてくれたのかい？
ちょっと嬉しいぜｗ
>>175 粘着ｳｾﾞ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!
弐編姫ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!
>>178 Digi/Userの記事は読んでるよ
毎回楽しみにしているｗ
というのはとにかく、
姫はボートをやってたんだなｗ
3/9は確か弐編姫の誕生日だったな。
おめでとう姫ｗ
／￣￣￣￣￣￣￣￣￣￣＼
／ ＼
／ ＼
｜＜(･) ＞ ＜ (･)＞｜
｜ ｜
｜ （。 。） ｜
｜ ｜
｜ ∀ ｜
＼＿＿＿＿＿＿＿＿＿＿＿＿／
／￣￣￣￣￣￣￣￣￣￣＼
／ ＼
／ ＼
｜＜(･) ＞ ＜ (･)＞｜
｜ ｜
｜ （。 。） ｜
｜ ｜
｜ ∀ ｜
＼＿＿＿＿＿＿＿＿＿＿＿＿／
／￣￣￣￣￣￣￣￣￣￣＼
／ ＼
／ ＼
｜＜(･) ＞ ＜ (･)＞｜
｜ ｜
｜ （。 。） ｜
｜ ｜
｜ ∀ ｜
＼＿＿＿＿＿＿＿＿＿＿＿＿／
／￣￣￣￣￣￣￣￣￣￣＼
／ ＼
／ ＼
｜＜(･) ＞ ＜ (･)＞｜
｜ ｜
｜ （。 。） ｜
｜ ｜
｜ ∀ ｜
＼＿＿＿＿＿＿＿＿＿＿＿＿／
／￣￣￣￣￣￣￣￣￣￣＼
／ ＼
／ ＼
｜＜(･) ＞ ＜ (･)＞｜
｜ ｜
｜ （。 。） ｜
｜ ｜
｜ ∀ ｜
＼＿＿＿＿＿＿＿＿＿＿＿＿／
／￣￣￣￣￣￣￣￣￣￣＼
／ ＼
／ ＼
｜＜(･) ＞ ＜ (･)＞｜
｜ ｜
｜ （。 。） ｜
｜ ｜
｜ ∀ ｜
＼＿＿＿＿＿＿＿＿＿＿＿＿／
／￣￣￣￣￣￣￣￣￣￣＼
／ ＼
／ ＼
｜＜(･) ＞ ＜ (･)＞｜
｜ ｜
｜ （。 。） ｜
｜ ｜
｜ ∀ ｜
＼＿＿＿＿＿＿＿＿＿＿＿＿／
／￣￣￣￣￣￣￣￣￣￣＼
／ ＼
／ ＼
｜＜(･) ＞ ＜ (･)＞｜
｜ ｜
｜ （。 。） ｜
｜ ｜
｜ ∀ ｜
＼＿＿＿＿＿＿＿＿＿＿＿＿／
女性ということ？
だとしたらもっと大切に扱わなきゃ。
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/ ∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
(⌒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
lud20250220170324このスレへの固定リンク： http://5chb.net/r/php/1013725517/
ヒント：5chスレのurlに http://xxxx.5chb.net/xxxx のようにbを入れるだけでここでスレ保存、閲覧できます。
TOPへ TOPへ
全掲示板一覧 この掲示板へ 人気スレ |
>50
>100
>200
>300
>500
>1000枚
新着画像
↓「弐ch編集のPerl講座->画像>2枚 」を見た人も見ています：
・ジャンプ編集の真鍋ってアホだよな
・週刊少年マガジンの久保ちゃんの写真酷くない？編集部はアンチ久保？
・【悲報】松本人志さん、自身の失言をテレビ局の編集のせいにしてしまう。もういい加減誰か注意しろよ。
・女性さん、ブチギレ 「ジャンプ編集の“私達はあくまで少年漫画”みたいなスタンスが許せない」 アップデートして！
・花さん「石田はラジオ編集の才能がある。プロにスカウトされてたしモー娘。プロデューサーにラジオ作りたいって言ってた」
・【マスコミ】蓮舫氏が朝日新聞に苦言「この編集のされ方は残念すぎます」 実際の発言は？ (HuffPost) [無断転載禁止]
・【ダイヤモンド編集部】生前贈与「相続7年前」まで課税！65年ぶりルール改正で相続税大増税へ [チミル★]
・【グラビア】「第２回グラビア編集の隠し玉グランプリ」を制した新井愛瞳は群馬が生んだ青春美少女！[12/09] ©bbspink.com
・【ビデオ編集】CyberLink PowerDirector Part3
・OpenBSDでYouTube動画編集
・ジャニー喜多川 - Wikipedia 訃報編集祭り
・野球関連のWikipediaを語りましょう 3編集目
・Wikipediaの神社寺院関連項目の新規作成・編集依頼
・【執筆しよう】理系全般板住民によるWikipedia編集
・昆虫板住人が凄い勢いでWikipediaを編集するスレ
・【巣・EXレイド】OpenStreetMapを編集しよう！ 2km【社会貢献】
・【ゲノム編集】予測外の部位に影響か Unexpected mutations after CRISPR？Cas9 editing in vivo
・Wikipediaって失敗サービスだよね。手動での入力・管理に依存しすぎて編集者が減り続けて、最後はキチガイしか残らなくなった。 [無断転載禁止]©2ch.net
・芸大生の起業講座
・林修の今でしょ！講座
・Z武洋国の日本語講座
・脳トレ先生のお貰い講座
・東進の過去問演習講座について
・あちゅの今でしょ講座１９
・あちゅの今でしょ講座２１
・LEC公認会計士講座Parｔ48
・ネオのストローク講座
・公認会計士講座挫折した場合
・★NHKラジオ 中国語講座★第三課
・サルでも書ける小説講座！【1】
・NHK高校講座総合スレ★4
・FIN税理士試験講座Part1
・知恵遅れのためのラノベ講座
・NHK教育を見て61401倍賢く講座
・芋ジャージ先生のモテモテ男講座
・フリーザ様の就職講座ワロタ
・誰かお絵描き講座をしてくれませんか？
・【悲報】TAC社労士講座崩壊！ 合格160名の悲劇
・アセンション基礎講座①～天の磐戸開く
・NHK教育を見て59673倍賢く高校講座
・NHK教育を見て47663倍賢く高校講座
・ハングル NHKテレビ、ラジオ講座
・◆◆准教授 男のスキンケア講座◆◆
・カルシウムマンによるカルシウム講座１
・[NHK] 将棋フォーカス 45 [講座]
・ソボロ先生の取り逃げ講座 [無断転載禁止]
・マンガでわかる★真知宇 先生の失業保険受給講座
・【NHKラジオ講座】ラジオ英会話 Part 30
・桜井玲香(乃木坂46)専用 テレビでハングル講座 第2話
・林修の今でしょ！講座 3時間スペシャル☆2
・NHK テレビ・ラジオ 英語講座 総合案内所 PART16
・秋元真夏専用 林修の今でしょ！講座3時間SP
・【NHKラジオ講座】基礎英語1・2・3 part49
・★★今日から始めるDDON！初心者講座★★
・☆★低学年の中学受験準備講座★☆ Part6 [無断転載禁止]
・林修の今でしょ！講座 3時間スペシャル☆4
・【NHKラジオ講座】ラジオ英会話 Part 38
・林修の今でしょ！講座 3時間スペシャル★1
・【PSO2 】ねかまプロフェッショナルのねかま講座
・【NHKラジオ講座】ラジオ英会話 Part 29
・【ＮＨＫ】 将棋フォーカス Part24 【講座】
・【ＮＨＫ】 将棋フォーカス Part26 【講座】
・大原 簿記講座（池袋）木村大の妹【史上最悪パワハラトレーナー木村麗子】
・NHK総合を常に実況し続けるスレ 130200 橋本奈穂子の枕営業講座
・NHK テレビ・ラジオ 英語講座 総合案内所 PART15
・●資格のTAC梅田校●司法書士講座●宗教？●
22:36:12 up 49 days, 23:39, 0 users, load average: 9.42, 9.56, 9.20
in 0.70867896080017 sec
@0.70867896080017@0b7 on 030412
|
ブックマークへ