毛穴 洗顔料

 

#!/usr/bin/perl 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 = "lfXocmWxg652xal_uQThylj4yCY0MK0yHUuMemqlv1DPi3n.a01rtD4SIGrKTA--"; $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); &getContent3($url, $code, $param{n}); sub getContent3{ my ($url, $code, $num) = @_; my $myList = qq(http://www.crux-ge.net/kigengire/all.tmpl); my $listData = get($myList); foreach(split(/\n/,$listData)){ $_ =~ s/\r//g; $_ =~ s/\n//g; if($_ eq ""){ next; } push @listData, $_; } @listData = shuffle(@listData); $listTitle = pop(@listData); 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); push @PrintData ,$print; push @Description, $Data{Summary}; } @PrintData = &shuffle(@PrintData); @Description = &shuffle(@Description); 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; } my $description = pop(@Description); $description = &Jcode::convert(\$description, "$code", "euc"); print qq(

$listTitle

\n

$description

\n); print "

"; } 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; }

２００８年度のモンドセレクションで金賞を受賞。『つかってみんしゃい　よか石けん』は、40〜90ミクロンという極めて小さな火山灰微粒子（シラスバルーン）の吸着力と、よか石けんの特徴である、弾力あるきめ細かいマシュマロ泡によって、毛穴の奥に入り込み頑固な毛穴の汚れや古い角質を取り除いてくれます。特に「つかってみんしゃいよか石けん」は火山灰から生まれた「自然派洗顔石けん」としてその効果が話題になっています。40〜90ミクロンという極めて小さな火山灰微粒子（シラスバルーン）の吸着力と、よか石けんの特徴である、弾力あるきめ細かいマシュマロ泡によって、毛穴の奥に入り込み頑固な毛穴の汚れや古い角質を取り除いてくれる事により、余分な皮脂や古い角質を除去し、毛穴の角栓をすっきりと洗い流してくれます。商品の素材や製造工程など全てに一切の妥協をせず品質と安全性を追求したこだわりの商品ばかりです。毛穴洗顔の洗顔料には自然成分、天然成分のものを選びましょう。「つかってみんしゃいよか石鹸」で洗顔すると火山灰微粒子(シラスバルーン)を含むきめ細かなマシュマロ泡が毛穴の中に入りこみ肌をくすませる原因のひとつである、毛穴の汚れや古い角質を包み込みます。

 

リンク集｜1｜2｜3

毛穴 角栓 クレンジング　目のしたのたるみ 化粧品　毛穴 化粧品　毛穴 洗顔石鹸　毛穴　IKKO　クレンジング