view perl-wc @ 9:2711ab9baa52 default tip

use core module only
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 04 Jan 2021 11:00:54 +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";