08/01/26 14:13:12
2chの特定のスレURLを任意で指定し、
すべての投稿から、「すでに投稿された文面が再度登場していたら、
その数だけレス番付きで抽出する」
というものはできないでしょうか。
要は何がやりたいのかと言うと、
「スレッドがコピペ投稿だらけ」になっており、
レス削除要請を行いたいのです。
ただ、そのコピペの数が尋常じゃないので抽出が困難なのです。
「文面の95%が一致していたらコピペとみなす」機構が嬉しいです。
731:デフォルトの名無しさん
08/01/26 19:37:04
95%で、無関係の文章が巻き込まれたら嫌だなぁ。
って話はとりあえず置いといて、検索してたら
String::Trigram とかいうモジュールがヒットした。
この辺使えば作れるのかな？
あとはスパムフィルタ関連の資料か。
URLの有無で判定するタイプもあるらしいから
そういうタイプのフィルタは参考にはならないかも知れないけど。
732:デフォルトの名無しさん
08/01/26 22:04:23
コピペ連投だと行頭の空白とかが混じることがあるから、
文字の先頭から末尾までが一致していたらアウト、という判定でいいんじゃね。
そういうの欲しいならRubyスレで頼むほうが早いかもよ。
733:デフォルトの名無しさん
08/01/30 01:12:36
指定したファイル以外を消去する作って！
734:デフォルトの名無しさん
08/01/30 02:21:14
>733
それだけじゃ何をどうすれば良いのか分からんな。
「カレントディレクトリ内にある指定したファイル以外を消去」だとすれば
perl -e"for (glob '*'){$_ eq $ARGV[0] or unlink $_}" ファイル名
で出来るが、サブディレクトリは多分掘らない。
735:733
08/01/30 05:19:52
カレントディレクトリだけでOKです。
ありがとう
今はこんな感じで改造しています。
いろいろしないといけないんですが
仮に指定したファイルがカレントディレクトリになかった場合とか
消去を確認するための方法とか ファイルを複数指定したりとか
perl のコマンドに詳しい本って
なにかありますかねー(ネットでも調べていますが)
#!/usr/bin/perl
print "指定ファイルは？";
$file = <STDIN>;
for (glob '*'){$_ eq $ARGV[0] or unlink $_} $file
736:デフォルトの名無しさん
08/01/30 05:52:04
perl の関数一覧なら perlfunc ですぐ見れる
737:デフォルトの名無しさん
08/01/30 05:56:58
>735
つーかマテ、その改造コード間違ってるんじゃねーか。
$file が全く関係ないところに書かれてる。
そのコードじゃカレントディレクトリ全部削除されるぞ。
$file = <STDIN>; と書くんだったら、
for (glob '*') { $_ eq $file or unlink $_ } にしなきゃ。
$ARGV[0] はコマンドラインからの引数な。
>734 はファイル名を引数として渡してる。
738:733
08/01/30 08:29:20
>>737
あー ミスでしたか
コマンドとか引数とか覚えないといけないところが
まだまだありますな
>>736
perlの関数 ありがとう
739:デフォルトの名無しさん
08/03/25 20:19:49
任意のフォルダに入ってるexeファイルを起動するスクリプトがほしいです。
740:デフォルトの名無しさん
08/03/26 12:11:44
>739
その「任意のフォルダ」はコマンド引数で指定すれば良いのか？
「任意のフォルダ」に.exeファイルが複数入ってる場合はどうすれば良いんだ？
741:デフォルトの名無しさん
08/06/09 15:23:34
ActivePerlで
(擬似)子プロセスにてある条件を満たすと(sleep5とかでもなんでもいい)、親プロセスのTKウィジェットに反映する(リストボックスに一行追加とか)するスクリプトください
742:デフォルトの名無しさん
08/06/17 09:54:41
URLﾘﾝｸ(www.linkrr.com)
みたいな複数のURLアドレスを一気に開くことのできるスクリプトが欲しいです
743:デフォルトの名無しさん
08/10/11 18:59:15
過疎ってるなー
DBD::CSV使って、
execsql.pl -noheader "SELECT T1.ROW1, T2.ROW3 FROM temp1.txt T1 temp2.txt T2
WHERE T1.ROW1 = T2.ROW2 AND T1.ROW2 = 'abc';" > result.txt
みたいに使えるスクリプト誰か作って。
744:デフォルトの名無しさん
08/10/11 19:05:12
間違えた
col1 col2 か
SQL初心者な物で
745:デフォルトの名無しさん
08/10/11 22:08:41
今日も perl でエロ画像収集！
明日も perl でエロ画像収集！
エロ画像収集言語 perl 万歳！
746:デフォルトの名無しさん
08/10/12 13:49:53
>>743だけど、DBD::CSVにバグがあった
やってらんねー
結局できたけど
747:デフォルトの名無しさん
08/10/26 08:58:18
ここでperlをPHPに変換とかしてくれる？
748:デフォルトの名無しさん
08/10/26 12:55:13
ばっちこい！
749:デフォルトの名無しさん
08/10/26 13:08:10
600行くらいあるんだけど・・・
750:デフォルトの名無しさん
08/10/26 14:31:15
情報後出しするやつは面倒だからお断りします
751:デフォルトの名無しさん
08/10/29 19:22:48
偶数行と奇数行を入れ替えるスクリプトをお願いします。
出力例）
$cat test.dat
１
２
３
４
５
６
スクリプト実行後
$cat test.dat
２
１
４
３
６
５
752:デフォルトの名無しさん
08/10/29 21:16:39
perl -pe 'print scalar <>'
753:デフォルトの名無しさん
08/10/30 07:17:55
my $old ;
while (<>){
if ( $.%2 != 0 ){ $old = $_ ; next ; }
print $_, $old ;
undef $old ;
}
if ( defined $old ){ print "odd\n", $old ; }
754:デフォルトの名無しさん
08/11/14 20:58:20
list.txtファイルに検索をかけたいキーワードを記入し
そのリストのキーワードを元にgrepみたいな動作をするスクリプト
listファイルの中身
$cat list.txt
aho
baka
test
検索をかけたいファイル（test.txt）の中身
$cat test.txt
aho 1
baka 2
manuke 3
test 4
実行結果
$./grep.pl
aho 1
baka 2
test 4
よろしくお願いします。
755:デフォルトの名無しさん
08/11/14 21:24:33
#!/usr/bin/perl
sub slurp {
local ($/, @ARGV) = (wantarray ? $/ : undef, @_);
return <ARGV>;
}
my $keyword_file = "list.txt";
my $target_file = "test.txt";
my @keywords = slurp($keyword_file);
my $regex = join "|", map { chomp; "\Q$_\E" } @keywords;
$regex = qr/$regex/;
open my $fh, "<", $target_file;
for my $line (<$fh>) {
print $line if $line =~ $regex;
}
close $fh;
756:デフォルトの名無しさん
08/11/14 22:00:26
>>755 クールで惚れた
757:デフォルトの名無しさん
08/11/15 08:37:43
>>755
ありがとうございました！
758:デフォルトの名無しさん
08/11/15 09:13:35
朝っぱらからコードゴルフ
% perl -lne ' print if $t{ ( split )[0] } ++' list.txt test.txt
ま、区切り文字が全角スペースだと動かんのだがね。全角スペースに拘るなら
% perl -lne ' print if $t{ (/^(\w+)/)[0] } ++' list.txt test.txt
759:デフォルトの名無しさん
08/11/16 01:29:32
dmain.cpp
Note: including file: d:/projects/game/include\common.h
Note: including file: d:/projects/game/include\product.h
Note: including file: d:/projects/etc/psdk/include\WindowsX.h
Note: including file: d:/projects/etc/psdk/include\windows.h
こういうファイルを
dmain.obj: \
/cygdrive/d/projects/game/include/common.h \
/cygdrive/d/projects/game/include/product.h \
/cygdrive/d/projects/etc/psdk/include/WindowsX.h \
/cygdrive/d/projects/etc/psdk/include/windows.h \
dmain.cpp
こんな風にするスクリプトってどうやるの？
760:デフォルトの名無しさん
08/11/16 14:36:30
759は汎用性が必要だから、ファイル名とかドライブレターとかも関係なく動かせるのをお願いします
761:デフォルトの名無しさん
08/11/16 14:45:05
マルチしといて、動かなかったら注文付けんの？
win の人だったらワンライナーはシングルクォートの代りにダブルクォートにすれば良いよ。
762:デフォルトの名無しさん
08/11/29 21:11:06
入力フォームに入力して送信を押したら
hogehoge.cgi?入力された言葉
というように表示してくれるスクリプトを作ってほしいのですが
どなたか作ってもらえませんか？
763:デフォルトの名無しさん
08/12/01 13:11:03
print "Content-type: text/html nn";
print "hogehoge.cgi?入力された言葉";
764:デフォルトの名無しさん
08/12/01 23:28:02
> Perlでリクに答えるスクリプトを作るスレ
リクといえば、大石 りく。赤穂藩家老大石内蔵助良雄の妻。
そろそろ討ち入りの時期です。
Perlでリクにどうやって応えられるのか、スレが立って足掛け4年。
そろそろ、リクを喜ばしてみれ。
765:デフォルトの名無しさん
08/12/02 02:36:05
>>764
猛烈に面白くない
766:デフォルトの名無しさん
08/12/02 19:00:24
椎名りくは引退したの？
767:デフォルトの名無しさん
08/12/14 00:12:00
ほすほす
768:デフォルトの名無しさん
09/01/09 01:04:58
保守がてら
いつまでたっても彼女ができないのですが、
バレンタインデーまでに(３次元の)彼女ができるスクリプトを作ってもらえませんか
769:デフォルトの名無しさん
09/01/09 01:18:29
３次元とか言ってる時点でお前には彼女なんて出来ないw
770:デフォルトの名無しさん
09/01/13 19:50:17
>>768
バカだな。バレンタインデーまでにじゃなくてさ
バレンタインデー当日にチョコと一緒に告白される方が絶対いいだろ
771:デフォルトの名無しさん
09/01/14 01:17:26
>>768
じゃあそういう感じのスクリプトをお願いします！
できれば、彼女ができる日付を選べる感じで
772:デフォルトの名無しさん
09/01/14 17:40:36
>>771
バレンタインデーと言っておいて日付を選べる感じとはいかこれに
773:デフォルトの名無しさん
09/01/15 00:46:54
彼女ができる日が可変、
チョコがもらえるのは2月14日で固定
774:デフォルトの名無しさん
09/01/15 00:48:19
備考：
俺が事前に彼女を作りたいのは、
「気合入れて作るから楽しみにしててね」といわれたいからだ
775:デフォルトの名無しさん
09/01/21 13:09:37
1つのフォームに改行を使って複数の単語を書き、それを受け渡して単語毎に並べるようなのって可能でしょうか？
$word[$_]のようなのでそれぞれの単語を分けたいのですがなかなか出来ません。
ご教授頂けますと有り難いです。
以下のような感じです。
┌───┐
│あいうえお │
│かきくけこ │(←textarea)
│さしすせそ │
└───┘
↓受け渡し↓
あなたの記入した単語は
1つ目[あいうえお]
2つ目[かきくけこ]
3つ目[さしすせそ]
の3つです。
のような感じです。
どなたか宜しくお願い致します。
776:デフォルトの名無しさん
09/01/21 13:18:17
>>775
改行でsplitしたら？改行コードに気を付けないといけないけど、それで問題ないと思う。
777:デフォルトの名無しさん
09/01/21 13:51:07
>>776
ありがとうございます。
調べてみます。
778:デフォルトの名無しさん
09/01/21 20:39:36
>>776
すみません、やっぱりもう少し詳しくお願い出来ませんでしょうか？
779:775
09/01/21 22:18:12
現在このような感じです。
#変数[$word]を受け渡し
@text = split(/\n/, $word);
これを表示させたいのですが、どの様にしたら改行毎に一つずつ表示出来るのでしょうか？
そもそも上ので出来るのでしょうか？
すみませんが宜しくお願い致します。
780:デフォルトの名無しさん
09/01/21 23:45:59
textarea っていうのは、html の textarea のことか？
だったら html の textarea の使い方を調べなさいよ。
html すら知らないで perl でwebプログラミングなんて無謀すぎる。
781:775
09/01/22 00:32:14
textareaはわかります。
ですが、@textの改行された分だけ(例えば3回改行されていた場合)並べて表示させる方法がわかりません。
例えば
あいうえお
かきくけこ
さしすせそ
を入力したとしてそれを一つずつ表示させるためにはどうしたら良いのでしょうか？
1行目
<textarea>あいうえお</textarea>
2行目
<textarea>かきくけこ</textarea>
3行目
<textarea>さしすせそ</textarea>
のように一つずつ分けて、書かれた行数分だけループさせて書きたいのですが、教えていただけないでしょうか？
説明不足で申し訳御座いませんが、宜しくお願い致します。
782:デフォルトの名無しさん
09/01/22 16:34:45
for 文か foreach 文をつかえ。
for ($i = 0; $i < $#text; $i++) {
print "<textarea>$text[$i]</textarea>";
}
foreach $tt (@text) {
print "<textarea>$tt</textarea>";
}
まず URLﾘﾝｸ(www.tohoho-web.com) ここでも読んで
perl で使える命令を全部、頭に叩き込んでおけよ。
783:デフォルトの名無しさん
09/01/22 16:37:56
おっと...
誤： for ($i = 0; $i < $#text; $i++) ・・・
正： for ($i = 0; $i <= $#text; $i++) ・・・
784:デフォルトの名無しさん
09/01/22 17:02:14
>>781
初めに思ってたのと何か違う質問になってるな
<textarea
ああいうえお
かきくけこ
さしすせそ</textarea>
これを1行ずつ表示させたいのではなくて？
use CGI;
my $q = CGI->new;
print $q->header( -type => "text/html");
my $body = $q->param( 'body' );
$body =~ s/\x0D\x0A|\x0D|\x0A/\n/g;
my $li;
for my $word (split "\n", $body) {
$li .= "<li>$word</li>";
}
print <<"HTML"
<form method="post" action="">
<textarea name="body">
a</textarea>
<input type="submit" />
$li</form>
HTML
785:775
09/01/22 18:05:17
>>782-783
ありがとうございます。
URL先と書いていただいた内容を参考にさせていただき、勉強致します。
>>784
ありがとうございます。
自分でも書いていて変だということに今気づきました。
簡単に纏めると、
①フォームに文章を書いてもらい、受け渡す
②それを受け取り、改行毎に一つずつ変数を持たせて並べる
みたいな感じです。
今も書いていて意味がわかりずらいです。
本当にすみませんでした。
786:775
09/01/22 23:39:14
どうしても出来ませんでした…
どうやっても500エラーから逃れられません…
>>782-783様や>>784様のを組み込もうと考えていたのですが、何か根本的に私のは間違っていたみたいです。
申し訳御座いませんが、出来れば一通りのサンプルのようなものを作成していただけないでしょうか？
仕様は何度か書かせていただきましたが、
①test.cgi(仮)にアクセスするとフォーム表示
②フォームに
[あいうえお]
[かきくけこ]
[さしすせそ]
等を複数行記入してsubmitを押す
③submitを押すと
◆1行目
あいうえお です。
◆2行目
かきくけこ です。
◆3行目
さしすせそ です。
のように表示される。
このようなのをお願いしたいのですが、やはり難しいでしょうか？
どなたか何卒宜しくお願い致します。
787:デフォルトの名無しさん
09/01/23 15:09:16
>>786
500エラーのエラー内容ください。
788:775
09/01/23 15:27:16
@textらへんでエラーが出てるようですが、
明らかに自分が書いた部分が掛かっていると思われますので、
修正というよりは１から作り直したいのですが、お手伝いしていただけますでしょうか？
789:デフォルトの名無しさん
09/01/23 15:28:54
>>788
エラーログが見れない環境？
>>784コピペするとどうなる？
790:デフォルトの名無しさん
09/01/23 15:42:16
すでに >>784 で答えが出てるじゃないか。
何が不満なのか？
スクリプトをホームページへ設置するやりかたまで
手取り足取り教えろとでも言うのか？
791:775
09/01/23 18:07:42
>>789
すみません、エラーログは見れません。
>>784をコピペして使うと500が出ます。
792:デフォルトの名無しさん
09/01/23 18:31:21
じゃ、「http 500」でググれ
793:775
09/01/23 21:07:22
フリーのPerlチェッカーでチェックしました。
Perlのエラー出力
Unrecognized character \241 at tmp.pl line 8.
ソース
0001: use CGI;
0002: my $q = CGI->new;
0003: print $q->header( -type => "text/html");
0004: my $body = $q->param( 'body' );
0005: $body =~ s/\x0D\x0A|\x0D|\x0A/\n/g;
0006: my $li;
0007: for my $word (split "\n", $body) {
0008: $li .= "<li>$word</li>";
0009: }
0010: print <<"HTML"
0011: <form method="post" action="">
0012: <textarea name="body">
0013: a</textarea>
0014: <input type="submit" />
0015: $li</form>
0016: HTML
8行目の何が問題なのでしょうか？
794:デフォルトの名無しさん
09/01/23 22:43:07
まさか、インデント用の全角スペースをそのままコピペしてた、
というオチではないだろうな。
795:775
09/01/23 22:59:08
いえ、削除致しました。
796:775
09/01/23 23:04:46
print <<"HTML"
でエラーが出ました。
797:デフォルトの名無しさん
09/01/24 00:05:34
Unrecognized character \241 at tmp.pl line 8. って出てるじゃないか。読めないの？
798:デフォルトの名無しさん
09/01/24 00:08:32
>>796
これだろ？
Can't find string terminator "HTML" anywhere before EOF at m.pl line 10.
799:775
09/01/24 00:25:31
>>798
はいそれです。
800:デフォルトの名無しさん
09/01/24 05:21:38
最後に改行を入れてないためのエラーか。
というか、>>793は全角スペースのエラーだよね。>>794は言ってることあってたと思うんだけど会話になってないな。
801:775
09/01/24 06:00:43
>>800
確かにそうでした。
全角削除しても500出てたので勘違いしていました。すみませんでした。
最後に改行を入れた所、チェッカーでのエラーは無くなりましたが、未だにアクセスすると500になります。
何か原因などあるのでしょうか？
802:デフォルトの名無しさん
09/01/24 08:04:02
シェバング行がねーよwwwアホスwww
ここまで書かないとだめか？
803:デフォルトの名無しさん
09/01/24 08:37:46
これはひどい。
とにかく、ひどい
804:775
09/01/24 10:24:36
すみません、理解出来ませんでしたので御説明いただけると有り難いです。
805:デフォルトの名無しさん
09/01/24 11:03:48
シェルやCGIなどのインターフェイスを介してスクリプトを実行させる際に、
スクリプトの一行目に、どのプログラムで解釈させるのかを書いておく。
その行をシェバング(sharp bang/shell bang)行と呼ぶ。
その行が欠落している。
詳しくは、お使いのサーバの管理者にお尋ねください。
806:デフォルトの名無しさん
09/01/24 11:40:03
コメニケーション能力不足
807:デフォルトの名無しさん
09/01/24 11:40:40
会話のキャッチボールができていない
808:デフォルトの名無しさん
09/01/24 12:19:41
ここまでくるとスレタイ通り全部作った方がいいのかな？不毛なやりとりだからもう下のやつコピーして終了にすればいいよ
ファイル名はtext.cgi。実行権限を付ける。
=====ここからコピー=====
#!/usr/bin/perl -T
use strict;;
use warnings;
use CGI;
my $q = CGI->new;
print $q->header( -type => "text/html");
my $body = $q->param( 'body' );
$body =~ s/\x0D\x0A|\x0D|\x0A/\n/g;
my $li;
for my $word (split "\n", $body) {
$li .= "<li>$word</li>";
}
print <<"HTML"
<form method="post" action="">
<textarea name="body">
</textarea>
<input type="submit" />
$li</form>
HTML
__END__
=====ここまでコピー=====
809:デフォルトの名無しさん
09/01/24 12:26:39
>>806-807
つーか、クレクレだしな。
810:775
09/01/24 12:31:09
>>805
説明ありがとうございます。
そのような事すら知りませんでした。
勉強になります。
ありがとうございました。
>>806>>807
申し訳御座いませんでした。
リアルで話し下手なのがこのような場でも御迷惑をおかけしたことを大変恥じております。
これからはperl以前にそのような事にも気をつけたいと思います。
本当に申し訳御座いませんでした。
>>808
最後までご丁寧にありがとうございます。
コピーして使わせていただきます。
本当にありがとうございました。
このスレに来るのはこれで最後にします。
御迷惑ばかりおかけして本当に申し訳御座いませんでした。
811:デフォルトの名無しさん
09/01/24 12:46:06
結局改行の話以前のやり取りになったなw
812:デフォルトの名無しさん
09/01/25 14:23:19
バレンタインというものを人々の記憶から消し去るスクリプトを作ってください
813:デフォルトの名無しさん
09/01/25 15:34:59
>>812を葬れるスクリプトお願いします
814:デフォルトの名無しさん
09/01/25 15:56:54
>>813の呪いを消し去るスクリプトを作ってください
815:デフォルトの名無しさん
09/01/25 22:22:02
$str = "人々の記憶";
$str =~ s/バレンタインというもの//g;
816:デフォルトの名無しさん
09/01/26 02:52:28
なんというシンプルさ
817:デフォルトの名無しさん
09/01/27 14:39:23
>>813って殺人依頼じゃね？
818:デフォルトの名無しさん
09/01/30 10:24:51
アゲ
ナイ
819:デフォルトの名無しさん
09/01/30 21:01:09
>>817
うむ、だが不能犯だな。
820:デフォルトの名無しさん
09/02/01 13:37:25
無能犯
821:デフォルトの名無しさん
09/02/02 01:40:10
まあ、ギリギリアウトだな
822:デフォルトの名無しさん
09/02/04 22:36:00
・スクリプト
マイリンク
・用途
リンクスクリプトで個人個人が好きなサイトをマイリンクに登録し、登録すると登録したサイトをマイリンクで確認出来る
・仕様
①個体識別情報(携帯端末は個体識別番号、パソコンはIPアドレス)で判断し、それぞれの端末毎にマイリンクを表示させる
②マイリンクページでマイリンクしたサイトの削除が可能(個人個人で)
③追加はリンク表示の横の[追加]リンクを押すことで追加
④マイリンクページでのマイリンクの表示数は10件程度で、超えた場合は次のページに表示
こんな感じのをお願い出来ませんでしょうか？
使っているリンク集スクリプトはKENT WEBさんのコスモナビです。
どなたか宜しくお願いします。
823:デフォルトの名無しさん
09/02/04 23:31:00
既存のSBMの何が不満なんだ
824:822
09/02/07 11:32:30
>>823
自分が今サーバーに設置して使っているリンク集に、ユーザーが使えるマイリンク機能を追加したいのです。
3000サイトくらい登録しているので、利用者からマイリンク的なものを使えるようにしてくれと要望がありましたので此処にお願いに参りました。
822に追加でマイリンクページでカテゴリ分け(カテゴリ作成、編集、削除)出来たら最高です。
どなたか何卒、宜しくお願い致します。
825:デフォルトの名無しさん
09/02/08 17:38:53
お願いしますage
826:デフォルトの名無しさん
09/02/10 17:48:33
DOSのバッチをPerlに書き換えてくれたりする？
827:デフォルトの名無しさん
09/02/10 18:10:37
そんなの簡単。system 関数使えばいいじゃん。
828:デフォルトの名無しさん
09/02/13 19:51:28
1,2,3の数字を組み合わせて25桁の数字をだーーっと表示するスクリプトを何卒お願いします。
829:デフォルトの名無しさん
09/02/13 20:43:55
sub f {
my ($s, $d) = @_;
if ($d == 25) {
print $s, "\n";
}
else {
f($s.1, $d+1);
f($s.2, $d+1);
f($s.3, $d+1);
}
}
f('', 0);
830:デフォルトの名無しさん
09/02/13 23:04:58
>>829
ありがとうありがとうありがとう！
831:デフォルトの名無しさん
09/02/15 00:43:27
現在そのスクリプトにアクセスしている人数を表示出来るスクリプトお願いします。
よくある[○人オンライン中]的なやつです。
時間は60秒くらいまでをオンライン中扱いにして、携帯電話も正確にカウントされるようにお願いします！
832:デフォルトの名無しさん
09/02/15 03:51:35
#mes = "自分以外誰もアクセスしてなくて悲しい思いすることになるからやめとけ";
833:デフォルトの名無しさん
09/02/15 06:10:14
www
834:デフォルトの名無しさん
09/02/15 06:52:16
訪問者多いから書いてんだろ多分
ちなみに俺のサイトなんて月10人くるかわからない程だぜ
835:デフォルトの名無しさん
09/02/15 07:18:58
しかもそれが検索エンジンのボットだったりするんだな
836:デフォルトの名無しさん
09/02/16 18:36:46
切実に>>822をお願いします。
リンクの保存はリンクIDで行うようにしていただけると助かります。
837:デフォルトの名無しさん
09/02/17 16:46:43
〉〉⑧③⑥
この中にあると思うから好きなのを選べ
URLﾘﾝｸ(www.google.co.jp)
838:デフォルトの名無しさん
09/02/17 17:12:31
>>837
残念ながらありませんでした。
839:831
09/02/22 15:39:29
お願いします
840:デフォルトの名無しさん
09/02/25 23:47:12
あげ