HDTenEightyP/NetNews huggingface dataset:
From: robt@is.morgan.com (Rob Torop)
Subject: question
Organization: Morgan Stanley & Company
Distribution: comp.lang.perl
Date: Thu, 9 Apr 1992 18:24:05 GMT

Can someone explain this to me?  I want to write function which opens
a pipe to fsql and then sends it some commands.  This was easy enough, but
I can't figure out how to add error handling, at least to make sure
that sybase is up.  Here's the kind of thing I'm doing:

    sub fsql {
       local(@commands) = @_;

       open(FSQL, "| fsql");
       print FSQL join(";\n", @commands) . ";\n";
       close(FSQL);
       return 1;
    }

I'd like to be able to know that the open suceeded. I've tried things like

    eval <<'abracadabra';
    open("| fsql") || die;
abracadabra

    # look at $@, @$, ...

but they don't work.  What's the hip way to do it?  Thanks.

-- Rob

Newsgroups: comp.lang.perl
From: utashiro@InterTech.COM (Kazumasa Utashiro)
Subject: Re: novice q: finding unique words in a list
Organization: InterTech Data Systems, Inc., Cupertino, CA
Date: Fri, 10 Apr 1992 23:21:26 GMT

In article <18400@ector.cs.purdue.edu>
	spaf@cs.purdue.EDU (Gene Spafford) writes:
>
>sub uniq {
>    local($previous) = undef;
>
>    grep((($_ ne $previous) && ($previous = $_, 1)), @_);
>
>}

This works fine as long as grepping from \n terminated
lines.  But doesn't work for arbitrary strings.  I couldn't
think of a fancy fix for this in a short time.  Here is
a very easy way:

