トップページ⇒php
1001コメント294KB

Perl コーディング初心者質問コーナー Part26

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん03/07/24 19:48ID:???
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【 スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10
0758nobodyさん03/08/09 18:47ID:9s2Ca0tO
# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p></body>\n";
print "</html>";
0759あぼーんNGNG
あぼーん
0760あぼーんNGNG
あぼーん
0761あぼーんNGNG
あぼーん
0762nobodyさん03/08/09 18:52ID:???
だれかこの荒らし君を
killかrmかなんだかしてやってほしい
0763nobodyさん03/08/09 18:54ID:aJfrmQrg
削除要請しちゃっていい？
0764nobodyさん03/08/09 18:54ID:???
>>762
むしろforkを
0765nobodyさん 03/08/09 18:57ID:???
>>762 削除依頼は逝ってるから判断してくれるっしょ

しかし、美意識のないスクリプトや・・・
0766nobodyさん03/08/09 19:21ID:???
走らせるまでもなく動かないのが見え見えだから相手する気にもなれん
0767nobodyさん03/08/09 20:55ID:???
rm -rf
0768nobodyさん03/08/09 21:13ID:???
◆スクリプト＆コピペ(乱立)荒らし報告スレ7
http://qb.2ch.net/test/read.cgi/operate/1060158648/585

こっちにもあげときました。
0769momo03/08/09 21:29ID:jpYU10pt
http://ime.nu/　のようなCGIを作っているのですが、
http://***.com/~sub/みたいなチルダが入るとバグってしまうんです…
以下にそのまま書いたのでどこを直せばいいのか教えて頂けないでしょうか？
よろしくお願いいたします。


#!/usr/local/bin/perl

print qq|content-type: text/html\n\n
<HTML>
<HEAD>
<TITLE>JUMP</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000">
<B><A href=$ARGV[0]>$ARGV[0]</A></B>
<HR>
次のサイトにジャンプしようとしています。
</BODY>
</HTML>|;
0770nobodyさん03/08/09 21:41ID:???
チルダってわかってるなら変換すりゃいいじゃん。%7Eだっけ。
あと、METAタグを使う理由がわからん…
0771nobodyさん03/08/09 21:43ID:???
ヒアドキュメント知らないのかな？
0772nobodyさん03/08/09 21:49ID:???
>>769
http://pc2.2ch.net/test/read.cgi/php/1059878966/21
0773nobodyさん03/08/09 21:51ID:???
>>772
っち・・・マルチだったのか・・・
0774nobodyさん03/08/09 22:47ID:???
なんかろくなのが来ないね。
0775sage03/08/09 22:47ID:jpYU10pt
sage
0776nobodyさん03/08/09 22:49ID:GqH0THDn
至急教えて頂きたいんですが、
}elsif(a){
}elsif(b){
}elsif(b){
と表示するのと、
}elsif((a)||
(b)||
(c))){
と表示するのとでは効果は同じですよね？
上の方が分かりやすいから私は上を使っているんですが、
何かデメリットはあるんでしょうか？
0777nobodyさん03/08/09 23:03ID:???
>>776
同じじゃない
0778nobodyさん03/08/09 23:13ID:???
>776
俺なら下を使うね。
0779momo03/08/09 23:18ID:???
上の補足です
http://hogehoge.com/jump.cgi?http://yahoo.com/~sub/
のリンクだと
http://yahoo.com/\~sub/となってしまい、うまくhttp://yahoo.com/~sub/に
飛ぶことが出来ないんです
0780nobodyさん03/08/09 23:25ID:???
>>779 マルチがばれたらレスは付かない。
0781nobodyさん03/08/09 23:41ID:???
>>779
失礼ですが貴方は hogehoge.comとyahoo.comのオーナー様でしょうか？
公に使用者が開示されているドメインネームを不当にドキュメント等に用いるマナー違反者が
増えていますので。　念のため確認です。
0782nobodyさん03/08/09 23:51ID:???
まぁ向こうで誘導された感じではあるが…

#! /usr/local/bin/perl
print qq|Content-type: text/html; charset=Shift_JIS

<HTML>
<HEAD>
<TITLE>JUMP</TITLE>
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000">

<B><A href=$ENV{'QUERY_STRING'}>$ENV{'QUERY_STRING'}</A></B>
<HR>
次のサイトにジャンプしようとしています。
</BODY>
</HTML>|;
exit;

これでいいかね
0783あぼーんNGNG
あぼーん
0784nobodyさん03/08/10 00:09ID:???
>>781
こいつ性格悪そうだな（ｗ
0785あぼーんNGNG
あぼーん
0786あぼーんNGNG
あぼーん
0787あぼーんNGNG
あぼーん
0788あぼーんNGNG
あぼーん
0789nobodyさん03/08/10 02:36ID:c9slSjrq
#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;
0790nobodyさん03/08/10 02:36ID:c9slSjrq
srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}
0791nobodyさん03/08/10 02:37ID:c9slSjrq
srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;
0792nobodyさん03/08/10 02:39ID:c9slSjrq
# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えたため、
Player1は喜んだ。「命！！」</p>
<p>Player2は<big>>$kougeki2</big>のダメージを与えたため、
Player1は喜んだ。「炎！！」</p></body>\n";
「つまんねー、馬鹿！」とやじが飛んだ。
print "</html>";
0793あぼーんNGNG
あぼーん
0794nobodyさん03/08/10 03:13ID:???
>>786-793
これも削除依頼かな…。死んでくれ
0795nobodyさん03/08/10 03:16ID:???
これって、リア房か？
削除人は何やってる？
0796nobodyさん03/08/10 03:34ID:???
かかわらんほうがいい。こう言うのは無視がいちばん堪えるんだから。
削除依頼だけしっかりやっときましょう。
0797nobodyさん03/08/10 03:43ID:???
そうだね
所定の回数に達したらアク禁になるわけだし

俺と同じISPじゃなきゃいいが・・・
0798nobodyさん03/08/10 04:47ID:???
>>797
マーフィーの法則。嫌な予感は当たる
0799nobodyさん03/08/10 09:57ID:???
http://qb.2ch.net/test/read.cgi/saku/1030165467/74

俺の書き込みも削除依頼されとる・・・
0800nobodyさん03/08/10 10:05ID:???
日付形式を変換しようとしています。

変換前の形式は、ちょっと特殊で年月日時分となってます。
0308100000

変換後は、クッキー形式にしたいです。
Thu, 01-Jan-1970 00:00:00 GMT;

年、月、日、時、分は、ほぼそのままでOKですが、曜日とGMTへの変換はどのように
すればよいのでしょうか?

よろしくお願いします。
0801あぼーんNGNG
あぼーん
0802nobodyさん03/08/10 10:31ID:9Q9rpSmQ
モジュールABCの関数を使いたいとき、
use ABC; と @ISA = ('ABC'); とは何が違うのですか?
0803nobodyさん03/08/10 10:38ID:???
どうでもいいが、フォームから削除依頼しろよ。
0804nobodyさん03/08/10 10:39ID:???
>>800
自前で計算して用意するか、
time()みたいに、1970年1月1日からの秒数に変換して、そこからlocaltimeで変換するか
0805nobodyさん03/08/10 10:40ID:???
>>800
http://books-support.softbank.co.jp/pn/fumo01.html

>>802
http://www.rfs.jp/sitebuilder/perl/04/03.html
0806nobodyさん03/08/10 10:50ID:???
>>802
後者の方法はサブクラス化という方法で ABC 内の関数を
オーバーライドしたい時などその方法を使用する
…ぐらいしか思いつかないな
0807nobodyさん03/08/10 13:03ID:???
>>799
？あれにかかわったレスも削除して「なかったことに」してもらうのが一番。

ついでに削除屋さんは広告も一括して削除してくれたらありがたいなぁ。
0808nobodyさん03/08/10 13:25ID:???
>>807
依頼者と違いますが、>>73に追加です。削除理由は同じです
削除対象アドレス：
http://pc2.2ch.net/test/read.cgi/php/1059043704/744-750
http://pc2.2ch.net/test/read.cgi/php/1059043704/759-761
http://pc2.2ch.net/test/read.cgi/php/1059043704/768-788 ←ここ!
http://pc2.2ch.net/test/read.cgi/php/1059043704/793

削除理由・詳細・その他：
巨大AA連続投稿(ほぼ同一人物)
荒らしをしている人物は夏の風物詩で、暫く粘着しそうなので、こまめに削除依頼出すのでよろしく。
0809nobodyさん03/08/10 14:29ID:???
>>800
my ($year, $mon, $mday, $hours, $min) = unpack('A2A2A2A2A2', $packed_data);
で返った値をtimegm();につっこむ。$mon-1と$year+100を忘れずに。

