[6557] in Perl-Users-Digest
Perl-Users Digest, Issue: 182 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 26 09:07:19 1997
Date: Wed, 26 Mar 97 06:00:35 -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 Wed, 26 Mar 1997 Volume: 8 Number: 182
Today's topics:
Re: -d -f options (Jeff Stampes)
Re: ?Sort for all O/S's <piet@cs.ruu.nl>
Re: bizarre problem - found simple solution (Andrew M. Langmead)
Re: chunk POST and receive with LWP or other module <aas@bergen.sn.no>
crypt <mercedes@fgidec1.tuwien.ac.at>
Re: does open(FH, "pgm arg1 arg2") take only 1 arg? (Simon Hyde (aka Jeckyll))
Re: Fork & Memory Allocation Question <seay@absyss.fr>
Free web-server (Ole Asbjorn Fadum)
Re: Help Requested (Simon Hyde (aka Jeckyll))
Re: How can I find the current working directory? (Jeff Stampes)
Re: How do I get all more than 2 hours old files (Jeff Stampes)
How to display tag-like text in HTML (was PARADOX) <dbenhur@egames.com>
Re: Little beginers question <eric@nettown.com>
ncurses <rob@netcentral.net.no.spam>
need cross reference checker <armin.faltl@siemens.at>
Perl output through Java (Donovan Janus)
Re: Perl, Delphi, Linux, Windows, and databases (VB5E?) <orac@ezinet.com.au>
please ignore <mercedes@fgidec1.tuwien.ac.at>
Re: regular expression for check lower case <seay@absyss.fr>
Re: regular expression for check lower case <merlyn@stonehenge.com>
The Personal Electronic Picture Album <LacyEnt@aol.com>
Re: Unix and ease of use (WAS: Who makes more ...) <seay@absyss.fr>
Re: Unix and ease of use (WAS: Who makes more ...) (Steve Mading)
Re: What's a bad Perl book? (Charles DeRykus)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 Mar 1997 23:05:49 GMT
From: stampes@xilinx.com (Jeff Stampes)
Subject: Re: -d -f options
Message-Id: <5h71cd$ldn$1@neocad.com>
dinendra (dinendra@blarg.net) wrote:
: opendir(DIRCONTENT,"$parentdir") || die "Cannot open dir $parentdir\n";
: $dircontent= readdir(DIRCONTENT);
: $dircontent = readdir(DIRCONTENT); #read and discard the name of directory above
Looks like you're expecting the files in a certain order, and want to
eliminate the '.' and '..' entries. How about:
@contents = grep !/^\.\.?$/, readdir DIRCONTENT;
: while($dircontent = readdir(DIRCONTENT))
foreach $dircontent (@contents)
: {
: if(-d $dircontent)
: {
: print "Dir : $dircontent\n";
: }
: elsif (-f $dircontent)
: {
: print"File : $dircontent\n";
: }
: }
: closedir(DIRCONTENT);
What problems are you having? When I cut & paste your code (and define
$parentdir to "/tmp") it runs fine and does the good thing. What failure
are you having?
--
Jeff Stampes -- Xilinx, Inc. -- Boulder, CO -- jeff.stampes@xilinx.com
------------------------------
Date: 26 Mar 1997 14:21:59 +0100
From: Piet van Oostrum <piet@cs.ruu.nl>
To: soccer@microserve.net (Geoffrey Hebert)
Subject: Re: ?Sort for all O/S's
Message-Id: <wzhghyhjpk.fsf@kemmel.cs.ruu.nl>
>>>>> soccer@microserve.net (Geoffrey Hebert) (GH) writes:
GH> I am writing a perl cross-reference script. The script will do a
GH> complete directory. I do not know the size of the input.
GH> I need to create an intermediate file to be sorted. I do this because
GH> of potential memory problems. I could sort a hughe array, but how
GH> large can an array be?
That is usually determined by the amount of (virtual) memory, which on most
systems depends on real memory and swap space.
GH> Because I want this to run anywhere perl code exists, how do I code a
GH> machine/OS independent sort?
I think GNU sort has been ported to all or most systems that also have a
perl port. GNU sort is mostly compatible with Unix sort.
GNU sort most probably can sort larger files than perl with an in-memory
sort. It is only limited by the amount of disk space that is available for
intermediate files.
GH> Currently I just do system() with a UNIX sort command.
So that should be a good solution.
--
Piet van Oostrum <piet@cs.ruu.nl>
URL: http://www.cs.ruu.nl/~piet [PGP]
------------------------------
Date: Wed, 26 Mar 1997 13:11:38 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: bizarre problem - found simple solution
Message-Id: <E7nJBF.CF3@world.std.com>
Clive Holloway <clive@bigfish.co.uk> writes:
>I bothered everyone with the problem below, have sussed it, and thought
>you might like to know what happened...
>The problem was in referring to the filename.
>I was using a chdir command:
>chdir "\data" (or something like that)
>from the command line this worked, but when run through the jacket
>script from windows it didn't.
>DUH! The win 3.1 httpd server uses '/' to denote directory change and
>not '\'
>I just wish it could have told me in the error log....
It scares me when a person's reasoning to the "solution" is as flawed
as their determination of the problem. Even when the answer is final
correct. Consider the following issues:
1. chdir() returns an error code if it can't successfully change
directories. This is better than writing a message to the diagnostic
output (which apparently your http server writes to an error log) and
quitting. You can check the return value of chdir and decide what to
do if it fails. (Do I remember correctly that a Fatal.pm is being
developed to turn system call errors in fatal errors?) Write the line
of code like this:
chdir '/data' or die "$0: Error changing directory: $!\n";
2. Backslashes are special characters in double quoted strings. If you
want a single backslash in a double quoted string, then put two
consecutive ones in your text. (Like this "\\data") See the section
"Quote and Quotelike Operators" in the perlop man page for details.
3. URLs are not necessarily path names, although your http server
(like many) have some correlation between the data retrieved by URLs
and path names of the files containing the data.
4. It is unlikely that your http server is translating forward slashes
to backslashes. It would break too many existing CGI scripts.
5. The MS-DOS, Windows 95, and Windows NT operating system kernel
themselves treat forward slashes and backslashes identically. It is
only some of the utilities supplied with it, (most importantly
COMMAND.COM and CMD.EXE command line interpreters.) have their own
idea of what a forward slash does and their command line parsing
mangles pathnames with forward slashes.
What this means to perl, is that anything that perl handles with an
operating system service call. (open(), opendir(), chdir(), etc.) all
handle forward and backslashes identically. (not counting the special
handling they get when the perl source gets compiled as I mentioned
above.) It is only operators that might call a commmand line
processor, like system() (in the perlfunc man page) and qx (in the
perlop man page, often seen as backticks ``) that might specifically
need backslashes.
The perlfaq <http://www.perl.com/CPAN/doc/FAQs/FAQ/> recommends using
forward slashes all the time since perl's special treatment of
backslashes in string can make things awkward.
--
Andrew Langmead
------------------------------
Date: 26 Mar 1997 11:17:43 +0100
From: Gisle Aas <aas@bergen.sn.no>
Subject: Re: chunk POST and receive with LWP or other module
Message-Id: <hk9mv9cu0.fsf@bergen.sn.no>
dribbs@netspace.org (Keith Dreibelbis) writes:
> Gisle Aas (aas@bergen.sn.no) wrote:
> : dribbs@netspace.org (Keith Dreibelbis) writes:
> :
> : You can let the $req->content be a reference to a subroutine and you
> : can make this subroutine read data from a file. Since the LWP client
> : code only support HTTP/1.0 you will have to set the
> : $req->content_length() correctly.
>
> : open(F, "/etc/hosts");
>
> : $req = new HTTP::Request POST => "http://somewhere.com/";
> : $req->content_length(-s F);
> : $req->content(sub { scalar(<F>) });
>
> : $ua->request($req);
>
> This is very close to my final solution. The only problem was that having
> the subroutine reference read one line of a file was too much overhead for
> a 458,880 line file. The CGI would only get 18% of the file before it was
> cut off. (timed out, something) Having the subroutine return 100 or 1000
> lines at a time fixed the problem.
Even more efficient would be to use read() or sysread() in the
callback routine and then pass back the return buffer as a reference:
$req->content(sub {
my $buf;
sysread(F, $buf, 8192);
\$buf;
});
--
Gisle Aas <aas@sn.no>
------------------------------
Date: Wed, 26 Mar 1997 15:28:43 -0800
From: Mercedes Arredondo <mercedes@fgidec1.tuwien.ac.at>
Subject: crypt
Message-Id: <3339B12B.4818@fgidec1.tuwien.ac.at>
I use the comand 'crypt' when checking the password entered by a user in
an HTML form. The user also is asked to introduce his/her name in order
to get from the system his/her real password. This function is supposed
to encrypt the password entered and compare this encripted password with
the correspondet password (the real password)of the user logged in. If
success the user is allowed to access...
But it never matches, the result of the 'crypt' function is always false
even with my own password (which I am sure is a correct password).
any suggestions???
Thanks
Mercedes
---------
------------------------------
Date: Wed, 26 Mar 1997 07:45:32 GMT
From: shyde@poboxes.com (Simon Hyde (aka Jeckyll))
Subject: Re: does open(FH, "pgm arg1 arg2") take only 1 arg?
Message-Id: <3339d34b.906173@news.uni-stuttgart.de>
On 25 Mar 1997 22:42:03 GMT, shiloh@best.com (Joe McCaughan) wrote:
>Hi,
>
>I cannot get the following construction to see more than 1 arg.
>I'm using perl4.
>
>open(JUNK, "start.pl $arg1 $arg2 |);
>
You need to close those quotes, and you might also want to get rid of
any newlines off $arg1 and $arg2 by doing chomp($arg1) and
chomp($arg2) first.
---
Yours Sincerely,
,
() o /| | |
/\ _ _ _ __ _ _ |___| __| _
/ \| / |/ |/ | / \_/ |/ | | |\| | / | |/
/(__/|_/ | | |_/\__/ | |_/ | |/ \_/|/\_/|_/|__/
/|
\|
(Simon Hyde)
------------------------------
Date: Wed, 26 Mar 1997 10:48:37 +0000
From: Douglas Seay <seay@absyss.fr>
To: Simon Twigger <simont@post.its.mcw.edu>
Subject: Re: Fork & Memory Allocation Question
Message-Id: <3338FF05.5070@absyss.fr>
Simon Twigger wrote:
> How can I reduce the memory occupied by these child processes so that
> this doesnt happen? I save the various sound files to the disk so I
> dont have a variable holding the whole 4Mb of data (at least I dont
> think I do...) which might account for the large process size. Can
> anyone suggest why the child process is so large and how I might go
> about reducing its size? All it does is just sleep and then unlink the
> files, the child specific code is only about 5 lines. Im aware that the
> child has copies of all the variables of the parent, but as I said I
> dont think I have 4Mb of variables...
[posted and mailed]
try launching the child before you do the work, then sending a signal
(USR1 for example) to start the countdown. since the fork was before
the work was done, the 4MB was not yet allocated.
another way is to use "at" to launch something (say "rm $filename")
in 10 minutes or so.
but is this really a problem? i thought that modern unixes would
used shared pages and COPY-ON-WRITE semantics to clone the pages
only if they were changed. if neither the parent nor the child
change the data, then only one image will exist and it will be
common to both processes.
- doug
------------------------------
Date: 26 Mar 1997 12:43:29 GMT
From: oaf@vingmed.no (Ole Asbjorn Fadum)
Subject: Free web-server
Message-Id: <5hb5lh$n@relay.eunet.no>
--
As a long term perl user on UNIX, I've started the move toward
Windows. I'm very pleased that perl is available on the PC, and
I've a project where I'm going to make some CGI programming on
the PC.
I would like to have a tip of free available web server, which
run Windows95, and easily could interface to perl CGI.
Any suggestion??
========================================================================
Ole Asbjorn Fadum (oaf@vingmed.no)
Vingmed Sound A/S
Box 141
N-3191 Horten
NORWAY
------------------------------
Date: Wed, 26 Mar 1997 07:45:30 GMT
From: shyde@poboxes.com (Simon Hyde (aka Jeckyll))
Subject: Re: Help Requested
Message-Id: <3338d1a8.487580@news.uni-stuttgart.de>
On Tue, 25 Mar 1997 19:57:16 -0800, Greg <GregR@spiritone.com> wrote:
>Greetings All,
>As a Perl wannabe I am trying to get Perl 5.x for Windows 3.1 or DOS. I
>have gone to several Perl sites but either because of my confusion, or
>unclear directions, I can not find a file, or group of files, clearly
>marked as what I need. Any assistance would be appreciated.
>
there's one at http://www.perl.com/CPAN/ports in the msdos directory
---
Yours Sincerely,
,
() o /| | |
/\ _ _ _ __ _ _ |___| __| _
/ \| / |/ |/ | / \_/ |/ | | |\| | / | |/
/(__/|_/ | | |_/\__/ | |_/ | |/ \_/|/\_/|_/|__/
/|
\|
(Simon Hyde)
------------------------------
Date: 24 Mar 1997 20:23:13 GMT
From: stampes@xilinx.com (Jeff Stampes)
Subject: Re: How can I find the current working directory?
Message-Id: <5h6nri$hou$1@neocad.com>
Chris (webmaster@surewould.com) wrote:
: How in Perl can I determine the name of the current working directory?
If you check your perlmod manpage, you'll find something like:
Use Cwd;
$dir = cwd();
--
Jeff Stampes -- Xilinx, Inc. -- Boulder, CO -- jeff.stampes@xilinx.com
------------------------------
Date: 24 Mar 1997 20:07:35 GMT
From: stampes@xilinx.com (Jeff Stampes)
Subject: Re: How do I get all more than 2 hours old files
Message-Id: <5h6mu7$gis$2@neocad.com>
: Ronak Bhatt <rbhatt@netscape.com> wrote in article
: <3326E50B.1CB0@netscape.com>...
: How would I get the filenames, that were created before two hours ( when
: the script is run).
The perlfunc manpage has a good description of the -M -A and -C
switches...none give you an actual creation date, however you may
find that one of these tests will indeed give you the data you need
(especially the -C and -M). You can perform these tests with
decimal values (ie, if (-C > .5) would equate to files with an inode
changed more than 12 hours ago).
If none of these work for you, you can always do a long listing of the
file and parse out the creation date.
--
Jeff Stampes -- Xilinx, Inc. -- Boulder, CO -- jeff.stampes@xilinx.com
------------------------------
Date: Tue, 25 Mar 1997 21:52:15 -0800
From: Devin Ben-Hur <dbenhur@egames.com>
To: lewis@nexusint.com
Subject: How to display tag-like text in HTML (was PARADOX)
Message-Id: <3338B98F.1AB8@egames.com>
[mail&post]
Lewis Taylor wrote:
> I am currently writing a prog which will allow you to edit HTML files
> from a browser. The following is an except from the program to generate
> a TEXTBOX containing the file $file_to_edit
>
> print "<TEXTAREA NAME=\"text\" ROWS=15 COLS=50>\n\n\n";
>
> open(FILE,"$file_to_edit");
++++ where's your "or die(...)" ???
> while (<FILE>)
> {
> print;
> }
> close(FILE);
>
> print "\n\n\n</TEXTAREA>\n";
>
> This would work fine but for the fact that at the end of $file_to_edit
> there are two tags </BODY> and </HTML> These are parsed screwing up the
> generated page completly.
The problem is more than </HTML>, it's *any* tags embedded
in the text of the file_to_edit. Use HTML character entities
to make the text look right in the textarea but not actually
be parsed HTML tags. Add this before your print statement
in the while loop above above:
# change sensitive chars to entities
s/([<>&])/'&#'.ord($1).';'/eg;
Alternatively, get & use (from CPAN) the CGI.pm or the CGI::*
modules, eg:
use CGI::Base;
...
while (<FILE>) { print html_escape($_); }
BTW, this is fundamentally an HTML question, not a
Perl question, your post would have been more appropriate
in comp.infosystems.www.authoring.html or
comp.infosystems.www.authoring.cgi.
Your subject line (PARADOX) was very poor. Have you read
the frequent posting about chosing good subject lines?
If you'd thought about your problem hard enough to
produce a good subject line you might have realized
which was the correct newsgroup too. Perl != CGI.
HTH
--
Devin Ben-Hur <dbenhur@egames.com>
eGames.com, Inc. http://www.egames.com/
eMarketing, Inc. http://www.emarket.com/
"It's better to be lucky than good." -- Elizabeth Bourne
------------------------------
Date: Wed, 26 Mar 1997 02:18:29 +0000
From: Eric Poindexter <eric@nettown.com>
To: Josep Jover <jjover@correu.andorra.ad>
Subject: Re: Little beginers question
Message-Id: <33388775.5DFE6CC3@nettown.com>
Josep Jover wrote:
>
> Hello,
> Just two little questions to help a beginner that doesn't write english
> very well ;-)
>
> How can I retrieve the current directory where I am ('chdir' is only use to
> change it ?)
$cwd = `pwd' # if unix
$cwd = `cd` #if NT
(note those are BACK ticks, or use
$cwd = system ('pwd')
if you like (see perl moto))
> How can I know the number of elements in a table. I try $len=@array but it
> don't seems to work well.
> With the regular expression $body=~/xxx/ we can know if the expression xxx
> is contained in $body, how can I know the number of times
#!/usr/bin/perl
$_ = "tom tom matt tom";
$cnt++ while /tom/g;
print $cnt;
, and the location
> to retrieve a part of the string ?
perl built-ins:
index str, substr[, pos] --find first occurence
rindex str, substr[, pos] --find last occurence
>
> Best reguards
> Josep Jover
> jjover@andorra.ad
--
Eric
<mailto:eric@nettown.com>
[http://nettown.com/perl/]
have a good day! (yes, Poindexter is Really my name :-)
------------------------------
Date: Tue, 25 Mar 1997 18:37:32 -0600
From: Rob Huffstedtler <rob@netcentral.net.no.spam>
Subject: ncurses
Message-Id: <33386FCC.51FAD8CE@netcentral.net.no.spam>
Does anyone know if there is a port of the ncurses library available for
Perl? I realize that I can do POSIX calls to the library, but I don't
really want to do that.
------------------------------
Date: Wed, 26 Mar 1997 10:18:54 -0800
From: Armin Faltl <armin.faltl@siemens.at>
Subject: need cross reference checker
Message-Id: <3339688E.195@siemens.at>
We use perl for numerous scripts, and very often the need arises
to understand someone elses code.
So I4m seraching for tools to extract call trees, global variable
usage, subroutine parameters and side effects, etc. from perl code.
Even complexity metrics would be of value to use, since we now face
the need, to keep perl sources maintainable in a team of about 10
programers, and there is a lot of old code to rework.
Thanks in advance,
Armin
------------------------------
Date: Wed, 26 Mar 1997 11:34:50 GMT
From: donovan@zaak.nl (Donovan Janus)
Subject: Perl output through Java
Message-Id: <33390948.8311266@news.xs4all.nl>
Hi.
I have to access a Perl script through Java. This is no problem. Only
I then want the output of the Perl script to be read into the Java
applet. STDIN doesn't seem to work (which is logical enough). So does
anyone know how I can retrieve the data?
Donovan Janus
janus@zaak.nl
http://www.zaak.nl
The site for Dutch entrepreneurs
------------------------------
Date: Wed, 26 Mar 1997 19:04:52 +1030
From: Julian McDonnell <orac@ezinet.com.au>
Subject: Re: Perl, Delphi, Linux, Windows, and databases (VB5E?)
Message-Id: <3338DFAC.49CBAA61@ezinet.com.au>
Chris Schoenfeld wrote:
>
> ARGH!
>
> We are having trouble scaling some of our work.
> We have been doing Perl/CGI/database work with DB_File/Berkeley DB.
> Now I want to do some Client/Server work with Delphi.
> I want a new database which will support both.
>
> Delphi wants to use Oracle, Sybase, Informix, or Interbase.
> From what I understand, Perl has modules for some/all of these in
> various stages of robustness.
> NONE of these databases support Linux - GRRRR!!!
>
> I need a database I can run on Linux, Windows 95, Windows NT, and
> Solaris, that has excellent Linux Perl support and excellent Windows C/S
> RAD tool support. I am willing to switch to VB5 enterprise if that will
> help.
>
> I'm starting to beleive there is no such animal. I will probably have to
> find a Linux/Solaris database with ODBC (blechh).
>
> I started to evaluate Velocis, which seemed like a good choice - but
> their Perl module was comprised of a windows DLL! arg!
>
> It would be great if Sybase would just port to Linux. Then we could
> start off with SQL Anywhere and scale up development on both platforms.
>
> --
> Chris Schoenfeld
> IX Development Laboratories
> Santa Rosa, California
> (707)-543-8030 Ext. 12
check out CodeBase from sequiter software.
They offer dBase support for dos/win3.x/95/nt
as well as linux and solaris. (the dos/win and
unix versions you have to buy seperately though)
Have a look @ www.sequiter.com
hope this help
julian
------------------------------
Date: Wed, 26 Mar 1997 15:11:25 -0800
From: Mercedes Arredondo <mercedes@fgidec1.tuwien.ac.at>
Subject: please ignore
Message-Id: <3339AD1D.5B57@fgidec1.tuwien.ac.at>
proube
------------------------------
Date: Wed, 26 Mar 1997 10:48:53 +0000
From: Douglas Seay <seay@absyss.fr>
To: Sherman Hsieh <shsieh@haas.berkeley.edu>
Subject: Re: regular expression for check lower case
Message-Id: <3338FF15.541@absyss.fr>
Sherman Hsieh wrote:
>
> I was wondering how to go about checking a variable for cases. For
> example, I want to do something if $variable is all lower case. I
> couldn't figure out what regular expression to use. Help.
[posted and mailed]
$var !~ m/[A-Z]/
usually "all lower case" means "no-upper case" because
of punctuation. if you really want lower case and nothing
but lower case, try something like
$var =~ m/^[a-z]$/
if you like slinging strings, you can use the lc() function
to lowercase your string and then compare it to the original.
- doug
------------------------------
Date: 26 Mar 1997 06:21:29 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: shsieh@haas.berkeley.edu (Sherman Hsieh)
Subject: Re: regular expression for check lower case
Message-Id: <8cohc6n606.fsf@gadget.cscaper.com>
>>>>> "Sherman" == Sherman Hsieh <shsieh@haas.berkeley.edu> writes:
Sherman> I was wondering how to go about checking a variable for cases. For
Sherman> example, I want to do something if $variable is all lower case. I
Sherman> couldn't figure out what regular expression to use. Help.
Don't use a regular expression:
if ($thing eq lc $thing) {
# it's OK!
}
This has the advantage of being locale-safe for international character
sets.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,495.69 collected, $182,159.85 spent; just 524 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 26 Mar 1997 01:54:18 GMT
From: Frank Lacy<LacyEnt@aol.com>
Subject: The Personal Electronic Picture Album
Message-Id: <5h9vka$l5s$136@moon>
Organisation: Lacy Enterprises
######################################################################This message is create by Dynamic Mail - a most advanced bulk email software
for the online marketer to extract MILLIONS of email address from the internet
, send message to unlimited email addresses, or post ads to any number of selected
newsgroup. For more information please send email to : apexpi@tig.com.au
or visit our web site at : http://homepages.tig.com.au/~apexpi/dynamail.htm
######################################################################
Personal Electronic Picture Album
Share your Pictures with all your Family and Friends without making duplicates
for one low price!
Download a sample program: http://members.aol.com/lacyent/lacyent.html
Lets look at an example of how pictures are currently shared. You have a birthday party for
your three year old and some of the relatives can't attend. So you take a roll of 36 pictures
during the course of the party. You get the pictures developed for $5.79 and now want to
send some of the pictures to grandparents, aunts & uncles and the brother in college.
You choose the 10pictures you want to share copies of, spend a total of $60.00, to make
duplicates for 6 copies of the 10 pictures. So far you have spent a total of $65.79. A couple
of weeks later you are talking with a friend who lives in another state and they ask for a few
pictures, so you spend money to make more copies and send them off.
BOY, what a Hassle and Expense.
With the Personal Electronic Picture Album, you send in 10 pictures of your choosing, and we
send you back a program that displays the 10 pictures. (We also send back the pictures) You
can now send the Electronic Picture Album to anyone you want. What would you say if I told
you that you could send those pictures to anyone you want for only $14.95? YES, that's right,
for only $14.95 you can send your 10 favorite pictures from your child's birthday party,
Christmas, the recital, or any occasion you want. Just think, if you sent the 10 pictures in a
Personal Electronic Picture Album to the same 6 people above instead of making duplicates
, you would save $50.00 and be able to send the pictures to all of the people you want.
Want to see an example of the Personal Electronic Picture Program at no charge? Then all
you have to do is download the file now. Goto http://members.aol.com/lacyent/lacyent.html
We will send the Personal Electronic Picture Album via E-Mail and return your pictures via
regular mail.
Picture Albums with 10, 15 or 20 pictures are available. Visit our Web site for complete
ordering info, price lists and to download a sample program. Mention discount # 12559
and take a 10% discount on your order.
Goto: http://members.aol.com/lacyent/lacyent.html
------------------------------
Date: Wed, 26 Mar 1997 10:26:43 +0000
From: Douglas Seay <seay@absyss.fr>
Subject: Re: Unix and ease of use (WAS: Who makes more ...)
Message-Id: <3338F9E3.6073@absyss.fr>
Nick Leaton wrote:
>
> Peter Seebach wrote:
>
> > Linux developers can release something they know to be buggy, and have
> > thousands of people help them work out the bugs.
>
> Isn't that the same way the Microsoft works? ;-)
No, not at all. MS releases buggy code and thousands
of people find work arounds or do without.
- doug
------------------------------
Date: 26 Mar 1997 01:16:42 -0600
From: madings@earth.execpc.com (Steve Mading)
Subject: Re: Unix and ease of use (WAS: Who makes more ...)
Message-Id: <5haigq$gtn$1@earth.execpc.com>
Tim Behrendsen (tim@a-sis.com) wrote:
: Peter Seebach <seebs@solutions.solon.com> wrote in article
: <5h8vsn$9uv@solutions.solon.com>...
: > In article <01bc388f$41537ac0$87ee6fce@timpent.a-sis.com>,
: > Tim Behrendsen <tim@a-sis.com> wrote:
: > Linux developers can release something they know to be buggy, and have
: > thousands of people help them work out the bugs.
: This is an advantage?
: This is lack of testing procedures and quality controls, and in
: commercial houses they actually spend real *money* to develop
: regression tests, etc.
Fat lot of good it seems to do them, though, Eh?
I have not been impressed with the ability of big $ of high-level
regression testing to find bugs. Nothing whatsoever can replace
the effect of personal integrety and pride of the average programmer
towards making sure things are bug-free (the sort of pride that said
big companies have a habit of removing from people).
(Note that $$ regression tools ARE good and USEFUL, and they DO work,
but their impact is not nearly as much as the developer's 'pride'
factor. A big company that adds big $$ regression test software
while at the same time sucking developers dry of their creativity
(and thus pride) is not getting ahead of the bug-swatting game.
Now on the other hand a company that has both the 'pride' factor AND
the software QC tools is in good shape.)
This major 'pride' factor cannot be bought. It comes for free
with Linux, FreeBSD, and the plethora of GPL software out there.
The better companies have the 'pride' factor too, but it can
never compare to the pride felt at contributing to a system
that you collectively own with the rest of the users. (And
before you go running off accusing me of being a 'commie',
remember that collective ownership and government ownership
are not the same thing. Government ownership is no better
than Commercial ownership.)
[snipped to the end of the post: ]
: Perhaps, but the best programmers I know put forth their best
: effort on whatever project they work on, because they have pride
: in their work. And it's much more ethical to do your best work
: when you are being paid for it.
Like what I was saying here. But I have yet to work for a company
that actually lets me have pride in my work. The general idea
has always been "Shut up and do it this way, even if it's wrong.".
I can't take pride in my work in an environment like that, because
for the most part it isn't *my* work. I end up being just a
glorified secretary for the analyst who hasn't programmed in over
five years but thinks he knows how to design a modern system.
------------------------------
Date: Tue, 25 Mar 1997 23:59:27 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: What's a bad Perl book?
Message-Id: <E7MIn4.3rr@bcstec.ca.boeing.com>
Keywords: Hexapodia as the key insight
In article <5h99fc$m39@pirate.shu.edu>,
David Alan Black <dblack@icarus.shu.edu> wrote:
>Tom Christiansen <tchrist@mox.perl.com> writes:
>
>>In comp.lang.perl.misc,
>> revjack@radix.net writes:
>>:Sorry, all those other threads were getting to me.
>
>>Well, I find "Java in a Nutshell" to be a very bad Perl book. :-)
>
>I don't know - most books on Java at least present a lot of
>good reasons to learn Perl. :-)
>
That reminds me of a post I've come to cherish:
"However, a JVM compiler backend is (somewhere) on my list of things to do."
--Malcolm
Sorry for wandering off the thread a bit :)
--
Charles DeRykus
ced@carios2.ca.boeing.com
------------------------------
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 182
*************************************
