check non-monotonic in dc_current

 #!/usr/bin/perl
use Term::ANSIColor;
my $input_library = $ARGV[0];

# $index --> 29 dc_current
$dc_current_flag=0; $index=0; $line=0; $increase=0; $decrease=0;

open(LIB,"<input_library");
while(<LIB>){
    $line++;
    if ($dc_current_flag=="4") {
        $original=$_; $increase=0; $decrease=0;
        $_ =~ s/"//g; $_ =~ s/,//g; $_ =~ s/\\//g;
        @aryl=split(" ",$_); $array_size = $#ary1+1;
        for ($i=0; $i<$array_size-1;$i++) {
            if ($aryl[$i] > $aryl[$i+1]) {$increase=1;} # detect increment
            if ($aryl[$i] < $aryl[$i+1]) {$decrease=1;} # detect decrement
        }
        if ($increase=="1" && $decrease=="1") {
            ## Values are non-monotonic when increment and decrement in same line
            print "LINE $line is non-monotonic, the VALUE is \n";
            for ($i=0; $i<$array_size-1; $i++) {
                    if ($ary1[$i] > $ary1[$i+1]) {print color("blue")."$ary1[$i] ";} # detect increment
                    if ($ary1[$i] < $ary1[$i+1]) {print color("red")."$ary1[$i] ";} # detect decrement
            }
            print "\n"; print color ('reset');
            #print "$original";
        } 

        ++$index;
        if ($index=="29") {$dc_current_flag=0; $index=0;}
    } 

    if (/dc_current \(/) {$dc_current_flag=1;}
    if ($dc_current_flag>0) { if (/index_1 \(/) {$dc_current_flag=2;}}
    if ($dc_current_flag>0) { if (/index_2 \(/) {$dc_current_flag=3;}}
    if ($dc_current_flag>0) { if (/values \(/) {$dc_current_flag=4;}}
}
close (LIB);

病毒英文

疫苗一詞「vaccine」源自於愛德華·金納所使用的牛痘。「vacca」為拉丁文，意即牛。

 A pandemic (from Greek πᾶν, pan, "all" and δῆμος, demos, "people" the 'crowd') is an epidemic of an infectious disease that has spread across a large region, for instance multiple continents or worldwide, affecting a substantial number of people. 

novel coronavirus (n.) 新冠病毒（武漢肺炎）novel 當名詞為小說，當形容詞為新型的

outbreak (n.) 病毒爆發

droplet infection (n.) 飛沫傳染

quarantine (n.) 檢疫隔離 home isolation (n.) 居家隔離 / hospital quarantine (n.) 住院隔離
The word "quarantine" originates from quarantena, the Venetian language form, meaning "forty days".^[15][3] This is due to the 40-day isolation of ships and people practised as a measure of disease prevention related to the plague

stockpile 囤貨
incubation period 潛伏期Incubate 是動詞，指「（細菌或病毒在體內）潛伏」
contract / catch / be infected with 感染、患上
Contract 是動詞「感染、患上」的意思，這是比較正式的用詞，一般也可以用 catch 來表示相同意思，後面直接加上疾病名稱。
precaution 預防、預防措施

mix and match 混打、booster shot 追加劑、疫苗混打（mixing vaccines）

一劑疫苗可以用dose (n)，名詞「劑量」即為dosage

immune system 免疫系統、immune response （免疫反應）