>>802
useは@INCを辿ってモジュールを探して、
見つけたら読み込んでimportメソッドを実行する。
importされた関数、変数などが別名(エイリアス)で扱えるようになる。
コンパイル時に処理される。
@ISAはクラス内に呼び出されたメソッドがない場合、
@ISAを辿って目的のメソッドを探して実行するようになる。
実行時に処理される。
0810nobodyさん03/08/10 16:29ID:???
>>809さん、どうも有り難うございます。勉強のために、以下のスクリプトを
作ってみました。

package AB;
sub aloc {
my ($pkg, $a, $b) = @_;
my $obj = bless {"a" => $a, "b" => $b}, $pkg;
return $obj;
}
1;
0811nobodyさん03/08/10 16:30ID:???
(続き)
package X;
use AB;
@ISA = ('AB');
sub new {
my ($pkg, $a, $b, $x) = @_;
my $obj = $pkg->aloc($a, $b);
$obj->{"x"} = $x;
return $obj;
}
1;

#!/usr/bin/perl
use X;
$q = X->new('A', 'B', 'X');
$ans = $q->{'x'};
print "$ans\n"; # Xと表示、OK

試しに、パッケージXの@ISAの行をコメントにしてみると、alocが見つから
ないと言われます - 当然です。
そこで、パッケージABの2行目に、
use Exporter; @ISA = ('Exporter'); @EXPORT_OK = ('aloc');
を挿入し、パッケージXのuseを
use AB('aloc');
に変更してみたら、上手く行きました。

ということで、useと@ISAの機能は分かりましたが、今度は、ABやXのような
クラスを実装する場合、Exporterで輸出するのが良いのか、それとも@ISAで
継承するのが良いのか、が分からなくなりました。
0812あぼーんNGNG
あぼーん
0813nobodyさん03/08/10 16:31ID:c9slSjrq
srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}
0814nobodyさん03/08/10 16:32ID:c9slSjrq
srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;
0815nobodyさん03/08/10 16:32ID:c9slSjrq
# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p></body>\n";
print "</html>";
0816あぼーんNGNG
あぼーん
0817nobodyさん03/08/10 16:37ID:???
ID:c9slSjrq 取り敢えず、NGワードっと、
↓ハイ、次の方どうぞ
0818あぼーんNGNG
あぼーん
0819あぼーんNGNG
あぼーん
0820あぼーんNGNG
あぼーん
0821あぼーんNGNG
あぼーん
0822あぼーんNGNG
あぼーん
0823nobodyさん03/08/10 17:21ID:???
>>c9slSjrq
にゅ速で美味しんぼ連載してるひと？
0824nobodyさん03/08/10 17:28ID:???
だいたいPerlで変なゲーム作ろうとしてる意図が不明。
0825nobodyさん03/08/10 17:47ID:???
キチガイのやることを理解などできるわけがない。
0826nobodyさん03/08/10 19:14ID:???
ID:c9slSjrqの情報調べてみたけど、やっぱり小学生だったよ。
0827nobodyさん03/08/10 20:43ID:???
>>810-811
継承が必要なら@ISAを使う、隠蔽したいなら使わない。かな。
(深く考えた事ないですね。オブジェクト指向なら継承しとけみたいな。)

モジュールはexportした方が便利かと。
(というか、するべきものだと思ってました。)

# 蛇足ですがalocはallocでは。
0828nobodyさん03/08/10 21:37ID:???
>>827さん、レス有り難うございます。

「そこで、パッケージABの2行目に、
use Exporter; @ISA = ('Exporter'); @EXPORT_OK = ('aloc');
を挿入し、パッケージXのuseを
use AB('aloc');
に変更してみたら、上手く行きました。」
と書きましたが、実行できるようにするだけなら、ここまでしなくても、
alocの呼び出しを、AB::alocとするだけで、充分ですよね。

「継承」の意味が良く分からないです(@ISA使わなくても、useで充分じゃない
のかなって思ってしまいます)。
オブジェクト指向の本質が分かってないんでしょうね。