sub uniq {
    local($previous) = 'hi there'.$_[$[];

    grep((($_ ne $previous) && ($previous = $_, 1)), @_);
}

--utashiro
From: tra@helios.ucsc.edu (Ted Asocks)
Newsgroups: comp.lang.perl
Subject: Can I expand a variable in a pattern?
Date: 14 Apr 92 01:34:19 GMT
Distribution: us
Organization: UCO/Lick Observatory

Hi. I am writing my first perl program to simplify our dump
scripts and ran into a wall with my pattern matching attempt.
I have a workaround for it, but I would like to know... 

ENTER DEBUG MODE

  DB<13> p $test
/u

  DB<14> p $disk
> /dev/rrs0c    (    /u) Last dump: Level 0,
  DB<15> p $disk =~ /${test}/

  DB<16>

END DEBUG MODE

I have tried various incantations of to no avail.

The manual seemed to indicate that it was possible showing
a /$foo[bar]/ syntax. What am I doing wrong?

$RCSfile: perl.c,v $$Revision: 4.0.1.4 $$Date: 91/06/10 01:23:07 $
Patch level: 10


  ---------------------------------------------------------------------------
  Ted Asocks                                         tra@helios.ucsc.edu
  Systems Administrator                              VOICE: (408)459-4020
  UCO/Lick Observatory                               FAX:   (408)429-3115
From: sharon@jpl-devvax.jpl.nasa.gov (Sharon Hopkins)
Newsgroups: comp.lang.perl
Subject: Re: reset behavior: bug or feature?
Date: 17 Apr 92 18:07:08 GMT
Organization: Jet Propulsion Laboratory (NASA)

In article <1992Apr15.170322.23878@ctp.com> jmay@ctp.com (Jason May) writes:
>
>The perl reset function clears the selected variables or arrays, but they
>remain defined.  For example:
>
>    $a = "foo";
>
>    reset 'a';
>
>    if (defined $a) {
>	print "a is defined: $a\n";
>    }
>    else {
>	print "a is not defined\n";
>    }

Why not use undef, if you want to undefine things?

--Sharon Hopkins
  sharon@jpl-devvax.jpl.nasa.gov
From: henkp@cs.ruu.nl (Henk Penning)
Newsgroups: comp.lang.perl
Subject: Re: novice q: finding unique words in a list
Date: 10 Apr 92 23:09:15 GMT
Organization: Utrecht University, Dept. of Computer Science

I wrote: "Next to grep and sort, uniq should be a Perl primitive."

Jerry G. DeLapp and Gene Spafford gave solutions for &uniq.
Both are incorrect. The first doesn't uniq an initial sequence
of empty strings, the second ignores such a sequence.

Here is my shot at uniq (eliminate tail-recursion for speed):

sub uniq
  { return(@_) if @_ <= 1 ;
    local($a,$b,@tail) = @_ ;
    return( ( $a eq $b ) ? &uniq($b,@tail) : ($a,&uniq($b,@tail)) ) ;
  }

But all this is BESIDE the POINT.

Suppose 'sort' wasn't a primitive in Perl and someone proposed to add it.
I don't think that clever 5-liners would be good counter-arguments.
Also, even a one-line sort would not be an argument for removing sort.
It is clear that 'sort' should be a primitive in Perl.

Now the case for 'uniq':
-- It is a clean, simple function: squeeze equal consecutive elements.
-- Can be implemented easily, with great efficiency.
-- Fits in with the UNIX mind-set, like grep, sort (and join :-).

Of course, I don't think every 5-liner should be a primitive,
but Perl's strength is built on its powerfull array-primitives.
I just think it could be a little stronger in that area.

				===  HenkP  ===

PS: how about
    @prod = zip(@x,@y,{$a*$b;}) ;
    $sum  = map(@prod,0,{$a+$b;}) ;
From: jja@amy (Joseph Alotta)
Newsgroups: comp.lang.perl
Subject: Re: Damn fool question re Camel Book
Date: 7 Apr 92 15:21:42 GMT
Organization: First National Bank Of Chicago, Chicago IL, USA

In article <1992Apr5.162822.29839@cunixf.cc.columbia.edu>  
em21@cunixf.cc.columbia.edu (Eben Moglen) writes:
> 
> I have written a fair amount of perl in the last several months, but  
always
> without reading the so-called Camel Book, which I see referred to here
> frequently.  I appreciate that this should be FAQ, but doesn't seem to  
be:
> can I ftp this book from somewhere?
> 
> If not, could someone please excerpt the basic discussion of perl  
pointers
> and send it to me?  I can't seem to puzzle out for myself the Single  
True
> Perl Concept that explains what happens when you dereference in various
> contexts left and right of assignment.  Sorry to be so obtuse.  Thanks  
for
> the help.
>  
__________________________________________________________________________ 
_____
>                Fiat Justitia,         "Quoi que vous fassiez, ecrasez  
l'infame,
>                 ruat Coelum.                           et aimez qui vous  
aime."
>  Eben Moglen                       voice: 212-854-8382
>  Professor of Law & Legal History    fax: 212-854-7946           
moglen@lawmail.
>  Columbia Law School, 435 West 116th Street, NYC 10027           
columbia.edu

Did you ever think that maybe you can buy the book and read it?

--
Joe Alotta
First Chicago Corp.
jja@fnbc.com
(312)732-3439

"Wisdom is better than gold and understanding more valuable than silver."
Newsgroups: comp.lang.perl
From: jja@amy (Joseph Alotta)
Newsgroups: comp.lang.perl
Subject: Problem with split
Keywords: split,problem
Date: 7 Apr 92 15:14:58 GMT
Organization: First National Bank Of Chicago, Chicago IL, USA

It seems like things I do often fail to work under certain circumstances.
Can anyone tell me what the circumstances are that keeps this from  
working?


  DB<22> p $i
          16 920406       9205          4087        4140        4080         
4110        6657       41787 
  DB<23> p split(/ /,$i)
1692040692054087414040804110665741787
  DB<24>        ($csi, $date, $expiry, $open, $high, $low, $close, $vol,  
$oi) = split(/ /, $i);

  DB<25> p $csi

  DB<26> p $oi

  DB<27> p $date

  DB<28> p $vol

  DB<29> 

--
Joe Alotta
First Chicago Corp.
jja@fnbc.com
(312)732-3439

"Wisdom is better than gold and understanding more valuable than silver."
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: Is there a way to prevent perls auto-alloc-variable mechanism?
Originator: tchrist@pixel.convex.com
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, Colorado Springs, CO
Date: Thu, 9 Apr 1992 17:45:41 GMT
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of wierda@ltb.ltb.bso.nl (Gerben Wierda):
:Suppose I have a associated array. Can I freeze this array in such a way that
:addressing any member not in the array will *not* create it?
:
:$aap{noot} = "aap";
:$aap{mies} = "mies";
:
:freeze;
:
:$aap{wim}
:	gives 0 in integer and "" in string context and gives error when used
:as lvalue or something like that
:
:New feature?

Create a dbmfile, load it up, close it, maybe chmod a-w it, then reopen
read only.

--tom
Newsgroups: comp.lang.perl
From: dhami@cs.ubc.ca (Mandeep S Dhami)
Subject: Novice Question: How do I undump?
Summary: ... Or where can I ftp undumping code (for sun4/sparcs?)
Keywords: undump
Organization: Computer Science, University of B.C., Vancouver, B.C., Canada
Date: Sun, 12 Apr 92 01:13:28 GMT

I have some scripts which I would like to dump, undump, strip
and use. The man page only states that it is possibile but
platform specific and that this code is not provided with
standard distribution.

Question: I work on sun4/sparcs with SunOS (4.??),
i.  Where could I ftp that code from and
ii. How do use it.

Thanks,
Mandeep.

-------------------------------------------------------------
Just another Perl Hacker.
-------------------------------------------------------------

Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: why does this leak?
Originator: tchrist@pixel.convex.com
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, Colorado Springs, CO
Date: Fri, 17 Apr 1992 15:30:07 GMT
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of nagel@Cigna.COM (Mark Nagel):
:>BTW, if speed were an issue, this could be made faster by creating a subr
:>on the fly built of all the re's and eval'ing it to create it just once,
:>then calling it normally when needed.
:
:Would I be able to redefine the subroutine when the set of
:expressions is changed in the control file?

Sure.  Here's an example of doing it using the DATA portion
rather than a file.

--tom

#!/usr/bin/perl

$debug = 0;  # for eval output

### SET UP SPEEDY SUBR TO FIND MATCHES

$subr = <<EOCODE;
sub findem {
	study;
EOCODE

while (<DATA>) {
    chop;
    $subr .= "\t\$found{'$_'}++ if /\\b${_}\\b/;\n";
} 
$subr .= "}\n";

print $subr if $debug;
eval $subr;
die $@ if $@;

$| = 1;

###  NOW PROCESS ALL THE FILES

chop($cwd = `pwd`);

while ($_ = shift) {
    if      (/\.a$/) {
	$arch = m#^/# ? $_ : "$cwd/$_";
	@objs = `ar t $arch`;
	chop @objs;
	chdir '/tmp';
	for (@objs) {
	    system("ar x $arch $_");
	    die "can't extract $_" if $?;
	    &unass($_) unless /SYMDEF$/;
	    unlink;
	} 
	undef $arch;
	chdir $cwd;
    } elsif (/\.o$/) {
	&unass($_);
    } else {
	warn "Bad filename: $_\n";
    } 
} 

exit 0;


### DISASSEMBLE by asking nm the highest address.
###		which should probably be text

sub unass {
    local($obj) = @_;
    local($_);
    open(NM, "nm -n $obj |");
    while (<NM>) { 
	next unless eof(NM);
	($end) = /^(\w+)/;
    } 
    close(NM)  || warn "nm failed";
    open(ADB, "echo '0,$end?i' | adb $obj |");
    undef %found;
    while (<ADB>) {
	study;
	last if /^text address not found/;
	&findem; # we made this 
    } 
    close(ADB);
    if (%found) {
	print "$arch:" if $arch;
	print "$obj ";
	print join(", ", sort keys %found);
	print "\n";
    } 
} 

__END__
tas
tac
pate
patu
pich
plch
ldsdr
ldkdr
halt
rtnc
rti
itsr
itr
enal
enag
mski
ctrskl
diag
cpuid
cir
eni_rtn
eni_idle
tcpu
icr
tty
stop
Newsgroups: comp.lang.perl
From: chare@unilabs.uucp (Chris Hare)
Subject: problem calling a subroutine
Organization: None: Just Me, Chris Hare
Date: Wed, 15 Apr 1992 02:57:49 GMT

I have a program which has several subroutines which may be called in
various error conditions, such as opening a file.  The subroutine is
definedin the same file as the code which calls it, as in this excerpt:


open( LOG, ">$Want$Log" ) || &Abort "can't open logfile : $!";
&Log "Logfile for $Want processing created";


And later, I have the two subroutines defined:

sub Abort
{
   local( $text ) = @_;
   ( $day, $time ) = &Date;
   printf ERROR "%s-%s : $text\n", $day, $time;
   exit(1);
}

sub Log
{
   local( $text ) = @_;
   ( $day, $time ) = &Date;
   printf LOG "%s-%s : $text\n", $day, $time;
}

However, when I run this script, I get the following errors:

$ perl prog
syntax error in file /tmp/p at line 23, next 2 tokens "\Abort "can't open logfile : $!""
syntax error in file /tmp/p at line 25, next 2 tokens "\Log "Logfile for $Want processing created""
Execution of /tmp/p aborted due to compilation errors.


What is the problem?  I have used this format before. 

Thanks in advance.

-- 
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
Chris Hare				UUCP : uunet.ca!choreo!unilabs!chare
SCO Authorized Instructor		Choreo Systems Inc., Ottawa Canada
*** STANDARD DISCLAIMER APPLIES ***	DOMAIN: chare@choreo.ca
From: jgd@acl.lanl.gov (Jerry G. DeLapp)
Newsgroups: comp.lang.perl
Subject: Re: novice q: finding unique words in a list
Date: 9 Apr 92 00:52:46 GMT
Article-I.D.: kodiak.JGD.92Apr8175246
Reply-To: jgd@acl.lanl.gov
Organization: Advanced Computing Lab, LANL, NM

>>>>> On 7 Apr 92 22:25:04 GMT, henkp@cs.ruu.nl (Henk Penning) said:

Henk> In <1992Apr2.212950.20613@u.washington.edu> czar@hardy.u.washington.edu (Nathan Clement) writes:

>i just started working in PERL, so hopefully this is a trivial question
>kind souls could answer quickly.  i'm trying to create a list of all the
>unique words in an array; cf. unique() in S, or sort -u in UNIX.  
>
>czar@silvae.cfr.washington.edu

Henk>   Next to grep and sort, uniq should be a Perl primitive.

Henk> 				===  HenkP  ===

T'ain't a primitive, but works on an array...

sub uniq {
    local(@retlist);
    local($lastcookie,$cookie,$dups);
    for $cookie (@_) {
        if ( ! $lastcookie ) {
            $lastcookie = $cookie;
            push(@retlist,$cookie);
        } else {
            if ( $cookie eq $lastcookie ) {
              $dups++;         # In case you want to look at it with debugger
            } else {
                $lastcookie = $cookie;
                push(@retlist,$cookie);
            }
        }
    }
    return @retlist;		# A list with duplicates removed
}
--

Jerry G. DeLapp -- ACL System Scientist -- (505) 665-4531 <jgd@lanl.gov>
Computing beyond the Bleeding Edge -- The Advanced Computing Laboratory
Newsgroups: comp.lang.perl
From: chare@unilabs.uucp (Chris Hare)
Subject: keeping track of file handles in assoc array
Keywords: associative array open files
Organization: None: Just Me, Chris Hare
Date: Fri, 10 Apr 1992 02:38:21 GMT


I am having a problem in that I have to have a number of different files
open which are based upon a field in the source file I am processing.

What I want to do is

while data
	get category type
	if file not open
		open
	endif
	write data
end while

What I have coded is this:

	 if ( ! defined( $FileDes{$Category} ) )
	    {
	    printf "ADVISORY : opening price file for $Category\n";
	    open( $FileDes{$Category}, ">$Category.$Output" );
	    }
	 select( $FileDes{$Category} );
         printf "$Category:$ItemNo:$Desc1:$Desc2:";
	 printf "$Price1:$Price2:$Price3:$Replace:";
	 printf "$QtyOnHand:$QtyCommitt:$QtyOnOrder\n";
	 select( STDOUT );

The if ALWAYS fails, resulting in the file being re-opened every time.

So, 
	1) How can I save the filehandle in the associative array
	   so that the subsequent test will succeed;

	2) Any other ideas?  I may need up to 20 files open, so I need to do
	it this way.

