Help for this page

Select Code to Download


  1. or download this
    my $MAX_BYTES = 25;
my ($MIN_BPC, $MAX_BPC) = (1, 4);
my $MAX_CHARS = $MAX_BYTES / $MIN_BPC;
  2. or download this
    D:\>perl -CO -Mcharnames=:full -wE "$MAX = 4; $cafe = qq/cafe\N{COMBIN
+ING ACUTE ACCENT}/; say $cafe; substr($cafe, $MAX) = ''; say $cafe;" 
+> cafe.txt

D:\>