- 1 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:(・∀・)ﾁﾝﾎﾟｰ!! [04/06/02 11:39]
- perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。
だからリクエストをくれ。
- 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
ありがとうございます。
自分でも書いていて変だということに今気づきました。
簡単に纏めると、
①フォームに文章を書いてもらい、受け渡す
②それを受け取り、改行毎に一つずつ変数を持たせて並べる
みたいな感じです。
今も書いていて意味がわかりずらいです。
本当にすみませんでした。
- 786 名前：775 [2009/01/22(木) 23:39:14 ]
- どうしても出来ませんでした…
どうやっても500エラーから逃れられません…
>>782-783様や>>784様のを組み込もうと考えていたのですが、何か根本的に私のは間違っていたみたいです。
申し訳御座いませんが、出来れば一通りのサンプルのようなものを作成していただけないでしょうか？
仕様は何度か書かせていただきましたが、
①test.cgi(仮)にアクセスするとフォーム表示
②フォームに
[あいうえお]
[かきくけこ]
[さしすせそ]
等を複数行記入してsubmitを押す
③submitを押すと
◆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アドレス)で判断し、それぞれの端末毎にマイリンクを表示させる
②マイリンクページでマイリンクしたサイトの削除が可能(個人個人で)
③追加はリンク表示の横の[追加]リンクを押すことで追加
④マイリンクページでのマイリンクの表示数は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 ]
- 〉〉⑧③⑥
この中にあると思うから好きなのを選べ
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 ]
- あげ
|
 |