Thanks.

-- 
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
Chris Hare				UUCP : uunet.ca!choreo!unilabs!chare
SCO Authorized Instructor		Choreo Systems Inc., Ottawa Canada
*** STANDARD DISCLAIMER APPLIES ***	DOMAIN: chare@choreo.ca
Newsgroups: comp.lang.perl
From: klarenbe@chx400.switch.ch (Paul Klarenberg)
Subject: beginners question: why does my pipe not work?
Organization: SWITCH
Date: Wed, 15 Apr 1992 13:32:08 GMT

Hi Hackers,

I followed earlier discussions on pipes. So I tried the FAQ 20 example.
Didn't work. So stripped it down to:

$| = 1;                       # force flush after each read/write
pipe(RH, WH) || die "shit\n"; # creating pipe\n";
print(WH "w\n");              # write something to pipe
$line = <RH>;                 # read it from the other end
print "$line";                # print stuff that went through pipe

The program hangs on $line = <RH>. To my understanding a UNIX pipe
allows simultanious writing on one side, and reading from the other. A
similar script that closes the write side after writing, and then
reads, works ok. But this is of course not what I need. Could you
explain what I do wrong/misunderstand?

Thanks a lot!

Paul Klarenberg.
Newsgroups: comp.lang.perl
From: jfh@netcom.com (Jack Hamilton)
Subject: Re: Proposal: Interactive Perl Tutorial
Date: Mon, 06 Apr 92 23:00:42 GMT
Organization:  

