人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Perl初心者です。

PerlでTinyURL.com(http://tinyurl.com/)みたいなのを作りたいんですけど、サンプルコードってないでしょうか。

あとこれを作るのに勉強しておくべきことってどんなことがありますか?

できるだけ分かりやすいのをお願いいたします。

ちなみにC/C++は普通に使えます。

●質問者: OguraKunio
●カテゴリ:コンピュータ 学習・教育
✍キーワード:C/C++ Perl TinyURL コード 初心者
○ 状態 :終了
└ 回答数 : 6/6件

▽最新の回答へ

1 ● harumomo2006
●15ポイント

http://www.futomi.com/lecture/ohter/redirect.html

リダイレクト - futomi's CGI Cafe

見た感じでは登録されたURLとコード(http://tinyurl.com/hoge)を対応付けてリダイレクトしているだけだと思います。

◎質問者からの返答

ありがとうございます。


2 ● aef444
●15ポイント

http://naoya.dyndns.org/~naoya/mt/archives/001682.html

Perl の MVC フレームワーク Catalyst に入門してみた : NDO::Weblog

こちらのページを参考にされてはいかがですか。

◎質問者からの返答

ありがとうございます。


3 ● matsu911
●15ポイント

http://www.news-web.org/

ブログ ビジネス インターネット 新聞 ネット at news-web.org

上記URLはダミーです。

URLをMD5などでハッシュ値を求め、ハッシュ値をキーとし、URLはバリューとするテーブルを作ればよいです。

で、MD5化されたURLにリクエストがきたら、もとのURLにリダイレクト。

◎質問者からの返答

すいません、もうすこし分かり易くお願いします。


4 ● marlene7196
●15ポイント

http://www.rfs.jp/sitebuilder/perl/02/05.html

302 Found

perlスクリプティングに絞ってお応えします


端的にいって、短縮URLから真のURLに変換する問題に帰結します。

簡単な実現法としては、短縮URLをキーとするハッシュを作ることで真のURLを取り出す。

簡単な例を挙げておきます

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


#定義部

#実際のコードでは定義ファイルから取り込む

$URL{”www.tiny/1”} = ”http://images.google.com/images?q=perl&num=50&hl=ja&...”;

$URL{”www.tiny/2”} = ”http://images.google.com/images?svnum=50&hl=ja&lr=lang_j...”;


$request = ”www.tiny/1”;

$true_url= ”N/A”;


#短縮URLが登録されているかチェック

#登録があれば、$true_urlに真のURLを返す。無ければ $true_url=”N/A”のまま

if(exists($URL{$request}) ) {

$true_url= $URL{$request};

}


print $true_url;

◎質問者からの返答

ありがとうございます。


5 ● Iwa
●15ポイント

http://neta.ethersky-online.net/perl_neta/tinyurl.zip

即席で作ってみました。

参考にどうぞ。

分からない点があれば質問してください。

あと、動作未確認なので不都合を見つけた場合も連絡をば(ぉ

◎質問者からの返答

おおっ!ありがとうございます。

後でじっくり検討させていただきます。

#今まだ入門書を読んでいる状態なんで、解読にかなり時間がかかりそうです。


1-5件表示/6件
4.前の5件|次5件6.
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