[8316] in Perl-Users-Digest
Perl-Users Digest, Issue: 1933 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 19 15:28:02 1998
Date: Thu, 19 Feb 98 12:00:28 -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 Feb 1998 Volume: 8 Number: 1933
Today's topics:
Re: A new user to the Sybase module <mpeppler@mbay.net>
A script to autonumber the sections of a .pod file <dfan@harmonixmusic.com>
Changing Scalar Variable Name in While <norman.bunn@mci.com>
differences perl 4.0.1.8 -> 4.0.3.6 (Haig)
Re: Embedding Perl in C (Sean McAfee)
Re: Hardware remote control <mishra.aditya@emeryworld.com>
How do you mail with Perl? <wefs@doc.ic.ac.uk>
Java(C++(Perl)) <bufic@cs.rpi.edu>
Re: Location: returns empty document? (Mikael Skogstrom)
Look'n for a little help..... <dstewart@fusion.ca>
Re: LWP Question <barnett@houston.Geco-Prakla.slb.com>
New Module List Posted (Andreas Koenig)
Re: newbie question about reloading a web page through <seans@chiefaircraft.com>
Re: Newbie question <hsommer@micro.ti.com>
Perl and SMP... <munoz@comswsys.tinkernet.af.mil>
Secure Path with setgid <wrjohns@sandia.gov>
stripping C:\this\that\file.txt on form uploads <soul@explorer.com>
Re: ts: Remove files in a PERL sript <soul@explorer.com>
Re: Unknown Error <barnett@houston.Geco-Prakla.slb.com>
Re: Using Perl to encrypt credit card numbers at Web si (sdm)
Re: Verifying a URL? <sme@planetpod.com>
Re: what is exaclty the "_" Variable ?!?! (Mikael Skogstrom)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 19 Feb 1998 10:35:36 -0800
From: Michael Peppler <mpeppler@mbay.net>
Subject: Re: A new user to the Sybase module
Message-Id: <34EC7B78.1804@mbay.net>
Abigail wrote:
>
> Tucker Callaway (tuckwc@uclink2.berkeley.edu) wrote on 1633 September
> 1993 in <URL: news:34EB8BFA.CF6DBDF4@ac.housing.berkeley.edu>:
> ++
> ++ The only way I can think of doing this right now is display the first 20
> ++ entries. Then when the user clicks for the next 20 entries. I query
> ++ the database again but skip the first 20 entries and print the 21-40th
> ++ entries. As you can imagine this process can get very inefficient for
> ++ large numbers of entries. (for the 101 -120 th entries I have to skip
> ++ 100 entries)
>
> Unless you're database is heavily loaded on a too small machine,
> skipping 100 rows is peanuts compared to the overhead of dealing
> with the TCP/IP connection.
You can use a cursor, or use a where clause that specifies the
first row you want to retrieve based on the last row in the
previous set, and set ROWCOUNT to 20 so that you only get
the next 20 rows back.
But of course that has nothing to do with perl - it's standard
T-SQL techinques...
Michael
--
Michael Peppler -||- Data Migrations Inc.
mpeppler@datamig.com -||- http://www.mbay.net/~mpeppler
International Sybase User Group Member-at-Large
http://www.isug.com
------------------------------
Date: 19 Feb 1998 14:19:30 -0500
From: Dan Schmidt <dfan@harmonixmusic.com>
Subject: A script to autonumber the sections of a .pod file
Message-Id: <wkra4zpflp.fsf@turangalila.harmonixmusic.com>
# Run this as a filter on a .pod file to (re)number its sections.
# (1, 2, 2.1, 2.2, 2.2.1, 3, etc.)
#
# Warning: silently eats digits at the beginning of your section names,
# figuring they are old section numbers from previous runs.
#
# Dan Schmidt <dfan@alum.mit.edu>
$last_level = 0;
while (<>) {
if (/^=head(\d)\s+(([\d.]+)\s+)?(.*)$/) {
$level = $1;
$text = $4;
if ($level > $last_level) {
foreach $i ($last_level+1 .. $level) { $nums[$i] = 0; }
}
++$nums[$level];
$last_level = $level;
$head = join (".", @nums[1..$level]);
print "=head$level $head $text\n";
} else {
print;
}
}
--
Dan Schmidt -> dfan@harmonixmusic.com, dfan@alum.mit.edu
Honest Bob & the http://www2.thecia.net/users/dfan/
Factory-to-Dealer Incentives -> http://www2.thecia.net/users/dfan/hbob/
Gamelan Galak Tika -> http://web.mit.edu/galak-tika/www/
------------------------------
Date: Thu, 19 Feb 1998 18:14:03 GMT
From: "Norman Bunn" <norman.bunn@mci.com>
Subject: Changing Scalar Variable Name in While
Message-Id: <LD$G.6579$Yw.1421675@news.internetMCI.com>
Is there a way to change the name of a scalar variable while in a While?
Though incorrect, I want to do something like:
$count = 1
while ($count <= 20)
{
$pro$count = param('PRO_$count')
$count++
}
Thanks,
Norman
------------------------------
Date: 19 Feb 1998 18:20:12 GMT
From: rhaig@austin.ibm.com (Haig)
Subject: differences perl 4.0.1.8 -> 4.0.3.6
Message-Id: <6cht4s$1tca$1@ausnews.austin.ibm.com>
I'm looking for historical information about updates to perl4
(ver 4.0.1.8 -> 4.0.3.6) and the security & other implications
thereof.
Why? you ask??
some internal customers are using 4.0.1.8 & I'm trying to come up with
reasons for them to upgrade to at least 4.0.3.6. (the most recent
unsupported version)
Also, I'd be interested in what would have to be done to any arbitrary
perl4.0.1.8 script to make it run on perl5.
I didn't come into the world of perl until perl5, so I don't have any
first hand experience with perl4isms.
If there is a list already compiled list of what I'm looking for, then
send me a url & tell me to shut tf up. I don't have a problem with that.
I'm looking through the patch36 in the perl4.0.3.6 code and it's giving
me some of what I want. I just want to make sure I don't miss any glaring
problems with 4.0.1.8.
Thx
--
Rob
------------------------------
Date: Thu, 19 Feb 1998 17:56:04 GMT
From: mcafee@seawolf.rs.itd.umich.edu (Sean McAfee)
Subject: Re: Embedding Perl in C
Message-Id: <Um$G.2028$N4.12234353@news.itd.umich.edu>
In article <34EB10AD.54B22181@mathworks.com>,
Craig Ciquera <craig@mathworks.com> wrote:
>Typically, you can access and use an object (in Perl) in the following
>way:
>$a = new Foo;
>$a->disp;
>where I have a module called Foo.pm and disp is a method in Foo.pm.
>$a is a Foo object after calling:
>$a = new Foo
>With that said, I now have the following question:
>How to embed this type of situation in C where disp is a virtual
>method???
>That is, I want to have a variable in C which is a Foo object and use
>that Object reference to call the disp method
>I have read through the on-line doc and Srinivasan's "Advanced Perl
>Programming"
>is excellent. However, lacking much intelligence, I cannot see how to:
>1. Get a C variable which is a refernece to a Perl Object (i..e, $a).
>2. Call the method disp.
I've been doing some Perl embedding stuff recently, so I'll take a crack at
it. Presuming that an interpreter has been initialized elsewhere and has
parsed and run the contents of your script:
void
call_disp(void)
{
dSP; /* see Panther book, p. 352 for this and related macros */
SV *a = perl_get_sv("a", FALSE); /* see Panther, p. 331 */
ENTER;
PUSHMARK(sp);
XPUSHs(a);
PUTBACK;
perl_call_method("disp", G_DISCARD); /* see Panther, p. 343 */
SPAGAIN;
PUTBACK;
LEAVE;
}
>Anyone have a nice concrete example or ideas on where else I can look
>for information??
HTH.
For those readers better-versed in Perl embedding than I, I have a
question. When testing the above subroutine, I originally had it in
main(), where it crashed with a segmentation violation on the XPUSHs.
After I moved the method-calling code to another function, it worked fine.
Anyone know why that is?
--
Sean McAfee | GS d->-- s+++: a25 C++ US+++$ P+++ L++ E- W+ N++ |
| K w--- O? M V-- PS+ PE Y+ PGP?>++ t+() 5++ X+ R+ | mcafee@
| tv+ b++ DI++ D+ G e++>++++ h- r y+>++** | umich.edu
------------------------------
Date: Thu, 19 Feb 1998 11:49:11 -0800
From: "Mishra, Aditya" <mishra.aditya@emeryworld.com>
Subject: Re: Hardware remote control
Message-Id: <6ci0cn$1g56@ljcqs003.cnf.com>
>Specifically,
>
> Can an HTML page interface to PERL so that not a single bit of Java
> is needed? Can the same be done for other code such as C?
>
Yes ! What you suspect is true!
Also this question should be posted to CGI groups not here .
I suspect you needed an example to alleviate your suspicions.
Well you can get plenty of them in the perldocs for HTML.
Install perl and you can get going in no time!
Lotsa Luck!
Adi
------------------------------
Date: Thu, 19 Feb 1998 19:36:54 +0000
From: William Smith <wefs@doc.ic.ac.uk>
Subject: How do you mail with Perl?
Message-Id: <34EC89D5.41C67EA6@doc.ic.ac.uk>
I want to set up a daemon to read incoming mail files, process them, and
then write them into files.
Does anyone know how to set up a daemon and access a mail file for
input????
Many thanks.
--
William E.F. Smith
http://www-students.doc.ic.ac.uk/~wefs/
Imperial College, London
------------------------------
Date: Thu, 19 Feb 1998 14:38:01 -0500
From: Corey Bufi <bufic@cs.rpi.edu>
Subject: Java(C++(Perl))
Message-Id: <34EC8A18.6D37F143@cs.rpi.edu>
I'm interested in calling a C++ routine which contains embedded Perl
code from Java code. I can do Java-to-C++ and, separately, C++-
to-Perl, but now I want to combine all three. Anybody have any idea
of what the Makefile would look like in order to do this under Solaris?
------------------------------
Date: Thu, 19 Feb 1998 19:15:38 +0100
From: mikael@techtalk.se (Mikael Skogstrom)
Subject: Re: Location: returns empty document?
Message-Id: <B112355A96682435E@du32-156.ppp.algonet.se>
In article <34E4A07E.663AE4D1@no.spam.wxs.nl>,
"P. Schmitz" <schmitzp@no.spam.wxs.nl> wrote:
>It's exactly the same as in the C++ source, yet this gives a 'Document
>contains no data' error and the C++ version redirects the browser to Yahoo!,
>as it should. So it still could be a perl-related problem...
Have you tried to run the script from the command line, without the server?
Do that first and check that it runs without any errors. My experience is
that when this happens, there's usually some faulty code generating a
syntax error, and _that_ the HTTP server doesn't understand.
Mikael
------------------------------
Date: Thu, 19 Feb 1998 13:41:28 -0500
From: "David Stewart" <dstewart@fusion.ca>
Subject: Look'n for a little help.....
Message-Id: <6chukd$qdf$1@newsbell.bellglobal.com>
Hi all! Just wondering if anyone has an answer for me about this problem.
PROBLEM: Use .htacess to send a user to a specific URL based on the user id
they enter.
Now I have a script that I am trying to use here but I have no idea how to
make it interact with the .htaccess file?? So could someone please either
tell me how to make this work or tell me anouther way to do this that will
work.
Thanxs in advance
Here is what I have so far:
<!--start .htaccess example -->
AuthUserFile /export/apache_1.2.1/htdocs/mydir/.htpasswd
AuthName ClientLink
AuthType Basic
<Limit get>
require valid-user
</Limit>
<!--end .htaccess example--->
and the perl script I am trying to get to work with it:
<!--start perl script-->
#!/usr/bin/perl
#
# loadpage.cgi - load a given page based on REMOTE_USER
# line's starting with "#" are comments
# root url
$ROOT_URL="http://www.whereever.ca/secure";
# load the raw data and set up a hash to map urls to usernames
while(<DATA>) {
($who,$path)=split(/:/,$_);
$url{$who}="$ROOT_URL/$path";
}
# output an HTTP location header that should kick the user
# to the URL specified ...that's it!
print "Location: $url{$REMOTE_USER}\n\n";
#
#Add any new username page entries below
#
__DATA__
sean:inside/seansfile.html
fusion:inside/luisfile.html
etc:inside/etcfile.html
### end of script
<!--end perl script example-->
------------------------------
Date: Thu, 19 Feb 1998 12:09:32 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: LWP Question
Message-Id: <34EC755C.34A8588F@houston.Geco-Prakla.slb.com>
M.J. Pieters wrote:
>
> Manhattan5 wrote in message
> <19980218050701.AAA13726@ladder03.news.aol.com>...
> >Hello,
> >
<snip>
> It should show something like:
> -rwxrwxr-x 1 user group 8384 Feb 17 14:52 program.cgi
>
> If you don't have any x's, do this:
> chmod program.cgi
How about:
chmod 755 program.cgi
Without 755 (or similar options), I just get an error message.
<snip>
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: 19 Feb 1998 18:59:15 GMT
From: andreas.koenig@franz.ww.tu-berlin.de (Andreas Koenig)
Subject: New Module List Posted
Message-Id: <6chve3$15n$1@mamenchi.zrz.TU-Berlin.DE>
Keywords: FAQ, Perl, Module, Software, Reuse, Development, Free
The Perl 5 Module List, v2.47
=============================
Today I posted a new module list to the newsgroups
comp.lang.perl.modules, comp.answers, and news.answers. The HTML
version of the list has been uploaded to CPAN as well:
http://www.perl.com/CPAN/modules/00modlist.long.html
As usual, comments, corrections and suggestions are appreciated.
Please mail them to modules@perl.org. I believe that I have taken into
account all mails we have received since the last posting. If this is
not the case, please let us know.
Besides the changes listed below, the text part of the module list has
got a few new paragraphs from Jon Orwant. Because we're getting
flooded by module registrations with irresponsible naming suggestions,
I'd like to post the complete chapter 2.5 of the module list here.
Please take it to heart if you are considering a contribution to CPAN.
Thank you.
2.5 Select a name for the module.
This name should be as descriptive, accurate and complete as
possible. Avoid any risk of ambiguity. Always try to use two or
more whole words. Generally the name should reflect what is special
about what the module does rather than how it does it.
Having 57 modules all called Sort will not make life easy for anyone
(though having 23 called Sort::Quick is only marginally better :-).
Imagine someone trying to install your module alongside many others.
If in any doubt ask for suggestions in comp.lang.perl.modules or
modules@perl.org.
Please use a nested module name to informally group or categorise
a module, e.g., placing a sorting module into a Sort:: category.
A module should have a very good reason not to have a nested name.
Please avoid using more than one level of nesting for module names
(packages or classes within modules can, of course, use any number).
Module names should begin with a capital letter. Lowercase names are
reserved for special modules such as pragmas (e.g., lib and strict).
Note that module names are not related to class hierarchies.
A module name Foo::Bar does not in any way imply that Foo::Bar
inherits from Foo. Nested names are simply used to provide some
useful categorisation for humans. The same is generally true for
all package names.
Since the CPAN is huge and growing daily, it's essential that
module authors choose names which lend themselves to browsing.
That means minimizing acronyms, cute names, and jargon. Also,
don't make up a new top level category unless you have a good
reason; please choose an already-existing category when
possible. Send mail to modules@perl.org before you upload, so
we can help you select a name.
If you insist on a name that we consider inappropriate, we
won't prevent you from uploading your module -- but it'll
remain in your "author" directory and won't be directly visible
from CPAN/modules/by-module.
We appreciate the efforts of the contributors who have helped
make the CPAN the world's largest reusable code repository.
Please help us enhance it by working with us to choose the
best name possible.
If you are developing a suite of related modules/classes it's good
practice to use nested classes with a common prefix as this will
avoid namespace clashes. For example: Xyz::Control, Xyz::View,
Xyz::Model etc. Use the modules in this list as a naming guide.
If adding a new module to a set, follow the original author's
standards for naming modules and the interface to methods in
those modules.
If developing modules for private internal or project specific use,
that will never be released to the public, then you should ensure
that their names will not clash with any future public module. You
can do this either by using the reserved Local::* category or by
using a category name that includes an underscore like Foo_Corp::*.
To be portable each component of a module name should be limited to
11 characters. If it might be used on DOS then try to ensure each is
unique in the first 8 characters. Nested modules make this easier.
Recent Changes in the modules database (! for changes, "+" for new entries)
---------------------------------------------------------------------------
2) Perl Core Modules, Perl Language Extensions and Documentation Tools
----------------------------------------------------------------------
Pod::
::Diff cdpf compare two POD files and report diff IANC +
::Sdf cdpf converter to SDF IANC +
4) Operating System Interfaces
------------------------------
Device::
::SVGA c SVGA Graphic card driver SCOTTVR +
MSDOS::
::Descript bdpO Manage 4DOS style DESCRIPT.ION files CJM +
VMS::
::Lock cnco Object interface to $ENQ (VMS lock mgr) BHUGHES +
5) Networking, Device Control (modems) and InterProcess Communication
---------------------------------------------------------------------
DCE::
::ACL bdcO Interface to Access Control List protocol PHENSON !
::Login bdcO Interface to login functions PHENSON !
::RPC c Remote Procedure Calls PHENSON !
::Registry bdcO DCE registry functions PHENSON !
::Status bdpr Make sense of DCE status codes PHENSON !
::UUID bdcf Misc uuid functions PHENSON !
Net::
::Interface a ifconfig(1) implementation SRZ +
RPC::
::Simple adpO Simple OO async remote procedure calls DDUMONT +
::pClient RdpO Interface for building pServer Clients JWIED +
::pServer RdpO Interface for building Perl Servers JWIED +
Socket Smcf Defines socket-related constants GNAT !
6) Data Types and Data Type Utilities (see also Database Interfaces)
--------------------------------------------------------------------
Array::
::Heap cdpf manipulate array elements as a heap JMM +
Calendar::
::RCM i Russell Calendar Manager HTCHAPMAN +
Class::
::Singleton bdp Implementation of a "Singleton" class ABW +
::TOM RmpO Transportable Object Model for perl JDUNCAN +
Data::
::Check cdpO Checks values for various data formats KENHOLM +
Heap::
::Base cdpO defines heap (and element) object interfaces JMM +
::Binary cdpO implement binary Heap:: interface JMM +
::Binomial cdpO implement binomial Heap:: interface JMM +
Heap::Elem::
::* cdpO implement containers items to be heap'ed JMM +
::Fibonacci cdpO implement Fibonacci Heap:: interface JMM +
List::
::Utils cdcf Extra list/array manipulation functions JNH +
Sort::
::Fields bdpf sort text lines by alpha or numeric fields JNH +
Tie::
::CPHash bdpO Case preserving but case insensitive hash CJM +
::DBI adpO Tie hash to a DBI handle LDS +
Tree::
::Fat adcO Embeddable F-Tree Algorithm Suite JPRIT +
7) Database Interfaces (see also Data Types)
--------------------------------------------
DBD::
::Sybase amcO Sybase Driver for DBI MEWP !
Db::
::Ctree adcr Faircom's CTREE+ database interface REDEN +
::Documentum bdcf Documentum EDMS Perl client interface BRIANSP +
MLDBM RdpO Transparently store multi-level data in DBM GSAR !
Msql RmcO Mini-SQL database interface JWIED !
Mysql RmcO mysql database interface JWIED +
ObjStore Rm+O ObjectStore OODBMS Interface JPRIT !
Sybase::
::BCP RdcO Sybase BCP interface MEWP +
::CTlib RdcO Sybase CTlibrary interface MEWP !
8) User Interfaces (Character and Graphical)
--------------------------------------------
Event adpO Perl event loop GBARR +
GUI::
::Guido i bd+O Communicate with objects in a GUI TBRADFUTE +
Gimp bdcO Interface to write plug-ins for The Gimp MLEHMANN +
X11::
::Motif bdcO Motif widget set interface KENFOX !
10) File Names, File Systems and File Locking (see also File Handles)
---------------------------------------------------------------------
File::
::Compare Supf Compare file contents quickly P5P +
11) Text Processing, Parsing and Searching
------------------------------------------
FrameMaker::
::Control cdpO Control a FrameMaker session PEASE +
::FDK idcO Interface to Adobe FDK PEASE +
::MIF cdpO Parse and Manipulate FrameMaker MIF files PEASE +
Lingua::
::PT bupf Namespace for Portugese language modules EGROSS +
String::
::CRC Rdcf Cyclic redundency check generation MUIR +
Text::
::Balanced Rdpf Extract balanced-delimiter substrings DCONWAY +
::Format RdpO Advanced paragraph formatting GABOR +
::MetaText bdp Text processing/markup meta-language ABW +
13) Internationalization and Locale
-----------------------------------
Locale::
::Langinfo cdcf The <langinfo.h> API JHI +
14) Authentication, Security and Encryption (see also Networking)
-----------------------------------------------------------------
Authen::
::TacacsPlus adcO Authentication on tacacs+ server MSHOYHER +
PGP::
::Sign bdpr Create and check PGP signatures, securely RRA !
SSLeay::
::* cdcO Interface to SSLeay EAYNG +
15) World Wide Web, HTML, HTTP, CGI, MIME etc (see Text Processing)
-------------------------------------------------------------------
CGI::
::Screen adpO Create multi screen CGI-scripts ULPFR +
HTML::
::Table bnpO Write HTML tables via spreadsheet metaphor STLACY +
HTTP::Request::
::Form RdpO Generates HTTP::Request objects out of forms GBAUER +
18) Images, Pixmap and Bitmap Manipulation, Drawing and Graphing
----------------------------------------------------------------
VRML::
::Base RdpO common basic methods HPALM +
::Color Rdpf color functions and X11 color names HPALM +
::VRML1 RdpO VRML methods with the VRML 1.0 standard HPALM !
::VRML2 RdpO VRML methods with the VRML 2.0 standard HPALM !
19) Mail and Usenet News
------------------------
News::
::Gateway ampO Mail/news gatewaying, moderation support RRA !
20) Control Flow Utilities (callbacks and exceptions etc)
---------------------------------------------------------
Memoize adpr Cache results of individual function calls MJD +
22) Microsoft Windows Modules
-----------------------------
Win32::
::ChangeNotify bdcO Monitor changes to files and directories CJM +
::Event bdcO Use Win32 event objects for IPC CJM +
::IPC bdcO Base class for Win32 synchronization objects CJM +
::Mutex bdcO Use Win32 mutex objects for IPC CJM +
::Semaphore bdcO Use Win32 semaphore objects for IPC CJM +
23) Miscellaneous Modules
-------------------------
Agent cdpO Transportable Agent module SPURKIS !
Business::
::CreditCard Rdpf Credit card number check digit test JONO +
::ISBN RdpO Work with ISBN as objects BDFOY +
FAQ::
::OMatic RdpO A CGI-based FAQ/help database maintainer JHOWELL +
Recent Changes in the users database (only changes and additions)
-----------------------------------------------------------------
AMW Andrew Wilcox <andrew_wilcox@gwi.net>
ANTRO Antonio Rosella <anface@yahoo.com>
ASHER Aaron Sherman <ajs@ajs.com>
BARTLEY Eric Bartley <bartley@purdue.edu>
BHUGHES Brad Hughes <brad@tgsmc.com>
BMEEKINGS Brian Meekings <meekings@idi-middleware.com>
BPOWERS Brent B. Powers <powers@dti.net>
BRIANSP Brian W. Spolarich <briansp@ans.net>
CBAIL Charles Bailey <bailey@genetics.upenn.edu>
CHTTRAX Christoph T. Traxler <Christoph.T.Traxler@theo.physik.uni-giessen.de>
EWALKER Edward Walker <ewalker@platform.com>
FJH Frederick Hirsch <fjh@alum.mit.edu>
GABOR Gabor Egressy <gabor@vmunix.com>
GARY Gary Howland <gary@hotlava.com>
GBACON Greg Bacon <gbacon@cs.uah.edu>
GBAUER Georg Bauer <Georg_Bauer@muensterland.org>
GKNOPS Gerd Knops <gerti@BITart.com>
GNAT Nathan Torkington <gnat@frii.com>
GSPIVEY Gary Spivey <spivey@romulus.ncsc.mil>
GTHYNI Gvran Thyni <goran@bildbasen.se>
HAYASHI Hiroo HAYASHI <hayashi@pdcd.ilab.toshiba.co.jp>
HTCHAPMAN H. Todd Chapman <htchapma@oakland.edu>
JBAKER Jeffrey Baker <jeff@godzilla.tamu.edu>
JMM John Macdonald <jmm@elegant.com>
JOHNL Jonathan Leffler <j.leffler@acm.org>
KENHOLM Kenneth Alexander Holm III <rets@meta3.com>
KGB Karl Glazebrook <kgb@aaoepp.aao.gov.au>
MARKC Mark Constable <markc@goldcoast.org>
MEWP Michael Peppler <mpeppler@mbay.net>
MJD Mark-Jason Dominus <mjd@pobox.com>
MLEHMANN Marc Lehmann <pcg@goof.com>
MSCHILLI Michael Schilli <mschilli1@aol.com>
MSHOYHER Mike Shoyher <msh@apache.lexa.ru>
NJLEON Nicholas J. Leon <nicholas@binary9.net>
ORENBK Oren Ben-Kiki <oren@capella.co.il>
OZAWA OZAWA Sakuro <crouton@po.shiojiri.ne.jp>
PARKER Michael Parker <parker@austx.tandem.com>
PSHARPE Paul Sharpe <paul@miraclefish.com>
PWO Peter W. Osel <pwo@perl.org>
RAVN Thorbjoern Ravn Andersen <ravn@mip.ou.dk>
REDEN Robert Eden <reden@strategiconline.com>
RHNELSON Rolf Harold Nelson <rolf@usa.healthnet.org>
RJRAY Randy J Ray <rjray@tsoft.com>
RRA Russ Allbery <rra@stanford.edu>
RVA Rodger V. Anderson <rodger@boi.hp.com>
SCOTTVR Scott VanRavenswaay <scottvr@netcomi.com>
SFINK Steve A Fink <sfink@cs.berkeley.edu>
SHARI Davide Migliavacca <davide.migliavacca@inferentia.it>
SPP Stephen P Potter <spp@colltech.com>
SPURKIS Steve Purkis <spurkis@engsoc.carleton.ca>
STLACY Stacy Lacy <stacy-lacy@worldnet.att.net>
TBRADFUTE Todd Bradfute <bradfute@pflugerville.org>
--
andreas koenig
------------------------------
Date: 19 Feb 1998 19:32:36 GMT
From: "Sean Smithers" <seans@chiefaircraft.com>
Subject: Re: newbie question about reloading a web page through perl
Message-Id: <01bd3d6d$38d8bde0$020210ac@mail.chiefaircraft1.com>
This is more of a CGI/HTML problem and you might get better
response in those news groups. More specifically, you need to
research META tags, specifically NOCACHE.
Kimbrough Gray <kigray@cs.utexas.edu> wrote in article
<34E8F08E.183@cs.utexas.edu>...
> I have a perl script that updates a unix file called page2.html.
> when they return to page2.html their browser will not display
> the changes until they hit the reload
------------------------------
Date: Thu, 19 Feb 1998 12:35:12 -0600
From: Holly Sommer <hsommer@micro.ti.com>
Subject: Re: Newbie question
Message-Id: <34EC7B60.69AF8B96@micro.ti.com>
Jay Cruto wrote:
: What is the command/function to display the current date using the
: format DD-MMMM-YY? I'm using Perl 5. Thanks for your help.
In addition to modules, there is also the localtime() function.
$day = (localtime)[3];
$month = (localtime)[4]+1; # zero-indexed
$year = (localtime)[5];
-Holly, venturing forth with an un-munged address... eek
------------------------------
Date: 19 Feb 1998 18:26:53 GMT
From: "Vito Munoz" <munoz@comswsys.tinkernet.af.mil>
Subject: Perl and SMP...
Message-Id: <01bd3d63$b4a65c20$f781f089@comswsys.tinkernet.af.mil>
Howdy..
I heard a rumor that SMP machines actualy run perl and other tasks slower
under UNIX.
I find this hard to beleive and was wondering if anyone has experiance with
this.
I am wanting to take full potential of a SMP Digital Dual Pent Pro 200 that
we have
but the BOSS "heard" that etc......
you get the point..
Thanks for any info.
------------------------------
Date: Thu, 19 Feb 1998 10:47:56 -0700
From: "Wilbur R. Johnson" <wrjohns@sandia.gov>
Subject: Secure Path with setgid
Message-Id: <34EC704C.58B3@sandia.gov>
How can I get perl to accept a nonstandard path as "Secure"?
--
Wilbur Johnson (Tech Reps Inc.)
Engineering Manufacturing Mechanics (9117)
Sandia National Laboratories
Albuquerque, N.M. 87185
------------------------------
Date: 19 Feb 1998 18:44:31 GMT
From: <soul@explorer.com>
Subject: stripping C:\this\that\file.txt on form uploads
Message-Id: <6chuif$a0m@news3.euro.net>
can anybody do better than this mess?!
it's taking an upload file name provided by netscape forms upload and
generating a
realistic filename for the file to be saved as.
thanks!
Christopher Paul
soul@explorer.com
sub stripUploadName
{
@stuff=split(/\r/,$_[0]);
$filename = $stuff[0];
$filename =~ s/\"//g;
$filename =~ s/\r//g;
$filename =~ s/\n//g;
@a=split(/\\/,$filename);
$totalT = @a;
--$totalT;
$fname=$a[$totalT];
@a=split(/\//,$fname); #then ignore stuff before last forwardslash
for Unix machines
$totalT = @a;
--$totalT;
$fname=$a[$totalT];
@a=split(/\:/,$fname); #then ignore stuff before last ":" for
Macs?
$totalT = @a;
--$totalT;
$fname=$a[$totalT];
@a=split(/\"/,$fname); #now we've got the real filename
$a[0] =~ tr/A-Z/a-z/;
return ($a[0]);
}
code is currently copyright the ZoneCoaster, as I understand it :-)
------------------------------
Date: 19 Feb 1998 18:47:37 GMT
From: <soul@explorer.com>
Subject: Re: ts: Remove files in a PERL sript
Message-Id: <6chuo9$a1j@news3.euro.net>
yeah all you hardcore perl hackers make this joint a dull experience.
the reason people are asking questions that are in the faq and the
manpages is because the manpages are way technical and half the
time don't explain stuff thoroughly!
>| Don't tell people answers that are in the manpages or faqs.
>
>Wrong. You so easily dismiss people who are new to perl.
>I don't feel it's proper for you to cut and dry it as you
>do. It doesn't help the discussion for you to be so impenetrable.
---------------------------------------------------------------
------------------------------
Date: Thu, 19 Feb 1998 12:05:35 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: Unknown Error
Message-Id: <34EC746F.FBA312EB@houston.Geco-Prakla.slb.com>
Babar wrote:
>
> I receive an error in my log file that I don't understand. I'm
> running a script, and my output is created in perl with a background
> file that I have. When I try to excute my script, I get the error:
>
> wrinkle.jpg failed, errno is 8
At least on my Unix system (solaris 2.5.1), /usr/include/sys/errno.h
lists error 8 to be "Exec format error". What does your copy say?
Sounds like you are trying to execute a program (possibly the perl
interpreter?) on machine A but it was compiled to run on machine B.
Or, are you trying to execute a jpeg file???? The name implies it is a
jpeg file, but ... one can never tell.
I get the "Exec format error message" if I try to run a solaris
executable on a sun4 os machine.
HTH.
Dave
>
> I checked out the man page on errno, but no help.
Look at the /usr/include/sys/errno.h file instead.
>
> Any suggestions?
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: 19 Feb 1998 18:41:32 GMT
From: sdm@blue.seas.upenn.edu (sdm)
Subject: Re: Using Perl to encrypt credit card numbers at Web sites
Message-Id: <6chucs$atr$1@netnews.upenn.edu>
Philip Kapusta (shareware@erols.com) wrote:
: >>Eather use real encrytpion or send it in the clear this type of rot-13ish
: >>encoding produces no strenth at all.
: David,
: Your comment assumes that I know how to use "real encryption" or "PGP"
: ..neither of which I do.
: I've been posting messages in newsgroups, downloading scripts (which don't
: work), and visiting FAQs on the Web, but nowhere can a novice (a.k.a. "me")
: find a "PGP for Dumbies" section.
: It's obvious that my method needs improvement, but since I have only been
: working with Perl for a very short while, telling me to "use PGP" or "real
: encryption" doesn't really help.
: Thanks for trying to assist, however.
You also need to clear up the FTP issue, which is -just-as-bad- as sending
the credit card in clear text from the browser to the web site. There has
been so much talk about making the web connection secure, and people still
do equivalent things other places, like FTP or telnet. One way to do it,
which is reasonably is easy, is to download F-Secure from Datafellows.com
and use the ssh client, and installl the freeware ssh server on your web
server. Both are relatively easy. This will encrypt your telnet sessions,
and you can copy-and-paste the cc #'s to the clip board securely.
Here's a no-brainer intro. to PGP on unix machines:
http://ccat.sas.upenn.edu/~ksm/SASC/pgp_qnd.html
-Steve
http://www.pobox.com/~sdm/
------------------------------
Date: Thu, 19 Feb 1998 11:12:17 -0800
From: Stewart Eastham <sme@planetpod.com>
Subject: Re: Verifying a URL?
Message-Id: <34EC8411.9E4B115@planetpod.com>
Stewart Eastham wrote:
> Is there a way to verify a URL exists using PERL? I looked into the
> Net::Ping module, but that only verifies hosts, instead of actual web
> pages.
>
> stewart eastham
> sme@planetpod.com
Thanks for all the good info guys. I used the LWP module and I got it
working to check URLs. Here's another question along the same lines. Is
it possible to verify the validity of an email address using a similiar
method?
Thanks again.
stewart eastham
------------------------------
Date: Thu, 19 Feb 1998 19:15:45 +0100
From: mikael@techtalk.se (Mikael Skogstrom)
Subject: Re: what is exaclty the "_" Variable ?!?!
Message-Id: <B11235619668244F5@du32-156.ppp.algonet.se>
>>My heartfelt advice to you: put down the Camel book, and purchase the Llama
book, "Learning Perl," by Randal Schwartz. This will gently give you the
foundation you need to make sense of the Camel.>>
I certainly agree with Jonathan. I wouldn't judge myself as beeing stupid,
and I'm pretty clever at using Pascal, but the Llama book helped me a lot
to understand Perl.
Mikael
------------------------------
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 1933
**************************************
