Mercurial > hg > Members > anatofuz > anatofuz-tools
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";