Perl d、 一个字（按空格）一个字一个字地写，这会很混乱。像@p=split/（\s+）/；对于（@p）{/HTML | php | CSS | Java（Script）？/？print RED$|，RESET:print}Re“在字符串中用更多文本给一个单词或

---

d、 一个字（按空格）一个字一个字地写，这会很混乱。像

@p=split/（\s+）/；对于（@p）{/HTML | php | CSS | Java（Script）？/？print RED$|，RESET:print}

Re“在字符串中用更多文本给一个单词或几个单词上色并不是那么简单”，实际上，它是。查看其他答案：）您甚至可以使用

@p=split/（HTML | php | CSS | Java（？：Script）/）实现它@ikegami“事实上，它是”--是的，我后来意识到：）。进入模块，根本不考虑正则表达式。但是，正确的方法已经发布，所以一切都很好。我将编辑此内容（感谢您的留言）并留下它，因为它可能对其他用途/原因有用。。。（？）。查看其他答案：）您甚至可以使用
@p=split/（HTML | php | CSS | Java（？：Script）/）实现它@ikegami“事实上，它是”--是的，我后来意识到：）。进入模块，根本不考虑正则表达式。但是，正确的方法已经发布，所以一切都很好。我将编辑此内容（感谢您的留言）并留下它，因为它可能对其他用途/原因有用。。。(?)
$ echo "First HTML appeared, then CSS, then JavaScript" | rg -N 'HTML|php|CSS|Java(Script)?' 
$ echo "First HTML appeared, then CSS, then JavaScript" | ag --nonumbers 'HTML|php|CSS|Java(Script)?'

$ echo "First HTML appeared, then CSS, then JavaScript" | perl -ne '/HTML|php|CSS|Java(Script)?/ and print'

echo "First HTML appeared, then CSS, then JavaScript" | perl -ne 'use Term::ANSIColor qw(:constants);/HTML|php|CSS|Java(Script)?/ and print RED, $_'

echo "First HTML appeared, then CSS, then JavaScript" | perl -ne 'use Term::ANSIColor;/HTML|php|CSS|Java(Script)?/ and print color("red"), $_'

echo "First HTML appeared, then CSS, then JavaScript" |
perl -MTerm::ANSIColor=:constants -wne'
    @p = split /([,.\-\s+])/;  
    for (@p) { /HTML|php|CSS|Java(Script)?/ ? print RED $_, RESET : print }'

perl -MTerm::ANSIColor=:constants -wne'
    BEGIN { $re = qr/HTML|php|CSS|Java(?:Script)?/ };
    for (split /($re)/) { /$re/ ? print RED $_, RESET : print }'

echo "First HTML appeared, then CSS, then JavaScript" | perl -pe 's/(HTML|php|CSS|Java(Script)?)/\e[31m\e[1m\e[4m$1\e[0m/g'