[13332] in Perl-Users-Digest
Perl-Users Digest, Issue: 742 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 8 15:07:22 1999
Date: Wed, 8 Sep 1999 12:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 8 Sep 1999 Volume: 9 Number: 742
Today's topics:
@INC paths <saprince@earthlink.net>
@INC missymanning@my-deja.com
Re: @INC (Greg Bacon)
Re: Array of array. <jc@austin.ibm.com>
CGI Script to execute script on a different server john_s_butler@my-deja.com
Re: CGI scripts that dont return headers <doveNOahSPAM@stanfordalumni.org>
Re: converting a number into a binary? (Larry Rosler)
Re: converting a number into a binary? (Greg Bacon)
Re: Help - Porting code from UNIX to NT <cLive@direct2u.co.uk>
Re: help: multithreading in perl <dan@tuatha.sidhe.org>
Re: How to display milliseconds <sariq@texas.net>
Re: large dataset problem <bigsleep@dircon.co.uk>
Newbie ?: @ARGV not getting command line arguments <Bryan.Ley@McHugh.com>
Re: Old Script Doesn't Like My New Perl? Help! <jeff@vpservices.com>
Re: Perl and Threads <dan@tuatha.sidhe.org>
Re: Perl and Threads <steve@nextopia.com>
perl.exes hanging around on NT balesn@my-deja.com
perl_call_pv bug ? <@cisco.com>
Smile... <nospam@nospam.de>
Re: Smile... (Lars-Åke Aspelin)
Re: Smile... <flabreq@ibm.net>
Re: Where can I find a free website hosting supportting <kperrier@blkbox.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 08 Sep 1999 15:08:30 -0500
From: Scott Prince <saprince@earthlink.net>
Subject: @INC paths
Message-Id: <37D6BD0D.5BE4DA7D@earthlink.net>
I have a script that dies with...
"Can't locate /home/sitex/www/adm/lib/some-lib.pl in @INC (@INC
contains: /usr/lib/perl5/ etc...) at /home/www/sitex/adm/script.pl"
/home/sitex/www is linked to /home/www/sitex, just like it is with
dozens of other accounts on the server. But the other sites all have
scripts that happily follow the symbolic link to the required files.
This also causes a problem when using something relative like...
require "./some-lib.pl";
What determines the default paths and how can I insure that Perl will
always follow the link to the files?
Scott
------------------------------
Date: Wed, 08 Sep 1999 18:32:57 GMT
From: missymanning@my-deja.com
To: manfam@neto.com
Subject: @INC
Message-Id: <7r6a4p$s49$1@nnrp1.deja.com>
I am converting a script from unix to nt and having some
problems...please help me.
My script is trying to run and gives me this:
[Wed Sep 8 14:13:36 1999] Record.pm: Can't locate Record.pm in @INC
(@INC contains: C:/Perl/lib
C:/Perl/site/lib .) at F:\Inetpub\wwwroot\staging\cgi-bin\doadmin.pl
line 61. BEGIN
failed--compilation aborted at
F:\Inetpub\wwwroot\staging\cgi-bin\doadmin.pl line 61.
I realize that it is not finding the file. The file is located in the
cgi-bin and my code calls it here:
unshift(@INC, "/cgi-local/matrix1000");
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Record;
use LockDir;
my $Q = new CGI;
require '/cgi-bin/config.pl';
require './downline_module.pl' if $downline_builder;
require './matrix_module.pl' if $matrix_builder;
can you see what is wrong....
Thanks, Missy :o(
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 8 Sep 1999 18:46:09 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: @INC
Message-Id: <7r6ath$jtv$2@info2.uah.edu>
In article <7r6a4p$s49$1@nnrp1.deja.com>,
missymanning@my-deja.com writes:
: I realize that it is not finding the file. The file is located in the
: cgi-bin and my code calls it here:
:
: unshift(@INC, "/cgi-local/matrix1000");
: use Record;
Even though your use() comes after the unshift(), the use() (which is
executed at compile time) runs first followed by the unshift() (which is
executed at runtime).
Read up on the lib pragma (man lib or perldoc lib).
Greg
--
Join the Army: travel to exotic distant lands; meet exciting, unusual people,
and kill them.
------------------------------
Date: Wed, 08 Sep 1999 13:09:14 -0500
From: Jay Chaudhury <jc@austin.ibm.com>
Subject: Re: Array of array.
Message-Id: <37D6A64A.EFAC740@austin.ibm.com>
so how do you access the values in the array? you are printing the array
address.
thanks.
dove wrote:
>
> Hi Christian,
>
> I'm not sure if I can help, but I'll give it a try.
>
> First of all, I'm not sure what types of variable d is so
> I'm assuming it's an array (as indicated by @d).
>
> @d is going to be an array of arrays. What this means is
> that each element of @d will hold a reference to an
> anonymous array.
>
> The way this program is set up here, there will be three
> anonymous arrays created of only one element long.
>
> The variable 'test' should be @test, an array.
>
> So the code here (I modified it just a bit.)
>
> my @d = undef;
> my @test = ("1","2","3");
>
> for (my $i = 0; $i <= 2; $i++){
>
> push @{$d[$i]},$test[i]; }
>
> So this push line breaks down as follows.
>
> The @{$d[$i]} part says to create an anonmous array and
> store it's address in $d[$i]. The push part says to put the
> i'th element of the test array into the 0th element of the
> anonymous array who's address is stored in $d[$i].
>
> If you added this code
>
> for (my $i = 0; $i <= 2; $i++){
>
> print "$i : $d[$i]\n"; }
>
> You'd get output something like this:
>
> 0: ARRAY(0x2774)
> 1: ARRAY(0x3345)
> 2: ARRAY(0x4544)
>
> This is the address of the three anonymous arrays.
>
> If you added this code
>
> for (my $i = 0; $i <= 2; $i++){
>
> print "$i : $d[$i] : ${$d[$i]}[0]\n"; }
>
> You'd get output that looked like this:
>
> 0: ARRAY(0x2774) : 1
> 1: ARRAY(0x3345) : 2
> 2: ARRAY(0x4544) : 3
>
> For more information on this take a look at Recipe 11.1 in
> the Perl Cookbook by Tom Christiansen and Nathan Torkington.
>
> Hope this helps.
>
> -=dav
>
> In article <7r60am$k81$1@nnrp1.deja.com>,
> christian.sylvestre@cetelem.fr wrote:
> >Can somebody give me a bit of explanation for these couple
> of lines of
> >code....
> >
> >@d = ();
> >@test = ("1","2","3");
> >
> >for (my $i = 0; $i <= 2; $i++){
> > push @{$d[$i]},$test[i];
> >}
> >
> >I am trying to understand this line : push
> @{$d[$i]},$test[i];
> >
> >Thanks,
> >
> >Christian Sylvestre
> >
> >
> >Sent via Deja.com http://www.deja.com/
> >Share what you know. Learn what you don't.
> >
>
> * Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
> The fastest and easiest way to search and participate in Usenet - Free!
--
----------------------------------------------------------
Jay Chaudhury <jc@austin.ibm.com>
Direct: 512-823-6919 T/L: 793-6919
----------------------------------------------------------
America's new malaise: Morning DJ's
----------------------------------------------------------
------------------------------
Date: Wed, 08 Sep 1999 17:23:31 GMT
From: john_s_butler@my-deja.com
Subject: CGI Script to execute script on a different server
Message-Id: <7r6624$os4$1@nnrp1.deja.com>
Our application requires 2 servers, s1 and s2. s1 has a 'player'
applet that downloads to the client machines. s2 has a servlet
containing code that writes to a database (associated with the servlet).
Our goal is to write to the tables in the database associated with s2,
but we are not able for security reasons. We would like for the two
servers to recognize each other, and behave as a single server (if
possible).
Is that possible? Is there a CGI script that can be written to 'route'
information from one server to another? I know that this application
works flawlessly when the player and servlet run off the same server.
I haven't coded in Perl, and have not worked with CGI. Any suggestion
would be helpful.
Thanks,
John
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 08 Sep 1999 10:05:46 -0700
From: dove <doveNOahSPAM@stanfordalumni.org>
Subject: Re: CGI scripts that dont return headers
Message-Id: <1b0840d8.4c925413@usw-ex0107-049.remarq.com>
Hi Pablo,
If you are using the CGI.pm package, send back the status
code "204". In the HTTP protocol the "204" status code
means No Content and your HTML page shouldn't reload.
Here's a quick example:
#!/usr/local/bin/perl-5.004
use CGI qw/:all/;
open(TMP, ">>/tmp/cgi");
print TMP "Blah\n";
print header("-status" => "204");
--------------
That should update the file without reloading the page.
Give it a try.
-=dav
In article <Pine.SOL.3.96.990908124800.22889D-100000@gusun>,
"Pabs (Pablo Liska)" <liskajp@gusun.georgetown.edu> wrote:
>I have a script that takes votes from a website and records
them on a
>flatfile. I don't want to send anything back to the
browser because i
>dont want the page the user is on to reload. I wouldnt
mind sending back
>the totals on votes, but i dont want to have to reload the
entire
>page.
>
>is there a way to either
>1) not return headers without getting an error message
>2) return some information (not headers, really) to a
javascript that
>would change the displayed page (dHtml) without forcing a
reload?
>
>Thanks,
>Pablo
>
>
>
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Wed, 8 Sep 1999 10:11:47 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: converting a number into a binary?
Message-Id: <MPG.124038af66a404fa989f30@nntp.hpl.hp.com>
In article <7r5tub$85m$1@lublin.zrz.tu-berlin.de> on 8 Sep 1999 15:04:43
-0000, Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> says...
> Z. Huang <zhuang@ic.sunysb.edu> wrote in comp.lang.perl.misc:
> >Greg Bacon wrote:
> >> In article <37D661F5.1293E218@ic.sunysb.edu>,
> >> "Z. Huang" <zhuang@ic.sunysb.edu> writes:
> >> : can anyone tell me how to convert a number (integer or float) into a
> >> : binary? For, example:
> >> : 8 ---> 100
I assume that's intended to read
8 ---> 1000
> >> : 0.125---> 0.001
> >>
> >> That's a FAQ. Please read Section 4 of the Perl FAQ.
> >
> > Not exactly. FAQ does not answer how to convert a decimal into a binary.
...
> See perldoc -q 'convert bits'.
How does that FAQ help solve this problem? Here it is in its entirety:
----
How do I convert bits into ints?
To turn a string of 1s and 0s like 10110110 into a scalar containing its
binary value, use the pack() function (documented in perlfunc):
$decimal = pack('B8', '10110110');
Here's an example of going the other way:
$binary_string = join('', unpack('B*', "\x29"));
----
Is this even correct? What function does the 'join' play in that
statement?
I recall that Perl 5.6 will have 'b' conversions in sprintf, but I'm
still trying to figure out how best to solve this problem without them.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 8 Sep 1999 18:43:39 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: converting a number into a binary?
Message-Id: <7r6aor$jtv$1@info2.uah.edu>
In article <MPG.124038af66a404fa989f30@nntp.hpl.hp.com>,
lr@hpl.hp.com (Larry Rosler) writes:
: How does that FAQ help solve this problem? Here it is in its entirety:
Feh. :-(
: ----
: How do I convert bits into ints?
:
: To turn a string of 1s and 0s like 10110110 into a scalar containing its
: binary value, use the pack() function (documented in perlfunc):
:
: $decimal = pack('B8', '10110110');
:
: Here's an example of going the other way:
:
: $binary_string = join('', unpack('B*', "\x29"));
: ----
:
: Is this even correct? What function does the 'join' play in that
: statement?
Hrm. Good question.
: I recall that Perl 5.6 will have 'b' conversions in sprintf, but I'm
: still trying to figure out how best to solve this problem without them.
Either of these (among others):
$bits = join '', unpack 'B*', "\x08";
$bits = join '', unpack 'B*', pack 'N*', 8,6,7, 5,3,0,9;
Greg
--
I went to a bookstore and asked the saleswoman, "Where's the self-help
section?"; She said if she told me, it would defeat the purpose.
-- George Carlin
------------------------------
Date: Wed, 08 Sep 1999 09:50:26 -0700
From: cLive hoLLoway <cLive@direct2u.co.uk>
Subject: Re: Help - Porting code from UNIX to NT
Message-Id: <37D693D2.B1979563@direct2u.co.uk>
Allan Hagan wrote:
>
> Nt executes programs on the basis of file extension eg *.doc opens winword.
> Perl files are usually *.pl change your .cgi to pl and try again.
Or ask your ISP to get their act together and associate .cgi extensions
with the Perl interpreter (since *technically* I think .pl is a
depricated 'Perl Library' extension - no flames please, just a rumour
;-)
Many scripters now default to .cgi for perl cgi scripts, and I'm
surprised your ISP is not aware of this.
cLive ;-)
------------------------------
Date: Wed, 08 Sep 1999 18:07:36 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: help: multithreading in perl
Message-Id: <IBxB3.85$HZ2.3234@news.rdc1.ct.home.com>
ashishkjain@hotpop.com wrote:
> I am working on a program which takes lot of time doing the pattern
> matching. To reduce time I think threading would help me but not able
> to find good reference on how to achieve this.
Do you have multiple CPUs? If not, threading's not going to buy you a
thing. (Even if you do it might still not be a win, given how much
overhead threads have in 5.005)
But if you're looking for info, try perldoc Thread.
Dan
------------------------------
Date: Wed, 08 Sep 1999 12:41:31 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: How to display milliseconds
Message-Id: <37D69FCB.377AA342@texas.net>
Ysteric's wrote:
>
> the module Time:HiRes is what you're looking for.
>
> Eric - FRANCE
Not necessarily true.
Check the FAQ.
- Tom
------------------------------
Date: Wed, 8 Sep 1999 20:00:48 +0100
From: "Andrew Whitaker" <bigsleep@dircon.co.uk>
Subject: Re: large dataset problem
Message-Id: <37d6b288_1@newsread3.dircon.co.uk>
Benjamin Franz wrote in message ...
>But if you want to avoid memory usage, an easier tack is to
>use a tied hash. The modifications are minor in this case.
>It could, of course, be improved by converting the columns
>and rows to lat and long during the database load.
Yep, this was the main point I was trying to address, even with a tied hash
you have to skip through a whole 50Mb or so worth of data to retrieve all
the historical info for one point on the globe (requried solution).
e.g. hacking your code a bit and I must admit with a large degree of
ignorance about tied hashes (I hope Stephen is reading this, he's getting a
lot of free coding) :-
#!usr/bin/perl -w
use strict;
my $filename = '/path/to/dataset';
my $db_file = '/path/to/dataset_database_file';
# Only has to be done once.
load_database($filename,$db_file);
my $db_hash = {};
if (not tie (%$db_hash,'SDBM_File',$db_file)) {
die ("Unable to tie $db_file: $!");
}
my @completetimehistoryforapoint = split( "\t"
,$db_hash->{address('49N','5W')} );
untie %$db_hash;
foreach $MonthValue ( @completetimehistoryforapoint ) {
...
}
sub address {
my ($latitude,$longitude) = @_;
my ($hemisphere,$row,$column);
($row,$hemisphere) = $longitude =~ m/^(\d+)(E|W)$/i;
if (not $hemisphere) { die ("Bad longitude\n"); }
if ($hemisphere =~ m/^E$/i) {
$row = 180 + $row;
} else {
$row = 180 - $row;
}
($column,$hemisphere) = $latitude =~ m/^(\d+)(N|S)$/i;
if (not $hemisphere) { die ("Bad latitude\n"); }
if ($hemisphere =~ m/^S$/i) {
$row = 90 + $row;
} else {
$row = 90 - $row;
}
"$row $column";
}
sub load_database {
my ($file,$db_file) = @_;
my $db_hash = {};
if (not tie (%$db_hash,'SDBM_File',$db_file)) {
die ("Unable to tie $db_file: $!");
}
open (DATASET,$file) || die ("Couldn't open $file: $!\n");
my $done = 0;
until ($done) {
my $date = <DATASET>;
last if (not $date);
$date =~ s/[\r\n]+$//; # datafile
portability
my ($month,$year) = split(/\s+/,$date);
for (my $row = 0; $row < 180; $row++) {
my $data = <DATASET>;
$data =~ s/[\r\n]+$//; # datafile
portability
if ( ! $data ) {
print "Oops, missing row for month $date\n";
}
my @values = split (/\s+/,$data);
if ( @values != 360 ) {
print "Oops, bad data for month $date\n"; # might be
useful
}
for (my $column = 0;$column < @values; $column++) {
$db_hash->{"$row $column"} .= "$values[$column]\t";
}
}
}
close (DATASET);
untie %$db_hash;
}
------------------------------
Date: Wed, 08 Sep 1999 13:32:36 -0500
From: Bryan Ley <Bryan.Ley@McHugh.com>
Subject: Newbie ?: @ARGV not getting command line arguments
Message-Id: <37D6ABC4.275D3552@McHugh.com>
I'm running ActivePerl build 507 in a WindowsNT environment and when I
call GetOpts.pl, my command line arguments are not passed. Instead it's
passing "%*"
Any ideas?
Please mail me directly at mailto:bryan.ley@mchugh.com. Thanks.
------------------------------
Date: 8 Sep 1999 18:11:52 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Old Script Doesn't Like My New Perl? Help!
Message-Id: <37D6A5EA.D8A2FE15@vpservices.com>
Tom Briles wrote:
>
> Jeff Zucker wrote:
> >
> > Dan Poynor wrote:
> > >
> > > Use of uninitialized value at /home/httpd/cgi-bin/rotate.pl line 7.
> > >
> > > ---------here's the script rotate.pl-------------
> > > #! /usr/bin/perl
> > >
> >
> > Hmm, a -w error with no -w on the shebang line! That means your script
> > was not -w safe and your new perl must be run through a server or a
> > batch file or something that automatically adds -w. This means you will
> > have to check all your scripts to make sure all variables are
> > initialized, not a bad thing in the long run.
>
> Umm, no, he used -w at the command line.
Ok, he used it on the command line. What does that have to do with
anything? He asked why his script behaves differently in his "new
perl". The answer is he is now calling -w and therefore the script is
giving a different set of warnings and the way to clean up the warnings
is to make it -w safe.
--
Jeff
------------------------------
Date: Wed, 08 Sep 1999 17:58:51 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: Perl and Threads
Message-Id: <vtxB3.84$HZ2.3234@news.rdc1.ct.home.com>
> I am using Linux. redhat 5.2 Has a similar problem on Rehat 6.0.
> Yes I am also using SIGCHLD. The scripts leeson on a socket and when
> recieves a new connection a dose a fork. Then the new proccess start a
> few threads to look for data in different places. After enough data has
> been found, then it prefroms a thread jon on all threads.
Fair enough. Is the SIGCHLD done in the process that spawns the threads?
Linux threads are almost processes, and I can see setting SIGCHLD causing
problems reaping threads.
> What do you mean be detaching threads? I thought they are created that
> they are created detached.
Nope. Perl threads are created joinable by default.
> I seen the dead and dechted threads show up as zombies and come and go.
> :) Just that the odd the that dose not go. What makes it a problem is
> that the script no longer lessons on that port and seems to hang. What I
> have noticed is that every time this happens thier is zombie process.
> Under redhat 6.0 they thread appears defuncted. Same problem.
> Here is what the perl -v prodcues.
This sounds less like a thread problem and more like a plain forking
problem. Double-check the master process to make sure it's reaping its
children properly, and the child processes to make sure they collect up
all their threads the way they should. (But upgrade your threading library
first)
> osname=linux, osvers=2.0.36, archname=i686-linux-thread
You likely have a busted threading library. (I'm not sure if any of the
linux threading libraries truly conform to the POSIX spec, but the older
ones are definitely broken in a number of ways) Upgrade if you can.
Dan
------------------------------
Date: Wed, 08 Sep 1999 14:52:38 -0400
From: Steven Cruz <steve@nextopia.com>
Subject: Re: Perl and Threads
Message-Id: <37D6B076.B7B00BBC@nextopia.com>
This is a multi-part message in MIME format.
--------------21C037DA64B070C54A7A3207
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Thank you very much.
I used a thread detach on redhat 6.0 and it works. I also read read
some stuff that agreed the the thread library I was using was not the
best.
Dan Sugalski wrote:
>
> > I am using Linux. redhat 5.2 Has a similar problem on Rehat 6.0.
>
> > Yes I am also using SIGCHLD. The scripts leeson on a socket and when
> > recieves a new connection a dose a fork. Then the new proccess start a
> > few threads to look for data in different places. After enough data has
> > been found, then it prefroms a thread jon on all threads.
>
> Fair enough. Is the SIGCHLD done in the process that spawns the threads?
No, only where the fork is being done. the child process handles
threads.
> Linux threads are almost processes, and I can see setting SIGCHLD causing
> problems reaping threads.
I have noticed the Linux threads resemble NT threads in this manner. As
opposed to user level threads that the OS dose not know about.
I believe that all threads are process, the difference is based on much
or little interaction the OS has with them. Not to disagree with you,
but I remember reading/hearing that some where.
> > What do you mean be detaching threads? I thought they are created that
> > they are created detached.
>
> Nope. Perl threads are created joinable by default.
What I did was after I created each of them, I detached them. :)
> > I seen the dead and dechted threads show up as zombies and come and go.
> > :) Just that the odd the that dose not go. What makes it a problem is
> > that the script no longer lessons on that port and seems to hang. What I
> > have noticed is that every time this happens thier is zombie process.
> > Under redhat 6.0 they thread appears defuncted. Same problem.
> > Here is what the perl -v prodcues.
>
> This sounds less like a thread problem and more like a plain forking
> problem. Double-check the master process to make sure it's reaping its
> children properly, and the child processes to make sure they collect up
> all their threads the way they should. (But upgrade your threading library
> first)
Changing the thread library, and inserting the detach after creation
clear up the problem.
> > osname=linux, osvers=2.0.36, archname=i686-linux-thread
>
> You likely have a busted threading library. (I'm not sure if any of the
> linux threading libraries truly conform to the POSIX spec, but the older
> ones are definitely broken in a number of ways) Upgrade if you can.
Yep, did that first this morning. Thank you very much for your time and
effort.
8-)
--------------21C037DA64B070C54A7A3207
Content-Type: text/x-vcard; charset=us-ascii;
name="steve.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Steven Cruz
Content-Disposition: attachment;
filename="steve.vcf"
begin:vcard
n:cruz';'steven
tel;home:416-516-4652 (work 2)
tel;work:416-364-9557-107
x-mozilla-html:TRUE
org:Nextopia Software
version:2.1
email;internet:steve@nextopia.com
title:Depends on what day
note:8-)
adr;quoted-printable:;;Current=0D=0Anextopia software corporation=0D=0A142 adelaide street east, 3rd floor=0D=0Atoronto, ontario=0D=0Am5c 1k9=0D=0A=0D=0ALong Term-=0D=0A116 lansdowne Ave Unit 3=0D=0AToronto ONT=0D=0AM6K 2C9=0D=0A;Toronto;Ontario;M6K 2C9;Canada
x-mozilla-cpt:;96
fn:'steven cruz'
end:vcard
--------------21C037DA64B070C54A7A3207--
------------------------------
Date: Wed, 08 Sep 1999 17:47:58 GMT
From: balesn@my-deja.com
Subject: perl.exes hanging around on NT
Message-Id: <7r67g8$pue$1@nnrp1.deja.com>
We are running Netscape Enterprise Server 3.6.1 on NT 4.0 and
ActivePerl from ActiveState, build 519. We continually have perl.exes
hanging around. They do not appear to be taking up system resources,
but if we let 100 or so accumulate the server comes to a halt.
Right now I monitor Task Manager and then open a DOS session and
manually kill the perl.exe processes - what a pain!
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 08 Sep 1999 13:49:21 -0400
From: Songtao Chen <@cisco.com>
Subject: perl_call_pv bug ?
Message-Id: <37D6A1A0.FDB1D772@cisco.com>
Hi everyone,
I am doing some C calling Perl work. And I found there might be a bug
in perl_call_pv. Here is the code from perl.c, version 5.005_003,
I32
perl_call_pv(char *sub_name, I32 flags)
/* name of the subroutine */
/* See G_* flags in cop.h */
{
return perl_call_sv((SV*)perl_get_cv(sub_name, TRUE), flags);
}
Questions:
a) Should the second argument be FALSE when calling perl_get_cv ?
b) If the subroutine does not exist, why should the variable be
automatically created ?
In my case, when I tried to call a nonexistent subroutine, I received
segmentation
error.
Thanks,
Songtao
------------------------------
Date: Wed, 08 Sep 1999 19:38:12 GMT
From: Karl Schmidt <nospam@nospam.de>
Subject: Smile...
Message-Id: <19990908.19381242@mis.configured.host>
Y-to-K Date Change Project Status:
Our staff has completed the 18 months of work on time and on budget. =20=
We have gone through every line of code in every program in every=20
system. We have analyzed all databases, all data fields, including=20
backups and historic archives, and modified all data to reflect the=20
change. We are proud to report that we have completed the "Y-to-K"=20
date change mission, and have now implemented all changes to all=20
programs and all data to reflect your new standards:
Januark, Februark, March, April, Mak, June, Julik, August, September,=20=
October, November, December
As well as:
Sundak, Mondak, Tuesdak, Wednesdak, Thursdak, Fridak, Saturdak
I trust that this is satisfactory, because to be honest, none of this=20=
Y to K problem has made any sense to me but I understand it is a=20
global problem, and our team is glad to help in any way possible.
And what does this year 2000 have to do with it? Speaking of which,=20=
what do you think we ought to do next year when the two digit year=20
rolls over from 99 to 00? We'll await your direction."
Your Y-to-K Project Manager
:-)
------------------------------
Date: Wed, 08 Sep 1999 18:49:31 GMT
From: larske@hem1.passagen.se.REMOVE (Lars-Åke Aspelin)
Subject: Re: Smile...
Message-Id: <37d6ada9.1814140@news.telia.net>
Good work!
But can kou please explain whk kou changed from 'July' to 'Julik' and
not to 'Julk' as would be expected? ;-)
On Wed, 08 Sep 1999 19:38:12 GMT, Karl Schmidt <nospam@nospam.de>
wrote:
>Y-to-K Date Change Project Status:
>
>
>
>Our staff has completed the 18 months of work on time and on budget. =20=
>
>We have gone through every line of code in every program in every=20
>system. We have analyzed all databases, all data fields, including=20
>backups and historic archives, and modified all data to reflect the=20
>change. We are proud to report that we have completed the "Y-to-K"=20
>date change mission, and have now implemented all changes to all=20
>programs and all data to reflect your new standards:
>
>Januark, Februark, March, April, Mak, June, Julik, August, September,=20=
>
>October, November, December
>
>As well as:
>
>Sundak, Mondak, Tuesdak, Wednesdak, Thursdak, Fridak, Saturdak
>
>
>
>I trust that this is satisfactory, because to be honest, none of this=20=
>
>Y to K problem has made any sense to me but I understand it is a=20
>global problem, and our team is glad to help in any way possible.
>
>And what does this year 2000 have to do with it? Speaking of which,=20=
>
>what do you think we ought to do next year when the two digit year=20
>rolls over from 99 to 00? We'll await your direction."
>
>Your Y-to-K Project Manager
>
>:-)
>
>
>
------------------------------
Date: Wed, 08 Sep 1999 15:01:18 -0400
From: Francois Labreque <flabreq@ibm.net>
Subject: Re: Smile...
Message-Id: <37D6B27E.25E4D3FC@ibm.net>
Karl Schmidt wrote:
>
> Januark, Februark, March, April, Mak, June, Julik, August, September,
> October, November, December
>
> As well as:
>
> Sundak, Mondak, Tuesdak, Wednesdak, Thursdak, Fridak, Saturdak
>
tsk. tsk. tsk. did you foget to replace all occurences of "twenty" for
"twentk" ?
--
Francois Labreque | The surest sign of the existence of extra-
flabreq(a)ibm,net | terrestrial intelligence is that they never
| bothered to come down here and visit us!
- Calvin
------------------------------
Date: 08 Sep 1999 13:39:33 -0500
From: Kent Perrier <kperrier@blkbox.com>
Subject: Re: Where can I find a free website hosting supportting perl?
Message-Id: <448E6726251E6034.AAB96E0DA9C502F4.BB05F9171A4A630F@lp.airnews.net>
"Ben" <1@2.com> writes:
> I need the website supports .pl file.
Why do you want one the supports perl libraries? I would think you would
want one that supports perl modules...
> Please don't tell me that I can find it at "yahoo" and so on.
> Thanks.
>
ok, check out www.altavista.com :)
Kent
--
"I will tell you the secret of getting rich on Wall Street... You try
to be greedy when others are fearful, and you try to be very fearful
when others are greedy."
-- Warren Buffett
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 742
*************************************
