[16399] in Perl-Users-Digest
Perl-Users Digest, Issue: 3811 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 26 18:05:36 2000
Date: Wed, 26 Jul 2000 15:05:23 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <964649123-v9-i3811@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 26 Jul 2000 Volume: 9 Number: 3811
Today's topics:
Bi-Directional Socket Communication <lynwood@nwlink.com>
Re: Bi-Directional Socket Communication (Greg Bacon)
Re: Command Execution <lr@hpl.hp.com>
Re: convert file permissions; octal-->stat <olivia@sonicblond.com>
Re: Critiques, please <lauren_smith13@hotmail.com>
Re: Critiques, please <peter.sundstrom@eds.com>
difference between two times in seconds <david.t.liu@intel.com>
Re: difference between two times in seconds <newsposter@cthulhu.demon.nl>
Re: difference between two times in seconds <sariq@texas.net>
Re: difference between two times in seconds <lauren_smith13@hotmail.com>
Re: difference between two times in seconds (Abigail)
Re: difference between two times in seconds <daveb@telus.net>
Re: exactly WHEN will PP-3rd be in bookstores, etc? An (Clinton A. Pierce)
Re: Formatting text file <lr@hpl.hp.com>
Re: Help! <jeff@yoak.com>
Re: Help! <peter.sundstrom@eds.com>
Re: How to print the thousands comma for financial numb <daveb@telus.net>
how to remove a file using perl? (Aart Jan van der Linden)
Re: how to remove a file using perl? <lauren_smith13@hotmail.com>
Re: how to remove a file using perl? (Aart Jan van der Linden)
Re: how to remove a file using perl? (Abigail)
Re: how to remove a file using perl? <sumus@aut.dk>
Re: Looking for an online store script. <gellyfish@gellyfish.com>
Re: Looking for domain hosting service with perl/php/my (Jon S.)
Re: MySQL sample code? (Jon S.)
NEtBIOS/nbname Part II <Terrill@Bennett.org>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 26 Jul 2000 13:08:26 -0700
From: Lynwood Stewart <lynwood@nwlink.com>
Subject: Bi-Directional Socket Communication
Message-Id: <397F453A.BB80D1E4@nwlink.com>
I am trying to write a simple test set. It should be able to send from
the client to the server and then the server return some data to the
client. I can send from the client but when the client reads the socket
for data from the server it hangs and does not return. If you read this
please review the code below and let me know if you identify the
problem.
Thank you,
Lyn Stewart
C-lstewa@attws.com
CLIENT
use Socket;
$Port = 17042;
$iaddr = inet_aton ('localhost' ) or die "no host $!";
$paddr = sockaddr_in ( $Port, $iaddr ) || die "sockaddr_in error: $!";
$proto = getprotobyname ( 'tcp' ) || die "getprotobyname error: $!";
socket ( SOCKET, PF_INET, SOCK_STREAM, $proto ) || die "socket error:
$!";
connect ( SOCKET, $paddr ) || die "connect error: $!";
print SOCKET "Hello From sockettest.pl\r\n";
#print while <SOCKET>;
print "BYE\n";
close ( SOCKET );
exit;
SERVER
$sockaddr = 'S n a4 x8';
( $name, $aliases, $proto ) = getprotobyname ( 'tcp' );
if ( $Port !~ /^\d+$/ )
{
( $name, $aliases, $Port ) = getservbyport ( $Port, 'tcp' );
}
$AF_INET = 2; ### to be removed, Sun Specific
$this = pack ( $sockaddr, $AF_INET, $Port, "\0\0\0\0" );
socket ( S, AF_INET, SOCK_STREAM, $proto ) || die "socket failure: $!";
setsockopt ( SOCKET, SOL_SOCKET, SO_REUSEADDR, 1 );
bind ( S, $this ) || die "bind failure: $!";
listen ( S, SOMAXCONN ) || die "connect failure: $!";
while ( 1 ) # This is a daemon program - loop forever
{
( $addr = accept ( NS, S ) ) || die "accept failure: $!";
$line = <NS>;
print "$line = line\n";
print NS "Connected\r\n";
close ( NS );
}
------------------------------
Date: Wed, 26 Jul 2000 20:32:29 GMT
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: Bi-Directional Socket Communication
Message-Id: <snuimtb43j182@corp.supernews.com>
In article <397F453A.BB80D1E4@nwlink.com>,
Lynwood Stewart <lynwood@nwlink.com> wrote:
: I am trying to write a simple test set. It should be able to send from
: the client to the server and then the server return some data to the
: client. I can send from the client but when the client reads the socket
: for data from the server it hangs and does not return.
Did you read the examples in the perlipc manpage? That documentation
contains (among others) the exact examples that you want.
: print SOCKET "Hello From sockettest.pl\r\n";
The Mac jihad will jump all over you for that (because whereas most
platforms map \n to 012 and \r to 015, MacPerl maps \n to 015 and
\r to 012). We can (allegedly!) put men on the moon, but we can't
even agree on something as simple as an end-of-line convention (or
count on designers to make sane decisions with regard to end-of-line
conventions :-).
: $sockaddr = 'S n a4 x8';
: $this = pack ( $sockaddr, $AF_INET, $Port, "\0\0\0\0" );
Don't do that. The standard Socket module provides subroutines that
correctly (with respect to your platform) pack your sockaddr_in. See
the examples in the perlipc manpage.
Greg
------------------------------
Date: Wed, 26 Jul 2000 13:56:27 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Command Execution
Message-Id: <MPG.13e8f05af6aff17398abf0@nntp.hpl.hp.com>
In article <397EF2A7.607D@yahoo.com> on Wed, 26 Jul 2000 16:16:07 +0200,
Mouse <glodalec@yahoo.com> says...
...
> So I need output from this procedure.
> In Perl I oftenly use an array for command output like:
>
>
> @MYARRAY=`df -k` ;
> foreach $MYVAR (@MYARRAY)
> {
> ...
> }
>
> How can I integrate several command output lines into Perl variable ?
@myarray = `df -k`, `another command`, `yet another command`;
Or you can use push() for each command.
But don't use all-caps for the names of variables, by convention.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 26 Jul 2000 20:49:12 GMT
From: olivia <olivia@sonicblond.com>
Subject: Re: convert file permissions; octal-->stat
Message-Id: <8lnis6$63j$1@nnrp1.deja.com>
> @modelist = (($mode&0700)>>6, ($mode&0070)>>3, ($mode&0007));
>
> to reverse it the line looks like:
>
> $mode = ($modelist[0]<<6) | ($modelist[0]<<3) | ($modelist[0])
yes...this is the kind of thing i was looking for..... after trying
lots of funny stuff though, i got it to work with a simple oct() as
someone had suggested.....thanks for your help...
olivia
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 26 Jul 2000 11:38:37 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: Critiques, please
Message-Id: <8lnb5b$5j7$1@brokaw.wa.com>
BUCK NAKED1 <dennis100@webtv.net> wrote in message
news:22695-397F1E84-52@storefull-248.iap.bryant.webtv.net...
> Is it "soup" yet? workable? perfect? as good as most counters? Critiques
> and constructive suggestions desired.
>
> #!/usr/local/bin/perl -w
> use strict;
> use Fcntl qw/:flock :DEFAULT/;
> my $counter = 'counter.dat';
> sysopen(COUNT, $counter, O_RDWR|O_CREAT) or die "Can't OPEN data file
> for READING and WRITING: $!"; flock(COUNT, LOCK_EX) or die "Cannot get
> an EXCLUSIVE LOCK on data file: $!"; my $num = <COUNT> || 0;
> $num++;
> seek(COUNT, 0, 0) or die "can't REWIND to beginning of data file: $!";
> truncate(COUNT, 0) or die "can't TRUNCATE data file: $!"; print COUNT
> "$num\n";
> 1 while $num =~ s/(.*\d)(\d\d\d)/$1,$2/;
> for($num) {s/(1[123]|[4-90]$)/$1th/ or s/(1$)/$1st/ or s/(2$)/$1nd/ or
> s/(3$)/$1rd/;};
> print "Content-type: text/html\n\n"; print("You are the $num visitor to
> this webpage");
> close COUNT or warn $!;
> ## END SCRIPT
Whitespace would have been nice.
Lauren
------------------------------
Date: Thu, 27 Jul 2000 09:34:56 +1200
From: "Peter Sundstrom" <peter.sundstrom@eds.com>
Subject: Re: Critiques, please
Message-Id: <8lnli8$e67$1@hermes.nz.eds.com>
BUCK NAKED1 wrote in message
<22695-397F1E84-52@storefull-248.iap.bryant.webtv.net>...
Is it "soup" yet? workable? perfect? as good as most counters? Critiques
and constructive suggestions desired.
#!/usr/local/bin/perl -w
use strict;
use Fcntl qw/:flock :DEFAULT/;
my $counter = 'counter.dat';
sysopen(COUNT, $counter, O_RDWR|O_CREAT) or die "Can't OPEN data file
for READING and WRITING: $!"; flock(COUNT, LOCK_EX) or die "Cannot get
an EXCLUSIVE LOCK on data file: $!"; my $num = <COUNT> || 0;
$num++;
seek(COUNT, 0, 0) or die "can't REWIND to beginning of data file: $!";
truncate(COUNT, 0) or die "can't TRUNCATE data file: $!"; print COUNT
"$num\n";
1 while $num =~ s/(.*\d)(\d\d\d)/$1,$2/;
for($num) {s/(1[123]|[4-90]$)/$1th/ or s/(1$)/$1st/ or s/(2$)/$1nd/ or
s/(3$)/$1rd/;};
print "Content-type: text/html\n\n"; print("You are the $num visitor to
this webpage");
close COUNT or warn $!;
## END SCRIPT
I sincerely hope the formatting of the script was stuffed up by your news
client, as it is such a mess to read.
------------------------------
Date: Wed, 26 Jul 2000 11:04:37 -0700
From: "David T. Liu" <david.t.liu@intel.com>
Subject: difference between two times in seconds
Message-Id: <8ln97m$fnn@news.or.intel.com>
Hi,
What's the quickest way to get the difference between two time objects in
seconds?
Example:
$t1 = time;
# run some code
$t2 = time;
print datediff($t1,$t2), "\n";
Is there a datediff function that returns a number in seconds?
thanks.
------------------------------
Date: 26 Jul 2000 18:26:21 GMT
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: difference between two times in seconds
Message-Id: <8lnagd$hrg$1@internal-news.uu.net>
David T. Liu <david.t.liu@intel.com> wrote:
> What's the quickest way to get the difference between two time objects in
> seconds?
> Example:
> $t1 = time;
> # run some code
> $t2 = time;
> print datediff($t1,$t2), "\n";
> Is there a datediff function that returns a number in seconds?
t1 and t2 already are numbers representing seconds. So why not simply
do t2 - t1 ???
Erik
------------------------------
Date: Wed, 26 Jul 2000 13:36:16 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: difference between two times in seconds
Message-Id: <397F2FA0.E33F9DBF@texas.net>
"David T. Liu" wrote:
>
> What's the quickest way to get the difference between two time objects in
> seconds?
>
> Example:
>
> $t1 = time;
>
> # run some code
>
> $t2 = time;
>
> print datediff($t1,$t2), "\n";
>
> Is there a datediff function that returns a number in seconds?
Hmmm...
I'd recommend looking through the perlop page of the manual. Perhaps
Perl has an operator that returns the difference of two numbers.
GLWI!
- Tom
------------------------------
Date: Wed, 26 Jul 2000 11:35:39 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: difference between two times in seconds
Message-Id: <8lnavr$5ii$1@brokaw.wa.com>
David T. Liu <david.t.liu@intel.com> wrote in message
news:8ln97m$fnn@news.or.intel.com...
> Hi,
>
> What's the quickest way to get the difference between two time objects in
> seconds?
>
> Example:
>
> $t1 = time;
>
> # run some code
>
> $t2 = time;
>
> print datediff($t1,$t2), "\n";
>
> Is there a datediff function that returns a number in seconds?
sub datediff {
my ($x, $y) = @_;
return abs($x-$y);
}
But then again, if you knew what time() returned, then you would know the
answer fairly naturally.
perldoc -f time
Lauren
------------------------------
Date: 26 Jul 2000 16:04:10 EDT
From: abigail@foad.org (Abigail)
Subject: Re: difference between two times in seconds
Message-Id: <slrn8nuh1j.vcg.abigail@alexandra.foad.org>
David T. Liu (david.t.liu@intel.com) wrote on MMDXXI September MCMXCIII
in <URL:news:8ln97m$fnn@news.or.intel.com>:
;; Hi,
;;
;; What's the quickest way to get the difference between two time objects in
;; seconds?
;;
;; Example:
;;
;; $t1 = time;
;;
;; # run some code
;;
;; $t2 = time;
;;
;; print datediff($t1,$t2), "\n";
;;
;; Is there a datediff function that returns a number in seconds?
Eh, how about - ?
Abigail
--
$; # A lone dollar?
=$"; # Pod?
$; # The return of the lone dollar?
{Just=>another=>Perl=>Hacker=>} # Bare block?
=$/; # More pod?
print%; # No right operand for %?
------------------------------
Date: Wed, 26 Jul 2000 13:30:19 -0700
From: Dave Bradshaw <daveb@telus.net>
Subject: Re: difference between two times in seconds
Message-Id: <397F4A5B.2C950BD0@telus.net>
Tom Briles wrote:
>
> "David T. Liu" wrote:
> >
> > What's the quickest way to get the difference between two time objects in
> > seconds?
> >
> > Example:
> >
> > $t1 = time;
> >
> > # run some code
> >
> > $t2 = time;
> >
> > print datediff($t1,$t2), "\n";
> >
> > Is there a datediff function that returns a number in seconds?
>
> Hmmm...
>
> I'd recommend looking through the perlop page of the manual. Perhaps
> Perl has an operator that returns the difference of two numbers.
>
> GLWI!
>
> - Tom
Yup, it's called the minus sign (grin)
D
--
Dave Bradshaw <daveb@telus.net>
Technical Team Lead, Telus Adv.Comm.
from http://www.bulwer-lytton.com/
------------------------------
Date: Wed, 26 Jul 2000 20:22:06 GMT
From: clintp@geeksalad.org (Clinton A. Pierce)
Subject: Re: exactly WHEN will PP-3rd be in bookstores, etc? Anyone know?
Message-Id: <OLHf5.51795$fR2.474395@news1.rdc1.mi.home.com>
[Posted and mailed]
In article <397E4D31.E39E7890@attglobal.net>,
Drew Simonis <care227@attglobal.net> writes:
> *grumble* I _paid_ for the darn thing and I still don't have it!
I ordered mine from bookpool.com for $28 and it shipped yesterday.
I have a tracking number #001...well you don't need that much detail. :)
--
Clinton A. Pierce Teach Yourself Perl in 24 Hours!
clintp@geeksalad.org for details see http://www.geeksalad.org
"If you rush a Miracle Man,
you get rotten Miracles." --Miracle Max, The Princess Bride
------------------------------
Date: Wed, 26 Jul 2000 13:09:52 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Formatting text file
Message-Id: <MPG.13e8e56ca9ea772d98abee@nntp.hpl.hp.com>
[Reformatted for logical flow.]
In article <aOCf5.9736$Mt.119914@nnrp1.ptd.net> on Wed, 26 Jul 2000
14:43:18 GMT, Coy <coy@coystoys.com> says...
> "Bobby J. Allen II" <bobby.j.allen@intel.com> wrote in message news:8lldct$nao@news.or.intel.com...
> : I need to reformat a text file so I can read it in Excel ( simple tab
> : delimited text file ). The file I have in the beginning is composed of data
> : from several runs of a program. Each run of the program spits out about 30
> : lines of data, then about 3 news lines. Then , the next run is appended to
> : the end of this file, and so on. By the end , my file looks like this:
> :
> : Run #1
> : a
> : b
> : c
> : .............
> :
> :
> :
> : Run #2
> : a
> : b
> : c
> : .............
> :
> :
> :
> : I have to sort and format the file so that the final text file looks like
> : this:
> :
> : Run1 Run2 Run3
> : a1 a2 a3
> : b1 b2 b3
> : c1 c2 c3
> :
> : I'd appreciate any suggestions. Thanks.
> Well, because im a amature perl programer, im not sure of any easy
> way of doing this..
> but, if I had to take a guess,
Why do you think this newsgroup is appropriate for 'if I had to take a
guess'? Maybe you shouldn't guess; and especially you shouldn't post
code that has never seen the perl compiler. That is disrespectful to
everybody.
> i would attempt to dynamically build an array for each row
> after /^Run/, and push (@dynamic_array, $line); each row into the proper array.
OK, but you are going about it completely wrong, trying to use symbolic
references instead of a two-dimensional data structure.
> Something like :
Actually, very little like :
> $file = 'file.dat';
You define this, but don't use it!
> open (FILE,"<file.dat");
You open a file, but don't check to see if the open succeeds.
open FILE, $file or die "Couldn't open '$file'. $!\n";
> foreach $line (<FILE>){
> if ($line =~ /^Run.*/i) {
> push (@row1, $line);
> $num = 2;
> else {
> if (@row . $num) {
> # I have no idea if u can call a dynamic array like this
> # e.g: @row . $num = @row2
Then why do you post your conjecture? What you show is the name of an
array in scalar context (the value of which is the size of the array)
concatenated with another number. Bah!
<snip more untested nonsense>
> Of course you will have to figure out how to declare dynamix array's
> and fix the above, but, u get the general idea... (sorry, just woke up :)
Perhaps you should go back to sleep until you can offer useful
suggestions.
> Good luck
> -Coy
He'll need it!
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 26 Jul 2000 13:21:05 -0800
From: "Jeff Yoak" <jeff@yoak.com>
Subject: Re: Help!
Message-Id: <8lna7u0ard@news1.newsguy.com>
In article <BLDf5.201$07.15690@news3.cableinet.net>, "Simon"
<simon@nospam.simonwebdesign.com> wrote:
> I'm new to this NG and am looking for some help! I have a form to
> e-mail script that I wrote a while back, I need to add the ability to
> attach a file to the e-mail, does anyone have any idea how to do this?
>
Simon, look to MIME::Lite . What sort of reward do I get? :-)
Cheers,
Jeff
------------------------------
Date: Thu, 27 Jul 2000 09:32:23 +1200
From: "Peter Sundstrom" <peter.sundstrom@eds.com>
Subject: Re: Help!
Message-Id: <8lnldg$dl3$1@hermes.nz.eds.com>
Simon wrote in message ...
>Hi there,
>
>I'm new to this NG and am looking for some help! I have a form to e-mail
>script that I wrote a while back, I need to add the ability to attach a
file
>to the e-mail, does anyone have any idea how to do this?
>
>May be able to offer a reward for this....
If I get a suitable reward, I'll tell you to use MIME::Lite
------------------------------
Date: Wed, 26 Jul 2000 13:46:51 -0700
From: Dave Bradshaw <daveb@telus.net>
Subject: Re: How to print the thousands comma for financial numbers ( $ 12,8292.75)
Message-Id: <397F4E3B.2BACFBA8@telus.net>
Louis Banens wrote:
>
> Hi,
>
> I cannot find out how to print the thousands comma for financial numbers ( $
> 12,8292.75).
>
> Any ideas ?
>
> Regards,
>
> Louis Banens
(and you probably want to parse at the 3rd place, not the first, like in
the example (ducking and running...))
D
--
Dave Bradshaw <daveb@telus.net>
Technical Team Lead, Telus Adv.Comm.
from http://www.bulwer-lytton.com/
------------------------------
Date: Wed, 26 Jul 2000 19:18:00 GMT
From: send@no.mail (Aart Jan van der Linden)
Subject: how to remove a file using perl?
Message-Id: <397f393d.9459315@news.ams.chello.nl>
What would be the syntax to remove a file (filename is in the variable
$FORM{titel} ) from a folder on my server? (I have full rights to
remove files from this folder)
Aart Jan
------------------------------
Date: Wed, 26 Jul 2000 12:19:44 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: how to remove a file using perl?
Message-Id: <8lndik$6oq$1@brokaw.wa.com>
Aart Jan van der Linden <send@no.mail> wrote in message
news:397f393d.9459315@news.ams.chello.nl...
> What would be the syntax to remove a file (filename is in the variable
> $FORM{titel} ) from a folder on my server? (I have full rights to
> remove files from this folder)
perldoc -f unlink
Lauren
------------------------------
Date: Wed, 26 Jul 2000 20:00:59 GMT
From: send@no.mail (Aart Jan van der Linden)
Subject: Re: how to remove a file using perl?
Message-Id: <397f4361.12055248@news.ams.chello.nl>
On Wed, 26 Jul 2000 12:19:44 -0700, "Lauren Smith"
<lauren_smith13@hotmail.com> wrote:
>
>Aart Jan van der Linden <send@no.mail> wrote in message
>news:397f393d.9459315@news.ams.chello.nl...
>> What would be the syntax to remove a file (filename is in the variable
>> $FORM{titel} ) from a folder on my server? (I have full rights to
>> remove files from this folder)
>
>perldoc -f unlink
>
>Lauren
>
>
>
thanks
Aart Jan
------------------------------
Date: 26 Jul 2000 16:06:50 EDT
From: abigail@foad.org (Abigail)
Subject: Re: how to remove a file using perl?
Message-Id: <slrn8nuh6j.vcg.abigail@alexandra.foad.org>
Aart Jan van der Linden (send@no.mail) wrote on MMDXXI September MCMXCIII
in <URL:news:397f393d.9459315@news.ams.chello.nl>:
[] What would be the syntax to remove a file (filename is in the variable
[] $FORM{titel} ) from a folder on my server? (I have full rights to
[] remove files from this folder)
man perlfunc lists functions by category. There's an obvious category
for your problem, and the function you need is listed there.
Abigail
--
perl -wle 'print "Prime" if (0 x shift) !~ m 0^\0?$|^(\0\0+?)\1+$0'
------------------------------
Date: 26 Jul 2000 22:44:50 +0200
From: Jakob Schmidt <sumus@aut.dk>
Subject: Re: how to remove a file using perl?
Message-Id: <n1j47ha5.fsf@macforce.sumus.dk>
"Lauren Smith" <lauren_smith13@hotmail.com> writes:
> Aart Jan van der Linden <send@no.mail> wrote in message
> news:397f393d.9459315@news.ams.chello.nl...
> > (filename is in the variable
> > $FORM{titel} )
[...]
> perldoc -f unlink
Oh and do be careful - that sounds like the beginning of a spectacular
security hole.
--
Jakob
------------------------------
Date: 26 Jul 2000 09:54:37 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Looking for an online store script.
Message-Id: <8lm90d$144$1@orpheus.gellyfish.com>
On Mon, 24 Jul 2000 16:31:38 GMT rcmodeler wrote:
> Looking for an online store script.
>
Thats nice. Are you looking for a recommendation for a Search Engine
to help you find one ?
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Wed, 26 Jul 2000 21:36:04 GMT
From: jonceramic@nospammiesno.earthlink.net (Jon S.)
Subject: Re: Looking for domain hosting service with perl/php/mysql
Message-Id: <397f5af0.29559878@news.earthlink.net>
On Fri, 21 Jul 2000 12:19:54 -0700, Tom Stelzriede <tstel@yahoo.com>
wrote:
>Can anyone recomment to me a domain hosting service that offers
>perl/php/mysql and has reasonable pricing and good server response
>time.
>
>Thanks,
>
>Tom
www.cihost.com has a fairly cheap package with this and more.
However, their techs don't always get things right when you call for
support (or don't get back fast). But, they are friendly, and own up
to mistakes. Their actual hosting has been pretty good with only one
real outage (due to a domain name server screw up) within the last 9
months.
Jon
------------------------------
Date: Wed, 26 Jul 2000 21:33:45 GMT
From: jonceramic@nospammiesno.earthlink.net (Jon S.)
Subject: Re: MySQL sample code?
Message-Id: <397f5a24.29355530@news.earthlink.net>
On Sat, 22 Jul 2000 16:17:58 -0700, Makarand Kulkarni
<makarand_kulkarni@my-deja.com> wrote:
>> Ok, finally my host allows mySQL connection with Perl using DBI module.
>> Could someone please provide some sample code which connects to a Database
>> and performs a simple search, selects that row and stores the results. Or
>> are there documentation/tutorials available on the net?
>
>get this book
>MySQL and mSQL (Nutshell Series)
> by Randy Jay Yarger, George Reese, Tim King
O'reilly has the chapter of this book regarding CGI as their sample
chapter online. Just print it out. As a newbie myself, I use it
alongside of my copy of "Programming the Perl DBI" (which is the book
you want because SQL is SQL.) Also, the docs at www.mysql.com are
good to keep handy.
A "live" application you can look at is the code for slashdot.org at
www.slashcode.com.
And, if you can find it at www.mysql.com (you have to look at the
archive list of the newsgroups to find the DBI module list), the
maintainer of the MySQL DBI has a listserv you can sit in on and
bounce ideas around with people.
Jon
passme
------------------------------
Date: Wed, 26 Jul 2000 14:28:21 -0400
From: "Terrill_b" <Terrill@Bennett.org>
Subject: NEtBIOS/nbname Part II
Message-Id: <#pGPv9y9$GA.358@cpmsnbbsa07>
Topic: How does Steve Gibson (and others like Anonymizer.com) get YOUR
computers name? Would like the answer in Perl...
Seems I started a few "My computer's better than your computer" type wars.
Flame not required.
Ok, HTTP_REFERER, if present (Norton Internet Security trashes it) can in
fact tell me the name of your ISP, maybe. Other things can also trash
REFERER.
gethostbySOMETHING will return your IP address or (again) your ISP name, for
example gethostbyname on my IP returns ecr.paste.net no matter which
computer I'm using (Linux or Windoze).
But Gibson (no not ON grc.com, but yes, in his Shield's Up) returns my name.
In my case, it returns "Valued Viao Customer" from one of my Windoze
laptops, and "Effulgent" from my Linux box.
Hence, it ain't no Windoze-Exclusive thing he's accomplishing this with.
I've looked at documentation 'til I'm IBM-Blue in the face. Looked at IRC
client/server code. Looked at RFC's until I think I can almost read one now.
In English, no less.
Now, does anyone actually KNOW the solution? That quarter (US currency) is
still up for grabs!
Terrill
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 3811
**************************************
