[9690] in Perl-Users-Digest
Perl-Users Digest, Issue: 3284 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 29 10:30:59 1998
Date: Wed, 29 Jul 98 07:01:52 -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 Wed, 29 Jul 1998 Volume: 8 Number: 3284
Today's topics:
"use" in expressions. (Franz Kaufmann)
Re: "use" in expressions. (Andrew M. Langmead)
Building perl5.005 on HP-UX 10.20 <toml@synnet.com>
Re: deadlocking sockets cometsoft@yahoo.com
Re: do loops in perl (Andrew M. Langmead)
Re: FTP without Net::FTP module <camerond@mail.uca.edu>
Getopt::Std leaves $opt_XXX4s UNDEFINED (Franz Kaufmann)
Glob problem (Daniel)
Help on my very short script using hash (lloyd)
HELP: Convert files using OLE in Perl kornelii@my-dejanews.com
Re: Im Willing to pay or give a free DOMAIN for a custo <m.fynes-clinton@dewynters.com>
Re: Im Willing to pay or give a free DOMAIN for a custo <quednauf@nortel.co.uk>
Re: Im Willing to pay or give a free DOMAIN for a custo <camerond@mail.uca.edu>
Re: Inheritance broken when objects share a file? (Mark-Jason Dominus)
Interesting Question needs Quick Answer (P.L. Hegarty)
Re: Interesting Question needs Quick Answer (I.J. Garlick)
Re: Interesting Question needs Quick Answer <thomas@daimi.aau.dk>
Moving script. Changing from MySQL to Solid database <hauk@forumnett.no>
Re: Nead a Redir Script, Please <minich@globalnet.co.uk>
Re: Net::Telnet -like module without telnet (Antti-Jussi Korjonen)
Re: Net::Telnet -like module without telnet (Antti-Jussi Korjonen)
Re: Newbie: extracting fields <rick.delaney@shaw.wave.ca>
Re: Newbie: extracting fields (Tad McClellan)
Re: Newbie: extracting fields (Abigail)
pattern matching <qcoldiro@deal.unl.edu>
Re: Perl Embed Win32 C++ <nguyend7@egr.msu.edu>
Re: Perl/X11 CONUNDRUM (Andrew M. Langmead)
Problem while make(ing) on POSIX (BS2000) <halbig@sbs.de>
Re: Programmer's Editor (Gabor)
Re: Programmer's Editor <nguyend7@egr.msu.edu>
Shell script returning statistics data <gile@zapex.co.il>
Re: striphtml.pl and Win32 Perl 5.004 <minich@globalnet.co.uk>
Re: striphtml.pl and Win32 Perl 5.004 <jdf@pobox.com>
Re: striphtml.pl and Win32 Perl 5.004 <minich@globalnet.co.uk>
Re: Submit only Once <persoft@concentric.net>
Re: Submit only Once <persoft@concentric.net>
Re: Test failures compiling perl5.005 (Linux) (Wolfgang Friebel)
Re: Try perl on Ms Dos (Garp)
Re: Web Database Access with sub-queries. <simonf@conduit.co.uk>
Re: why is clpm generally used rather than clp? (I R A Aggie)
Re: Zombies from Forking are Bad, says Sun (Gabor)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 29 Jul 98 14:22:07 gmt
From: ws97-868@wsrz1.wiso.uni-erlangen.de (Franz Kaufmann)
Subject: "use" in expressions.
Message-Id: <6pn46d$7jk$3@rznews.rrze.uni-erlangen.de>
Hello,
What I would like to be able to do is the following:
use XXX if $condition1;
use YYY if $condition2;
or something like :
use $x,where $x is a string.
Whenever I try this,perl complains.
Can anyone help me?
Thank you in advance.
------------------------------
Date: Wed, 29 Jul 1998 13:59:04 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: "use" in expressions.
Message-Id: <Ewv06G.CAI@world.std.com>
ws97-868@wsrz1.wiso.uni-erlangen.de (Franz Kaufmann) writes:
>What I would like to be able to do is the following:
>use XXX if $condition1;
>use YYY if $condition2;
>or something like :
>use $x,where $x is a string.
"use" is a compile time directive, and things like the "if" statement
modifer and variables like $condition1 and $x are being handled at run
time.
The best thing to do is to look up "use" in the perlfunc man page, and
see how it is implemented, then perform the steps yourself.
--
Andrew Langmead
------------------------------
Date: Wed, 29 Jul 1998 08:35:35 -0400
From: Tom Lynch <toml@synnet.com>
Subject: Building perl5.005 on HP-UX 10.20
Message-Id: <35BF1717.7131A1F8@synnet.com>
Greetings:
I have been trying to build perl 5.005 on a 10.20
machine. I seem to be running into some problems
with the make tests:
pragma/locale.......assertion botched (chunk's tail overwrite?): *((char
*)((caddr_t)ovp + nbytes - sizeof (unsigned int) + i)) == 0x55
sh: 6938 Abort
dubious
Test returned status 134 (wstat 34304, 0x8600)
DIED. FAILED tests 99-102
Failed 4/102 tests, 96.08% okay
and.....
lib/posix...........assertion botched (chunk's tail overwrite?): *((char
*)((caddr_t)ovp + nbytes - sizeof (unsigned int) + i)) == 0x55
dubious
Test returned status 0 (wstat 6, 0x6)
DIED. FAILED tests 15-18
Failed 4/18 tests, 77.78% okay
Any ideas here?
I have been able to build it successfully on a 9.07
machine. Here's the perl configuration:
./perl -V
Summary of my perl5 (5.0 patchlevel 5 subversion 0) configuration:
Platform:
osname=hpux, osvers=10.20, archname=PA-RISC1.1
uname='hp-ux bluesky b.10.20 a 9000712 2010754518 two-user license '
hint=previous, useposix=true, d_sigaction=define
usethreads=undef useperlio=undef d_sfio=undef
Compiler:
cc='cc', optimize='-O', gccversion=
cppflags='-D_HPUX_SOURCE -Aa -I/usr/local/include -DDEBUGGING
-D_POSIX_SOURCE'
ccflags ='-D_HPUX_SOURCE -Aa -I/usr/local/include -DDEBUGGING
-D_POSIX_SOURCE'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=undef, longlongsize=, d_longdbl=define, longdblsize=16
alignbytes=8, usemymalloc=y, prototype=define
Linker and Libraries:
ld='ld', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib/pa1.1 /lib /usr/lib /usr/ccs/lib
libs=-lnsl_s -lndbm -ldld -lm -lc -lndir -lcrypt
libc=/lib/libc.sl, so=sl, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E
-Wl,-B,deferred '
cccdlflags='+z', lddlflags='-b -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: DEBUGGING
Built under hpux
Compiled at Jul 27 1998 11:18:16
@INC:
/opt/perl5/lib/5.005/PA-RISC1.1
/opt/perl5/lib/5.005
/opt/perl5/lib/site_perl/5.005/PA-RISC1.1
/opt/perl5/lib/site_perl/5.005
.
I've tryed with and without -D_POSIX_SOURCE ....
Thanks for and help in advanced!
Tom
--
#--------------------------------------------------------------+
# Tom Lynch | Email: toml@synnet.com |
# Switching Division | Phone: (978)-264-1443 |
# 3COM Corporation | Fax : (978)-264-1418 |
# 80 Central Street | MS : MA#35 |
# Boxborough, Massachusetts | Zip : 01719 |
#--------------------------------------------------------------+
------------------------------
Date: Wed, 29 Jul 1998 12:09:12 GMT
From: cometsoft@yahoo.com
Subject: Re: deadlocking sockets
Message-Id: <6pn3d8$am3$1@nnrp1.dejanews.com>
I am having similar problems...
I am doing an HTTP call and getting the output...
while ($line = <Socket_Handle> or die "$!") {
$i++;
print "$i:$line\n";
}
This thing hangs forever!
I can read things in line by line or char by char. But it seems that at some
point when the responding HTTPd is done, my client hangs and doesn't realize
the response is done.
I've also scoured through camel and various online socket faqs and have found
nothing. I know there are modules to do HTTP calls, but I want to do it
myself.
In article <6pkvgc$54n$1@nnrp1.dejanews.com>,
faganb@my-dejanews.com wrote:
> In article <7x4sw2f6wr.fsf@fidelio.vcpc.univie.ac.at>,
> Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at> wrote:
> > Re: deadlocking sockets, faganb <faganb@my-dejanews.com>
> > said:
> >
> > faganb> I am trying to write a c/s app using sockets and
> > faganb> developing my own application level protocol. I
> > faganb> can't send and receive on the socket without
> > faganb> deadlocking. Does anyone have a more extensive
> > faganb> example of a send-receive-send scenario? I've got
> > faganb> camel, llama, and leopard to no avail. I'm missing
> > faganb> something obvious.
> >
> > Have you tried the Net::Cmd and IO::Socket modules?
> >
> > hth
> > tony
> > --
> > Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax -
13
> > Liechtensteinstrasse 22, A-1090 Wien, AT |
<URI:http://www.vcpc.univie.ac.at/>
> > "You see? You see? Your stupid minds! | personal email:
> > Stupid! Stupid!" ~ Eros, Plan9 fOS. | tony_curtis32@hotmail.com
> >
>
> This should clarify. These examples were taken from one (many?) sources
> including Robin Chatterjee, Perl docs, "camel", etc.
>
> Server
> ======
> use IO::Socket;
>
> $sock = new IO::Socket::INET (LocalHost => 192.64.104.143,
> LocalPort => 54723,
> Proto => 'tcp',
> Listen => 5,
> Reuse => 1);
> die "Socket could not be created. Reason $!" unless $sock;
> while ($new_sock = $sock->accept())
> {
>
> while (defined($buf = <$new_sock>))
> {
> # this splits the attribute=value pairs
> @pair = split (/=/, $buf);
> $len_pair = @pair;
>
> # this prints the attribute + value on separate lines
> for ($i=0; $i < $len_pair; $i++)
> {
> print "@pair[$i]\n";
> }
>
> #This is _supposed_ to reply to client if it receives value "TEST"
> # if (@pair[1]!="TEST")
> # {
> # select($new_sock); $| = 1; select(STDOUT);
> # print $new_sock "RECVD=TEST\n";
> # }
>
> }
> }
> close ($sock);
>
> Client
> ======
> #tcp-client
> ( $them, $port ) = @ARGV;
>
> $port = 54723;
> $them = 'localhost';
>
> $AF_INET = 2;
> $SOCK_STREAM = 1;
>
> $SIG{'INT'} = 'dokill';
> sub dokill {
> kill 9,$child if $child;
> }
>
> $sockaddr = 'S n a4 x8';
>
> #chop($hostname = `hostname`);
>
> ($name,$aliases,$proto) = getprotobyname('tcp');
> ($name,$aliases,$port) = getservbyname($port,'tcp')
> unless $port =~ /^\d+$/;;
> ($name,$aliases,$type,$len,$thisaddr) = gethostbyname($hostname);
> ($name,$aliases,$type,$len,$thataddr) = gethostbyname($them);
>
> $this = pack($sockaddr, $AF_INET, 0, $thisaddr);
> $that = pack($sockaddr, $AF_INET, $port, $thataddr);
>
> if (socket(S, $AF_INET, $SOCK_STREAM, $proto)) {
> print "socket ok\n";
> }
> else {
> die $!;
> }
>
> if (bind(S, $this)) {
> print "bind ok\n";
> }
> else {
> die $!;
> }
>
> if (connect(S,$that)) {
> print "connect ok\n";
> }
> else {
> die $!;
> }
>
> select(S); $| = 1; select(STDOUT);
>
> # Send attribute=value pair for TEST
> print S "HELLO=TEST\n";
>
> #This is _supposed_ to read the response from the server and print it out
> #but it hangs and never prints it out
>
> while ($resp = <S>)
> {
> print STDOUT "resp=$resp\n";
> }
>
> close (S);
> exit;
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 29 Jul 1998 13:55:04 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: do loops in perl
Message-Id: <Ewuzzs.98D@world.std.com>
tljohn4@my-dejanews.com writes:
>What's wrong with this code, I see this type of construct a lot of places in
>my new job and it looks ok but doesn't seem to work. #!/usr/local/bin/perl -w
>use strict; my $process = "exit"; if (-e "mport.lock") { do { sleep(1);
>print "$^T\n"; last if ($process ne 'process'); }until( (-z "mport.list")
>&& (-z "mport.todo") ) }
The first problem is that the formatting is horrendous (I'd put a
smiley here if I belived in smilies. Its not that I don't belive that
they exist; I've seen them. I just don't belive in putting them in my
text.)
The do BLOCK construct with a statement modifier does not really
create a real loop block construct. One solution is to make a bare
block outside of the do BLOCK, and break out of that.
{
do {
# ...
last if CONDITION;
} until CONDITION
}
The "last" breaks out of the bare block, not the do block, but you
wind up in the same place. (The statement after the "until".)
Also, you should probably read the section in the FAQ on how to lock
files without race conditions. Thre are a couple of consecutive
questions on the subject, starting with:
<URL:http://www.perl.com/CPAN/doc/manual/html/pod/
perlfaq5/How_can_I_lock_a_file_.html>
--
Andrew Langmead
------------------------------
Date: Wed, 29 Jul 1998 08:40:06 -0500
From: Cameron Dorey <camerond@mail.uca.edu>
To: pjgeer@my-dejanews.com
Subject: Re: FTP without Net::FTP module
Message-Id: <35BF2636.EB6F661D@mail.uca.edu>
[cc'd to p]
Okay, as a novice (still), I want to stick my neck out with a possible
solution and invite the folks in the know to tell me what might be wrong
with it. Use Net::FTP as your script (or part of your script). Since
Net::FTP is written in Perl (it doesn't seem to have all that C stuff in
it, anyway), why not just include it in your script as a subroutine? It
would make it a bit longer (35K on a Windoze machine, for example), but
why wouldn't it work just like the module does (maybe with a little bit
of futzing)?
Cameron
camerond@mail.uca.edu
pjgeer@my-dejanews.com wrote:
>
> I have to write a script to execute ftp commands on a remote site. For
> annoying boorocratic reasons I cant use the handy Net::FTP module. Anyone
> have such a script lying around? If you do, please post or email
> pjgeer@hotmail.com. Thanks, Phil
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 29 Jul 98 14:17:55 gmt
From: ws97-868@wsrz1.wiso.uni-erlangen.de (Franz Kaufmann)
Subject: Getopt::Std leaves $opt_XXX4s UNDEFINED
Message-Id: <6pn3tj$7jk$2@rznews.rrze.uni-erlangen.de>
Hello.
I 4m using perl 5.004_004.
When I do a
use Getopt::Std;
and do a :
getopt ("avl");
perl doesn4t stop to complain about the $opt-variables being "possible
typos" until I do a "local " on all the $opt.
Now for the fun part:
Later in the program I check the $opt and NO command line switch is
recognized even if I start the script with the switches.As I do the
aforementioned "local" operation on the $opts first thing before any
subroutine is called,it can4t be a scope problem.So it seems that the
package Getopt::Std doesn4t define anything for me.
Can anybody tell me where I got wrong?
Thank you in advance.
------------------------------
Date: Wed, 29 Jul 1998 11:08:22 GMT
From: dan@NOSTINKINSPAM.nwsl.west.ga.net. (Daniel)
Subject: Glob problem
Message-Id: <GoDv1.697$2l3.1309971@news4.atl.bellsouth.net>
open(MYNEWFIL,"/dbase.txt");
while(<MYNEWFIL>)
{
$inline = $_
($name,$value) = split(/=/,$inline);
local (*GLOB) = $name;
$GLOB = $value;
etc...
This worked great in perl4. Perl 5 tells me
Modification of a read-only value attempted at ./cardsearchold.pl line 1277,
<MYNEWFIL> chunk 19.
The line is "$GLOB = $value;" above
I'm really just a hack programmmer, and I don't know where to go with
this one...
Daniel
Mic 6:8 He hath shewed thee, O man, what is good; and what doth
the LORD require of thee, but to do justly, and to love mercy,
and to walk humbly with thy God?
------------------------------
Date: 29 Jul 1998 14:00:54 GMT
From: lloyd007@best.com (lloyd)
Subject: Help on my very short script using hash
Message-Id: <lloyd007-2907980715550001@lloyd007.vip.best.com>
I have been trying to make a very simple script about hash work but so far
am frustrated. Now it seems that I have the has correct, but now I am
getting other troubel with the script. It is a simple program to ask your
name and then for a password. I stored the password in the hash and now I
am trying torecall the password and match it to the users output here is
the script
#!/usr/bin/perl -w
%pass = (
"lloyd => lloyd
leanne => henigman
udel => wilson"
);
print "what is your name\n";
$name =<STDIN>;
chop ($name);
print "Hello $name\n";
$secretwords = $pass{$name};
print "what is the password?\n";
$guess = <STDIN>;
chop ($guess);
while ($guess ne $secretwords) {
print "wrong try again\n";
$guess = <STDIN>;
chop ($guess);
}
When I run it on the unix shell account the program does real well until I
enter the password.........
shell7: {4} ./hash.cgi
what is your name
lloyd
Hello lloyd
what is the password?
lloyd
Use of uninitialized variable at ./hash.cgi line 17, <STDIN> line 2wrong
try again
I would appreciate any help. All this experience has taught me is that
real programmers deserve nothing but my utmost respect.....
lloyd
lloyd007@best.com
------------------------------
Date: Wed, 29 Jul 1998 11:47:21 GMT
From: kornelii@my-dejanews.com
Subject: HELP: Convert files using OLE in Perl
Message-Id: <6pn249$9e7$1@nnrp1.dejanews.com>
I try to convert some Window Word97 files from Word97 format to Word95 format.
this is a main block in the script I wrote:
---------------
$Word = CreateObject OLE "Word.Application.8" or die "Can't open Word";
$Word->{ 'Visible' } = 1;
if ( opendir(WORDS, cwd() ) )
{
@files = readdir(WORDS);
for (@files)
{
next if $_ eq '.';
next if $_ eq '..';
if ( /[\.doc]$/ )
{
$Docs = $Word->Documents->Open ( cwd() . "\\" . $_ );
$Word->ActiveDocument->SaveAs ( "some_name.rtf", 11 );
# 11 stands for Word95 format
$Word->ActiveDocument->Close();
}
}
}
#$Word->Quit();
---------------
I used also &Word->Documents(1)->SaveAs ( ... )
---------------
But it doesn't save files no matter what format I use It just doesn't save.
Any ideas? I need help urgent!
Kornelii Shnaps.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 29 Jul 1998 10:30:30 +0100
From: "Matthias Fynes-Clinton" <m.fynes-clinton@dewynters.com>
Subject: Re: Im Willing to pay or give a free DOMAIN for a custom cgi!
Message-Id: <35beeb73.0@nnrp1.news.uk.psi.net>
I am quite happy to sit at my computer for 2 days clicking for $400, if that
helps ;-)
method98 wrote in message <6pj6hr$cle$1@reader1.reader.news.ozemail.net>...
>Can Anyone Make a Hidden Cgi that clicks on sponser
>undectably to the user viewing the web page and the sponsers
>itself... I am willing to pay Webmasters or Hosters $400 USD with my
>credit card, or buy a DOMAIN to anyone how can make this cgi-script
>and the DOMAIN is for 1 year.
>
>
------------------------------
Date: Wed, 29 Jul 1998 14:00:17 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: Im Willing to pay or give a free DOMAIN for a custom cgi!
Message-Id: <35BF1CE1.8FD1973A@nortel.co.uk>
Matthias Fynes-Clinton wrote:
>
> I am quite happy to sit at my computer for 2 days clicking for $400, if that
> helps ;-)
>
Oh yes! I agree to that !
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Wed, 29 Jul 1998 08:55:52 -0500
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Re: Im Willing to pay or give a free DOMAIN for a custom cgi!
Message-Id: <35BF29E8.5C613CBD@mail.uca.edu>
D*mn, what an idea! A way to increase your advertising revenue by making
the advertiser think he/she has had a lot of people interested in
his/her ad, when, in fact, no such interest exists. Do you also do the
chain-letter scam?
Cameron
method98 wrote:
>
> Can Anyone Make a Hidden Cgi that clicks on sponser
> undectably to the user viewing the web page and the sponsers
> itself... I am willing to pay Webmasters or Hosters $400 USD with my
> credit card, or buy a DOMAIN to anyone how can make this cgi-script
> and the DOMAIN is for 1 year.
>
> IT MUST BE 110% UNDECTABLE TO THE SPONSERS AND THE USERS!!!
>
> if you can make this, email a.s.a.p
>
> method98@iname.com
>
> Regards
------------------------------
Date: 29 Jul 1998 09:52:07 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Inheritance broken when objects share a file?
Message-Id: <6pn9e7$eoe$1@monet.op.net>
In article <6pktsq$350$1@nnrp1.dejanews.com>,
<Karmadon@my-dejanews.com> wrote:
>hopper% cat p2
> D->new();
> package B;
> sub alloc { bless {}, $_[0]; }
> package D;
> @ISA = qw(B);
> sub new { $_[0]->alloc(); }
>hopper% perl -w p2
> Can't locate object method "alloc" via package "D" at p2 line 8.
That @ISA is an ordinary list assignment. It occurs at run-time, just
like any other list assignment. All other things being equal,
statements in your program are executed in the order you wrote them.
That means that the assignment to @ISA occurs *after* you make the
call to D->new(). That's why the D->new() fails; the inheritance
structure isn't set up yet when you do it.
Try this:
D->new();
package B;
sub alloc { bless {}, $_[0]; }
package D;
BEGIN { @ISA = qw(B) }
sub new { $_[0]->alloc(); }
Or this:
package B;
sub alloc { bless {}, $_[0]; }
package D;
@ISA = qw(B);
sub new { $_[0]->alloc(); }
package main;
D->new();
------------------------------
Date: Wed, 29 Jul 1998 12:03:26 GMT
From: sm8plh@csc.liv.ac.uk (P.L. Hegarty)
Subject: Interesting Question needs Quick Answer
Message-Id: <Ewuutr.Ip3@csc.liv.ac.uk>
Keywords: Perl script problem
Firstly I will apologise if this question is answered anywhere else, but I'm in
a bit of a rush and
have not been able to get the FAQ for this group yet.
I want to write a perl script which produces as its output an exact copy of
itself. So when you run the script
you get exactly the same output to screen as if you used 'cat' or 'type'. You
can not read anything into the script
or use any system calls. That last bit is the heart of the problem.
I have been told that it can be done but as yet all I have done is eliminate the
simple solutions that do not work.
If any one knows a answer or can point me in the direction of one I would be
greatful.
--
Have Fun!!!
Shadolin
******************************************************************************
Patrick Hegarty shadolin@cableinet.co.uk
102 Jubilee Drive sm8plh@csc.liv.ac.uk
Liverpool shadolin@mudhole.spodnet.uk.com
L7 8SN http://www.csc.liv.ac.uk/~sm8plh/
http://wkweb4.cableinet.co.uk/shadolin/
Tel 0151 281 4510 Fax 0151 281 7123
*****************************************************************************
------------------------------
Date: Wed, 29 Jul 1998 12:19:38 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
To: sm8plh@csc.liv.ac.uk (P.L. Hegarty)
Subject: Re: Interesting Question needs Quick Answer
Message-Id: <EwuvKq.JJC@csc.liv.ac.uk>
[Posted and mailed]
In article <Ewuutr.Ip3@csc.liv.ac.uk>,
sm8plh@csc.liv.ac.uk (P.L. Hegarty) writes:
> Firstly I will apologise if this question is answered anywhere else, but
> I'm in a bit of a rush and have not been able to get the FAQ for this
> group yet.
>
> I want to write a perl script which produces as its output an exact copy of
> itself. So when you run the script you get exactly the same output to
> screen as if you used 'cat' or 'type'. You can not read anything into the
> script or use any system calls. That last bit is the heart of the problem.
>
> I have been told that it can be done but as yet all I have done is
> eliminate the simple solutions that do not work.
>
> If any one knows a answer or can point me in the direction of one I would be
> greatful.
>
DON'T give him the answer this is homework.
Nice try Parrick. Now work it out for yourself, afterall you told me
yesterday it was a 'piece of cake'.
What is even more staggering is that you could imagine we don't read this
news group!!!
--
Ian J. Garlick
ijg@csc.liv.ac.uk
Who watches the Watchmen.
------------------------------
Date: Wed, 29 Jul 1998 15:23:04 +0200
From: Thomas Jespersen <thomas@daimi.aau.dk>
Subject: Re: Interesting Question needs Quick Answer
Message-Id: <35BF2238.75E8EBE2@daimi.aau.dk>
P.L. Hegarty wrote:
>
> Firstly I will apologise if this question is answered anywhere else, but I'm in
> a bit of a rush and
> have not been able to get the FAQ for this group yet.
But you have been able to get Perl?
Strange!
------------------------------
Date: Wed, 29 Jul 1998 13:58:56 +0200
From: Hauk Langlo <hauk@forumnett.no>
Subject: Moving script. Changing from MySQL to Solid database
Message-Id: <35BF0E80.52B9E254@forumnett.no>
Hi there. I have just completed a set of scripts that due to some last
minute changes must run on a server using Solid database. The scripts
are currently using MySQL. I have not yet been able to find any good
information about Perl<->Solid on the web, so I was wondering if any of
you know what changes there are to be done in order to make it work.
Below are some examples from one of the scripts. Can I still use the
same Perl sytax and the DBI module, or do I have to use a different one?
Is the SQL syntax different when handling Solid database. If you see
something you know will not work with Solid I would be happy to know
about it.
#-----------------------------------------
use DBI;
$dbase="DBI:mysql:test";
$tabell="tblNews";
$here="newsedit.cgi";
$sth = $dbh->prepare("select NewsID from $tabell where title='$row[1]'")
or bad_in("Could not reopen added entry");
$rv = $sth->execute;
$rc = $dbh->do("insert into $tabell values ('', '$row[1]', '$row[2]',
'$row[3]', '$row[4]', '$row[5]', '$t')") or { &bad_dbi("Can not add the
entry.") };
$rc = $dbh->do("delete from $tabell where NewsID=$num") or &bad_dbi("Can
not remove the entry.");
$rc = $dbh->do("update $tabell set Bilde='$row[4]', Bildenavn='$row[5]',
title='$row[1]', ingress='$row[2]', maintext='$row[3]', Date='$t' where
NewsID='$num'") or &bad_dbi("Can not update the entry.");
#-------------------------------------------
I'm not a very experianced programer (Have hobby experience from the
Amiga only). Since this is my first job, there is a deadline closing in
etc, I would be very happy for any help on this case (Email would be
nice). Thanks for your time!
Regards
Hauk Langlo
----------------------------------
Hauk Langlo
Hauk@forumnett.no
http://www.forumnett.no/~hauk
(+047) 93438940
----------------------------------
------------------------------
Date: Wed, 29 Jul 1998 13:52:47 +0100
From: "Martin" <minich@globalnet.co.uk>
Subject: Re: Nead a Redir Script, Please
Message-Id: <6pn60u$7k$1@heliodor.xara.net>
I've had an idea as to how you can hide the URL from your browser
but you'll have to e-mail me for it. Reply to this e-mail with your
address and I'll send you the suggestion.
Martin
------------------------------
Date: 29 Jul 1998 12:29:25 GMT
From: aajii@aajii.ton.tut.fi (Antti-Jussi Korjonen)
Subject: Re: Net::Telnet -like module without telnet
Message-Id: <6pn4j5$k7s$1@baker.cc.tut.fi>
: Why don't you just have the computer telnet to itself? Unless you've got
: this happening many times at once, the use of various limited resources
: probably isn't enough of a concern to merit rewriting your program.
: miguel
Then there would have to be an account to log onto. So there would be
a possible security hole. The code will be in public use.
Telnetting back to itself would be a bit nasty.
I'd like to do this "the right way"...
--
__/ __/ __/ __/ Antti-Jussi Korjonen
__/ __/ __/ __/ __/__/ Vaajakatu 5 D 85
__/ __/ __/ __/ __/__/ 33720 TAMPERE, FINLAND
__/ __/ __/__/__/ __/ __/ tel. +358-(0)40-577 83 23
Antti-Jussi.Korjonen@sonera.fi
--------->> http://www.students.tut.fi/~k150556 <<---------
------------------------------
Date: 29 Jul 1998 12:50:20 GMT
From: aajii@aajii.ton.tut.fi (Antti-Jussi Korjonen)
Subject: Re: Net::Telnet -like module without telnet
Message-Id: <6pn5qc$mf3$1@baker.cc.tut.fi>
This works, almost. The problem is that output goes to stdout
instead of $system.
$prompt="ready:";
use Expect;
$Expect::Log_Stdout=0;
$Expect::Debug=0;
$Expect::Exp_Internal=0;
$pad=Expect->spawn('/opt/SUNWconn/bin/pad',$command_port);
$pad->expect(3,'Connected') or die "Cannot connect to pad
$command_port.\nPossible reason: somebody else is using it.\n\n";
print $pad $password,"\r";
$pad->expect(3,$prompt);
print $pad "sy\r";
#------------------------------------------------------------------
$pad->interact($system,'ready:'); #<--------- this line here
#the output is correct but it should not go to stdin, but to $system
#------------------------------------------------------------------
$pad->expect(3,$prompt);
print $pad "d\r";
$pad->expect(3,'Call Cleared - DTE Originated (0000)');
$pad->hard_close();
--
__/ __/ __/ __/ Antti-Jussi Korjonen
__/ __/ __/ __/ __/__/ Vaajakatu 5 D 85
__/ __/ __/ __/ __/__/ 33720 TAMPERE, FINLAND
__/ __/ __/__/__/ __/ __/ tel. +358-(0)40-577 83 23
Antti-Jussi.Korjonen@sonera.fi
--------->> http://www.students.tut.fi/~k150556 <<---------
------------------------------
Date: Wed, 29 Jul 1998 11:26:31 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: Newbie: extracting fields
Message-Id: <35BF0849.7F9DE6CC@shaw.wave.ca>
greggman@my-dejanews.com wrote:
>
> I'm reading a file one line at a time. A typical line looks like this
>
> .fdata.s f'33.011974, f'50.352013, f'-30.042702 ; max
>
> How do I get $1, $2 and $3 to be 33.011974, 50.352013, -30.042702
> respectively?
>
...
> all I'm trying to do is this
>
> print "$1, $2, $3,\n";
>
Try this:
my $line =
" .fdata.s f'33.011974, f'50.352013, f'-30.042702 ; max";
print join(', ', $line =~ /(-?\d+\.?\d*)/g, "\n");
See perlfaq4, "How do I determine whether a scalar is a
number/whole/integer/float?" for more info.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Wed, 29 Jul 1998 07:06:14 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Newbie: extracting fields
Message-Id: <m73np6.hl.ln@localhost>
greggman@my-dejanews.com wrote:
: I'm sorry this is such a basic question but I've been looking for over 2
: hours for the answer. I must be an idiot. That includes looking in the
: current perl docs/faq etc. Maybe I just don't know what to search for. I
: could have had this finished in C in about 2 mintues. I need to learn perl
: better.
: I'm reading a file one line at a time. A typical line looks like this
: .fdata.s f'33.011974, f'50.352013, f'-30.042702 ; max
: How do I get $1, $2 and $3 to be 33.011974, 50.352013, -30.042702
: respectively?
($first, $second, $third) = /f'([^, ]+)/g;
start matching at "f-prime" (f')
stop matching at first comma or space
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 29 Jul 1998 13:38:53 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Newbie: extracting fields
Message-Id: <6pn8ld$6nj$1@client3.news.psi.net>
greggman@my-dejanews.com (greggman@my-dejanews.com) wrote on MDCCXCIII
September MCMXCIII in <URL: news:6pmodc$tev$1@nnrp1.dejanews.com>:
++ I'm reading a file one line at a time. A typical line looks like this
++
++ .fdata.s f'33.011974, f'50.352013, f'-30.042702 ; max
++
++ How do I get $1, $2 and $3 to be 33.011974, 50.352013, -30.042702
++ respectively?
++
++ I tried this
++
++ /\s*fdata\.s\sf\'([\d\.\-]+),\sf\'([\d\.\-]+),\sf\'([\d\.\-]+).*/;
\s matched exactly one character. It looks like you have 2 spaces between
".fdata.s" and "f'33.011974".
I would have written it as:
@numbers = $str =~ /f'([^,]*),/g;
Abigail
--
perl -e '$a = q 94a75737420616e6f74686572205065726c204861636b65720a9 and
${qq$\x5F$} = q 97265646f9 and s g..g;
qq e\x63\x68\x72\x20\x30\x78$&eggee;
{eval if $a =~ s e..eqq qprint chr 0x$& and \x71\x20\x71\x71qeexcess}'
------------------------------
Date: Wed, 29 Jul 1998 07:51:40 -0500
From: quinn coldiron <qcoldiro@deal.unl.edu>
Subject: pattern matching
Message-Id: <35BF1ADB.DF6158C5@deal.unl.edu>
I am trying to build a tree of subdirectories on Linux and am currently
using this procedure to do it.
I issue the command
@ret = `du -S`
which gives me a dump of all the sub directories in the current
directory, which I can then sequentially go through and print, or do
what ever with. The problem is the format of each returned line:
114 ./citv-home/httpd/html/deal/4Hnew/images/frontpics
14 ./citv-home/httpd/html/deal/4Hnew/images/front/.AppleDouble
31 ./citv-home/httpd/html/deal/4Hnew/images/front
34 ./citv-home/httpd/html/deal/4Hnew/images
1 ./citv-home/httpd/html/deal/4Hnew
It has a fixed number of characters until the actual directory path is
listed. How can I chop this line up to get the data I want?
I found a bit of code to do this with a date string in a calendar
program I have, but can't figure out how to modify it. It looks like
this:
($dateyear,$dateday,$datemonth) = $date =~ m#(\d\d\d\d)(\d\d)(\d\d)#o;
quinn
--
------------------------------------------
Quinn P. Coldiron
DEAL Lab
03 AG Comm
472-5249
qcoldiro@unlinfo.unl.edu
******* http://citv.unl.edu/linux/ *******
------------------------------------------
------------------------------
Date: 29 Jul 1998 13:48:50 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: Perl Embed Win32 C++
Message-Id: <6pn982$64d$2@msunews.cl.msu.edu>
Ed <ed@pdh.com> wrote:
: void main(argc, argv)). I will know the argument (single argument) and
: the perl program name. I have not seen any really good examples of how
: to do this. Does anyone have any ideas?
char *dummy_argv[] = {"argument", NULL"}
-dan
--
Dan Nguyen | There is only one happiness in
nguyend7@msu.edu | life, to love and be loved.
http://www.cse.msu.edu/~nguyend7 | -George Sand
------------------------------
Date: Wed, 29 Jul 1998 13:31:15 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Perl/X11 CONUNDRUM
Message-Id: <Ewuyw3.Ipz@world.std.com>
kj0@mailcity.com writes:
>I've racked my brain over this one, but I can't come even close to a
>solution: how to fork a child on its own xterm (or xwsh, etc.)
>window, while retaining the possibility of 2-way communication between
>child and parent.
Xterm has an option that specifies the name of a pty to communicate
through. So if you use the IO::Pty module
<URL:http://reference.perl.com/module.cgi?IO::Pty> to create a new
pty, and then tell xterm to use that pty, you may get something like
what you want.
--
Andrew Langmead
------------------------------
Date: Wed, 29 Jul 1998 15:06:26 +0200
From: Klaus Halbig <halbig@sbs.de>
Subject: Problem while make(ing) on POSIX (BS2000)
Message-Id: <35BF1E51.653986C@sbs.de>
I'm trying to port perl(5.005) to BS2000 (Siemens-Nixdorf) in it's
subsystem POSIX.
After a Configure with mostly std-answers and no problems I happily
typed in 'make'.
That results in:
% CPP2046 [error]: *POSIX(/user/a9013/src/perl5.005/gv.c) / 764 :
'case 5'
has already been specified at line 759
Looking in gv.c I see:
757 case '\001':
758 case '\004':
759 case '\005':
760 case '\006':
761 case '\010':
762 case '\017':
763 case '\t':
764 case '\020':
765 case '\024':
766 case '\027':
767 if (len > 1)
768 break;
769 goto magicalize;
770
771 case '+':
Due to BS2000 is an EBCDIC-System I think that line 759 and 763
represent
the same value.
Does anybody know my problem and can help me? This is my
first-time-porting!
It would be very kind to send answers to my mailbox (
mailto:halbig@sbs.de ) too.
Thanks in advance,
Klaus
--
--------------------------------------------------------------------
Klaus Halbig Siemens Nixdorf Business Services GmbH & Co. OHG
Wuerzburgerstrasse 121 90744 Fuerth Germany
intranet:Klaus.Halbig@fth2.siemens.net fax:+49 911 978 103147
internet:halbig@sbs.de phone:+49 911 978 3147
IP 21 F http://www.scn.de/~halbig
--------------------------------------------------------------------
-Minds are like parachutes - they only function when open-
--------------------------------------------------------------------
------------------------------
Date: 29 Jul 1998 13:12:35 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: Programmer's Editor
Message-Id: <slrn6ru7tr.mme.gabor@vnode.vmunix.com>
In comp.lang.perl.misc, Tom Christiansen <tchrist@mox.perl.com> wrote :
# [courtesy cc of this posting sent to cited author via email]
#
# In comp.lang.perl.misc, xidicone@iname.com writes:
# :The latest version of the Zeus programmers text editor is now available:
#
# Several questions unrelated to your product's alleged technical wizardry:
#
# Is this free?
# Is source available?
# Does it run on Unix?
#
# If the answers to these are no, why are you advertising here? :-(
The question is, why is he advertising here at all. This is the last
place I would look if I were looking for an editor. It's sort of
like, does one go looking for cars in a grocery store? I would hope
not.
------------------------------
Date: 29 Jul 1998 13:45:50 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: Programmer's Editor
Message-Id: <6pn92e$64d$1@msunews.cl.msu.edu>
Gabor <gabor@vmunix.com> wrote:
: In comp.lang.perl.misc, Tom Christiansen <tchrist@mox.perl.com> wrote :
: The question is, why is he advertising here at all. This is the last
: place I would look if I were looking for an editor. It's sort of
: like, does one go looking for cars in a grocery store? I would hope
: not.
They saw 'comp' and just assummed we would be interested. I'd be
supprised if they even knew what perl is. Let along what unix is.
-dan
--
Dan Nguyen | There is only one happiness in
nguyend7@msu.edu | life, to love and be loved.
http://www.cse.msu.edu/~nguyend7 | -George Sand
------------------------------
Date: Wed, 29 Jul 1998 14:36:46 +0300
From: Gil <gile@zapex.co.il>
Subject: Shell script returning statistics data
Message-Id: <35BF094E.41E0@zapex.co.il>
Hi,
I am running a Perl script that executes some shell commands. From time
to time the script ends with the following (or similar)
statistics data:
'86.67u 14.98s 2:25.42 69.9%'
Does someone knows what the origin of this message ? How can it be
canceled ?
--
Regards,
***********************************
Elias Gil
e-mail: gile@zapex.co.il
***********************************
------------------------------
Date: Wed, 29 Jul 1998 13:08:15 +0100
From: "Martin" <minich@globalnet.co.uk>
Subject: Re: striphtml.pl and Win32 Perl 5.004
Message-Id: <6pn3cd$rrt$1@heliodor.xara.net>
>I downloaded striphtml.pl from CPAN and tried to run it under QUB's perl
>for cygwin32 and under the binary win32 perl. Both are version 5.004. I
>get the following error:
Does striphtml just remove all of the tags from a paragraph? If so, why
not use:
$paragraph_to_be_scanned =~ s/<(.*?)>//sig;
That should remove all of the HTML tags.
Martin
------------------------------
Date: 29 Jul 1998 09:25:56 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: "Martin" <minich@globalnet.co.uk>
Subject: Re: striphtml.pl and Win32 Perl 5.004
Message-Id: <u340pwcr.fsf@mailhost.panix.com>
"Martin" <minich@globalnet.co.uk> writes:
> Does striphtml just remove all of the tags from a paragraph? If so, why
> not use:
>
> $paragraph_to_be_scanned =~ s/<(.*?)>//sig;
>
> That should remove all of the HTML tags.
Oh, you mean like this one?
<img src="foo.jpg" alt="-->" width=123 height=321>
You must parse HTML; it cannot be done with regexen.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: Wed, 29 Jul 1998 15:02:47 +0100
From: "Martin" <minich@globalnet.co.uk>
Subject: Re: striphtml.pl and Win32 Perl 5.004
Message-Id: <6pna49$34n$1@heliodor.xara.net>
> <img src="foo.jpg" alt="-->" width=123 height=321>
Duh! I hadn't thought of that. What about this instead though:
$_ = $paragraph;
do {
if ( /<(.*?)>/s ) {
$after = $';
$temp = $1;
$temp =~ s/\"(.*?)\"//g;
$_ = $temp;
if ( /\"/ ) {
$_ = "<$after";
}
else {
$_ = $after;
}
}
else {
$stop="yes";
}
} until $stop eq "yes";
Martin
(I haven't had time to test this!)
------------------------------
Date: 29 Jul 1998 04:01:30 PDT
From: "Sam Irion" <persoft@concentric.net>
Subject: Re: Submit only Once
Message-Id: <6pmvea$dj3@journal.concentric.net>
Thanks for the help Abigail! Congrats on being the first to post that my
question has nothing to do with Perl.
Abigail wrote:
>++ Can anyone give me any advice or direction on how to prevent the user
from
>++ using the browser's back button to go back to a form and repost it?
>
>You can't. And that has nothing to do with Perl.
>
>
>
>Abigail
>--
>perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: 29 Jul 1998 04:01:33 PDT
From: "Sam Irion" <persoft@concentric.net>
Subject: Re: Submit only Once
Message-Id: <6pmved$dj3@journal.concentric.net>
Thanks, Malcolm. I think this is what I am after. Not wanting foolproof
solution but something to reduce the junk. IOW, two emails for each post.
BTW, are you an old Clipperhead.... seems I remember the name from the CIS
forum days in the 80's?
>There are several things you can do. None of which has anything
>to do with Perl really :-)
>
>For example, have the form processing script prevent more
>than "x" submissions from the same IP address in "y" seconds.
>
>Not totally foolproof but it will prevent a good deal of "spew".
>
>
>--
>|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
>| Malcolm Hoar "The more I practice, the luckier I get". |
>| malch@malch.com Gary Player. |
>| http://www.malch.com/ Shpx gur PQN. |
>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: 29 Jul 1998 11:05:52 GMT
From: friebel@moira.ifh.de (Wolfgang Friebel)
Subject: Re: Test failures compiling perl5.005 (Linux)
Message-Id: <6pmvmg$f46$1@pandora.ifh.de>
Mystic Zen Biker Twigboy (alaric@babcom.com) wrote:
: The following test failures were reported from 'build_dir/perl harness'
: after compiling perl5.005 i586-linux-thread on a linux-2.0.35 system using
: libc-5.4.46, linusthreads-0.6, and egcs-1.0.3a:
...
: Failed 14/186 test scripts, 92.47% okay. 181/6428 subtests failed, 97.18%
: okay.
I did compile both with and without threads the 5.005_01 version on a
Linux 2.0.30 system (SuSE distribution) and got almost identical
failure reports.
When calling the test suite with the old perl (5.004) the number of
failures reduced to the following two:
lib/db-hash.......Can't call method "STORE" on an undefined value at
lib/db-hash.t line 94.
FAILED at test 15
lib/open3.........open3: open(GLOB(0x80d23e8), >&FHOPEN019) failed:
Illegal seek at lib/open3.t line 113
FAILED at test 17
As most of the failing tests have somehow to to with I/O I guess. that
at least for Linux the 5.005 version compiled with gcc 2.7.2.1 is not
ok.
--
Wolfgang Friebel
Deutsches Elektronen-Synchrotron DESY | Phone: +49 33762 77372 |
Platanenallee 6 | Fax: +49 33762 77216 |
D-15738 Zeuthen Germany | E-Mail: friebel@ifh.de |
------------------------------
Date: Wed, 29 Jul 1998 12:41:51 GMT
From: garp@callscan.com.nospam (Garp)
Subject: Re: Try perl on Ms Dos
Message-Id: <35bf187b.78934742@gleng>
On Mon, 27 Jul 1998 21:01:01 +0400, Suruchi
<sursood@mail.emirates.net.ae> wrote:
>Hi Everyone
>i would like to try executing some perl scripts on my stand alone pc. I
>know that perl compiel is available for Ms Dos. i've downloaded it but i
>can't save my file with the extention .pl . can some one help me.
>i'm using notepad to make the program.
You want to save it in "double quotes" - otherwise Notepad will assume
it's a text file and append ".txt". Or turn the Save As Type to "all
files".
--
Cheers,
Garp
------------------------------
Date: Wed, 29 Jul 1998 10:27:59 +0100
From: "Simon Fairey" <simonf@conduit.co.uk>
Subject: Re: Web Database Access with sub-queries.
Message-Id: <35beea3e.0@nnrp1.news.uk.psi.net>
Try putting the user and password etc in a file somewhere safe and then
'require' that file in the BEGIN{} block of your code then you can use the
env vars when you open the connection.
i.e.
Your required file might have:
$ENV{USER} = 'oracledba';
$ENV{PASS} = 'qwerty';
Then in the main script simply open the connection using the env vars and
make sure the file containing the env vars is not accessible to someone
through the web.
Hope this makes sense, if not shout as I am doing exactly this sorta thing
at the moment.
Simon
danzuck@my-dejanews.com wrote in message
<6pll4t$9ji$1@nnrp1.dejanews.com>...
>I have an interactive page that does Oracle queries (DBD::Oracle). My
search
>results creates a list of DB rows, some of these rows you can drill down
on.
>I have to use <HREF=xxx.pl?user=xxx&pass=xxx&etc.> this shows up on the
>Location bar. Does anyone have an idea how to get around this?
>
>-----== Posted via Deja News, The Leader in Internet Discussion ==-----
>http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 29 Jul 1998 09:25:43 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: why is clpm generally used rather than clp?
Message-Id: <fl_aggie-2907980925430001@aggie.coaps.fsu.edu>
In article <35BEAAB9.26A914C9@selectst.com>, David Coldrick
<davidc@selectst.com> wrote:
+ Dumb question time. Is there any reason why this newsgroup is used for
+ perl questions/answers rather than comp.lang.perl? Presumably there's
+ some history to it . . .
'cause clp doesn't exist?
James - no, really...
------------------------------
Date: 29 Jul 1998 13:09:06 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: Zombies from Forking are Bad, says Sun
Message-Id: <slrn6ru7nb.mme.gabor@vnode.vmunix.com>
In comp.lang.perl.misc, Steve Livingston <slivings@digitalriver.com> wrote :
# I've got a perl daemon that runs continuously, forking children that do
# stuf and then exit (simplified code below).
#
# I run sparc/solaris/perl5.00404.
#
# Each of the children leaves a Zombie process (seen by 'top') and I often
# get many thousands of these Zombies, which _appear_ to go away when I
# restart the daemon..
#
# Sun kernel engineers tell me having this many zombies is bad, and may be
# causing a unix/memory-being-stepped-on problem I'm having.
#
# They said that this many zombied/defunct is very unusual and
# zombied/defunct processes behave strangely. They said that a lot of
# times they will not clear until the system reboots. They said just
# because you kill the zombied/defunct processes does not mean the kernel
# frees them and that they have gone away.
#
# Can anyone shed any light on this?
You must wait for your dying children. ;)
use POSIX qw(:sys_wait_h);
$SIG{CHLD} = \&my_reaper;
sub my_reaper {
while(($child = waitpid(-1,POSIX::WNOHANG)) > 0) { }
}
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3284
**************************************
