弐ch編集のPerl講座 (231ﾚｽ)
上
下
前
次
1-
新
13
:
弐ch編集
02/02/15 10:13 ID:???
AA×
[240|
320
|
480
|
600
|
100%
|
JPG
|
べ
|
ﾚｽ栞
|
ﾚｽ消
]
13: 弐ch編集 [sage] 02/02/15 10:13 ID:??? 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!?になる。簡単だ。 http://medaka.5ch.net/test/read.cgi/php/1013725517/13
書き込みは当然こうなるはずだ分かるな？次は を読み込んでるイメージとしてはスクリプトのその場所に 指定したファイルが展開されてる感じだつまりが ならスクリプトが と書かれているようなイメージなせの最後にがあるかというとは自分が 成功したのか失敗したのか知る時にファイルの最後の式の真偽で判断するからだ だから最後にわざと真をおいてやるわけまったくうちの子のように手がかかる でこうもできる 出力はになる簡単だ
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 218 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
ぬこの手
ぬこTOP
0.031s