抜け毛の原因を考えよう｜抜け毛・薄毛の悩みと向き合うために・・・
抜け毛には、さまざまな原因があると考えられます。
抜け毛の原因の一つとして、栄養不足が挙げられます。
栄養不足が原因の抜け毛は、特に、蛋白質や鉄、亜鉛、セレンなどのミネラルの不足が原因で起きると考えられています。
また、ストレスも、抜け毛の原因の一つだと言われています。
ストレスを感じると、ホルモンのバランスが乱れ、これが血液循環に悪影響を及ぼして、抜け毛の原因になると考えられているのです。
このほか、抜け毛の原因として、紫外線を挙げることもできます。
紫外線は、髪の毛のキューティクルにダメージを与えますので、髪の毛に長時間紫外線を浴び続けることは、抜け毛の原因になると言うことができるのです。
このように抜け毛にはいろいろな原因があると考えられますので、抜け毛にお悩みの人は、まず、自分の抜け毛の原因について、よく考えてみることが大切です。
関連ニュース
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;
}
▲このページのトップへ
