hahahahaha
# This one has already been said, but hey.. thought i would make a bigger
mess of it
my ($newvar);
my @new = ($var1,$cat,$var2,$cat,$var3);
foreach (@new){
$newvar .= $_;
}
#or
# once again, already said, just making it obvious
my @new = ($var1,$var2,$var3);
$newvar = join("-",@new);
#or even a bigger mess of the above.
my (@new);
push(@new, $var1);
push(@new, $var2);
push(@new, $var3);
$newvar = join("-",@new);
> ----- Original Message -----
> From: "Chas Owens" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, June 27, 2001 5: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!
> >
>