リンク集７
mixi(ミクシィ)は、日記、写真共有、ゲームや便利ツール満載のアプリなど、さまざまなサービスで友人・知人とのコミュニケーションをさらに便利に楽しくする、日本最大規模のソーシャル・ネットワーキングサービスです。
グッズ、お店、音楽、サービスなど、あらゆる「キーワード」が充実のコミュニティサイトです。
FC2は無料ブログ、ホームページ、アクセス解析等、楽しいWEB Lifeをお届けするポータルサイト。国内2位の実績を誇るブログは初心者からヘビーユーザーにまで幅広く楽しんで頂けます!30以上の様々なサービスを提供しています。
関連ニュース
BEGIN {
use FindBin qw($Bin);
use lib './lib', "$FindBin::Bin/lib";
use CGI;
use Jcode;
use LWP::Simple;
if($ENV{'SERVER_SOFTWARE'} =~ /IIS/i){
chdir $FindBin::Bin;
}
}
$q = new CGI;
@param = $q->param;
%param = &get_param(@param);
my $AppID = "n4nxt5axg64dYm23UmrcQJBbydOzLAL54L0ujO1w4W6f4rAQ52ebikLkviBxAh8-";
$http_URL_regex =
q{\b(?:https?|shttp)://(?:(?:[-_.!~*'()a-zA-Z0-9;:&=+$,]|%[0-9A-Fa-f} .
q{][0-9A-Fa-f])*@)?(?:(?:[a-zA-Z0-9](?:[-a-zA-Z0-9]*[a-zA-Z0-9])?\.)} .
q{*[a-zA-Z](?:[-a-zA-Z0-9]*[a-zA-Z0-9])?\.?|[0-9]+\.[0-9]+\.[0-9]+\.} .
q{[0-9]+)(?::[0-9]*)?(?:/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f]} .
q{[0-9A-Fa-f])*(?:;(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-} .
q{Fa-f])*)*(?:/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f} .
q{])*(?:;(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*)*)} .
q{*)?(?:\?(?:[-_.!~*'()a-zA-Z0-9;/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])} .
q{*)?(?:#(?:[-_.!~*'()a-zA-Z0-9;/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*} .
q{)?};
$tag_regex = q{[^"'<>]*(?:"[^"]*"[^"'<>]*|'[^']*'[^"'<>]*)*(?:>|(?=<)|$(?!\n))}; #'}}}}
# ǥեȤʸ
$code = 'sjis';
$key = $param{key};
if($param{code} ne ""){ $code = $param{code}; }
&Jcode::convert(\$key, "utf8");
$key = url_encode($key);
# Yahoo˥塼ȥԥå
# $url = qq(http://api.news.yahoo.co.jp/NewsWebService/V1/Topics?appid=$AppID&word=$key&num=$param{n}&sort=datetime&order=d);
# Yahoo
# $url = qq(http://api.search.yahoo.co.jp/WebSearchService/V1/webSearch?appid=$AppID&query=$key&results=30);
# $url = qq(http://search.yahooapis.jp/WebSearchService/V1/webSearch?appid=$AppID&query=$key&results=30);
$url = qq(http://search.yahooapis.jp/PremiumWebSearchService/V1/webSearch?appid=$AppID&query=$key&results=30);
&getContent3($url, $code, $param{n});
sub getContent3{
my ($url, $code, $num) = @_;
my $data = get($url);
$data =~ s/\r//g;
$data =~ s/\n//g;
$data = &Jcode::convert(\$data, "euc");
my @getValue = (
"Title"
,"Summary"
,"Url"
);
$derim = "";
foreach my $cont (split(/$derim/,$data)){
my %Data = ();
if($cont =~ /\
(.*)\<\/Cache\>/){
$cont =~ s/$1//;
}
foreach(@getValue){
if($cont =~ /\<$_\>(.*)\<\/$_\>/){
$Data{$_} = $1;
}
}
if($Data{Url} =~ /(.*)\<\/Url\>\/){
$Data{Url} = $1;
}
# my $print = qq($Data{Title}\n$Data{Summary}\n);
my $print = qq($Data{Title}\n$Data{Summary}\n);
push @PrintData ,$print;
}
@PrintData = &shuffle(@PrintData);
print qq(Content-type: text/html; charset=$CHARSET\n\n);
print qq();
for($i=0; $i<$num; $i++){
my $PrintData = pop @PrintData;
$PrintData = &Jcode::convert(\$PrintData, "$code", "euc");
print $PrintData;
}
print "
";
print $delete;
}
sub getContent2{
my ($url, $code) = @_;
my $data = get($url);
$data =~ s/\r//g;
$data =~ s/\n//g;
$data = &Jcode::convert(\$data, "euc");
my @getValue = (
"title"
,"url"
,"datetime"
,"topicname"
);
$derim = "";
foreach my $cont (split(/$derim/,$data)){
my %Data = ();
foreach(@getValue){
if($cont =~ /\<$_\>(.*)\<\/$_\>/){
$Data{$_} = $1;
}
}
if($Data{title} eq ""){ $Data{title} = $Data{topicname}; }
$PrintData .= qq($Data{title}\n$Data{url}\n);
}
$PrintData = &Jcode::convert(\$PrintData, "$code", "euc");
print qq(Content-type: text/html; charset=$CHARSET\n\n);
print "";
print $PrintData;
print "
";
}
sub url_encode {
my $str = shift;
$str =~ s/([^\w ])/'%'.unpack('H2', $1)/eg;
$str =~ tr/ /+/;
return $str;
}
sub get_param{
@param = @_;
foreach $key (@param){
$value = $q->param($key);
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;
$value =~ s/&/&/g;
$value =~ s//>/g;
$value =~ s/\x0D\x0A/
/g;
$value =~ tr/\t/ /;
# $value =~ s/\\/\\\\/g;
$value =~ s/"/#double#/g;
$param{$key} = $value;
}
return(%param);
}
sub shuffle {
my @list = @_;
for (my $i = $#list; $i > 0; $i--) {
my $r = int(rand($i+1));
if ($r != $i) {
my $tmp = $list[$i];
$list[$i] = $list[$r];
$list[$r] = $tmp;
}
}
return @list;
}
▲このページのトップへ