In article <ktu9k9INNssc@male.EBay.Sun.COM> me@anywhere.EBay.Sun.COM (Wayne Thompson) writes:
>Quite a while back I decided to write an interactive perl tutorial.
>But my job kept getting in the way ;-). Since I still have a job,
>I'm proposing that we spec. out such a beast and farm out the modules.
>I have developed a framework toward that end that might serve. It's
>a hypertext subsystem written for curseperl. Any thoughts? Any takers?

One problem is that it probably won't help MS-DOS users, since we don't
have curseperl.  Possibly OS/2 and any other non-Unix implementation would
have the same problem.  

But it won't be the first time we've been ignored.  

-- 

------------------------------------
Jack Hamilton         jfh@netcom.com
From: drw@nevanlinna.mit.edu (Dale R. Worley)
Newsgroups: comp.lang.perl
Subject: MS-DOS curseperl (was: Re: Proposal: Interactive Perl Tutorial)
Date: 7 Apr 92 17:17:21 GMT
Organization: MIT Dept. of Tetrapilotomy, Cambridge, MA, USA

In article <5fpj!8.jfh@netcom.com> jfh@netcom.com (Jack Hamilton) writes:
   One problem is that it probably won't help MS-DOS users, since we don't
   have curseperl.  Possibly OS/2 and any other non-Unix implementation would
   have the same problem.  

