On Tuesday, June 4, 2002, at 04:44 , David T-G wrote:
> % or am I missing something in the voodoo????
>
> I hope so, because if you aren't then I am :-)
I like SO SUCK[1]......
my $PING1='SPAGO';
print "And it is now $PING1 \n";
my $word = " fred 12 spot 345 67 bax 89% bob";
$_ = $word; # required to set the $_ thingie
if (/fred/ ) {
( $PING1 = (split)[6] ) =~ s/\D+//g;
print "We now have :$_: undt :$PING1:\n";
}
$PING1 ||='FreMonge';
print "final ping is: $PING1 \n";
which generates:
And it is now SPAGO
We now have : fred 12 spot 345 67 bax 89% bob: undt :89:
final ping is: 89
mea kulpa - but Like dude - we gotta get the shell folks
over the camel's hump and out of the backtick tricks -
although I like the for() freaking trick
ciao
drieux
---
[1] not to be confused with the
SO_ADDR_SUCK
socket option used by the Secret Police to read not
only all of your internet connections, but your brain
waves as well, unless you are wearing used alluminum foil...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
