[24823] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 6974 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 8 11:06:15 2004

Date: Wed, 8 Sep 2004 08:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Wed, 8 Sep 2004     Volume: 10 Number: 6974

Today's topics:
    Re: create connection from html form into insert MySQL  <gp@nospm.hr>
    Re: create connection from html form into insert MySQL  <noreply@gunnar.cc>
    Re: Network Scanner <ThomasKratz@REMOVEwebCAPS.de>
    Re: Network Scanner <wfsp@removeyahoo.com>
    Re: Object Oriented Perl : Query (Anno Siegel)
    Re: packing floats? <mikee@mikee.ath.cx>
        parsing XML using a regular expression <leifwessman@hotmail.com>
    Re: parsing XML using a regular expression <bernard.el-haginDODGE_THIS@lido-tech.net>
    Re: parsing XML using a regular expression <leifwessman@hotmail.com>
    Re: parsing XML using a regular expression <bernard.el-haginDODGE_THIS@lido-tech.net>
        Replacing Ampertsand in cgi url (Jean)
    Re: Replacing Ampertsand in cgi url <noreply@gunnar.cc>
    Re: Trying to replace unicode characters <joericochuyt@msn.com>
        what's wrong with @$ip? <abdank@gmx.de>
    Re: what's wrong with @$ip? <mritty@gmail.com>
    Re: what's wrong with @$ip? <mritty@gmail.com>
    Re: what's wrong with @$ip? chris-usenet@roaima.co.uk
    Re: what's wrong with @$ip? (Peter Scott)
    Re: what's wrong with @$ip? (Peter Scott)
    Re: Xah Lee's Unixism (Rob Warnock)
    Re: Xah Lee's Unixism <firstname@lastname.pr1v.n0>
    Re: Xah Lee's Unixism jmfbahciv@aol.com
    Re: Xah Lee's Unixism jmfbahciv@aol.com
    Re: Xah Lee's Unixism jmfbahciv@aol.com
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Wed, 8 Sep 2004 13:04:10 +0200
From: "PHP2" <gp@nospm.hr>
Subject: Re: create connection from html form into insert MySQL data script
Message-Id: <chmosi$jmt$1@ls219.htnet.hr>

I still have not any advice.. only some buuuh messages




"Gunnar Hjalmarsson" <noreply@gunnar.cc> wrote in message
news:2q74iaFs23k7U1@uni-berlin.de...
> PHP2 wrote:
> > I am successful insert data in MySQL with code below:
>
> You are multi-posting again!!!
>
> (This question is already being answered at the beginners@perl.org list.)
>
> Last time I noticed that rude behaviour from you:
> http://groups.google.com/groups?selm=4126806E.8010106%40gunnar.cc
>
> Do you really think that your time is so much more worth compared to
> everybody else's?
>
> BUUHHHH!
>
> -- 
> Gunnar Hjalmarsson
> Email: http://www.gunnar.cc/cgi-bin/contact.pl




------------------------------

Date: Wed, 08 Sep 2004 16:30:52 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: create connection from html form into insert MySQL data script
Message-Id: <2q8j87Fm4k1tU1@uni-berlin.de>

PHP2 wrote:
> I still have not any advice.. only some buuuh messages

Liar!

http://www.mail-archive.com/beginners%40perl.org/msg61543.html

-- 
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl


------------------------------

Date: Wed, 08 Sep 2004 12:06:31 +0200
From: Thomas Kratz <ThomasKratz@REMOVEwebCAPS.de>
Subject: Re: Network Scanner
Message-Id: <413ed9a6$0$14514$bb690d87@news.main-rheiner.de>

