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