# ご指摘のとおり、alocはallocのつもりでした。
0829nobodyさん03/08/10 22:08ID:???
>>828
Hoge.pm
--------------------------------
package Hoge;
import{ エクスポートな処理 }
--------------------------------
というものがあったとしたら、
use Hoge;
は、
BEGIN{
require Hoge;
Hoge->import;#または、import Hoge;と書いてもあり。
}
を実行しているだけ。
importメソッドがなけりゃ、
BEGIN{ require Hoge; }
と同じ。
だから、クラスによって違うのさ。
0830nobodyさん03/08/10 22:21ID:???
とあるスクリプトで時間を計算して表示させているのですが、
例えば10.99時間を10.59時間という風に小数点以下の部分を
きちんと分にする方法ってありませんか。

今は

my(@time_temp) = split(/\./, $time);
$time_temp[1] = int(60 * $time_temp[1] / 100);
$time = $time_temp[0].'.'.$time_temp[1];

とかやってるのですがもう少しすっきり出来たら良いなあと。
0831nobodyさん03/08/10 22:27ID:???
10.99時間＝10.59時間じゃないだろ
何がしたいのか意味不明
0832nobodyさん03/08/10 22:27ID:???
先程それではおかしいと言う事で表示側で
$time_temp[0]時間$time_temp[1]分
としたので三行目は無しで。
0833nobodyさん03/08/10 22:48ID:???
if(length($time_temp[1]) eq "1"){$time_temp[1] = $time_temp[1] * 10;}
これ加えたほうがいいかと
0834nobodyさん03/08/10 22:54ID:???
print "何時間？\n>";
$time =<>;
chomp($time);
my(@time_temp) = split(/\./, $time);
if(length($time_temp[1]) eq "1"){$time_temp[1] = $time_temp[1] * 10;}
$time_temp[1] = int(60 * $time_temp[1] / 100);
print "$time_temp[0]時間$time_temp[1]分\n";
0835nobodyさん03/08/10 22:56ID:???
$time = sprintf(qq{%02d\.%02d},int($time),($time - int($time))*60);
0836nobodyさん03/08/10 22:57ID:???
>>836
動かしてみ
083783603/08/10 22:58ID:???
ミスった。
>>835ね
0838nobodyさん03/08/10 23:00ID:???
>>828
http://perl.infoware.ne.jp/documents/perlboot.ja.html

>>830
$time = sprintf '%02d 時間 %02d 分', $time, ($time * 60) % 60, $time;
0839nobodyさん03/08/10 23:18ID:64afxySW
perlをダラダラ書いてたら、
一つのファイルで、1500 行
を超えてしまいました。
行数が多いと何か不都合は起きますでしょうか？
お教え下さい。
0840nobodyさん03/08/10 23:27ID:STOMuStS
素朴な疑問。なんで、
print qq|<a href="hoge">fuga</a>|;
ってやればコードが見やすいのに、
いちいち
print "<a href=\"hoge\">figa></a>";
ってやってる人が多いんですか？
qqのほうが、コーディングもよけいなことあんまり考えなくて、はやくすむと思うんだけど
0841nobodyさん03/08/10 23:30ID:???
>840
それを見やすいと思うのはPerlユーザーだけ。
俺は使い分けてるけどね。
0842nobodyさん03/08/10 23:30ID:???
>>838
最後の$time要らん。

>>839
そのスクリプトを保守する人間が困らないのなら別に問題無し。

>>840
最初に覚えた方法が一番分かり易いと思い込んでいる人は多い。
もちろんその方法しか知らない人も多い。
084384003/08/10 23:41ID:???
>>841-842 レスさんくす。
なるほどねー。
自分最初にPerlおぼえて、
そのあとちょっとPHPかじって、
Javaおぼえようかなーて思ってる程度だからなー。
0844nobodyさん03/08/10 23:42ID:???
>>841
C#にも@""構文があるのに。Perlﾕｰｻﾞだけとは心外だな。
0845nobodyさん03/08/11 00:55ID:???
print "何時間？\n>";
$time =<>;
my(@time_temp) = split(/\./, $time);
chomp($time);
if(length($time_temp[1]) eq "1"){$time_temp[1] = $time_temp[1] * 10;}
time = sprintf '%02d 時間 %02d 分', $time, ($time * 60) % 60, $time;
print "<a href=\"hoge\">figa></a>";
$time_temp[1] = int(60 * $time_temp[1] / 100);
print "$time_temp[0]時間$time_temp[1]分\n";
0846あぼーんNGNG
あぼーん
0847あぼーんNGNG
あぼーん
0848nobodyさん03/08/11 00:59ID:???
#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;
0849nobodyさん03/08/11 00:59ID:???
srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}
0850nobodyさん03/08/11 01:00ID:???
srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;
0851nobodyさん03/08/11 01:02ID:???
# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player1は<big>$kougeki1</big>のダメージを受けて混乱した。
<p>Player1は<big>$kougeki1</big>のダメージで野原でクソをし始めた。
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを受けて裸踊りを始めた。
<p>Player2は<big>>$kougeki2</big>のダメージで光浦なみの女にレイプし始めた。</p></p></body>\n";
print "</html>";
0852nobodyさん03/08/11 01:11ID:???
>>840
単に知らないからだと思うが。
0853nobodyさん03/08/11 10:23ID:???
 
