[7224] in Perl-Users-Digest
Perl-Users Digest, Issue: 848 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 11 20:08:01 1997
Date: Mon, 11 Aug 97 17:00:28 -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 Mon, 11 Aug 1997 Volume: 8 Number: 848
Today's topics:
Re: 2 variables = 1 (sorta) (Tad McClellan)
Re: 2 variables = 1 (sorta) <rootbeer@teleport.com>
?Portable file name separator? <billc@forWord.com>
Re: ?Portable file name separator? <rootbeer@teleport.com>
Re: [Q]:Building 5.004_01 on AIX 4.2 <kermit@ticnet.com>
Re: Buy any Perl book in print (Marjorie Roswell)
Re: Can't match numeric text in m// (Craig Berry)
Re: CGI Perl script launches a C++ program (brian d foy)
Re: Changing contents in a file (Tad McClellan)
File::Find doesn't follow symbolic links <mschilli@mission.base.com>
General Oraperl Help <jsk2@axe.humboldt.edu>
Re: Getting the time? (Jot Powers)
Re: How to treat "\n" as "\n" ? <rootbeer@teleport.com>
Re: How to treat "\n" as "\n" ? (Tad McClellan)
How to use uninstalled packages? (Rootbeer)
How to use uninstalled packages? (Rootbeer)
Re: How to use uninstalled packages? <rootbeer@teleport.com>
Re: How to use uninstalled packages? (Tad McClellan)
Is it possible to use HTPASSWD within Perl? <armbrust@mcnet.mcpherson.edu>
Re: Is it possible to use HTPASSWD within Perl? <rootbeer@teleport.com>
Re: Is there a perl IDE? <rootbeer@teleport.com>
Learning Perl (Eric Phillips)
Re: Learning Perl <rootbeer@teleport.com>
Re: Learning Perl (Faust Gertz)
NO-DELAY READ ON FIFO <aribindi@cig.mot.com>
Re: Perl 5.004_01 on AIX 4.2.1 <kermit@ticnet.com>
Perl mail interface (RD Web Design)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 Aug 1997 16:39:14 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: 2 variables = 1 (sorta)
Message-Id: <2q0os5.2tg.ln@localhost>
Pat Trainor (ptrainor@aura.title14.com) wrote:
: On Mon, 11 Aug 1997, Tom Phoenix wrote:
: > > print "key $key has a value of $urlb$count \n";
: > > } ^^^^^^^^^^^
: The first 1/2 will not change (urlb), but the last 1/2 will. I can
: take care of the right half incrementing by 1 no sweat, the trick is how to
: create a variable whose last 4 digits are incremented with the use of
: another variable. If it were possible, I'd like to see:
: $variable = "urlb0001";
: $variable = $variable + 1;
: But this can't be so, right? It's a character string, as I see it.
: Kind of like adding 1 to frog. So... I can work around this by having a
: variable which I know the first part (string) and I increment the last part
: (integer). How can the 2 be concanated into a string that can be parsed
: into a variable?
Perl *can* add 1 to a frog:
--------------------------
$variable = "urlb0001";
$variable++;
print "$variable\n";
--------------------------
You might call it magic ;-)
>From the perlop man page:
--------------------------
=head2 Auto-increment and Auto-decrement
"++" and "--" work as in C. That is, if placed before a variable, they
increment or decrement the variable before returning the value, and if
placed after, increment or decrement the variable after returning the value.
The auto-increment operator has a little extra builtin magic to it. If
you increment a variable that is numeric, or that has ever been used in
a numeric context, you get a normal increment. If, however, the
variable has been used in only string contexts since it was set, and
has a value that is not null and matches the pattern
C</^[a-zA-Z]*[0-9]*$/>, the increment is done as a string, preserving each
character within its range, with carry:
print ++($foo = '99'); # prints '100'
print ++($foo = 'a0'); # prints 'a1'
print ++($foo = 'Az'); # prints 'Ba'
print ++($foo = 'zz'); # prints 'aaa'
The auto-decrement operator is not magical.
--------------------------
: Like:
: > > Where $urlb would always be: abcd and $count would increment by
: > > 1 on each pass.
: >
: > Are you looking for $count++ to increment $count? Or are you trying to do
: > something like $abcd[$count++] , an array element access? Or do you want a
: > soft reference?
: Incrementing $count is a breeze, how do I attach it to the end of
: another variable and call a new variable that is the combination of both
: names? i.e.:
: $a = "abcd";
: $b = "1234";
: $c = "$($a$b)"; <- this code is not right at all! But what is?
Ah hah! I think I begin to see what your question is.
You want to increment the *names* of variables, not the values
of variables.
Is that it?
: where:
: I want the variable $c to be the variable $abcd1234 , not the
: numeric representation-rather constructing the name of a new variable from
: the names of 2 existing variables.
: I'm sure I'm not explaining myself well, if there were a faster,
: easier way around my project, I'd use it. I posted here for ideas and
: nobody replied, so I'm going about it the only way I can think of.
I think maybe you want to see the "Symbolic references" section in
the perlref man page?
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 11 Aug 1997 16:07:40 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Pat Trainor <ptrainor@aura.title14.com>
Subject: Re: 2 variables = 1 (sorta)
Message-Id: <Pine.GSO.3.96.970811160109.27045N-100000@julie.teleport.com>
On Mon, 11 Aug 1997, Pat Trainor wrote:
> If it were possible, I'd like to see:
>
> $variable = "urlb0001";
> $variable = $variable + 1;
It's possible, if you make $variable tied to a package which allows such
things. But that's probably not worth the trouble. Maybe you want this?
$variable = "urlb" . sprintf("%04d", ++$count);
Each time you evaluate it, you get a different value, depending upon
$count.
> But this can't be so, right? It's a character string, as I see it.
Maybe. But you could do this.
$variable = "urlb0001";
$variable++; # On to the next!
> $a = "abcd";
> $b = "1234";
> $c = "$($a$b)"; <- this code is not right at all! But what is?
$c = "$a$b"; # Maybe?
$c = $a . $b; # Same thing
$c = ${ "$a$b" }; # Probably not what you want, but maybe?
If you think you want that last one, you probably should use an array or
hash instead. :-) 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/
------------------------------
Date: Mon, 11 Aug 1997 15:41:44 -0500
From: Bill Courington <billc@forWord.com>
Subject: ?Portable file name separator?
Message-Id: <33EF4F17.3045@forWord.com>
Is there a portable way to specify a file name separator
(e.g., /, \, :)?
Alternatively, does anyone know what $OSNAME returns for
NT and W95? (I know about solaris and MacOS.) If I know
the main OSNAME values, I can create a hash of OSNAME-separator.
Bill Courington
------------------------------
Date: Mon, 11 Aug 1997 16:18:18 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Bill Courington <billc@forWord.com>
Subject: Re: ?Portable file name separator?
Message-Id: <Pine.GSO.3.96.970811161620.27045Q-100000@julie.teleport.com>
On Mon, 11 Aug 1997, Bill Courington wrote:
> Is there a portable way to specify a file name separator
> (e.g., /, \, :)?
Maybe you want to use the File::Basename module. 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/
------------------------------
Date: Mon, 11 Aug 1997 15:02:18 -0500
From: Kermit Tensmeyer <kermit@ticnet.com>
To: "Robert S. Kissel" <kissel@kissel.spicerack.ibm.com>
Subject: Re: [Q]:Building 5.004_01 on AIX 4.2
Message-Id: <33EF6FCA.C087959D@ticnet.com>
Robert S. Kissel wrote:
>
> It's a nice, fresh installation of both operating system and compiler,
> and I took all the Configure defaults.
>
> The make dies at this point:
> Making DynaLoader (static)
> Writing Makefile for DynaLoader
> The Unsupported function umask function is unimplemented at
> ../../lib/ExtUtils/Install.pm line 249.
> make: The error code from the last command is 2.
>
> Stop.
>
> Can anybody who has built this version of Perl on AIX 4.2 give me a hint
> of what the trouble here is? It sounds like the compiler libraries
> aren't installed properly--or is there some patch I don't know about for
> the make procedure, or some default choice I didn't notice?
You did know, that Aix does funny things with dynamic shared
libraries? There are patchs to AIX to make it work with this stuff,
ask your sysadmin to add the system options thru SMIT to allow this to
work..
--
-------
Kermit Tensmeyer
Kermit@ticnet.com
------------------------------
Date: Mon, 11 Aug 1997 22:50:22 GMT
From: roswell@umbc.edu (Marjorie Roswell)
Subject: Re: Buy any Perl book in print
Message-Id: <33ef9707.34513662@news>
On Mon, 11 Aug 1997 22:30:24 GMT, roswell@umbc.edu (Marjorie Roswell)
wrote:
>"Yes, TIMTOWTDI, but why present that one? "
Okay, I figured it out: There Is More Than One Way To Do It!
------------------------------
Date: 11 Aug 1997 21:44:11 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Can't match numeric text in m//
Message-Id: <5so13b$juo$2@marina.cinenet.net>
Brett Denner (Brett.W.Denner@lmtas.lmco.com) wrote:
: I'm trying to perform a pattern match on a text string containing an
: exponential-format number like this:
:
: $text = "num = 1.0E+01";
:
: I would like to see if this text actually contains an exact exponential
: number, like "1.0E+01". Here's my code:
:
: $text = "num = 1.0E+01";
:
: $num = "1.0E+01";
:
: print $text =~ /$num/ ? "match\n" : "no match\n";
:
: When I run this code, it prints out "no match"; I suspect that the $num
: variable is being converted to its double-precision representation in the
: pattern match before the pattern match is attempted, but I'm not sure. Or,
: the "." and "+" in the $num variable may be causing problems.
:
: Is there a way to force a scalar to retain its text representation of a
: number, even though it looks like a double-precision number?
Your second guess (about + and .) was correct; this has nothing to do
with numeric precision issues.
What you need to do is to quote regexp metacharacters in the comparison
string. Fortunately, Perl makes this easy to do, either via the
quotemeta() function or the \Q string escape. Here's an example using
the latter:
print $text =~ /\Q$num/ ? "match\n" : "no match\n";
Hope this helps!
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Mon, 11 Aug 1997 18:25:51 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: CGI Perl script launches a C++ program
Message-Id: <comdog-ya02408000R1108971825510001@alice.walrus.com>
[nb: followups set]
In article <33DD6977.478@myriad.com>, bfawcett@myriad.com wrote:
>I use the the system() function to call the C++ program. I have verified
>that it works perfectly fine when the perl script is executed via the
>UNIX command line. When I set the $| var to 1 then I get an error that
>shows up on the web page stating that the file cannot be executed.
can you show a snippet so that we might have some idea what you are doing?
>Can someone please supply a list of cgi/perl newsgropups.
comp.infosystems.www.authoring.cgi comes to mind...
--
brian d foy <comdog@computerdog.com>
please forgive any posting wierdness - i've recently changed providers
and things are a bit wonky
------------------------------
Date: Mon, 11 Aug 1997 16:43:46 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Changing contents in a file
Message-Id: <i21os5.2tg.ln@localhost>
Anne Kumar (annek@nortel.ca) wrote:
: I have been trying to change the contents in a file without
: having to make a copy. I need to search through the file and
: find a string, $substring delete or replace it. Is there a way to
: do this to update the file?
Yes.
You make a copy of the file.
Why must you avoid making a copy of the file?
You can get perl to handle the bookkeeping of making the copy,
if you like. See the -i switch in the perlrun man page.
This Question has been Asked Frequently here.
So it has been included into the Perl FAQ (part 5).
I guess you must have missed it somehow when you checked the FAQ
before posting.
Go look again. Here is the Frequently Asked Question that you Asked:
"How do I change one line in a file/delete a line in a file/insert
a line in the middle of a file/append to the beginning of a file?"
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 11 Aug 1997 16:16:25 -0700
From: Michael Schilli <mschilli@mission.base.com>
Subject: File::Find doesn't follow symbolic links
Message-Id: <33EF9D49.42FBD520@mission.base.com>
Hi,
the File::Find Module doesn't follow directories that are symbolic
links. Does anybody know how to specify a '-follow' option like on the
Unix find command?
-- Michael
----------------------------------------------------------
Michael Schilli http://mission.base.com/mschilli
----------------------------------------------------------
------------------------------
Date: Mon, 11 Aug 1997 14:21:21 -0700
From: Scott Kelley <jsk2@axe.humboldt.edu>
Subject: General Oraperl Help
Message-Id: <33EF8251.E2FB3CFF@axe.humboldt.edu>
I'm trying to trak down general help pages/resources for Oraperl.
Thanx,
Scott
--
Scott Kelley, Help Desk Coordinator
IT Resource Center
Humboldt State University
jsk2@axe.humboldt.edu
------------------------------
Date: 11 Aug 1997 23:35:39 GMT
From: news@bofh.com (Jot Powers)
Subject: Re: Getting the time?
Message-Id: <5so7kb$386$1@gazette.corp.medtronic.com>
In article <33EF7D92.8A5E991@wx3.com>, Kevin J. Lin wrote:
>I am trying to write a script which could be used for benchmarking under
>NT and Unix. Is there any way in PERL to time something more
>accurateley than to the nearest second? I know about the times()
>function, but it isn't implemented in Perl for Win32.
Does the FAQ entry help?
man perlfaq8...
How can I measure time under a second?
In general, you may not be able to. The Time::HiRes module
(available from CPAN) provides this functionality for some
systems.
In general, you may not be able to. But if you system
supports both the syscall() function in Perl as well as a
system call like gettimeofday(2), then you may be able to do
something like this:
require 'sys/syscall.ph';
$TIMEVAL_T = "LL";
$done = $start = pack($TIMEVAL_T, ());
syscall( &SYS_gettimeofday, $start, 0)) != -1
or die "gettimeofday: $!";
##########################
# DO YOUR OPERATION HERE #
##########################
syscall( &SYS_gettimeofday, $done, 0) != -1
or die "gettimeofday: $!";
@start = unpack($TIMEVAL_T, $start);
@done = unpack($TIMEVAL_T, $done);
# fix microseconds
for ($done[1], $start[1]) { $_ /= 1_000_000 }
8/May/97 Last change: perl 5.004 6
PERLFAQ8(1) Perl Programmers Reference Guide PERLFAQ8(1)
$delta_time = sprintf "%.4f", ($done[0] + $done[1] )
-
($start[0] + $start[1] );
Since you said NT, it may or may not work.
HTH
--
Jot Powers news@bofh.com
Unix System Administrator
"Sometimes you just have to grab the bull by the tail and face the situation."
------------------------------
Date: Mon, 11 Aug 1997 15:09:37 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Thomas Bahls <thommy@cs.tu-berlin.de>
Subject: Re: How to treat "\n" as "\n" ?
Message-Id: <Pine.GSO.3.96.970811144424.27045F-100000@julie.teleport.com>
On 11 Aug 1997, Thomas Bahls wrote:
> these are read in from many files which contain many different character
> sequences, that have normally "special meanings" in Perl, e.g.
>
> \n \t
> $foo (etc.)
> so I really have to force Perl to interpret the two chars
> <backslash> and <n> as "newline", <backslash> <t> as tab and even
> <dollar> "foo" as "42" (or whatever its value is).
You could carry that to a logical extreme, and interpret _any_ Perl code
you find in their file. :-) But let's not do that. (Although you might
want something like Text::Template, if that's important to you.)
> Is there a way bring back the "special meaning" of certain
> character sequences?
Sure there is: Parse the string, putting in the "special meaning" wherever
necessary.
First, decide on which special meanings you want:
If you want \t to mean tab, that's not too hard. If you want
\x3f to mean question mark, that's only a little harder. If you
want \L to turn on forced lowercase, that's a lot harder.
If you want $foo to interpolate, that's not too hard. If you want
$foo[3], that's harder. If you want $foo[ unlink(</tmp/*>) ] to
interpolate, that's dangerous. (And what should $foo[ { ] do?)
Now you can write code to parse the string (probably with regular
expressions) making the substitutions as needed.
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/
------------------------------
Date: Mon, 11 Aug 1997 17:20:36 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: How to treat "\n" as "\n" ?
Message-Id: <k73os5.u2h.ln@localhost>
Pieter Meiring (p.d.meiring@sheffield.ac.uk) wrote:
: Try:
: $a= "This is the first line.\n\"Nope!\"";
: print $a
: A string delimited by the single quote is not interpolated while a
: string bounded by a double quote is... Inside a double quoted string,
: you need to escape douoble quotes.... Assuming you want double quotes
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
: printed...
Or...
use an alternate form of double quoting, and avoid all the messy backwacking:
$a= qq{This is the first line.\n"Nope!"};
or
$a= qq#This is the first line.\n"Nope!"#;
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: 11 Aug 1997 21:25:19 GMT
From: rootbeer@-snip-enteract.com (Rootbeer)
Subject: How to use uninstalled packages?
Message-Id: <5snvvv$rnu@eve.enteract.com>
There are a few packages that I'd like to use, but have not been
installed at my site. Would anyone be willing to give me a few pointers
towards how to use them myself, given that I have the *.pm file?
Thanks
Steve
------------------------------
Date: 11 Aug 1997 21:31:12 GMT
From: rootbeer@-snipthis-enteract.com (Rootbeer)
Subject: How to use uninstalled packages?
Message-Id: <5so0b0$rrf@eve.enteract.com>
There are a few packages/modules that I'd like to use, but have
not been installed at my site. Would anyone be willing to give
me a few pointers towards how to use them myself, given that I
have the *.pm file?
Thanks
Steve
------------------------------
Date: Mon, 11 Aug 1997 15:56:58 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Rootbeer <rootbeer@-snip-enteract.com>
Subject: Re: How to use uninstalled packages?
Message-Id: <Pine.GSO.3.96.970811154943.27045L-100000@julie.teleport.com>
On 11 Aug 1997, Rootbeer wrote:
What? Somebody else who uses the name rootbeer? :-)
> There are a few packages that I'd like to use, but have not been
> installed at my site. Would anyone be willing to give me a few pointers
> towards how to use them myself, given that I have the *.pm file?
If you have only the .pm file, you can put it wherever you like to keep
modules. If you don't have write access to such a directory, you may need
to make one and then 'use lib'. See the docs for lib.pm if you need more
information on that.
If you have a whole package, which is the way most modules are
distributed, you'll probably have a README file which tells you what to
do. Failing that, the traditional commands are these.
perl Makefile.PL
make
make test
make install
That's usually enough, although you may need to do more or different
things if you don't have your original Perl sources or if one of those
steps fails. If you're not sure what to do after you've tried this, ask
again. 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/
------------------------------
Date: Mon, 11 Aug 1997 17:41:41 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: How to use uninstalled packages?
Message-Id: <5f4os5.q5h.ln@localhost>
Rootbeer (rootbeer@-snip-enteract.com) wrote:
: There are a few packages that I'd like to use, but have not been
: installed at my site. Would anyone be willing to give me a few pointers
: towards how to use them myself, given that I have the *.pm file?
You mean like this Frequently Asked Question (Perl FAQ, part 8)?
"How do I keep my own module/library directory?"
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: 11 Aug 1997 22:38:56 GMT
From: "TIM ARMBRUSTER" <armbrust@mcnet.mcpherson.edu>
Subject: Is it possible to use HTPASSWD within Perl?
Message-Id: <01bca6a6$00b86e00$a5a001cf@Services.midusa.net>
I am trying to generate user names and passwords for per-directory access
within a Perl script, and then write them to a password file (with the
passwords 64-base encoded.) Since I don't know how to 64-base encode, I am
stuck with the htpasswd command (I think). This asks for multiple lines of
input, and I am not sure how to deal with it in a script. The whole point
of this is to give users instant and somewhat secure access to a directory.
I don't want to enter the names and passwords by hand.
Thank You.
Tim Armbruster armbrust@mcnet.mcpherson.edu
------------------------------
Date: Mon, 11 Aug 1997 16:15:24 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: TIM ARMBRUSTER <armbrust@mcnet.mcpherson.edu>
Subject: Re: Is it possible to use HTPASSWD within Perl?
Message-Id: <Pine.GSO.3.96.970811161440.27045P-100000@julie.teleport.com>
On 11 Aug 1997, TIM ARMBRUSTER wrote:
> Subject: Is it possible to use HTPASSWD within Perl?
There's a module on CPAN to help maintain .htpasswd files. Hope this
helps!
http://www.perl.com/CPAN/
--
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/
------------------------------
Date: Mon, 11 Aug 1997 14:31:17 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: John Dallman <jgd@cix.compulink.co.uk>
Subject: Re: Is there a perl IDE?
Message-Id: <Pine.GSO.3.96.970811143056.27045C-100000@julie.teleport.com>
On Mon, 11 Aug 1997, John Dallman wrote:
> Read the license agreement. You can't sell perl for money.
Read the license agreement. Yes you can. :-)
--
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/
------------------------------
Date: Mon, 11 Aug 1997 13:08:22 GMT
From: e.phillips@mindspring.com (Eric Phillips)
Subject: Learning Perl
Message-Id: <33ef0e58.9583685@news.mindspring.com>
Hello, my name is Eric Phillips, and I REALLY want and need to learn
Perl. I have a host to test it on and everything, I just need to learn
it. I only have one prior programming language experience and that is
JavaScript programming. Does anyone have any suggestions of good
places on the net or any good books? If so, please E-Mail me at
e.phillips@mindspring.com
------------------------------
Date: Mon, 11 Aug 1997 16:00:33 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Eric Phillips <e.phillips@mindspring.com>
Subject: Re: Learning Perl
Message-Id: <Pine.GSO.3.96.970811155754.27045M-100000@julie.teleport.com>
On Mon, 11 Aug 1997, Eric Phillips wrote:
> Subject: Learning Perl
Nice subject line.
> Hello, my name is Eric Phillips, and I REALLY want and need to learn
> Perl.
Maybe you should find a book on Learning Perl. :-)
> Does anyone have any suggestions of good
> places on the net or any good books?
There is a good book called Learning Perl. :-) Check with your local
bookstore about getting the (new) second edition, just out.
http://www.ora.com/catalog/lperl2/noframes.html
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/
------------------------------
Date: Mon, 11 Aug 1997 23:24:24 GMT
From: faust@wwa.com (Faust Gertz)
Subject: Re: Learning Perl
Message-Id: <33ef9a86.11532986@news.wwa.com>
On Mon, 11 Aug 1997 13:08:22 GMT, e.phillips@mindspring.com (Eric
Phillips) wrote:
>Hello,
Hi.
>my name is Eric Phillips,
My name is 'Faust'.
>and I REALLY want and need to learn Perl. I have a host to test it on
>and everything, I just need to learn it. I only have one prior programming
>language experience and that is JavaScript programming. Does anyone
>have any suggestions of good places on the net or any good books?
Did you read the FAQ? If you had, here is what you would have found,
(with minor modifications).
>A number books on Perl and/or CGI programming are available. A few of these are good, some are ok, but many aren't worth
>your money. Tom Christiansen maintains a list of these books, some with extensive reviews, at
>http://www.perl.com/perl/critiques/index.html
>
>The incontestably definitive reference book on Perl, written by the creator of Perl and his apostles, is now in its second edition
>and fourth printing. Note that O'Reilly books are color-coded: turquoise (some would call it teal) covers indicate perl5
>coverage, while magenta (some would call it pink) covers indicate perl4 only. Check the cover color before you buy!
>
> Programming Perl (the "Camel Book"):
> Authors: Larry Wall, Tom Christiansen, and Randal Schwartz
> ISBN 1-56592-149-6 (English)
> ISBN 4-89052-384-7 (Japanese)
> (French and German translations in progress)
>
>What follows is a list of the books that the FAQ authors found personally useful. Your mileage may (but, we hope, probably
>won't) vary.
>
>If you're already a hard-core systems programmer, then the Camel Book just might suffice for you to learn Perl from. But if
>you're not, check out the ``Llama Book''. It currently doesn't cover perl5, but the 2nd edition is nearly done and should be out
>by summer 97:
>
> Learning Perl (the Llama Book):
> Author: Randal Schwartz, with intro by Larry Wall
> ISBN 1-56592-042-2 (English)
> ISBN 4-89502-678-1 (Japanese)
> ISBN 2-84177-005-2 (French)
> ISBN 3-930673-08-8 (German)
>
>Another stand-out book in the turquoise O'Reilly Perl line is the ``Hip Owls'' book. It covers regular expressions inside and
>out, with quite a bit devoted exclusively to Perl:
>
> Mastering Regular Expressions (the Cute Owls Book):
> Author: Jeffrey Friedl
> ISBN 1-56592-257-3
>
>You can order any of these books from O'Reilly & Associates, 1-800-998-9938. Local/overseas is 1-707-829-0515. If you
>can locate an O'Reilly order form, you can also fax to 1-707-829-0104. See http://www.ora.com/ on the Web.
>
>Recommended Perl books that are not from O'Reilly are the following:
>
> Cross-Platform Perl, (for Unix and Windows NT)
> Author: Eric F. Johnson
> ISBN: 1-55851-483-X
>
> How to Set up and Maintain a World Wide Web Site, (2nd edition)
> Author: Lincoln Stein, M.D., Ph.D.
> ISBN: 0-201-63462-7
>
> CGI Programming in C & Perl,
> Author: Thomas Boutell
> ISBN: 0-201-42219-0
>
>Note that some of these address specific application areas (e.g. the Web) and are not general-purpose programming books.
Besides what is mentioned in the FAQ, I always think that someone
interested in Perl should subscribe to _The Perl Journal_
(http://orwant.www.media.mit.edu/the_perl_journal/)
and read Randal Schwartz's columns in _Web Techniques_
(http://www.stonehenge.com/merlyn/WebTechniques/) and _Unix Review_
(http://www.stonehenge.com/merlyn/UnixReview/).
For a good list of web based Perl resources, you might want to start
by looking at the references listed on Perl Reference
(http://www.panix.com/clay/perl/).
>If so, please E-Mail me at e.phillips@mindspring.com
Ok, but you should read this newsgroup too.
HTH
Faust Gertz
Philosopher at Large
"By necessity, by proclivity, and by delight, we all quote. In fact
it is as difficult to appropriate the thoughts of others as it is to
invent." - Ralph Waldo Emerson
------------------------------
Date: Mon, 11 Aug 1997 16:41:33 -0500
From: "Syam P. Aribindi" <aribindi@cig.mot.com>
Subject: NO-DELAY READ ON FIFO
Message-Id: <33EF870D.41C6@cig.mot.com>
Is there any way we can do nodelay read in perl:
The read function I didn't see any thing on non-delay reads on sockets
or on fifos.
Thanks in advance
--
##################################
Syam Aribindi
Cellular Infrastructure Group
Motorola Inc.
(630) 305-4519
aribindi@cig.mot.com
##################################
------------------------------
Date: Mon, 11 Aug 1997 14:58:42 -0500
From: Kermit Tensmeyer <kermit@ticnet.com>
To: "Juan M. Courcoul" <courcoul@campus.qro.itesm.mx>
Subject: Re: Perl 5.004_01 on AIX 4.2.1
Message-Id: <33EF6EF2.B2124CFA@ticnet.com>
Juan M. Courcoul wrote:
>
> I'm urgently in need of getting Perl up and running on a couple of IBM
> PowerPC Unix boxes running AIX 4.2.1. So far, it compiles without errors
> (but a few warnings) using AIX's own xlc compiler. It passes all tests
> without errors and installs cleanly, but it doesn't work reliably.
>
> Running a simple account verifying script, which loads /etc/passwd on a
> couple of hashes, it bombs when exiting the while loop with a coredump.
>
> I tried recompiling with gcc 2.7.2.2 (which also compiled & verified
> cleanly), and it did not pass a bunch of tests, mainly the database
> tests, POSIX and lib/opcode.
>
> Is there any gotcha that I'm overlooking ? Believe me, I would much
> rather work on my Solaris box, but the higher-ups insist we go the IBM
> way... :(
>
> TIA for any and all pointers and help.
and after you built the perl, you _did_ run the make test right?
What tests did it fail?
The xlc version works just fine here..
--
-------
Kermit Tensmeyer
Kermit@ticnet.com
------------------------------
Date: 11 Aug 97 21:07:35 GMT
From: rdweb@wilde.oit.umass.edu (RD Web Design)
Subject: Perl mail interface
Message-Id: <33ef7f17.0@oit.umass.edu>
Hello all. I have a quick question. I am interested in creating a web
mail interface for a keep-me-busy project. However, After visiting CPAN,
and checking old posts to comp.lang.perl.misc and c.w.a.c to see what
modules were available to assist me, I am still unsure as to
which would best help me. In all ideal situations, I would like to
create something that had a database of users that can send and receive
email. I can handle all the sending stuff, but the receiving part has me
perplexed. I don't want to have to have to create new unix accounts for
all the users, just to get a mail spool for them. Could they go through
a single account, and be filtered efficiently? I am more worried about
the inner workings of the receiving aspect than the web interface or the
sending part. I am confident that I can make a tool that is fully
featured otherwise. If any of you have suggestions, or any other
alternate ways of solving this problem, I would greatly appreciate it.
Thanks for your time.
--
R&D Web Design
High quality Web page construction
Reach us at: rmuldoon@va.net
Or check out our Web Site at:
http://www.va.net/rdweb
------------------------------
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 848
*************************************
