Re: Joining variables

2001-06-27 Thread Jos I. Boumans
01 8:42 PM Subject: Re: Joining variables > On 27 Jun 2001 19:56:49 +0200, Jos I. Boumans wrote: > > the obvious proof i have too much time: > > > > for(join'',map{$_.=$:}@{[qw(2000 05 08)]}){s/\s//g&&chop&&print} > > > > Jos > >

Re:[OT]Joining variables

2001-06-27 Thread Paul
> On 27 Jun 2001 19:56:49 +0200, Jos I. Boumans wrote: > > the obvious proof i have too much time: > > for(join'',map{$_.=$:}@{[qw(2000 05 08)]}){s/\s//g&&chop&&print} LOL!!! Is there a list award for Obfuscation of the Day? =o) Actually, that's beautiful, Jos. Bravo. ;o] _

Re: Joining variables

2001-06-27 Thread Chas Owens
On 27 Jun 2001 19:56:49 +0200, Jos I. Boumans wrote: > the obvious proof i have too much time: > > for(join'',map{$_.=$:}@{[qw(2000 05 08)]}){s/\s//g&&chop&&print} > > Jos Okay, I think you win. Please let me know if my attempt at an explaination of your abomination (modified slightly to be c

Re: Joining variables

2001-06-27 Thread Jos I. Boumans
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

Re: FW: Joining variables

2001-06-27 Thread Randal L. Schwartz
> "Andre" == Andre Cavalcanti <[EMAIL PROTECTED]> writes: Andre> @var=($var1,$var2,$var3); Andre> $"="-"; Andre> $newvar="@var"; Please do this only within a local setting: my $newvar = do { local $" = "-"; "@var" }; Otherwise, your $" will mess up the rest of the program. And since this

FW: Joining variables

2001-06-27 Thread Andre Cavalcanti
@var=($var1,$var2,$var3); $"="-"; $newvar="@var"; -Original Message- From: Chas Owens [mailto:[EMAIL PROTECTED]] Sent: Wednesday, June 27, 2001 11:39 AM To: [EMAIL PROTECTED] Subject: Re: Joining variables So we have: $newvar = $var1."-".$var2.&quo

Re: Joining variables

2001-06-27 Thread Pierre Smolarek
ECTED]> > Sent: Wednesday, June 27, 2001 5:39 PM > Subject: Re: Joining variables > > > > So we have: > > > > $newvar = $var1."-".$var2."-".$var3; > > $newvar = "$var1-$var2-$var3"; > > > > $concat = '-'

Re: Joining variables

2001-06-27 Thread Chas Owens
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 varien

Re: Joining variables

2001-06-27 Thread Chas Owens
On 27 Jun 2001 17:59:12 +0200, Aaron Craig wrote: > Just to make it longwinded: > > my $stuff = { $var1 => "-" , $var2 => "-" , $var3 => "-" }; > my $newvar = ""; > $newvar .= "$_$stuff->{$_}" foreach keys %{ $stuff }; > This is not guarenteed to produce the desired results (keys in a hash have

Re: Joining variables

2001-06-27 Thread Aaron Craig
Just to make it longwinded: my $stuff = { $var1 => "-" , $var2 => "-" , $var3 => "-" }; my $newvar = ""; $newvar .= "$_$stuff->{$_}" foreach keys %{ $stuff }; At 11:45 27.06.2001 -0400, Chas Owens wrote: >On 27 Jun 2001 10:06:28 -0400, Chas Owens wrote: > > On 27 Jun 2001 14:37:14 +0100, Pierre

Re: Joining variables

2001-06-27 Thread Chas Owens
On 27 Jun 2001 10:06:28 -0400, Chas Owens wrote: > On 27 Jun 2001 14:37:14 +0100, Pierre Smolarek wrote: > > > On Wed, Jun 27, 2001 at 02:07:22PM +0100, Pierre Smolarek wrote: > > > > $newvar = $var1."-".$var2."-".$var3; > > > > > > or $newvar = "$var1-$var2-$var3"; > > > > or > > > > $concat =

Re: Joining variables

2001-06-27 Thread Paul Murphy
Umm... like $newvar = sprintf("$var1-$var2-$var3"); Can we get uglier? >>> Chas Owens <[EMAIL PROTECTED]> 6/27/2001 03:06:28 pm >>> On 27 Jun 2001 14:37:14 +0100, Pierre Smolarek wrote: > > On Wed, Jun 27, 2001 at 02:07:22PM +0100, Pierre Smolarek wrote: > > > $newvar = $var1."-".$var2."-".$va

Re: Joining variables

2001-06-27 Thread Chas Owens
On 27 Jun 2001 14:37:14 +0100, Pierre Smolarek wrote: > > On Wed, Jun 27, 2001 at 02:07:22PM +0100, Pierre Smolarek wrote: > > > $newvar = $var1."-".$var2."-".$var3; > > > > or $newvar = "$var1-$var2-$var3"; > > or > > $concat = '-'; > $newvar .= $var1; > $newvar .= $concat; > $newvar .= $var2;

Re: Joining variables

2001-06-27 Thread Pierre Smolarek
> On Wed, Jun 27, 2001 at 02:07:22PM +0100, Pierre Smolarek wrote: > > $newvar = $var1."-".$var2."-".$var3; > > or $newvar = "$var1-$var2-$var3"; or $concat = '-'; $newvar .= $var1; $newvar .= $concat; $newvar .= $var2; $newvar .= $concat; $newvar .= $var3; dude, you should really look this up

Re: Joining variables

2001-06-27 Thread Pierre Smolarek
$newvar = $var1."-".$var2."-".$var3; - Original Message - From: "John Edwards" <[EMAIL PROTECTED]> To: "'Diego Riaño'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Wednesday, June 27, 2001 2:01 PM Subjec

Re: Joining variables

2001-06-27 Thread Walt Mankowski
On Wed, Jun 27, 2001 at 02:07:22PM +0100, Pierre Smolarek wrote: > $newvar = $var1."-".$var2."-".$var3; or $newvar = "$var1-$var2-$var3";

RE: Joining variables

2001-06-27 Thread John Edwards
This wouldn't be homework by any chance??? -Original Message- From: Diego Riaño [mailto:[EMAIL PROTECTED]] Sent: 27 June 2001 13:59 To: [EMAIL PROTECTED] Subject: Joining variables Hi Perl guys I have another problem: I have three variables working: $var1 $var2 #and $var3 I wa

Joining variables

2001-06-27 Thread Diego Riaño
Hi Perl guys I have another problem: I have three variables working: $var1 $var2 #and $var3 I want to join these three variables in a new one, with some formar, something like that: $newvar will be $var1-$var2-$var3 for example if: $var1=2000 $var2=08 #and $var3=15 then $newvar=2000-08-15