正規表現の練習

Perl 30分プログラム

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($reg, $str),"\n";

参考