Perlのこと何でも聞いてきてよ
レス数が900を超えています。1000を超えると表示できなくなるよ。
0001名無しさん＠お腹いっぱい。
02/02/04 00:32ID:???| 役に立つとは限らないけどね☆
∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
(,,ﾟДﾟ)＿＿＿＿.
（つ/~ ※ ※ ＼
／※ ※ ※ ※ ＼
~~~~~~~~~~~~~~~~~~~
0809nobodyさん
2005/07/30(土) 13:09:36ID:d2itdKNjごめんなさい。
0810nobodyさん
2005/07/30(土) 13:14:39ID:gTYaFPro0812HEAD
2005/07/30(土) 17:45:32ID:???エキサイトフレンズ[http://friends.excite.co.jp/]みたいに、
WEB上でメールを送受信できたり、他のユーザーを検索したりする、
メンバーディレクトリ的なスクリプトってないですか？対応は、C,Perlです。
スレ・カテ違いでしたら、誘導お願いします。
0813nobodyさん
2005/07/30(土) 21:04:35ID:???http://pc8.2ch.net/test/read.cgi/hp/1116923112
0814nobodyさん
2005/07/31(日) 20:22:34ID:tE006mzP愛してる
0815nobodyさん
2005/08/06(土) 00:39:43ID:???#PERL
/usr/bin/wget -r -l 1 -N -nH http://hoge.com/hoge.html > /dev/null 2>&1
これでcron使ってhttp://hoge.com/hoge.htmlから１層目までのファイルをダウンロードしようとしたんですけど
ambiguous redirectとでますた。
どこがおかしいんでしょうか？
0816JAPU ◆E.pgZNAsY2
2005/08/06(土) 14:18:15ID:???ambiguous redirect って出ているので，サーバからの応答がおかしいのでは?
wget --save-headers URL
で，エラー起きたURL試してみればよいかもしれない。
0817nobodyさん
2005/08/06(土) 18:22:31ID:???ありがとうございます。
やってみましたがまたambiguous redirectと出ました。
これ扱う質問はどこのスレですればいいんでしょうか？
0818nobodyさん
2005/08/07(日) 17:38:43ID:oN+VAQu9これなんですが携帯からだと書き込めません。
書き込み画面までいけないです。
PCからは普通に書き込めます。
multipart/form-dataが関係あると思うのですが
因みにアップロード機能は使いません。
どこをどう書き換えればいいでしょうか？
0819nobodyさん
2005/08/08(月) 05:57:54ID:???$str =~ s/＼%//g;
こうしたけどだめだった
0820nobodyさん
2005/08/08(月) 07:13:03ID:???0821nobodyさん
2005/08/08(月) 16:29:48ID:smXZQKV90823perlばっかり1年やってるのに初めて。。。
2005/08/08(月) 17:12:39ID:???という普通の処理で下のようなエラーがでます。
Modification of a read-only value attempted at ファイル名 line 149.
なぜか while を foreach に変えると動きます。。。
普通 open ⇒ while ⇒ close ですよね？（；´ω｀）
なぜこのようなことが起きるのでしょうか？
よろしくお願いします。
0824823
2005/08/08(月) 17:20:43ID:???このパターン初めてだ。。。
0825nobodyさん
2005/08/10(水) 00:02:27ID:PTE7pUU7何方か知ってる方居たら教えていただけませんか？
0826nobodyさん
2005/08/10(水) 00:36:15ID:???http://downloads.activestate.com/ActivePerl/Windows/5.8/
0827nobodyさん
2005/08/10(水) 00:43:51ID:PTE7pUU7本当に感謝の気持でいっぱいです。ありがとうございましたm(_ _)m
0828nobodyさん
2005/08/13(土) 01:58:29ID:???音引きで置き換えなどができない問題で、
\Qほにゃらら\Eで置き換えた場合、文字化けが発生してしまうのですが、
これはJISコードだからでしょうか。
いまからでも、扱う文字を全部EUCにしたほうがいいですか？
0829nobodyさん
2005/08/14(日) 18:50:35ID:???バークレーについてはなかなかWEB上に見つけられなくて・・・。
会員だけがデータ登録可能で、一般ユーザは検索・抽出だけしたいのですが・・
バークレイはテーブルという概念はないのでしょうか？
よろしくお願いいたします。
0831nobodyさん
2005/08/16(火) 16:07:03ID:22f9XKc9ＵＡでＰＣからのアクセスか携帯からのアクセスか判定する
foreachであらかじめリストに入れておいた文字列を開いてＵＡとマッチするとフラグが立つ
もしフラグが立っているならば今度はforeachであらかじめリストに入れておいた文字列２を開いてホストとマッチするか調べる
もしもホストが携帯固有のもので、前述したリストとマッチしたらページを表示する
それいがいはelseで別ページを開く（要はＵＡを携帯に偽装したアクセスを弾く）
サブルーチンは使わないで ＨＴＭＬ部分はヒアドキュメントで記述しているんですが
携帯からアクセスすると、elseで用意したページの内容まで表示されてしまいます
しかも三回ぐらい（ページのバナーごと三回ぐらい表示される）
foreachの使い方に問題があるとおもうのですが、、、誰かご指南してください頼む
0832nobodyさん
2005/08/16(火) 17:22:46ID:Y3KaJd+a書かずに分かるわけないだろ。
エスパーじゃあるまいし。
0833nobodyさん
2005/08/16(火) 17:24:16ID:???リストとマッチしたらページを表示する
↓
リストとマッチしたらフラグ2を立ててlast
フラグ2があればページ表示
なければ別ページ
0834831
2005/08/16(火) 17:34:41ID:22f9XKc9$flag = 0;
$ua = $ENV{'HTTP_USER_AGENT'};
$ip = $ENV{'REMOTE_ADDR'};
$ipp = pack('c4',split(/\./,$ip));
$host = gethostbyaddr($ipp,2);
@check=("携帯のＵＡ");
@check2=("携帯のホスト");
foreach $check(@check){
if ($ua =~ m/$check/){
$flag = 1;
}
}
if ($flag eq 1){
foreach $check2(@check2){
if ($host =~ m/$check2/){
print <<EOM;
<html>携帯専用ページ</html>
EOM
}else{
print <<EOM;
<html>拒否ページ</html>
EOM
}
}
}
}
0835831
2005/08/16(火) 17:37:08ID:22f9XKc9ソースは上記の通りです
どのようにlastを使ったらよろしいでしょうか？
0836832
2005/08/16(火) 18:01:44ID:???if ($flag) {
foreach $check2 (@check2) {
if ($host =~ m/$check2/) {
$flag2 = 1;
last;
}
}
}
if ($flag2) {
print <<EOM;
<html>携帯専用ページ</html>
EOM
} else {
print <<EOM;
<html>拒否ページ</html>
EOM
}
0837nobodyさん
2005/08/16(火) 18:18:42ID:???最終的にホストではじいているのに、なんでUAをチェックする必要があるの？
0838831
2005/08/16(火) 18:23:15ID:22f9XKc9ありがとうございます。
携帯からはうまくいきました。
しかし、ＰＣから閲覧すると、拒否ページが表示され、
その下にＰＣページが表示されてしまいます。
バナーが１ページにふたつ表示されている状態です。
この場合なにが原因だと考えられますか？
0839831
2005/08/16(火) 18:24:38ID:22f9XKc9携帯を装ったアクセスを拒否するためです
0840831
2005/08/16(火) 19:35:34ID:22f9XKc9おまえらありがとう
0841nobodyさん
2005/08/16(火) 20:53:51ID:???http://www.google.co.jp/search?hl=ja&q=perl+Berkeley+db
0842nobodyさん
2005/08/17(水) 02:32:55ID:???linux板でしたほうがいいですか?それともここでよろしいですか?
0843nobodyさん
2005/08/17(水) 06:28:22ID:???0845nobodyさん
2005/08/18(木) 11:15:58ID:qmrkuNcGLinux+apache1.3.33+Perl5でシステム関数等を使用禁止にしたいです。
PHPにはsafe_mode？とかがあるようですが、、、
検索もうまくヒットできないので、ヒントを教えて頂けませんか
0846nobodyさん
2005/08/18(木) 21:05:39ID:???http://search.cpan.org/~nwclark/perl-5.8.7/ext/Opcode/Opcode.pm
http://search.cpan.org/~nwclark/perl-5.8.7/pod/perlrun.pod
0847nobodyさん
2005/08/25(木) 18:58:47ID:/oUQtUpvイメージとしてはwebminのminiserv.plみたいなものです。
だからといってminiserv.plパクるのは無しでお願いします。
httpsでお話できるのも必須です。
そんなナイスなCPANモジュールをご存じないですか？
0848847
2005/08/25(木) 19:02:38ID:???わがまま言ってｽﾏｿ
0849nobodyさん
2005/08/25(木) 19:57:35ID:???httpsでお話できるのも必須です。
↑
それって普通のHTTPサーバじゃないのか？
0850nobodyさん
2005/08/25(木) 20:05:03ID:???何をしたいのか、誤解のないように正確に書きましょう。
0851847
2005/08/25(木) 23:17:51ID:YyTm9DNHそんなんで探してみたら、それらしいCPANのライブラリありますた。
http://search.cpan.org/~rse/lcwa-1.0.0/lib/lwp/lib/HTTP/Daemon.pm
こんな感じですね。
で、perlのスクリプトに対してリクエストが来たら、それを実行したいのです。
そして、このperlのスクリプトの中ではCGI.pmが使えるとうれしい、、とうい意味なのです。
なんでCGI.pmかというと、POSTやGETで来た変数をCGI.pmを使って楽に処理したいのからです。
結局、Perlで書かれたWebサーバで、CGIが実行できるものを探していまふ。
0852nobodyさん
2005/08/25(木) 23:21:33ID:???0853nobodyさん
2005/08/25(木) 23:25:41ID:???0854nobodyさん
2005/08/25(木) 23:34:08ID:???0855nobodyさん
2005/08/25(木) 23:48:26ID:???0856nobodyさん
2005/08/26(金) 06:50:07ID:???0857847
2005/08/26(金) 18:13:00ID:???ApacheやIISを使いたくない理由は、
単なる技術的興味で全てWEBサーバもperlで実装してみたい。というだけです。
奇特な人です（ｗ
で、自分で実装したWEBサーバ上で、任意のCGI(perl)を動かしたいと思ってます。
>>855
>cgiのローカルテスト専用httpd？
そんな感じをイメージしてます。
0860nobodyさん
2005/08/28(日) 16:44:44ID:oW7L5bvyBasic認証のＩＤを複数登録している状態で
パスワードを共通のものに一括変換したいんですが
perlで簡単に出来るものでしょうか？
0861nobodyさん
2005/08/28(日) 16:45:39ID:???申し訳ない・・・
0862nobodyさん
2005/08/29(月) 10:18:06ID:vBUA0nafそれなりにperl使えるなら簡単にできると思うが、簡単にできるかどうか
質問するレベルの香具師には難しいかもしれんな。
0863nobodyさん
2005/08/29(月) 15:51:59ID:???0864nobodyさん
2005/08/29(月) 15:54:51ID:???0865nobodyさん
2005/08/29(月) 16:59:00ID:???0866nobodyさん
2005/08/29(月) 21:35:39ID:???パァルではないか
0867nobodyさん
2005/08/29(月) 21:49:55ID:???0868nobodyさん
2005/08/29(月) 22:36:03ID:???0869nobodyさん
2005/08/29(月) 23:00:59ID:???正しくはpearlだぞ。
中学校で勉強し直してこいよ。
0870nobodyさん
2005/08/29(月) 23:11:46ID:???ほんとうに Pearl だった
1へぇ('A`)
0871nobodyさん
2005/08/29(月) 23:50:53ID:???0872nobodyさん
2005/08/30(火) 18:26:52ID:???0873nobodyさん
2005/09/01(木) 23:04:04ID:bjOdnOK60874nobodyさん
2005/09/01(木) 23:05:28ID:PCj3VA+50875nobodyさん
2005/09/02(金) 00:46:09ID:???リファレンスを取って即デリファレンスする構文でいっぺん氏ね。
0876nobodyさん
2005/09/02(金) 17:39:52ID:+75P2vueなぜハゲだとわかったんですか貴様。
>>875
よく言いたいことをわかってくれましたね。
もうおまえらに用はありませんので死んだらどうです？
0878nobodyさん
2005/09/02(金) 21:58:02ID:+75P2vueじゃあ僕がもっと面白いことを言える様になるプログラムを組んでください。
おまえの笑顔が見たいからさ。
0879nobodyさん
2005/09/03(土) 03:39:59ID:nnPn1Iyoおまえ”ら”だったら協力したのに。
0880kurochibi
2005/09/03(土) 16:09:57ID:???Ｏｐｅｒａでは正常に動いたが、ＩＥ6.0 と ＦｉｒｅＦＯｘでは
Method not Allowed というエラーが出てしまう。
プロバイダーはAppacheをFreeBSD上で使っている。
解決方法について何かヒント」を！！！
0881nobodyさん
2005/09/03(土) 16:22:12ID:A1NacjAp0882nobodyさん
2005/09/03(土) 20:46:25ID:UUBko5tb0883nobodyさん
2005/09/03(土) 22:26:47ID:2jap+WvVみんなはファイル読んだ後、ファイル閉じてる？
閉じなくても変わりないから負担減らそうと思って省略してるんだけど、これってまずいかな？
書き込む時は閉じてるんだけど。
みなさんはどうしてますか？
open(UNKO,"umai.txt");
while(<UNKO>){
}
close(UNKO)←ここ
0884nobodyさん
2005/09/03(土) 22:51:16ID:???0885nobodyさん
2005/09/03(土) 22:53:45ID:2jap+WvVちょっとでも省略出来たらいいな、と思って。
あまり意味ない？
0886nobodyさん
2005/09/03(土) 23:06:25ID:A1NacjApたかが10バイトのディスク領域をケチって楽しいか？
10バイト削っても空き容量は増えないけどな。
0887nobodyさん
2005/09/04(日) 01:03:00ID:???0888nobodyさん
2005/09/04(日) 01:04:14ID:???0889nobodyさん
2005/09/04(日) 02:44:52ID:nWuo3A4uforeach(@tarou){
〜〜
}
と
foreach(split(/<>/,<IN>)){
〜〜
}
って何か違いあるかな？
下の場合は、ループ中毎回分解処理をするのかな？
0890nobodyさん
2005/09/04(日) 12:11:13ID:QV6CtW4crequire 'giko.pl';
シングルとダブルのなにか違いでもあるのかな？
どちらでも動作してますけど・・・・
0892nobodyさん
2005/09/04(日) 19:54:48ID:???逝ってきます
||
||
||
||
∧||∧
（ / ⌒ヽ
| | |
∪ |
| | |
∪∪
━━━━━
0894nobodyさん
2005/09/05(月) 14:57:44ID:spnR/kA9perlのopenについてなんですが、
open(FILE,"test.txt");
@data=<FILE>;
close(FILE);
一般的にこういう処理になるとおもうのですが、複数の外部ファイルを一度に
処理する方法はありますか？たとえば、test.txtとtest2.txtをいっぺんに処理
できる方法をおしえてください。perl初心者ですが、下のようなやり方をしても
無理でした・・・
open(FILE,"(test.txt,test2.txt)");
@data=<FILE>;
close(FILE);
複数の外部ファイルの処理は不可能なんでしょうか。。
なにかいい方法があったらご教授願います。
0895nobodyさん
2005/09/05(月) 15:39:39ID:???0896nobodyさん
2005/09/05(月) 16:18:51ID:???open(FILE2,'test2.txt');
open(FILE3,'test3.txt');
cloe(FILE1);
cloe(FILE2);
cloe(FILE3);
お好きなだけどうぞ
0897nobodyさん
2005/09/05(月) 16:19:26ID:???○ close
0898nobodyさん
2005/09/05(月) 16:54:07ID:VkH+gvW70899nobodyさん
2005/09/05(月) 17:43:35ID:???print hoge のhogeを""で囲うか''で囲うかみたいなもんかなぁ…。
""だと$hogeみたいな変数の中身が出てくるので、require "$hoge.pl"; みたいに使える。
わざわざそんな事する必要ないのだがな
0900nobodyさん
2005/09/05(月) 18:42:09ID:???結果が返ってきます…
http://www.antun.net/tips/soap/google.html
http://nakahara21.com/index.php?itemid=602
↑ここのページなんかを見ると、Googleのほうで仕様変更があって、
日本語キーワードをうけつけてない…という話らしいんですが…
何か情報をお持ちのかたいらっしゃいませんか？
0901nobodyさん
2005/09/06(火) 15:22:52ID:MHrXIfbOサンプルになるようなスクリプトや解説サイトがあったら教えてくれさい。
0902nobodyさん
2005/09/06(火) 15:29:46ID:???俺には全く同じに見えるが。
どちらも<IN>から一行読んで、それをsplitしとるんでしよ。
つーか、実際にコード書いて試してみりゃええやん。
それと、foreachで書いている人を久々に見たな。
5年くらい昔にforでエエやんと人に言われて、
以来俺もforで書くようになった。
0903nobodyさん
2005/09/06(火) 15:31:42ID:???こんなんいかが？
my @data;
for my $f (qw(test1.txt test2.txt))
{
open(FILE, $f);
push(@data, <FILE>);
close(FILE);
}
0904nobodyさん
2005/09/06(火) 15:52:17ID:???flashでゲームを作ったんですが、そのスコアを仮にtest.cgi
に送るにはどうすればいいですか？
データの受け渡しはcgi-lib.plを使用しています。
0905nobodyさん
2005/09/06(火) 15:58:20ID:???0906nobodyさん
2005/09/06(火) 17:06:24ID:???0907nobodyさん
2005/09/06(火) 17:06:39ID:???http://pc8.2ch.net/test/read.cgi/php/1018614427/262
レス数が900を超えています。1000を超えると表示できなくなるよ。