view release on metacpan or  search on metacpan

resistorcc  view on Meta::CPAN

use warnings ; 
use Encode qw[ encode_utf8 decode_utf8 ]; 
use Term::ANSIColor qw[ :constants color ] ; 
$Term::ANSIColor::AUTORESET = 1 ; 

use Getopt::Std ; 
getopts '=:' , \my %o ; 

my @givecolor = map { color ( $_ ) } 
 ( 
    'dark white' , 'faint bold red', # 'dark on_bright_red black', # 0 1 
    'red ', 'bright_red' , 'yellow' ,  # 2 3 4
    'green', 'bright_blue',  'bold magenta', # 5 6 7 
    'white', 'bold bright_white' # 8 9 
 ) ;

$o{'='} //= 1 if exists $o{'='} ; 
$o{'='} //= 0 ;
my $c = 0 ; # 行数のカウント

while ( <> ) { 
   $c ++ ; 
   do { print $_ ; next } if $c <= $o{'='} ; 
	$_ = decode_utf8 $_ ;