view perl-wc @ 2:3656bdd46f54

add touchslide
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sat, 16 Feb 2019 16:56:42 +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";