Chad Brown wrote:
> I fixed the code... but I ran it with the strict and warnings
> commented out and . It would not iterate right its sticking to the
> first ip (like 21.211.1.0) and the next iterations of the forks run at
> the same IP...
> 
> I got most of the warnings out but still got one left that im puzzeled
> with...
> 
> G:\PHASIC\PROJECTS\NETSCAN>netsweep.pl
> Bareword "EAGAIN" not allowed while "strict subs" in use at
> G:\PHASIC\PROJECTS\NETSCAN\netsweep.pl line 43.
> Execution of G:\PHASIC\PROJECTS\NETSCAN\netsweep.pl aborted due to
> compilation errors.

Net::Ping does not export EAGAIN. Use Net::Ping::EAGAIN or import the 
Errno constants by appending:

  use Errno qw/:POSIX/;

or

  use POSIX qw/:errno_h/;

Without using strict, you'll get no compilation error but the value of a 
plain EAGAIN is undefined and your comparison "if ($! == EAGAIN)" will 
certainly not do what you think it does (that shows again, that using 
strict is a very good idea).

Thomas

-- 
open STDIN,"<&DATA";$=+=14;$%=50;while($_=(seek( #J~.> a>n~>>e~.......>r.
STDIN,$:*$=+$,+$%,0),getc)){/\./&&last;/\w| /&&( #.u.t.^..oP..r.>h>a~.e..
print,$_=$~);/~/&&++$:;/\^/&&--$:;/>/&&++$,;/</  #.>s^~h<t< ..~. ...c.^..
&&--$,;$:%=4;$,%=23;$~=$_;++$i==1?++$,:_;}__END__#....>>e>r^..>l^...>k^..


------------------------------

Date: Wed, 8 Sep 2004 12:20:27 +0000 (UTC)
From: "wfsp" <wfsp@removeyahoo.com>
Subject: Re: Network Scanner
Message-Id: <chmteb$eh5$1@titan.btinternet.com>

"Chad Brown" <chad@wononline.net> wrote in message 
news:ea150da0.0409072100.4fc460df@posting.google.com...

<snip>

> I got most of the warnings out but still got one left that im puzzeled
> with...
>
> G:\PHASIC\PROJECTS\NETSCAN>netsweep.pl
> Bareword "EAGAIN" not allowed while "strict subs" in use at
> G:\PHASIC\PROJECTS\NETSCAN\netsweep.pl line 43.
> Execution of G:\PHASIC\PROJECTS\NETSCAN\netsweep.pl aborted due to
> compilation errors.
>
> here is the recorrected code...

<snip>

> #forker
> FORK: {
>  if (my $pid=fork) {
>   #return $pids;
>  }
>  elsif (defined $pid) {
>   Connect_IP(Long2Dot_IP($Current_Long));
>  }
>  elsif ($! == EAGAIN) {
>   sleep 3;
>   redo FORK;
>  }
>  else {
>   die "cant fork!\n";
>  }
> }
>

<snip>

There is indeed a Bareword "EAGAIN". What is the puzzle? Is it a string, a 
constant?




------------------------------

Date: 8 Sep 2004 12:44:11 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Object Oriented Perl : Query
Message-Id: <chmuqr$b6t$1@mamenchi.zrz.TU-Berlin.DE>

Peter J. Acklam <pjacklam@online.no> wrote in comp.lang.perl.misc:
> merlyn@stonehenge.com (Randal L. Schwartz) wrote:
> 
> > >>>>> "Thens" == Thens  <thens@NOSPAMti.com> writes:
> > 
> > Thens> sub new {
> > Thens>   my ( $self ) = @_;
> > Thens>   my $class = ref($self) || $self;
> > Thens>   return  bless {  }, $class;
> > Thens> }
> > 
> > Please see <http://www.stonehenge.com/merlyn/UnixReview/col52.html>
> > about why that ref($self) thing is bad.
> 
> You recommend not using ref($self) because some people might guess
> incorrectly what new() does when it is used as an instance method.
> 
> How about this:  If people guess method behaviour rather than
> reading the docs their votes don't count.  Allow $object->new(),
> document the behaviour, and expect people to read it.

The point isn't so much that people fail to look up the definition,
but that they (specifically, readers of code that uses the class)
are forced to look it up.  When you know what "Class->new(...)" does,
you also know what "ref( $obj)->new(...)" does, but for the meaning
of "$obj->new(...)" you must go to the documentation.

The shortcut of calling ->new as an object method is inherently
unclear.  Unless there are massive advantages in allowing it (there
aren't in most classes), I think it is better to leave it out.  Its
use as a matter of course smacks of cargo cult.

Anno







------------------------------

Date: Wed, 08 Sep 2004 13:25:49 -0000
From: Mike <mikee@mikee.ath.cx>
Subject: Re: packing floats?
Message-Id: <10ju22t5oq2mn85@corp.supernews.com>

In article <10jm1nl5k7mokc8@corp.supernews.com>, Mike wrote:
> In article <x7pt51jt7x.fsf@mail.sysarch.com>, Uri Guttman wrote:
>>>>>>> "M" == Mike  <mikee@mikee.ath.cx> writes:
>> 
>><snip of whole quote. please learn to edit>
>> 
>>  M> What I'm looking for is equal to:
>> 
>>  M> int i;
>>  M> float f[18];
>>  M> for(i = 0; i < 18; i++) {
>>  M> 	f[i] = genome[i];
>>  M> }
>> 
>> and did you see my post about pack 'd'?
>> 
>> uri
>> 
> 
> Yes, but I didn't find the 'd' in 'perldoc -f pack'.
> Did I miss it here or should I look someplace else?
> 
> Mike

Found it and I now have this working, thanks.

Mike


------------------------------

Date: 8 Sep 2004 06:43:45 -0700
From: "Leif Wessman" <leifwessman@hotmail.com>
Subject: parsing XML using a regular expression
Message-Id: <chn2ah$ilg@odbk17.prod.google.com>

Hi!

I'm trying to parse some xml with a regular expression (yes, i know
that there is several XML modules that I can use).

My problem is that I'm not that good in creating regular expressions.
The following code does not work as expected. I have a list of items in
xml. Each item has an id and an optional name (no <name>-tag or
<name/>). Each item can also have other tags that I'm not interested
in.

I'm trying to parse this simle xml document so that I extract the id
for each item and the name (if it's there).

However, the output of my program only displays the id:s, not any name.
That's my first problem. My second problem is that I would like to know
if it's possible to make my code more efficient (faster and using less
memory). In reality my xml-file can be quite large.

My code:
--------

#!/usr/bin/perl
use strict;
use warnings;

open (XML, "<items.xml") or die "open: $!";
my $xml;
while(my $line = <XML>) {
$xml = $xml . $line;
}

while ($xml =~
/<item>.*?<id>(.*?)<\/id>.*?(<name>(.*?)<\/name>)?.*?<\/item>/gs) {
print "id  : $1\n";
if ($3) {
print "name: $3\n";
}
}

My xml-document:
----------------
<xml>
<item>
<id>mf3</id>
<color>blue</color>
<name>moto F3</name>
</item>
<item>
<id>nk1</id>
</item>
<item>
<id>jk8</id>
<name/>
</item>
<item>
<id>la2</id>
<name>labo 2</name>
</item>
<xml>
My output:
----------
id  : mf3
id  : nk1
id  : jk8
id  : la2


Leif



------------------------------

Date: Wed, 8 Sep 2004 15:59:54 +0200
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: parsing XML using a regular expression
Message-Id: <Xns955EA2BE41FA6elhber1lidotechnet@62.89.127.66>

"Leif Wessman" <leifwessman@hotmail.com> wrote:


This


> I'm trying to parse some xml with a regular expression (yes, i
> know that there is several XML modules that I can use).


when put together with this

 
> My problem is that I'm not that good in creating regular
> expressions. [...]


suggests using one of the modules you claim to know about.


-- 
Cheers,
Bernard


------------------------------

Date: 8 Sep 2004 07:15:46 -0700
From: "Leif Wessman" <leifwessman@hotmail.com>
Subject: Re: parsing XML using a regular expression
Message-Id: <chn46i$c35@odak26.prod.google.com>


Bernard El-Hagin wrote:
> "Leif Wessman" <leifwessman@hotmail.com> wrote:
>
>
> This
>
>
> > I'm trying to parse some xml with a regular expression (yes, i
> > know that there is several XML modules that I can use).
>
>
> when put together with this
>
>
> > My problem is that I'm not that good in creating regular
> > expressions. [...]
>
>
> suggests using one of the modules you claim to know about.
> 
> 
> -- 
> Cheers,
> Bernard

How can I then LEARN anything?

Leif



------------------------------

Date: Wed, 8 Sep 2004 16:45:36 +0200
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: parsing XML using a regular expression
Message-Id: <Xns955EAA7D52E92elhber1lidotechnet@62.89.127.66>

"Leif Wessman" <leifwessman@hotmail.com> wrote:

> 
> Bernard El-Hagin wrote:
>> "Leif Wessman" <leifwessman@hotmail.com> wrote:
>>
>>
>> This
>>
>>
>> > I'm trying to parse some xml with a regular expression (yes, i
>> > know that there is several XML modules that I can use).
>>
>>
>> when put together with this
>>
>>
>> > My problem is that I'm not that good in creating regular
>> > expressions. [...]
>>
>>
>> suggests using one of the modules you claim to know about.
>
> How can I then LEARN anything?


LEARN to use the right tool for the job.


-- 
Cheers,
Bernard


------------------------------

Date: 8 Sep 2004 03:41:08 -0700
From: jeanjerome@operamail.com (Jean)
Subject: Replacing Ampertsand in cgi url
Message-Id: <34ac455.0409080241.195d5723@posting.google.com>

I have been trying this for hours without luck so far... Needless to
say my regular expression skills are bad...

I have some urls in an HTML page that have the amperstand sign (&) in
them, and I want to change only these amperstand into %26.

For example:

<a href="cgi-bin/test.cgi?var1=1&var=2">Bob &amp; Paul</a> & Steve.

Should become:

<a href="cgi-bin/test.cgi?var1=1%26var=2">Bob &amp; Paul</a> & Steve.

I have tried 100s of variation on this:

$content =~ s/\s*=\s*[A-Za-z0-9]&/=$1%26/g;

But of course it does not work.

Any help would be greatly appreciated... thanks.

Jean


------------------------------

Date: Wed, 08 Sep 2004 15:22:54 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Replacing Ampertsand in cgi url
Message-Id: <2q8f8pFrt8f8U1@uni-berlin.de>

Jean wrote:
> I have some urls in an HTML page that have the amperstand sign (&)
> in them, and I want to change only these amperstand into %26.
> 
> For example:
> 
> <a href="cgi-bin/test.cgi?var1=1&var=2">Bob &amp; Paul</a> & Steve.
> 
> 
> Should become:
> 
> <a href="cgi-bin/test.cgi?var1=1%26var=2">Bob &amp; Paul</a> & Steve.

This might be what you want:

     $content =~ s/(=[^\s&]*)&(?=\w+=)/$1%26/g;

Why do you want to do that substitution?

-- 
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl


------------------------------

Date: Wed, 08 Sep 2004 08:46:53 -0400
From: "yusufdestina" <joericochuyt@msn.com>
Subject: Re: Trying to replace unicode characters
Message-Id: <53340aad20a6fb83ca423bf344a942ac@localhost.talkaboutprogramming.com>

I think it's a MySQL issue Have a look at their faq pages.



------------------------------

Date: Wed, 08 Sep 2004 12:28:57 +0200
From: **** <abdank@gmx.de>
Subject: what's wrong with @$ip?
Message-Id: <chmmtm$7cq$1@achot.icm.edu.pl>

use NetAddr::IP;
my $ip = new NetAddr::IP('10.0.0.0/30');
print join(' ', @$ip), "\n";

prints: Not an ARRAY reference


