[7905] in Perl-Users-Digest
Perl-Users Digest, Issue: 1530 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 23 19:07:27 1997
Date: Tue, 23 Dec 97 16:00:24 -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 Tue, 23 Dec 1997 Volume: 8 Number: 1530
Today's topics:
Re: [NEED HELP] making thumbnails (Martien Verbruggen)
Access Forbidden??? <kbsitz@flash.net>
Changing the file name dynamically when the user saves bidyut@yahoo.com
Correct syntax for length function? <feckman@nycap.rr.com>
Re: Correct syntax for length function? (Martien Verbruggen)
Re: Correct syntax for length function? (Greg Zevin)
Re: Emulate a server log with CGI script? <rootbeer@teleport.com>
equal condition in Perl leil@wellsfargo.com
Re: equal condition in Perl (Mike Stok)
Re: Error using backticks with "ps" system command <rootbeer@teleport.com>
Re: getting the pid from a system call <rootbeer@teleport.com>
help newbie at wit's end (almost) ushere@ibm.net
Re: help newbie at wit's end (almost) <reibert@mystech.com>
Re: help newbie at wit's end (almost) (Dan Greenblatt)
Re: help newbie at wit's end (almost) <rootbeer@teleport.com>
Re: help! package export variables <mankin@mathcs.rhodes.edu>
Re: Listing files on your server as scalar values. (Tad McClellan)
Re: Newbie can't add the -w flag to perl to get useful (Dave Reed)
Re: perl <STDOUT> to gnuplot <STDIN> <rootbeer@teleport.com>
PERL and Rhapsody experiences sought <a-csnow@microsoft.com>
Re: Perl lib version (5.5.004) ???? <rootbeer@teleport.com>
Perlscript and Windows Scripting Host <cosborn@bbnplanet.com>
Re: Q: Database for Perl on NT (something like msql)? paulj@raima.com
Re:Per Dbase Access <dtlgc@flash.net>
Re: Sort a file and pattern match <jim.michael@gecm.com>
Re: Sort a file and pattern match (Terry Michael Fletcher - PCD ~)
Re: Sort a file and pattern match <#@qz.to>
Re: Trouble with default CGI-BIN directories under Perl <rootbeer@teleport.com>
Re: url_get.pl <rootbeer@teleport.com>
Re: Wacky idea: a PERL server <zenin@best.com>
y2k compliant perl (Ian Kallen)
Re: y2k compliant perl (Brian Wheeler)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Dec 1997 22:46:20 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: [NEED HELP] making thumbnails
Message-Id: <67pevs$c5i$1@comdyn.comdyn.com.au>
In article <67o4u6$jep@news2.jic.com>,
joshua@moon.jic.com (joshua) writes:
> is that possible to make thumbnails graphic images by using perl??
>
> If yes.. please show me any source file..
You could probably do it using the Image::Magick module from CPAN
(which is an interface to ImageMagick)
If you just need to do GIFs and XBMs, you can use GD.pm
But I think you'd probably be better off looking around for some
prewritten tool (not necessarily perl) that does that. I know there
are some for win32, I believe there must be some for unix and mac out
there as well.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I think I think, therefore I think I
Commercial Dynamics Pty. Ltd. | am.
NSW, Australia |
------------------------------
Date: Tue, 23 Dec 1997 16:31:28 -0600
From: K B Sitz <kbsitz@flash.net>
Subject: Access Forbidden???
Message-Id: <34A03BC0.760DD568@flash.net>
Got this:
HTTP/1.0 403 Access Forbidden (Execute Access
Denied - This Virtual Directory does not allow objects
to be executed.)
Can anyone help?
------------------------------
Date: Tue, 23 Dec 1997 14:33:26 -0600
From: bidyut@yahoo.com
Subject: Changing the file name dynamically when the user saves the file
Message-Id: <882908492.1855782928@dejanews.com>
Hi There,
I want to do something like this. When an user uploads the file
(original_name.doc), the system generates a serial number and saves the
file in the serial no. i.e. serial_no.doc. Both the file name and the
corresponding serial number is saved in the database.
When the user tries to download the particual file(serial_no.doc, i want
the file to be saved as original_name.doc, not as serial_no.doc.
Any help for this
Thanks in advance
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Tue, 23 Dec 1997 16:59:49 -0500
From: "FeckMan" <feckman@nycap.rr.com>
Subject: Correct syntax for length function?
Message-Id: <67pclc$3q1$1@gamera.albany.net>
Hello!
I'm trying to evaluate the length of a scalar variable and conditionally go
to a subroutine based on the result. I'm not sure, however, if my syntax is
correct. The Camel book doesn't give an example of the usage. Any help
would be greatly appreciated. Here's a snip from the code:
sub check_form
{
if (length($firstname) == 0) {&incomplete1};
if (length($lastname) == 0) {&incomplete2};
}
or
sub check_form
{
if (length($firstname) eq 0) {&incomplete1};
if (length($lastname) eq 0) {&incomplete2};
}
Thanks!
--Jim.
------------------------------
Date: 23 Dec 1997 23:33:40 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Correct syntax for length function?
Message-Id: <67phok$ccd$1@comdyn.comdyn.com.au>
In article <67pclc$3q1$1@gamera.albany.net>,
"FeckMan" <feckman@nycap.rr.com> writes:
> if (length($firstname) == 0) {&incomplete1};
>
> or
>
> if (length($firstname) eq 0) {&incomplete1};
perldoc perlop
This man page will tell you that '==' is used for numerical equality,
and 'eq' is used for string equality. Since you are comparing numbers,
you should use '=='.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Very funny Scotty, now beam down my
Commercial Dynamics Pty. Ltd. | clothes.
NSW, Australia |
------------------------------
Date: 24 Dec 1997 10:21:37 +1100
From: greg@turing.une.edu.au (Greg Zevin)
Subject: Re: Correct syntax for length function?
Message-Id: <67ph21$mal@turing.une.edu.au>
"FeckMan" <feckman@nycap.rr.com> writes:
:Hello!
:I'm trying to evaluate the length of a scalar variable and conditionally go
:to a subroutine based on the result. I'm not sure, however, if my syntax is
:correct. The Camel book doesn't give an example of the usage. Any help
:would be greatly appreciated. Here's a snip from the code:
:sub check_form
:{
:if (length($firstname) == 0) {&incomplete1};
:if (length($lastname) == 0) {&incomplete2};
:}
:or
:sub check_form
:{
:if (length($firstname) eq 0) {&incomplete1};
:if (length($lastname) eq 0) {&incomplete2};
:}
Well, if you read the book, you should know that 'eq' is used for string
comparison whereas length is a number.
Moreover, you could write something like:
if ( !$firstname ) {&incomplete1}; etc..
Don't ask me why :-)))
Greg
------------------------------
Date: Tue, 23 Dec 1997 15:26:18 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: lae2@psu.edu
Subject: Re: Emulate a server log with CGI script?
Message-Id: <Pine.GSO.3.96.971223152419.1238M-100000@user2.teleport.com>
On Sun, 21 Dec 1997 lae2@psu.edu wrote:
> $ENV{'REMOTE_HOST'}
> $ENV{'REMOTE_ADDR'}
>
> Could one use these varialbles along with the date routine in WWWBoard
> to write a new file that would resemble a log?
Yes.
> Is there a script of this nature available?
Not that I know of, but it should be easy to write.
I think you could use the methods in Randal's fourth Web Techniques
column, which explains how to use flock() to avoid problems when multiple
processes need to modify one file. Hope this helps!
http://www.stonehenge.com/merlyn/WebTechniques/
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Tue, 23 Dec 1997 15:22:50 -0600
From: leil@wellsfargo.com
Subject: equal condition in Perl
Message-Id: <882899007.1446838278@dejanews.com>
HI, I am writing a Perl program. Our Perl version is 5. In the
program, I put those compare sections: if ($variable1 equal "Y")
{......} if ($variable1 == "Y") {......} Perl doesn't complain anything
about above code, but it always thinks TRUE. Even if I let $variable1 =
"other", still thinks "other" equal or == "Y". I try to use 'ne' later,
still only works one way. Does someone knows how Perl exactly works? I
appreciate your help.
Thanks
Ling Lei
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 23 Dec 1997 21:52:24 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: equal condition in Perl
Message-Id: <slrn6a0cpt.7nb.mike@stok.co.uk>
On Tue, 23 Dec 1997 15:22:50 -0600, leil@wellsfargo.com <leil@wellsfargo.com>
wrote:
>HI, I am writing a Perl program. Our Perl version is 5. In the
>program, I put those compare sections: if ($variable1 equal "Y")
>{......} if ($variable1 == "Y") {......} Perl doesn't complain anything
>about above code, but it always thinks TRUE. Even if I let $variable1 =
>"other", still thinks "other" equal or == "Y". I try to use 'ne' later,
>still only works one way. Does someone knows how Perl exactly works? I
>appreciate your help.
== is used for testing numeric equality, and most strings that don't look
like numbers have a value of 0 in numeric context. Using the -w flay will
help you spot this error:
[mike@stok mike]$ perl -we 'print +("yes" == "no"), "\n"'
Argument "no" isn't numeric in eq at -e line 1.
Argument "yes" isn't numeric in eq at -e line 1.
1
[mike@stok mike]$ perl -we 'print +("yes" eq "no"), "\n"'
[mike@stok mike]$ perl -we 'print +("yes" eq "yes"), "\n"'
1
(the false value is an empty string, hence the blank line)
Learning perl or Programming perl cover the difference between numeric
and string contexts. There are two sets of operatord for comparing things
in different contexts:
numeric string
== eq
!= ne
< lt
<= le
> gt
>= ge
<=> cmp
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Tue, 23 Dec 1997 15:05:35 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Brett Denner <Brett.W.Denner@lmco.com>
Subject: Re: Error using backticks with "ps" system command
Message-Id: <Pine.GSO.3.96.971223145704.1238I-100000@user2.teleport.com>
On Mon, 22 Dec 1997, Brett Denner wrote:
> I have a Perl script that starts up a binary executable file and forks a
> separate Perl process to monitor the total cpu time used.
Not in that order, I'm sure. :-)
> When a certain amount of CPU time has elapsed, the forked Perl process
> take steps to stop the binary executable. The forked process uses the ps
> system command to determine the total time used by all the Perl and
> binary file processes, but something is not working properly. Here are
> the details.
>
> My forked processes obtains the group id using getpgrp:
>
> $pgrp = getpgrp;
>
> It then runs the ps command to determine the cpu time used by all the
> processes in the group:
>
> $max_time = 1000; # (any positive value)
>
> while(1) {
> chomp(@times = `ps -g$pgrp -o time=`);
Hmmm... Are the ps command and this monitoring process being counted here?
> $time = 0;
> foreach (@times) {
> $time += HMStoDEC($_);
> }
> stop_binary_process() if $time > $max_time;
> }
You could reduce your system load by letting this loop sleep a little when
the time so far is much less than the maximum. Otherwise, you're
re-launching ps pretty much non-stop. I'd say you could safely sleep (say)
$max_time/20 or so.
> The problem is, the ps command works the first time it is called,
> and then returns nothing after that.
Hmmm... Can you reduce your script to the smallest one which shows this
behavior? Also, have you installed any signal handlers which could affect
things?
You may be able to add some debugging output to your script which could
help, or you might be able to step through it with the Perl debugger. Good
luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Tue, 23 Dec 1997 15:46:33 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: rbell@osha-slc.gov
Subject: Re: getting the pid from a system call
Message-Id: <Pine.GSO.3.96.971223154135.1238R-100000@user2.teleport.com>
On 23 Dec 1997 rbell@osha-slc.gov wrote:
> I need the PID of a background process started with either and exec
If it was started directly from exec (and not from a sub-process) the pid
should be the same as the process which started it. That's what I'd use,
but (of course) you'll want to fork before you exec. Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Tue, 23 Dec 1997 14:46:50 -0500
From: ushere@ibm.net
Subject: help newbie at wit's end (almost)
Message-Id: <34A0152A.25B9@ibm.net>
This is a multi-part message in MIME format.
--------------16DF6BE4762
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hello anyone who knows anything,
I'm in sheep dip trying to setup my suse/apache as a local
server to test perl scripts. There is an 'outside chance'
that I might be doing something wrong here. The script
executes in any command window and on my ISP's server but
locally it's another story.....
Apache is running ok as a local, htm's get returned.
Perl is running ok and the script executes, so what does
that leave me with, a server config problem? The error
message suggests maybe a script problem regardless???
test.htm is a one-line file:
<!--#include virtual="/cgi-bin/test.pl" -->
test.pl is this:
---------------------------------------
#!/usr/local/bin/perl
print "Content-type:text/html\n\n";
print<<xhtm
<html><head><title>perl-practice</title></head>
<body bgcolor="#ffccdd" text="#000000">
<center>
<table border="0">
<tr><th> I said 'hello world' </th><th></th><th></th></tr>
<tr><th> |:-) </th><th></th><th></th></tr>
<tr><th></th><th>... she said '!bang!'</th><th></th></tr>
<tr><th></th><th></th><th> ... so I left</th></tr>
<tr><th></th><th></th><th> |:-{ </th></tr>
</table>
</body>
</html>
xhtm
;
---------------------------------------
entering the URL: http://127.0.0.1/test.htm
gives: [an error occurred while processing this directive]
httpd.error_log says:
-exec of /usr/local/httpd/cgi-bin/test.pl failed, errno is 2
-access to /usr/local/httpd/cgi-bin/test.pl failed for localhost,
reason: Premature end of script headers
-unable to include /cgi-bin/test.pl
in parsed file /usr/local/httpd/htdocs/test.htm
[apache configs attached]
thanks for any hints, e-mail appreciated.
-|- Who, has loved us more? -|-
--------------16DF6BE4762
Content-Type: text/plain; charset=us-ascii; name="apaconf.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="apaconf.txt"
>>>>> not concerned with security for testing <<<<<<
############## ACCESS.conf ##############
<Directory /usr/local/httpd/htdocs>
Options Indexes FollowSymLinks Includes ExecCGI MultiViews
AllowOverride All
order allow,deny
allow from all
</Directory>
<Directory /usr/local/httpd/cgi-bin>
AllowOverride All
Options ExecCGI Indexes FollowSymLinks MultiViews Includes
</Directory>
############## HTTPD.conf ##############
ServerType standalone
Port 80
HostnameLookups on
User nobody
Group #-1
BrowserMatch Mozilla/2 nokeepalive
ServerAdmin ushere@ibm.net
ServerRoot /usr/local/httpd
ErrorLog /var/log/httpd.error_log
TransferLog /var/log/httpd.access_log
PidFile /var/run/httpd.pid
ScoreBoardFile /var/log/apache_status
ServerName localhost
Timeout 300
KeepAlive On
MaxKeepAliveRequests 100
KeepAliveTimeout 15
MinSpareServers 5
MaxSpareServers 10
StartServers 5
MaxClients 150
MaxRequestsPerChild 30
ResourceConfig /etc/httpd/srm.conf
AccessConfig /etc/httpd/access.conf
TypesConfig /etc/httpd/mime.types
############### SRM.conf ###############
DocumentRoot /usr/local/httpd/htdocs
UserDir public_html
DirectoryIndex index.html index.htm Index.html Index.htm INDEX.HTML INDEX.HTM
FancyIndexing on
AddIconByEncoding (CMP,/icons/compressed.gif) x-compress x-gzip
AddIconByType (TXT,/icons/text.gif) text/*
AddIconByType (IMG,/icons/image2.gif) image/*
AddIconByType (SND,/icons/sound2.gif) audio/*
AddIconByType (VID,/icons/movie.gif) video/*
AddIcon /icons/binary.gif .bin .exe
AddIcon /icons/binhex.gif .hqx
AddIcon /icons/tar.gif .tar
AddIcon /icons/world2.gif .wrl .wrl.gz .vrml .vrm .iv
AddIcon /icons/compressed.gif .Z .z .tgz .gz .zip
AddIcon /icons/a.gif .ps .ai .eps
AddIcon /icons/layout.gif .html .shtml .htm .pdf
AddIcon /icons/text.gif .txt
AddIcon /icons/c.gif .c
AddIcon /icons/p.gif .pl .py
AddIcon /icons/f.gif .for
AddIcon /icons/dvi.gif .dvi
AddIcon /icons/uuencoded.gif .uu
AddIcon /icons/script.gif .conf .sh .shar .csh .ksh .tcl
AddIcon /icons/tex.gif .tex
AddIcon /icons/bomb.gif core
AddIcon /icons/back.gif ..
AddIcon /icons/hand.right.gif README
AddIcon /icons/folder.gif ^^DIRECTORY^^
AddIcon /icons/blank.gif ^^BLANKICON^^
DefaultIcon /icons/unknown.gif
ReadmeName README
HeaderName HEADER
IndexIgnore */.??* *~ *# */HEADER* */README* */RCS
AccessFileName .htaccess
DefaultType text/plain
AddEncoding x-compress Z
AddEncoding x-gzip gz
AddLanguage en .en
AddLanguage fr .fr
AddLanguage de .de
AddLanguage da .da
AddLanguage el .el
AddLanguage it .it
LanguagePriority en fr de
Alias /icons/ /usr/local/httpd/icons/
ScriptAlias /cgi-bin/ /usr/local/httpd/cgi-bin/
AddType text/x-server-parsed-html .shtml
AddType text/x-server-parsed-html .htm
AddType text/x-server-parsed-html .html
AddType application/x-httpd-cgi .cgi
AddType application/zip zip
AddType application/postscript eps
AddType application/rtf rtf
AddType application/lzh lzh
AddType application/exe exe
AddType audio/x-pn-realaudio ram
AddHandler cgi-script .cgi
AddHandler server-parsed .shtml
AddHandler send-as-is asis
AddHandler imap-file map
AddHandler type-map var
ErrorDocument 401 /bads/reject.htm
ErrorDocument 404 /bads/nopage.htm
ErrorDocument 500 /bads/serverr.htm
--------------16DF6BE4762--
------------------------------
Date: Tue, 23 Dec 1997 14:53:36 -0700
From: "Mark S. Reibert" <reibert@mystech.com>
Subject: Re: help newbie at wit's end (almost)
Message-Id: <34A032E0.201414BD@mystech.com>
ushere@ibm.net wrote:
> #!/usr/local/bin/perl
>
> print "Content-type:text/html\n\n";
>
> print<<xhtm
> <html><head><title>perl-practice</title></head>
> <body bgcolor="#ffccdd" text="#000000">
> <center>
> <table border="0">
> <tr><th> I said 'hello world' </th><th></th><th></th></tr>
> <tr><th> |:-) </th><th></th><th></th></tr>
> <tr><th></th><th>... she said '!bang!'</th><th></th></tr>
> <tr><th></th><th></th><th> ... so I left</th></tr>
> <tr><th></th><th></th><th> |:-{ </th></tr>
> </table>
> </body>
> </html>
> xhtm
> ;
Remove the semicolon on the previous line and place it after the print command:
print<<xhtm;
<html><head><title>perl-practice</title></head>
.
.
.
xhtm # no ; at the end of this line or on the next line!
MSR
-----------------------------
Mark S. Reibert, Ph.D.
Mystech Associates, Inc.
3233 East Brookwood Court
Phoenix, Arizona 85044
Tel: (602) 732-3752
Fax: (602) 706-5120
E-mail: reibert@mystech.com
-----------------------------
------------------------------
Date: Tue, 23 Dec 1997 14:25:30 -0800
From: danielg@ea.com (Dan Greenblatt)
Subject: Re: help newbie at wit's end (almost)
Message-Id: <danielg-ya02408000R2312971425300001@newshost.ea.com>
In article <34A0152A.25B9@ibm.net>, ushere@ibm.net wrote:
> Apache is running ok as a local, htm's get returned.
> Perl is running ok and the script executes, so what does
> that leave me with, a server config problem? The error
> message suggests maybe a script problem regardless???
>
> test.htm is a one-line file:
> <!--#include virtual="/cgi-bin/test.pl" -->
>
[snip]
> entering the URL: http://127.0.0.1/test.htm
> gives: [an error occurred while processing this directive]
> httpd.error_log says:
> -exec of /usr/local/httpd/cgi-bin/test.pl failed, errno is 2
> -access to /usr/local/httpd/cgi-bin/test.pl failed for localhost,
> reason: Premature end of script headers
> -unable to include /cgi-bin/test.pl
> in parsed file /usr/local/httpd/htdocs/test.htm
>
>
> [apache configs attached]
>
> thanks for any hints, e-mail appreciated.
>
[snip]
You appear to be missing the proper AddHandler directive in your srm.conf
file. The only ones I see are:
> AddHandler cgi-script .cgi
> AddHandler server-parsed .shtml
neither of which handles the .pl extension. Add .pl to the AddHandler for
cgi-script, or create a new one for .pl , and see if that does any good.
--
Dan Greenblatt danielg@ea.com
Lord of the Snow Monkeys Electronic Arts
These are MY opinions, not my employer's. Capiche?
------------------------------
Date: Tue, 23 Dec 1997 15:49:01 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: ushere@ibm.net
Subject: Re: help newbie at wit's end (almost)
Message-Id: <Pine.GSO.3.96.971223154707.1238S-100000@user2.teleport.com>
On Tue, 23 Dec 1997 ushere@ibm.net wrote:
> -access to /usr/local/httpd/cgi-bin/test.pl failed for localhost,
> reason: Premature end of script headers
Your script, for whatever reason, failed to output the proper headers.
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN. Hope this helps!
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Tue, 23 Dec 1997 14:47:27 -0700
From: David Mankin <mankin@mathcs.rhodes.edu>
To: "Mr. Guy Smiley" <smiley@seds.lpl.arizona.edu>
Subject: Re: help! package export variables
Message-Id: <34A0316F.1B71@mathcs.rhodes.edu>
Mr. Guy Smiley wrote:
>
> I find it surprising that nowhere in the Programming Perl book, nor
> anywhere in the online perldocs (perlmod, perlobj) does it explain how to
> import an exported variable. This should be very simple. Consider this
> example of the type of code I'm trying to do:
>
> -------MyPackage.pm-----
> require Exporter;
> @ISA = qw(Exporter);
> @EXPORT_OK = qw(@list);
>
> @list = (A, B, C);
>
> ------Test.pl------
> use MyPackage;
>
> print $MyPackage::{list};
> print *MyPackage::list;
> # etc, etc. Nothing works!
>
Two changes you need:
* Add "package MyPackage;" to the top of MyPackage.pm
* Change the first line of Test.pl to read:
use MyPackage qw(@list);
This is where you tell it which variables you want to import.
Now both of the print statements below work:
-------MyPackage.pm-----
package MyPackage;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(@list); #EXPORT_OK vars have to be imported; EXPORTs
don't.
@list = qw(A B C);
------Test.pl------
use MyPackage qw(@list); # Add other vars to import here
# The next line only works if you import @list, as above
print "\@list = ", @list, "\n";
# This line will work even if you don't import @list.
print "\@MyPackage::list = ", @MyPackage::list, "\n";
-David Mankin
mankin@mathcs.rhodes.edu
------------------------------
Date: Tue, 23 Dec 1997 13:29:58 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Listing files on your server as scalar values.
Message-Id: <mf3p76.kh2.ln@localhost>
lineberry@cyberdude.com wrote:
: In article <comdog-ya02408000R0912971543420001@news.panix.com>,
: comdog@computerdog.com (brian d foy) wrote:
[snip]
: > you might want to consider use of the directory reading family of
: > functions: opendir, readdir, and so on, along with the file test
: > operators.
[snip]
: Thanks, Using the "directory functions" would be a better way of doing
: my task. Here's the problem I encounter when using "opendir". Everything
: works fine when I use the DIRHANDLE "THISDIR" but if I try to go one
: directory up ".." some of the directories are not listed as directories.
: And if I try to use the -f for "ascii text" files; they do not get
: listed. However, all the remaining files and directories are printed as
: BLAH:.
: #!/usr/bin/perl -w
: open(OUTPUT, ">dirp") or die "What's wrong with dirp? = : $!";
: opendir THISDIR, "." or die "Major Problem #1: $!"; @allfiles = readdir
: THISDIR; foreach $file (@allfiles) {if (-d "$file") {print OUTPUT
: "Directory: $file\n"} else {print OUTPUT "BLAH: $file\n"}} closedir
: THISDIR;
: opendir ROOT, ".." or die "Something's wrong! = : $!"; @rootdir = readdir
: ROOT; foreach $file (@rootdir) {if (-d "$file") {print OUTPUT "Directory:
^^^^^^^^^^^^
(-d "../$file")
I don't see how you could have missed this in the 'perlfunc'
description of the function that you are using:
---------------------------
=item readdir DIRHANDLE
Returns the next directory entry for a directory opened by opendir().
If used in a list context, returns all the rest of the entries in the
directory. If there are no more entries, returns an undefined value in
a scalar context or a null list in a list context.
If you're planning to filetest the return values out of a readdir(), you'd
better prepend the directory in question. Otherwise, because we didn't
chdir() there, it would have been testing the wrong file.
opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
@dots = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;
---------------------------
: Any suggestions?
1) read about functions that you want to use in the documentation that
came with perl.
2) Format your code so that a human can read it too...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 23 Dec 1997 16:03:09 -0500
From: daveSTOP*SPAMreed@webshowplace.com (Dave Reed)
Subject: Re: Newbie can't add the -w flag to perl to get useful warnings
Message-Id: <daveSTOP*SPAMreed-2312971603090001@d191.b64.cmb.ma.ultra.net>
Thanks, guys! Much appreciated!
-Dave
------------------------------
Date: Tue, 23 Dec 1997 15:33:22 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Michael Kelly - FVC PCD VET ~ <kelly@pcocd2.intel.com>
Subject: Re: perl <STDOUT> to gnuplot <STDIN>
Message-Id: <Pine.GSO.3.96.971223152952.1238O-100000@user2.teleport.com>
On 22 Dec 1997, Michael Kelly - FVC PCD VET ~ wrote:
> Subject: perl <STDOUT> to gnuplot <STDIN>
Please don't write <STDOUT> - it hurts my brain. :-)
> I need help with a perl script that sorts data into arrays,
> then plots selected array slices with gnuplot.
Okay...
> I have a script
[ description of existing script omitted ]
> What I really want to do is something like
>
> open PLOT,"|gnuplot";
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check the return value after opening a file.
[ remainder of desired algorithm snipped ]
Okay... Is there some reason that you can't do that? That is to say, can
you tell us where in the process of implementing this you've gotten stuck?
I'd try to help, but I can't see what help you need.
Cheers!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 23 Dec 1997 22:53:02 GMT
From: "Curtis Snow" <a-csnow@microsoft.com>
Subject: PERL and Rhapsody experiences sought
Message-Id: <01bd0ff5$85c5d160$fc66379d@csnow1>
Keywords: PERL, Rhapsody, Apple Macintosh
Howdy
I`m looking for those few (one ?) individual(s) that have forged ahead &
experienced PERL/perl in the Rhapsody environment (yep...that Apple
BSD/Mach OS thingie).
I`m interested in your experience(s) & all that...good, bad &
ugly...whatever
please reply directly to moi since I seldom read this newsgroup (the press
of work & etc...) - feel free to post your answer(s) here as well
- Mahalo !
--
"If you think this message reflects the official views of Microsoft
Corporation, you have a REAL problem !"
C. Snow
ISPU - PKSTest
------------------------------
Date: Tue, 23 Dec 1997 15:16:35 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: jyanni@weir.net
Subject: Re: Perl lib version (5.5.004) ????
Message-Id: <Pine.GSO.3.96.971223151533.1238K-100000@user2.teleport.com>
On Mon, 22 Dec 1997 jyanni@weir.net wrote:
> [root@proxy perl5.004_04]# ./configpm Argument "5.5.004" isn't numeric at
> ../configpm line 19. Perl lib version (5.5.004) doesn't match executable
> version (5.5.004) at lib/Con fig.pm line 7.
>
>
> The reason for the error is that '5.5.004' is not a legal numeric value.
> It is created by the perl env. variable '$]'. Why is this happening?
> How can I fix this?
Somehow, the version and sub-version numbers seem to have been munged;
you'll need to recompile. Check your configuration values again. Good
luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Tue, 23 Dec 1997 20:51:57 GMT
From: RHS Linux User <cosborn@bbnplanet.com>
Subject: Perlscript and Windows Scripting Host
Message-Id: <34A0249F.3CFAFF69@bbnplanet.com>
Hello
Can sombody tell me how to get this working? I can't figure out how to
access the windows scripting host methods or anything else through
perlscript and the cscript/wscript environment. I would rather use
perlscript than jscript or vbscript. Has anyone used perscript either
through the cscript or wscript command line? If you have successfully
used the IIS admin objects in conjunction with cscript/wscript and
perlscript please send me a sample!
I could even be convinced to create a FAQ on this if somebody can verify
thats it's even possible.
please respond via email.
thanks,
--
+------------------------------------------------------------------------+
Christopher Osborn GTE Internetworking, Powered By
BBN
cosborn@bbnplanet.com Internet Systems Engineer
------------------------------
Date: Tue, 23 Dec 1997 14:51:20 -0600
From: paulj@raima.com
Subject: Re: Q: Database for Perl on NT (something like msql)?
Message-Id: <882909956.1924923405@dejanews.com>
Check out Velocis 2.0 Raima's client/server database which has a Perl
interface among many other interfaces and APIs. Take a look at or website
at: www.raima.com.
Regards...
Paul Johnson
Product Manager
In article <349F027D.2550@algonet.removetoreply.se>,
rowanfan@algonet.se wrote:
>
> Does anyone know something that will work on an NT?
> I want to have a database with some links and descriptions,
> and it will be searchable via CGI.
> Anyone tried to port msql to NT?
>
> /calle
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Tue, 23 Dec 1997 15:39:06 -0800
From: Steve <dtlgc@flash.net>
Subject: Re:Per Dbase Access
Message-Id: <34A04B9A.2697@flash.net>
Thanks Eric
I'll Check it out.
------------------------------
Date: Tue, 23 Dec 1997 14:57:00 -0500
From: Jim Michael <jim.michael@gecm.com>
Subject: Re: Sort a file and pattern match
Message-Id: <34A0178C.446@gecm.com>
boggiano@venus.it wrote:
>
> Hi all,
> i need to reverse the order of the lines in a file,
> from:
>
> home/ale/prog/game/doom.txt
> /home/ale/prog
> /home/ale/pub
> /home/ale
>
> to:
>
> /home/ale
> /home/ale/pub
> /home/ale/prog
> /home/ale/prog/game/doom.txt
I seem to recall seeing this on dejanews once.
Slurp the file into an array and then use reverse, like so:
#!/usr/bin/perl -w
open(IN,"$ARGV[0]") || die("Doh! $!");
my @files=<IN>;
print "@files\n";
reverse @files;
print @files;
>
> Also i need to perform a "patter match" on all files
> in it.(here only doom.txt).
$one2search=0;
$pitter="patter";
if ($files[$one2search]=~ /$pitter/) {
#do something
}
Cheers,
Jim
>
> Can anyone help me,please ?
> Reply by e-mail, (if possible).
>
> Thanks you.
> Alessandro
> boggiano@venus.it
------------------------------
Date: 23 Dec 1997 20:09:06 GMT
From: tfletche@pcocd2.intel.com (Terry Michael Fletcher - PCD ~)
Subject: Re: Sort a file and pattern match
Message-Id: <67p5p2$bhu$1@news.fm.intel.com>
boggiano@venus.it so eloquently and verbosely pontificated:
> Hi all,
> i need to reverse the order of the lines in a file,
this is cake. you need the 'reverse' operator which can operate on
strings or lists.
> Also i need to perform a "patter match" on all files
> in it.(here only doom.txt).
well, i'll assume you know how to "patter match", but it also looks like
you are interested in testing if the item is a file? sounds like you want
the "-e" or "-f" file test operators as well.
also, '"patter match" on all files' is a bit ambiguous. do you mean
pattern match on the contents of the file? or pattern match on the file
name? this quick hack (uncommented, for the user's benefit) pattern
matches *the name* and tests if its a plain file:
foreach (reverse <FILE>) {
chomp;
if (/doom\.txt/ && -f) {
yadda_yadda_yadda;
}
}
some combination of these operators and functions should do what you need
pretty easily.
hope that helps!
--
#!/usr/local/bin/perl -w- tfletche@pcocd2.intel.com
sleep 1;$"=(time-$^T)<<1;$SIG{ALRM}=sub{print};${q$_$}=join"",
map{chr(hex)}split/(..)/,"4a75737420";alarm$";<>;s y(\0\w){4}.
?yreverse q brehtonabyex;alarm$";<>;for(;length>4;chop){}tr&to
an&empti&;alarm$";<>;s@$_@reverse',ret'.q csaw c@e;alarm$";<>;
------------------------------
Date: 23 Dec 1997 20:56:16 GMT
From: Eli the Bearded <#@qz.to>
Subject: Re: Sort a file and pattern match
Message-Id: <eli$9712231530@qz.little-neck.ny.us>
In article <34a0088d.3167511@news.venus.it>, <boggiano@venus.it> wrote:
> Hi all,
Hello.
> i need to reverse the order of the lines in a file,
Hmmm. Sounds like a job for reverse:
open (IN,"<file") or die q$ You're killing me here $;
@lines=<IN>;
@reversed=reverse @lines;
Of course you can do it in other ways as well.
> Also i need to perform a "patter match" on all files
> in it.(here only doom.txt).
Huh? Match on the file names or a search of the files themselves?
Use -f to figure out if they are files, you might want to do that
while reading and reversing them:
open (IN,"<file") or die q$ You're killing me here $;
while(<>){ @reversedfiles=($_,@reversedfiles) if -f $_ }
> Can anyone help me,please ?
Try this handy ed script out for size as well:
ed - file <<EOF
g/^/m0
w
q
EOF
It does the reversing bit at least. Plus ed scripts are near
guarranteed to leave anyone else reading your code tearing their
hair out.
> Reply by e-mail, (if possible).
Read the group please.
Elijah
------
began using perl as a replacement for ed scripts in here documents
------------------------------
Date: Tue, 23 Dec 1997 15:20:20 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Steve Linberg <slinberg-bitme@crocker.com>
Subject: Re: Trouble with default CGI-BIN directories under Perl
Message-Id: <Pine.GSO.3.96.971223151935.1238L-100000@user2.teleport.com>
On Mon, 22 Dec 1997, Steve Linberg wrote:
> How do I configure IIS and/or Perl to set the default directory for a
> script to the directory it is contained in, rather than the cgi-bin root?
If you can't find the answer in your server's docs, you should get a
better one. :-) Or, you could ask in a newsgroup about servers. Good
luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Tue, 23 Dec 1997 14:50:06 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: "Rob A. Reed" <SCWW55A@prodigy.com>
Subject: Re: url_get.pl
Message-Id: <Pine.GSO.3.96.971223144928.1238H-100000@user2.teleport.com>
On 22 Dec 1997, Rob A. Reed wrote:
> Subject: url_get.pl
>
> I'm using this library to load a page from another server
Perhaps you should be using the LWP module.
> The script works fine from within unix... but when I try to manipulate
> the script from an html page, it gives me an error 500... can anybody
> help? Thanks...
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN. Hope this helps!
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 23 Dec 1997 22:56:26 GMT
From: Zenin <zenin@best.com>
Subject: Re: Wacky idea: a PERL server
Message-Id: <882917977.357803@thrush.omix.com>
Bill Totten <biell@udel.edu> wrote:
: This is not really necessary, however. In any reasonable OS, perl will
: stay in shared memory if you have enough of it. So, if perl never leaves
: shared memory, you have the bulk of the program ready for use by anyone.
: The first time you start it, it will still need to be loaded.
Hmm, not as far as I know. The OS can load it faster because it
can pull clean pages from memory/swap, but it still needs it's own
memory space per invocation (to set user rights, etc) and thus
multible copys in memory for each.
If you use vfork(2) inside a program (perl needs to be compiled with
the vfork option set to do this, but don't try it on Solaris as the
secular/swaper can freak) and don't exec(), you'll use the same
memory copy of perl. As soon as you exec() however, you'll get your
own memory space, even if you are exec()ing a "perl" program.
: For example, I use a pop client written in perl. So, perl is always in
: memory, since it has to be for the pop client.
Huh? You don't meen a pop "server", do you? Why would a client
always need to be running ("in memory")?
: So, every subsequent call to perl only needs its own data segment.
See above. Only if you're vfork()ing from a running perl program
and not exec()ing after the fork.
: I also have 32Mb RAM, so I very rarely swap more than a meg or two.
Hmm, are you running a SysV and/or Linux machine? Swap is used
in different ways on different systems. Under FreeBSD the
executable is copied into swap when you exec() for speed. -It's
*much* faster copy clean pages from swap then from the file
system, and swap is vary cheep now adays. Linux leans more on
minimal swap at the expense of speed. -This was needed when Linux
decided it needed to support vary tight systems (386sx16/2 megs RAM,
on a 10 meg disk install). Other SysV type systems do similar
things.
: In a situation where perl
: is being run a lot, it will most likely stay in shared memory and you
: wouldn't have to worry.
Clean pages may be cached (in memory, or swap), but not in shared
memory, and you'll still need to load your own copy on exec() anyway.
-Although, since it's cached you'd only need to move the clean pages
that you need at any given time and not load the entire thing. This
however, is the case even when a program only runs once (At least,
on a real OS).
Shared memory is an _entirely_ different beast altogether.
: Also, it does not take very long at all for perl to start up.
Quite true, but as mentioned it's enough that under heavy use (as is
the case with calls from SNPP, Web Servers, and the like) it's too
much. Apache has mod_perl, which helps a *lot* and does allow perl
to be resident and not exec() each time. You can also cache the
parsed scripts as well, minimizing your startup costs even more.
: However, perl starts quickly. Therefore, your concern is largely unnecessary.
Again, this depends on use. I've got web servers that would be
exec()ing 20-100+ new copys of perl a second and re-parsing the same
scripts for most of it. With mod_perl, I've got 15-40 copys at most,
all started and running.
--
-Zenin
zenin@best.com
------------------------------
Date: 23 Dec 1997 23:13:15 GMT
From: spidaman@well.com (Ian Kallen)
Subject: y2k compliant perl
Message-Id: <67pgic$2ee$1@was.hooked.net>
Enough of the jokes about reasons to ditch perl4 installations, anybody have
a more elegant way to be y2kosher?
sub right_now {
# rely on the system clock's accuracy to
# make a y2k'able SQL DATETIME string: 0000-00-00 00:00:00
# don't bug me about the 22nd century
my $century;
my $time=shift;
my($se,$mi,$ho,$md,$mo,$ye)=(localtime($time))[0,1,2,3,4,5];
$mo++;
if ($time >= 946713600) {
$century='20';
$ye=~s/^1/$century/;
} else {
$ye='19'.$ye;
}
my $d=sprintf("%04d-%02d-%02d %02d:%02d:%02d",$ye,$mo,$md,$ho,$mi,$se);
return($d);
} # right_now
...seems to work but as with all things perly, I bet there's a neater way to
do it.
thanks,
--
Ian Kallen <spidaman@well.com>
"Like so many Americans, she was trying to construct a life that made
sense from things she found in gift shops."
-- Kurt Vonnegut, Jr.
------------------------------
Date: 23 Dec 1997 23:35:57 GMT
From: bdwheele@indiana.edu (Brian Wheeler)
Subject: Re: y2k compliant perl
Message-Id: <67phst$rdb$1@dismay.ucs.indiana.edu>
In article <67pgic$2ee$1@was.hooked.net>,
spidaman@well.com (Ian Kallen) writes:
> Enough of the jokes about reasons to ditch perl4 installations, anybody have
> a more elegant way to be y2kosher?
Um. I could be wrong, but isn't the year that localtime returns
relative to 1900? In 2000 it'd be 100.
sub right_now {
my($time)=shift;
my($se,$mi,$ho,$md,$mo,$ye)=(localtime($time))[0,1,2,3,4,5];
return sprintf("%04d-%02d-%02d %02d:%02d:%02d",
$ye+1900,$mo+1,$md,$ho,$mi,$se);
}
Doesn't this work the same?
Brian Wheeler
bdwheele@Indiana.edu
>
> sub right_now {
> # rely on the system clock's accuracy to
> # make a y2k'able SQL DATETIME string: 0000-00-00 00:00:00
> # don't bug me about the 22nd century
> my $century;
> my $time=shift;
> my($se,$mi,$ho,$md,$mo,$ye)=(localtime($time))[0,1,2,3,4,5];
> $mo++;
> if ($time >= 946713600) {
> $century='20';
> $ye=~s/^1/$century/;
> } else {
> $ye='19'.$ye;
> }
> my $d=sprintf("%04d-%02d-%02d %02d:%02d:%02d",$ye,$mo,$md,$ho,$mi,$se);
> return($d);
> } # right_now
>
> ...seems to work but as with all things perly, I bet there's a neater way to
> do it.
> thanks,
>
> --
> Ian Kallen <spidaman@well.com>
> "Like so many Americans, she was trying to construct a life that made
> sense from things she found in gift shops."
> -- Kurt Vonnegut, Jr.
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 1530
**************************************