0854nobodyさん03/08/11 12:01ID:???
>>839
長くなりすぎると動きません。５００行以内じゃないと動きにくいです。
ちゃんと勉強しろ！オタクやろう！！
0855nobodyさん03/08/11 12:03ID:vd5Ibrol
　　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 　 ∧＿∧∩　／
　　　 （　´∀｀）/＜真珠のＰｅｒｌと何が違うんですか！？
　＿ / /　　 /　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
＼⊂ノ￣￣￣￣＼
　||＼　　　　　　　　＼
　||＼||￣￣￣￣￣||
　||　 ||￣￣￣￣￣||
　 　 .||　 　 　 　 　 ||
0856nobodyさん03/08/11 12:04ID:???
　　　　　　, '　ｓ　　　 ＼::::::::::::i
　　　　　／"""''／ーﾅ-ｔ----|
.　　　　/ 　　,.‐　　 ⌒ 　　　／ﾍ
　　　　｛入｜(･)　　(･)　　　 ||||||| 　　／￣￣￣￣￣￣￣
　　　　　　｜⊂⌒◯-------9） 　＜ 　　　まだ、動かないぜ！ベイビー！！
　　　　　　｜ |||||||||＿　　　　｜ 　　　＼＿＿＿＿＿＿＿
　　　　　　　＼ ﾍ＿／　＼　／￣`＼､
.　　　　　　　　＼、__ i⌒i／, -'"~ 　`ヽ､
　　　　　　　,.‐'´　　　i--i　　　　　　　　＼
　　　　　　　`〈ヽ, -'"~T 　ヽ、　, -'"　~ `ヽ、
　　　　　　　／　（￣　T　　　iヽ、__　　　　　＼.
　　　　　／　　　　（￣T　　　|　　　`ヽ、　　　　｝
　　　　く　　　　　　￣　`ヽ、/__　　　　　　　　/
0857nobodyさん03/08/11 12:07ID:???
　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　|| ($damage < 0) and ($damage = 0);
　　　|| $defense->{'HP1'} -= $damage;はダメージ
　　　|| 　 　 　 　　　　∧＿∧ 　 。
　　　||　　　　　　　　 （　　＾＾ ）／
　　　￣￣￣￣￣￣ （　　　　つ￣￣￣￣￣￣￣￣￣
　 　 　 　 　 　 　 　 / ￣￣￣ ./| lヽ──────────────
　 　 　 　 　 　 　 　 |￣￣￣￣| | |　ダメージを受けると、糞をもらします
￣￣￣￣￣￣￣￣|＿＿＿＿|/ |
　　　　　　　　　　　　 　 　 　 　 　 ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　∧ ∧　　　　∧,,∧　　　∧ ∧
　　　 (・,,　∧▲　　ﾐ　 ∧ ∧　(　　∧ ∧
　　〜（＿(　　∧ ∧＿(　∧ ∧＿ﾐ･д･∧ ∧
　　　　＠（＿(,,・∀・)＠ (　　 *)〜ミ＿ ( 　　,,)
　　　　　　＠（＿__ﾉ　〜（＿__ﾉ　 　 〜（＿__ﾉ
0858nobodyさん03/08/11 13:19ID:???
2chって、鯖/カテゴリ/.../dat/
でアクセスして表示しますよね？
これってこの全てのディレクトリの下にindex.htmlか.cgiかなにかを置いてあって、
それを表示してるってことですよね？
でも
鯖/カテゴリ/.../dat/
これでアクセスしたときと、
鯖/カテゴリ/.../dat/index.htmlでアクセスしたときと、
表示が微妙に違うんです。

どういう仕組みで表示させてるんでしょうか？
■ このスレッドは過去ログ倉庫に格納されています