[8649] in Perl-Users-Digest
Perl-Users Digest, Issue: 2266 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 7 14:07:30 1998
Date: Tue, 7 Apr 98 11:00:33 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 7 Apr 1998 Volume: 8 Number: 2266
Today's topics:
*REPOST Win::ODBC, Using "GROUP BY" SQL to output webmistress@chicweb.com
Re: Annoucement (was Re: Calling all Newbies) lvirden@cas.org
Re: ceil (Mark-Jason Dominus)
Re: Database sorting problem (Andrew M. Langmead)
Re: Database sorting problem <lr@hpl.hp.com>
File Bug in Perl of Sun-Solaris` <ben@fastparts.com>
Re: File Bug in Perl of Sun-Solaris` <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: File Bug in Perl of Sun-Solaris` (Jason Gloudon)
Re: File Bug in Perl of Sun-Solaris` <ben@fastparts.com>
Re: File Bug in Perl of Sun-Solaris` (Andrew M. Langmead)
Format question <olm@mail1.csun.edu>
How to post to phtml? (Apisilp Trunganont)
How would _you_ do this? <serwep01@med.nyu.edu>
Korn to Perl, Help! (Chakravarthy KM Nalamotu)
Re: Korn to Perl, Help! (Mark-Jason Dominus)
Let it flow .. let it flow! <emelamud@usa.net>
Re: MKDIR problem <rootbeer@teleport.com>
Re: MKDIR problem (Mark-Jason Dominus)
Re: Packing? <qdtcall@esb.ericsson.se>
Re: Packing? <ben@wallroyds.demon.co.uk>
Re: Packing? (Jeffrey R. Drumm)
Re: Packing? <nospam-R.J.Rainthorpe@gre.ac.uk>
Re: Packing? <ben@wallroyds.demon.co.uk>
Re: Password of the day <rootbeer@teleport.com>
Re: perl 5.004_04 on BSDi 3.1 <khera@kciLink.com>
Perl and VMS <kra@bitbyte.com>
Perl Compiler for NT <kucera@cs.unc.edu>
Re: Perl Compiler for NT <grinch@whoville.com>
Re: perl linux database program? <ion@aroma.com>
Perl on ancient iron (DR3165)
Perl Script on NT <kucera@cs.unc.edu>
Re: Perl Script on NT <mbell@thedomaingroup.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 07 Apr 1998 11:24:32 -0600
From: webmistress@chicweb.com
Subject: *REPOST Win::ODBC, Using "GROUP BY" SQL to output
Message-Id: <6gdk00$gdg$1@nnrp1.dejanews.com>
(I apolegize for the dual post. My new employer does not have news access and
this is my first time using Deja. I had no idea how it would reformat the
post I took such pains for format correctly! Hope this version is more
readable.)
Greetings :
I would think that it would be really easy to
output the results of an SQL like the following : SELECT Count(ReportID),
ServerName, ReportName, WeekEnd, ReportPathFROM Reports
GROUP BY ServerName,
ReportName, WeekEndHAVING ServerName IN ($serverlist) AND
WeekEnd>=#$selected_date#
The output of the query is correct meaning that I
get the correct query data in the correct order, but I find no easy way to
output the information in the manner that would make sense.
Here's what I
want to output :
<loop over all ServerNames in $serverlist>
ServerName
<loop over all ReportNames for ServerName> ReportName
<loop over all
WeekEnd dates for ReportName> ReportPath for WeekEnd
</end loop over all
WeekEnd dates for ReportName> </end loop over all ReportNames for
ServerName></end loop over all ServerNames>
So you can see, the innermost
loop should loop around for all of the ReportPath for WeekEnd for that
ReportName, the next loop should loop around for all of the ReportNames for
that ServerName, and the outermost loop should loop around for all of the
ServerNames in the list.
I do a lot of this stuff in Cold Fusion and it's
very easy to use a "GROUP BY" in the <OUTPUT> tag but I don't see anything
similar for Win::ODBC. I can see I could do it by checking for 1. check for
unique server name and looping, 2. check for unique ReportName and looping
and 3. output all ReportPath for Weekend but this seems harder than it should
be.
Maybe there is a trick using Win::ODB I don't know about. Does anyone
have any ideas?
Thanks in advance. Laura
ps I thought I'd put "URGENT
MESSAGE" in the subject but thought better of it when I saw the thread on the
group. hahahaha
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 7 Apr 1998 17:27:23 GMT
From: lvirden@cas.org
Subject: Re: Annoucement (was Re: Calling all Newbies)
Message-Id: <6gdnlr$j19$1@srv38s4u.cas.org>
According to Sneaker's Nest <sneaker@mediaone.net>:
:lvirden@cas.org wrote:
:> According to Webmaster <bill@astro.fccj.cc.fl.us>:
:> :I am in the process of obtaining authorization to open some type of real-time
:> :chat system on one of the servers here at FCCJ. Also, I am working
:on getting
:>
:> If you come to decide that you don't want to be bothered with building and
:> maintaining software, etc. you might check out one of the dozens or more
:> sites around the world who are already doing stuff like this. There's
:> ICQ, communityware, etc.
:Management wouldn't agree to it, afraid
:of all the 'bad' perl hackers out here
:in Internet land... They need a clue :-)
:
:So, I have abandoned that idea entirely.
It is possible to use one of the public chat sites such asI mentioned
(ICQ, communityware, etc) so that there is no software involved at
your site.
However, if you have lost interest in the idea, I understand.
--
<URL:mailto:lvirden@cas.org> Quote: In heaven, there is no panic,
<*> O- <URL:http://www.teraform.com/%7Elvirden/> only planning.
Unless explicitly stated to the contrary, nothing in this posting
should be construed as representing my employer's opinions.
------------------------------
Date: 7 Apr 1998 13:46:33 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: ceil
Message-Id: <6gdopp$ht8$1@monet.op.net>
In article <6gcde9$4i5$1@isnews.csc.calpoly.edu>,
Ali Mehdizadeh <amehdiza@joule.ee.calpoly.edu> wrote:
>So, what are my options? implementing my own ceil() function?
sub ceil { my $x = shift; my $y = int $x;
$x < 0 || $x == $y ? $y : $y+1 }
------------------------------
Date: Tue, 7 Apr 1998 17:21:05 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Database sorting problem
Message-Id: <Er2076.6s0@world.std.com>
Andy Biegel <chefandy@culinary.com> writes:
>I'm trying to sort the database by the fourth field in each record
>(364604,364603,364605,...). Any suggestions how to do this? Thanks.
Have you seen the entry in the FAQ: "How do I sort an array by
(anything)?" <URL:http://www.perl.com/CPAN/doc/manual/html/pod
/perlfaq4/How_do_I_sort_an_aray_by_anyth.html>
You might also want to take at the Sort::Fields module:
<URL:http://www.perl.com/cgi-bin/cpan_mod?module=Sort::Fields>
--
Andrew Langmead
------------------------------
Date: Tue, 07 Apr 1998 10:37:47 -0700
From: Larry Rosler <lr@hpl.hp.com>
To: Rob Greenbank <rob@frii.com>
Subject: Re: Database sorting problem
Message-Id: <352A646B.3D1D2C21@hpl.hp.com>
Rob Greenbank wrote:
>
> On Fri, 03 Apr 1998 10:01:27 -0600, Andy Biegel
> <chefandy@culinary.com> wrote:
>
> >I have a flatfile database like such:
> >
> >9|04-02-98|today|364604|today|NULL
> >10|04-01-98|yesterday|364603|yesterday|NULL
> >11|04-03-98|tomorrow|364605|tomorrow|NULL
> >
> >I'm trying to sort the database by the fourth field in each record
> >(364604,364603,364605,...). Any suggestions how to do this? Thanks.
> >
> >Andy Biegel
> >andy@culinary.com
> >
>
> Andy,
>
> There is lots of stuff in the Perl documentation on this, but to give
> you a boost (I remember how much time I spent sorting through the
> documentation) here's how I would do it:
> #!/usr/local/bin/perl -w
> use strict;
>
> my @rawData =
> (
> '9|04-02-98|today|364604|today|NULL',
> '10|04-01-98|yesterday|364603|yesterday|NULL',
> '11|04-03-98|tomorrow|364605|tomorrow|NULL'
> );
>
> sub byThirdField
> {
> my ($a3, $b3);
> (undef, undef, undef, $a3, undef) = split(/\|/, $a);
> (undef, undef, undef, $b3, undef) = split(/\|/, $b);
> $a3 <=> $b3;
> }
>
> foreach (sort byThirdField @rawData)
> {
> print "$_\n";
> }
>
> The "byThirdField" lets you define your own sort routine. Learn to
> use these functions and your life will be simpler. The "undef" is a
> handy way to ignore a field (documented undef "undef").
>
> Good luck
>
> Rob Greenbank
> (rob@frii.com)
Undoubtedly correct, but would run much slower than necessary on large
data sets, because of all the computation occurring repeatedly in the
sort sub. The FAQ and other sources (<a
href=http://www.perl.com/CPAN-local/doc/FMTEYEWTK/sort.html>Far More
Than Everything You've Ever Wanted to Know About Sorting</a>,
<a href=http://www.5sigma.com/perl/schwtr.html>The Schwartzian
Transform</a>) would recommend using something like this:
@result = map $_->[0], sort { $a->[1] <=> $b->[1] }
map { [ $_, (split /\|/)[3] ] } @rawData;
To "sort" that out, read it right-to-left: create -- *once* per datum
-- an auxiliary element which is the sort key; sort by that key; then
recover the original datum. Note how much less computation occurs in
the sort sub (which is invoked approximately N log N times).
This idiom should become part of every serious Perl programmer's
vocabulary.
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: Tue, 07 Apr 1998 10:22:29 -0500
From: Ben Schmitz <ben@fastparts.com>
Subject: File Bug in Perl of Sun-Solaris`
Message-Id: <352A44B5.5DB84B38@fastparts.com>
Does anyone know of a file bug for Perl 5.004_004 on Sun Solaris.
Basically, when i run stat on a file, i get no information from certain
files. None.
Any ideas would be greatly appreciated.
--
Ben Schmitz Email: neb@mindless.com
Systems Administrator Voice: 630-993-5345 Ext. 814
FastParts, Inc.
Personal Url: http://www.turing.com/ben/
Work Url: http://www.fastparts.com
________________________________________________________
"Man is the only creature who refuses to be what he is."
Albert Camus (1913-1960)
________________________________________________________
iQA/AwUANMZhf5lVQB372IPaEQIuxACfaFpx6Sh5uNv4wcbTYDdhdwPEyJAAoPRO
RR/qJqjv7SRyLUE0jaLqpvk1=U3S4
-----END PGP SIGNATURE-----
------------------------------
Date: 07 Apr 1998 17:42:34 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: File Bug in Perl of Sun-Solaris`
Message-Id: <7xogydfxjp.fsf@beavis.vcpc.univie.ac.at>
Re: File Bug in Perl of Sun-Solaris`, Ben
<ben@fastparts.com> said:
Ben> Does anyone know of a file bug for Perl 5.004_004 on
Ben> Sun Solaris. Basically, when i run stat on a file, i
Ben> get no information from certain files. None.
post some sample code with actual and intended behaviour.
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, AT | http://www.vcpc.univie.ac.at/
"You see? You see? Your stupid minds! Stupid! Stupid!" ~ Eros, Plan9 fOS.
------------------------------
Date: Tue, 07 Apr 1998 16:02:14 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: File Bug in Perl of Sun-Solaris`
Message-Id: <slrn6ikjb4.5l4.jgloudon@manitoba.bbn.com>
Ben Schmitz <ben@fastparts.com> wrote:
>Does anyone know of a file bug for Perl 5.004_004 on Sun Solaris.
>Basically, when i run stat on a file, i get no information from certain
>files. None.
Are you sure you are using the full path name to the files or the correct
relative pathname. If you are using readdir() to get file names, it does not
return absolute path names.
However we have no clues what your code is doing, because you didn't show it.
--
Jason Gloudon
------------------------------
Date: Tue, 07 Apr 1998 11:42:33 -0500
From: Ben Schmitz <ben@fastparts.com>
Subject: Re: File Bug in Perl of Sun-Solaris`
Message-Id: <352A5779.A4D42936@fastparts.com>
You are absolutely right, classic brain-freeze error!
Sorry
Ben Schmitz wrote:
>
> Does anyone know of a file bug for Perl 5.004_004 on Sun Solaris.
> Basically, when i run stat on a file, i get no information from certain
> files. None.
>
> Any ideas would be greatly appreciated.
> --
> Ben Schmitz Email: neb@mindless.com
> Systems Administrator Voice: 630-993-5345 Ext. 814
> FastParts, Inc.
> Personal Url: http://www.turing.com/ben/
> Work Url: http://www.fastparts.com
> ________________________________________________________
> "Man is the only creature who refuses to be what he is."
> Albert Camus (1913-1960)
> ________________________________________________________
>
>
> iQA/AwUANMZhf5lVQB372IPaEQIuxACfaFpx6Sh5uNv4wcbTYDdhdwPEyJAAoPRO
> RR/qJqjv7SRyLUE0jaLqpvk1=U3S4
> -----END PGP SIGNATURE-----
--
Ben Schmitz Email: neb@mindless.com
Systems Administrator Voice: 630-993-5345 Ext. 814
FastParts, Inc.
Personal Url: http://www.turing.com/ben/
Work Url: http://www.fastparts.com
________________________________________________________
"Man is the only creature who refuses to be what he is."
Albert Camus (1913-1960)
________________________________________________________
iQA/AwUANMZhf5lVQB372IPaEQIuxACfaFpx6Sh5uNv4wcbTYDdhdwPEyJAAoPRO
RR/qJqjv7SRyLUE0jaLqpvk1=U3S4
-----END PGP SIGNATURE-----
------------------------------
Date: Tue, 7 Apr 1998 17:16:35 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: File Bug in Perl of Sun-Solaris`
Message-Id: <Er1zzn.3BF@world.std.com>
Ben Schmitz <ben@fastparts.com> writes:
>Does anyone know of a file bug for Perl 5.004_004 on Sun Solaris.
>Basically, when i run stat on a file, i get no information from certain
>files. None.
stat() is documented to return an empty list if it fails. You might
want to check out the magic $! variable to see what went wrong.
~> perl -e '@s = stat("nosuchfile") || die "stat nosuchfile returned: $!\n"'
stat nosuchfile returned: No such file or directory
--
Andrew Langmead
------------------------------
Date: Tue, 07 Apr 1998 10:23:38 -0700
From: Ovanes Manucharyan <olm@mail1.csun.edu>
Subject: Format question
Message-Id: <352A611A.5A6DB36@mail1.csun.edu>
Hi,
Does anyone know how to specify a bottom portion of a report.
For example:
You have STDOUT_TOP, and STDOUT.
is there any way to specify STDOUT_BOTTOM ?
I need to calculate the total of all the values displayed in a certain
column.
I'd appreciate any help.
Thanks in advance.
--
----------------------------------------------------
Ovanes Manucharyan olm@csun.edu
California State University, Northridge
----------------------------------------------------
------------------------------
Date: 7 Apr 1998 13:55:11 GMT
From: b39ast@nontri.ku.ac.th (Apisilp Trunganont)
Subject: How to post to phtml?
Message-Id: <6gdb7v$vmg$1@news.ku.ac.th>
I found one web page (http://www.paclink.co.th/phtml/send.phtml)
that use phtml. Could you tell me please what is phtml? And this site has
CGI form that post data to http://www.paclink.co.th/phtml/send.phtml. I am
so confuse, phtml can be both HTML file and CGI file? I try to post using
my Perl script as I show below, but it doesn't work. Please tell me what
should I do?
#!/usr/bin/perl
use Socket;
($sockaddr,$there,$response,$tries) = ("Snc4x8");
$there = pack($sockaddr,2,80,&getaddress('www.paclink.co.th'));
($a,$b,$c,$d) = unpack('C4',$hostaddr);
$proto = (getprotobyname('tcp'))[2];
if(!socket(S,AF_INET,SOCK_STREAM,$proto)) { &error; }
elsif(!connect(S,$there)) { &error; }
else {
select(S); $|=1;
select(STDOUT);
print S "POST send.phtml HTTP/1.0\n";
print S "Referer: http://www.paclink.co.th/phtml/send.phtml\n";
print S "Host: www.paclink.co.th:80\n";
print S "User_Agent: Mozilla/4.03\n";
print S "Content-Type: application/x-www-form-urlencoded\n";
$param = "pager_number=123456&message=Test&sender=Test&flag=send+flag+ja";
print S "Content-Length: ",length($param),"\n";
print S "\n$param\n";
@res = <S>;
close(S);
sub getaddress {
local($host) = @_;
local(@ary);
@ary = gethostbyname($host);
return(unpack("C4",$ary[4]));
}
@res is output like this:
<HTML><HEAD>
<TITLE>400 Bad Request</TITLE>
</HEAD><BODY>
<H1>Bad Request</H1>
Your browser sent a request that
this server could not understand.<P>
</BODY></HTML>
------------------------------
Date: Tue, 07 Apr 1998 12:53:41 -0400
From: Peter Serwe <serwep01@med.nyu.edu>
Subject: How would _you_ do this?
Message-Id: <352A5A15.EA2AF5FC@med.nyu.edu>
Being extremely new to perl, I did this, for the purpose of checking
through a list of dns servers, since a 15-30 second response on dns
queries is unacceptable, if it finds the first one down, it switches out
the resolv.conf file. I'm *certain* this is not a new issue, so, if
someone has a more elegant or terse method, TIA.
#!/usr/local/bin/perl
use Net::Ping;
# @nsrv is the list of nameservers to check
@nsrv = ( 'dnshost1', 'dnshost2', 'dnshost3' );
$res = pingecho("$nsrv[0]",10);
if ($res >= '1') { $srv = '1' }
$res = pingecho("$nsrv[1]",10);
if ($res >= '1') { $srv = '2' }
$res = pingecho("$nsrv[2]",10);
if ($res >= '1') { $srv = '3' }
system('cp /etc/resolv.conf /etc/resolv.bk');
$cpcall = "cp /etc/resolv.srv$srv /etc/resolv.conf";
system($cpcall);
--
Peter Serwe <serwep01@med.nyu.edu>
Network Services / NYU Medical Center
"There are no rules, merely consequences." - Robert Ludlum
------------------------------
Date: 7 Apr 1998 15:02:30 GMT
From: kittu@Hawaii.Edu (Chakravarthy KM Nalamotu)
Subject: Korn to Perl, Help!
Message-Id: <6gdf66$sbc@news.Hawaii.Edu>
Hello Perl Users,
I am a novice perl user.
I have a piece of code in Korn Shell environment and
am in the process of converting it to perl. Could
some one help me in converting the following statements
written in korn environment to perl.
The code down here has a << EOF which lets me connect
to a database session and do a query on a table and
output the information into $FILES. Is
there something similar in perl that does this?
Thank you for your responses.
Kittu.
###################################################
sqlplus userid/passwd >> $FILES << EOF
select file_name FNAME
from sys.dba_data_files
order by file_name;
exit
EOF
------------------------------
Date: 7 Apr 1998 13:32:19 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Korn to Perl, Help!
Message-Id: <6gdnv3$hmn$1@monet.op.net>
In article <6gdf66$sbc@news.Hawaii.Edu>,
Chakravarthy KM Nalamotu <kittu@Hawaii.Edu> wrote:
>The code down here has a << EOF which lets me connect
>to a database session and do a query on a table and
>output the information into $FILES. Is
>there something similar in perl that does this?
Yes, you can do it almost the same way in Perl.
open SQLPLUS, "| sqlplus userid/passwd >> $FILES"
or die "Couln't run sqlplus: $!; aborting";
print SQLPLUS <<EOF;
select file_name FNAME
from sys.dba_data_files
order by file_name;
exit
EOF
close SQLPLUS
or die "Couln't finish running sqlplus: $!; aborting";
You really should get a book about Perl and read it and try the
examples.
------------------------------
Date: Mon, 06 Apr 1998 15:34:00 -0400
From: Eugene Melamud <emelamud@usa.net>
Subject: Let it flow .. let it flow!
Message-Id: <35292E28.41C6@usa.net>
Subject:
A.Word.A.Day--purl
Date:
Sat, 4 Apr 1998 00:05:26 -0500
From:
Wordsmith <wsmith@wordsmith.org>
To:
linguaphile@wordsmith.org
purl (purl) intr.verb
1. To flow or ripple with a murmuring sound.
purl noun
The sound made by rippling water.
[Probably of Scandinavian origin.]
"The waters purled, the waters swelled,--
They kissed his naked feet;
His heart a nameless transport held,
As if his love did greet."
Johann Wolfgang von Goethe, The Fisher Brooks, Charles Timo,
The World's Best Poetry on CD), 20 Mar 1995.
------------------------------
Date: Tue, 7 Apr 1998 10:36:36 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: bjf <ben@wallroyds.demon.co.uk>
Subject: Re: MKDIR problem
Message-Id: <Pine.GSO.3.96.980407103529.1034H-100000@user2.teleport.com>
On Tue, 7 Apr 1998, bjf wrote:
> mkdir($dir, 777);
Use 0777, or oct. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 7 Apr 1998 13:52:51 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: MKDIR problem
Message-Id: <6gdp5j$i10$1@monet.op.net>
In article <891943558.3865.0.nnrp-05.c2de5b4a@news.demon.co.uk>,
bjf <ben@wallroyds.demon.co.uk> wrote:
>mkdir($dir, 777);
>
>This won't work ...
777 is wrong. You want 0777 instead. 777 is permissions like
-r----x--t. Very bizarre.
################################################################
You need to get error message from mkdir. Use:
mkdir($dir, 0777) or die "Couldn't make directory $dir: $!; aborting";
This will print something like:
Couldn't make directory /tmp/x: Permission denied; aborting at ...
Then the `permission denied' part tells you what is wrong.
------------------------------
Date: 07 Apr 1998 16:59:56 +0200
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: Packing?
Message-Id: <is67kl3cer.fsf@godzilla.kiere.ericsson.se>
"bjf" <ben@wallroyds.demon.co.uk> writes:
> I was wondering, how can I remove all the dots from an IP address ... For eg
> ...
>
> "104.204.54.57" to "1042045457" ???
$ip =~ s/\.//g;
...but why on Earth would you want to do that?
--
Calle Dybedahl, UNIX Sysadmin
qdtcall@esavionics.se http://www.lysator.liu.se/~calle/
------------------------------
Date: Tue, 7 Apr 1998 16:02:31 +0100
From: "bjf" <ben@wallroyds.demon.co.uk>
Subject: Re: Packing?
Message-Id: <891961360.3231.0.nnrp-04.c2de5b4a@news.demon.co.uk>
>...but why on Earth would you want to do that?
8o)
In order to create a file. (ie ... 132412414.xxx)
But thank you very much for the simple answer!
We're lucky to have someone like you!
Thanks again.
BJF
------------------------------
Date: Tue, 07 Apr 1998 15:29:57 GMT
From: drummj@mail.mmc.org (Jeffrey R. Drumm)
Subject: Re: Packing?
Message-Id: <352a4594.513604894@news.mmc.org>
On Tue, 7 Apr 1998 16:02:31 +0100, "bjf" <ben@wallroyds.demon.co.uk> wrote:
>>...but why on Earth would you want to do that?
>
>8o)
>
>In order to create a file. (ie ... 132412414.xxx)
Does that mean it's ok for 198.113.12.3, 198.1.131.23, and 198.11.31.23 to all
share the same file?
Just asking . . .
>
>But thank you very much for the simple answer!
>
>We're lucky to have someone like you!
>
>Thanks again.
--
Jeffrey R. Drumm, Systems Integration Specialist
Maine Medical Center - Medical Information Systems Group
drummj@mail.mmc.org
"Broken? Hell no! Uniquely implemented!" - me
------------------------------
Date: 07 Apr 1998 16:44:37 +0100
From: Rob Rainthorpe <nospam-R.J.Rainthorpe@gre.ac.uk>
Subject: Re: Packing?
Message-Id: <uyaxh8wm2.fsf@gre.ac.uk>
"bjf" <ben@wallroyds.demon.co.uk> writes:
> In order to create a file. (ie ... 132412414.xxx)
I assume you don't care that 132.41.24.14 would lead to the same file name as
132.41.241.4 ?
Rob.
--
Robert Rainthorpe - Central Systems Group, Computing Services
the University of Greenwich
16 - 32 Wellington Street, Tel. (+44) (0)181 331 8738
Woolwich, Fax. (+44) (0)181 331 8385
London SE18 6PF Email. (remove nospam- from above)
------------------------------
Date: Tue, 7 Apr 1998 18:44:34 +0100
From: "bjf" <ben@wallroyds.demon.co.uk>
Subject: Re: Packing?
Message-Id: <891971082.15940.0.nnrp-05.c2de5b4a@news.demon.co.uk>
Wish I have the same brain as your!
The people around here are so clever, I must say :-)
However, what I want to do is ...
The user choose what s/he want (choices) then the file will be generated
.... Then, it wil be saved on the server ... Then, the user can download it
for their use ...
The problem is, I was worried that some users may play foolish things (ie,
doing it again, over and over, eating the disk storage) ...
I guess, that method will stop them? Well, not for AOL users, ... But, they
have to disconnect, then connect, then disconnect, etc to change their IP
addresses ....
Once in a while, I can delete all those files .... When the space is low
....
Anyway, again - I just want to ask you all ...
How come that you all are SO, SO, SO, SO, clever! Hehe .... Are you all ...
professor in univerities?
And, apologise my English - Not my first language :-(
Thanks again for the answers, thoughts, points, advices, much more!
Best Regards
BJF
Jeffrey R. Drumm wrote in message <352a4594.513604894@news.mmc.org>...
>On Tue, 7 Apr 1998 16:02:31 +0100, "bjf" <ben@wallroyds.demon.co.uk> wrote:
>
>>>...but why on Earth would you want to do that?
>>
>>8o)
>>
>>In order to create a file. (ie ... 132412414.xxx)
>
>Does that mean it's ok for 198.113.12.3, 198.1.131.23, and 198.11.31.23 to
all
>share the same file?
>
>Just asking . . .
>
>>
>>But thank you very much for the simple answer!
>>
>>We're lucky to have someone like you!
>>
>>Thanks again.
>
>--
> Jeffrey R. Drumm, Systems Integration
Specialist
> Maine Medical Center - Medical Information Systems
Group
>
drummj@mail.mmc.org
>"Broken? Hell no! Uniquely implemented!" - me
------------------------------
Date: Tue, 7 Apr 1998 10:27:59 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Stacy Hunter <snx@snx.com>
Subject: Re: Password of the day
Message-Id: <Pine.GSO.3.96.980407102702.1034F-100000@user2.teleport.com>
On Mon, 6 Apr 1998, Stacy Hunter wrote:
> I would like to have a password protected document where the password
> automatically changes to meet given criteria each day.
>
> Any recommendations?
You should probably use cron, or its counterpart on your system. Hope this
helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 07 Apr 1998 12:40:06 -0400
From: Vivek Khera <khera@kciLink.com>
Subject: Re: perl 5.004_04 on BSDi 3.1
Message-Id: <x7af9x7fh5.fsf@kci.kciLink.com>
>>>>> "o" == otaku <otaku@hick.com> writes:
o> I need to compile perl 5.004_4 on BSDi 3.1. When compiling, I get a
o> multitude of signal errors when it tries to link. I've looked
o> around and found out that this is a common problem with BSDi 3.1.
o> If anyone has overcome this problem, and knows what to do, could
o> you please e-mail me at otaku@hick.com? I would be very grateful
o> for your help :)
Interesting... where did you find that this is a common problem with
BSD/OS 3.1? I'll suspect the mailing list archive for
bsdi-users... well, there is also the solution to the problem in those
very same archives.
Try http://www.nexial.nl/ and search the bsdi-users archive. You'll
find the answer you seek.
--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Vivek Khera, Ph.D. Khera Communications, Inc.
Internet: khera@kciLink.com Rockville, MD +1-301-258-8292
PGP/MIME spoken here http://www.kciLink.com/home/khera/
------------------------------
Date: 7 Apr 1998 14:56:30 GMT
From: "Axel Kuester" <kra@bitbyte.com>
Subject: Perl and VMS
Message-Id: <01bd6235$6a784ea0$dbe11ec3@b1int1.b1_plaberdie>
hello,
can anyone point me to a perl distribution (best would be 5.004xx or
5.003xx) which comes with binaries (obj's like in the samba-distribution
for VMS would be great :-)) ) for VMS 6.2 Alpha which contains the tk-modul
--- or is Tk part of this two versions?
I have no opportunity to build perl for VMS from the source.
Thanks for Help
Axel
kra@bitbyte.com
axelkuester@connecta.aal.circular.de
------------------------------
Date: Tue, 7 Apr 1998 11:54:01 -0400
From: Mark Kucera <kucera@cs.unc.edu>
Subject: Perl Compiler for NT
Message-Id: <Pine.SOL.3.96.980407115202.1043A-100000@capefear.cs.unc.edu>
IS THERE a PERL Compiler for NT or win95. if so what is it called, and
where can i get it...
Please help
Thanks Mark Kucera
------------------------------
Date: Tue, 7 Apr 1998 12:53:22 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: Perl Compiler for NT
Message-Id: <6gdktr$oup@fridge.shore.net>
Mark Kucera wrote in message ...
>IS THERE a PERL Compiler for NT or win95. if so what is it called, and
>where can i get it...
No (but there is an interpreter), Perl, http://www.perl.com
-grinch
--
"Of course coffee doesn't make the world go around. It
just makes it go faster." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: Tue, 7 Apr 1998 10:08:02 -0700
From: "Ion Chalmers Freeman" <ion@aroma.com>
Subject: Re: perl linux database program?
Message-Id: <352a5bf8.0@news.prostar.com>
Sandy,
You know DBEngine is an ActiveX object. I imagine you could just use the
Perl OLE Automation package to get Access Data.
Ion Chalmers Freeman, MCP
ion@aroma.com
http://foxinternet.net/web2/ion
"Opportunities for getting it right the first time are rife ' -
Peter N. Spotts, Christian Science Monitor, 3/26/98
sandra wrote in message <3527d2dd.10710417@newsreader.cais.net>...
Perl - per se - is not a database, thus one would not be trying to
create "perl databases" on Linux or anything else. There are numerous
sites with info about how to use Perl to manipulate various databases
on various systems. I myself am searching for information on how to
make calls to MS Access files, and that is why I have tripped over
such information for Oracle, Informix, and Sybase.
sandy
On Sat, 4 Apr 1998 07:34:47 -0500, "Greg Waters" <gwaters@dorsai.org>
wrote:
>Does anybody know resource information and help files on how to create perl
>databases for linux? Did someone write a program?
>
>Greg
>http://www.silly.com/~gwaters
>
>
------------------------------
Date: Tue, 7 Apr 1998 15:15:37 GMT
From: "131J50000-HoltryF(DR3165)260" <fholtry@drmail.dr.lucent.com>
Subject: Perl on ancient iron
Message-Id: <352A4318.B308958C@drmail.dr.lucent.com>
I find myself in the unenviable position of trying to build perl5
remotely on
an old Amdahl running UTS 2.1.2. I don't have an interactive login on
the
machine, but I can submit jobs in a kind of networked batch fashion.
What
that means is that I can't do the Configure, but I can submit the
makes. I've
tried attacking it iteratively, ie. make a guess about config.sh
parameters,
submit, fix problems, try again. While this might eventually succeed,
'eventually' is beginning to look like a very long time indeed.
So: does anyone
have a config.sh that is known to have worked on such a machine that
they can
share with me? I also have the same problem with an HP-UX A.09.04
machine.
Thanks in advance.
Frank Holtry
--
-------------------------------------------------------------------------------
| Frank Holtry | "If you have the right attitude, interesting |
| fholtry@lucent.com | problems will find you." |
| | Eric S. Raymond |
| | |
| | "The Cathedral and the Bazaar" |
| | (http://earthspace.net/~esr/writings/ |
| | cathedral-paper.html#toc13) |
| | |
-------------------------------------------------------------------------------
------------------------------
Date: Tue, 7 Apr 1998 11:57:15 -0400
From: Mark Kucera <kucera@cs.unc.edu>
Subject: Perl Script on NT
Message-Id: <Pine.SOL.3.96.980407115553.1043B-100000@capefear.cs.unc.edu>
Is there a way to take a perl script you have written and convert/compile
it to run as a service on an NT 4.0 Server??
Please Help
mark kuera
------------------------------
Date: 7 Apr 1998 17:51:36 GMT
From: "Matthew Bell" <mbell@thedomaingroup.com>
Subject: Re: Perl Script on NT
Message-Id: <01bd624e$1557d210$8eeb42cf@priscilla>
Try going to this address, and looking at the PERL2EXE shareware tool -- it
says it converts Perl scripts to executables that don't require a Perl
interpreter. You can then use an NT Resource Kit utility (I forget which)
to install an executable as a service.
Mark Kucera <kucera@cs.unc.edu> wrote in article
<Pine.SOL.3.96.980407115553.1043B-100000@capefear.cs.unc.edu>...
> Is there a way to take a perl script you have written and convert/compile
> it to run as a service on an NT 4.0 Server??
>
> Please Help
> mark kuera
>
>
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 2266
**************************************
