とりあえず読み書きできるようにするか。
そうすりゃ自分で掲示板くらい組めるようになるだろうし。
print "Content-type: text/plain\n";
print "\n";
print "MegabbsXP!\n";
基本だな。
まずはヘッダを出力。とりあえずプレーンテキストだからtext/plain。
ヘッダと本文の間は一行空けるために改行を入れる。
じゃないとどこまでがヘッダか分からんから。
もちろんこれは"Content-type: text/plain\n\n"ってまとめてOK。
で次は本文を出力してるわけだ。画面にきちんとでれば成功。
$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講座
他にも企画倒れが有ったら教えてくれ
@lines = <IN>;
close(IN);
これでファイルが読める。どうだ？Perlは俺と同じくらいすごいだろ？
openでファイルハンドルINとファイルを結びつける。
openは失敗すると偽を返す。そうするとorが反応して&errorが呼ばれる。
&errorはてきとうなエラー表示関数な。or dieとしてdie関数を呼んでもいいが、
掲示板なら「ファイルが開けませんでした」とか表示したいだろ？
だからわざわざエラー表示関数を呼ぶ。
で@lines。ファイルの改行までをひとつのデータとみて
どんどん配列にぶちこまれるってわけだ。
そしてクローズ。これでINとファイルはきれいに手を切ることができる。
ところで、この方法にはいろいろ問題がある。配列にファイルの全データが
読み込まれる点だ。極端な話、ファイルが500MBあったらそれが全部配列に
代入されちまう。メモリ上に500MB読み込まれるってわけ。お前のパソコン
メモリ何MB？64MB？即死だな。お前が一人で勝手に死ぬのはかまわんが、
サーバー上にはお前以外の人も住んでいるから、その人たちも迷惑をこうむる。
最悪だな。そんなんじゃお前は俺と同類だぞ？ようこそMegabbsへ。
じゃあどうすればいいのかっていうと、次。
while($line = <IN>) {
print $line;
}
close(IN);
$line=<IN>で$lineに改行まで一行だけ読み込まれるから
whileでぐるぐる回して好きな処理をするわけだ。
つまり<IN>が全部返すが一行返すか
自分の相手をみて勝手にやってくれてるようなもんだ。
この「相手が変数か配列か」っていうのはPerlでは結構重要な部分だと
俺は個人的には思っている。だからお前も思え。
話を戻すが、これなら一行づつだからメモリも安泰なわけだ。
６で俺が書いたお前のパソコンうんぬんっつーのは、ローカルでやるならOKってこと。
お前がお前のパソコンで@lines=<IN>するのは問題ない。お前が死ぬだけだし。
だが鯖上には他の人もいるからやめろってこと。
だから例えば少しのデータをお前がローカルで処理したい時は
@lines=<IN>の方が簡単だからそれでいいじゃん、と。頭は使いようだぞ？
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は宿題。自分で調べろ。
@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だろ？
> だからor dieの時、つまりopenが失敗した時には
> ファイルは空、しかも書き込みもできずっていう最悪パターンだ。
>
openが失敗したのにファイルが空になるのか？
ファイルが空になるということは空文字を書きこめたということでは？
詳しく説明しろYO!
書き込みは当然こうなるはずだ。分かるな？次は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!?になる。簡単だ。
ああ、書き方がおかしかったな。flockとrenameを抜いてしまっていてはな。
print中にスクリプトが停止された場合というべきだった。
そうするとログが破壊される。途中までしか書けてないから。
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関数という意味。
> MyTextの$textは正式名称「$MyText::text」だ。どこの誰か、だ。
>
my $text と局所化されているのでパッケージもヘッタクリもないダロウ？
@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がもったいないからということ。
まあ他にもいろいろあるがそれは使っていくうちに分かるだろう。
使える場面では使っていったほうがいい。
> なんか俺の偽者がいるから俺の本命Perlでたててみた。
>
18に漏れの偽者もいるんだけど スレはたてないでおこう。
間違った知識をひけらかして。
理解する必要なし。バカにされるっす。
偽物の方が役に立っていたのだが。
とりあえずﾎﾝﾓﾉの姫の方は、
姫萌え野郎どものために
ｽｶｰﾄをめくってﾊﾟﾝﾁﾗを見せてあげることだ。
胸だけはだけての方がいいなぁ・・・はぁはぁ。
print OUT "姫の尻穴ﾁｪｰｯｸ！!\n";
close(OUT);
まさにディスクのゴミだなｗ。
print OUT "「ふしぎの海のナディア」って感じでやってみるかな。
現在決定したキャストは、
ナディア＝弐編姫
ネモ＝ひろゆき
ガーゴイル＝切込み
かな。
いや、
ネモ＝切込み
ガーゴイル＝ひろゆき
かな。現実上の役職では、
ガーゴイル＝切込み
ネモ＝ひろゆき
だが。
\n";
close(OUT);
文字列に改行入れるなよ・・・レベルがばれるぞ。
本当なら\nっていちいち書くよ、無論ｗ
はあ、何逝ってんのオマエ？？ 白痴は消えろや
姫、生理か？ｗ
削除依頼で対応してみようか？
スレ立て荒らしもカスだが、コピペ荒らしもカス。
( ´ ・∀・｀) うるせー馬鹿！
漏れだったら
open FILE,$file
ていうふうに括弧つかわないし;
splitだって
split /<>/, $line;
こうするです。。。
多分大体の人はwindows環境でしょうからそれを前提に進めていきます。
自分の板でやれよ、カマ
http://www.megabbs.com/perl.txt
去年の4月に漏れが書いてたものです。
いまとなってはちと不備が見つかるのですが、まぁ修正するのはめんどし
たいしたことではないのでそのままで。
姫の悪口言うんなら死んでもらうぜ低脳ｗ
不備の修正を面倒がるのにperl講座するの？
##ここから
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";
なんてことができます。
と、>>58の実力を探るべく生徒役に徹するテスト。
文字列を""で囲むと「変数」や「エスケープシーケンス」の解釈がおこなわれて、展開されます。
よって\nを改行として出力したい場合は""で囲むことになります。
単に\nとして表示したい場合は''を使います。
こちらは「変数」、「エスケープシーケンス」の展開が行われません。
>>59
STDINとは標準入力で、
CGIでいうところのPOSTやGETリクエストにおける
httpヘッダーの後の空行の後の部分で
コマンドプロンプト上でいうところのキーボード入力になります。
ではでは
STDIN=Standard In
＞GETリクエストにおけるhttpヘッダーの後の空行の後の部分で
例えばCONTENT-TYPE: text/html\n\n以下の通常HTMLソースと呼ばれる部分のことで良いんだよね。先生。
%a.pl < a.txt > b.txt
おいおい、STDOUTは画面でSTDINはキーボード入力だけじゃないのかよ。と不良学生に豹変するテスト。
＞例えばCONTENT-TYPE: text/html\n\n以下の通常HTMLソースと呼ばれる部分のことで良いんだよね。先生。
んーとそれはレスポンス部分だよね？
リクエストのボディの部分がSTDINになるんだよ。
%a.pl < a.txt > b.txt
えと、まぁ確かに画面ではないんだけど
本来画面に出力されるものを他のファイル（など）にリダイレクトしてる、、、
んだとおもう。
いや詳しいところは知らないや((≡´Д｀≡))
スマソ
明日の今ぐらいの時間にまた質問（いじめ質問含）にでも答えながらすすめていきまーす。
でかけまーす。
ホンダのストリームでかね？ｗ
とっとと帰れ！ ケツ掘ったろか
すまんな低脳、それは俺の仕事だｗ
HTTPリクエストって\n\nが終端記号で後には何も続かないと思ってたよ。アタシの宿題にしようっと。
標準出力とは「データを渡されることができる何か」です。
実体はそのときの状態によって異なります。
例えば、STDOUTが画面に割り当てられている場合（デフォルトのことが多い）は文字列を表示。
プリンタなら文字列を印刷。
ファイルならそのファイルに出力内容を保存。
ロボットの手を割り当てればprintfでロボットの手を制御できたりも。
STDINも同じ概念。
入力元はキーボードだったりファイルだったり温度センサーだったりします。
期待してるよー
> 単に\nとして表示したい場合は''を使います。
> こちらは「変数」、「エスケープシーケンス」の展開が行われません。
>
シングルクウォート内にある ￥￥ および ￥’はどうなんだYO!
￥'はともかく\\ってエスケープされるの？
けどそれ、屁理屈レベルだぞ・・・。
そんなの次を実行してみればわかるだRO! これを屁理屈レベルといってうやむやに
する人には所詮プログラミングなんて無理無理！
$a= '\\';
$b= '\\\\';
print "\$a=$a: \$b=$b\n";
STDIN、STDOUTの件は了解。
漏れの認識不足でした。
HTTPリクエストの件は
googleで見つけたここらへんを参照
http://docs.iplanet.com/docs/manuals/enterprise/41/ja/ag/esaphttp.htm#1004513
RFCとかを見たほうが確実なんだろうけど
日本語みつかんなかったんで断念。。。もちっとさがせばあるかも。
>>74-76
ここらへんは明日あたりに持ち越しー。
またもや漏れの認識不足があたかも、、、
はぁ、、、だめだな、、、
姫、phpなんて勉強するヒマがあったら
英語勉強しな。
RFC読め
安らかに眠れそうになさそうなんでちと調べました。
えー、シングルクォーテーションの中で唯一解釈されるエスケープシーケンスとして
「\\」と「\'」
があるようです。
後者はクォーテーション自身をあらわすためにあり
前者はエスケープに使われる\記号をあらわすためです。
てかんじですかねー。
>>79
phpやってないし（笑
＞英語勉強しな。
たしかにねー。。。英語のドキュメント読めないのはちと痛いよなー。。。
勉強したいが。。。
なぁに、まずは勉強さ。
Give me your virginity.
姫、
ネタと断っているとはいえ、
元服の野郎がこんなことを書いていたぜ。
懲罰しようか？ｗ
かねてから弐編へのラブコールをくりかえし、
ホモ疑惑があがっていたミルクカフェの管理人けんすうに、
ホモ確定判決が下った。
同被告人は、これ以外にも弐編姫萌えレスを２ｃｈや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 巣窟に帰れ！
∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
(,,ﾟДﾟ)＿＿＿＿.
（つ/~ ※ ※ ＼
／※ ※ ※ ※ ＼
~~~~~~~~~~~~~~~~~~~
(;ﾟДﾟ)ミ ＜ コタツギコを荒らしに使うなｺﾞﾙｧ！
⊆￣ιノυ 〇 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
姫ｺﾞﾒﾝ、
愛してるぜｗ
ﾊｧﾊｧｗ
秋田美人だね、ﾊｧﾊｧｗ
秋田美人弐編姫ｗ
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
Zend Framework Part5 (672)
DBの絡んだWEB制作の相場 (376)
【PHP】Lvうｐしたいので宿題ください (261)
XSL/XSLT (540)
ColdFusion (723)
Perlのオブジェクト指向って無理やり実装だなｗ (266)
--log9.info------------------
439.24MHz飯能レピーター (267)
【ALINCO】DJ-G7 2バンド目【アルインコ】 (774)
マルドルよおまえもか (410)
■■■■周波数帳2004■■■■ (853)
FTM-10 sono1 (930)
ここだけ20年時間が進んでいるスレ (343)
★新スプリアス規格★現行無線機が使用不可に！ (617)
【ホラ吹き】7.164MHzについて語ろう 【アサリ】 (478)
もうQSLカード転送も送料着払いでどうだ (650)
アマ無線禁止を訴えるKSOを消そう (780)
【あ〜】次に撤退するメーカはどこ (261)
アフリカとの交信の壁 (897)
○ おまいらが持っているリグを教えて ○ (258)
ラジオライフペディションにおける某氏の行動記録 (924)
人口アース（RFグラウンド） (510)
５９くれたのに捕れない？ (427)
--log55.com------------------
テスト
群馬県のタンクローリー会社
重機土工会社について語ろう
坂道発進
[ニチユ]三菱ロジスネクスト[MHI]
石油タンクローリー運転手専用 その4 o(^_^)o
【三菱ふそう】ファイターを語る Part2【FIGHTER】
■▲■▲ お前のチンポ見せろ！(FD830談)▲■▲■