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

[0001 nobodyさん 03/07/24 19:48 ID:???]

いらっしゃーい、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

[0875 あぼーん NG NG]

あぼーん

[0876 あぼーん NG NG]

あぼーん

[0877 あぼーん NG NG]

あぼーん

[0878 あぼーん NG NG]

あぼーん

[0879 あぼーん NG NG]

あぼーん

[0880 あぼーん NG NG]

あぼーん

[0881 あぼーん NG NG]

あぼーん

[0882 あぼーん NG NG]

あぼーん

[0883 あぼーん NG NG]

あぼーん

[0884 nobodyさん 03/08/12 04:50 ID:???]

50行で動かないってどういうスクリプトだそりゃ。
または博物館行きのスペックのマシンでも使ってんのか？

[0885 nobodyさん 03/08/12 04:53 ID:???]

ほっとけ

[0886 nobodyさん 03/08/12 04:55 ID:???]

>>884
とてつもなく巨大な配列とか使ってたりして(w

[0887 nobodyさん 03/08/12 05:17 ID:???]

無限ループすれば一行でもおもくできるが？

つか、おめぇAA貼ってる馬鹿だろ。みんな放置汁

[0888 nobodyさん 03/08/12 05:21 ID:???]

>>874-882までまた削除依頼でいいだろ
今度はコピペとして依頼してくれって言ってるから、そろそろ（ｒｙ

[0889 nobodyさん 03/08/12 05:27 ID:???]

わざと重くするなら無限ループでもなんでも簡単だが、
50行でうごかねーって騒いでるのは
わざと重くしてるのか？

[0890 nobodyさん 03/08/12 10:40 ID:???]

すいません、CPANって、なんて読むのでしょうか？
しーぱん？しーぴーえーえぬ？

[0891 nobodyさん 03/08/12 10:50 ID:???]

しーぱん

[0892 nobodyさん 03/08/12 10:55 ID:???]

しーぽん

[0893 nobodyさん 03/08/12 11:00 ID:???]

ｼﾊﾟｰｿ

[0894 nobodyさん 03/08/12 11:41 ID:???]

>>890
CPAN (See-Pan)

[0895 あぼーん NG NG]

あぼーん

[0896 あぼーん NG NG]

あぼーん

[0897 あぼーん NG NG]

あぼーん

[0898 あぼーん NG NG]

あぼーん

[0899 あぼーん NG NG]

あぼーん

[0900 あぼーん NG NG]

あぼーん

[0901 あぼーん NG NG]

あぼーん

[0902 あぼーん NG NG]

あぼーん

[0903 nobodyさん 03/08/12 11:55 ID:???]

粘着質だな

[0904 nobodyさん 03/08/12 12:02 ID:???]

そのうち板ごとアク禁されるでしょ

[0905 nobodyさん 03/08/12 13:34 ID:???]

>>874以降の分、削除依頼してきた

[0906 nobodyさん 03/08/12 14:43 ID:???]

激しくPerl初心者で悪いんだが、所有者がWebになってるディレクトリを削除するために（FTPからは削除できない）
それ用の簡単なプログラムを書いてみたんだが５００InternalServerErrorになる。ソースをうｐするのでご教授願いたい。
ttp://amici.dip.jp/~takuho/cgi/hakoniwa_sakujo.txt
KENTWEB配布の文法チェッカーでは異常なしらしいんだが…。

[0907 906 03/08/12 14:44 ID:???]

失敬、アドレス間違えた。
正しくは、
ttp://nd22.abz.jp/cgi/hakoniwa_sakujo.txt

[0908 nobodyさん 03/08/12 14:56 ID:???]

>>906
2行目に
print "Content-type: text/plain\n\n";
を挿入

[0909 03/08/12 14:57 ID:???]

だな

[0910 nobodyさん 03/08/12 15:00 ID:???]

>>906
UNIXで動かしてるのか？
と言うより、CGIとして起動してるのか？

それなら>>908のは必須だよ。

[0911 nobodyさん 03/08/12 15:09 ID:Ehp7RR1Q]

えー、よく分からないんだが、Windowsで書いたPerlのスクリプトを、Linuxのサーバにうｐして走らせてる、でいいのかな？
あと、>>908の言うとおりにスクリプトを変更して走らせたら、なんかDLしますか？みたいなウィンドウが出てきたので、txt/plainをtxt/htmlにしてみたら一応走った。
$sakujp1から$sakujp9までを表示させてみたら全部0　（´Д｀;）ﾏｼﾞｶﾖ

[0912 nobodyさん 03/08/12 15:13 ID:???]

うが、失敬あげてもた

[0913 nobodyさん 03/08/12 15:17 ID:???]

>>911
ディレクトリは空なんだろうね。

[0914 nobodyさん 03/08/12 15:21 ID:???]

>>911
txtじゃなくtextなのだが

[0915 nobodyさん 03/08/12 15:22 ID:???]

>>913
空じゃないといけないのかｗ
スクリプト書き直します

>>914
ああ、こりゃまた失敬。
ちゃんとtextって書いてますよ。

[0916 nobodyさん 03/08/12 16:29 ID:dyQ6VIzM]

定数のみを記載したファイルを各CGIにて読み込んで、
各ページで内容を統一したいのですが、以下の方法では
エラーとなってしまいました。
どなたかご教授お願いします。

# main.cgi

require "inc.pl";
････

# inc.pl
my $title = "welcome";
････

よろしくです。

[0917 nobodyさん 03/08/12 16:29 ID:???]

落ち着いてから喋れよ

[0918 nobodyさん 03/08/12 16:44 ID:RiEGcXgN]

my %hage = (
　a => "hage",
　b => {
　　c => "$hage{a} /hage",
　},
);

こんな感じで$hage{b}{c}で、$hage{a}を使いたいけど、
出来ませんよね？何かいい方法有りませんか？

[0919 nobodyさん 03/08/12 16:47 ID:???]

my の意味わかってる？
なんでつけてんの

[0920 919 03/08/12 16:50 ID:???]

あ、、>>916あてね

[0921 nobodyさん 03/08/12 16:53 ID:???]

>>918
どうしても初期化時にやりたいの？

[0922 nobodyさん 03/08/12 16:56 ID:???]

>>918
my $zura = "hage";
my %hage = (
　a => $zura,
　b => {
　　c => "$zura /hage",
　},
);

[0923 916 03/08/12 17:07 ID:???]

解決しました。

根本的に間違えていました。

まず、パッケージ宣言をしていませんでした。
あと、>>920さんのいうとおり、パッケージとして読み込む
内容に対してmyにしていました。

[0924 918 03/08/12 17:10 ID:???]

>>919
実はあんまいみ分かって使ってないかも（汗

サブルーチンの中でその間数内でしか使わない変数は、
myを付けるようにしてる。あと、use strict;してると、
my付けなきゃ怒られるから、、、

>>921-922
一つにまとめた方がすっきりしていいかなーって思いましてね。
やっぱ無理ですかね？

[0925 918 03/08/12 17:11 ID:???]

>>920
あ、俺宛じゃないのね。
失礼。

[0926 nobodyさん 03/08/12 17:35 ID:???]

>>925
ついでに勉強しておくと良いと思われ。
キーワードはvarsとかourあたりで。

[0927 923 03/08/12 19:10 ID:dyQ6VIzM]

解決したのですが、別の問題が･･･

requireで呼び出す定数の記載されたplファイルが、
ブラウザから丸見えになってしまいます･･･
(見られたくない内容が記載されています)

属性を600にしたら動かないようですし。

ブラウザから参照できないファイルにできないものですか？

よろしくお願いします。

[0928 nobodyさん 03/08/12 19:18 ID:???]

全然コーディングと関係ないぞ

[0929 923 03/08/12 19:23 ID:dyQ6VIzM]

>>928 失礼しました。流れでついつい聞いてしまいました。

ちなみに拡張子をcgiにしてみると実現できました。

[0930 nobodyさん 03/08/12 19:41 ID:???]

>>927
そこから先はスレ違いの内容だ。

[0931 nobodyさん 03/08/12 19:42 ID:???]

.htaccessで観覧不可にすればいーじゃん

[0932 nobodyさん 03/08/12 20:11 ID:???]

>>932-938まで削除依頼済み

[0933 nobodyさん 03/08/12 20:23 ID:???]

>>940
運用情報にて規制対象にするのがよいかと。

[0934 nobodyさん 03/08/12 20:31 ID:???]

>>941
それはいいね。
運用情報をちょっと見てきたけど、コピペや広告がﾋﾞｼﾊﾞｼと
アク禁になっててﾜﾗﾀ。
今後も続いたらそっちに回そう。

[0935 nobodyさん 03/08/12 20:50 ID:y42wbWjQ]

my $ref_mail = $pop3->get($num);
my $mail = join(/ /, @{$ref_mail});

とかくと、成功したり失敗したりします。
エラーが出た場合のエラー内容は下記のとおりです。

Can't use an undefined value as --.cgi reference

これについて調べてみたのですが、どうも理解が
できません。
定義するとエラーが出てしまいますし、初心者の私に
どうか教えていただければ幸いです。

[0936 nobodyさん 03/08/12 20:57 ID:???]

あるところに糞スレの好きな男がいた。
男は「（都の人のする）糞スレというものをひとつ立ててみよう」と思った。
男の女房が「（天さかる鄙にすむわたしのような教養のない女でもわかるが）都の人はそんなことをしない（と思う）」
と諌めたが、男はきかない。
「（釈迦入滅以来うだつのあがらない自分という男にほとほと愛想が尽きたが）
ここで糞スレを立てれば（都の人のように）頓知がきいていると世の賞賛を受けるだろう」
と糞スレをたてた。

はたして翌日、＞２以降、罵倒の嵐だった。
＞１も無駄なことをするものだなあと（何故か判らぬが突然出てくる）横川の僧都（そうず）は嘆いた

[0937 nobodyさん 03/08/12 22:05 ID:???]

>>942
でも担当★がちょとあんぽんたんだったので★を剥奪されたそうです（ｗ

[0938 nobodyさん 03/08/12 22:14 ID:???]

透明削除入れたので、レス番がずれました。
申し訳ないです。

>>937は>>932-934辺りへのレスです。

[0939 nobodyさん 03/08/12 22:35 ID:???]

クエリーストリングを、%inに入れたとして、以下のコードを実行すると、

sub htmlspecialchars{
　　#PHPの同名関数と同じ動きをします。
　　my ($letter) = $_[0];
　　$letter =~ s/&/&/g;
　　$letter =~ s/"/"/g;
　　$letter =~ s/'/？/g;
　　$letter =~ s/</</g;
　　$letter =~ s/>/>/g;
　　return $letter;
}

foreach $key (keys %in){
　　&jcode::convert(\$in{$key}, "sjis");
　　print qq|<input type="hidden" name="$key" value="|. &htmlspecialchars(\$in{$key}) .qq|">\n|;
}
<input type="hidden" name="country" value="SCALAR(0x827cdbc)">
<input type="hidden" name="gender" value="SCALAR(0x827cd2c)">
となってしまうのですが、どこがいけないのでしょうか・・・？

[0940 nobodyさん 03/08/12 22:43 ID:???]

>>938
乙。
あぼーん<>あぼーん<>あぼーん<>あぼーん<>あぼーん<>
を追加加工は出来なかったのね（ｗ

>>939
リファレンスで渡してるやん。。。

[0941 nobodyさん 03/08/12 23:00 ID:???]

#!/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 = sentaku;
$kougeki1 = $KIK2 = 100;
$PAN2 = 40;

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

[0942 nobodyさん 03/08/12 23:00 ID:???]

sentakud;
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'};
}

