男性型脱毛症（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;
}
▲このページのトップへ
