view perl-wc @ 3:f05a6c7471fa

tweak
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sat, 06 Apr 2019 17:34:35 +0900
parents 78df974566a7
children
line wrap: on
line source

#!/usr/bin/perl
use strict;
use warnings;
use Encode;

my $buffer = do { local $/; <>; };

my $strings = decode_utf8($buffer);

my $lines = $strings =~ s/\n/\n/g || 1;
my $chars = length($strings);
my $bytes = length($buffer);

print "lines: $lines\n";
print "chars: $chars\n";
print "bytes: $bytes\n";