[0943 nobodyさん 03/08/12 23:07 ID:???]

sentaku2;
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;

[0944 nobodyさん 03/08/12 23:08 ID:???]

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

# 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>$kik1</big>のダメージを受けて混乱した。
<p>mona-は<big>$panti1</big>のダメージで野原でクソをし始めた。
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p>
<p>Player2は<big>>$kik2</big>のダメージを受けて裸踊りを始めた。
<p>Player2は<big>>$pantti2</big>のダメージで光浦なみの女にレイプし始めた。</p></p></body>\n";
print "</html>";

[0945 nobodyさん 03/08/12 23:09 ID:???]

>>935

それはその下のファイルを使うな、という意味です。
そのファイルは使えないので、そのファイルを全部削除して、
１から書き直すことをすすめます。

[0946 nobodyさん 03/08/12 23:46 ID:???]

配列の中身を順番に書き出すにはどうすれば良いんでしょうか。

while (@test){
　print\n;
}

とかやってみたのですがPCごと固まってしまいました…。
あとハッシュの中身を例えば
キー：値
のような形のリストとして出力するような方法も知りたいです。
#キーは不定

[0947 nobodyさん 03/08/12 23:55 ID:???]

>>946
foreach(@test){
print $_,"\n";
}

[0948 nobodyさん 03/08/13 00:11 ID:0XDiwwzH]

