the obvious proof i have too much time:
for(join'',map{$_.=$:}@{[qw(2000 05 08)]}){s/\s//g&&chop&&print}
Jos
----- Original Message -----
From: "Chas Owens" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, June 27, 2001 6:39 PM
Subject: Re: Joining variables
> So we have:
>
> $newvar = $var1."-".$var2."-".$var3;
> $newvar = "$var1-$var2-$var3";
>
> $concat = '-';
> $newvar .= $var1;
> $newvar .= $concat;
> $newvar .= $var2;
> $newvar .= $concat;
> $newvar .= $var3;
>
> $newvar = join "-", ($var1, $var2, $var3);
> $newvar = join '', ($var1, '-', $var2, '-', $var3); #new varient
> $newvar='';$newvar .= "$_-" foreach ($var1, $var2, $var3); chop $newvar;
> $newvar = sprintf "%04d-%02d-%02d", $var1, $var2, $var3;
> $newvar =~ s/.*/$var1-$var2-$var3/;
>
> Does this answer your question <grin />? Anybody else want to add a few
> ways? I think I am tapped.
>
> --
> Today is Pungenday, the 32nd day of Confusion in the YOLD 3167
> Kallisti!
>
>
>