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