foreach $key(keys %HASH){
print $key." = ".$key{$key}."\n";
}

[0949 nobodyさん 03/08/13 00:20 ID:???]

>948
間違ってるぞ。
foreach $key(keys %HASH){
print "$key=$HASH{$key}\n";
}

[0950 nobodyさん 03/08/13 00:23 ID:???]

while (my($k, $v) = each %hash) {
print "$k:$v", "\n";
}

[0951 nobodyさん 03/08/13 00:23 ID:???]

>>943
ハードリファレンスやシンボリックリファレンスとして使用する値は、
定義済みの値でなければなりません

[0952 nobodyさん 03/08/13 00:25 ID:???]

>>945
あるいは
while ( @test ) {
　　pop shift @test."\n";
}

>>946
あるいは
while ( ($key, $val) = each %HASH ) {
　　print $key." = ".$val."\n";
}

[0953 952 03/08/13 00:26 ID:???]

失礼。訂正です。

>>945
あるいは
while ( @test ) {
　　print shift @test."\n";
}

[0954 nobodyさん 03/08/13 00:26 ID:0XDiwwzH]

お。。
まちがってた。
thxでごんす。

[0955 946 03/08/13 00:28 ID:???]

ありがとうございました。
whileとforeachの違いがイマイチわかりづらいですが
ラクダ本でも見てゆっくり勉強する事にします。

