1001コメント308KB

【Perl】初心者コーナー Part15

■ このスレッドは過去ログ倉庫に格納されています

0001nobodyさん

02/08/08 23:19ID:???

いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/

過去ログ、その他の役立ち情報は>>2-10あたりを見よう。

0082nobodyさん

02/08/11 02:25ID:uMk9XU0w

>>81
PERLと関係あるのか？
漏れが無知なだけか

0083nobodyさん

02/08/11 11:47ID:U9P8YsFW

WEBで落としたチャットCGIをいじってます。

書き込み時にログに記録されたIPを、そのままＨＴＭＬ出力に表示させたいのですが、
全部の行が今の自分のIPになってしまいます。

$ad = $ENV{'REMOTE_ADDR'};
とCGIに記述して、
表示させたい部分に$adを埋めるだけじゃダメなんですか？
IP表示ができるCGIを落として解析しても、同じような記述しか出てこないもので。
ex) print (($ENV{'REMOTE_HOST'}) ? $ENV{'REMOTE_HOST'} : $ENV{'REMOTE_ADDR'});
ex) if($sw_host==1){
print "<FONT SIZE=$moji1 COLOR=\"$DTcolor\">\n";
print "$date<BR>$ip $host\n";
print "</FONT>\n";

0084nobodyさん

02/08/11 12:01ID:???

>>83
それだけじゃ答えようがあまりないが、とりあえず
リモホを取得したらログに保存しないとだめぽ。

0085nobodyさん

02/08/11 12:32ID:U9P8YsFW

>>84
ログには保存しているんです。
ただ、HTML出力のソースを見ると、>>83のように、
$ENV{'REMOTE_ADDR'}; したものを$adみたいにして出力するような記述なんですね。
ログから引っ張ってるような記述が見当たらない…

0086nobodyさん

02/08/11 12:37ID:???

>>85
【スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/l50

上のスレのお世話になってはいかが？

0087８５

02/08/11 12:41ID:U9P8YsFW

KENTWEBの WINDY CHAT　でテストしてたんですが、これの場合、
# IPアドレスを取得
$addr = $ENV{'REMOTE_ADDR'};
if ($name eq "") { $name = $addr; }

して
unshift (@lines,"$date<>$n_name<>$n_email<>$com<>$n_color<>$addr<>\n");
つまりログには保存されています。
これがなぜ、吐き出しになるとだめなのか、今やっとわかりました。

# ログを展開
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
$head = $point;
local($date,$name,$mail,$com,$color,$ip) = split(/<>/);
$addrとすべきところを故意に$ipとして吐き出さないように記述してあったからみたいです。

0088nobodyさん

02/08/11 13:10ID:???

最後の一行に激しい勘違いがあるようだが、、、

0089８５

02/08/11 13:15ID:U9P8YsFW

もう一個のCGIでもテストしましたが、
こちらはDBファイルのデータがタブ区切りで、読み出しもただ変数を羅列しているため、
その順番どおりに表示するようになっていました。

もともとIPは記録しない仕様のため、適当にタブの間にIPを付け足したのが間違いで、
読み込みの順番どおりにDBファイルのタブ区切りを修正したら表示されるようになりました。

俄然perlが面白くなってきますたよｗ

0090８５

02/08/11 13:16ID:???

>>88
それはどういったことでしょうか？

0091nobodyさん

02/08/11 13:37ID:???

「吐き出さないように記述してあった」って書き方がひっかかっただけ。
スクリプトはちゃんと吐き出してる。$ipとして。

0092８５

02/08/11 14:09ID:???

>>91
そうですね。DBが空だから表示はされないけど処理はされてるんですよね。
語弊があったようです。

0093nobodyさん

02/08/11 16:05ID:wwIT5eGL

http://php.s3.to/bbs/up/img/014.txt

このｽｸﾘﾌﾟﾄなのですが、時間設定で
sprintfを使わずに、
if ($month < 10) { $month = "0$month"; }
if ($mday < 10) { $mday = "0$mday"; }
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
としたり、
($sec_t,$min_t,$hour_t,$mday_t,$mon_t,$year_t,$wday_t,$yday_t,$isdst_t) = localtime(time + 7*24*60*60);

($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60);
という風にlocaltimeとgmttimeを使い分けたりする意味はあるのでしょうか？

前者は処理が早くなるとか・・・？
ｵｼｴﾃｸﾀﾞｻｲ

0094nobodyさん

02/08/11 16:18ID:???

>>93
作ったﾔｼに聞けよ　　　　　

0095nobodyさん

02/08/11 18:04ID:???

>>93
典型的なｱﾌｫコード

0096nobodyさん

02/08/11 19:30ID:???

>>95
他の部分もそんな感じでしょうか？
じゃ、使わない方がいいですかね・・・

0097nobodyさん

02/08/11 19:40ID:???

そりゃ自分で決めれ。

0098nobodyさん

02/08/11 19:44ID:???

ｱﾌｫコードでも動けばいいんじゃないですか
そうでもないものなんですか

0099nobodyさん

02/08/11 19:44ID:???

98ですが96の方ではありません

0100nobodyさん

02/08/11 19:46ID:???

つか use strict してない時点でクソ確定。

0101お願い！

02/08/11 19:56ID:5quTF2lD

2ch2ch2ch
というテキストを
2ch
2ch
2ch
というように改行させたいです。
テキストエディタの置換機能で「2ch」→「2ch\r\n」としたら、
2ch\r\n2ch\r\n2ch\r\n
となってしまいますた。
テキストエディタで改行するのって無理ですか？
ActivePerl入れなきゃだめかな？

0102nobodyさん

02/08/11 19:57ID:???

あほだ。

0103nobodyさん

02/08/11 20:32ID:???

掲示板に、～日以内に更新されたらNEWを付けるようにしたいのですが

たとえば７日以内としたら
#!/usr/local/bin/perl

$times=書き込み時のtime;

$limit=7*60*60*24;

$now=time;
$limit_time="$now-$limit";

print "Content-type: text/html\n\n";

if($times>$limit_time){print"NEW";}

でいいと思うのですが、上手くできませんでした。
ヒントを頂けないでしょうか？

0104 ◆adminSE.

02/08/11 21:34ID:???

>>103

$times　が当時の書き込み時間で
$now　が現在の時間なんでしょ？
だったら

$now - $times

で何秒たったか分かる

たとえば$nowに110000がはいってて$timesに100000がはいってれば
その差は10000秒になる

んでこれと$limitを比べればいいんでないの？

0105nobodyさん

02/08/11 22:12ID:???

>>104
上手くできました。
ありがとうございましたヽ(ﾟ∀ﾟ)ﾉ三≡

0106nobodyさん

02/08/11 22:53ID:QpOp3e8Y

http://www.tsuri123.com/index2.htm
おい。お前ら！応援投票しろ！

0107nobodyさん

02/08/11 23:56ID:???

掲示板スクリプトで、ファイルを読みこんで表示する場合に、
whileで回す方法と、配列に一気に読んでforeachで回すのとでは
メモリは食うけど、foreachで回すほうが処理は速いんですかね？
それともwhileで回す方法が速い？

0108nobodyさん

02/08/12 00:15ID:???

速いほうがいいのならシステムコールを直で叩くsysreadだろう。でも初心者には
使いこなせるかな？ readでも使ったら？

0109nobodyさん

02/08/12 00:25ID:???

知ったか警報！

0110nobodyさん

02/08/12 01:49ID:y1lt6txe

ゆいぼっとについて相談があります。
ブラウザに記憶される名前が変になります。
ひろゆき、だとしたら、「ひろゆき_30__checked_red_30_8/12(月)1:30_2_checked_」

どうも、リロード時間や文字色等の情報まで全部ついてきてしまってるようで…
これは固有のバグでしょうか。

0111nobodyさん

02/08/12 01:58ID:???

改造間違いの可能性。

0112nobodyさん

02/08/12 02:02ID:y1lt6txe

>>110
でも、他サイトの無改造のゆいぼっとにクッキー全部消去してからお邪魔して
退室したあとにまた入室画面で名前欄を見ると同じようになってるんですよ。

0113110

02/08/12 02:11ID:y1lt6txe

クッキー処理の部分
なぜ、　\t　で区切ったものが、吐き出されるときに　_　に変わってるんだろう。

sub getcookie{#くっきーを頂きます。
$cooks = $ENV{'HTTP_COOKIE'};
$cooks = '' unless($cooks =~s/.*yuidata=(.*)yuiend.*/$1/);
($name,$reload,$email,$mode,$color,$window,$lastdate,$count,$autoclear) = split(/\t/, $cooks);
$histry = "$count回目:LAST LOGIN:$lastdate" if($lastdate);
if(!$count){#くっきー情報の無い場合のデフォルト値
$reload = 30; $mode = 'checked';$color = 'red'; $window = 30;
$count = 1;$autoclear = 'checked'; }
}#getcookie END

sub setcookie{#くっきーをブラウザにプレゼントします。
local($dmy,$mdc,$monc,$yrc,$wdayc,$mc,$yc);
($dmy,$dmy,$dmy,$mdc,$monc,$yrc,$wdayc,$dmy,$dmy) = localtime($times + 7776000);
$yc = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday') [$wdayc];
$mc = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') [$monc];
$yrc = $yrc+1900;$mdc = "0$mdc" if ($mdc < 10);
$count++;
$data = "$name\t$reload\t$email\t$mode\t$color\t$window\t$date\t$count\t$autoclear\tyuiend";
$data = 'yuiend' if($FORM{'cook'} ne 'ok');
print "Set-Cookie: yuidata=$data; expires=$yc, $mdc-$mc-$yrc 00:00:00 GMT\n";

0114nobodyさん

02/08/12 02:14ID:???

タブってデータとして、許されてたっけ？

0115110

02/08/12 02:41ID:y1lt6txe

とりあえず、\t　が_　になってしまうならと
= split(/\t/, $cooks);
を
= split(/_/, $cooks);

にしてしまったらうまくいきました。
しかし、環境依存でバグが出るかもしれませんね。
UNIXやMACのクッキーはよく知らないんですが。

0116110

02/08/12 02:47ID:y1lt6txe

http://www.google.co.jp/search?q=cache:rEGKxbsZPV4C:www.tcup3.com/325/tsukune.html+%E3%82%AF%E3%83%83%E3%82%AD%E3%83%BC%E3%80%80%E3%82%BF%E3%83%96%E5%8C%BA%E5%88%87%E3%82%8A&hl=ja&ie=UTF-8
なんか、IE6.0のバグっぽい。
ということは、それ以外のブラウザではやはり問題が起きてないかもですね。

0117nobodyさん

02/08/12 02:50ID:???

本当にIEのバグかね。
IEが正しくて、ほかが間違ってる

んなこたぁない。IEが間違えてることの方が多い。

0118110

02/08/12 03:02ID:y1lt6txe

やはりIE6固有のトラブルみたいです。ネスケ4.7では元々の仕様で問題なく、
IE6にあわせた修正をしたバージョンでは逆にトラブルになりました。

区切りを本当に_　にしたがダメ。区切りとsplitを,　であわせたところ、
IE6、ネスケともにトラブルは収まりました。
MS、恐るべし…

0119nobodyさん

02/08/12 03:05ID:VEDKxtaL

>>117
違うな

IEが間違ってて、そのCGIも間違ってる。
そして仕様と言い張る。

0120nobodyさん

02/08/12 03:16ID:???

>>110
制御文字はNG
http://www.ietf.org/rfc/rfc2965.txt

0121nobodyさん

02/08/12 03:20ID:???

つまりネスケ4.7がわるかったと。

まぁ、CSSもネスケ4.7が悪い品。

0122nobodyさん

02/08/12 07:05ID:???

120嫁、IEが悪い？ネスケが悪い？
いえいえ悪いのはオマエの頭だけです

0123nobodyさん

02/08/12 11:25ID:???

>>122
ｵﾏｴｶﾞﾅｰ

0124nobodyさん

02/08/12 14:23ID:???

0125困ったチャン

02/08/12 17:38ID:???

ユーザーIDと
パスワードを入力して
認証してOKならページ移動
の処理を作成中なんッスけど
認証のためのデータをあるファイルから
参照してハッシュを使ってIDをキーにして
パスワードをデータにして、
IDを比較するのはOKなんッスけど、
パスワードの比較はどうしたらイイんでしょうか？
ようはキーの中身の比較っすね

0126困ったチャン

02/08/12 17:58ID:???

ageて逝きまっしょい

0127nobodyさん

02/08/12 18:26ID:???

マルチか。

0128困ったチャン

02/08/12 18:30ID:???

その疑いありで

0129nobodyさん

02/08/12 20:52ID:???

>>125
なしてﾊｯｼｭ使ってそんなめんどくさい事わざわざやって
認証するのかわからん。

0130nobodyさん

02/08/12 22:25ID:???

要素が３つあるのにハッシュを使う意味がわからん

0131nobodyさん

02/08/12 23:21ID:???

正規表現で、 _[a-e] が特定のスカラーにいくつ含まれるか検査したいんですがどうすればいいですか

0132nobodyさん

02/08/12 23:50ID:???

$n= $_=~ s/(_[a-e])/$1/g;

0133

02/08/13 00:05ID:???

CokkieがOffだったら指定のページに飛ばす
…そんなcgiってありますか？
もしあったら、参考になるサイト、もしくはプログラムを
お教え下さい。

0134nobodyさん

02/08/13 00:08ID:???

マルチか。　　　　　　　　　　

0135nobodyさん

02/08/13 01:27ID:???

>>133
ほれ。

文化庁がトップページ以外へのリンクを機械的に拒否
http://slashdot.jp/article.pl?sid=02/07/09/0626258&mode=thread

0136nobodyさん

02/08/13 01:31ID:/aTNrvJI

うちのサイトに置いたファイルのダウンロード数を
カウントするスクリプト、どっかに落ちてますか？
別に自分で見れればページに表示するつもりはないです。

0137nobodyさん

02/08/13 01:39ID:???

>>136
スレ違い。
CGI探すスレ行け。

0138nobodyさん

02/08/13 01:40ID:???

http://www.futomi.com/library/dlrank.html

0139nobodyさん

02/08/13 12:05ID:???

考え方としては、

スクリプト開始時に自前のcookieを発行→直後それを照合出来ればcookie有効、出来なければcookie無効と見なして弾く。

そう難解でもないかと>133

0140nobodyさん

02/08/13 15:47ID:???

>>107

ちょっと時間が空いたので，1行200bytes(+crlf)の500行で約100kb程度のファイルをメモリに読み込むテストを行いました．

test1 @a = <FILE>と一度に全て読み込む．
test2 whileでループして1行ずつ読み込む．

この処理を500回ループして，経過時間を計りました．
結果．

TEST1: 39 wallclock secs (38.23 usr + 0.00 sys = 38.23 CPU) @ 13.08/s (n=500)
TEST2: 36 wallclock secs (35.86 usr + 0.00 sys = 35.86 CPU) @ 13.94/s (n=500)

と，微妙にtest2の方が効率が良いと出ました．
以下が実際に使用したソースです．

0141nobodyさん

02/08/13 15:47ID:0NNEcJ22

#!/usr/bin/perl
use Benchmark;

my $count = 500;

sub test1{
open(FILE,'test1.data');
my @a = <FILE>;
close(FILE);
}
sub test2{
open(FILE,'test2.data');
my $a = $_ while(<FILE>);
close(FILE);
}

@t = timethese($count,{
'TEST1' => '&test1;',
'TEST2' => '&test2;',
});

0142nobodyさん

02/08/13 15:57ID:0NNEcJ22

つまり,
foreach 文は
・扱うデータ量が少なく，ファイルをすぐに閉じたい場合.
・同じデータを繰り返し使用する場合.
while 文
・データ量が大きく，配列を生成すると莫大なメモリを使用してしまう場合.
・データの１部分だけを必要とし，無駄なデータを読む込みたくない場合.
という事でした.

0143nobodyさん

02/08/13 21:45ID:Q5/MwQBf

>>142
凄く普通の結論。

0144nobodyさん

02/08/14 00:05ID:???

ベンチマークを適切に使えるようになりましょう。

0145nobodyさん

02/08/14 00:12ID:???

>>142
ループの種類と処理内容とは、なんの関係もないから恥を晒すのは・・・

0146nobodyさん

02/08/14 00:26ID:LHt/Hq/v

おながいしますm(__)m（ペコリ）
ある変数をサブルーチン名に代入したりできるのでしょうか？
&サブルーチン名=変数;　みたいにしたいのです
例えば
&hazime　というサブルーチンを使いたい時
&（ココの書き方が分かりません）=$hazime;
みたいのことができるのでしょうか？

0147nobodyさん

02/08/14 00:31ID:???

できる。
$count = &con();

0148147

02/08/14 00:31ID:???

わりぃ。解釈間違えた。

0149nobodyさん

02/08/14 00:54ID:???

&$value;

0150nobodyさん

02/08/14 08:03ID:???

あのー、ネットでこんなの拾ってきたんすが、
なんでしょかね？これ？？
#!/usr/bin/perl-s
$f=$d?-1:1;$D=pack('C*',33. .86);$p=shift;
$p=~y/a-z/A-Z/;$U=~s/( . *)U$/U$1/;
$D=~s/U( . )/$1U;';($V=$U)=~s/U/V/g;
$p=~s/[A-Z]/$k=ord($&)-64,&e/eg;$k=0;
while(<>){y/a-z/A-Z;y/A-Z//dc;$o.=$_}$o.="X"
while length ($o)%5&&!$d;
$o=~s/.chr(($f*&e+ord($&)-13)%26+65)/eg;
$o=~s/X*$//if$d;$o;$o=~s/.{5}/$&/g;
print"$o|n";sub v{$v=ord(substr($D,$_{0}))-32;
$v>53?53:$v}
sub w{$D=~s/(.{$_{0})(.*)(.)/$2$1$3}}
sub e{eval"$U$V$V";$D=~s/(.*)([UV].*[UV])(.*)/$3$2$1/;
&w(&v(53));$k?(&w($k)):($c=&v(&v(0)),$c>52?&e:$c)}

0151nobodyさん

02/08/14 08:46ID:???

>>150
素数判定（多項式時間）

0152nobodyさん

02/08/14 14:31ID:8dp0qhB8

ssendmailでHTML形式のメールを送信したいのですが、
HTMLソースをHTML形式のメールに変換するスクリプトをご存知ないでしょうか？

HTML形式のメールは、HTMLソースがそのまま本文中に書いてあるのだと
ばかり思ってましたが、MHTMLとかいう形式があるようで・・・

0153nobodyさん

02/08/14 14:48ID:???

>>152
スレ違い
【CGI初心者コーナー】
http://pc.2ch.net/test/read.cgi/php/1028646335/

0154nobodyさん

02/08/14 14:56ID:8dp0qhB8

>>153
リンク先は「まぁ、またお前は騙されたわけだが・・・」というスレッドです。

0155nobodyさん

02/08/14 18:14ID:???

>>154は>>152です。

0156nobodyさん

02/08/14 22:41ID:dH0XveEg

教えて下さい。

-------------------------
#!/usr/local/bin/perl

print"Content-type: text/html\n\n";

print "購入申し込み";

-------------------------

と書いて実行すると、

-------------------------
購入垂ｵ込み

-------------------------

と表示されてしまいます。
どうしてでしょうか？
何か基本的なことを間違えてるのでしょうか。

0157nobodyさん

02/08/14 23:19ID:???

EUCでかくか \ を途中に入れろ。

0158nobodyさん

02/08/14 23:26ID:???

>>156
157じゃないけど、具体的には「申」のあとに\を入れろって事。
申\し込み
なぜこうなるかというと、「申」のShift-JISでの2バイト目が'\'（0x5c)だから。

0159nobodyさん

02/08/14 23:35ID:???

一週間をビットをたててフラグにしようと
$a = 1 << 2　としてみました
00000100　になると思ってたんですが
unpack("B*",$a)　としてみたら
00110100　となっていました

上4ビットはなんなんですか

0160nobodyさん

02/08/14 23:52ID:???

>>159
0x34='4'

0161nobodyさん

02/08/15 00:00ID:???

>>160
そのとおりですね・・・

質問間違ってました
なんでもASCIIになってしまうのか聞きたかったんです

0162156=154=152

02/08/15 01:27ID:5Zkc/vw2

>>157
EUCに変換して解決しました。
ありがとうございました。

>>158
分かりやすい解説ありがとうございます。
勉強します。

152の問題も解決しました。
スクリプトは見つかりませんでしたが、
Content-type: multipart/alternative;boundary="---　・・・
を付けて、テキスト部分とHTML部分を区切るだけで出来ました。
ありがとうございました。

0163↓晒しヽ(`Д´)ﾉｱｹﾞー

02/08/15 02:47ID:???

smile-seikun_gogo/[email protected] smile-seikun_gogo/[email protected]

http://rating.auctions.yahoo.co.jp/jp/show/rating?userID=hidekurokawa&filter=-1

評価：非常に悪い落札者です。評価者は manaboon2001 (21)
IBM Deskstar ATA100/60GB 7200rpm 送料込み!! (6月 9日 23時 14分)
出品者は「非常に悪い」と落札者を評価しました。
コメント：取引終了後、１週間のうち私から３度メールでご案内しても何も返事がありませんでした。　
お前はブラックリスト入りだ!! (6月 15日 23時 7分) (最新)

評価：非常に悪い落札者です。評価者は goodnanews (2)
デジタルミキサー Fostex VM04 (11月 11日 5時 49分)
出品者は「非常に悪い」と落札者を評価しました。
コメント：一方的な理由でキャンセルされました。自分が落札した商品には責任を持って対処してください。 (11月 14日 12時 36分) (最新)

評価：悪い落札者です。評価者は gtak55 (42)
ＦＯＳＴＥＸ☆ＭＮ０６☆６チャンネルミキサー (10月 17日 5時 9分)
出品者は「悪い」と落札者を評価しました。
コメント：キャンセルの理由が納得いきません。落札したものはどんな理由があれ責任を持って購入すべきではないでしょうか？
(10月 18日 23時 48分) (最新)

評価：非常に悪い落札者です。評価者は hiroalive2000 (35)
定価98000円のスーパーリズムマシンプラス・メモリー9800円あわせて１２０００円即決 (9月 19日 2時 23分)
出品者は「非常に悪い」と落札者を評価しました。
コメント：最悪です。何度連絡してもメールくれません。完璧な無視です。多分オークション二酸化しないほうがいい人
ですからこんな人は注意してください。みなさん。 (9月 24日 19時 33分)
コメント：これかいたらすぐに返事がくるんですよ。こういうやつがふえてるんで・・・。
今まで完璧な無視してきたらこうかかれると私にしつこいとか言ってもんくつけるんですよ。すいそくですが・・・・
日ずけ見て下さったら皆さんわかると思います。 (9月 24日 19時 36分) (最新)

0164nanasi

02/08/15 04:12ID:???

はじめまして。外部からあぷされた画像を呼び出した場合TOPに移動するように
したいのですがどのようにしたら良いのでしょうか

0165nobodyさん

02/08/15 04:22ID:???

>>164
説明する能力をつけてから来なさい。

0166nanasi

02/08/15 05:50ID:???

はい。たしかに学生なので文章能力ありません。これで分かりますか？
http://www.cj-c.com/cgi_s/upb.htm　（UPP　BORD）
を設置してるのですがあっぷした画像のみを他サイトの掲示板で
転載されて困ってるので他サイトからあぷされた画像を閲覧した場合
自分のHPのTOPに飛ぶようにしたいのです。
あっぷされた画像直リンの場合弾きたいということです。
どうか方法教えてください

0167nobodyさん

02/08/15 11:08ID:???

>>166
画像の直リンク防ぎたいなら .htaccess の出番かと
「.htaccess 画像制限」　こんな感じのキーワードで
googleで検索すれば解説してるサイトみつかるべ。
これ以上はスレ違いなので、あとはご自分で・・・

0168エロ助

02/08/15 11:32ID:h1WzO6+x

http://www.kemokemo.com/　
http://www.kemokemo.com/products/picchabo/picchabo203.lzh　
上(掲示板CGI)に下(ランダム広告CGI※呼び出しによりSSI使用しない方)を設置したいのですが『インターネットサーバーエラー』になります。(;_;)
一通りパーミッション設定などを説明どうりやってみたのですが設置できないんです。。(;_;)なぜでしょう？？(;_;)
どうか教えていただけないでしょうか。。(;_;)
また呼び出しのときの記述が『require 'rand.pl';　　rand::main($Op1,$Op2,$Op3);』を記述しろと書いてあったので正確に記述したのですが『インターネットサーバーエラー』になってしまうんです。。(;_;)
『$buffer』でも記述したんですがだめでした。
http://taihei.cc/pc/cgis/random.html
http://taihei.cc/pc/cgis/randban11.lzh

0169nobodyさん

02/08/15 11:34ID:???

マルチは放置。

0170nobodyさん

02/08/15 14:23ID:???

画像のアップローダーでアップロードされた画像の
縮小画像を生成したいんですが、
私の知っている方法ではroot権限の関係で共有スペースでは不可能なのですが
root権限の関係無しに縮小画像を生成する方法はありますか？

0171nobodyさん

02/08/15 15:09ID:???

>>170
　　／￣￣￣￣￣ミ
　 /　　 ,――――-ミ
　/　　／　／　　＼ |
　|　 /　　　,（･）　（･） |
　 (6　　　　　　つ　　|
　 |　　　　　　＿＿_　 |　　／￣￣￣￣￣￣￣￣￣￣
　 | 　　　　 /＿＿/ ／　＜　ＨＴＭＬでできるだろ！
／|　　　　　　　　／＼　　＼＿＿＿＿＿＿＿＿＿＿

0172nobodyさん

02/08/15 15:33ID:???

>>170
GDを使うといい。GD.pmで検索しる。
http://member.nifty.ne.jp/hippo2000/perltips/GD.html

0173170

02/08/15 17:21ID:???

>>172
ありがとうございました！
じっくり読んでみます！！

0174アップローダを作り隊

02/08/15 18:04ID:OdAnllx3

ファイルアップローダを作りたい、と思うこの頃ですが、
どうもわからんのです。
フリーのアップローダのソースを見ても掲示板とかが邪魔で
肝心のアップローダの仕組みがわからず。。。
perlのリファレンス本を何冊か読んでも、
何をアップローダに使えばわからず。。。

どうか皆様、この私にアップローダの「ア」の字くらいを教えてくださいませんでしょうか。

0175170

02/08/15 18:24ID:???

2<>コメント
3<>コメント
1<>コメント
ログファイルにこういう形で保存されいて
1 2 3の中のもっとも大きい数字を求めるにはどうすればいいのでしょうか？

0176nobodyさん

02/08/15 18:28ID:???

>>175
数値は比較するとその大小関係がわかります。

0177170

02/08/15 18:40ID:???

すみません理解できました。

0178nobodyさん

02/08/15 18:44ID:???

教えるまでもなくアの字なら知ってるじゃん

0179nobodyさん

02/08/15 19:04ID:???

>>174
ゆいのーとの最初の方をみれば割と判るとおもう。
http://zurubon.strange-x.com/uploader/src/
調べるなら「Content-type: multipart/form-data」で。
http://www.tsden.org/ryutaroh/fileupload-j.shtml

0180アップローダを作り隊

02/08/15 19:52ID:OdAnllx3

>>179
スマソ。やっぱりわからんです。
設定するところをして、CGI対応のサーバーにアップしたのですが、
ファイルサイズがやけに小さくなって、しかも開けず。
自分のPCにApache入れてるんですが、それでも同じ結果です。
他のアップローダーもファイルサイズが同じように小さくなります。
ちなみにJPGファイル。
対応してるはずなんですが。。。
アップローダー十個くらい試してみたのですが、全滅です。。。
設定がいけないんでしょか？

0181nobodyさん

02/08/15 19:58ID:???

>>180
スマソ。さっぱりわからんです。
とりあえず設定後のスクリプトを晒してごらん。

■ このスレッドは過去ログ倉庫に格納されています