【Perl】初心者コーナー Part19
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/01/11 13:52ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
あとは>>2-10にまかせた。
010290
03/01/13 23:42ID:???0104nobodyさん
03/01/14 00:21ID:uaEPu1zEプログラムを書いているのですが、
初めてアップロードする場合はよいのですが、
ファイルを書き換える（上書き）時、
どうも、ブラウザのキャッシュが悪さをしているようで
ファイル上では書き変わっているのに、ブラウザ表示上では
以前の画像ファイルが表示されてしまう事があります。
（この場合何度かリロードしないと本来のファイルを表示してくれません）
これを、書き換えた後はキャッシュを利用しないようには出来ないでしょうか？
0105nobodyさん
03/01/14 00:25ID:yqTa2j5Q0106yani ◆saNSktNEdQ
03/01/14 01:29ID:HMXRNLis事故レス
当たり前だった。
0108nobodyさん
03/01/14 02:49ID:???ファイル名にtimeのクエリを取り付けるとよかと。
（ただし、JavaScriptかSSIが必要）
読み込みたい画像が、
a20030114025535.jpg
だとするとき。
本来ならば、
<img src="a20030114025535.jpg" width="100" height="100" alt="img">
のところを、JavaScriptで排泄しる。
<script type="text/javascript"><!--
var T = new Date();
document.write('<img src="a20030114025535.jpg?' + T.getTime() + '" width="100" height="100" alt="img">')
// -->
</script>
など。
SSIならば、
表示させたいところに、
<img src="a20030114025535.jpg?time関数の値" width="100" height="100" alt="img">
を吐き出す .cgi を描く。
ブラウザの中には Pragma:no-cache 等を無視してくれよるのもおるから。
0109104
03/01/14 03:54ID:???ほぉほぉなるほど！！
それならば、別ファイル（？）として扱われるわけですね。
HTMLのヘッダに
Pragma:no-cache
cache-control:no-cache
入れてまして、HTMLの方は非キャッシュOKだったんですけど
画像の方がどうもうまくいっておりませんでした。
今日は遅いので明日にでも試させて頂きますー。
0110NOBODYたん
03/01/14 04:04ID:???>>85
関数を先に宣言するのであれば、
--
sub hoge(\@\@\@)
{
...
}
hoge(@a0, @a1, @a2);
--
と書いたとき、hoge(\@a0, \@a1, \@a2); と同じ効果を得られる。
たとえば、以下のように pop 関数を再実装することが可能。
(mypop(\@array) と書く必要はない。)
--
sub mypop(\@)
{
my $ar = shift;
my $last = $ar->[-1];
$#$ar--;
return $last;
}
$x = mypop(@array);
--
0111nobodyさん
03/01/14 04:58ID:/jKmOe0i0112nobodyさん
03/01/14 05:00ID:???0113NOBODYたん
03/01/14 05:44ID:???use LWP::Simple;
$html = get "http://www.perl.com/";
or
use LWP::UserAgent;
$html = wget("http://www.perl.com/");
sub wget
{
my $url = shift;
my $request = new HTTP::Request(GET => $url);
my $ua = new LWP::UserAgent;
my $response = $ua->request($request);
if ($response->is_success) {
return $response->content;
} else {
return undef
}
}
cf. http://search.cpan.org/author/GAAS/libwww-perl-5.68/
0114nobodyさん
03/01/14 05:45ID:KVuhYoblhttp://www6.ocn.ne.jp/~endou/ten.html
0115nobodyさん
03/01/14 06:42ID:/jKmOe0iありがとうございます。
LWPを使って読めるようになりました。
作っているのは、よくある○○弁変換みたいな奴なんですが、
読み込むサイズによって過負荷になってしまいますよね。
サイズのチェック（一定量処理したらやめるような）は
どうすればいいのでしょうか。
Simpleのheadを使ってみたのですが
yahooさえcontent-lengthを返さないのでダメでした。
0116111
03/01/14 06:53ID:???0117nobodyさん
03/01/14 07:19ID:ea2A6+p/あまりに時間がかかりすぎるようなら、サーバーが500を返して勝手に止まるから、
それでいいじゃねえか
0118nobodyさん
03/01/14 10:37ID:???ないだろ。そういうCGIが増殖するから、あんまり
CGIがまともにつかえそうなところがなくなるんだよ。
0119nobodyさん
03/01/14 10:39ID:???とりあえず貧乏パーラは人にものを頼むときに「お願いします」って
言うってことを覚えとけ。
ほれ、
$ cat testdbi.pl
use DBI;
$dbn=$ARGV[0];
$dbh=DBI->connect($dbn,$ARGV[1],$ARGV[2]);
$sth=$dbh->prepare($ARGV[3]);
if ($sth->execute) {
while(@row=$sth->fetchrow_array) {
print "@row\n";
}
}
$dbh->disconnect;
1;
0120nobodyさん
03/01/14 13:10ID:xMMJe1Ufうまくいきません。
■スクリプトはこんな感じ
-------------------------------------
%hoge = ('unko' => 5,
'chinko' => 3,
'manko' =>9);
foreach my $k(sort{$hoge{$a} <=> $hoge{$b}}%hoge) {
print("$hoge{$k}" . "\t" . $k . "\n");
}
-------------------------------------
■出力結果はこんな感じ
-------------------------------------
9
3
5
3 chinko
5 unko
9 manko
-------------------------------------
いちおう値でソートしてくれてるんですが、目的の出力の前になぜか値の一覧が出てしまいます。
どうすればいいですか？( ´･∀･`)
0121 ◆PxAOHU.zVE
03/01/14 13:49ID:pln/ogcF%hogeの前にkeysをいれる。
0122nobodyさん
03/01/15 00:32ID:AlO2VnQaせっかく文字出力ができるので、webdingsなどのフォントにある外字を
使おうと思ったのですが、文字の指定方法がわかりません。
普通の文字なら
$NEWIMG->Annotate( text=>'A', pointsize=>14, fill=>'#000000',
x=>$posX, y=>$posY, font=>'img/ariblk.ttf' );
とやればいけるのですが、使いたい文字をアクセサリの「文字コード表」
から拾ってきても「?」になってしまいます。
文字コードはわかるからそこから指定できるのではないかと思いますが
その指定方法がわかりません。
どのように指定したらいいでしょうか？
0124nobodyさん
03/01/15 02:08ID:ybtk15GBhttp://click.dtiserv2.com/Click5/1-45-2963
0126貧乏パーラー
03/01/15 05:28ID:???SELECTでフィールド８個以上をクエリするとエラーなります。
DBをMySQLにしてDBD::mysqlPPにしたらフィールド33個をクエリしてもOKでした
クライアント、DB共にWinXPです。
DBD::PgPPはこういう制限があるという事でしょうか？宜しくお願いします。
0127nobodyさん
03/01/15 07:39ID:???どうすればよろしいでしょうか。
今は、chop $str;chop $str;でやっています。
VBAでいう、left(string,2)の様な関数？はありますか？
0128nobodyさん
03/01/15 07:59ID:???VBAは良く知らんがN88BasicのMIDの感じだな。
0130nobodyさん
03/01/15 09:56ID:2BGcsgzZ作者日本人メール汁
0131nobodyさん
03/01/15 10:22ID:wVEDeB5Sという投票・ランキングcgiを設置しようと出来合いの探したところ
項目が140あるので検索機能がついたvote．cgiを探したところ、
ttp://www.c-5.ne.jp/~hamachan/cgihtm/jiten.htm
上記↑で配布されている「簡易データーベース」というものにたどり着きました。
プログラムが古いので
require './jcode.pl';
#-----------------------------------------------------------------
↑これの次の行に↓この一行を追加しました。
open STDOUT, '>-';
jcode.plも新しいバージョンに変えて、説明書きにあったとおり
「ずっこけ物知り辞典」という表示がページに出るところまでは
うまくいったのですが、実際に登録・検索しようとすると、
「ページが見つかりません」、との表示が出ます。
ちなみに、Tripodを使っています。
FTPソフトで見ると、cgi-binフォルダの中に
jiten.cgi、jcode.pl、jiten.docが入っていますが
jiten.docのファイルサイズは0になっています。
count.docファイルは生成されていないようです。
どこをどう改善すればよいのか、ご指導よろしくお願いします。
0132nobodyさん
03/01/15 10:45ID:???データファイルを別ディレクトリにしてみたら？
TripodのCGI設置の説明をちょっと読んだけど、cgi-bin 直下に画像ファイルなどは
置けないとあるので、.cgi .pl 以外のファイルは全滅なのかもしれん。
あと、ここはPerlスレだからCGIに関する質問はできるだけ他のスレでやってな。
013485
03/01/15 12:12ID:lPFUjXcRありがとうございます。
参照は初級者向けじゃないみたいで、例文に参照以外の
わからない箇所が多いので地道に勉強中。
ソース丸写し以外で使えるよう頑張ります。
0135山崎渉
03/01/15 13:31ID:???0136nobodyさん
03/01/15 14:07ID:???新たなPATHを追加したいと思ったんですけど
$ENV{'PATH'} .= ';c:\hogehoge';
ではうまく行きませんでした どうやればいいのでしょうか？
0137nobodyさん
03/01/15 15:38ID:5j+QQZeA色んなアカウントに送られてきたメールを片っ端からＤＢに登録したいのです。
なんかいい参考書やサイトを知りませんか？
よろしくおながいしますm(_ _)m
0138vvv
03/01/15 15:42ID:ZNHQB8hs★ＹＡＨＯＯＯプロフィール★
0140nobodyさん
03/01/15 19:13ID:POOF/+eY下記の場合、どちらが効率的なのでしょう？
１．例えばデータファイルを一つにまとめ、
登録NO<>カテゴリ<>データ
などと登録する方法
２．データファイルをカテゴリ毎に、
data1.log
data2.log ・・・
等と１カテゴリで１データファイルとする。
一つのデータファイルにまとめるとファイルが大きくなってしまい、
カテゴリ毎に分ける方が良い様な気もするのですが、
実際の所はどうなのでしょうか？
サーバー付加の大小の観点からも御指導頂ければ幸いです。
0141nobodyさん
03/01/15 20:20ID:mlzRLcDEじゃ二次元テーブルってできないのですか？
アルゴリズムを教えてください。
0142nobodyさん
03/01/15 20:23ID:???すいません、二次元配列で検索した直ぐに分かりました・・・
はぁ・・・容易にはできないのですね。がんばって作ります。
014358
03/01/15 21:20ID:???print $tbl[100][100];
0145144
03/01/15 23:45ID:???リストの二次元配列だから面倒だわ、忘れてくれぃ。
0146nobodyさん
03/01/16 07:53ID:RDhobq0Jっていうのがあるのですがこの"[]"は何をやってるのですか？
0147nobodyさん
03/01/16 13:09ID:???http://www.kt.rim.or.jp/~kbk/perl5.005/perlref.html
http://www.kt.rim.or.jp/~kbk/perl5.005/perllol.html
とにかく全部読め。話はそれからだ。
0148nobody
03/01/16 19:36ID:6WICp0JYそこで、それらを結合するために
$body = '<body bgcolor="'.$bgcolor.'" background="'.$background.'" text="'.$text.'" link="'.$link.' " vlink="'.$vlink.'" alink="'.$alink.'">';
と書いたのですが、なぜか$bodyが空文字になってしまいます。
超初歩だとは思いますがどなたか解決法を教えてくださらないでしょうか。
0149nobodyさん
03/01/16 19:43ID:???$bodyが消える理由はわからんが。
スコープ外とかいうオチじゃないかな？
0151nobodyさん
03/01/16 20:46ID:???0154nobodyさん
03/01/16 21:31ID:rmmrK9en0155 ◆ZnBI2EKkq.
03/01/16 21:59ID:4OjEZO2Wmy $expires = shift;
・・・
if($expires > 0) {
グリニッジ標準時の文字列を作って
}
print "Set-Cookie: ・・・
とやっているのですが $expiresには何が入って
どういう意味で使ってるかわかりません。
教えて下さい。よろしくお願いします。
0156nobodyさん
03/01/16 22:27ID:t/gkHHSAexpireの意味知ってますか？
クッキーの有効期限設定してるんだろ
expireなしなら、セッション間のみ有効なクッキー
CGIの話ね
0157nobody
03/01/16 22:30ID:6WICp0JYありがとうございました。
それをコピペしたら普通にできました。
原因はじっくり解明したいと思います…。
0158nobodyさん
03/01/16 22:45ID:Tl7JXy0hほとんどのサイトでは
use strict 使う
-w スイッチ使う
グローバル変数をなるべく使わないようにする
/o スイッチ使わない
くらいしか書いてない。
なのに、この通りやってもなんか銚子が悪い。
mod_perl で動かすときって何か他にやらなきゃいけないことってあるん？
例えば eval 使ってはだめとか、
オブジェクトはちゃんとDESTORYしないとだめとか。
0159nobodyさん
03/01/16 22:49ID:rmmrK9en0160nobodyさん
03/01/17 00:43ID:???その中にある hoge 言う文字がいくつあるかカウントしたいんですが
どうすればいいんでしょう？
open (HOGE,"hoge.txt");
?????
close(HOGE);
0161nobodyさん
03/01/17 01:18ID:???hogeがどんな風に入っているかで変わってくる。
一つの行にhogeが0か1個しか入っていないことが保証されているならば、
open(HOGE, 'hoge.txt');
@hoge = grep { /hoge/ } <IN>;
close(HOGE);
$count_hoge = scalar @hoge;
全く保証されていないならば、
open(HOGE, 'hoge.txt');
$hoge = join('', <IN>);
close(HOGE);
$count_hoge = $hoge =~ s/hoge//g;
これでいいような気がする。
0162nobodyさん
03/01/17 02:19ID:???0164nobodyさん
03/01/17 15:03ID:l3uVFji3メソッド（サブルーチン）の引数が正しくない
（引数の数が正しくないとか、数字であるべきところが文字列だったとか）
の場合、どうすればいいのでしょうか？
エラーを表示？
エラーを返して終了？
単にreturn？
0167nobodyさん
03/01/17 18:46ID:95w9V4FK設置しようとしています。
とりあえず入り口は出来たのですが、肝心の出口がどうやら設定がおかしい
ようで"画像をアップできません"とエラーが出ます。
恐らく下記の設定方法を間違えているのでエラーが出るのだと思います。
# アップロードディレクトリ
# → パスの最後は / で終わること
# → フルパスだと / から記述する
$ImgDir = "?????.hp.infoseek.co.jp/clip/img/";
# アップロードディレクトリのＵＲＬパス
# → パスの最後は / で終わること
$ImgUrl = "http://?????.hp.infoseek.co.jp/clip/img/";
色々調べたのですが、ここの部分だけハッキリ答えが出せません。
どうか出口の設定方法を教えてください。
0168nobodyさん
03/01/17 19:00ID:zt5lo6Y5今どう設定してあってエラーでてるの？
てか何を悩んでるの？
0169nobodyさん
03/01/17 19:01ID:???2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
て書いてくれ。
下げてみるテスト(鬱
0170nobodyさん
03/01/17 19:10ID:mT3lwUSe壊れて0バイトになってしまいます。
使用ソフトはTransmitとNetFinderです。
アップするファイルはCGIのためアスキーモードで転送しています。
でもファイルが壊れてしまいます。
9だとうまくアップできるんですが・・・
どなたか詳しい人教えて下さい
0171nobodyさん
03/01/17 19:55ID:???my $str;
my $file = 'hoge.txt';
my $hoge_count = 0;
open TXT, $file or die $!;
read TXT, $str, -s $file;
close TXT;
while($str =~ m/hoge/g){
$hoge_count++
}
print $hoge_count, "\n";
0172nobodyさん
03/01/17 20:06ID:???ファイルがかなり大きくなってきて
ファイルを全て読み込まず
ファイルの末尾から一行ずつ読み込みたいのですが、
どうしたらいいのでしょうか？
0174nobodyさん
03/01/17 20:26ID:???0175nobodyさん
03/01/17 20:27ID:???# アップロードディレクトリ
# → パスの最後は / で終わること
# → フルパスだと / から記述する
$ImgDir = "/clip/img/";
# アップロードディレクトリのＵＲＬパス
# → パスの最後は / で終わること
$ImgUrl = "/clip/img/";
で、いんでないの？
>>170
丸痴君ね。
http://pc.2ch.net/test/read.cgi/mac/1042606577/267
>>172
過去ログに似たようなのがあったような記憶が・・・
0177１７３
03/01/17 20:31ID:???tailを知っていたのなら、ソース読んじゃえばいいのに。
全部読み込んでいるよ。まあ、細かく言えばPerlのようには
読んではいないけど、全てを読み込まないのに最後を知る
方法はないです。
0178nobodyさん
03/01/17 20:44ID:GSBryIjf0179１７３
03/01/17 20:47ID:???0180nobodyさん
03/01/17 20:56ID:GSBryIjf0181175
03/01/17 21:02ID:???# アップロードディレクトリのＵＲＬパス
# → パスの最後は / で終わること
$ImgUrl = "$ENV{'HTTP_HOST'}/clip/img/";
ｽﾏｿ
ってこれでいいのか？（スクリプトが別鯖にある場合は不可）
0182143
03/01/17 21:12ID:???その文だと{}で無名のハッシュをつくり、
\でリファレンスしませんか？
(\@a)->[1];がまっとう(?)ですので、@a->[1];は使うべきでは無いようですね。
ありがとうございました。
0185nobodyさん
03/01/17 23:14ID:xM0Mt5EAclass Person {
int age;
String name, tel;
URL homepage;
}
みたいなメンバ変数の型みたいな考え方無しのオブジェクト指向って
のが理解できなくて立ち往生してるのですが、どうやればすんなり
受け入れられますか？
0186nobodyさん
03/01/17 23:18ID:???全角英字DQN?
0187超初心者
03/01/17 23:28ID:sm0odS2/配布のものを使おうとしたらうまくいきません。
ランキングのCGIなのですが
# IN投票の際にカウントを認めるREFERER値 (以前のページのURL)
$check_referer1 = 'http://meso.tv/r/rank.cgi';
$check_referer2 = 'http://meso.tv/r/rank.cgi';
$check_referer3 = 'http://meso.tv/r/rank.cgi';
のURLの部分にはどういうURLを入れたらいいのですか？
0188nobodyさん
03/01/17 23:37ID:???そのCGIスクリプトの説明を読むか。
配布されているサイトで聞いてください。
ここはPerlのコーディングの話をするスレッドです。
0191nobodyさん
03/01/17 23:57ID:???親切な人が説明してくれても分からなかったらしょうがないでしょ。
0192185
03/01/18 00:07ID:???例えば
$self->{'age'}
って変数があっても、
$self->{'age'}='nobodyさん' とか $self->{'age'}='http://www.2ch.net'
ってすることができるわけで、
いくつかモジュールを読んでみたけど
たんにメソッドの詰め合わせ的な意味しかないようが気がするんです。
0193nobodyさん
03/01/18 00:20ID:O9FxKTGG0194nobodyさん
03/01/18 00:22ID:???探すだけならスレ違い。
ここはコーディングの相談所。
>1読め。
0195 ◆PxAOHU.zVE
03/01/18 01:56ID:55Z6A3Vx5.8のAttributeってまだ使えないのかな...
このへん？
http://search.cpan.org/author/ABERGMAN/Attribute-Handlers-0.78/lib/Attribute/Handlers.pm
0196nobodyさん
03/01/18 08:30ID:eKp44Q6BPerl6 で型が出来るだろ。
それでいいじゃないか。
0197びびった
03/01/18 09:14ID:x+/Sd8AAhttp://click.dtiserv2.com/Click/1-45-2963
0198nobodyさん
03/01/18 14:51ID:???perl Builderぐらいしかないのでしょうか？
0199HOGE
03/01/18 15:51ID:5ALQn0gpとても困っています。どうすれば良いか教えてください。
#!usr/local/perl
#in hoge.cgi
my $hoge = 'hoge';
require './hoge.tmpl';
#in hoge.tmpl
print <<HOEG
Content-type: text/html
<h1>$hoge</h1>;
HOGE
1;
0200nobodyさん
03/01/18 15:56ID:???2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
0201HOGE
03/01/18 16:05ID:5ALQn0gp2：Webで調べていると、require文を使えば、
「その場所にかかれているかのように
スクリプトを取り込むことができる」と知りました。
3：でも、$hogeの部分は空のままです。
require文の解釈が間違っていることは自覚しています。
名前空間のせいで、変数が受け渡されていないのかもしれません。
しかし、今の私には具体的にどうすればいいかがわかりません。
質問に2レスもつかってすみません。どうか教えてください。
■ このスレッドは過去ログ倉庫に格納されています