ハッシュの方はKeys関数のところみたら見事に載ってました。
わざわざすみませんでした…。

[0956 952 03/08/13 00:29 ID:???]

たびたび失礼。訂正です。

>>945
あるいは
while ( @test ) {
　　print shift @test;
　　print "\n";
}

[0957 nobodyさん 03/08/13 01:30 ID:???]

>>945
@testが小さければ
print join("\n", @test, '');

[0958 nobodyさん 03/08/13 10:45 ID:???]

>>946

while (<>) {
print $_ . "\n";
}
のつもりで書いたのか。それならば。
while (shift @test) {
print $_ . "\n";
}

[0959 nobodyさん 03/08/13 12:13 ID:???]

>>946は何でかたまったのか自分でわかってる？

[0960 nobodyさん 03/08/13 16:15 ID:???]

スレ違いって言われたのでこちらで改めて質問します。

KENTさんのWeb Patioを使っています。
regist.cgiにおいて、
「初心者」という文字列を含む名前をエラーではじきたいのですが、
どうすればいいでしょうか？

一応、「初心者」であればエラーを返すようにしています。
if ($i_nam eq "初心者") { &error("任意の名前でお願いします"); }
この場合だと「PC初心者」をはじくことができません。
正規表現を使わなければいけないというのはわかっているのですが、
if ($i_nam =~ /初心者/)
ではダメなんでしょうか？

よろしくお願いします。

[0961 nobodyさん 03/08/13 16:31 ID:???]

>>960
どうだめだったの？
漢字コードは合わせてる？

[0962 nobodyさん 03/08/13 16:38 ID:???]

>>960
この場合、正規表現は使わない方が低コスト。
全部EUC-JPかUTF-8で扱っているとして

if (index($i_nam, '初心者') >= 0) {
&error("任意の名前でお願いします");
}

[0963 nobodyさん 03/08/13 16:40 ID:???]

子プロセスを作って、平行して違う処理をさせたいのですが、
親からも子からも見える変数というのは、そのままでは実現できないのでしょうか？

小難しいのでビデオ予約に例えますが、
>親はユーザとsocketで通信をして、予約リストの追加削除修正を行い、
>子は時計を監視しつつ、時間になったら録画をスタートさせる
この"予約リスト"を親子で共有したいのです。

[0964 nobodyさん 03/08/13 16:43 ID:VxpLVgAp]

>>960

