[7294] in Perl-Users-Digest
Perl-Users Digest, Issue: 919 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 25 15:17:20 1997
Date: Mon, 25 Aug 97 12:00:35 -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, 25 Aug 1997 Volume: 8 Number: 919
Today's topics:
Re: Can *anyone* explain details of socket autoflush??? (Greg Ward)
Re: date & time calculations <seay@absyss.fr>
Re: Die without diagnostics message (M.J.T. Guy)
Re: Does tie hash require an flock? <zenin@best.com>
Re: Easy Question: Dont Care. (Greg Ward)
Re: Easy Question: Dont Care. (Andrew M. Langmead)
Re: Hailp! Hailp! <cbarnett@idirect.com>
Re: Help on Final Exam (Perl class) <usenet-tag@qz.little-neck.ny.us>
HELP with cookies URGENT <temp.ed.vanderbush@bentley.com>
Re: HELP with cookies URGENT (Jeremy D. Zawodny)
Re: HELP with cookies URGENT <temp.ed.vanderbush@bentley.com>
HELP! WinNT/perl cgi newbie (Marty Blase)
Re: Help: Compiling Perl <mf@fishbone.ruhr.de>
Re: How do I drop trailing spaces? (Jeremy D. Zawodny)
Re: How do I drop trailing spaces? <tom@mitra.phys.uit.no>
Re: How to differentiate a string and an integer (Greg Ward)
Re: How to implement a settings file? (Jeremy D. Zawodny)
Re: Indexing Search Engine like Yahoo! <beyoder@raleigh.ibm.com>
Info needed: implementation of hash tables? (Edward Chen)
Re: logging source via cgi ??? <mf@fishbone.ruhr.de>
Looking for Crypt::CFB <chris@ixlabs.com>
Need help in installing Perl5 smeyyappan@pyrasol.com
New York City Programmers Wanted <jobs@mcny.com>
Re: Newbie 'exec' question <cbarnett@idirect.com>
Re: NT Perl Sources and problem <nathan@cyberservices.com>
Online Help for beginners in Perl <songtraveler@halcyon.com>
Parsing multiple arguments with Perl (James Sablatura)
Perl and document conversion to HTML <Michael_Drons@ins.com>
Re: Perl and document conversion to HTML <dodds@amsa.com>
Perl FAQ site has changed! <camerond@mail.uca.edu>
Perl/Tk Examples?? <mzk1@Ra.MsState.Edu>
Search/Grep through an array (Angel Leyva)
Re: Search/Grep through an array <jacksodp@dragon.ham.muohio.edu>
Re: Search/Grep through an array <bsugars@sunpub.com>
spell checking <dannyl@computize.com>
Web PG Generator <jhinds@nospamidir.net>
Re: Win32 Perl & UNC names - Problem? <cdumas@ibm.net>
Re: window.location...........? (Thaths)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Aug 1997 15:59:52 GMT
From: greg@bic.mni.mcgill.ca (Greg Ward)
Subject: Re: Can *anyone* explain details of socket autoflush???
Message-Id: <5tsa5o$3o@sifon.cc.mcgill.ca>
Anonymous (nobody@REPLAY.COM) wrote:
: The camel book says that setting $| to non-zero will
: force an fflush(3) after every write or print on
: _the_currently_selected_output_channel_.
Why, it's perfectly obvious! The currently selected output channel is
the output channel currently selected by 'select'. ;-)
OK, OK, so it's *not* perfectly obvious. You might want to read up on
the Perl builtin 'select'. Superficially, this lets you change the
output handle that 'print' prints to; it also applies to certain special
variables, most importantly $|.
You might also try using the IO::Handle module, which provides a
plain-text, context-independent way of controlling buffering (the
autoflush method). As another poster suggested: "man IO::Handle".
Greg
--
Greg Ward - Research Assistant greg@bic.mni.mcgill.ca
Brain Imaging Centre (WB201) http://www.bic.mni.mcgill.ca/~greg
Montreal Neurological Institute voice: (514) 398-4965 (or 1996)
Montreal, Quebec, Canada H3A 2B4 fax: (514) 398-8948
------------------------------
Date: Mon, 25 Aug 1997 17:15:31 +0200
From: Doug Seay <seay@absyss.fr>
Subject: Re: date & time calculations
Message-Id: <3401A193.382B6E0F@absyss.fr>
Chandra Kandiakounder wrote:
>
> Hi,
>
> Is there any perl library which is useful for date and time
> calculation. For example, like given a date the perl routines should
> be able to give date, which is 'x' number of days from the given date..
> I welcome any suggestions.
>
> -Chandrakanth
Which part of the docs did you not understand?
RTFM
perldoc -f time
perldoc -f localtime
perldoc -f gmtime
perldoc Time::Local
perldoc POSIX (* grep for time *)
I think that CPAN now has more time manipulation modules. Did you
understand the docs that came with them?
- doug
------------------------------
Date: 25 Aug 1997 18:35:13 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Die without diagnostics message
Message-Id: <5tsj91$nuc$1@lyra.csx.cam.ac.uk>
Vegard Bakke <vba@knoll.hibu.no> wrote:
>I really would like to use the diagnostics module in my scripts.
>Still, I'd like to 'die' without any additional diagnostics messages.
>
>Since I don't know whether the calling script has used diagnostics,
>'disable diagnostics' isn't the solution.
>
>Are there any good ways around this?
{ local $SIG{__DIE__};
die "quietly\n";
};
Mike Guy
------------------------------
Date: 25 Aug 1997 17:03:08 GMT
From: Zenin <zenin@best.com>
Subject: Re: Does tie hash require an flock?
Message-Id: <5tsdsc$a5t$2@nntp2.ba.best.com>
Robert Nicholson <steffi@shell8.ba.best.com> wrote:
> Is there an implicit flock at the time of an unbind?
Depends on how the tied classes is designed. Check the
docs for the one you're using. I don't think many (or any)
of the DBM classes shipped with perl flock anything by default.
> When does a tied hash sync with the disk? Only at time of unbind?
Most of the DBM tied classes write whenever you change some
part of the hash. -Change a value, delete a key, etc. This
is not always the case however...again, check the docs for
the class you're using.
See perldoc DB_File (if you've got it installed on your system)
for examples of flock()ing your databases. This is however
dependant on which DBM class you're using.
--
-Zenin
zenin@best.com
------------------------------
Date: 25 Aug 1997 15:54:58 GMT
From: greg@bic.mni.mcgill.ca (Greg Ward)
Subject: Re: Easy Question: Dont Care.
Message-Id: <5ts9si$3o@sifon.cc.mcgill.ca>
the Thief of Always (omard@blue.seas.upenn.edu) wrote:
> whats the dont care variable as in.
>
> ($wanted, ______I DONT GIVE A SHIT ___) = split (/&/,$_);
>
> ^^^^^^ This is what I'm looking for.
>
> yeah I know I can do it with just a /(/d*)#/;
> but I wanna do it the hard way. Obviously I cant
> look it up in a reference 'cause I dont know the name.
>
> So, I'ld appreciate it if you just took a second, winged some email
> my way and let me know what precisely is the name of the I-Dont-Care
> variable.
There isn't a "don't care" variable. However, if you read the
documentation for split and/or understood Perl a little better, you'd
discover that 1) you can give split a maximum number of items to split
from the string, and 2) assigning a 34-element array to a one-element
array means the last 33 elements are simply discarded. In this case,
providing a "limit" argument to split will probably be more efficient.
"man perlsub", or see p. 220 of *Programming Perl, 2nd ed.*
Incidentally, I doubt that too many Perl hackers are impressed by your
ability to swear on Usenet.
Greg
--
Greg Ward - Research Assistant greg@bic.mni.mcgill.ca
Brain Imaging Centre (WB201) http://www.bic.mni.mcgill.ca/~greg
Montreal Neurological Institute voice: (514) 398-4965 (or 1996)
Montreal, Quebec, Canada H3A 2B4 fax: (514) 398-8948
------------------------------
Date: Mon, 25 Aug 1997 17:39:18 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Easy Question: Dont Care.
Message-Id: <EFHD1I.DF6@world.std.com>
omard@blue.seas.upenn.edu (the Thief of Always) writes:
>whats the dont care variable as in.
You can assign to undef, which will essentially throw out the value
assigned to it. You can also take an slice of a list returned by a
function.
($wanted, undef, $wanted2) = split /&/, $_;
($wanted, $wanted2) = (split /&/, $_)[0,2];
You can also just set up variables that you assign to and never use.
use vars($idgas);
($wanted, $idgas, $wanted2) = split /&/, $_;
--
Andrew Langmead
------------------------------
Date: 25 Aug 97 13:06:25 GMT
From: "Carey Barnett" <cbarnett@idirect.com>
Subject: Re: Hailp! Hailp!
Message-Id: <01bcb160$5d095240$ed4388cf@default>
Well, Hiawatha,
I just went through Eric Johnson's Cross Platform book with no trouble,
except... Well, I'll get to that later.
5.000.001, or whatever, isn't the latest version. Go to
http://www.perl.com (home of perl), or http://www.perl.hip.com (home of
Win32 perl) and get the latest binaries. That's what I did, and I'm having
no problems at all.
Just so's you know I read your message:
1. On Windows95 make sure the location of your Perl binaries is in your
path. You do this by putting a 'path' command in your AUTOEXEC.BAT file.
In fact that's pretty much all you should have in your AUTOEXEC.BAT file
(PPA - Personal Philosophical Aside).
2. C:\> perl myfilenamehere
# myfilenamehere can be any filename with any extension, or not... your
choice. It's CONVENTION ONLY to use a '.pl' extension, or '.pm' for
modules.
3. Bear in mind that if you going to use Perl to write Web scripts you
need to know something about UNIX. Most of the machines your scripts will
be running on will be UNIX machines. On the other hand... You do need to
know what runs on your Windows machine, and what does not, so check out the
home site of the Win32 Perl for the differences. One of the HTML docs on
your CD should be a list of the features that don't work on Windows.
PPA (Again) My suggestion is to work through the book as best you can
(It's probably easier to read than the man pages), and then read the HTML
version of the man pages that're on your CD. They're much more complete
than any book, but they do grind on some... as do most UNIX man pages out
of necessity.
HTH (Hope This Helps)
Carey
------------------------------
Date: 25 Aug 1997 16:30:20 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: Re: Help on Final Exam (Perl class)
Message-Id: <eli$9708251222@qz.little-neck.ny.us>
Mike Elliott <mre@emerald.compata.com> wrote:
> I'm going to be teaching a ten-week Programming in Perl class next
> year, and I'd like to make the Final Exam a Perl project. As this is
> University Extension, I can't expect more than perhaps 30 to 40 total
> hours (per student) expended on it spread out over the quarter.
>
> What I'm looking for are suggestions as to what the problem should be.
A program that compares the source code between two programs to see
if they have a probably common ancestor. This means checking for
variable and subroutine name changes, simple expression swapping,
whitespace and comment placement, obscure settings used, etc.
Not too hard to start but plenty of room for difficult heuristics.
Elijah
------
has been working on fast ways detect duplicate email
------------------------------
Date: Mon, 25 Aug 1997 11:29:08 -0400
From: Ed Vander Bush <temp.ed.vanderbush@bentley.com>
Subject: HELP with cookies URGENT
Message-Id: <3401A4C4.3384@bentley.com>
I am trying to set a cookie that will conatain 1 value and I need the
EXACT syntax ASAP. I ahve treid everything and the program keeps
crashing. please help. ED
------------------------------
Date: Mon, 25 Aug 1997 16:04:11 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: HELP with cookies URGENT
Message-Id: <3401ac9e.4843875@igate.hst.moc.com>
[cc'd automagically to original author]
On Mon, 25 Aug 1997 11:29:08 -0400, Ed Vander Bush
<temp.ed.vanderbush@bentley.com> wrote:
>I am trying to set a cookie that will conatain 1 value and I need the
>EXACT syntax ASAP.
Then hurry to a CGI/Web related newsgroup and ask there.
If you are planning to use Perl to accomplish this, pick up CGI.pm
from your local CPAN site. It does that sort of work for you, and the
EXACT syntax is documented.
>I ahve treid everything
Really?
>and the program keeps crashing. please help. ED
How? What errors does it generate? What's your code look like?
You haven't given us a lot to go on here...
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Mon, 25 Aug 1997 12:12:29 -0400
From: Ed Vander Bush <temp.ed.vanderbush@bentley.com>
Subject: Re: HELP with cookies URGENT
Message-Id: <3401AEED.4518@bentley.com>
Jeremy D. Zawodny wrote:
>
> [cc'd automagically to original author]
>
> On Mon, 25 Aug 1997 11:29:08 -0400, Ed Vander Bush
> <temp.ed.vanderbush@bentley.com> wrote:
>
> >I am trying to set a cookie that will conatain 1 value and I need the
> >EXACT syntax ASAP.
>
> Then hurry to a CGI/Web related newsgroup and ask there.
>
> If you are planning to use Perl to accomplish this, pick up CGI.pm
> from your local CPAN site. It does that sort of work for you, and the
> EXACT syntax is documented.
>
> >I ahve treid everything
>
> Really?
>
> >and the program keeps crashing. please help. ED
>
> How? What errors does it generate? What's your code look like?
>
> You haven't given us a lot to go on here...
>
> Jeremy
> --
> Jeremy Zawodny
> Internet Technology Group
> Information Technology Services
> Marathon Oil Company, Findlay Ohio
>
> http://www.marathon.com/
>
> Unless explicitly stated, these are my opinions only--not those of my employer.
I have been using both cgi.pm and cookie.lib. Everytime I close my
browser the cookie is deleted and I am setting a date. ..
------------------------------
Date: Mon, 25 Aug 1997 13:50:11 +0000
From: mblase@ncsa.uiuc.edu (Marty Blase)
Subject: HELP! WinNT/perl cgi newbie
Message-Id: <mblase-2508971350110001@mblase.ncsa.uiuc.edu>
I've been asked to work up a CGI form handler that processes submitted
data, sorts it, appends it to a tab-delimited text file, and emails the
results to a specific individual. Simple enough, except that I've always
done this under UNIX before and I need to work it on a Microsoft IIS
server running under WinNT.
>From what I understand, perl should pretty much behave the same way as
under UNIX. What I need to know is the significant differences:
- what do filenames look like? (Just C:\dir\dir\file.txt, right?)
- what's the NT equivalent of sendmail, and how to I call it?
- what do I put at the top instead of #!/usr/local/bin/perl ?
Please email any advice you might have to mblase@ncsa.uiuc.edu. Many
thanks in advance --
Marty Blase
WebMaster Group, NCSA
mblase@ncsa.uiuc.edu
------------------------------
Date: 25 Aug 1997 17:59:44 +0200
From: Martin Fischer <mf@fishbone.ruhr.de>
Subject: Re: Help: Compiling Perl
Message-Id: <5tsa5g$fih$1@fishbone.ruhr.de>
Arthur Merar <amerar@unsu.com> wrote:
>Is there a way to compile a perl program in order to check the syntax???
Are you looking for 'perl -c file'?
Also take a look into the manpages.
ciao
Martin
--
Martin Fischer <mf@fishbone.ruhr.de> -------------------
<Martin.Fischer@fh-bochum.de> | Comp Sci Student
PGP key available at: http://localhost.ruhr.de/~martin | FH-Bochum, Germany
Unsolicited commercial e-mail will be proof-read for $199/hr.
------------------------------
Date: Mon, 25 Aug 1997 15:55:48 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: How do I drop trailing spaces?
Message-Id: <3401aaf6.4420336@igate.hst.moc.com>
[cc'd automagically to original author]
On 25 Aug 1997 11:37:57 +0200, robert@ICK.il.fontys.nl (robert) wrote:
>bernard510@hotmail.com:
> >How can I replace the contents of $name with the text string without the
> >trailing spaces?
>
>How about:
>$name =~ s/\s*$//;
Or chomp($name);
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: 25 Aug 1997 18:55:37 +0200
From: Tom Grydeland <tom@mitra.phys.uit.no>
Subject: Re: How do I drop trailing spaces?
Message-Id: <nqoafi6xkvq.fsf@mitra.phys.uit.no>
> > bernard510@hotmail.com asked:
> > > How can I replace the contents of $name with the text string without the
> > > trailing spaces?
> robert@ICK.il.fontys.nl (robert) answered:
> >How about:
> >$name =~ s/\s*$//;
zawodny@hou.moc.com (Jeremy D. Zawodny) appended:
> Or chomp($name);
No. That will only strip $/ off $name if present. To use chomp for
the requested purpose, you'll need something like
$/ = " ";
1 while chomp $name;
Which, IMHO is inferior to $name =~ s/\s+$//;
(Yes, I changed * to + on purpose)
Benchmarking will give the answer:
% cat bench
#!/store/bin/perl -w
use Benchmark;
$/ = " ";
$count = shift;
$spname = "name with spaces" . ' ' x $count;
timethese (50000, {
'chomp' => q {
$name = $spname;
1 while chomp $name;
},
's///' => q {
$name = $spname;
$name =~ s/\s+$//;
}
});
With two trailing spaces on each line we get
% perl bench 2
Name "main::spname" used only once: possible typo at bench line 8.
Benchmark: timing 50000 iterations of chomp, s///...
chomp: 2 secs ( 1.07 usr 0.02 sys = 1.08 cpu)
s///: 2 secs ( 0.97 usr 0.02 sys = 0.98 cpu)
That seems fairly similar.
However, with 52 trailing spaces, the results are:
Benchmark: timing 50000 iterations of chomp, s///...
chomp: 18 secs ( 7.45 usr 0.12 sys = 7.57 cpu)
s///: 3 secs ( 1.13 usr 0.02 sys = 1.15 cpu)
Of course, if you want to keep the global $/, you'll need a
surrounding block and a local, shifting the scales even more towards
s///:
% perl bench 2
Name "main::spname" used only once: possible typo at bench line 7.
Benchmark: timing 50000 iterations of chomp, s///...
chomp: 8 secs ( 3.87 usr 0.05 sys = 3.92 cpu)
s///: 3 secs ( 1.05 usr -0.00 sys = 1.05 cpu)
I rest my case.
> Jeremy Zawodny
--
//Tom Grydeland <Tom.Grydeland@phys.uit.no>
------------------------------
Date: 25 Aug 1997 16:05:15 GMT
From: greg@bic.mni.mcgill.ca (Greg Ward)
Subject: Re: How to differentiate a string and an integer
Message-Id: <5tsafr$3o@sifon.cc.mcgill.ca>
Marius Kjeldahl (marius@funcom.com) wrote:
: Does anybody know how this can be done in perl _without_ the script
: emitting -w noises? I have tried the method described in man perldata,
: but it _does_ emit warnings (as said in man perldata). I need to make
: sure that two scalars integers, so I can use the '==' test further
: down in my script.
Tom Christiansen has written up an informative article on this. You can
find it at:
http://www.perl.com/CPAN/doc/FMTEYEWTK/is_numeric.html
Greg
--
Greg Ward - Research Assistant greg@bic.mni.mcgill.ca
Brain Imaging Centre (WB201) http://www.bic.mni.mcgill.ca/~greg
Montreal Neurological Institute voice: (514) 398-4965 (or 1996)
Montreal, Quebec, Canada H3A 2B4 fax: (514) 398-8948
------------------------------
Date: Mon, 25 Aug 1997 16:00:53 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: How to implement a settings file?
Message-Id: <3401ac08.4693759@igate.hst.moc.com>
[cc'd automagically to original author]
On Mon, 25 Aug 1997 12:35:40 +0200, uzs90z@uni-bonn.de (Michael
Schuerig) wrote:
>I want to move the configurable settings of a script to a separate file,
>but can't sort out how to do it. I played around with require and
>Exporter, without success, though.
There are some useful modules on CPAN for this:
http://perl-com.songline.com/CPAN-local//CPAN.html#option
As usual, CPAN is your friend. :-)
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Mon, 25 Aug 1997 13:46:32 -0400
From: Brian Yoder <beyoder@raleigh.ibm.com>
Subject: Re: Indexing Search Engine like Yahoo!
Message-Id: <3401C4F8.3305@raleigh.ibm.com>
Peter Douglas wrote:
>
> Hi,
>
> I really need help... I need to know how to make a indexing search engine
> as soon as possible... similar to yahoo! Preferably... I would appreciate
> it if someone could give me code for such a script.
This isn't a Perl solution, but you might try the AltaVista
personal search engine at:
http://palomar.altavista-software.com/vcdownload/vcpromo1download.asp
It's free for a 30-day eval period, and $35 or so after that.
I've never used it, but it looks interesting.
--
Brian Yoder
------------------------------
Date: 25 Aug 1997 17:18:22 GMT
From: etchen@bnr.ca (Edward Chen)
Subject: Info needed: implementation of hash tables?
Message-Id: <5tseou$djh@bcarh8ab.bnr.ca>
I am just curious about how hash tables are implemented in Perl.
--
--------------
Edward Chen
ESN 39+56439
------------------------------
Date: 25 Aug 1997 18:13:51 +0200
From: Martin Fischer <mf@fishbone.ruhr.de>
Subject: Re: logging source via cgi ???
Message-Id: <5tsavv$fk8$1@fishbone.ruhr.de>
David J. Thomas <thomasdj@wam.umd.edu> wrote:
>I need to simply log the url of each page to a logfile at my internal
>web.
...
>I almost have it...
>Only problem is... the cgi-script has to return a page. I don't want to
>return anything.
>I simply want to append a log. I have the following code done.
> print "Location:http://www.something.com/cgi-bin/data.txt\n\n";
Just do this:
print "Status: 204 No Content\n\n";
meaning there's nothing to display.
ciao
Martin
--
Martin Fischer <mf@fishbone.ruhr.de> -------------------
<Martin.Fischer@fh-bochum.de> | Comp Sci Student
PGP key available at: http://localhost.ruhr.de/~martin | FH-Bochum, Germany
Unsolicited commercial e-mail will be proof-read for $199/hr.
------------------------------
Date: Mon, 25 Aug 1997 11:14:13 -0700
From: Chris Schoenfeld <chris@ixlabs.com>
Subject: Looking for Crypt::CFB
Message-Id: <3401CB75.6627@ixlabs.com>
I can't find this on my local CPAN - anyone know it's whereabouts, or
even if it exists?
------------------------------
Date: Mon, 25 Aug 1997 13:51:53 -0600
From: smeyyappan@pyrasol.com
Subject: Need help in installing Perl5
Message-Id: <872534361.9539@dejanews.com>
I am trying to install Perl5 in hpux. The make test is failing in
io_sock.t saying
Connection refused at lib/io_sock.t Line 55.
Can you tell me what is going on?
Here is the result of the myconfig script
Summary of my perl5 (5.0 patchlevel 4 subversion 0) configuration:
Platform:
osname=hpux, osvers=9, archname=PA-RISC1.1
uname='hp-ux dlmhost2 a.09.01 a 9000735 2011020807 two-user
license '
hint=recommended, useposix=true, d_sigaction=define
bincompat3=y useperlio=undef d_sfio=undef
Compiler:
cc='cc', optimize='-O', gccversion=
cppflags='-D_HPUX_SOURCE -Aa -I/usr/local/include'
ccflags ='-D_HPUX_SOURCE -Aa -I/usr/local/include'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
voidflags=15, castflags=0, d_casti32=define, d_castneg=define
intsize=4, alignbytes=8, usemymalloc=y, randbits=15
Linker and Libraries:
ld='ld', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib/pa1.1 /lib /usr/lib
libs=-lnet -lndbm -ldld -lm -lc -lndir -lcrypt
libc=/lib/libc.sl, so=sl
useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E
-Wl,-B,deferred '
cccdlflags='+z', lddlflags='-b -L/usr/local/lib'
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Mon, 25 Aug 1997 13:54:00 -0400
From: "Media Connection of New York, Inc. - Jobs" <jobs@mcny.com>
Subject: New York City Programmers Wanted
Message-Id: <3401C6B8.27E1@mcny.com>
Wanted: (This is not from a recruiter, but from the company itself)
Web Programmer / Internet Application Developers
Media Connection of New York (MCNY) is a New York City based,
state-of-the art
Internet development company which was founded in 1994. MCNY
provides medium size
to large companies turnkey online solutions. Some of our clients
include IBM, Price
Waterhouse, and the Equitable to name a few. We are constantly
implementing emerging technologies and have one recognition
for several of our projects. We are currently looking to hire
several web programmers/ Internet application developers.
This full-time inhouse position (no telecommuting) entails being
responsible for developing Web technologies and Internet-related
software. The ideal candidate has programming experience with a
strong knowledge of Perl, JAVA/Javascript, CGI, UNIX, Web-based
databases, mSQL, and C/C++. Must be creative, solution oriented, a
team player and able to work on many projects simultaneously.
Applicants should fax or E-mail ASCII resumes and salary
requirements. While we are
proud to be an equal opportunity employer, we can not offer any
sort of sponsorship at this time. NO RECRUITERS PLEASE!!!
Please indicate salary requirements along with your resume.
Resumes sent electronically, should be in ASCII format and can be
sent to jobs@mcny.com or faxed to 212-686-3856.
------------------------------
Date: 25 Aug 97 13:13:58 GMT
From: "Carey Barnett" <cbarnett@idirect.com>
Subject: Re: Newbie 'exec' question
Message-Id: <01bcb161$6baee7a0$ed4388cf@default>
I hope I'm close here, Claude... goto :BOTTOM
Claude Montpetit <claude@macadamian.com> wrote in article
<33FCFB01.CA72720@macadamian.com>...
> Do I need to do something special in the perl script for this output to
> be redirected to a browser? The browser does not receive it. Here is my
> perl code invoking my application:
>
> exec 'c:\java MyApp';
>
> This perl script is loaded thru CGI and the this application outputs to
> screen the HTML code.
:BOTTOM
system 'c:\java MyApp > OutFile.html';
exec 'MyBrowser OutFile.html';
__END__
On the other hand, this isn't very Perlish. You could do exactly the same
with any kind of shell or batch file. Or do I misunderstand the question?
Carey
------------------------------
Date: Mon, 25 Aug 1997 12:43:58 -0500
From: Nathan Stanford <nathan@cyberservices.com>
To: Kitty Smith <smith@twsuvm.uc.twsu.edu>
Subject: Re: NT Perl Sources and problem
Message-Id: <3401C45D.4BC47135@cyberservices.com>
There is a way if you want it for the Intranet but not on the
Internet... email me.
Kitty Smith wrote:
> I am looking for NT Perl sources on the Web. In particular, I am
> looking for some way to determine the username of the person accessing
>
> the page, as opposed to their IP address. Is this possible? There
> are all kinds of ENV variables for the server, but I didn't see
> anything for the client apart from their IP.
>
> Thanks for any help you can provide.
>
> Kitty Smith
--
____________________________________________________________________
I. N.A.G. - International Network Answers Group
Join today and when you need an answer it will be easier to find
email Nathan Stanford at nathan@cyberservices.com
____________________________________________________________________
Nathan Stanford E-Mail: nathan@cyberservices.com
NetWare 3.X/4.X Windows NT/95/3.X Lan/Wan Engineer
My Web Page http://users.why.net/nathans/
____________________________________________________________________
------------------------------
Date: Mon, 25 Aug 1997 09:27:22 -0700
From: Song <songtraveler@halcyon.com>
Subject: Online Help for beginners in Perl
Message-Id: <3401B26A.1229F800@halcyon.com>
Hello,
I wonder if there is an in-depth web page for beginners in Perl to
learn it and then be able to apply it to their web page. Please cc: your
response to sleigh@halcyon.com.
Song
------------------------------
Date: Mon, 25 Aug 1997 18:47:28 GMT
From: NOSPAMjsab@insync.net (James Sablatura)
Subject: Parsing multiple arguments with Perl
Message-Id: <3401d33d.7855808@news.insync.net>
Hi all,
Would someone be so kind as to let me know how I can pass multiple
arguments to a perl script.
I have done one argument successfully by doing:
http://wwww.domain.com/cgi-bin/script.cgi?arg1
and arg1 is stored in argv[0], but how can I pass multiple arguments
so that I can access them like argv[1] or argv[2]?
Thanks, and if you reply via e-mail please take the NOSPAM out of my
e-mail address.
Rgds,
James
------------------------------
Date: Mon, 25 Aug 1997 11:17:29 -0400
From: Mike Drons <Michael_Drons@ins.com>
Subject: Perl and document conversion to HTML
Message-Id: <3401A209.310C@ins.com>
I am need to upload a word document to IIS 3.0 and then have perl
convert that document to HTML. Has anybody done this?? I have found an
ISASP filter (CVTDOC) on microsoft.com but I can't get it to work.
Please help me..
Mike Drons
michael_drons@ins.com
------------------------------
Date: Mon, 25 Aug 1997 09:30:32 -0700
From: "Jonathan Dodds" <dodds@amsa.com>
Subject: Re: Perl and document conversion to HTML
Message-Id: <01bcb174$b5526590$479282cc@greenbush>
If this is a one time conversion use the Internet assistant for Word.
I'm not familiar with CVTDOC so I can't help you specifically with that.
The file format for Word documents is proprietary. Microsoft does not
publish it. It also tends to change with each new version of Word.
Using perl to parse and convert Word documents implies reverse engineering
the Word file format. Not an easy task.
I would suggest you stick to Microsoft supplied tools.
Mike Drons <Michael_Drons@ins.com> wrote in article
<3401A209.310C@ins.com>...
> I am need to upload a word document to IIS 3.0 and then have perl
> convert that document to HTML. Has anybody done this?? I have found an
> ISASP filter (CVTDOC) on microsoft.com but I can't get it to work.
> Please help me..
>
> Mike Drons
> michael_drons@ins.com
>
>
------------------------------
Date: Mon, 25 Aug 1997 11:25:14 -0500
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Perl FAQ site has changed!
Message-Id: <3401B1E8.8E946FF@mail.uca.edu>
Several people have referred newbies (like myself) to
http://www.perl.com/faq or /idiots-guide to answer their questions.
Unfortunately, this URL no longer exists (at least according to my
machine), and there is no redirection from the page. The new URL for the
Perl FAQ is:
http://language.perl.com/faq
Now, having actually given information in my first post here, some of
you old-timers please give me some slack when I ask my first really dumb
question.
Cameron Dorey
camerond@mail.uca.edu
------------------------------
Date: Mon, 25 Aug 1997 12:46:40 -0500
From: "Masoud Z. Khan" <mzk1@Ra.MsState.Edu>
Subject: Perl/Tk Examples??
Message-Id: <Pine.SOL.3.96.970825124221.28751A-100000@Ra.MsState.Edu>
Hi !!
Can some one please tell me who can I use Perl/tk tograther...
Like I have created a tk program with the GUI how can I combine
them...
Q:Should I be calling Tk from Perl program or vis versa?
An exapmle would be very nice.
Are there any examples on web if so please do tell me.
Thanking you in advance.
Regards,
---Masoud
*****************************************************************************
*****************************************************************************
**** Name : Masoud Zia Khan Dept : Computer Engineering (?) ****
**** Email : mzk1@msstate.edu ****
**** WWW : http://www.ee.msstate.edu/~mzk1/Masoud ****
**** " Winners Never Quit... Quitters Never Win...." ****
*****************************************************************************
*****************************************************************************
------------------------------
Date: Mon, 25 Aug 1997 08:56:02 -0400
From: angel_leyva@prenhall.com (Angel Leyva)
Subject: Search/Grep through an array
Message-Id: <3402801c.2371670@news.prenhall.com>
I have a script that is building an array of already processed files.
I now have a new list of files to processes. I want to take the filename
read from the new list, and compare/check/grep/search through an array
created by reading the already done list.
Following is now actual code, only conceptual processing
-------------------------------------------------------
open ("DONELIST",'/home/walter/donefiles.txt')
@donelist = (<DONELIST>);
close (DONELIST);
open ("NEWLIST",'/home/walter/newlist.txt');
@newlist = (<NEWLIST>);
close (NEWLIST);
foreach $listitem (@newlist) {
$filename = split (/\t/,$listitem);
# Here is where I want to compre the filename against
# the list @donelist. If the filename is found within
# the list, then I want to simply skip that $listitem,
# otherwise, I want to process it.
}
-------------------------------------------------------
---
Angel Leyva
(angel_leyva@prenhall.com)
------------------------------
Date: 25 Aug 97 11:39:51 -0500
From: Dane P. Jackson <jacksodp@dragon.ham.muohio.edu>
Subject: Re: Search/Grep through an array
Message-Id: <1997Aug25.113951.6120@nntp.muohio.edu>
Simply push all your @donelist filenames into a hash,
then check to see if a filename is defined as a key.
This is a very simple way to do it. I admit up front
it's probably a memory hogging slow way to do it. However it
is amazingly simple.
Angel Leyva <angel_leyva@prenhall.com> wrote:
> open ("DONELIST",'/home/walter/donefiles.txt')
> @donelist = (<DONELIST>);
> close (DONELIST);
> open ("NEWLIST",'/home/walter/newlist.txt');
> @newlist = (<NEWLIST>);
> close (NEWLIST);
foreach $item (@donelist){
$filename = split /\t/,$item;
$ExistHash{$filename} = 1;
}
> foreach $listitem (@newlist) {
> $filename = split (/\t/,$listitem);
if (defined($ExistHash{$filename})){
#these are the files that are in @donelist
}
else {
#these are new files
}
}
Hope it helps.
--
Dane Jackson - jacksodp@dragon.ham.muohio.edu
Better Living Through Methylisothiazolinone
------------------------------
Date: Mon, 25 Aug 1997 13:17:21 -0400
From: Benjamin Sugars <bsugars@sunpub.com>
Subject: Re: Search/Grep through an array
Message-Id: <3401BE21.5681@sunpub.com>
Angel Leyva wrote:
>
> I have a script that is building an array of already processed files.
>
> I now have a new list of files to processes. I want to take the filename
> read from the new list, and compare/check/grep/search through an array
> created by reading the already done list.
>
> Following is now actual code, only conceptual processing
> -------------------------------------------------------
> open ("DONELIST",'/home/walter/donefiles.txt')
> @donelist = (<DONELIST>);
> close (DONELIST);
You're much better off putting the DONELIST into a hash rather than an
array:
while ($file = <DONELIST>) {
chomp $file;
$donelist{$file}++;
}
> open ("NEWLIST",'/home/walter/newlist.txt');
> @newlist = (<NEWLIST>);
> close (NEWLIST);
>
> foreach $listitem (@newlist) {
> $filename = split (/\t/,$listitem);
Since the DONELIST is now in a hash, something like this will work:
foreach $listitem (@newlist) {
($filename) = split (/\t/,$listitem);
next if defined $donelist{$file};
...
}
(I also put the split into a list context which is what I think
you mean to do.)
-Ben
--
Ben Sugars <bsugars@canoe.ca>
Senior Webmaster,
CANOE Canadian Online Explorer,
http://www.canoe.ca/
------------------------------
Date: Mon, 25 Aug 1997 13:17:57 -0500
From: Danny LaPrade <dannyl@computize.com>
Subject: spell checking
Message-Id: <3401CC55.305D@computize.com>
Is there a way to somehow use perl to do spell checking?
or link or use an existing spell checker?
--
--------------------------------------------------------------
-- Danny LaPrade
-- Advertising - Web Development
-- 1030 Wirt Road #400
-- Houston, Texas 77055-6849
-- 713.957.0057
-- 713.613.4812 Fax
--
-- http://www.computize.com/
--------------------------------------------------------------
"Hold on to your dreams while pulling
through the present. "
------------------------------
Date: Mon, 25 Aug 1997 13:20:23 -0500
From: Jeff Hinds <jhinds@nospamidir.net>
Subject: Web PG Generator
Message-Id: <3401CCE7.431@nospamidir.net>
Has anyone built or run accross a CGI/PERL Instant Web Page Generator?
Please let me know of any or anyone who can create one.
Thank You
Jeff Hinds
------------------------------
Date: Mon, 25 Aug 1997 17:30:24 GMT
From: Chris Dumas <cdumas@ibm.net>
To: Clem Dye <clem@bastet.dircon.co.uk>
Subject: Re: Win32 Perl & UNC names - Problem?
Message-Id: <3401C130.EF60EA1F@ibm.net>
I also had problems with UNC names in both the activeware version and
Perl 5.004. UNC names worked much more reliably when I used "/" instead
of "\". It makes the code much easier to read as well.
chris
Clem Dye wrote:
> My apologies in advance if this issue has been aired before, but I
> wonder if
> someone could offer a Win32 Perl newbie a little assistance?
>
> I've recently prepared a Win32 Perl script (release 5.001m) which
> undertakes
> the following basic functions:
>
> 1) Accepts input from $ARGV[0], which is assumed to be a directory
> name.
> 2) Checks to see if the directory applied in (1) exists.
> 3) Does some processing, if the check in step (2) passes.
>
> If I execute the script in the format: PERL script.pl c:\temp (for
> example)
> the script executes as expected. However, if I execute the script in
> the
> format PERL script.pl \\<servername>\<sharename>, the test for
> directory
> existence in step (2) fails. (A straight DIR
> \\<servername>\<sharename>
> works fine.)
>
> The share (on a Windows NT server) has a Full Control permission for
> the
> Everyone group, both at a share and directory level, and is configured
> as a
> NullSession share, to permit LocalSystem built-in account access
> across the
> wire.
>
> The problem is, as far as I can tell, an issue regarding share
> access/behaviour. If, as an Administrator (local workstation and
> domain) I
> execute the script in the format: PERL script.pl
> \\<servername>\c$\<directoryname>, everything is OK (ie: file access).
>
> Can anyone shred any light on how I might use Perl to access an NT
> share
> _without_ mapping a drive?
>
> Any help would be greatly appreciated.
>
> TIA
>
> Clem
------------------------------
Date: 25 Aug 1997 17:51:17 GMT
From: thaths@nospam.com (Thaths)
To: John Devlin <devli002@gold.tc.umn.edu>
Subject: Re: window.location...........?
Message-Id: <5tsgml$opg1@pixie.mcom.com>
[Posted and mailed]
In article <33F87C8E.6C74@gold.tc.umn.edu>,
John Devlin <devli002@gold.tc.umn.edu> writes:
> Senerio: I have a page (page1) that calls another page (page2). When
> page2 is loaded, javascript is executed displaying a confirmation
> messagebox. In the javascript, if the user selects ok, I set the
> window.location to a specific location. If not, I set window.location
> to different location.
>
> Problem: In Win3.1 using Netscape 3.0, this works fine. I am having a
> problem when trying to run this using Netscape 3.0 on WinNT. When the
> OK or Cancel buttons are pressed, the browser acts as if it was trying
> to load a page but doesn't. The browser seems to be waiting for another
> user event when the ok or cancel button is pressed before executing the
> window.location. If I click once on the cancel or ok button, and then
> press the keyboard or click anywhere on the screen, the window.location
> works fine. I found that if I double click on the buttons, everything
> executes wonderfully. Any idea what is going on?
John,
What the #$@#$#@$ does this have to do with perl. Please enlighten me as
to *why* you posted this to comp.lang.perl.misc? A little netiquette goes
a long way in getting your questions answered.
I will email you seperately the answer to your question. Don't want to
post unrelated answers in clpm.
Thaths
--
"He who laughs last gets dirty stares."
http://people.netscape.com/thaths/
%remove_this%thaths@netscape.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 919
*************************************
