javascriptの最近のブログ記事

作ったのは、チョー簡単なcgiで、やってることはパラメータで受けたURLを

perlにてリクエストし、JSON形式で返すだけ

 

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use HTTP::Lite;
use JSON::Syck;
use Jcode;

my($data, %qq);
my $q    = CGI->new();
my $http = HTTP::Lite->new();
my $req  = $http->request($q->param('src')) or goto RET;
my $body = $http->body();

if ($q->param('headless')) {
    $body =~ s!^.*<body[^>]*>(.*)</body>.*$!$1!i;
}
my $char = getcode($body);
if ($char && $char !~ /utf\-?8/i) {
    $body = jcode($body, $char)->utf8;
}
for ($q->param()) {
    $qq{$_} = $q->param($_);
}
$data = {%qq, content => $body};
RET:

print
    $q->header(-type => 'application/x-javascript; charset=UTF-8'),
    $q->param('callback'), '(', JSON::Syck::Dump($data), ');', "\n";
exit;

 

まー、いたって簡単ですな

 

これを使って、右サイドバーのamazon広告をonloadで変えてみます

 

 

 

もともと、windows内ポップアップwindowとか、

prototype.jsを使った場合に、flashがあると、

うしろに隠れてしまうのは、しょうがないかーって

思ってたんですけど

 

ここを発見して

 

へーーーーーって思いましたww

windows 且つ IE 限定ですけどね^^;

 

まー、何かあったときにでも。。。。www

 

実は、この前書いた記事だと、もともとあるonclickが

消えてしまうので、今回は追加する版ですw

 

そのままですが、

 

function(limit) {
    return Math.floor(Math.random() * limit + 0.5);
}

 

+ 0.5 が肝ですねw

 

単純にrandomして、floorすると、最大値(limit)が出る確率が

ものすごく下がります。

なので、0.5を足してから、floorしてあげるわけですね

 

まー、本文そのままですが、色々なところで使えそうなのでメモがてら・・・

 

HTMLタグをすべて取得するのは

 

var objs = document.getElementsByTagName("*");
for(i=0;i<objs.length;i++){
}

 

ですが、これにid、onclickを追加してみましょう

 

前の記事

 

javascriptでsprintfするjs

 

で、sprintfが簡単に使えるよーって、書いたんだけど、

sprintfが使えるjsを読み込んで、sprintfを使うにはどうしたらいいのかな?と

 

つまり、

 

<script src="xxx.js" type="text/javascript"></script>

 

のxxx.jsから

 

document.write("<script src="printf.js" type="text/javascript"></script>");

 

して、sprintfを呼びたいってこと

 

を、作ろうとしたんだけど、やっぱりあるのですね

 

メモメモww

高度な JavaScript 技集

感謝感謝♪

Perl 勉強本

Oracle 勉強本

J2EE 勉強するなら、これしかなくね?

2008年12月: 月別アーカイブ

このアーカイブについて

このページには、過去に書かれたブログ記事のうちjavascriptカテゴリに属しているものが含まれています。

前のカテゴリはjavaです。

次のカテゴリはmod_perlです。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。

Powered by Movable Type 4.1

ブログ管理人

SE perler@29

アイテム

  • image001.gif
  • modperl.png

アドパートナー

tooland

Pingo!

boox