初心者ははじくことができません。
そんな初歩的な質問は板違いです。どこか行ってください。邪魔です。
ＷＥＢ板にいって、二度と来ないでください。

[0965 nobodyさん 03/08/13 16:45 ID:???]

>>963

できません。共有はできません。どちらかあきらめてください。
あなたも欲ばりですね。
そんな初歩的な質問、こんなところでしないでください。どこか行ってください。

[0966 nobodyさん 03/08/13 16:46 ID:???]

#!/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;

[0967 nobodyさん 03/08/13 16:46 ID:???]

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'};
}

[0968 nobodyさん 03/08/13 16:46 ID:???]

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;

[0969 nobodyさん 03/08/13 16:46 ID:???]

>>963
ファイル使っちゃあかんの？dbmとかbdbとか
あと時計監視はちょっと、、、cronとか使えないの？

[0970 nobodyさん 03/08/13 16:47 ID:???]

# 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>";

[0971 nobodyさん 03/08/13 16:48 ID:???]

∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧
＜ 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ＞
＜　動カンカッタ>>720-736ーーーーーーーーー！！　　　　＞
＜　　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ＞
　 ∨∨∨∨∨∨∨∨∨∨∨＼　 ／∨∨∨∨∨∨∨∨∨∨∨
　　　　　　　　 　／:|.　　　　　　　|　|　　　　　／:|
　　　　　　　 ／　 .:::|　　　　　　　∨　　　 ／　 :::|
　　　　　　　 |　　...:::::|　　　　　　　　　 　/　　　::::|
　　　　　　　i　　　 　 ￣￣⌒ﾞﾞ^――／　　 　::::::::|
　　　　　　/＿,,___　　　　　　 . _,,,,__,_　　　　　:::::::::::＼
　　　　 　／　　　ﾞ^＼ヽ..　 , /ﾞ　　　¨＼,.-z　　　::::::::::＼
　　　　 　「　●　　　　| 》　 l| 　●　　　 ﾞ》　ミ..　　　.::::::＼
　　　 　/i,.　　　　　 .,ﾉ .l|　 《 　　　　　 ..|´_ilﾄ　　　　::::::::::＼
　　　　/　＼___,,,,,_／ .'″　　^=u,,,,_ v／.. 　　　　　　:::::::::::::l!
　　　 |　　　　　　　　　　　￣　,,､　　　　　　　　　i し.／::::::::.｝
　　　|　　/ 　,,__＿＿　_,／￣　＼　＼　　　　　 ﾉ　(　　::::::::::|
　　　 |　　|.. |　／└└└└＼../＼　　＼　　 　'~ヽ　::::::::::::::｝
　　　　|　 　.∨.|llllllllllllllllllllllllllllllllllllllll|　　　　　　　::::::::::｛
　　　　| 　　　|.|llllllllllll;／⌒／⌒　　〕　　　　　　　　　　:::::::::::｝
　　　　 |　　　|.|lllllllll;　　　./　.　　 .　|　　　　　　　　　　::::::::::［
　　　　 .|　　　|.|llllll|′　　/　　　　.　|　　　 .|　　　　　　:::::::::::|
　　　　　.|　　 |.|llll| 　　　| 　　　　.∧〔　　　/　　　　:::::::::::::／
　　　　／　｝.∧lll　　　　|　　　　../　/　　／　　　:::::::::::::::::＼
　　 ／　　　/|　＼┌┌┌┌┌/.／　／:::　 　　　　:::::::::::::::::＼
　　　　　　(　ﾞﾞ^^¨^¨ﾞﾞ¨　￣￣￣　／:::::::::::

[0972 nobodyさん 03/08/13 16:48 ID:p0VVcbYX]

スレンダーなロリ体形ながらもオマンコ方はしっかり発達しちゃってます。
大きなオチンチンを喉の奥までくわえ込んでのフェラは大人顔負けですぞ。
挿入シーンは少ないながらも小さなオマンコにしっかり挿入されているシーンが勃起モノ！
若い娘はいいですな。

無料ムービーはこちら！
http://www.cappuchinko.com/

[0973 960 03/08/13 16:50 ID:???]

962さん、どうもありがとうございます！
解決しました。

[0974 nobodyさん 03/08/13 16:55 ID:???]