正規表現の練習 - みずぴー日記

正規表現の練習 - みずぴー日記

30分プログラム、その739。http://gauc.no-ip.org/awk-users-jp/blis.cgi/DoukakuAWK_265にインスパイア...概要を表示 30分プログラム、その739。http://gauc.no-ip.org/awk-users-jp/blis.cgi/DoukakuAWK_265にインスパイアされました。 正規表現にマッチする部分に色をつけてくれるスクリプトです。 使い方 $ perl color_regexp.pl '(na)+' banana banana ソースコード #! /usr/bin/perl # -*- mode:perl; coding:utf-8 -*- use strict; use warnings; use Data::Dumper; sub color_regexp($$){ my ($reg, $str) = @_; $str =~ s/$reg/\033[32m$&\033[0m/g; $str; } my ($reg, $str) = @ARGV; print color_regexp(

• Perl