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
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 want
On Wed, Jun 27, 2001 at 02:07:22PM +0100, Pierre Smolarek wrote:
$newvar = $var1.-.$var2.-.$var3;
or $newvar = $var1-$var2-$var3;
$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
Subject: RE: Joining variables
This wouldn't be homework by any chance???
-Original Message
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 in a
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;
$newvar .= $concat;
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 = '-';
$newvar .= $var1;
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 Smolarek wrote:
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
: 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
the obvious proof i have too much time:
for(join'',map{$_.=$:}@{[qw(2000 05 08)]}){s/\s//gchopprint}
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
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//gchopprint}
Jos
snip /
Okay, I think you win. Please let me know if my attempt at an
explaination of your abomination (modified slightly to be
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//gchopprint}
LOL!!!
Is there a list award for Obfuscation of the Day? =o)
Actually, that's beautiful, Jos.
Bravo. ;o]
*applauds*
very good...
no need to feel dirty.. just feel that you have WAY too much spare time
trying to unobfuscate what i wrote =)
regards,
Jos
- Original Message -
From: Chas Owens [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, June 27, 2001 8:42 PM
Subject: Re: Joining
14 matches
Mail list logo
