Date: 04 Oct 2001 22:26:13 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: Multiplexing strings
Message-Id: <m3zo76izzu.fsf@mumonkan.sunstarsys.com>

mauroid@csi.forth.gr (Dimitri) writes:

> Input:
> 
> $str1 = "aabbccddeeff";
> $str2 = "AABBCCDDEEFF";
> $str3 = "001122334455";
> 
> Output :
> 
> $out = "aaAA00bbBB11ccCC22ddDD33eeEE44ffFF55";
> 

Look for swrite() in perlform:

  % perldoc perlform

~>

  @args = ($str1, $str2, $str3);
  $out = swrite("^<^<^<~~", @args); # empties @args

Joe Schaefer
-- 
$.=$[|3*rand;$_=67014523;END{print@_};*UNIVERSAL::AUTOLOAD=sub{&A;pop->();++
$#;*A};$.++,*[=*]=*\=sub{$].=pop.(--$#%2?q: ::qq::)};*#=sub{split m, (?<=^.{2})
(.{$.}),x,shift};@#=qw[just another Perl hacker];*A=*AUTOLOAD=sub{split"::",$A;
&]};map{splice@#,$_,1,&#($#[$_])}3,1;$_="@{[@#[m$.$g]]}";s;P;,p;;eval;$\.="\n"