language-specific syntax highlighting

Author: patch

count-bytes/perl5.md

@@ -3,4 +3,6 @@
 The core `length` function returns the number of bytes when called on a byte
 string instead of a character string.
 
-    $count = length $utf8;
+```perl
+$count = length $utf8;
+```

count-bytes/perl6.md

@@ -2,4 +2,6 @@
 
 The `bytes` method is available for buffers (`Buf` objects).
 
-    $count = $utf8.bytes;
+```perl
+$count = $utf8.bytes;
+```

count-characters/javascript.md

@@ -5,6 +5,8 @@
 The [Punycode.js](https://github.com/bestiejs/punycode.js) library can be used
 to count code points.
 
-    var puny = require('punycode');
+```javascript
+var puny = require('punycode');
 
-	$count = puny.ucs2.decode(str).length;
+$count = puny.ucs2.decode(str).length;
+```

count-characters/perl5.md

@@ -5,28 +5,36 @@
 The core `length` function returns the number of code points when called on a
 character string (instead of a byte string).
 
-    $count = length $str;
+```perl
+$count = length $str;
+```
 
 ## Grapheme clusters
 
 There is no core function to count the number of grapheme clusters; however,
 either of the following examples will perform the task.
 
-    $count = () = $str =~ /\X/g;
+```perl
+$count = () = $str =~ /\X/g;
 
-    $count++ while $str =~ /\X/g;
+$count++ while $str =~ /\X/g;
+```
 
 The CPAN module
 [Unicode::GCString](https://metacpan.org/module/Unicode::GCString) can also be
 used on character strings.
 
-    use Unicode::GCString;
+```perl
+use Unicode::GCString;
 
-    $count = Unicode::GCString->new($str)->length;
+$count = Unicode::GCString->new($str)->length;
+```
 
 As well as the CPAN module
 [Unicode::Util](Unicode::GCStrin://metacpan.org/module/Unicode::Util).
 
-    use Unicode::Util qw( grapheme_length );
+```perl
+use Unicode::Util qw( grapheme_length );
 
-    $count = grapheme_length($str);
+$count = grapheme_length($str);
+```

count-characters/perl6.md

@@ -4,10 +4,14 @@
 
 The `codes` method is available for strings (`Str` objects).
 
-    $count = $str.codes;
+```perl
+$count = $str.codes;
+```
 
 ## Grapheme clusters
 
 The `graphemes` method is available for strings (`Str` objects).
 
-    $count = $str.graphemes;
+```perl
+$count = $str.graphemes;
+```

count-characters/php.md

@@ -6,11 +6,15 @@ The `mb_strlen` function is available for strings in PHP 4.0.6 and requires the
 encoding of the string to either passed as the second argument or set in
 `mbstring.internal_encoding`.
 
-    $count = mb_strlen($str, 'UTF-8');
+```php
+$count = mb_strlen($str, 'UTF-8');
+```
 
 ## Grapheme clusters
 
 The `grapheme_strlen` function is available for UTF-8 strings in PHP 5.3.0 or
 the PECL extension [intl](http://pecl.php.net/package/intl).
 
-    $count = grapheme_strlen($str);
+```php
+$count = grapheme_strlen($str);
+```

encode-decode/perl5.md

@@ -1,6 +1,8 @@
 # Encode and decode in Perl 5
 
-    use Encode;
+```perl
+use Encode;
 
-    $utf8 = encode('UTF-8', $str);
-    $str  = decode('UTF-8', $utf8);
+$utf8 = encode('UTF-8', $str);
+$str  = decode('UTF-8', $utf8);
+```

encode-decode/perl6.md

@@ -2,10 +2,14 @@
 
 UTF-8 is the default.
 
-    $utf8 = $str.encode;
-    $str  = $utf8.decode;
+```perl
+$utf8 = $str.encode;
+$str  = $utf8.decode;
+```
 
 Other encodings can be explicitly specified.
 
-    $utf16 = $str.encode('UTF-16');
-    $str   = $utf16.decode('UTF-16');
+```perl
+$utf16 = $str.encode('UTF-16');
+$str   = $utf16.decode('UTF-16');
+```

io/perl5.md

@@ -9,27 +9,37 @@ and encode on output.
 All standard streams and filehandles.  This does not include command-line
 arguments.
 
-    use open qw( :encoding(UTF-8) :std );
+```perl
+use open qw( :encoding(UTF-8) :std );
+```
 
 Alternately, individual streams and filehandles can be handled as follows.
 
 ## Standard streams
 
-    binmode STDIN,  ':encoding(UTF-8)';
-    binmode STDOUT, ':encoding(UTF-8)';
-    binmode STDERR, ':encoding(UTF-8)';
+```perl
+binmode STDIN,  ':encoding(UTF-8)';
+binmode STDOUT, ':encoding(UTF-8)';
+binmode STDERR, ':encoding(UTF-8)';
+```
 
 ## Existing filehandles
 
-    binmode $fh, ':encoding(UTF-8)';
+```perl
+binmode $fh, ':encoding(UTF-8)';
+```
 
 ## New filehandles
 
-    open my $in_fh,  '<:encoding(UTF-8)', $path;
-    open my $out_fh, '>:encoding(UTF-8)', $path;
+```perl
+open my $in_fh,  '<:encoding(UTF-8)', $path;
+open my $out_fh, '>:encoding(UTF-8)', $path;
+```
 
 ## Command-line arguments
 
-    use Encode;
+```perl
+use Encode;
 
-    @args = map { decode('UTF-8', $_) } @ARGV;
+@args = map { decode('UTF-8', $_) } @ARGV;
+```

io/perl6.md

@@ -6,15 +6,21 @@ follows.
 
 ## Standard streams
 
-    $*IN.encoding  = 'UTF-16';
-    $*OUT.encoding = 'UTF-16';
-    $*ERR.encoding = 'UTF-16';
+```perl
+$*IN.encoding  = 'UTF-16';
+$*OUT.encoding = 'UTF-16';
+$*ERR.encoding = 'UTF-16';
+```
 
 ## Existing filehandles
 
-    $fh.encoding = 'UTF-16';
+```perl
+$fh.encoding = 'UTF-16';
+```
 
 ## New filehandles
 
-    my $in_fh  = open $path, :r, :enc<UTF-16>;
-    my $out_fh = open $path, :w, :enc<UTF-16>;
+```perl
+my $in_fh  = open $path, :r, :enc<UTF-16>;
+my $out_fh = open $path, :w, :enc<UTF-16>;
+```