[9499] in Perl-Users-Digest
Perl-Users Digest, Issue: 3093 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 8 10:17:15 1998
Date: Wed, 8 Jul 98 07:01:41 -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 Wed, 8 Jul 1998 Volume: 8 Number: 3093
Today's topics:
Re: 'NEXT' and 'LAST' in do-until <mortensi@idt.ntnu.no>
Re: -w on production code (was Re: better way of gettin (Michael J Gebis)
Re: -w on production code (was Re: better way of gettin <zenin@bawdycaste.org>
Re: -w on production code (was Re: better way of gettin <merlyn@stonehenge.com>
Re: Array Size <zenin@bawdycaste.org>
BDM files on VMS? <mats.lofstrom@mla.se>
Calling DLLs from within PERL alan_k'necht@canadalife.com
Checking the existence of a url <user@server.com>
Checking the existence of a url <mauro@franchisetech.com>
Re: DB_File in the real world. (Stefaan A Eeckels)
Re: DB_File in the real world. <steve.tolkin@fmr.com>
Re: Do I understand this? (Phillip George Geiger)
Re: Extracting portions of an HTML file using perl chrishabs@my-dejanews.com
File::Find recursive technique? <xah@shell13.ba.best.com>
Re: File::Find recursive technique? (Chris Nandor)
Re: Finding a string between to known tags? <quentin.fennessy@amd.com>
Re: Globbing from a list <dlaser@ermine.ox.ac.uk>
hash object - how to get keys <jflood@qsun.ho.att.com>
How to read UDP? <wim@aw.sgi.com>
Re: i've got a forking problem - Let's do the time warp <richard@carval.co.uk>
Re: Indexing servers <clint@netcomuk.co.ukXX>
Re: Indexing servers (brian d foy)
Re: locking in perl <zenin@bawdycaste.org>
Re: manipulate /etc/passwd without expect ?? (Jeremy D. Zawodny)
Re: manipulate /etc/passwd without expect ?? <merlyn@stonehenge.com>
Re: Oh man, DO I love Perl ! (References to things that <zenin@bawdycaste.org>
PERL & mSql help needed (Reinhard Hoefler)
perl-installation eats more than 3 GByte of harddisk <knocker@bauwesen.tu-cottbus.de>
Placeholders in Perl? <brian.coffey@analog.com>
Problems builduing DBD-Oracle-0.50 under HP-UX 10.20 <faulbaum@alder.bessy.de>
question about inline editing <eedalf@eed.ericsson.se>
Re: question about inline editing <dlaser@ermine.ox.ac.uk>
Re: question about inline editing (Real)
Strange file behavior... <prsnyder@bewley.net>
Re: syscall <jhi@alpha.hut.fi>
Using Perl to generate HTML Pages. <richard@carval.co.uk>
Wanted: msql/perl specialist for paid consultation (Reinhard Hoefler)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Jul 1998 10:43:14 GMT
From: Morten Simonsen <mortensi@idt.ntnu.no>
Subject: Re: 'NEXT' and 'LAST' in do-until
Message-Id: <6nvig2$dad$1@due.unit.no>
Tom Christiansen <tchrist@mox.perl.com> wrote:
> [courtesy cc of this posting sent to cited author via email]
> LAST: {
> do { NEXT: {
> last LAST if /whatever/;
> next NEXT if /whatever/;
> redo NEXT if /whatever/;
> ....
> }} until something
> }
I have heard that "Perl makes easy things easy, without making hard
things impossible". I guess you're right...:-) Anyway, thanks to you
(Mr. Christiansen) and to Mr. Schwartz (I hope I spelled it correct!)
for valuable input.
I am just curious: Why is a do-until loop *that* different from a
while-loop?
Morten Simonsen
------------------------------
Date: 8 Jul 1998 07:08:48 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: -w on production code (was Re: better way of getting the last modified file?)
Message-Id: <6nv5u0$d64@mozo.cc.purdue.edu>
Lloyd Zusman <ljz@asfast.com> writes:
}Perhaps mandatory `-w' processing could be phased in, with more and
}more warnings showing up by default in each new Perl release, and with
}a new switch which could be used to disable them. After a few
}releases under this scenario, `-w' would end up being essentially a
}no-op.
Someone else stated the fundamental problem with doing this: -w also
functions as lint. This means you see things like:
%foo=%foo;
...in code, where people are trying to trick the warning engine into not
issuing a warning. I hate having to play games like this. It does
not stike me as a good practice. And of course, who's to say that the
next version of perl won't be more aggressive in detecting no-ops, and
issue a warning for this? Of course, I do things like this all the
time, but it always annoys me.
Something that really steams me about about the current C++ compiler I'm
using is that it issues a "Empty statement" warning when it sees two or
more consecutive semicolons. Because of some legacy code, there are a
lot of macros that tend to expand out to contain (you guessed it) two
consecutive semicolons. This makes people despise the "-w" switch,
and makes it easy to get into the habit of ignoring all warnings.
Let me reinforce this: I like warnings. I use them all the time.
But too many warnings (or warnings that the user thinks are dumb)
may not be a good thing.
I know it's been suggested before, but I think that partitioning
warnings into two levels (at least) could remedy this situation.
There are warnings that almost always show a bug (Use of undefined
variable) and there are warnings that point out useless code
(duplicate my declarations). Making the first category mandatory
doesn't seem like such a bad idea (but leave some method of overriding
them) but warnings in the second category should always be optional.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: 8 Jul 1998 13:15:36 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: -w on production code (was Re: better way of getting the last modified file?)
Message-Id: <899904277.236125@thrush.omix.com>
Abigail <abigail@fnx.com> wrote:
: Then use CGI.pm in a sensible way. There are enough hooks in CGI.pm to
: fully blame the author of the program if the program emits warnings to
: confuse the server.
>snip<
CGI.pm is great for form parsing, but is a bit too much overhead
for CGIs that don't really do much form parsing and are run
quite a bit, even under mod_perl/nsapi_perl. Alas, CGI::Carp
often is too... :-(
: The fact that an upgrade of perl might emit new warnings is a *GOOD*
: reason to keep -w on production code.
I agree, with the exception of most CGI code. As much as I'd
love it to be otherwise, web error logs just don't get looked
at when not developing or debugging so any warnings are just
going to go to waste, or worse (in the case of some versions
of Netscape) going to cause the server to barf. Sending the
errors to the browser via CGI::Carp is completely out of the
question for production code. -If a client sees some random
(and very likely harmless) warning suddenly appear on there
web pages they'd freak, and rightfully so.
: What do you customers prefer if their sysadmins upgrade Perl?
I make sure my CGI code throws all warnings away, or to
a log file.
: Warnings, or silently going on, perhaps
: producing wrong results, or even stop working all together on the next
: upgrade of Perl?
If anything stopped working on a minor revision of Perl, I'm
sure I wouldn't be the only one yelling up a storm. :-)
: Of course, if your code is of such a quality that it easily pukes
: warnings all over the users, you might want to omit -w. But I wouldn't
: have shipped such code in the first place.
I'm not talking about warnings that show up in development, but
rather warnings that show up only after an upgrade of perl. You
could apply such terms to the quality of the code in the Camel
under the same logic, but that doesn't mean the Camel code is
in any way low quality, buggy, or otherwise. It works, and it
won't break, despite what the warnings might say.
: Emitting -w is as silly as to get rid of all die()s and warn()s in
IMHO, omitting -w is about the same as omitting the -g flag to
cc. If this was C code, you'd only see many of these types of
warnings at compile time, which the user would never see.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Wed, 08 Jul 1998 13:46:56 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: -w on production code (was Re: better way of getting the last modified file?)
Message-Id: <8clnq4h2v3.fsf@gadget.cscaper.com>
>>>>> "Lloyd" == Lloyd Zusman <ljz@asfast.com> writes:
Lloyd> I see and recognize the value of the `-w' switch, and therefore, I
Lloyd> believe that there must be *some* reason for its associated behavior
Lloyd> not becoming the default.
If -w ever becomes the default, I'm switching to python.
-w is training wheels. Yes, when I'm writing casual code for long
term maintenance, I don't mind coding in the narrowed style that -w
demands. However, for a quick-n-dirty script, -w often makes me add a
bunch of extra steps that get in my way. Remember, you can't lean
hard into the corner with training wheels. :)
Just think of it as "two perls in one". :-)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $22,319.19 collected, $186,159.85 spent; just 55 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@teleport.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: 8 Jul 1998 13:20:44 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Array Size
Message-Id: <899904585.33504@thrush.omix.com>
Craig Berry <cberry@cinenet.net> wrote:
: Or, using a notation I find more pleasing, $array[-1] does the same thing.
: One less copy of the array name to mistype. :)
Just don't be tempted to think @array[10..-1] will work in the
same way. :-)
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 08 Jul 1998 14:00:04 +0200
From: Mats Lofstrom <mats.lofstrom@mla.se>
Subject: BDM files on VMS?
Message-Id: <ufk95o1rjv.fsf@mla.se>
Is there anyone who has implemented DBM files in the VMS version of
Perl 5.004?
mla
--
Mats Lvfstrvm York Consulting AB
mla@york.se http://www.york.se (+46) (0)70 594 17 73
------------------------------
Date: Wed, 08 Jul 1998 13:31:54 GMT
From: alan_k'necht@canadalife.com
Subject: Calling DLLs from within PERL
Message-Id: <35a37466.1382828@news.worldlinx.com>
Is there a way to call DLLs using PERL in a NT environment?
If there is no way to do this, what language would make a good
alternative?
Thanks
------------------------------
Date: Wed, 08 Jul 1998 15:18:35 +0200
From: user <user@server.com>
Subject: Checking the existence of a url
Message-Id: <35A371AB.5DDA@server.com>
Hi all,
I have the problem to check a great number of urls (pointing to html
page): this means to verify if the url is reachable and (if yes) retrive
the last modification date of the related html page.
I tried to use LWP::Simple library (header function), but it doesnt work
on all http servers.
I suppose the famous search engines use a similar procedure to check own
urls ...
Has anyone suggestions?
Thank you all in advance
Mauro Quartini
------------------------------
Date: Wed, 08 Jul 1998 15:26:12 +0200
From: Mauro Quartini <mauro@franchisetech.com>
Subject: Checking the existence of a url
Message-Id: <35A37374.2854@franchisetech.com>
Hi all,
I have the problem to check a great number of urls (pointing to html
page): this means to verify if the url is reachable and (if yes) retrive
the last modification date of the related html page.
I tried to use LWP::Simple library (header function), but it doesnt work
on all http servers.
I suppose the famous search engines use a similar procedure to check own
urls ...
Has anyone suggestions?
Thank you all in advance
Mauro Quartini
------------------------------
Date: 8 Jul 1998 13:27:46 GMT
From: Stefaan.Eeckels@ecc.lu (Stefaan A Eeckels)
Subject: Re: DB_File in the real world.
Message-Id: <6nvs4i$6im$1@justus.ecc.lu>
In article <6nupl6$3eq$1@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> writes:
>
> I should probably show you mine for this once it's cleaned up
> a tiny bit more. It's remarkable how fast bit vectors can be
> manipulated, eh? I can't believe how quick it is.
>
> Right now I need a name for it.
Uncle Tom's File Cabinet?
--
Stefaan
--
PGP key available from PGP key servers (http://www.pgp.net/pgpnet/)
___________________________________________________________________
A consultant is a person who borrows your watch, tells you what
time it is, pockets the watch, and sends you a bill for it.
------------------------------
Date: Wed, 08 Jul 1998 09:47:58 -0400
From: Steven Tolkin <steve.tolkin@fmr.com>
Subject: Re: DB_File in the real world.
Message-Id: <35A3788E.1D968A1A@fmr.com>
I am very interested in this being "released".
I have been using databases based on bit vectors since the 1970's.
(Reference: "The Theory of the TAXIR Accessioner",
George F. Estabrook and Robert C. Brill,
Mathematical Biosciences 5 (1969) 327-340.
Not only are they very fast but also very small.
If you are willing to follow the tradition of slightly "off-color"
punny names how about:
bvd -- bit vector database.
(Or use bvdb, but that is a little harder to say.)
Tom Christiansen wrote:
> ...
> I should probably show you mine for this once it's cleaned up
> a tiny bit more. It's remarkable how fast bit vectors can be
> manipulated, eh? I can't believe how quick it is.
>
> Right now I need a name for it.
--
Hopefully helpfully yours,
Steve
---
Steven Tolkin steve.tolkin@fmr.com 617-563-0516
Fidelity Investments 82 Devonshire St. R27C Boston MA 02109
There is nothing so practical as a good theory. Comments are by me,
not Fidelity Investments, its subsidiaries or affiliates.
------------------------------
Date: 8 Jul 1998 12:56:59 GMT
From: geiger@cs.ucdavis.edu (Phillip George Geiger)
Subject: Re: Do I understand this?
Message-Id: <6nvqar$nr5$1@mark.ucdavis.edu>
Tom Christiansen (tchrist@mox.perl.com) wrote:
: [courtesy cc of this posting sent to cited author via email]
:
: In comp.lang.perl.misc,
: geiger@cs.ucdavis.edu (Phillip George Geiger) writes:
: :I want to put some advertising banners on my web site.
:
: Gosh, that'll sure win you a lot of friends.
Web space isn't free.
Or if it is (e.g., geocities), people have to put up with the host's
advertising.
Thank you for your constructive and helpful reply.
--
Phil Geiger
Visit the Linux Book Guide
http://members.bellatlantic.net/~ptgeiger/guidehome.htm
------------------------------
Date: Wed, 08 Jul 1998 12:01:35 GMT
From: chrishabs@my-dejanews.com
Subject: Re: Extracting portions of an HTML file using perl
Message-Id: <6nvn2v$jkm$1@nnrp1.dejanews.com>
In article <a12tn6.av4.ln@gate.tpd.co.uk>,
"Phil Clark" <phil.clark@takethisbitout.tpd.co.uk> wrote:
> Folks
>
> This should be a simple request ...
>
> Can someone tell me how to extract a portion of an HTML file in perl? For
> example the <HEAD> ........ </HEAD> section - I want to extract just the
> text in the middle of the tags, and not the tags themselves, nor anything
> outside the tags.
>
> Would that be easy to do in perl?
>
Check out the HTML::Parser module on CPAN.
Chris H.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 08 Jul 1998 03:42:42 -0700
From: Xah Lee <xah@shell13.ba.best.com>
Subject: File::Find recursive technique?
Message-Id: <yo3pvfgzkrh.fsf@shell13.ba.best.com>
How can I generate a file hierarchy listing, in the following format:
<ul>
<li>filename1
<li>folderName1
<ul>
<li>filename1_1
<li>filename1_2
</ul>
<li>filename2
</ul>
I tried to use File::Find::find recursively but failed.
For an example of what I'm doing, see my web page at
http://www.best.com/~xah/SpecialPlaneCurves_dir/Intro_dir/indexOfFiles.html
Thanks for hints.
Xah, xah@best.com
"I thank GNU for making unix less stupid."
------
Here's the outline of my attempt.
sub processFile {
if (-d $currentFilePath) {print qq(<li>$currentFolderPath\n)} else {print qq(<li>$currentFileName\n)};
if (-d $currentFilePath) {
print q(<ul>);
find(\&processFile,$currentFilePath);
print q(</ul>);
};
};
find(\&processFile,$inputFilePath);
------------------------------
Date: Wed, 08 Jul 1998 13:14:17 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: File::Find recursive technique?
Message-Id: <pudge-0807980913520001@dynamic206.ply.adelphia.net>
In article <yo3pvfgzkrh.fsf@shell13.ba.best.com>, Xah Lee
<xah@shell13.ba.best.com> wrote:
# How can I generate a file hierarchy listing, in the following format:
#
# <ul>
# <li>filename1
# <li>folderName1
# <ul>
# <li>filename1_1
# <li>filename1_2
# </ul>
# <li>filename2
# </ul>
#
# I tried to use File::Find::find recursively but failed.
File::Find::find() is recursive already. To call it from within itself is Bad.
I posted this already to the mac-perl list, but here goes again. Hope it
helps, and that it does not cause your machine grief.
#!perl -w
# html_dirs.plx
# pudge@pobox.com 1998.07.08
use strict;
use File::Find;
use vars qw/*file *dir $curr $name $tot $sep/;
$|++;
# NB: leave off trailing : in MacPerl, because File::Find does!
# If File::Find adds a trailing / to dir names, add it here, too
# I could make it work regardless, but i have other things to do :)
$name = q{PowerPudgeII:Desktop Folder:perlget:notdone};
*file = *File::Find::name;
*dir = *File::Find::dir;
$sep = $^O eq 'MacOS' ? ':' : '/';
$tot = ++$curr while ($name =~ /$sep/g);
print "<UL>\n";
find(\&wanted, $name);
goback();
print "</UL>\n";
close(FILE);
sub wanted {
my $fn = $file; # use line below instead to print just file names
# my $fn = $file eq $name ? $file : $_;
goback();
print space() . "<LI>$fn\n";
if (-d $file) {
print space() . "<UL>\n";
}
}
sub space {' ' x ((shift || $curr) - $tot + 1) x 2}
sub goback {
my $deep = 0;
$deep++ while ($dir =~ /$sep/g);
while ($curr > $deep) {
print space($curr - 1) . "</UL>\n";
$curr--;
}
$curr = $deep;
}
__END__
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: 08 Jul 1998 08:12:27 -0500
From: Quentin Fennessy <quentin.fennessy@amd.com>
Subject: Re: Finding a string between to known tags?
Message-Id: <xim67h8jxl0.fsf@shaddam.amd.com>
>>>>> "Marcus" == Marcus Spangenberg <era.eraspma@mesmtp.ericsson.se> writes:
Marcus> How do I find a string from a file that is located between
Marcus> a known start-tag and a known end-tag?
m/START-TAG.*STRING.*END-TAG/
There are some issues involving new-lines -- this only works if
all 3 components are one the same line. See perlop(1) for
more details. perlre(1) may also help.
--
Quentin Fennessy AMD, Austin Texas
Secret hacker rule #11 - hackers read manuals
------------------------------
Date: 08 Jul 1998 11:40:53 +0100
From: Rob Hutchings <dlaser@ermine.ox.ac.uk>
Subject: Re: Globbing from a list
Message-Id: <yk3emvw8w22.fsf@ermine.ox.ac.uk>
Scott.L.Erickson@HealthPartners.com (Scott Erickson) writes:
>
> Previously, I wrote:
>
> >Here is what I want to do: I want to apply a glob-like function to a
> >list, not the current directory. I want the simplicity of basic
> >filename expansion such that if I have a list of filenames, I can pull
> >out only those that match a given pattern. I am trying to avoid using
> >regular expressions as the pattern because this will be used by others
> >who are weak with regards to regexs, but okay with filename expansion
> >(i.e., *.jpg).
>
> Well, I went to lunch and came back with a solution. My solution is
> this:
> convert the globbing pattern to a regex
> grep the filenames from the list using the regex
>
That seems an excellent idea -- I hope you're getting paid by the
number of lines of code you produce, otherwise why not do it the
easy way:
$regex = "^\Q$pattern\E\$";
$regex =~ s/\\\*/.*/g;
>> (lengthy code snipped!)
That makes it easy to add any other special cases.
HTH - Rob
------------------------------
Date: Wed, 08 Jul 1998 08:59:56 -0400
From: Jerry Flood <jflood@qsun.ho.att.com>
Subject: hash object - how to get keys
Message-Id: <35A36D4C.2B7DE1E7@qsun.ho.att.com>
How do I det the keys for a hash object (blessed hash).
A ref of the object returns DBI::db=HASH(....
When I do a keys for the object ref, I don't get anything.
Thanks
Jerry
--
M. J. Flood Email: jerryflood@att.com
AT&T Data Services Development Phone: +1 732.949.9706
Room 2G-214, 101 Crawfords Corner Rd Alt: +1 732.866.1602
Holmdel, NJ 07733-3030 http://qweb.ho.att.com/~jflood
------------------------------
Date: Wed, 08 Jul 1998 14:36:39 +0200
From: Wim Driessens <wim@aw.sgi.com>
Subject: How to read UDP?
Message-Id: <35A367D7.6F59@aw.sgi.com>
Hi,
I'm a newbie to Perl so please forgive my ignorance...
I'm trying to read a UDP packet from a particular port on my SGI based
on the attached scripts below. You will notice it works find with the
TCP protocol but I don't know exactly what needs to be modified to
make it run with UDP. Just changing the Proto does not seem to work
as I get the message:
Socket could not be created. Reason: Bad file number
Script to send data
-------------------
use IO::Socket;
$sock = new IO::Socket::INET (PeerAddr => 'localhost',
PeerPort => 1200,
Proto => 'tcp'
);
die "Socket could not be created. Reason: $!\n" unless $sock;
foreach (1 .. 5) {
print $sock "Msg $_: How are you?\n";
}
close ($sock);
Script to read data
-------------------
use IO::Socket;
$sock = new IO::Socket::INET (LocalAddr => 'localhost',
LocalPort => 1200,
Proto => 'tcp',
Listen => 5,
Reuse => 1
);
die "Socket could not be created. Reason: $!\n" unless $sock;
while ($new_sock = $sock->accept()) {
while (defined ($buf = $new_sock->getline())) {
print "You said $buf\n";
}
}
close ($sock);
The problem is that I need to use UDP because the other application
is sending out UDP protocol. Therefor I need a script similar to
the one above that waits until data arrives on that port and then
read it. I can process the data later on in the rest of the perl
script without any problem. Thanks for your support ;)
PS: I'm using Perl 5.004_04. I can't seem to find a lot of info
based on this. The manual "Advanced Perl Programming" from O'Reilly
is the one I'm using but I feel is lacking detailed information on
the networking based on sockets.
------------------------------------------------------------------------
Wim "2UD" Driessens Contact:
Alias | Wavefront wim@aw.sgi.com - Email
European Support Centre ++/32/75/63.64.61 - GSM
Stapelplein 70 bus 210 ++/32/9/266.12.35 - Phone
B-9000 Gent ++/32/9/266.12.30 - FAX
------------------------------------------------------------------------
------------------------------
Date: Wed, 08 Jul 1998 12:56:07 +0100
From: Richard Alan Quadling <richard@carval.co.uk>
Subject: Re: i've got a forking problem - Let's do the time warp again!
Message-Id: <35A35E57.F762B22A@carval.co.uk>
This is a multi-part message in MIME format.
--------------BB50190F0D39663E9604FFF9
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
It's just a jump to the left.
Or it would be if I understood perl!
Richard Quadling.
--------------BB50190F0D39663E9604FFF9
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Richard Quadling
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Richard Quadling
n: Quadling;Richard
org: Carval Computing Limited
adr: The Computer Complex;;Somerset Place;Plymouth;Devon;PL3 4BB;United Kingdom
email;internet: richard@carval.co.uk
title: Technical & Development Support
tel;work: +44 (1752) 564736
tel;fax: +44 (1752) 605664
tel;home: You only have to ask!
note: Carval Computing Ltd's Website : http://www.carval.co.uk
x-mozilla-cpt: ;0
x-mozilla-html: TRUE
version: 2.1
end: vcard
--------------BB50190F0D39663E9604FFF9--
------------------------------
Date: Wed, 8 Jul 1998 11:55:33 +0100
From: "Clinton Gormley" <clint@netcomuk.co.ukXX>
Subject: Re: Indexing servers
Message-Id: <6nvj6r$le9$1@taliesin.netcom.net.uk>
many thanks jim
i was thinking of building something along these lines :
(1) an html form for entering the new document (cut and paste). would also
have tick boxes to assign key words to it
(2) each keyword would have a file with a list of articles that belong to it
stored in date order (ie as they were entered - DOH)
(3) a search for these keywords would work through these files and remove
all of those that aren't in all of the selected files
Hell that sounds like hard work for the disk drive. There has got to be a
better way!
I'm an NT user and know bugger all about UNIX - are u using grep as a unix
command? if so what does it do. Also, how does isindex work?
Thanks
Clint
------------------------------
Date: Wed, 08 Jul 1998 08:00:08 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Indexing servers
Message-Id: <comdog-ya02408000R0807980800080001@news.panix.com>
Keywords: from just another new york perl hacker
[let's fix up this wrap problem, hmmmm?]
[address de-munged]
In article <01bddb09$dab81e50$6488fdc7@dixon>, "jim babbington" <jwb79@mail.idt.net> posted:
>I once wrote a "search engine" using grep to grep my html document base
>and format the results to anchors that the user could click if the were
>interested.
the problem is that you didn't write an "engine", you wrote an
"interface". there is a difference. a big difference. this
sort of statement might work with clients or resumes, but not
with this group.
>open(YAHOO,"grep -i $string *.html"|) || die "a sorry death";
>
>while(<YAHOO>) {
>($url,$match) = split(/:/);
>print "<a href=$url>$match</a><hr>";
>}
>
>or somthing like that.
uh-huh. you really have never done this before, have you? (careful
now, your talking to someone who has, and he's detecting bullshit
in your post).
>But to do actuall indexing requires the enforcement of business rules, and
>therfore,
>a database. What I mean by that, is if your dairy farmer, you may want to
>explicity
>map the word "utter" to several documents regarding and interested parties
>needs:
why would "utter" matter any more to a dairy farmer than a stock
broker?
>You could also enforce these rules in your perl script, but thats more of
>an AI question, that would be way over my head, you may want to post this
>problem
>to the LISP folks......
why is this an AI problem and not a standard indexing problem? in
which visual basic book did you pick up the buzzword "business
rule"?
>Another way, perhaps, is to use the isindex tag, that would mark each
>document
>to a particular business function. This works great if the number of
>documents is
>small (< 50). This reuires someone to examine the document, and select the
>whatever pidgeon hole it may belong in.
oh really? to bad you don't know Perl - it largely takes the
"someone" out of the picture.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
udderly inbeleivable
------------------------------
Date: 8 Jul 1998 13:35:27 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: locking in perl
Message-Id: <899905467.560853@thrush.omix.com>
Ramesh Nagarajan <ran@sgi.com> wrote:
: Does anyone know how to lock a part of a file?? I came across flock()
: which locks the whole file but not a small chunk of code.
Can't be done, at least not in anything close to a portable manner.
In some systems, you can put locks on particular blocks, but since
block size changes depending on your filesystem, this isn't really
too useful.
The only real way is to write a application locking system yourself,
or use libs that do such "row/column" locking. Berkeley DB v2.x has
such abilities, and is supported on many platforms. It's worth a
look: www.sleepycat.com
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Wed, 08 Jul 1998 12:43:41 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: manipulate /etc/passwd without expect ??
Message-Id: <35a36905.85038258@192.70.218.1>
[original author automagically cc'd via e-mail]
On 8 Jul 1998 02:13:58 GMT, abigail@fnx.com (Abigail) wrote:
>Why is it that anyone and his uncle wants their users to be able to
>change their passwords via a web interface, yet noone knows how to do it?
Substitute "change their passwords" with various other things, the
question remains -- unfortunately.
>If you can't figure out how to do it - don't. It's too dangerous.
Agreed.
I got it working over 3 years ago, and it worked beautifully. But it
took a lot of very careful planning and thinking.
Seeing the need for it lately, I've resurrect that project and am
working on converting the core pieces to a Perl module which will many
peoples' lives easier, I hope.
Jeremy
--
Jeremy D. Zawodny jzawodn@wcnet.org
Web Server Administrator www@wcnet.org
Wood County Free Net (Ohio) http://www.wcnet.org/
------------------------------
Date: Wed, 08 Jul 1998 14:01:35 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: manipulate /etc/passwd without expect ??
Message-Id: <8cemvwh26p.fsf@gadget.cscaper.com>
>>>>> "Jeremy" == Jeremy D Zawodny <jzawodn@wcnet.org> writes:
Jeremy> Seeing the need for it lately, I've resurrect that project and
Jeremy> am working on converting the core pieces to a Perl module
Jeremy> which will many peoples' lives easier, I hope.
You mean to replace the core module HTTPD::UserAdmin, which has been
there some twelve months or so?
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $22,319.19 collected, $186,159.85 spent; just 55 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@teleport.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: 8 Jul 1998 11:42:22 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Oh man, DO I love Perl ! (References to things that go out of scope)
Message-Id: <899898683.402357@thrush.omix.com>
Gisle Aas <aas@sn.no> wrote:
: If my latest patch to fields.pm find its way into developer release
: perl5.004_70 then you can have private fields as well as compile time
: typo-check for your field names.
I was wondering if this was going to be added when I first
ran into fields.pm. Field.pm is great, and if fixes a lot
of problems, but I don't think it fixes all of them quite
yet.
>snip<
: Fields beginning with "_" are made private and are not visible in
: subclasses. They can be used without risk. Subclasses are allowed to
: override public field names ("b" above) but will get a warning under
: -w.
Hmm...but the sub class can't have it's own copy of the same
named field?
The warning is nice to have, but real private fields would be much
better. Without such fields, an upgrade of a super could cause
conflicts (by creating new "private" fields the older sub was
already using) with it's subs just as easily as the case is now.
I'm just not sure such "real" private fields are possible while
using a hash style object, at least not in the current language
implementation.
: Typing 'my A::Very::Long::Class:Name $self' in every method is not
: very attractive though (and 'my __PACKAGE__ $self' does not seem to
: work either).
Isn't there talk abount making my __PACKAGE__ $self work, somehow?
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Wed, 8 Jul 1998 13:13:54 +0200
From: reinhard@easy-shopping.com (Reinhard Hoefler)
Subject: PERL & mSql help needed
Message-Id: <MPG.100d72d98e8a9780989695@news.via.at>
Hello all,
I have worked a bit with perl and I am completely new at mSQL. I have
made my first steps and wonder how to make msql and perl work together to
allow visitors, to request from/write to a database over the web.
The problem seems to be, that the server does not accept:
use Msql;
Maybe I have to install something (I rent a virtual server at VServers -
the system is a modified Unix BSD 3). Could someone please help me?
Thank you in advance,
Reinhard
------------------------------
Date: Wed, 08 Jul 1998 14:42:39 +0200
From: Thomas Kobbe <knocker@bauwesen.tu-cottbus.de>
Subject: perl-installation eats more than 3 GByte of harddisk
Message-Id: <35A3693F.3409@bauwesen.tu-cottbus.de>
Hello,
when I do "sh Configure" and a "make depend" (perl5.004_04 on HP-UX 9),
perl installation generates the file ".shlist" which blows up to over 3
GByte of diskspace, an I must cancel the installation.
Can anybody help me please ???
--
Thomas Kobbe, knocker@bauwesen.tu-cottbus.de, student in civil- &
building-engineering at Brandenburg University of Technology Cottbus,
Web: http://www.bauwesen.tu-cottbus.de/~knocker/
------------------------------
Date: Wed, 08 Jul 1998 12:17:47 +0100
From: Brian Coffey <brian.coffey@analog.com>
Subject: Placeholders in Perl?
Message-Id: <35A3555B.EBCC81E8@analog.com>
Hi,
the problem:
nmos_ M2( .SUBSTRATE(VSS), .G(I), .D(ZN), .S(VSS));
pmosob M1( .SUBSTRATE(VSS), .D(ZN), .S(VDD), .BG(VDD), .G(I));
I want to use the above two lines as regular expressions on a file that
contains
similar lines but has different strings in the brackets. For example :
nmos_ M2( .SUBSTRATE(VSS), .G(I_DIFF), .D(ZN), .S(VSS));
pmosob M1( .SUBSTRATE(VSS), .D(ZN), .S(VDD), .BG(VDD), .G(I_DIFF));
should also match the reg. expression. Is there such a thing as a
template or
placeholder in Perl? Something like this?
nmos_ M2( .SUBSTRATE(X1), .G(X2), .D(X3), .S(X1));
pmosob M1( .SUBSTRATE(X1), .D(X3), .S(X4), .BG(X4), .G(X2));
So no matter what strings are in the brackets as long as they match like
in the order above the expression is satisfied.
If anyone can help with the above problem I would be very grateful.
Thanks,
Brian Coffey
------------------------------
Date: 08 Jul 1998 15:07:52 +0200
From: Dieter Faulbaum <faulbaum@alder.bessy.de>
Subject: Problems builduing DBD-Oracle-0.50 under HP-UX 10.20
Message-Id: <vsu34sa3tj.fsf@alder.bessy.de>
Is there anyone, who can help me:
I did this:
----------8<----------
perl Makefile.PL
Using DBI 0.93 installed in /opt/perl5/lib/site_perl/PA-RISC1.1/auto/DBI
Configuring DBD::Oracle ...
>>> Remember to actually *READ* the README file!
Especially if you have any problems.
Using Oracle in /opt/oracle
8.0.3.0.0 ORACLE Common RDBMS Libraries and Utilities
8.0.3.0.0 ORACLE PL/SQL Libraries
8.0.3.0.0 ORACLE Common Precomp Libraries
8.0.3.0.0 PL/SQL
8.0.3.0.0 Oracle8 Server (RDBMS)
8.0.3.0.0 Precomp
2.1.3.0.0 Pro*C
1.6.9.0.0 Pro*C 1.6
Found direct-link candidates: libclntsh.sl
Oracle sysliblist: -lcl -lm
Found header files in rdbms/demo.
Warning: You may need to build using static linking. See the README file.
System: perl5.00404 hp-ux ness b.10.20 a 9000777 2011764956 two-user license
Compiler: cc -O +Onolimit -Ae
Linker: /usr/bin/ld
Linking with -lclntsh.
Warning: By default new modules are installed into your 'site_lib'
directories. Since site_lib directories come after the normal library
directories you must delete any old DBD::Oracle files and directories from
your 'privlib' and 'archlib' directories and their auto subdirectories.
Using DBD::Oracle 0.50.
Using DBI 0.93 installed in /opt/perl5/lib/site_perl/PA-RISC1.1/auto/DBI
Writing Makefile for DBD::Oracle
----------8<----------
looks fine (I think).
----------8<----------
make
cc -c -I/opt/oracle/rdbms/demo -I/opt/perl5/lib/site_perl/PA-RISC1.1/auto/DBI -Ae -O +Onolimit -DVERSION=\"0.50\" -DXS_VERSION=\"0.50\" +z -I/opt/perl5/lib/PA-RISC1.1/5.00404/CORE Oracle.c
cc -c -I/opt/oracle/rdbms/demo -I/opt/perl5/lib/site_perl/PA-RISC1.1/auto/DBI -Ae -O +Onolimit -DVERSION=\"0.50\" -DXS_VERSION=\"0.50\" +z -I/opt/perl5/lib/PA-RISC1.1/5.00404/CORE dbdimp.c
Running Mkbootstrap for DBD::Oracle ()
chmod 644 Oracle.bs
LD_RUN_PATH="/opt/oracle/lib:/usr/lib/pa1.1" ld -o blib/arch/auto/DBD/Oracle/Oracle.sl -b -s -a shared Oracle.o dbdimp.o -L/opt/oracle/lib -lclntsh -lcl -lm
chmod 755 blib/arch/auto/DBD/Oracle/Oracle.sl
cp Oracle.bs ./blib/arch/auto/DBD/Oracle/Oracle.bs
chmod 644 blib/arch/auto/DBD/Oracle/Oracle.bs
Manifying ./blib/man3/DBD::Oraperl.3
Manifying ./blib/man3/DBD::Oracle.3
----------8<----------
looks fine too (I think).
But now:
----------8<----------
make test
PERL_DL_NONLAZY=1 /opt/perl/bin/perl -I./blib/arch -I./blib/lib -I/opt/perl5/lib/PA-RISC1.1/5.00404 -I/opt/perl5/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
t/base............../usr/lib/dld.sl: Unresolved symbol: ocan (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: oflng (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: oerhms (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: orol (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: obndra (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: oopen (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: oparse (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: oexec (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: ofen (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: ologof (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: odefin (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: odescr (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: oexfet (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: ocof (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: ocom (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: ocon (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: oclose (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: orlon (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
install_driver(Oracle) failed: Can't load './blib/arch/auto/DBD/Oracle/Oracle.sl' for module DBD::Oracle: Not enough space at /opt/perl5/lib/PA-RISC1.1/5.00404/DynaLoader.pm line 166.
at (eval 1) line 2
DBI::install_driver('DBI', 'Oracle') called at t/base.t line 17
dubious
Test returned status 12 (wstat 3072, 0xc00)
DIED. FAILED tests 4-5
Failed 2/5 tests, 60.00% okay
t/general.........../usr/lib/dld.sl: Unresolved symbol: ocan (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: oflng (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
.....
/usr/lib/dld.sl: Unresolved symbol: orlon (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
install_driver(Oracle) failed: Can't load './blib/arch/auto/DBD/Oracle/Oracle.sl' for module DBD::Oracle: Not enough space at /opt/perl5/lib/PA-RISC1.1/5.00404/DynaLoader.pm line 166.
at (eval 1) line 2
DBI::install_driver('DBI', 'Oracle') called at /opt/perl5/lib/site_perl/DBI.pm line 348
DBI::connect('DBI', '', 'scott/tiger', '', 'Oracle') called at t/general.t line 19
dubious
Test returned status 12 (wstat 3072, 0xc00)
t/plsql............./usr/lib/dld.sl: Unresolved symbol: ocan (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: oflng (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
....
/usr/lib/dld.sl: Unresolved symbol: orlon (code) from ./blib/arch/auto/DBD/Oracle/Oracle.sl
install_driver(Oracle) failed: Can't load './blib/arch/auto/DBD/Oracle/Oracle.sl' for module DBD::Oracle: Not enough space at /opt/perl5/lib/PA-RISC1.1/5.00404/DynaLoader.pm line 166.
at (eval 1) line 2
DBI::install_driver('DBI', 'Oracle') called at /opt/perl5/lib/site_perl/DBI.pm line 348
DBI::connect('DBI', '', 'scott/tiger', '', 'Oracle') called at t/plsql.t line 19
dubious
Test returned status 12 (wstat 3072, 0xc00)
Failed Test Status Wstat Total Fail Failed List of failed
-------------------------------------------------------------------------------
t/base.t 12 3072 5 2 40.00% 4-5
t/general.t 12 3072 ?? ?? % ??
t/plsql.t 12 3072 ?? ?? % ??
Failed 3/3 test scripts, 0.00% okay. 2/5 subtests failed, 60.00% okay.
make: *** [test_dynamic] Error 2
----------8<----------
nm shows me this:
----------8<----------
nm /opt/oracle/lib/libclntsh.sl| grep ocan
ocan | 4645216|extern|code |$RESERVED$
----------8<----------
so I don't understand this errorcodes.
------------------------------
Date: Wed, 08 Jul 1998 14:31:03 +0200
From: Alexander Farber <eedalf@eed.ericsson.se>
Subject: question about inline editing
Message-Id: <35A36687.D3C29520@eed.ericsson.se>
Hi,
is it possible to find out when you finished processing
one file and starting another when using <> ? For example
if you'd like to enter letter # in the beginning of each
line after <BODY> in several *.html files:
undef $^I;
while (<>)
{
print '# ' if $body_found;
print;
$body_found = 1 if /<BODY>/;
$body_found = 0 if end_of_actual_file; # how ?
}
(Okay, i can check for </BODY>, but that's not the question.
And AFAIK $ARGV contains the name of actual file, but i wonder
if there's some other way).
Thank you
Alex
------------------------------
Date: 08 Jul 1998 13:48:28 +0100
From: Rob Hutchings <dlaser@ermine.ox.ac.uk>
Subject: Re: question about inline editing
Message-Id: <yk3iul8jyoz.fsf@ermine.ox.ac.uk>
Alexander Farber <eedalf@eed.ericsson.se> writes:
>
> Hi,
>
> is it possible to find out when you finished processing
> one file and starting another when using <> ? For example
(snipped)
Look up the eof function - Rob
------------------------------
Date: Wed, 8 Jul 1998 15:07:16 +0200
From: real@earthling.net (Real)
Subject: Re: question about inline editing
Message-Id: <MPG.100d8d73d4a866bc9896ae@news.surfnet.nl>
Alexander Farber wrote;
> Hi,
>
> is it possible to find out when you finished processing
> one file and starting another when using <> ? For example
> if you'd like to enter letter # in the beginning of each
> line after <BODY> in several *.html files:
>
> undef $^I;
>
> while (<>)
> {
> print '# ' if $body_found;
> print;
>
> $body_found = 1 if /<BODY>/;
>
> $body_found = 0 if end_of_actual_file; # how ?
> }
>
> (Okay, i can check for </BODY>, but that's not the question.
> And AFAIK $ARGV contains the name of actual file, but i wonder
^^^^^
|
What ? -+
> if there's some other way).
>
> Thank you
> Alex
Anyway, it should be possible using eof() but I couldn't get it to work
like it's suppose to do (according to the Perl references). A small
example;
# insert dashes just before last line of last file
while (<>) {
if (eof()) {
print "--------------\n";
}
print;
}
But, like I said, this doesn't work in my scripts. It might give you a
clue for what to do next.
Good luck,
Real
------------------------------
Date: Wed, 08 Jul 1998 08:33:42 -0500
From: Philip Snyder <prsnyder@bewley.net>
Subject: Strange file behavior...
Message-Id: <35A37536.CFE0140@bewley.net>
Hi. I've been working on a project for a while now and I am nearing
completion, however I have run into a rather big problem. Here's the
deal.
I've got a Linux RedHat 5.1 server with Perl 5.004_04, CGI.pm v2.4, and
Sprite.pm v3.21. Now, the client wants to be able to search a website
for his "label" for a specific product. No problem. The labels are going
to be .pdf files and can be downloaded and viewed by the client. No
problem. The maintainer will be using a web based front-end to add,
edit, and delete records from this database.
So, I've got the add functionality working out just great. The delete
script works wonderfully also. I've even got the database update working
fine. However, I can't seem to be able to upload a .pdf to overwrite the
old one. I've tried going through and using `rm $pdf_write/$file` (which
is how I delete them in the delete script) and I've tried to just open
them for writing (no append -> open (FILEHANDLE, ">$filename)). Still no
luck. I'm really stuck here and I'm trying to get perl to feed me some
info on the file via "-r $filename" and etc., but I must not be doing
that right either, 'cause its not working.
An example version of the site (not much changed cosmetically) is at:
http://www.bewley.net/~prsnyder/dow/admin.html
You can login with prsnyder/bethann.
If you are interested in seeing the code, let me know... I'll tar-gzip
it all up for you... Thanks for your help!!!
-Philip
prsnyder@bewley.net
If love is blind then blind I'll be, for I would much rather love than
see.
------------------------------
Date: 08 Jul 1998 14:53:00 +0300
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: syscall
Message-Id: <oeelnq4h84j.fsf@alpha.hut.fi>
Darren K Emge <emge@insulae.neurology.umab.edu> writes:
> Hello,
>
> I am trying to write a scipt to go through and perform some file
> maintenance. I am trying to use syscall but it does not appear to work.
> Here are some snippets from my scripts
>
> require 'sys/syscall.ph';
>
> $SYS_zip = "gzip -r";
>
> syscall $SYS_zip, $DIR;
>
> Any suggestions
I think you may have seriously misunderstood the meaning of "syscall".
It is not meant for calling external programs, it is meant for
indirect system calls, function calls directly to the operating ystem
kernel if you will (okay, a little bit of hand-waving there...)
But what you need is most probably one of the following:
system
qx also known as ``
exec
and of these for your particular example, system(), try "perldoc -f system",
system("gzip -r $DIR") should work just fine.
--
$jhi++; # http://www.iki.fi/~jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
------------------------------
Date: Wed, 08 Jul 1998 13:12:13 +0100
From: Richard Alan Quadling <richard@carval.co.uk>
Subject: Using Perl to generate HTML Pages.
Message-Id: <35A3621C.EAA4B201@carval.co.uk>
Hi.
I work for a computer company who have JUST started working with the
net.
I normally programme using a 4GL programming language and I work with
databases and I am happy with that sort of thing.
I have written a set of JavaScript functions which work to produce a
page for a catalogue and ordering system.
The problem I have is that the page can only be read using Netscape
3.03+ and IE4 (not sure on others). This is due to the way I have
handled the functions. I have put them in an external source file. This
allows me to maintain the scripts quicker and easier over the 100+
catalogue pages.
I was then thinking about doing all of this on the server instead.
What I would like to know is how to call a perl function which produces
plain text output which can be imbedded into a HTML page!
i.e.
<HTML>
<HEAD>
<TITLE>blah blah blah</TITLE>
<SCRIPT LANGUAGE="JavaScript" SRC="rowfunctions.js">
</HEAD>
<BODY stuff...>
Some boring text.
<SCRIPT><!--
InsertRow("Item Code","Item Description","Item Price")
InsertRow("Item Code","Item Description","Item Price")
InsertRow("Item Code","Item Description","Item Price")
InsertRow("Item Code","Item Description","Item Price")
// --></SCRIPT>
</BODY>
</HTML>
This is the sort of thing I am doing at the moment.
I would like to be able to do something like this, but have the server
produce the table instead!
Any ideas would be greatly appreciated.
If possible, could anyone replying to this, send email to me directly as
well as the group. I do not get access to the groups often enough,
though e-mail is polled every 30 minutes.
Thanks.
Richard Quadling.
------------------------------
Date: Wed, 8 Jul 1998 13:18:36 +0200
From: reinhard@easy-shopping.com (Reinhard Hoefler)
Subject: Wanted: msql/perl specialist for paid consultation
Message-Id: <MPG.100d73fa827b7b13989696@news.via.at>
Hello,
I am relatively new in this area and want to do a lot in this field in
the future. The most efficient way for me would be to have a specialist
that answers my questions very quickly by email.
I will pay for the consultation, please suggest a price!
Many thanks in advance,
Reinhard
------------------------------
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 3093
**************************************
