siiz.biz, Perl 正規表現マッチ /2017.01.25.00

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