Perlでリクに答えるスクリプトを作るスレ

1 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:(・∀・)ﾁﾝﾎﾟｰ!! [04/06/02 11:39] perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。 だからリクエストをくれ。 722 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 19:07:26 ] とりあえず工数の見積もりに1万5千円ほどいただきます。 723 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 09:51:36 ] >>722 なんと...見積もりだけでそんなにかかるとわ。 もう少し安くならないの？ 724 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 16:06:52 ] 今なら、なんと、お見積もりが、ご奉仕価格の 1 万 4999 円！ 725 名前：デフォルトの名無しさん mailto:sage [2007/11/30(金) 23:14:49 ] このスレ、突然廃れたんだな。直前まで賑わってたみたいだが、自作自演でもやってたか？ 726 名前：もつ ◆hS9D2mmxqU mailto:sage [2007/12/25(火) 11:20:24 ] 保守？ 727 名前：デフォルトの名無しさん [2008/01/10(木) 02:10:56 ] ほ 728 名前：デフォルトの名無しさん [2008/01/10(木) 10:30:50 ] Amazonのマーケットプレイス画面をgetしたいのですが、 www.amazon.co.jp/gp/seller-account/management/your-account.html にPerlでアクセスすることが出来ません。 認証とかが必要なのでしょうか・・・・・・・。 729 名前：デフォルトの名無しさん mailto:sage [2008/01/10(木) 18:13:20 ] そりゃあ、自分のアカウントデータのやりとりは必要だろう 730 名前：anonymous mailto:sage [2008/01/26(土) 14:13:12 ] 2chの特定のスレURLを任意で指定し、 すべての投稿から、「すでに投稿された文面が再度登場していたら、 その数だけレス番付きで抽出する」 というものはできないでしょうか。 要は何がやりたいのかと言うと、 「スレッドがコピペ投稿だらけ」になっており、 レス削除要請を行いたいのです。 ただ、そのコピペの数が尋常じゃないので抽出が困難なのです。 「文面の95%が一致していたらコピペとみなす」機構が嬉しいです。 731 名前：デフォルトの名無しさん mailto:sage [2008/01/26(土) 19:37:04 ] 95%で、無関係の文章が巻き込まれたら嫌だなぁ。 って話はとりあえず置いといて、検索してたら String::Trigram とかいうモジュールがヒットした。 この辺使えば作れるのかな？ あとはスパムフィルタ関連の資料か。 URLの有無で判定するタイプもあるらしいから そういうタイプのフィルタは参考にはならないかも知れないけど。 732 名前：デフォルトの名無しさん mailto:sage [2008/01/26(土) 22:04:23 ] コピペ連投だと行頭の空白とかが混じることがあるから、 文字の先頭から末尾までが一致していたらアウト、という判定でいいんじゃね。 そういうの欲しいならRubyスレで頼むほうが早いかもよ。 733 名前：デフォルトの名無しさん mailto:sage [2008/01/30(水) 01:12:36 ] 指定したファイル以外を消去する作って！ 734 名前：デフォルトの名無しさん mailto:sage [2008/01/30(水) 02:21:14 ] >733 それだけじゃ何をどうすれば良いのか分からんな。 「カレントディレクトリ内にある指定したファイル以外を消去」だとすれば perl -e"for (glob '*'){$_ eq $ARGV[0] or unlink $_}" ファイル名 で出来るが、サブディレクトリは多分掘らない。 735 名前：733 mailto:sage [2008/01/30(水) 05:19:52 ] カレントディレクトリだけでOKです。 ありがとう　 今はこんな感じで改造しています。 いろいろしないといけないんですが 仮に指定したファイルがカレントディレクトリになかった場合とか 消去を確認するための方法とか　ファイルを複数指定したりとか perl のコマンドに詳しい本って なにかありますかねー(ネットでも調べていますが) #!/usr/bin/perl print "指定ファイルは？"; $file = <STDIN>; for (glob '*'){$_ eq $ARGV[0] or unlink $_} $file 736 名前：デフォルトの名無しさん mailto:sage [2008/01/30(水) 05:52:04 ] perl の関数一覧なら perlfunc ですぐ見れる 737 名前：デフォルトの名無しさん mailto:sage [2008/01/30(水) 05:56:58 ] >735 つーかマテ、その改造コード間違ってるんじゃねーか。 $file が全く関係ないところに書かれてる。 そのコードじゃカレントディレクトリ全部削除されるぞ。 $file = <STDIN>; と書くんだったら、 for (glob '*') { $_ eq $file or unlink $_ } にしなきゃ。 $ARGV[0] はコマンドラインからの引数な。 >734 はファイル名を引数として渡してる。 738 名前：733 mailto:sage [2008/01/30(水) 08:29:20 ] >>737 あー　ミスでしたか コマンドとか引数とか覚えないといけないところが まだまだありますな >>736 perlの関数　ありがとう　　 　 739 名前：デフォルトの名無しさん [2008/03/25(火) 20:19:49 ] 任意のフォルダに入ってるexeファイルを起動するスクリプトがほしいです。 740 名前：デフォルトの名無しさん mailto:sage [2008/03/26(水) 12:11:44 ] >739 その「任意のフォルダ」はコマンド引数で指定すれば良いのか？ 「任意のフォルダ」に.exeファイルが複数入ってる場合はどうすれば良いんだ？ 741 名前：デフォルトの名無しさん mailto:sage [2008/06/09(月) 15:23:34 ] ActivePerlで (擬似)子プロセスにてある条件を満たすと(sleep5とかでもなんでもいい)、親プロセスのTKウィジェットに反映する(リストボックスに一行追加とか)するスクリプトください 742 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 09:54:41 ] ttp://www.linkrr.com/ みたいな複数のURLアドレスを一気に開くことのできるスクリプトが欲しいです 743 名前：デフォルトの名無しさん [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 19:05:12 ] 間違えた col1 col2 か SQL初心者な物で 745 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 22:08:41 ] 今日も perl でエロ画像収集！ 明日も perl でエロ画像収集！ エロ画像収集言語 perl 万歳！ 746 名前：デフォルトの名無しさん mailto:sage [2008/10/12(日) 13:49:53 ] >>743だけど、DBD::CSVにバグがあった やってらんねー 結局できたけど 747 名前：デフォルトの名無しさん [2008/10/26(日) 08:58:18 ] ここでperlをPHPに変換とかしてくれる？ 748 名前：デフォルトの名無しさん mailto:sage [2008/10/26(日) 12:55:13 ] ばっちこい！ 749 名前：デフォルトの名無しさん mailto:sage [2008/10/26(日) 13:08:10 ] 600行くらいあるんだけど・・・ 750 名前：デフォルトの名無しさん mailto:sage [2008/10/26(日) 14:31:15 ] 情報後出しするやつは面倒だからお断りします 751 名前：デフォルトの名無しさん [2008/10/29(水) 19:22:48 ] 偶数行と奇数行を入れ替えるスクリプトをお願いします。 出力例） $cat　test.dat １ ２ ３ ４ ５ ６ スクリプト実行後 $cat　test.dat ２ １ ４ ３ ６ ５ 752 名前：デフォルトの名無しさん mailto:sage [2008/10/29(水) 21:16:39 ] perl -pe 'print scalar <>' 753 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 22:00:26 ] >>755 クールで惚れた 757 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 08:37:43 ] >>755 ありがとうございました！ 758 名前：デフォルトの名無しさん mailto:sage [2008/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 名前：デフォルトの名無しさん [2008/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 名前：デフォルトの名無しさん [2008/11/16(日) 14:36:30 ] 759は汎用性が必要だから、ファイル名とかドライブレターとかも関係なく動かせるのをお願いします 761 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 14:45:05 ] マルチしといて、動かなかったら注文付けんの？ win の人だったらワンライナーはシングルクォートの代りにダブルクォートにすれば良いよ。 762 名前：デフォルトの名無しさん [2008/11/29(土) 21:11:06 ] 入力フォームに入力して送信を押したら hogehoge.cgi?入力された言葉 というように表示してくれるスクリプトを作ってほしいのですが どなたか作ってもらえませんか？ 763 名前：デフォルトの名無しさん mailto:sage [2008/12/01(月) 13:11:03 ] print "Content-type: text/html �n�n"; print "hogehoge.cgi?入力された言葉"; 764 名前：デフォルトの名無しさん mailto:sage [2008/12/01(月) 23:28:02 ] > Perlでリクに答えるスクリプトを作るスレ リクといえば、大石 りく。赤穂藩家老大石内蔵助良雄の妻。 そろそろ討ち入りの時期です。 Perlでリクにどうやって応えられるのか、スレが立って足掛け4年。 そろそろ、リクを喜ばしてみれ。 765 名前：デフォルトの名無しさん mailto:sage [2008/12/02(火) 02:36:05 ] >>764 猛烈に面白くない 766 名前：デフォルトの名無しさん mailto:sage [2008/12/02(火) 19:00:24 ] 椎名りくは引退したの？ 767 名前：デフォルトの名無しさん [2008/12/14(日) 00:12:00 ] ほすほす 768 名前：デフォルトの名無しさん [2009/01/09(金) 01:04:58 ] 保守がてら いつまでたっても彼女ができないのですが、 バレンタインデーまでに(３次元の)彼女ができるスクリプトを作ってもらえませんか 769 名前：デフォルトの名無しさん mailto:sage [2009/01/09(金) 01:18:29 ] ３次元とか言ってる時点でお前には彼女なんて出来ないw 770 名前：デフォルトの名無しさん mailto:sage [2009/01/13(火) 19:50:17 ] >>768 バカだな。バレンタインデーまでにじゃなくてさ バレンタインデー当日にチョコと一緒に告白される方が絶対いいだろ 771 名前：デフォルトの名無しさん mailto:sage [2009/01/14(水) 01:17:26 ] >>768 じゃあそういう感じのスクリプトをお願いします！ できれば、彼女ができる日付を選べる感じで 772 名前：デフォルトの名無しさん mailto:sage [2009/01/14(水) 17:40:36 ] >>771 バレンタインデーと言っておいて日付を選べる感じとはいかこれに 773 名前：デフォルトの名無しさん mailto:sage [2009/01/15(木) 00:46:54 ] 彼女ができる日が可変、 チョコがもらえるのは2月14日で固定 774 名前：デフォルトの名無しさん mailto:sage [2009/01/15(木) 00:48:19 ] 備考： 俺が事前に彼女を作りたいのは、 「気合入れて作るから楽しみにしててね」といわれたいからだ 775 名前：デフォルトの名無しさん [2009/01/21(水) 13:09:37 ] 1つのフォームに改行を使って複数の単語を書き、それを受け渡して単語毎に並べるようなのって可能でしょうか？ $word[$_]のようなのでそれぞれの単語を分けたいのですがなかなか出来ません。 ご教授頂けますと有り難いです。 以下のような感じです。 ┌──────┐ │あいうえお　│ │かきくけこ　│(←textarea) │さしすせそ　│ └──────┘ 　↓受け渡し↓ あなたの記入した単語は 1つ目[あいうえお] 2つ目[かきくけこ] 3つ目[さしすせそ] の3つです。 のような感じです。 どなたか宜しくお願い致します。 776 名前：デフォルトの名無しさん mailto:sage [2009/01/21(水) 13:18:17 ] >>775 改行でsplitしたら？改行コードに気を付けないといけないけど、それで問題ないと思う。 777 名前：デフォルトの名無しさん [2009/01/21(水) 13:51:07 ] >>776 ありがとうございます。 調べてみます。 778 名前：デフォルトの名無しさん [2009/01/21(水) 20:39:36 ] >>776 すみません、やっぱりもう少し詳しくお願い出来ませんでしょうか？ 779 名前：775 [2009/01/21(水) 22:18:12 ] 現在このような感じです。 #変数[$word]を受け渡し @text = split(/\n/, $word); これを表示させたいのですが、どの様にしたら改行毎に一つずつ表示出来るのでしょうか？ そもそも上ので出来るのでしょうか？ すみませんが宜しくお願い致します。 780 名前：デフォルトの名無しさん mailto:sage [2009/01/21(水) 23:45:59 ] textarea　っていうのは、html の textarea のことか？ だったら html の textarea の使い方を調べなさいよ。 html すら知らないで perl でwebプログラミングなんて無謀すぎる。 781 名前：775 [2009/01/22(木) 00:32:14 ] textareaはわかります。 ですが、@textの改行された分だけ(例えば3回改行されていた場合)並べて表示させる方法がわかりません。 例えば あいうえお かきくけこ さしすせそ を入力したとしてそれを一つずつ表示させるためにはどうしたら良いのでしょうか？ 1行目 <textarea>あいうえお</textarea> 2行目 <textarea>かきくけこ</textarea> 3行目 <textarea>さしすせそ</textarea> のように一つずつ分けて、書かれた行数分だけループさせて書きたいのですが、教えていただけないでしょうか？ 説明不足で申し訳御座いませんが、宜しくお願い致します。 782 名前：デフォルトの名無しさん mailto:sage [2009/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>"; } まず www.tohoho-web.com/wwwperl2.htm ここでも読んで perl で使える命令を全部、頭に叩き込んでおけよ。 783 名前：デフォルトの名無しさん mailto:sage [2009/01/22(木) 16:37:56 ] おっと... 誤：　for ($i = 0; $i < $#text; $i++) ・・・ 正：　for ($i = 0; $i <= $#text; $i++) ・・・ 784 名前：デフォルトの名無しさん mailto:sage [2009/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 [2009/01/22(木) 18:05:17 ] >>782-783 ありがとうございます。 URL先と書いていただいた内容を参考にさせていただき、勉強致します。 >>784 ありがとうございます。 自分でも書いていて変だということに今気づきました。 簡単に纏めると、 �@フォームに文章を書いてもらい、受け渡す �Aそれを受け取り、改行毎に一つずつ変数を持たせて並べる みたいな感じです。 今も書いていて意味がわかりずらいです。 本当にすみませんでした。 786 名前：775 [2009/01/22(木) 23:39:14 ] どうしても出来ませんでした… どうやっても500エラーから逃れられません… >>782-783様や>>784様のを組み込もうと考えていたのですが、何か根本的に私のは間違っていたみたいです。 申し訳御座いませんが、出来れば一通りのサンプルのようなものを作成していただけないでしょうか？ 仕様は何度か書かせていただきましたが、 �@test.cgi(仮)にアクセスするとフォーム表示 �Aフォームに [あいうえお] [かきくけこ] [さしすせそ] 等を複数行記入してsubmitを押す �Bsubmitを押すと ◆1行目 あいうえお です。 ◆2行目 かきくけこ です。 ◆3行目 さしすせそ です。 のように表示される。 このようなのをお願いしたいのですが、やはり難しいでしょうか？ どなたか何卒宜しくお願い致します。 787 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 15:09:16 ] >>786 500エラーのエラー内容ください。 788 名前：775 [2009/01/23(金) 15:27:16 ] @textらへんでエラーが出てるようですが、 明らかに自分が書いた部分が掛かっていると思われますので、 修正というよりは１から作り直したいのですが、お手伝いしていただけますでしょうか？ 789 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 15:28:54 ] >>788 エラーログが見れない環境？ >>784コピペするとどうなる？ 790 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 15:42:16 ] すでに >>784 で答えが出てるじゃないか。 何が不満なのか？ スクリプトをホームページへ設置するやりかたまで 手取り足取り教えろとでも言うのか？ 791 名前：775 [2009/01/23(金) 18:07:42 ] >>789 すみません、エラーログは見れません。 >>784をコピペして使うと500が出ます。 792 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 18:31:21 ] じゃ、「http 500」でググれ 793 名前：775 [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 22:43:07 ] まさか、インデント用の全角スペースをそのままコピペしてた、 というオチではないだろうな。 795 名前：775 [2009/01/23(金) 22:59:08 ] いえ、削除致しました。 796 名前：775 [2009/01/23(金) 23:04:46 ] print <<"HTML" でエラーが出ました。 797 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 00:05:34 ] Unrecognized character \241 at tmp.pl line 8.　って出てるじゃないか。読めないの？ 798 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 00:08:32 ] >>796 これだろ？ Can't find string terminator "HTML" anywhere before EOF at m.pl line 10. 799 名前：775 [2009/01/24(土) 00:25:31 ] >>798 はいそれです。 800 名前：デフォルトの名無しさん [2009/01/24(土) 05:21:38 ] 最後に改行を入れてないためのエラーか。 というか、>>793は全角スペースのエラーだよね。>>794は言ってることあってたと思うんだけど会話になってないな。 801 名前：775 [2009/01/24(土) 06:00:43 ] >>800 確かにそうでした。 全角削除しても500出てたので勘違いしていました。すみませんでした。 最後に改行を入れた所、チェッカーでのエラーは無くなりましたが、未だにアクセスすると500になります。 何か原因などあるのでしょうか？ 802 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 08:04:02 ] シェバング行がねーよwwwアホスwww ここまで書かないとだめか？ 803 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 08:37:46 ] これはひどい。 とにかく、ひどい 804 名前：775 [2009/01/24(土) 10:24:36 ] すみません、理解出来ませんでしたので御説明いただけると有り難いです。 805 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 11:03:48 ] シェルやCGIなどのインターフェイスを介してスクリプトを実行させる際に、 スクリプトの一行目に、どのプログラムで解釈させるのかを書いておく。 その行をシェバング(sharp bang/shell bang)行と呼ぶ。 その行が欠落している。 詳しくは、お使いのサーバの管理者にお尋ねください。 806 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 11:40:03 ] コメニケーション能力不足 807 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 11:40:40 ] 会話のキャッチボールができていない 808 名前：デフォルトの名無しさん [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 12:26:39 ] >>806-807 つーか、クレクレだしな。 810 名前：775 [2009/01/24(土) 12:31:09 ] >>805 説明ありがとうございます。 そのような事すら知りませんでした。 勉強になります。 ありがとうございました。 >>806>>807 申し訳御座いませんでした。 リアルで話し下手なのがこのような場でも御迷惑をおかけしたことを大変恥じております。 これからはperl以前にそのような事にも気をつけたいと思います。 本当に申し訳御座いませんでした。 >>808 最後までご丁寧にありがとうございます。 コピーして使わせていただきます。 本当にありがとうございました。 このスレに来るのはこれで最後にします。 御迷惑ばかりおかけして本当に申し訳御座いませんでした。 811 名前：デフォルトの名無しさん [2009/01/24(土) 12:46:06 ] 結局改行の話以前のやり取りになったなw 812 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 14:23:19 ] バレンタインというものを人々の記憶から消し去るスクリプトを作ってください 813 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 15:34:59 ] >>812を葬れるスクリプトお願いします 814 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 15:56:54 ] >>813の呪いを消し去るスクリプトを作ってください 815 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 22:22:02 ] $str = "人々の記憶"; $str =~ s/バレンタインというもの//g; 816 名前：デフォルトの名無しさん mailto:sage [2009/01/26(月) 02:52:28 ] なんというシンプルさ 817 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 14:39:23 ] >>813って殺人依頼じゃね？ 818 名前：デフォルトの名無しさん mailto:sage [2009/01/30(金) 10:24:51 ] アゲ ナイ 819 名前：デフォルトの名無しさん mailto:sage [2009/01/30(金) 21:01:09 ] >>817 うむ、だが不能犯だな。 820 名前：デフォルトの名無しさん mailto:sage [2009/02/01(日) 13:37:25 ] 無能犯 821 名前：デフォルトの名無しさん mailto:sage [2009/02/02(月) 01:40:10 ] まあ、ギリギリアウトだな 822 名前：デフォルトの名無しさん [2009/02/04(水) 22:36:00 ] ・スクリプト マイリンク ・用途 リンクスクリプトで個人個人が好きなサイトをマイリンクに登録し、登録すると登録したサイトをマイリンクで確認出来る ・仕様 �@個体識別情報(携帯端末は個体識別番号、パソコンはIPアドレス)で判断し、それぞれの端末毎にマイリンクを表示させる �Aマイリンクページでマイリンクしたサイトの削除が可能(個人個人で) �B追加はリンク表示の横の[追加]リンクを押すことで追加 �Cマイリンクページでのマイリンクの表示数は10件程度で、超えた場合は次のページに表示 こんな感じのをお願い出来ませんでしょうか？ 使っているリンク集スクリプトはKENT WEBさんのコスモナビです。 どなたか宜しくお願いします。 823 名前：デフォルトの名無しさん mailto:sage [2009/02/04(水) 23:31:00 ] 既存のSBMの何が不満なんだ 824 名前：822 [2009/02/07(土) 11:32:30 ] >>823 自分が今サーバーに設置して使っているリンク集に、ユーザーが使えるマイリンク機能を追加したいのです。 3000サイトくらい登録しているので、利用者からマイリンク的なものを使えるようにしてくれと要望がありましたので此処にお願いに参りました。 822に追加でマイリンクページでカテゴリ分け(カテゴリ作成、編集、削除)出来たら最高です。 どなたか何卒、宜しくお願い致します。 825 名前：デフォルトの名無しさん [2009/02/08(日) 17:38:53 ] お願いしますage 826 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 17:48:33 ] DOSのバッチをPerlに書き換えてくれたりする？ 827 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 18:10:37 ] そんなの簡単。system 関数使えばいいじゃん。 828 名前：デフォルトの名無しさん [2009/02/13(金) 19:51:28 ] 1,2,3の数字を組み合わせて25桁の数字をだーーっと表示するスクリプトを何卒お願いします。 829 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/02/13(金) 23:04:58 ] >>829 ありがとうありがとうありがとう！ 831 名前：デフォルトの名無しさん [2009/02/15(日) 00:43:27 ] 現在そのスクリプトにアクセスしている人数を表示出来るスクリプトお願いします。 よくある[○人オンライン中]的なやつです。 時間は60秒くらいまでをオンライン中扱いにして、携帯電話も正確にカウントされるようにお願いします！ 832 名前：デフォルトの名無しさん [2009/02/15(日) 03:51:35 ] #mes = "自分以外誰もアクセスしてなくて悲しい思いすることになるからやめとけ"; 833 名前：デフォルトの名無しさん mailto:sage [2009/02/15(日) 06:10:14 ] www 834 名前：デフォルトの名無しさん mailto:sage [2009/02/15(日) 06:52:16 ] 訪問者多いから書いてんだろ多分 ちなみに俺のサイトなんて月10人くるかわからない程だぜ 835 名前：デフォルトの名無しさん mailto:sage [2009/02/15(日) 07:18:58 ] しかもそれが検索エンジンのボットだったりするんだな 836 名前：デフォルトの名無しさん [2009/02/16(月) 18:36:46 ] 切実に>>822をお願いします。 リンクの保存はリンクIDで行うようにしていただけると助かります。 837 名前：デフォルトの名無しさん [2009/02/17(火) 16:46:43 ] 〉〉�G�B�E この中にあると思うから好きなのを選べ www.google.co.jp/search?hl=ja&q=%E3%81%91%E3%82%93%E3%81%A8%E3%81%86%E3%81%87%E3%81%B6&lr= 838 名前：デフォルトの名無しさん [2009/02/17(火) 17:12:31 ] >>837 残念ながらありませんでした。 839 名前：831 [2009/02/22(日) 15:39:29 ] お願いします 840 名前：デフォルトの名無しさん [2009/02/25(水) 23:47:12 ] あげ

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef