[10661] in Perl-Users-Digest
Perl-Users Digest, Issue: 4253 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 19 07:07:24 1998
Date: Thu, 19 Nov 98 04:00:21 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 19 Nov 1998 Volume: 8 Number: 4253
Today's topics:
Closing a program running with Perl (Hawkwynd)
Cutting down refering URL to 30 symbols? (VYTiS)
Re: Help -- Shellsort with perl <mgregory@asc.corp.mot.com>
Re: Help! How to use m// with scalars containing backsl (Andre L.)
Re: Help! How to use m// with scalars containing backsl (Patrick Timmins)
Re: How do i trim a string in Perl?? blanchardo@my-dejanews.com
Re: How to parse a <SELECT ... MULTIPLE> list in script dave@mag-sol.com
Re: How to parse a <SELECT ... MULTIPLE> list in script <rlogsdon@io.com>
Re: Intermediate Perl questions (Bart Lateur)
Re: make ref to copy of data <xah@best.com>
Re: Need equivalent to a sh's export command. dave@mag-sol.com
Re: Perl Array Question? Anybody... (Patrick Timmins)
perl documentation date <xah@best.com>
perlcc mailing list <Ismer@oneMission.com>
perlcc <Ismer@oneMission.com>
Re: Possible bug in "sort" huntersean@hotmail.com
Re: Problem compiling with perl compiler B <Ismer@oneMission.com>
reference problem kjones@cib.org.uk
shopping cart <dpuryear@usa.net>
snoop'ing in perl <dwalu@csa.bu.edu>
Stop and start program within Perl (Hawkwynd)
Re: Win32 executing a .pl or .cgi <rlogsdon@io.com>
win32::odbc or adodb?? <psmith01@mindspring.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 19 Nov 1998 11:01:55 GMT
From: hawkwynd@adelphia.net (Hawkwynd)
Subject: Closing a program running with Perl
Message-Id: <3653f9d2.1812862@nntp.buf.adelphia.net>
I've been looking just about everywhere I can think of, with no luck to solve the easy one
(for some)
I need my script to stop a program running, (OmniHttp) perform some log manipulation and
backups, then restart the omnihttp server.
What are the system calls to allow this? Or, better put, what would the syntax of code be
to allow this
pseudo-code{
stop omniHTTPd;
perform functions;
start omniHTTPd;
exit();
Thanks!
-------------------------------
Hawkwynd's Web Server
All this stuff from a 486!
http://hawkwynd.tzo.com
-------------------------------
------------------------------
Date: Wed, 18 Nov 1998 17:17:33 GMT
From: vip@takas.lt (VYTiS)
Subject: Cutting down refering URL to 30 symbols?
Message-Id: <36530103.0@news.takas.lt>
Hello!
I have a problem when using $ENV{'HTTP_REFERER'}:
Sometimes this URL is longer than 50 or even more symbols.
And it messes up the page, so I'd like to ask if anyone would
tell me how to notice when it's over 30 symbols and if it is,
print only these first 30 symbols and "..."?
Like I have:
http://www.yahoo.com/cgi-bin/search?perl+example+or+just+anything&20
And I need:
http://www.yahoo.com/cgi-bin/s...
Any ideas?
Thanks a lot!
Vytis. :)
------------------------------
Date: 19 Nov 1998 16:35:00 +1030
From: Martin Gregory <mgregory@asc.corp.mot.com>
Subject: Re: Help -- Shellsort with perl
Message-Id: <r8emr02p6b.fsf@asc.corp.mot.com>
Dale Sutcliffe <dales@enhanced-performance.com> writes:
> Shellsort with perl seems to lock up my server, any ideas why?
Have you tried putting some prints in to see? Does it really lock up,
or just take a long time?
> for ($gap = $size/2; $gap > 0; $gap = $gap/2)
Hint: $gap is not an integer.
Cheers,
Martin.
------------------------------
Date: Thu, 19 Nov 1998 01:55:10 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: Help! How to use m// with scalars containing backslashes...?
Message-Id: <alecler-1911980155100001@dialup-595.hip.cam.org>
In article <72u5s5$h7f$4@mordred.cc.jyu.fi>, "markus.vuori"
<marvuo@batman.jytol.fi> wrote:
> Question:
>
> .. why doesn't it print anything?
Because you quotemeta'ed $p. This works:
$p = "subdir1\\subdir2\\subdir3\\";
$q = "subdir2\\subdir3\\";
if ($p =~ /\Q$q/) {
print "This works!\n";
}
For merely checking if $q is a substring of $p, this also works :
print "Woohoo!\n" if index ($p, $q) > -1;
HTH,
Andre
------------------------------
Date: Thu, 19 Nov 1998 07:26:33 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: Help! How to use m// with scalars containing backslashes...?
Message-Id: <730h70$mn7$1@nnrp1.dejanews.com>
In article <72u5s5$h7f$4@mordred.cc.jyu.fi>,
"markus.vuori" <marvuo@batman.jytol.fi> wrote:
> Case:
>
> # I'd like write a CGI-script which checks whether
> # one path contains another. OS is Win NT 4.0.
>
> $p = "subdir1\\subdir2\\subdir3\\";
> $q = "subdir2\\subdir3\\";
>
> $p = quotemeta $p;
> $q = quotemeta $q;
>
> if ($p =~ /$q/) {
> print "This works!\n";
> }
>
> Question:
>
> .. why doesn't it print anything?
Escape regex meta carriers that appear in your strings
in the regex using a \Q (with a trailing \E, if you want it).
See perldoc perlre:
$p = "subdir1\\subdir2\\subdir3\\";
$q = "subdir2\\subdir3\\";
if ($p =~ /\Q$q/) {
print "This works!\n";
}
This works!
Patrick Timmins
$monger{Omaha}[0]
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 19 Nov 1998 08:05:27 GMT
From: blanchardo@my-dejanews.com
Subject: Re: How do i trim a string in Perl??
Message-Id: <730jg1$oem$1@nnrp1.dejanews.com>
In article <72q6c3$pih$1@supernews.com>,
"xxx" <xx@xxx.com> wrote:
> Hi,
> How do i trim a string in Perl??
>
> I need to get rid of leading and trailing spaces in a string!
>
> Thanks in advance !
>
>
hi xxx,
try this :
$abc =~ s/^ *(.*) *$/$1/;
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 19 Nov 1998 11:44:54 GMT
From: dave@mag-sol.com
Subject: Re: How to parse a <SELECT ... MULTIPLE> list in script using a foreach loop?
Message-Id: <7310bl$358$1@nnrp1.dejanews.com>
Of course, if you're using CGI.pm then you have no problems at at all. If
you're expecting multiple values then the 'param' function will return a list
of values that can be assigned to an array.
use CGI;
my $page = CGI->new;
my $single = $page->param('single_value');
my @multiple = $page->param('multiple_value');
Just another good reason to switch to CGI.pm.
hth,
Dave...
In article <Pine.BSF.4.02A.9811190047300.28085-100000@dillinger.io.com>,
REUBEN LOGSDON <rlogsdon@io.com> wrote:
> with multi-select, the browser sends multiple name=value pairs in the post
> data or query. given the way some people parse teh form data, what
> happens is that you get only the last item. if you parse the form data
> right then $form{'ITEMS'} will have all the items comma-delimited. the
> way you have to parse it is:
>
> if ($ENV{'REQUEST_METHOD'} eq 'POST') {
> read(STDIN,$input,$ENV{'CONTENT_LENGTH'});
> }
> $input =~ tr/\+/ /;
> foreach (split(m/\&/,$input)) {
> next unless m/(.*?)\=(.*)/;
> if ($form{$1}) {
> $form{$1} .= ','.$2;
> }
> else {
> $form{$1} = $2;
> }
> }
>
> that doesn't handle the url encoding but you should get the idea (if not
> email me and i will send a complete sample).
>
> then all of your checkboxes are in the array (also i believe that if you
> are using CGI.pm then you only need this line here):
> @Checkboxes = split(m/\,/,$form{'ITEMS'});
>
> Regards,
> Reuben Logsdon
>
> On Wed, 18 Nov 1998, Sylvain Lavigne wrote:
>
> > I have a form with list with multiple items that can be selected.
> > In my script I refer to the variable as $form('ITEMS').
> > How can I parse that list using a foreach loop?
> >
> > foreach ....
> > {
> > print " ... \n";
> >
> > }
> >
> > THANK
> >
> >
> >
> >
> >
>
>
--
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 19 Nov 1998 00:55:23 -0600
From: REUBEN LOGSDON <rlogsdon@io.com>
To: Sylvain Lavigne <proband@cam.org>
Subject: Re: How to parse a <SELECT ... MULTIPLE> list in script using a foreach loop?
Message-Id: <Pine.BSF.4.02A.9811190047300.28085-100000@dillinger.io.com>
with multi-select, the browser sends multiple name=value pairs in the post
data or query. given the way some people parse teh form data, what
happens is that you get only the last item. if you parse the form data
right then $form{'ITEMS'} will have all the items comma-delimited. the
way you have to parse it is:
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN,$input,$ENV{'CONTENT_LENGTH'});
}
$input =~ tr/\+/ /;
foreach (split(m/\&/,$input)) {
next unless m/(.*?)\=(.*)/;
if ($form{$1}) {
$form{$1} .= ','.$2;
}
else {
$form{$1} = $2;
}
}
that doesn't handle the url encoding but you should get the idea (if not
email me and i will send a complete sample).
then all of your checkboxes are in the array (also i believe that if you
are using CGI.pm then you only need this line here):
@Checkboxes = split(m/\,/,$form{'ITEMS'});
Regards,
Reuben Logsdon
On Wed, 18 Nov 1998, Sylvain Lavigne wrote:
> I have a form with list with multiple items that can be selected.
> In my script I refer to the variable as $form('ITEMS').
> How can I parse that list using a foreach loop?
>
> foreach ....
> {
> print " ... \n";
>
> }
>
> THANK
>
>
>
>
>
------------------------------
Date: Thu, 19 Nov 1998 08:22:49 GMT
From: bart.mediamind@ping.be (Bart Lateur)
Subject: Re: Intermediate Perl questions
Message-Id: <3653d2f7.732699@news.skynet.be>
Markus Kaiser wrote:
>while( substr($_, -1, 1) eq "\x11" )
>{
> $_ = substr( $_, 0, length($_) -1 );
>}
If that's what you want, why not use:
s/\x11+$//;
Bart.
------------------------------
Date: Thu, 19 Nov 1998 03:02:52 -0800
From: "Xah" <xah@best.com>
Subject: Re: make ref to copy of data
Message-Id: <3653fadd$0$12775@nntp1.ba.best.com>
I (xah) wrote:
>I want to make a reference to a copy of a data. What is the idiomatic way?
>
>Here's what I do now
> &{sub {my @aa = @{$_[0]}; return \@aa;}}($ref_data)
I think I found the answer: use [@array].
The difference between "$ref = \@array" and "$ref2 = [@array]" is that
the former is a reference to @array, while the latter is a reference
to a copy of @array. The effect is that changes to @$ref will change @array,
but not so with @$ref2.
Am I not correct?
Xah, xah@best.com
http://www.best.com/~xah/PageTwo_dir/more.html
"unix = the world's most impressive shit pile"
------------------------------
Date: Thu, 19 Nov 1998 09:17:22 GMT
From: dave@mag-sol.com
Subject: Re: Need equivalent to a sh's export command.
Message-Id: <730nms$sdv$1@nnrp1.dejanews.com>
In article <36532a40.623599749@news.alpha.net>,
*ace*@programmer.net (Thomas Jordan) wrote:
> How do you modify the parent shell's environment?
>
> $ENV{CVSROOT}="/cvsroot";
>
> only changes the variable in the perl process.
>
> The following:
>
> system('export CVSROOT=/cvsroot');
>
> doesn't seem to work either.
You can't. This is nothing to do with Perl, but a feature of the operating
system. In general a child process can't alter the environment of its parent.
(You can't do it in the shell either. The export command you were trying makes
the variable available to child processes, not the parent.)
hth,
Dave...
--
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 19 Nov 1998 06:34:36 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: Perl Array Question? Anybody...
Message-Id: <730e5s$keb$1@nnrp1.dejanews.com>
In article <72tir2$5k0$1@nnrp1.dejanews.com>,
shazad@my-dejanews.com wrote:
> Hi perl people....
>
> Well, I am trying to compare two files which arrive randomly. Both file have
> the name harry common, but object and rules are different.(example below:)
>
> Subject: harry object # File1
>
> Subject: harry rules # File2
>
> WHen I run my perl script, I need to store:
> @myarray=("harry","object");
>
> After, the second file comes, I need to APPEND rules into @myarray, when it
> matches harry as the common field.
>
> But each time the second file parses...it overwrites
> @myarray=("harry","object");
> with
> @myarray=("harry","rules");
>
> How can I APPEND the second file "rules", so that
> @myarray=("harry","object","rule");
If I understand your situation:
while (<DATA>) {
if (/^(.+?):\s+((\S+)\s+(.*))\s?/) {
$header = $1;
@whole = split/\s+/, $2;
$key = $3;
@rest = split/\s+/, $4;
if (@{$type{$header}{$key}} eq undef) {
@{$type{$header}{$key}} = @whole;
} else {
foreach (@rest) {
push @{$type{$header}{$key}}, $_;
}
}
}
}
# That's it ! Your data structure exists (if I understand what you want)
# Now just print it out to demonstrate:
foreach $outer ( sort keys %type ) {
foreach $inner ( sort keys %{$type{$outer}} ) {
print "For header '$outer' with a key of '$inner', the array is:\n";
foreach $elem ( @{$type{$outer}{$inner}} ) {
print "$elem\n";
}
}
}
__DATA__
Subject: harry object
Subject: harry orange
To: johnny eats and sleeps
Subject: harry beige
Subject: tom teaches
To: johnny naps and reads
Subject: harry rules
Will print out:
For header 'Subject' with a key of 'harry', the array is:
harry
object
orange
beige
rules
For header 'Subject' with a key of 'tom', the array is:
tom
teaches
For header 'To' with a key of 'johnny', the array is:
johnny
eats
and
sleeps
naps
and
reads
Hope that helps.
Patrick Timmins
$monger{Omaha}[0]
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 19 Nov 1998 02:27:44 -0800
From: "Xah" <xah@best.com>
Subject: perl documentation date
Message-Id: <3653f2a3$0$12776@nntp1.ba.best.com>
Few questions on perl documentations:
1. Is there a date stamp (version number) for on-line perl documentation?
(e.g. I have access to Perl on several machines/OSes. Occasionally I noted that they
are not identical. How do I know which is the latest? or which
distributed with what version of Perl?)
2. was the chapter 2 of the Camel book identical
to on-line docs when the book went to print?
(i.e. does it contain more info than the on-line version?)
3. Who is maintaining core on-line docs? Can user contribute?
(perl on-line docs sucks big time.)
Xah, xah@best.com
http://www.best.com/~xah/PageTwo_dir/more.html
"unix = the world's most impressive shit pile"
------------------------------
Date: Thu, 19 Nov 1998 12:07:27 +0100
From: Christian Ismer <Ismer@oneMission.com>
Subject: perlcc mailing list
Message-Id: <3653FBEF.ABCCAA93@oneMission.com>
Is there a perlcc mailing list or do you know of any documentation?
--
Christian Ismer
----------------------------------------------------
Visit the new oneMission site!
http://oneMission.com/
----------------------------------------------------
------------------------------
Date: Thu, 19 Nov 1998 12:06:03 +0100
From: Christian Ismer <Ismer@oneMission.com>
Subject: perlcc
Message-Id: <3653FB9A.FF0D19FB@oneMission.com>
I have tried perlcc and got some error messages. Can you tell why I get
them? It seem to have something to do with use Socket; and use Fcntl; .
substcont: op = LOGOP (0x2d9660) pp_substcont, pmop = PMOP (0x2ce5c0)
pp_subst
pmopsym = (OP*)&pmop_list[19]
No definition for sub Socket::PF_INET
No definition for sub Socket::PF_INET (unable to autoload)
No definition for sub Socket::SOCK_STREAM
No definition for sub Socket::SOCK_STREAM (unable to autoload)
No definition for sub Fcntl::F_SETFL
No definition for sub Fcntl::F_SETFL (unable to autoload)
No definition for sub Fcntl::F_GETFL
No definition for sub Fcntl::F_GETFL (unable to autoload)
No definition for sub Fcntl::O_NONBLOCK
No definition for sub Fcntl::O_NONBLOCK (unable to autoload)
substcont: op = LOGOP (0xf5760) pp_substcont, pmop = PMOP (0xd6980)
pp_subst
pmopsym = (OP*)&pmop_list[29]
substcont: op = LOGOP (0xf7860) pp_substcont, pmop = PMOP (0xd69c0)
pp_subst
pmopsym = (OP*)&pmop_list[30]
substcont: op = LOGOP (0xd7fa0) pp_substcont, pmop = PMOP (0xd6840)
pp_subst
pmopsym = (OP*)&pmop_list[31]
No definition for sub Socket::SO_DONTROUTE
No definition for sub Socket::SO_DONTROUTE (unable to autoload)
No definition for sub Socket::SO_RCVTIMEO
No definition for sub Socket::SO_RCVTIMEO (unable to autoload)
No definition for sub Socket::AF_UNSPEC
No definition for sub Socket::AF_UNSPEC (unable to autoload)
No definition for sub Socket::MSG_MAXIOVLEN
No definition for sub Socket::MSG_MAXIOVLEN (unable to autoload)
No definition for sub Socket::SO_OOBINLINE
No definition for sub Socket::SO_OOBINLINE (unable to autoload)
No definition for sub Socket::AF_LAT
No definition for sub Socket::AF_LAT (unable to autoload)
No definition for sub Socket::AF_GOSIP
No definition for sub Socket::AF_GOSIP (unable to autoload)
No definition for sub Socket::SO_SNDLOWAT
No definition for sub Socket::SO_SNDLOWAT (unable to autoload)
No definition for sub Socket::PF_802
No definition for sub Socket::PF_802 (unable to autoload)
No definition for sub Socket::PF_APPLETALK
No definition for sub Socket::PF_APPLETALK (unable to autoload)
No definition for sub Socket::AF_HYLINK
No definition for sub Socket::AF_HYLINK (unable to autoload)
No definition for sub Socket::SO_DONTLINGER
No definition for sub Socket::SO_DONTLINGER (unable to autoload)
No definition for sub Socket::PF_NBS
No definition for sub Socket::PF_NBS (unable to autoload)
No definition for sub Socket::AF_ECMA
No definition for sub Socket::AF_ECMA (unable to autoload)
No definition for sub Socket::SO_RCVBUF
No definition for sub Socket::SO_RCVBUF (unable to autoload)
No definition for sub Socket::SOCK_RDM
No definition for sub Socket::SOCK_RDM (unable to autoload)
No definition for sub Fcntl::O_BINARY
No definition for sub Fcntl::O_BINARY (unable to autoload)
No definition for sub Socket::SO_RCVLOWAT
No definition for sub Socket::SO_RCVLOWAT (unable to autoload)
No definition for sub Fcntl::O_CREAT
No definition for sub Fcntl::O_CREAT (unable to autoload)
No definition for sub Fcntl::O_APPEND
No definition for sub Fcntl::O_APPEND (unable to autoload)
No definition for sub Fcntl::O_ASYNC
No definition for sub Fcntl::O_ASYNC (unable to autoload)
No definition for sub Socket::AF_MAX
No definition for sub Socket::AF_MAX (unable to autoload)
No definition for sub Socket::SO_KEEPALIVE
No definition for sub Socket::SO_KEEPALIVE (unable to autoload)
No definition for sub Socket::AF_CCITT
No definition for sub Socket::AF_CCITT (unable to autoload)
No definition for sub Socket::MSG_OOB
No definition for sub Socket::MSG_OOB (unable to autoload)
No definition for sub Fcntl::O_NDELAY
No definition for sub Fcntl::O_NDELAY (unable to autoload)
No definition for sub Fcntl::FD_CLOEXEC
No definition for sub Fcntl::FD_CLOEXEC (unable to autoload)
No definition for sub Fcntl::O_TEXT
No definition for sub Fcntl::O_TEXT (unable to autoload)
No definition for sub Fcntl::O_EXLOCK
No definition for sub Fcntl::O_EXLOCK (unable to autoload)
No definition for sub Socket::PF_X25
No definition for sub Socket::PF_X25 (unable to autoload)
No definition for sub Fcntl::F_DUPFD
No definition for sub Fcntl::F_DUPFD (unable to autoload)
No definition for sub Socket::AF_OSINET
No definition for sub Socket::AF_OSINET (unable to autoload)
No definition for sub Fcntl::O_TRUNC
No definition for sub Fcntl::O_TRUNC (unable to autoload)
No definition for sub Socket::AF_IMPLINK
No definition for sub Socket::AF_IMPLINK (unable to autoload)
No definition for sub Socket::PF_OSI
No definition for sub Socket::PF_OSI (unable to autoload)
No definition for sub Socket::SO_DEBUG
No definition for sub Socket::SO_DEBUG (unable to autoload)
No definition for sub Socket::AF_UNIX
No definition for sub Socket::AF_UNIX (unable to autoload)
No definition for sub Fcntl::O_DEFER
No definition for sub Fcntl::O_DEFER (unable to autoload)
No definition for sub Socket::SO_BROADCAST
No definition for sub Socket::SO_BROADCAST (unable to autoload)
No definition for sub Socket::AF_DECnet
No definition for sub Socket::AF_DECnet (unable to autoload)
No definition for sub Socket::AF_802
No definition for sub Socket::AF_802 (unable to autoload)
No definition for sub Fcntl::O_RDONLY
No definition for sub Fcntl::O_RDONLY (unable to autoload)
No definition for sub Socket::AF_NBS
No definition for sub Socket::AF_NBS (unable to autoload)
No definition for sub Socket::SOCK_DGRAM
No definition for sub Socket::SOCK_DGRAM (unable to autoload)
No definition for sub Fcntl::F_EXLCK
No definition for sub Fcntl::F_EXLCK (unable to autoload)
No definition for sub Socket::SO_ACCEPTCONN
No definition for sub Socket::SO_ACCEPTCONN (unable to autoload)
No definition for sub Socket::PF_CHAOS
No definition for sub Socket::PF_CHAOS (unable to autoload)
No definition for sub Socket::PF_DLI
No definition for sub Socket::PF_DLI (unable to autoload)
No definition for sub Socket::PF_SNA
No definition for sub Socket::PF_SNA (unable to autoload)
No definition for sub Fcntl::O_WRONLY
No definition for sub Fcntl::O_WRONLY (unable to autoload)
No definition for sub Fcntl::O_EXCL
No definition for sub Fcntl::O_EXCL (unable to autoload)
No definition for sub Fcntl::O_RSYNC
No definition for sub Fcntl::O_RSYNC (unable to autoload)
No definition for sub Socket::AF_DATAKIT
No definition for sub Socket::AF_DATAKIT (unable to autoload)
No definition for sub Fcntl::F_GETFD
No definition for sub Fcntl::F_GETFD (unable to autoload)
No definition for sub Socket::SOL_SOCKET
No definition for sub Socket::SOL_SOCKET (unable to autoload)
No definition for sub Fcntl::F_SETFD
No definition for sub Fcntl::F_SETFD (unable to autoload)
No definition for sub Socket::PF_NIT
No definition for sub Socket::PF_NIT (unable to autoload)
No definition for sub Fcntl::F_UNLCK
No definition for sub Fcntl::F_UNLCK (unable to autoload)
No definition for sub Socket::PF_UNSPEC
No definition for sub Socket::PF_UNSPEC (unable to autoload)
No definition for sub Socket::SO_TYPE
No definition for sub Socket::SO_TYPE (unable to autoload)
No definition for sub Socket::AF_X25
No definition for sub Socket::AF_X25 (unable to autoload)
No definition for sub Socket::PF_PUP
No definition for sub Socket::PF_PUP (unable to autoload)
No definition for sub Socket::AF_OSI
No definition for sub Socket::AF_OSI (unable to autoload)
No definition for sub Fcntl::F_SETLKW
No definition for sub Fcntl::F_SETLKW (unable to autoload)
No definition for sub Socket::PF_HYLINK
No definition for sub Socket::PF_HYLINK (unable to autoload)
No definition for sub Fcntl::O_SHLOCK
No definition for sub Fcntl::O_SHLOCK (unable to autoload)
No definition for sub Socket::PF_NS
No definition for sub Socket::PF_NS (unable to autoload)
No definition for sub Socket::PF_GOSIP
No definition for sub Socket::PF_GOSIP (unable to autoload)
No definition for sub Socket::SO_USELOOPBACK
No definition for sub Socket::SO_USELOOPBACK (unable to autoload)
No definition for sub Socket::SO_ERROR
No definition for sub Socket::SO_ERROR (unable to autoload)
No definition for sub Fcntl::O_RDWR
No definition for sub Fcntl::O_RDWR (unable to autoload)
No definition for sub Socket::SOCK_SEQPACKET
No definition for sub Socket::SOCK_SEQPACKET (unable to autoload)
No definition for sub Socket::AF_DLI
No definition for sub Socket::AF_DLI (unable to autoload)
No definition for sub Socket::AF_APPLETALK
No definition for sub Socket::AF_APPLETALK (unable to autoload)
No definition for sub Fcntl::F_SETOWN
No definition for sub Fcntl::F_SETOWN (unable to autoload)
No definition for sub Socket::AF_SNA
No definition for sub Socket::AF_SNA (unable to autoload)
No definition for sub Socket::PF_IMPLINK
No definition for sub Socket::PF_IMPLINK (unable to autoload)
No definition for sub Socket::PF_ECMA
No definition for sub Socket::PF_ECMA (unable to autoload)
No definition for sub Socket::AF_INET
No definition for sub Socket::AF_INET (unable to autoload)
No definition for sub Socket::PF_LAT
No definition for sub Socket::PF_LAT (unable to autoload)
No definition for sub Fcntl::F_POSIX
No definition for sub Fcntl::F_POSIX (unable to autoload)
No definition for sub Socket::SO_SNDBUF
No definition for sub Socket::SO_SNDBUF (unable to autoload)
No definition for sub Socket::PF_OSINET
No definition for sub Socket::PF_OSINET (unable to autoload)
No definition for sub Fcntl::F_WRLCK
No definition for sub Fcntl::F_WRLCK (unable to autoload)
No definition for sub Socket::PF_CCITT
No definition for sub Socket::PF_CCITT (unable to autoload)
No definition for sub Socket::AF_NIT
No definition for sub Socket::AF_NIT (unable to autoload)
No definition for sub Socket::AF_CHAOS
No definition for sub Socket::AF_CHAOS (unable to autoload)
No definition for sub Socket::AF_PUP
No definition for sub Socket::AF_PUP (unable to autoload)
No definition for sub Socket::SO_REUSEADDR
No definition for sub Socket::SO_REUSEADDR (unable to autoload)
No definition for sub Socket::SO_LINGER
No definition for sub Socket::SO_LINGER (unable to autoload)
No definition for sub Socket::AF_NS
No definition for sub Socket::AF_NS (unable to autoload)
No definition for sub Socket::PF_DECnet
No definition for sub Socket::PF_DECnet (unable to autoload)
No definition for sub Socket::MSG_DONTROUTE
No definition for sub Socket::MSG_DONTROUTE (unable to autoload)
No definition for sub Socket::MSG_PEEK
No definition for sub Socket::MSG_PEEK (unable to autoload)
No definition for sub Fcntl::O_NOCTTY
No definition for sub Fcntl::O_NOCTTY (unable to autoload)
No definition for sub Fcntl::F_RDLCK
No definition for sub Fcntl::F_RDLCK (unable to autoload)
No definition for sub Socket::SOMAXCONN
No definition for sub Socket::SOMAXCONN (unable to autoload)
No definition for sub Fcntl::F_SHLCK
No definition for sub Fcntl::F_SHLCK (unable to autoload)
No definition for sub Socket::PF_MAX
No definition for sub Socket::PF_MAX (unable to autoload)
No definition for sub Fcntl::F_GETLK
No definition for sub Fcntl::F_GETLK (unable to autoload)
No definition for sub Socket::SO_SNDTIMEO
No definition for sub Socket::SO_SNDTIMEO (unable to autoload)
No definition for sub Fcntl::F_SETLK
No definition for sub Fcntl::F_SETLK (unable to autoload)
No definition for sub Fcntl::O_SYNC
No definition for sub Fcntl::O_SYNC (unable to autoload)
No definition for sub Fcntl::O_DSYNC
No definition for sub Fcntl::O_DSYNC (unable to autoload)
No definition for sub Socket::PF_DATAKIT
No definition for sub Socket::PF_DATAKIT (unable to autoload)
No definition for sub Socket::PF_UNIX
No definition for sub Socket::PF_UNIX (unable to autoload)
No definition for sub Socket::SOCK_RAW
No definition for sub Socket::SOCK_RAW (unable to autoload)
No definition for sub Fcntl::F_GETOWN
No definition for sub Fcntl::F_GETOWN (unable to autoload)
No definition for sub Fcntl::O_ACCMODE
No definition for sub Fcntl::O_ACCMODE (unable to autoload)
--
Christian Ismer
----------------------------------------------------
Visit the new oneMission site!
http://oneMission.com/
----------------------------------------------------
------------------------------
Date: Thu, 19 Nov 1998 07:29:15 GMT
From: huntersean@hotmail.com
Subject: Re: Possible bug in "sort"
Message-Id: <730hc1$mur$1@nnrp1.dejanews.com>
In article <3fgu27.cta.ln@flash.net>,
tadmc@flash.net (Tad McClellan) wrote:
> huntersean@hotmail.com wrote:
> : I have recently discovered what I think may be a bug in the way perl parses
...
>
> As another followup pointed out, it sounds like it is a feature
> rather than a bug. ;-)
>
> Anyway, to get the job done, you could use the 'sort BLOCK' form,
> then use a symbolic reference in the block:
>
> print join ' ', sort {&{$hash{order}}} @array;
>
Of course I know you can do that. The fact that the scalar has to be
unsubscripted still seems to me to be a somewhat arbitrary restriction, and at
the very least, the error message is garbage.
Sean
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 19 Nov 1998 12:02:59 +0100
From: Christian Ismer <Ismer@oneMission.com>
To: "Bryan M. Kramer" <kramer@techne.ca>
Subject: Re: Problem compiling with perl compiler B
Message-Id: <3653FAE3.338F91C0@oneMission.com>
I have the same problem:
substcont: op = LOGOP (0x2d9660) pp_substcont, pmop = PMOP (0x2ce5c0) pp_subst
pmopsym = (OP*)&pmop_list[19]
No definition for sub Socket::PF_INET
No definition for sub Socket::PF_INET (unable to autoload)
...
Seems the compiler can't find any modules? I have got no clue.
"Bryan M. Kramer" wrote:
> I'm trying out the experimental compiler that comes with perl 5.005.
>
> I'm getting the message
>
> No definition for sub Getopt::Long::GetOptions
> No definition for sub Getopt::Long::GetOptions (unable to autoload)
>
> when compiling as below:
--
Christian Ismer
----------------------------------------------------
Visit the new oneMission site!
http://oneMission.com/
----------------------------------------------------
------------------------------
Date: Thu, 19 Nov 1998 11:34:16 GMT
From: kjones@cib.org.uk
Subject: reference problem
Message-Id: <730vno$2n5$1@nnrp1.dejanews.com>
I'm faced with the following problem:
If I execute the following:
$hash{test} = "Fred";
$line = "fred bill $hash{test}\n";
chop $line;
($dummy, $name, $value) = split /\t/, $line;
print "$value\n";
then I get "Fred" printed, as you'd expect.
But if I do the following:
$hash{test} = "Fred";
open INF, "test.dat" or die "$!";
$line = <INF>;
chop $line;
($dummy, $name, $value) = split /\t/, $line;
print "$value\n";
Where test.dat contains
fred bill $hash{test}\n
Then I get "$hash{test}" output!
I've got two questions on this:
1. What's going on?
2. How do I get the second one to output the value of $hash{test}?
Thanks,
Keith
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 19 Nov 1998 03:29:06 -0600
From: Dustin Puryear <dpuryear@usa.net>
Subject: shopping cart
Message-Id: <911467877.1911776447@news.mindspring.com>
I'm looking for a free shopping cart program that is well documented. Any
suggestions?
Regards, Dustin
--
Dustin Puryear, student, Louisiana State University
dpuryear@usa.net * ICQ 6644253
Help Crack Government Encryption: www.distributed.net
------------------------------
Date: 19 Nov 1998 04:23:46 -0500
From: Dwalu Khasu <dwalu@csa.bu.edu>
Subject: snoop'ing in perl
Message-Id: <wvkzp9o828t.fsf@csa.bu.edu>
Can anyone point me to perl modules/libraries/programs
that are used to interpret network packets? I'd like to do
something 'snoopish' using perl for a network emulation project
Thanx much!
- Dwalu
.peace
--
I am an important person in this world -
Now is the most important time in my life -
My mistakes are my best teachers -
So I will be fearless.
- Student Creed
------------------------------
Date: Thu, 19 Nov 1998 11:21:20 GMT
From: hawkwynd@adelphia.net (Hawkwynd)
Subject: Stop and start program within Perl
Message-Id: <3653fd65.2728017@nntp.buf.adelphia.net>
Looking for help with my script, which renames the access.log file, for my server,
OmniHttpd. It works well, with one small problem. I have to stop the OmniHttpd server
manually, run this script and restart the server.
What I would like to do is have Perl stop the service, perform the script, and then start
the OmniHttpd again to resume activity. The access.log file is open while the server is
running, and will not allow for file manipulation.
Any assistance with this would be appreciated.
The code has been altered to preserve bandwidth.
@days = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sun
day");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon++;
$year += 1900;
$mday = "0" . $mday if ($mday < 10);
$mon = "0" . $mon if ($mon < 10);
if ($wday == 0) {
if (-f $oldlog) {
print "\n " . $year . $mon . $mday . ".log already exists, rename aborted.\n";
exit();
} else {
<-----------------------------------Stop Server software here
rename($logfile, $oldlog);
print "\n Renaming $logfile to " . $year . $mon . $mday . ".log..\n";
<-----------------------------------Restart Server software here
exit();
}
} else {
print "\n It's not Sunday, rename aborted. ($days[$wday])\n";
print "\n($days[$isdst])\n";
exit();
}
Visit Hawkwynd's Personal Web Server - Windows 98
Shoot from the desktop!
http://hawkwynd.tzo.com
------------------------------
Date: Thu, 19 Nov 1998 00:43:18 -0600
From: REUBEN LOGSDON <rlogsdon@io.com>
To: Don Silvia <dlsilvia@mediaone.net>
Subject: Re: Win32 executing a .pl or .cgi
Message-Id: <Pine.BSF.4.02A.9811190039170.28085-100000@dillinger.io.com>
try typing "set" at the command prompt to see what PATH is equal to. if
it's missing c:\perl\bin then you can add it with the line:
set PATH=%PATH%;c:\perl\bin;
in your c:\autoexec.bat file. sometimes the path doesn't get set right
on win95. You can also cut n' paste all files from \perl\bin into
\windows.
Regards,
Reuben Logsdon
On Wed, 18 Nov 1998, Don Silvia wrote:
> I can type "perl myscript.pl" to run a script on NT4, but not on win95,
> though I swear I had it working at my last job. Anyone got this working on
> win95?
[snip]
------------------------------
Date: Thu, 19 Nov 1998 02:04:55 -0500
From: Peter Smith <psmith01@mindspring.com>
Subject: win32::odbc or adodb??
Message-Id: <3653C317.E77167CB@mindspring.com>
I heard that using ado is faster and more flexible than the win32::odbc
module - according to some stuff at this page, anyway:
http://www.activestate.com/support/faqs/win32/perlwin32faq9.html#Is_there_a_way_to_use_OLE_Automa
Is this true? Why might I want to use one over the other? I used
Win32::odbc a year or so ago and it seemed to work fine...
--
--Peter--
psmith01@mindspring.com
------------------------------
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 4253
**************************************
