Help for this page

Select Code to Download


  1. or download this
    use utf8;
use open ':std', ':utf8';
...
    close $FH;

...
  2. or download this
    perl check-size.pl ./data.mixed
$VAR1 = {
...
          'read' => 226,
          'tr' => 226
        };
  3. or download this
    
# Usage: perl5.36.3 check-size.pl ./data-mixed
...
$stat{q/tr/} = $string =~ tr///c;

print( Dumper( \%stat ) );
  4. or download this
    Tj9EOzg3aHosYU9NbDtrLmZQcUt4M3l3dl8hR1IyLEpvNHJCMVdRVTVUaVpkQ2pMSVM2Xz
+lFY1hl
dUhuIXRtLlkwRlZzZ3A/QS0tYk4/RDs4N2h6LGFPTWw7ay5mUHFLeDN5dwpGNVRuRUtsOG
+rwn5it
MGhQTzHvuI/ig6Mxc0lvQUx24KWsUyAgcHo2M0NiWuClr/CfpK9XVjJrR23wn5iSUnU3VW
+NI4KWv
YXFneDR34KWnWPCfmI85ZDHvuI/ig6Pwn6SjZk5Z8J+YrXlNSuClpmXgpajgpaZp4KWqdF
+FyREJG
NVRuRUtsOGrwn5itMGhQTzHvuI/ig6Mxc0lvQUx24KWsUyAgcHo2M0NiWuClr/CfpK9XVj
+IK