Why not write curseperl support for MS-DOS?  It should be reasonably
easy, since it's always the same!  And then any curseperl program runs
on MS-DOS without change...

Dale Worley		Dept. of Math., MIT		drw@math.mit.edu
--
For a while, the best [Internet] route from one European country to
its neighbor almost always went through California.
-- Lars Poulsen
Newsgroups: comp.lang.perl
From: mab@wdl39.wdl.loral.com (Mark A Biggar)
Subject: Re: passing assoc. arrays to sub-routines
Organization: Loral Western Development Labs
Date: Tue, 14 Apr 1992 15:56:13 GMT

In article <92104.213949SXC101@psuvm.psu.edu> SXC101@psuvm.psu.edu writes:
>I would like to pass Assoc. arrays by value to subroutines..
>&sub_routine(%a,%b,%c);
>
>sub sub_routine {
>
>local(%x,%y,%z) = @_;
> ..
>..
>}
>
>When I pass more than one assoc. array, the values are not proper..
>any suggestions?

You have to use type globing to do this.  Change you code to:

&sub_routine(*a, *b, *c);

sub sub_routine {
	local(*x, *y, *z) = @_;
	...
}

--
Perl's Maternal Uncle
Mark Biggar
mab@wdl1.wdl.loral.com



Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: beginners question: why does my pipe not work?
Originator: tchrist@pixel.convex.com
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, Colorado Springs, CO
Date: Wed, 15 Apr 1992 16:55:05 GMT
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of klarenbe@chx400.switch.ch (Paul Klarenberg):
:Hi Hackers,
:
:I followed earlier discussions on pipes. So I tried the FAQ 20 example.
:Didn't work. So stripped it down to:
:
:$| = 1;                       # force flush after each read/write
:pipe(RH, WH) || die "shit\n"; # creating pipe\n";
:print(WH "w\n");              # write something to pipe
:$line = <RH>;                 # read it from the other end
:print "$line";                # print stuff that went through pipe
:
:The program hangs on $line = <RH>. To my understanding a UNIX pipe
:allows simultanious writing on one side, and reading from the other. A
:similar script that closes the write side after writing, and then
:reads, works ok. But this is of course not what I need. Could you
:explain what I do wrong/misunderstand?

