質問させていただきます。
ランダムリンクのCGIがあるのですがこれを機能は変えず同じ動作をするPHPに変えたいのです。以下にCGIの内容を書きます。
↓
ファイル名 rand_link.pl
#!/usr/local/bin/perl
##############################################################################
# Random Link Version 1.0 #
# Copyright 1996 Matt Wright mattw@scriptarchive.com #
# Created 7/15/95 Last Modified 7/30/95 #
# Scripts Archive at: http://www.scriptarchive.com/ #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1996 Matthew M. Wright All Rights Reserved. #
# #
# Random Link may be used and modified free of charge by anyone so long as #
# this copyright notice and the comments above remain intact. By using this #
# code you agree to indemnify Matthew M. Wright from any liability that #
# might arise from it's use. #
# #
# Selling the code for this program without prior written consent is #
# expressly forbidden. In other words, please ask first before you try and #
# make money off of my program. #
# #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium. In all cases copyright and header must remain intact.#
##############################################################################
# Define Variables
$linkfile = "database.txt";
# Options
$uselog = 1; # 1 = YES; 0 = NO
$logfile = "/home/scriptarchive/demos/links/rand_log";
$date = `date +"%D"`; chop($date);
# Done
##############################################################################
open (LINKS, "$linkfile");
srand(); # kick rand
$nlines=@file=<LINKS>; # inhale file & get # of lines
print "Location: $file[int rand $nlines]\n\n"; # print a random line
close (LINKS);
if ($uselog eq '1') {
open (LOG, ">>$logfile");
print LOG "$ENV{'REMOTE_HOST'} - [$date]\n";
close (LOG);
}
exit;
↑
database.txtにhttp://www.gac.jp/などを1行ずつ改行で書き、HTMLに<a href="rand_link/rand_link.pl">★ </a>を埋め込みクリックのたびにランダムリンクさせる。(携帯対応)
PHP改造の知識がまったくないので自分ではどうにもできないです、、どうかよろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
とりあえずランダムリンクの処理だけですが。
(ログの処理はしていません)link.phpとしています。
index.htmlに<a href="link.php">★</a>と記述。
link.php
<?php
$linkfile = "./database.txt"; //読み込むファイル
$link = "./index.html"; //デフォルトのリンク
//ファイルの存在チェック
if (file_exists($linkfile)) {
$lines = @file($linkfile);//ファイルを配列に読み込む
$link_temp = rtrim($lines[array_rand($lines)]);//ランダムで1件取得して行末の改行を削除
$link = ($link_temp)? $link_temp: $link;//空の場合はデフォルト
}
header("location:".$link);
?>
ファイルを読み込む際に「file」関数を使っています。
これはdatabase.txtのファイルサイズがある程度のサイズまで(10MBくらいかな)だったら問題ないと思います。
これより大きくなる場合は、「fopen」などの関数で読み込むほうがいいです。
回答してくださってありがとうございます。
みごと動作いたしました。
「fopen」関数はすこし自分でもやってみようと思います。
今回はありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- YouTube youtubeからの著作権メールについて 2 2023/02/14 16:12
- MySQL 参考書に従って入力したつもりでしたが、最後はエラーがでました。 1 2022/09/28 03:45
- 英語 この英文は平易な反面格調高いですか? 1 2023/01/15 12:04
- その他(SNS・コミュニケーションサービス) 自分のpcがハッキングされたようなメールが来たのですがどうすればいいですか? 4 2022/10/02 16:14
- 英語 英文の添削をお願いします 4 2023/05/23 11:10
- TOEFL・TOEIC・英語検定 With its architecture and gardens and a wealth of 0 2022/12/17 16:11
- 英語 英語3 課題でこの英語の文章のSVOの分析や()等の括りを出されたため、できるだけ完璧にしたいのです 1 2022/12/18 02:25
- 英語 下記はなんていってますか? こんにちは以降、訳していただけたら助かります。 Hello, We’re 1 2023/01/14 00:09
- 戦争・テロ・デモ ウクライナ、メル友に五千円要求されてさ 1 2022/04/02 09:38
- 英語 英語の質問です。 When I taught in high school, I wanted to 4 2023/08/19 16:10
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでdatファイルを作成??
-
バッチファイルが作成できない
-
複数のテキストファイルをexcel...
-
複数のファイルを同時検索し、...
-
マクロでメモ帳に貼り付け
-
インデザインのテキスト流し込み
-
batファイル処理でのテキストフ...
-
ファイル名の特定文字だけ削除...
-
ヘルプファイルの翻訳
-
テキストファイルの文字色に色...
-
一気にずばっと複数のメールを...
-
テキストファイルを分割したい...
-
拡張文字・多言語対応のファイ...
-
複数テキストファイルをエクセ...
-
複数のテキストファイル(拡張...
-
Windows7でFTP内容が更新されない
-
VBAでファイルパスが長すぎてコ...
-
1フォルダに保存できるファイル...
-
Microsoft Access エラー 3051
-
ダウンロード不可PDFファイルは...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでdatファイルを作成??
-
拡張子が.txtのファイルに将来...
-
複数のテキストファイルをexcel...
-
バッチファイルが作成できない
-
batファイル処理でのテキストフ...
-
ファイル名の特定文字だけ削除...
-
テキストファイルの文字色に色...
-
複数のファイルを同時検索し、...
-
一気にずばっと複数のメールを...
-
VBSでテキストファイルのタブ区...
-
ExcelVBA テキストファイルから...
-
ヘルプファイルの翻訳
-
windowsへscp
-
テキストファイルを開かずに中...
-
マクロでメモ帳に貼り付け
-
文字の頭文字順に自動移動
-
CDの曲名をテキストファイルで...
-
KADOKAWA電撃文庫ってフォーマ...
-
インデザインのテキスト流し込み
-
複数テキストファイルをエクセ...
おすすめ情報