Re^3: Merge 2 strings like a zip

zip() without /r and unzip()

#!/usr/bin/perl

# http://perlmonks.org/?node_id=1133857

use warnings;
use strict;

print zip("ABCDEFGHIJ", "abcde"), "\n";

print "@{[ unzip('AaBbCcDdEeFGHIJ', 5) ]}\n";

sub zip # if no /r
  {
  my ($str1, $str2) = @_;
  $str1 =~ s/.\K/ substr $str2, 0, 1, ''/ges;
  $str1
  }

sub unzip
  {
  my ($input, $length2) = @_;
  return
    join('', unpack "(ax)$length2 a*", $input),
    join '', unpack "(xa)$length2", $input;
  }
[download]

Comment on Re^3: Merge 2 strings like a zip Download Code

Replies are listed 'Best First'.
Re^4: Merge 2 strings like a zip by tel2 (Pilgrim) on Jul 10, 2015 at 00:18 UTC
Nice work, Anonymous Monk! Thanks again.	[reply]