Perl 正規表現 マッチ /2017.01.25.00
# 否定は、!~ を使う
#
if (($rgb[$i] !~ /^[0-9]+$/) || ($rgb[$i] > 255)) {
}
########
my $return_data="";
while(<HTML>){
if(
$_ =~ /\['DOCUMENT_ROOT'\]\.'\/include\/head\.html'; \?>/
){
$return_data .= $head;
} elsif(
$_ =~ /\['DOCUMENT_ROOT'\]\.'\/include\/header\.html'; \?>/
){
$return_data .= $header;
} elsif(
$_ =~ /\['DOCUMENT_ROOT'\]\.'\/include\/footer\.html'; \?>/
){
$return_data .= $footer;
} else{
$return_data .= $_;
}
}
########
# Thanks.
#
実践で役立つPerl正規表現 完全解説
http://d.hatena.ne.jp/perlcodesample/20100827/1278596435
パターンマッチ演算子
http://rfs.jp/sb/perl/02/09.html#i-4