------------------------------

Date: Wed, 08 Sep 2004 06:44:24 -0400
From: Paul Lalli <mritty@gmail.com>
Subject: Re: what's wrong with @$ip?
Message-Id: <chmnqi$neg$1@misc-cct.server.rpi.edu>

**** wrote:
> use NetAddr::IP;
> my $ip = new NetAddr::IP('10.0.0.0/30');
> print join(' ', @$ip), "\n";
> 
> prints: Not an ARRAY reference

What are you asking?  Your subject says "what's wrong with @$ip?", and 
Perl is telling you exactly what's wrong with it - $ip is not an array 
reference.  You can therefore not dereference it as an array.  $ip is an 
object of type NetAddr::IP.

Perhaps you should try telling us what you're *trying* to do.

Paul Lalli


------------------------------

Date: Wed, 08 Sep 2004 07:02:18 -0400
From: Paul Lalli <mritty@gmail.com>
Subject: Re: what's wrong with @$ip?
Message-Id: <chmos4$ngh$1@misc-cct.server.rpi.edu>

Paul Lalli wrote:

> **** wrote:
> 
>> use NetAddr::IP;
>> my $ip = new NetAddr::IP('10.0.0.0/30');
>> print join(' ', @$ip), "\n";
>>
>> prints: Not an ARRAY reference
> 
> What are you asking?  Your subject says "what's wrong with @$ip?", and 
> Perl is telling you exactly what's wrong with it - $ip is not an array 
> reference.  You can therefore not dereference it as an array.  $ip is an 
> object of type NetAddr::IP.
> 
> Perhaps you should try telling us what you're *trying* to do.

Okay, so I should really learn to read the docs of a module with which I 
am unfamiliar before making a post like that.  It seems the NetAddr::IP 
class does support dereferencing its objects as arrays.  I apologize for 
my comments.

Given that, I would presume that the constructor did not return a valid 
object.  You can test that by inserting these lines:

use Data::Dumper;
print Dumper($ip);

If that does show that $ip is an object of NetAddr::IP, then perhaps you 
are using a previous version of the module, which does not support the 
dereferencing.  Try printing $NetAddr::IP::VERSION.  The latest on CPAN 
is 3.20.

Excuse me while I now try to extract my foot from my mouth.
Paul Lalli


------------------------------

Date: Wed, 8 Sep 2004 12:44:08 +0100
From: chris-usenet@roaima.co.uk
Subject: Re: what's wrong with @$ip?
Message-Id: <8t7312-ukg.ln1@moldev.cmagroup.co.uk>

Someone wrote:
> use NetAddr::IP;
> my $ip = new NetAddr::IP('10.0.0.0/30');
> print join(' ', @$ip), "\n";
> 
> prints: Not an ARRAY reference

Paul Lalli <mritty@gmail.com> replied:
> Perhaps you should try telling us what you're *trying* to do.