The basic problem is that setting $| = 1 only affects the currently
selected filehandle, which is STDOUT in this case.  You would need to
do this:

    select(WH);
    $| = 1;
    select(STDOUT);

or simply

    select((select(WH), $| = 1)[0]);

to autoflush WH.

Two other comments:

1) It's pretty risky to do this in just one process.  You might well
   prefer to use two of them, as the &open2 routine does.

2) Does anyone else find it funny looking to have func(ARG0 ARG1, ARG2)?
   Compare:

	print FH "foo\n";
	print (FH "foo\n");

    The reason I don't use parens as much as I probably should is that
    the second form looks so bizarre.

--tom

Newsgroups: comp.lang.perl
From: merlyn@iWarp.intel.com (Randal L. Schwartz)
Subject: Re: Retrieving elements of an associative array in order.
Reply-To: merlyn@iWarp.intel.com (Randal L. Schwartz)
Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA
Date: Wed, 15 Apr 1992 23:33:32 GMT

In article <1992Apr15.134457.1970@egh-qc.uucp>, pete@egh-qc (Pete Phillips) writes:
| 
| I'd like to be able to retrieve the elements of an associative array
| in the order in which they've been defined:

Heh.  Not likely.  Not without a crutch (see below):

| I have an array such:
| 	
| %menu=(
| 	"quit","Exit",
| 	"about","About SMTL",
| 	"refdb","References Database",
| 	"stabdb","Stability Database",
| 	"dcarddb","Dressing Data Cards Database",
| 	"strixhelp","Help on using the Databases"
|        );
| @subs=keys %menu;      

Nope.  This is probably closer to what you want:

sub addone { push(@menu, $_[0]); push(@label, $_[1]); }
@menu = @label = ();
&addone("quit","Exit");
&addone("about","About SMTL"); "...";
for (1..@menu) {
	print "$_) $label[$_-1]\n";
}
$choice = $menu[<STDIN>-1];

See?  Not tough, but you didn't need an associative array.

sub addone { print "@_"; } &addone("Just another","Perl hacker,");
-- 
/=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\
| on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III      |
| merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn |
\=Cute Quote: "Intel: putting the 'backward' in 'backward compatible'..."====/