Anonymous user
Run-length encoding: Difference between revisions
→{{header|Perl}}
Line 1,838:
=={{header|Perl}}==
<lang perl>sub encode
{(my $str = shift) =~ s {(.)(\1*)} {length($&).$1}gse;
return $str;}
sub decode
{(my $str = shift) =~ s {(\d+)(.)} {$2 x $1}gse;
return $str;}</lang>
| |||