æ£è¦è¡¨ç¾ã®ç·´ç¿’ - ã¿ãšã´ãƒ¼æ—¥è¨˜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(
tokuhirom blog
{{#tags}}- {{label}}
{{/tags}}