Seems to me that the OP is trying to repeat a variation of what's shown in
the documentation for NetAddr::IP. However, I can't see why it should fail
when that same snippet of code works for me (perl 5.6.1 on i386-linux;
perldoc NetAddr::IP shows "$Id: IP.pm,v 1.22 2004/03/02 20:23:57 lem
Exp $").

Chris


------------------------------

Date: Wed, 08 Sep 2004 13:59:22 GMT
From: peter@PSDT.com (Peter Scott)
Subject: Re: what's wrong with @$ip?
Message-Id: <_eE%c.359128$gE.42803@pd7tw3no>

In article <8t7312-ukg.ln1@moldev.cmagroup.co.uk>,
 chris-usenet@roaima.co.uk writes:
>Someone wrote:
>> use NetAddr::IP;
>> my $ip = new NetAddr::IP('10.0.0.0/30');
>> print join(' ', @$ip), "\n";
>> 
>> prints: Not an ARRAY reference
>
>Paul Lalli <mritty@gmail.com> replied:
>> Perhaps you should try telling us what you're *trying* to do.
>
>Seems to me that the OP is trying to repeat a variation of what's shown in
>the documentation for NetAddr::IP. However, I can't see why it should fail
>when that same snippet of code works for me (perl 5.6.1 on i386-linux;
>perldoc NetAddr::IP shows "$Id: IP.pm,v 1.22 2004/03/02 20:23:57 lem
>Exp $").

Perhaps the OP is using Perl 5.005 or earlier, when overload.pm did not support
overloading dereferencing.  That would produce this error, since the 
NetAddr::IP object is in fact a hashref and it is only the overloading of 
"@{}" that provides the semantics in question.

-- 
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/


------------------------------

Date: Wed, 08 Sep 2004 14:20:56 GMT
From: peter@PSDT.com (Peter Scott)
Subject: Re: what's wrong with @$ip?
Message-Id: <czE%c.359218$gE.288558@pd7tw3no>

In article <_eE%c.359128$gE.42803@pd7tw3no>, I wrote:
>>> use NetAddr::IP;
>>> my $ip = new NetAddr::IP('10.0.0.0/30');
>>> print join(' ', @$ip), "\n";
>>> 
>>> prints: Not an ARRAY reference
>Perhaps the OP is using Perl 5.005 or earlier, when overload.pm did not support
>overloading dereferencing.  That would produce this error, since the 
>NetAddr::IP object is in fact a hashref and it is only the overloading of 
>"@{}" that provides the semantics in question.

Nope, the two versions of NetAddr::IP on CPAN date back ~ 1 year and both
include "require 5.6.0".  So unless we have a 5.6.0+ perl with an older
overload.pm, that theory's out.

-- 
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/


------------------------------

Date: Wed, 08 Sep 2004 05:09:24 -0500
From: rpw3@rpw3.org (Rob Warnock)
Subject: Re: Xah Lee's Unixism
Message-Id: <p9qdnTnxTYDJR6PcRVn-pw@speakeasy.net>

John Thingstad <john.thingstad@chello.no> wrote:
+---------------
| As you may know XP is not particularly good as a server.
 ...
| I would go for some Unix implementation (perhaps free-BSD)
| As a workstation XP seems OK.
| I hear a lot of complaints about XP's stability.
| Since I have not administered a XP network, yet, I cant comment on that.
| But in my personal experience it is a stable system.
| I frequently let my computer run 24 hrs. a day for more than a month  
| without a need to reboot. So for me it is adequate.
+---------------

*Only* a month?!?  Here's the uptime for one of my FreeBSD boxes
[an old, slow '486]:

    %  uptime
     2:44AM  up 630 days, 21:14, 1 user, load averages: 0.06, 0.02, 0.00
    % 

That's over *20* months!!


-Rob

p.s. I remember the time back in the early 70's (at Emory Univ.) when
we called DEC Field Service to complain that our PDP-10 had an uptime
of over a year. Why were we complaining? Well, that meant that DEC Field
Service had failed to perform scheduled preventive maintenance (which
usually involved at least one power cycle)...  ;-}

-----
Rob Warnock			<rpw3@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607



------------------------------

Date: Wed, 8 Sep 2004 13:05:17 +0200
From: Morten Reistad <firstname@lastname.pr1v.n0>
Subject: Re: Xah Lee's Unixism
Message-Id: <d1pmhc.6o31.ln@via.reistad.priv.no>

In article <p9qdnTnxTYDJR6PcRVn-pw@speakeasy.net>,
Rob Warnock <rpw3@rpw3.org> wrote:
>John Thingstad <john.thingstad@chello.no> wrote:
>+---------------
>| As you may know XP is not particularly good as a server.
>...
>| I would go for some Unix implementation (perhaps free-BSD)
>| As a workstation XP seems OK.
>| I hear a lot of complaints about XP's stability.
>| Since I have not administered a XP network, yet, I cant comment on that.
>| But in my personal experience it is a stable system.
>| I frequently let my computer run 24 hrs. a day for more than a month  
>| without a need to reboot. So for me it is adequate.
>+---------------

There you say it all. I consider two of my FreeBSD-boxes unstable
at the moment. I've had to reboot each of them twice in 18 months.
They both run the full complement of apache, sendmail, mysql, Free/SWAN
leafnode and a score of other stuff; and they go into wedged mode. 

Different expectations.

>*Only* a month?!?  Here's the uptime for one of my FreeBSD boxes
>[an old, slow '486]:
>
>    %  uptime
>     2:44AM  up 630 days, 21:14, 1 user, load averages: 0.06, 0.02, 0.00
>    % 
>
>That's over *20* months!!
>
>
>-Rob
>
>p.s. I remember the time back in the early 70's (at Emory Univ.) when
>we called DEC Field Service to complain that our PDP-10 had an uptime
>of over a year. Why were we complaining? Well, that meant that DEC Field
>Service had failed to perform scheduled preventive maintenance (which
>usually involved at least one power cycle)...  ;-}

I had a customer complaint at Prime framed at their tech dept; it was
about wrapped counters after ~300 days uptime.

-- mrr



------------------------------

Date: Wed, 08 Sep 04 11:32:37 GMT
From: jmfbahciv@aol.com
Subject: Re: Xah Lee's Unixism
Message-Id: <413f00e0$0$6914$61fed72c@news.rcn.com>

In article <p0nkhc.m6j.ln@via.reistad.priv.no>,
   Morten Reistad <firstname@lastname.pr1v.n0> wrote:
>In article <413daee5$0$6932$61fed72c@news.rcn.com>,  <jmfbahciv@aol.com> 
wrote:
>>In article <1s4ihc.4i4.ln@via.reistad.priv.no>,
>>   Morten Reistad <firstname@lastname.pr1v.n0> wrote:
>>>In article <413c5b9c$0$19705$61fed72c@news.rcn.com>,
>>> <jmfbahciv@aol.com> wrote:
>>>>In article <rv1hhc.mtv2.ln@via.reistad.priv.no>,
>>>>   Morten Reistad <firstname@lastname.pr1v.n0> wrote:
>>>
>>>1995 was the year everyone and Bill Gates discovered the Internet
>>>existed; and wanted in on the deal. Suddenly everyone needed Internet
>>>solutions. 
>>
>>I knew the Internet existed when I started reading the ads in the
>>WSJ and they had this strange arrangement of characters that 
>>began with www.  At first, there were only a few.  _One_ year
>>later there were  lot.  Less than two years later, everybody had
>>one.  I watch ads to foretell trends.
>
>I knew we had succeeded in making the Internet mainstream when 
>I saw that the plane I was about to board had the URL I made for
>them written along the entire plane in 2 meter high letters. 

<GRIN>  Oh, neat.  That must have been a unique feeling of
accomplishment.

>
>And we had to do a hard sell for the Internet bit. 2 years later more
>than 50% of their tickets were sold over the Internet.

I don't think we've even seen the beginning.

>
>>>>Since TCP/IP was in the 90s, I couldn't have heard about it
>>>>over the wall (I think I stopped working in 1987).  I could
>>>>swear that cybercurd meant something.
>>>>
>>>>ISTR, the -20 types yakking about it.
>>>
>>>TCP/IP was launched in 1982, and the Internet (or the Arpanet, rather)
>>>converted Jan 1st 1983; with final NCP service turned off everywhere
>>>by mid march 1983.
>>
>>Aha!  Whew!  Then my memory isn't completely gone.  If it was
>>launched in 1982, then they had to have been yakking about it
>>in 1980 and 1981. 
>
>The period 1978-1982 was the intense design phase of the infrastructure
>of the modern Internet. It would have been on the mind of IT engineers
>worldwide.
>
>>>Tops20 has an IP package; but it was pretty rudimentary in version 4, 
>>>and not quite complete even by those standards even in version 7.
>>
>>Version 4 and version 7 were way after 1980.
>
>Yep, but it was in version 4 there was real TCP/IP support. ISTR there
>was a retrofit to a late version 3; but that was made after V4 was out.
>This version more or less depended on other boxes, just like a PC does
>today. "Real" TCP/IP came out in V7 (or possibly late V6. I more or
>less skipped the entire V6 of Tops20). 

TOPS-20 development was not known for their innovation acclerity.

/BAH

Subtract a hundred and four for e-mail.


------------------------------

Date: Wed, 08 Sep 04 11:45:05 GMT
From: jmfbahciv@aol.com
Subject: Re: Xah Lee's Unixism
Message-Id: <413f03cc$0$6914$61fed72c@news.rcn.com>

In article <10srj09tdkvim71i677g7eh7b2nk1qkmfm@4ax.com>,
   Alan Balmer <albalmer@att.net> wrote:
>On Sat, 04 Sep 2004 06:02:03 GMT, CBFalconer <cbfalconer@yahoo.com>
>wrote:
>
>>Alan Balmer wrote:
>>> 
>>... snip ...
>>> 
>>> I'm not a fan of Mr Hatch, but blaming him for the shuttle
>>> disaster(s) is somewhat over the top. Why not blame President
>>> Bush? That's the popular thing nowadays.
>>
>>Alright, if you insist.  But is it really necessary?  We can find
>>adequate charges without reaching very hard.
>
>Then why are so many people reaching so hard?

It's apparently having the desired effect.  The subject of
the radio talk show last night was about the results of a poll
where 41% of the people asked (New York state residents) believed 
that Bush and Co. knew that the WTC was going to be attacked and 
did nothing to prevent it.  The Bush-bashing is working.  The
Democrats are opening the city gates to the barbarians.

/BAH



------------------------------

Date: Wed, 08 Sep 04 11:48:36 GMT
From: jmfbahciv@aol.com
Subject: Re: Xah Lee's Unixism
Message-Id: <413f049f$0$6914$61fed72c@news.rcn.com>

In article <p9qdnTnxTYDJR6PcRVn-pw@speakeasy.net>,
   rpw3@rpw3.org (Rob Warnock) wrote:
>John Thingstad <john.thingstad@chello.no> wrote:
>+---------------
>| As you may know XP is not particularly good as a server.
>....
>| I would go for some Unix implementation (perhaps free-BSD)
>| As a workstation XP seems OK.
>| I hear a lot of complaints about XP's stability.
>| Since I have not administered a XP network, yet, I cant comment on that.
>| But in my personal experience it is a stable system.
>| I frequently let my computer run 24 hrs. a day for more than a month  
>| without a need to reboot. So for me it is adequate.
>+---------------
>
>*Only* a month?!?  Here's the uptime for one of my FreeBSD boxes
>[an old, slow '486]:
>
>    %  uptime
>     2:44AM  up 630 days, 21:14, 1 user, load averages: 0.06, 0.02, 0.00
>    % 
>
>That's over *20* months!!

I bet we can measure the youngster's age by the uptimes he boasts.
>
>
>-Rob
>
>p.s. I remember the time back in the early 70's (at Emory Univ.) when
>we called DEC Field Service to complain that our PDP-10 had an uptime
>of over a year. Why were we complaining? Well, that meant that DEC Field
>Service had failed to perform scheduled preventive maintenance (which
>usually involved at least one power cycle)...  ;-}

One?  Had to be two.  FS was supposed to use their service pack
as the system disk, not the customers!!!  I believe that was
true even in 1970.  The dangers of smushing bits was too great.

/BAH

Subtract a hundred and four for e-mail.


------------------------------

Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>


Administrivia:

#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc.  For subscription or unsubscription requests, send
#the single line:
#
#	subscribe perl-users
#or:
#	unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.  

NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice. 

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.

#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V10 Issue 6974
***************************************


home help back first fref pref prev next nref lref last post