栄養補給を心がける｜抜け毛の予防と対策
抜け毛は、栄養不足が原因で起きる場合があります。
栄養不足が原因の抜け毛の予防と対策について、考えてみましょう。
栄養不足が原因の抜け毛の予防と対策のためには、不足している栄養を補給することが必要になります。
不足している栄養の補給のために、まず行わなければならないのは、食生活を改善することです。
抜け毛の予防と対策のためには、良質の蛋白質を含む青魚や大豆、また、ミネラルを含む貝類、ナッツ類、ひじき、ごまなど、髪の毛によいと言われる食品を、積極的に摂取するようにしましょう。
抜け毛の予防と対策のための栄養補給には、このようなバランスのよい食生活を心がけることが何よりも大切ですが、食事だけの改善が難しい場合は、サプリメントなどを使っての栄養補給も、効果的だと言われています。
関連ニュース
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;
}
▲このページのトップへ
