【Perl 】初心者コーナーPart8
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
01/10/24 14:11ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。
参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://ebi.2ch.net/test/read.cgi/php/988809842/l50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part４】
http://ebi.2ch.net/test/read.cgi/php/1000804655/l50
過去ログ、その他の役立ち情報は>>2-10を見よう。
0451名無しさん＠お腹いっぱい。
01/11/27 14:36ID:???フォルダ内に二つのＨＴＭＬファイルを用意して
例えば a.htm と b.htm としてですね。
条件によってどちらかを表示させたいんですがどのようにすればいいの
でしょうか？
簡単なようでなぜかつまってます
0452名無しさん＠お腹いっぱい。
01/11/27 15:20ID:???んなこたぁない。
>>451
print "Content-Type: text/html\n\n";
if ($jouken == 1) {
open HTML, './a.html';
while (<HTML>) {
print;
}
close HTML;
} elsif ($jouken == 2) {
open HTML, './b.html';
while (<HTML>) {
print;
}
close HTML;
}
0454名無しさん＠お腹いっぱい。
01/11/27 15:49ID:???んあ？
my $file = undef;
if (条件) {
$file = 'a.html';
} else {
$file = 'b.html';
}
open(F, $file);
print <F>;
0455名無しさん＠お腹いっぱい。
01/11/27 15:56ID:FtCrXKQ90456名無しさん＠お腹いっぱい。
01/11/27 19:45ID:???0457クロスボウとやら
01/11/28 11:10ID:4pa3crZc掲示板等のCGIで、投稿記事のIDに
$id = time . $$; # id = UTC秒数 + Perlプロセス番号
としてるものを見つけました。で、質問は２つ。
Q1:この$idはユニークな値であることが保証されるのでしょうか？
Q2:Q1がユニークであると仮定した場合、プロセス番号を付加する
メリットはなんでしょうか？
以上、よろしくデス。
0458名無しさん＠お腹いっぱい。
01/11/28 11:38ID:???1秒の間に同じプロセスIDが使われるような異常な環境でない限り大丈夫だと思います。
A2
1秒間に複数の記事投稿処理が行われた場合被ってしまいます。
常時、処理に1秒以上かかる重いスクリプトの場合は大丈夫な場合もあります。
0459名無しさん＠お腹いっぱい。
01/11/28 11:47ID:???短期的に見れば pid だけでも十分ユニークです。
pid に時刻を追加することで、長期的にもユニークであることを保証している、と考えた方がいいと思う。
というか、時刻だけってユニークなIDとして使い物にならない。
0460東京地裁は役立たず！
01/11/28 12:19ID:???1 ：ひろゆき＠暫定管理人 ★ ：01/11/01 15:49 ID:???
「削除依頼は公開」の原則に従って削除したものを公開してますー。
ソース。
http://www.dd.iij4u.or.jp/~cap/nissei/
14 ：名無しさん＠お腹いっぱい。 ：01/11/01 15:59 ID:I8TSGCyI
むしろこのGIFを保存しといてそこらにミラー作りまくるのが
2chねらの使命かと
15 ：名無しさん＠お腹いっぱい。 ：01/11/01 16:00 ID:pX4yzwVD
>>10 つか、それがひろゆきのねらいだろ
16 ：名無しさん ：01/11/01 16:00 ID:4XQtcOuc
オイラはとりあえず保存しといたよ
17 ：ひろゆき＠暫定管理人 ★ ：01/11/01 16:01 ID:???
いやぁ、削除依頼は公開って原則ですから、、
(￣ー￣)ﾆﾔﾘ
18 ：ｖａ ：01/11/01 16:01 ID:+W2rWnl4
同じこと書き込んだら、速攻で削除されるのかな？
0461名無しさん＠お腹いっぱい。
01/11/28 12:34ID:8tU8XC0g(B.pl)が実行される仕組みをSSIを使わずに実現することは可能でしょうか？
<IMG SRC="../cgi-bin/B.pl" 〜>とかやってみたのですが、一応B.plは
実行されるものの、「画像無し」の×マークが表示されてまずいです。
どうか知恵をお貸しください。 既出っぽい気がしますが(;´Д｀)
0462名無しさん＠お腹いっぱい。
01/11/28 12:42ID:???0463名無しさん＠お腹いっぱい。
01/11/28 13:31ID:???ディレクトリ html にＨＴＭＬファイルとロゴなどのgifやjpegを
いれておきました。そこに .htaccess を置いて
order deny,allow
deny from all
allow from ***.***.***.***
と書いておいてＣＧＩにてＩＤとパスで認証できた会員だけＨＴＭＬを
見せようとしたんです。
ところが、普通に文字は表示されるのですがgifやjpegが表示されない
のです。
普通に表示できないものなのでしょうか？
0464461
01/11/28 13:36ID:8tU8XC0g「CGIで画像を出力する」で検索してやり方を調べ、やってみました。
B.plは
#!perl-path
print "Content-type: image/gif\n\n";
print `cat $imagefile`;
でできました！！！
1x1の画像を作るのはペイントでできたんですね。知らなかったです。
ありがとうございました。
0465名無しさん＠お腹いっぱい。
01/11/28 13:47ID:???basic認証使えば？
.htaccess
---
AuthType Basic
AuthName "Password"
AuthUserFile /home/user/.passwd
require valid-user
---
.passwd
---
User1:Password1
User2:Password2
0467名無しさん＠お腹いっぱい。
01/11/28 15:22ID:???0469名無しさん＠お腹いっぱい。
01/11/28 17:08ID:???このスレで質問します。
携帯専用のサイトをしているのですが、PCから
アクセスできないようにするのにはどうしたらよいのでしょうか？
0470名無しさん＠お腹いっぱい。
01/11/28 17:16ID:???せめてこの辺で聞きなさい。
ＣＧＩだけど、なんか質問ある？part４
http://pc.2ch.net/test/read.cgi/php/1000804655/
0471名無しさん＠お腹いっぱい。
01/11/28 17:25ID:???>>1の
| CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part４】
| http://ebi.2ch.net/test/read.cgi/php/1000804655/l50
を読みなさい。
0472名無しさん＠お腹いっぱい。
01/11/28 20:49ID:eYEjqDt2ちょっと凄いループの中とかで、マクロ使うような局面で
inlineに出来ないですよね
0473名無しさん＠お腹いっぱい。
01/11/29 03:19ID:???0474名無しさん＠お腹いっぱい。
01/11/29 04:46ID:???うんこ野郎には教えられないと思うんですが。
呼びかけるならうんこ野郎以外に向けて呼びかけないと。
0475_gunzip
01/11/29 05:19ID:???どうしても気になるならC/C++で書くよろし
#!/usr/bin/perl -P
#define SWAP(a,b) (a,b) = (b,a)
use strict;
use Benchmark;
our $a = 0, $b = 1;
sub swap($$)
{
@_[0, 1] = @_[1, 0];
}
timethese(1000000, {
"inline" => sub { ($a, $b) = ($b, $a) },
"using macro" => sub { SWAP($a, $b) },
"function call" => sub { swap($a, $b) }
});
0476_gunzip
01/11/29 05:23ID:???Benchmark: timing 1000000 iterations of function call, inline, using macro...
function call: 11 wallclock secs (10.72 usr + 0.00 sys = 10.72 CPU) @ 93283.58/s
inline: 3 wallclock secs ( 3.69 usr + 0.00 sys = 3.69 CPU) @ 271076.17/s
using macro: 4 wallclock secs ( 3.72 usr + 0.00 sys = 3.72 CPU) @ 269179.00/s
0477Perl上級者
01/11/29 07:15ID:???0478名無しさん＠お腹いっぱい。
01/11/29 10:45ID:???0480名無しさん＠お腹いっぱい。
01/11/29 15:57ID:???@picfile = sort grep {/.jpg/} readdir(DIR);
closedir(DIR);
とした後でＪＰＥＧ画像表示ってどうすればいいんでしょう？
foreach ( @picfile )
{
print $_,"<br>\n";
}
だとファイル名を表示しますよね？
0481名無しさん＠お腹いっぱい。
01/11/29 16:09ID:/dTb+5XA複数台にインストールしなきゃいけなくって、
アーカイブをダウンロードしておいて、それを使ってインストール
したいのですが、猿のようにppm installしていたので
ダウンロードの仕方やファイルの指定方法がわかりません
0482むぎ茶？
01/11/29 16:56ID:Fa8sgCiktime_t が一周して同じ値になるとユニークじゃなくなるよ：D
0483むぎ茶！
01/11/29 16:58ID:Fa8sgCikprint qq|<img src="$_"><br>\n";
はどう？
0484名無しさん＠お腹いっぱい。
01/11/29 17:43ID:???なるほろ！ありがとです
0485名無しさん＠お腹いっぱい。
01/11/29 18:48ID:???普通にクッキーは食ってくれるんですがブラウザ閉じると死にます。
sub set_cookie{
$c_name = "kunni"; $c_mail = "kumanko";
$name = $FORM{'name'};
$n ='10*60*60*24';
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg) = localtime(time+$n);
$ww = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday];
$mong1 = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mong];
$expires = sprintf("%s,%02d-%s-%02d %02d:%02d:%02d GMT",$wwg,$mdayg,$mong1,$yearg,$hourg,$ming,$secg);
print "set-cookie:$c_name=$name;expires=$expires;\n";
}
0486名無しさん＠お腹いっぱい。
01/11/29 19:08ID:???どうせKENTのパクるなら全部コピペすれば？
Sun, 01-Jan-2000 12:12:12 GMT
0487名無しさん＠お腹いっぱい。
01/11/29 19:19ID:???書き込めたから前の質問はいいわ。
じゃあパクッてないクッキーの記述の条件をおせーてくれ。
無論ソースで実例記述はいらんよ。
こことこことここが違えばパクって無いオリジナルであるって条件。
スカラ変えればいいってもんでもないだろうし、一つ頼むわ。
0488名無しさん＠お腹いっぱい。
01/11/29 19:26ID:???0489名無しさん＠お腹いっぱい。
01/11/29 19:30ID:???時間取得から寄せ集めprintなんてどこでもやってると思うが。。。
どーでもいいが$C_mail=kumanko;はといあえず書き込んでないから
意味無いね。
0490名無しさん＠お腹いっぱい。
01/11/29 19:33ID:???これは何を意味してるんだ？一回しか出てこんけど。
0491名無しさん＠お腹いっぱい。
01/11/29 19:33ID:???どう言う意味？$ydayg ぷ
0492名無しさん＠お腹いっぱい。
01/11/29 19:36ID:???分かりにくい変数名にしないといかんのだろ。
0493名無しさん＠お腹いっぱい。
01/11/29 19:38ID:???0494486
01/11/29 19:40ID:???まあパクって無いってんならそうなんでしょう
>>時間取得から寄せ集めprintなんてどこでもやってると思うが。。。
んな事しなくても、gmtimeに投げてsplitすりゃ良いんで
普通はそうします（ｗ
KENTとは言わんがどっかで拾ったコード使って、変数の中吐き出して
確認も出来ないなら、そのまま使えばよろしいかと・・・
0496名無しさん＠お腹いっぱい。
01/11/29 19:42ID:???実力いっぱいいっぱいの典型例>>488みたいなのが
出てくる所を見ると3段階、4段階の質問受けれる程話せそうな奴は
噂の2ちゃんにもいなさそうだな。天秤計測終了。
興味無いから適当に煽って後は放置でいいよ。君に興味無いから（ﾜﾗ
>>489
あーそうだよ。すまんね。意味無いからそこ削除するか
printで名前書きの下にもmail用の一行加えといてくれ。
ソッコーで書いたからミスっちまったい。
0497名無しさん＠お腹いっぱい。
01/11/29 19:47ID:???アホだと思うが
それを最初にばら撒いたのがKENT氏って事か？
0498名無しさん＠お腹いっぱい。
01/11/29 19:49ID:AMvwJSR+>普通はそうします（ｗ
ちょっと溜息。パクってるって言われるくらいそっちのが
メジャーだと思うからシャレきかせたつもりだが。。。
書き方あえて変えてんだから読み取ってネ。じゃ無駄な時間使って
煽ってくれ。バイバーイ低次元。
05003行で済むな 藁
01/11/29 19:56ID:???($wday,$month,$day,$time,$year) = split(/ /,$exptime);
print "$wday, $day-$month-$year $time GMT\n";
ほら、これで満足だろ？ GPLだからソース公開しろよ 藁
0501名無しさん＠お腹いっぱい。
01/11/29 19:58ID:???悲惨過ぎる・・・
0503名無しさん＠お腹いっぱい。
01/11/29 20:52ID:???らくだ位読もうね みなさん
0504名無しさん＠お腹いっぱい。
01/11/29 22:30ID:???ぼくは下記のようにやっているのですが，すっごく厨房ぽいです
#!/usr/local/bin/perl
open FILE, $file or die "can't open $file:$!\n";
$cnt = 0;
while(<FILE>) {
$cnt++;
}
close FILE;
print "$fileの行数は$cnt行です\n";
0505名無しさん＠お腹いっぱい。
01/11/29 22:48ID:???こんなん。
$cnt+= tr/\n// while read FILE, $_, 1024;
0506名無しさん＠お腹いっぱい。
01/11/29 23:04ID:???これ役にたったよ、何も+1900とかしてシコシコ計算する事無いんだね
俺もKENT病だったようだ（´Д｀；）
月をハッシュに入れて日本語表示も随分すっきりしました
# つくづく>485は悲惨だと思った
0507
01/11/30 00:27ID:JaJKMNFahttp://home.big.or.jp/index.html?WWW_MENU=m021002h#003
の説明が良くわかりません。
.htpasswd
AuthUserFile /public/pub?/home?/(UserID)/html/secret/.htpasswd
AuthGroupFile /dev/null
AuthName member
AuthType Basic
<Limit POST GET PUT>
require user (UserName)
</Limit>
の設定をして、IDと、パスワードを要求される画面までいきますが・・
アクセス成功できません。Perlのバージョンによって記述が異なるようですが。
$ perl -v
This is perl, v5.7.0 built for i686-linux
です。
このサイトを利用しているかたのアドバイスをいただけないでしょうか？
基本認証はperlとは関係ないよ。
.htpasswdは正確に記述してある？
AuthUserFileにはパスを正確に記述してある？
0509
01/11/30 01:08ID:JaJKMNFaAuthUserFile /public/pub?/home?/hoge/html/cgi-bin/.htpasswd
・・・
こういう感じ
「？」っているのかな。外すと駄目みたい。
Options -Indexes
とした場合、に同ディレクトリにあるファイルに直接アドレス入力すると、
見えてしまうのですが、これを見せない方法ってありますか？
0510名無しさん＠お腹いっぱい。
01/11/30 01:14ID:???その辺の説明サイトみながら作れ。
その/public/pub〜〜 って所はpwdって打って出てきたのを入れろ
0511名無しさん＠お腹いっぱい。
01/11/30 01:22ID:???0512なにがいけないんだろう？。
01/11/30 01:41ID:2jA/moy4ID：yokohama
Pass:monako
http://www15.big.or.jp/~s-w-/
AuthUserFile /public/pub/home/s-w-/html/cgi-bin/.htpasswd
AuthGroupFile /dev/null
AuthName member
AuthType Basic
<Limit POST GET PUT>
require user yokohama
</Limit>
0513？？
01/11/30 01:49ID:???上に書いてるけどtelnetで入ってpwdしてOSの絶対パス書かなきゃダメだって
AuthUserFile はおまじないじゃ無いよ、ISPなんて出鱈目書いてたりするし・・
0514472
01/11/30 01:56ID:???473は僕じゃないよ
_gunzip さん有難う御座いました。ベンチまで取って頂いて。。
Pオプション、知りませんでした 汗；
PERL勉強しないとダメだなぁ。。。
手元のGCCですんなり使えましたけど、何か変な感じです ＾＾;
取り合えずマクロにする事でちょっぴり安心な結果になりました
今perldoc精読中ですー 感謝!
0515つかれた・・
01/11/30 01:58ID:???ども、pwdは以下なんですけどね。
big15:/public/pub/home/s-w-/html/cgi-bin$ pwd
/public/pub/home/s-w-/html/cgi-bin
0516５１３
01/11/30 02:21ID:???パス合ってるなら後はファイル出来てる事とパミ確認する位かな
後、LIMITGETとか要らない、テストは最小構成で、これ基本
AuthName,AuthType,AuthUserFile,require valid-user
その辺がOKならサポ板とかで聞いてみれば、Perlは全く関係無いから言わなくてよし
0517５１３
01/11/30 02:27ID:???401だからファイル見つからないか中身がおかしいっぽい(２．３のUAで確認したよ)
これで作れる？(未テスト)
#!/usr/local/bin/perl
print "Content-type: text/html\n\n<html><body>";
if($ENV{'QUERY_STRING'} eq ''){
$0=~s#.*/([^/]+)$#$1#g;
print "<h2>パスワードを入力して下さい。</h2>";
print "<form method=get action=$0><input type=text name=id size=10></form>";
} elsif($ENV{'QUERY_STRING'} =~ s/^id=//){
open(FH,">./.htpasswd")||print "ファイルを作成出来ません！";
my @salt = (a..z,A..Z);
$salt .= $salt[int(rand(52))] for(0..1);
$crypted = crypt($ENV{'QUERY_STRING'},$salt);
print FH "$ENV{'QUERY_STRING'}:$crypted\n";
close FH;
print "$ENV{'QUERY_STRING'}を暗号化しました！ -> $crypted";
}
0518名無しさん＠お腹いっぱい。
01/11/30 03:12ID:JcBWdq/s0519名無しさん＠お腹いっぱい。
01/11/30 03:20ID:???0520名無しさん＠お腹いっぱい。
01/11/30 08:31ID:???煽りのはずなんだけど、なんか可愛い。
0521名無しさん＠お腹いっぱい。
01/11/30 08:47ID:???スレ違い。
0522名無しさん＠お腹いっぱい。
01/11/30 09:09ID:???なるほど、何で高々現在時刻得る為にこんなに小難しくて解りにくいやり方なんだろう(それも決まりきった様に)
と前から疑問に思っていた。しかも使ってるのはまんまasctimeの返り値だし・・・
クッキーなんて、何故かやたら冗長だし、エスケープもしてないし、
たまにやってると思ったらordとか変な関数使ってて、又ややこしいし
よっぽど強力に推奨してる本でも有るのかと。
0523名無しさん＠お腹いっぱい。
01/11/30 09:53ID:???エスケープのやりかたなんてしらんけど、知っといたほうがいいのかな（藁
0524名無しさん＠お腹いっぱい。
01/11/30 10:20ID:???プロバのHPスペースでCGIが使えるので使っているのですが、これがPerl4だったりします。
Perl5との違いなどでここは気を付けた方がいいというところはありますか？
とりあえず、「$a ||= 1;」とかやるとエラーが出ました。
いろいろと出来ないことが多いみたいで・・・。
もし、Perl4とPerl5の違いを説明したHPなどがあれば紹介していただけるとたすかります。
・・・できれば日本語で。
よろしくお願いします。
0525名無しさん＠お腹いっぱい。
01/11/30 11:59ID:???気をつけるのは動かないのよりfor(0..1000)みたいな爆弾構文だ
0526名無しさん＠お腹いっぱい。
01/11/30 13:05ID:???0527名無しさん＠お腹いっぱい。
01/11/30 17:44ID:???0528524
01/11/30 18:37ID:???検索してみましたけどちょっとよくわかりませんでした。
もう少し勉強してみます。
for(1..1000)はまずいんですか？
繰り返しが多過ぎるのが理由でしょうか？
>526-527
それはさすがに（ｗ；
サーバー会社のでなくプロバイダについてきたスペースなので・・・。
0529名無しさん＠お腹いっぱい。
01/11/30 19:07ID:???for(1..1000)は1,2,3,4,...,999,1000っていうリストを
あらかじめメモリ上に確保してからループに入るから。
1000程度なら爆弾でもないけど。
プロバイダにバージョンアップの要請しちゃダメなんてことはない。
受け入れられるか知らないけど。
つーか、乗り換えるのが吉。
0530名無しさん＠お腹グー
01/11/30 19:10ID:Edtr0BUz猿より毛が３本多ければ勿論可能。ppm.batの中身を
解析しろ。難しくないぞ。
お前の能力で出来ないなら、３本毛が少ないんだな、
あきらめろ。 コキ過ぎで逝くなよ。
0531524
01/11/30 19:14ID:???地方ローカルのプロバで接続量は安いのでなかなか乗り換えられなくて。
予算ができたらレンタルサーバーを借りようと思っています。
これ以上はスレ違いなのでここまでで。
for(1..1000)はやはりループが多いのが問題なのですね。
さすがに1000ものループはないですが今後も気をつけるようにします。
ありがとうございました。
0532名無しさん＠お腹いっぱい。
01/11/30 19:20ID:???だからループの数じゃなくて「リストをあらかじめメモリ上に確保」
が問題なんだってば。
for($i=1; $i<=1000; $i++)なら何の問題もなし。
0533524
01/11/30 19:23ID:???すみません、ちょっとよくわからなくなってしまいました。
for(1 .. 1000)とやると1000の変数の分の領域をメモリ上に確保してしまう
というような意味でしょうか？
だとしたら、$#list = 1000;みたいなのも同様にまずいですよね？
0534名無しさん＠お腹いっぱい。
01/11/30 19:43ID:???> というような意味でしょうか？
御意。
> だとしたら、$#list = 1000;みたいなのも同様にまずいですよね？
領域の確保は発生するだろうね。
1000個の値が必要な配列があるのなら使うだろうし、
なければそんなことやる意味がないとおもうけど・・・
0535524
01/11/30 20:20ID:???なるほど。
親切な説明ありがとうございます。
今更ですが$#list=1000;みたいなバカなものを作っていた自分がいました。
早速修正しようと思います。
ありがとうございました。
アクセス成功できました。
ありがとうございます。
0537名無しさん＠お腹いっぱい。
01/12/01 04:31ID:kdHffvH4http://pc.2ch.net/test/read.cgi/hp/1005035374/824-
上のスレで｝の後の；を省略している人がいるのですが、
これって文法的に正しいのでしょうか。
テストしてみたら実際動いたのですが…。
0538名無しさん＠お腹いっぱい。
01/12/01 06:20ID:???問題ありません。Perlにおいては正しい書き方です。
ただ、俺だったらそのスレの824のようなケースでは省きませんね。
俺が省くのは、{ print $_ } のように、{ } が短い一行になる場合です。
これは単純に美的感覚（？）の問題ですけど。
0539名無しさん＠お腹いっぱい。
01/12/01 08:34ID:???インデントとか基本的な所は当然としても
俺みたいに色んな言語をちょろ齧りしてる様な奴のperlのソースはとても汚い
記述に一貫性が無いのに、それでも通ってしまうんだよ。
逆に〜〜言語風の書き方を一貫出来る人のコードは読みやすい
だから俺は、例えばCっぽい記述を強制するStrict_cみたいなのが欲しいんだ（ｗ
0540名無しさん＠お腹いっぱい。
01/12/01 21:36ID:Bx/rf8oU１度のスクリプト動作で一回しか乱数を使用しない場合は
乱数の初期化ってしなくてもいいんでしょうか。
0541名無しさん＠お腹いっぱい。
01/12/01 23:59ID:???0542名無しさん＠お腹いっぱい。
01/12/02 00:03ID:???専門書？
0543名無しさん＠お腹いっぱい。
01/12/02 00:53ID:???0544名無しさん＠お腹いっぱい。
01/12/02 01:01ID:???0545名無しさん＠お腹いっぱい。
01/12/02 08:29ID:???0546名無しさん＠お腹いっぱい。
01/12/02 08:30ID:???氏ね
0547名無しさん＠お腹いっぱい。
01/12/02 08:46ID:???他の巡回スレも煽り荒らしばかりで嫌になった…。
朝くらい気持ちよく巡回させてくれよ…。
0548名無しさん＠お腹いっぱい。
01/12/02 17:47ID:6F2mG0wFそんなモジュールを探しているのですが、標準モジュールで
ありますでしょうか？
0549名無しさん＠お腹いっぱい。
01/12/02 18:25ID:???0550名無しさん＠お腹いっぱい。
01/12/02 18:26ID:???$b = "/home/user/public_html/php/index.html";
print relative_path($a, $b);
sub relative_path {
my @file = @_;
my @dirA = split /\//, $file[0];
my @dirB = split /\//, $file[1];
while (1) {
last if ($dirA[0] ne $dirB[0]);
shift @dirA;
shift @dirB;
}
my $dir = "../" x $#dirA;
return $dir . (join "/", @dirB);
}
0551名無しさん＠お腹いっぱい。
01/12/02 22:48ID:SEeFh0J9web上でcgiにアクセスするとダウンロードのダイアログが出てきて
しまいます。これは何がいけないのでしょうか。
■ このスレッドは過去ログ倉庫に格納されています