抜け毛･薄毛の悩みと向き合うために･･･
抜け毛について 抜け毛の予防と対策 女性の抜け毛･薄毛 男性の抜け毛･薄毛 抜け毛の防止 抜け毛の悩み相談
抜け毛や薄毛の悩みを抱えている人は多いです｡ ｢抜け毛･薄毛の悩みと向き合うために･･･｣では､そんな抜け毛や薄毛の悩みを抱えているあなたをお助けします｡ 発毛剤､育毛剤､育毛ｼｬﾝﾌﾟｰ､男性型脱毛症（AGA）､分娩後脱毛症､びまん性脱毛症など､抜け毛や薄毛の事はお任せください｡
抜け毛について
抜け毛について
抜け毛の原因
抜け毛の予防と対策
抜け毛の種類
栄養補給
紫外線対策
ｽﾄﾚｽによる抜け毛
発毛剤･育毛剤･養毛剤の違いは？
女性の抜け毛･薄毛
女性特有の抜け毛や薄毛の悩み
びまん性脱毛症
分娩後脱毛症
牽引性脱毛症
男性の抜け毛･薄毛
男性型脱毛症（AGA）とは
男性型脱毛症（AGA）対策のｼｬﾝﾌﾟｰ選び
男性型脱毛症（AGA）の治療法
男性型脱毛症（AGA）の治療薬
抜け毛の防止
育毛と増毛の違い
育毛ｼｬﾝﾌﾟｰ
正しい生活習慣
抜け毛の悩み相談
ｲﾝﾀｰﾈｯﾄで抜け毛相談
抜け毛専門医療機関
ﾘﾝｸ集１
ﾘﾝｸ集２
ﾘﾝｸ集３
ﾘﾝｸ集４
ﾘﾝｸ集５
ﾘﾝｸ集６
ﾘﾝｸ集７
ﾘﾝｸ集８
ﾘﾝｸ集９
ﾘﾝｸ集１０
いびき 解消
肌荒れ対策
目のｸﾏ
練り香水
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; }
ﾌﾟﾗｲﾊﾞｼｰﾎﾟﾘｼｰ
(C) 2009 抜け毛･薄毛の悩みと向き合うために･･･
