[10388] in Perl-Users-Digest
Perl-Users Digest, Issue: 3981 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Oct 15 12:07:33 1998
Date: Thu, 15 Oct 98 09:00:21 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 15 Oct 1998 Volume: 8 Number: 3981
Today's topics:
a camel? <emills@harris.com>
Re: Are there any "perl.newbie" group or forum? <eashton@bbnplanet.com>
Re: cgi/perl upload script <rootbeer@teleport.com>
command line regexp replace question <tgray@smlny.com>
Re: command line regexp replace question (Matt Knecht)
Re: command line regexp replace question <jdf@pobox.com>
Re: Compiling perl 5.005_02 on Dynix/ptx 4.2.3 <hd-fxsts@liii.com>
Re: Deleteing a line (Larry Rosler)
Re: encryption droby@copyright.com
Re: Equivalent of "unload" after "require"? <tchrist@mox.perl.com>
Re: Equivalent of "unload" after "require"? droby@copyright.com
Re: Implementing 'union's in Perl to C extensions (Larry Wall)
Looking for Network Monitoring Scripts (Stephan Gross)
New to programming - New to Perl - LOST!!!! <tim.hicks@lineone.net>
Re: New to programming - New to Perl - LOST!!!! <erhmiru@erh.ericsson.se>
Newbie ;) ()
Re: newbie at array parsing <rootbeer@teleport.com>
Re: newbie at array parsing (Matthew Bafford)
Re: Outside commands dave@mag-sol.com
Re: Outside commands (brian d foy)
perl.newbie <D.M.Barnard@ncl.ac.uk>
Perl5 on Solaris reading MS Access Database <slpalmer@NOSPAM.flex.net>
Re: Printing in Landscape <rootbeer@teleport.com>
Remote Script w/in a Script shawn_paige@hotmail.com
Re: Sending mail via CGI/Perl ? <antti.boman***NOSP@M***helsinki.fi>
Re: Sorry (I R A Aggie)
Re: sorting file entries by time <rootbeer@teleport.com>
Splitting a perl script into different files <emills@harris.com>
Re: Splitting a perl script into different files <jdf@pobox.com>
Re: Statistics for comp.lang.perl.misc <Russell_Schulz@locutus.ofB.ORG>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 15 Oct 1998 10:33:13 -0400
From: Ed <emills@harris.com>
Subject: a camel?
Message-Id: <362607A9.C7628B11@harris.com>
Why are there camels on so many perl pages, and on my O'Rielly book. I
would consider a mollusk like an Oyster to have more relevance.
------------------------------
Date: Thu, 15 Oct 1998 15:53:11 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <362617E5.AA0DEA9A@bbnplanet.com>
Snowhare wrote:
> >Sloppy in what regard?
>
> If I were of the academic bent, I would start with the lack of
> strong typing and enforced privacy for object internals and work
> my way up through orthagonality (the mantra of 'there is more than
> one way to do it' is not regarded as a necessarily _good_ thing in
> some circles).
True, but sloppy, I think, is not the right adjective. Perhaps liberated
or something like that? And shooting yourself in the foot is not always
a bad thing, structure can be a crutch. Life encourages entropy,
evolution as does Perl. It is dynamic, has an edge. This is a good thing
(tm). :)
e.
After all, the cultivated person's first duty is to
always be prepared to rewrite the encyclopedia. - U. Eco -
------------------------------
Date: Thu, 15 Oct 1998 15:43:44 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: cgi/perl upload script
Message-Id: <Pine.GSO.4.02A.9810150843320.26848-100000@user2.teleport.com>
On Thu, 15 Oct 1998 vivekvp@hotmail.com wrote:
> i am looking for a cgi or perl script that will allow a user to upload
> a file to my server.
If you're wishing merely to _find_ (as opposed to write) programs,
this newsgroup may not be the best resource for you. There are many
freeware and shareware archives which you can find by searching Yahoo
or a similar service. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 15 Oct 1998 11:11:31 -0400
From: "Tim Gray" <tgray@smlny.com>
Subject: command line regexp replace question
Message-Id: <odoV1.209$v_3.871642@newse1.twcny.rr.com>
Hi there
I am trying to remove lines that look like the one below from a bunch of
html files. The only thing that changes is the number after tsld.
<A HREF="tsld005.htm"><IMG SRC="text.gif" BORDER=0 ALT="Text"></A>
I didn't want to screw up my files so I tried to test by just printing
matching lines first with this (note, I am using double quotes because this
is Win32 perl).
perl -pe "print if m/<A HREF=.tsld*A>/ =~ $_;" *.htm
But that ends up printing every line.
So I would imagine that the code I wanted to run
perl -pe "s/<A HREF=.tsld*A>//;" *.htm
Would end up erasing the entire file rather than just the line I am
interested in.
What am I doing wrong? Thanks.
Tim Gray
------------------------------
Date: Thu, 15 Oct 1998 15:45:02 GMT
From: hex@voicenet.com (Matt Knecht)
Subject: Re: command line regexp replace question
Message-Id: <2MoV1.8924$wV1.5844241@news2.voicenet.com>
Tim Gray <tgray@smlny.com> wrote:
>Hi there
> I am trying to remove lines that look like the one below from a bunch of
>html files. The only thing that changes is the number after tsld.
>
><A HREF="tsld005.htm"><IMG SRC="text.gif" BORDER=0 ALT="Text"></A>
I'm sure you'll get plenty of people telling you to use HTML::Parse.
You probably should, but if you're prepared to suffer through some
mistakes that you'll have to fix by hand, you can skip it.
>I didn't want to screw up my files so I tried to test by just printing
>matching lines first with this (note, I am using double quotes because this
>is Win32 perl).
>
>perl -pe "print if m/<A HREF=.tsld*A>/ =~ $_;" *.htm
This regex doesn't mean what you think it means. You also don't need to
specify $_, as that is the default match/substitute variable.
>But that ends up printing every line.
That's because -p says to print every line. Check out what the
different flags mean by looking through "perldoc perlrun".
>So I would imagine that the code I wanted to run
>
>perl -pe "s/<A HREF=.tsld*A>//;" *.htm
You need to take a look at the -i option to Perl, again in the perlrun
manpage.
>Would end up erasing the entire file rather than just the line I am
>interested in.
>
>What am I doing wrong? Thanks.
Start by reading perlrun then, move on to perlre.
To get you on your way, try this: (Disclaimer: I have no idea what the
quoting rules are on win32 systems. This may or may not work. I've
backwhacked the double-quotes to try and keep the win32 shell from
parsing them.)
perl -wpe "s/<A HREF=\"tsld[^\"]*?/<A HREF=\"tsld--NEW STUFF HERE--/" *.htm
If this fails miserably, you'll need to look into HTML::Parse.
--
Matt Knecht - <hex@voicenet.com>
------------------------------
Date: 15 Oct 1998 17:59:48 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: "Tim Gray" <tgray@smlny.com>
Subject: Re: command line regexp replace question
Message-Id: <m3iuhliznv.fsf@joshua.panix.com>
"Tim Gray" <tgray@smlny.com> writes:
> perl -pe "print if m/<A HREF=.tsld*A>/ =~ $_;" *.htm
That's not sensible; you have the operands switched around the binding
operator.
print if $_ =~ m/whatever/
or better yet
print if /whatever/
since $_ is bound to a match by default, and since the m is redundant
if you're using slashes as the regex delimiters.
Also, the -p switch will print every line. You want -n.
Unfortunately, your regex is itself no good, and will match things
like
<A HREF=QtsldddddddddddddddddddA>
<A HREF=>tslA
but will never match your example text. Give perlre a good hard
read. Then give up and use HTML::Parser!
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Thu, 15 Oct 1998 09:58:49 -0400
From: Bruce Schuck <hd-fxsts@liii.com>
Subject: Re: Compiling perl 5.005_02 on Dynix/ptx 4.2.3
Message-Id: <3625FF99.FC525B7B@liii.com>
Tye McQueen wrote:
> doyle@aps.org (Mark Doyle) writes:
> )
> ) We are trying to compile perl 5.005_02 on a Sequent machine running Dynix/ptx
> ) 4.2.3 and everything seems to go fine except for the lib/io_sel.t test which
> ) indicates a problem with the 4-argument select.
> ) Specifically, it begins to fail at test number 11. Has anybody run into this
> ) or otherwise successfully compiled 5.005_02 on this platform? Suggestions
> ) welcome... Our configuration is just what ./Configure -des supplies.
> On SVR4 select() is often not detectable via nm(1) so you copy
> of Perl may have been built thinking that you did not have a
> version of select().
> The out-of-date http://www.metronet.com/~tye/perlsvr4.html may
> be of some help here.
> Try configuring without using nm(1) [using cc(1) to build test
> programs instead].
Thanks. Mark D and I are working on the same problem at APS. The
default is not to use nm(1) which is what was tried. When I attempted
to use nm(1), the make failed miserably.
Note that Perl 5.004_004 compiles perfectly and readily on the same
exact machine.
So it is either a code change, or a change to Configure that could be
causing the problem.
Bruce S.
------------------------------
Date: Thu, 15 Oct 1998 08:20:05 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Deleteing a line
Message-Id: <MPG.108fb27b3bf5deef9898b9@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <3625FE5F.5F7DDC04@magma.ca> on Thu, 15 Oct 1998 13:54:25
GMT, Shawn Corey <shawn@magma.ca> says...
> Keith L. Miller wrote:
...
> > ... I was wondering if you new a way to erase the last line from a file.
...
You didn't test (or even read?) this code before posting it. It has
three outright bugs (and a couple of obvious stylistic improvements).
> For small files:
>
> open( IN, $file ) || die "$0: cannot open $file: $!\n";
> @in = <IN>;
> close IN;
So far so good. Claim style points for the error message; fewer for not
declaring @in with 'my'.
> @out = ();
> for $line ( @in ){
> if( blah blah blah ){
> push( @out, $line );
> }
> }
The above isn't a bug, but it is far better written simply as:
my @out = grep { blah blah blah } @in;
> undef @out[ $#out ];
Here is the first outright bug. This does not remove the last element
from the array, as you seem to think. It just undefines the *value* of
the last element, and later you try to print an undefined value. Had
you tested with the '-w' flag, you would have found this out. But you
didn't test your code at all.
The normal way to do what you want is
pop @out;
or you could do
--$#out;
> open( OUT, $newfile ) || die "$0: cannot open $newfile: $!\n";
Bug number two. This opens $newfile for input, no matter what you have
called the filehandle.
> for $line ( @out ){
> print OUT $out;
> }
Bug number three. You meant
print OUT $line;
But I would write the whole loop as:
print OUT @out;
or, combining the 'pop':
print @out[0 .. $#out - 1];
> close OUT;
> __END__
That is a remarkable bogosity ratio for such a few lines of code.
All together now:
Test, test, test!
Test before posting. Test with the '-w' flag. Test with 'use strict;'
This takes a lot longer than simply pouring your stream of consciousness
out into this newsgroup. But it helps the signal-to-noise ratio a lot.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 15 Oct 1998 15:34:47 GMT
From: droby@copyright.com
Subject: Re: encryption
Message-Id: <7054mn$1s0$1@nnrp1.dejanews.com>
In article <362353d9.102519675@193.74.210.130>,
Frook@mail.dma.be (Orlando Frooninckx) wrote:
> hi,
>
> does anyone have a nice encryption function example so I can crypt
> sentences before writing them to a file?
>
Yes, but we can't export it. You can get it at this UK site though:
http://www.dcs.ex.ac.uk/~aba/rsa/rsa-details.html
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 15 Oct 1998 14:06:57 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Equivalent of "unload" after "require"?
Message-Id: <704vi1$l8u$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
wyndo@cxo.com writes:
:Hmmm, this means do $file isn't going to halt on errors? Darn it. 2.1 is
:exactly what I don't want to happen (which is why I need "do $file"). I also
:check to see if the file exists so I'm covered in part of 2.2 there, but I
:need it to warn if there is an execution error.
I never said you could check for errors. do merely returns false where
require would raise an exception. Didn't you see what require maps into
in the perlfunc manpage? Use do and check its return value, silly.
Here's a very old piece of perl3 code:
sub source {
local($file) = @_;
local($return) = 0;
$return = do $file;
die "couldn't do \"$file\": $!" unless defined $return;
die "couldn't parse \"$file\": $@" if $@;
die "couldn't run \"$file\"" unless $return;
return $return;
}
--tom
--
There's going to be no serious problem after this. --Ken Thompson
------------------------------
Date: Thu, 15 Oct 1998 15:17:20 GMT
From: droby@copyright.com
Subject: Re: Equivalent of "unload" after "require"?
Message-Id: <7053m0$lr$1@nnrp1.dejanews.com>
In article <702bl6$7tk$1@monet.op.net>,
mjd@op.net (Mark-Jason Dominus) wrote:
> In article <7029m7$18h$1@nnrp1.dejanews.com>, <wyndo@cxo.com> wrote:
> >This works fine and it lets me load a player by simply REQUIRE-ing that save
> >file. It's worked really great up until now.
> >
> >The problem I'm having is that you can only require the file one
> > time.
>
> Use `do' instead of `require'.
>
> Or (more normal) put the code into a subroutine, `require' it once
> when the program starts up, and then call the subroutine when you want
> to call the subroutine.
>
Or (even more normal) use a data structure and a data file to save data
instead of converting it to code. Perhaps one big hash of hashes for all
players, keyed on playername and stored in a dbm file using MLDBM?
Making code write code and then run it is fun. But it has plenty of dangers,
especially if you're getting some of that data from a CGI form (I hope you're
using -T and some careful checking). When you're really just dealing with
data, why not just deal with data?
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 15 Oct 1998 08:46:45 -0700
From: larry@kiev.wall.org (Larry Wall)
Subject: Re: Implementing 'union's in Perl to C extensions
Message-Id: <7055d5$r37@kiev.wall.org>
In article <703jeb$cj8$1@poknews.pok.ibm.com>,
Helena Jeeves <hjeeves@ppsclnt10.pok.ibm.com> wrote:
>I have been able to model structures, but this union
>is escaping me. Roughly, it is:
>
>typedef union {
> int value;
> char * string;
> float value2;
> double value3;
>} my_union;
A value of this union is easily representable with a single Perl
scalar. What you haven't told us, and what we'd need to know in order
to help more, is how you which element of the union is set. Somewhere
lurking nearby there is a small piece of data that tells you this.
This piece of data is known (among other things) as a "discriminant".
It will typically be another entry in a larger struct that contains the
union, or it'll be passed as an additional argument through the
interface saying which kind of value is provided (or expected, if
it's asking you for a particular value). Your typemap will likely
need some conditional code to set the correct element, based on the
discriminant. For a union this simple, you could probably throw
some ?: into the typemap expression and keep it as a single
expression. For something more complicated you might want to write
a switch statement.
If you need to pass the discriminant through Perl along with the
union, then a scalar is not quite enough, unless you're willing to
fold floats and doubles together. If so, then SvIOK, SvPOK and
SvNOK will tell you whether you have an integer, a string, or a
double. Otherwise you'll need to map it to two scalars, one of
which holds the discriminant, and the other of which holds the
value of the union.
Larry
------------------------------
Date: Thu, 15 Oct 1998 14:00:28 GMT
From: sg@loralskynet.com (Stephan Gross)
Subject: Looking for Network Monitoring Scripts
Message-Id: <3625fee3.59477677@client.ne.news.psi.net>
Our company of 200 people and a dozen servers is looking into
purchasing a $25K graphical network analysis package - things like
server CPU load, network utilization, router status, etc.
I suggested given the size of our network we don't need to spend that
kind of money. It seems to me that if we pick three or four variables
(such as CPU load, packets in/out, etc) and write a simple Perl script
to interrogate the servers every half hour or so, we could achieve the
same thing.
Does anyone have any pointers to existing scripts that do this?
Thanks,
Steve
------------------------------
Date: Thu, 15 Oct 1998 15:22:00 +0100
From: "Tim Hicks" <tim.hicks@lineone.net>
Subject: New to programming - New to Perl - LOST!!!!
Message-Id: <hVnV1.16132$Gu6.279@news-reader.bt.net>
Right, I'm looking for a little bit of advice on how to go about using Perl
in general. As the subject suggests, I am a total beginner when it comes to
programming in anything. I have bought myself a copy of 'Learning Perl' by
Schwartz and Christiansen and have read most of the first chapter. I think
that I can get my head around what it is talking about, but for now, that is
no my problem. I am running Win 95 and everything I read seems to be very
UNIX orientated. I have no clue about UNIX, which leaves me at a bit of a
loss. I have been to the www.perl.org site and followed links to CPAN and
so on. I tried to download perl, but ended up getting a file with the
extension tar.gz. Unfortunately I have no idea what this is all about.
To conclude, all I really want to do is install perl under win 95 and play
around and see what I can do. If anyone could point me in the right
direction I'd really appreciate it.
I hope I haven't clogged up this newsgroup with a really stupid problem, but
I don't have anyone else to ask.
Tim
------------------------------
Date: 15 Oct 1998 17:09:50 +0200
From: Michal Rutka <erhmiru@erh.ericsson.se>
To: tim.hicks@lineone.net
Subject: Re: New to programming - New to Perl - LOST!!!!
Message-Id: <la1zo9j1z5.fsf@erh.ericsson.se>
"Tim Hicks" <tim.hicks@lineone.net> writes:
[...]
> To conclude, all I really want to do is install perl under win 95 and play
> around and see what I can do. If anyone could point me in the right
> direction I'd really appreciate it.
point your browser on http://www.ActiveState.com/ActivePerl/ and try to
get APi502e.exe. This will install you perl on a win32 system.
Michal
------------------------------
Date: 15 Oct 1998 14:40:15 GMT
From: bantam@freenet.edmonton.ab.ca ()
Subject: Newbie ;)
Message-Id: <7051gf$f60$1@news.sas.ab.ca>
Hello,
I am just another newbie with a few q'n to the mongers.
1) When I have a line in the script saying require 'something.pl'; does it
mean I have to place something.pl into the same directory as script.pl?
2) What is a *.pm file exactly? Something like an include file or rather
a library?
3) Is there a good d/l page for *.pl and *.pm files? (I seem to need some
pretty weird ones, which do not come w/ the PERL distribution...)
Thanks in advance,
Robert
--
www.geocities.com/SoHo/6947/ IRC: Bantam23 (on Effnet) ICQ: 3741421
members.xoom.com/bantam/ bantam.webjump.com
Member of the AMNW, CRPGA
------------------------------
Date: Thu, 15 Oct 1998 15:52:30 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: newbie at array parsing
Message-Id: <Pine.GSO.4.02A.9810150849210.26848-100000@user2.teleport.com>
On Thu, 15 Oct 1998, Marcus J. Foody wrote:
> Subject: newbie at array parsing
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> I'm trying to pull out a specific value(field) inside the
> array($line). Is this possible?
No, $line is a scalar, not an array. But if you use split(), you can break
a line into fields. Could that do what you want?
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 15 Oct 1998 11:52:41 -0400
From: dragons@scescape.net (Matthew Bafford)
Subject: Re: newbie at array parsing
Message-Id: <MPG.108fe44ffcc755d39896da@news.scescape.net>
In article <<3625F699.141D@idiom.com>>, marx@idiom.com (Marcus J.
Foody) pounded the following:
=> Hello, I'm trying to pull out a specific value(field) inside the
=> array($line). Is this possible?
Nah. Perl can't hardly do nothing. :)
=> Below is my output. I'm trying to
=> pull out the value |709|. If you have a suggestion on this matter it
=> would be much appreciated.
=>
=> |BUSINESS UNIT #709|REC BATCH|19980707|709|HPC INVOICE
=> MEMOS|INVOICE|3|USD|5500.00
If the format is always like you say:
|text|text|text|field you want|text|text|text|text|text
Then the following would work. If any of the fields can contain |'s,
or if the field you want moves around, this will fail miserably... :(
% perl -w-
while ( <DATA> ) {
my $number = (split /\|/, $_)[4];
print "Line $. :: $number\n";
}
__DATA__
|A|B|1|709|C|D|E|F|1.0
|A|B|1|600|C|D|E|F|1.0
|A|B|1|421|C|D|E|F|1.0
|A|B|1|345|C|D|E|F|1.0
Line 1 :: 709
Line 2 :: 600
Line 3 :: 421
Line 4 :: 345
%
=> thanks again
Hope This Helps!
=> marcus
--Matthew
------------------------------
Date: Thu, 15 Oct 1998 14:48:17 GMT
From: dave@mag-sol.com
Subject: Re: Outside commands
Message-Id: <7051vi$uu2$1@nnrp1.dejanews.com>
In article <7047tu$u53$1@nnrp1.dejanews.com>,
nrf@mailcity.com wrote:
> Is perl able to execute any outside commands like unix commands?
Yes.
Check the documentation for quote-like operators, in particular qx.
--
dave@mag-sol.com
London Perl M[ou]ngers: <http://london.pm.org/>
[Note Changed URL]
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 15 Oct 1998 11:35:47 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Outside commands
Message-Id: <comdog-ya02408000R1510981135470001@news.panix.com>
In article <7047tu$u53$1@nnrp1.dejanews.com>, nrf@mailcity.com posted:
> Is perl able to execute any outside commands like unix commands?
see the perlipc man page.
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Thu, 15 Oct 1998 15:27:38 +0100
From: David Barnard <D.M.Barnard@ncl.ac.uk>
Subject: perl.newbie
Message-Id: <7050os$h1d$1@ucsnew1.ncl.ac.uk>
This is one of the weirdest newsgroups I have ever seen.
I am a newbie. I intend to learn Perl as a second language. My first is
Pascal: you can't get more structured than Pascal. Pascal (I usually use
Delphi) code looks pretty, reads easily, compiles fast. I'm hoping that Perl
will just run fast.
As an architecture student I feel qualified to talk total rubbish with
absolute sincerity.
(Actually, I can write Basic if I have to, I have glanced at Java, and been
advised agaist C or C++. I used to know a couple of other strange scripting
languages as well.)
I deeply regret the neccesity for introducing the 3 letter acronym, but most
people who look at Perl for the first time really just want to write a CGI
script. I can't write server apps with Delphi because I can't afford the
Client/Server version. But what I want to do is too complicated for a basic
Perl/CGI script, so I have to learn all (that I need) of Perl from the
ground up.
There are more one liners in Perl than anywhere else. I suspect that the
difference between Unix and Windows is - Unix programmers have a whole lot
more fun.
------------------------------
Date: Thu, 15 Oct 1998 09:21:26 -0500
From: Stephen Palmer <slpalmer@NOSPAM.flex.net>
Subject: Perl5 on Solaris reading MS Access Database
Message-Id: <362604E6.72C33D5E@NOSPAM.flex.net>
After a careful search of DejaNews, and CPAN, I'm still at a loss as to
how to read from a MS Access Database using perl 5.04. I would
appreciate responses from anyone who has succeded in doing this (from
Perl on UNIX). I saw through DejaNews that several others have asked
this, and some succeded (under Win32) but I have not seen a summary of
how to do it from a UNIX host. I will be glad to post such a summary if
I manage to do this. :-)
Thanks in advance!
---
Stephen L. Palmer
Email aistslp@NOSPAM.sugarland.se76.com
Email slpalmer@NOSPAM.sprintparanet.com
Pager (800)724-3329 or slpalmer@NOSPAM.pager.sprintparanet.com
PIN 382-1266 (Short msgs please)
Remove anti-spam info before sending.
------------------------------
Date: Thu, 15 Oct 1998 15:48:16 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Printing in Landscape
Message-Id: <Pine.GSO.4.02A.9810150847440.26848-100000@user2.teleport.com>
On Thu, 15 Oct 1998 mark_chunn@hp.com wrote:
> Someone mentioned to me that you could programatical change to print in
> landscape mode from a Netscape window. My web-site is written in
> HTML/perl.
> Any thoughts?
Yes: You're trying to get a browser to do something. The docs, FAQs, and
newsgroups about browsers may be of some help to you. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 15 Oct 1998 15:09:21 GMT
From: shawn_paige@hotmail.com
Subject: Remote Script w/in a Script
Message-Id: <705371$9v$1@nnrp1.dejanews.com>
I am trying to figure out how to call a remote Perl script from with my local
Perl script. I am trying to parse the document returned. I have a script which
submits from a form, then I want to send that data to a script on another
website. Can this be done? If so, show me the way...
Thanks for your time,
Shawn Paige
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 15 Oct 1998 18:00:44 +0200
From: "Antti Boman" <antti.boman***NOSP@M***helsinki.fi>
Subject: Re: Sending mail via CGI/Perl ?
Message-Id: <7052kl$nh8$1@hiisi.inet.fi>
I recommend Mail::Sendmail. It's been working well here. If you need to
include attachments, that's another thing.
-a
------------------------------
Date: Thu, 15 Oct 1998 10:38:32 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Sorry
Message-Id: <fl_aggie-1510981038320001@aggie.coaps.fsu.edu>
In article <rlb-1510980825150001@204.112.166.151>, rlb@intrinsix.ca (Lee
Brandson) wrote:
+ Q: Why do universities have both libraries and instructors?
+
+ A: Because it is not always sufficient that a given piece of information
+ be archived somewhere.
Because both are storehouses of information. The instructor simply
hasn't formalized their information enough to be placed in the library.
But one does not go to one's instructor with a homework problem and
ask them to solve it.
James
------------------------------
Date: Thu, 15 Oct 1998 15:42:44 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: sorting file entries by time
Message-Id: <Pine.GSO.4.02A.9810150842170.26848-100000@user2.teleport.com>
On Thu, 15 Oct 1998, Lee Musgrave wrote:
> what i need now is a sort routine that will sort every line in this
> file so that a have a file where every entry is in chronological
> order.
How far have you gotten?
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 15 Oct 1998 10:38:01 -0400
From: Ed <emills@harris.com>
Subject: Splitting a perl script into different files
Message-Id: <362608C9.313F0AE1@harris.com>
As my perl script gets into the 1000's of lines realm, it occurs to me
that it'd be easier to manage if it was broken into several files, each
with one or more sub()'s. Studying the "package" command, it appears to
somehow relate to OO design, and adds complexity that I don't need. the
"use" command seems to relate more to predefined modules off in my perl
release library.
I'm looking for something that's just like good ole:
#include ./myfile1.h
#include ./myfile2.h
#include ../project2/myfile.h
Can anyone tell me what that is? I know its here!
Thanx
------------------------------
Date: 15 Oct 1998 17:48:27 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: Ed <emills@harris.com>
Subject: Re: Splitting a perl script into different files
Message-Id: <m3lnmhj06s.fsf@joshua.panix.com>
Ed <emills@harris.com> writes:
> Studying the "package" command, it appears to somehow relate to OO
> design
Not at all. It's a way of creating namespaces.
package Foo;
sub barney { print "Fred\n"; }
package main;
sub barney { print "Wilma\n" }
Foo::barney();
barney();
No objects there.
> I'm looking for something that's just like good ole:
>
> #include ./myfile1.h
$ perldoc -f require
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Thu, 15 Oct 1998 09:00:10 -0400
From: Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <19981015.090010.1v4.rnr.w164w@locutus.ofB.ORG>
Greg Bacon <gbacon@cs.uah.edu> writes:
> Top 10 Crossposters
> ===================
>
> Articles Address
> -------- -------
>
> 4 Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
I know I'm in the list because I set followups to non-Perl things out
of c.l.p.misc (and include c.l.p.m in the Newsgroups: header to make
it easier to follow the thread out).
crossposting: a double-edged feature.
--
Russell_Schulz@locutus.ofB.ORG Shad 86c
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 3981
**************************************
