[13667] in Perl-Users-Digest
Perl-Users Digest, Issue: 1077 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 15 15:52:36 1999
Date: Fri, 15 Oct 1999 12:52:23 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <940017142-v9-i1077@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 15 Oct 1999 Volume: 9 Number: 1077
Today's topics:
Read on closed filehandle ?? <l463520@lmtas.lmco.com>
Re: Read on closed filehandle ?? (Martien Verbruggen)
Re: Read on closed filehandle ?? <ltl@rgsun40.viasystems.com>
Re: Read on closed filehandle ?? (Tad McClellan)
References to a list <ftidev@fhb.clickcharge.com>
Re: References to a list <dan@tuatha.sidhe.org>
Re: References to a list (Andrew Johnson)
regsetsecurity query for perl32 <asdf@clkj.com>
Re: Remote Document Timestamps Continued... <alligator333@my-deja.com>
Re: Remote Document Timestamps Continued... <flavell@mail.cern.ch>
Scraping data from a Web Site <pradeep.kalyan@nwa.com>
Re: Scraping data from a Web Site <makkulka@cisco.com>
Re: search engine!! (Abigail)
Seeking PERL employment <charles.zezulak@worldnet.att.net>
Seeking Perl scripts for preparing book index (Carey Bunks)
Re: Seeking Perl scripts for preparing book index (Martien Verbruggen)
Re: Seeking Perl scripts for preparing book index <rootbeer@redcat.com>
Re: Seeking Perl scripts for preparing book index (Abigail)
Re: Seeking Perl scripts for preparing book index <sjohns17@uic.edu>
Re: Seeking Perl scripts for preparing book index (Martien Verbruggen)
Re: Seeking Perl scripts for preparing book index (Abigail)
Re: Seeking Perl scripts for preparing book index <flavell@mail.cern.ch>
Re: Seeking Perl scripts for preparing book index (Martien Verbruggen)
Re: Sending mail with Perl? <ewas@dds.nl>
Re: Sending mail with Perl? <ewas@dds.nl>
Server Push! <bkovac@gmx.net>
Server Side Fonts <moyerfamily@kscable.com>
Re: setting passwords <gyl@unforgettable.com>
Setuid script using Net::FTP <l.e.kolden@hfstud.uio.no>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 14 Oct 1999 15:47:21 -0500
From: Michael Hill <l463520@lmtas.lmco.com>
Subject: Read on closed filehandle ??
Message-Id: <38064159.5A888439@lmtas.lmco.com>
When my perl script executes:
# The file being checked
$file = "my.txt";
$selected = "$filebase/$file";
use FileHandle;
$fh = new FileHandle "> $selected";
if (defined $fh)
{
$fh->close;
$Pgm1 = "/disk06/home/hillmw/public_html/cgi-bin/invdel.pl";
system ($Pgm1);
$Pgm2 = "/disk06/home/hillmw/public_html/cgi-bin/invins.pl";
system ($Pgm2);
unlink ("$selected");
}
else
{
print "does not exist";
}
I get the error message
"Bad free() ignored during global destruction.
Read on closed filehandle <INF> at
/disk06/home/hillmw/public_html/cgi-bin/invins.pl line 11.
Excerpt from invins.pl :
<snip>
$datafile = "my.txt";
open(INF,$datafile);
@mydata = <INF>;
close(INF);
# do some stuff with the conents of the file
<snip>
Is this a warning or an error message? Can I change my script to prevent
it.
Mike
------------------------------
Date: Thu, 14 Oct 1999 23:48:38 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Read on closed filehandle ??
Message-Id: <qZtN3.99$Kd.2786@nsw.nnrp.telstra.net>
On Thu, 14 Oct 1999 15:47:21 -0500,
Michael Hill <l463520@lmtas.lmco.com> wrote:
> When my perl script executes:
>
> # The file being checked
> $file = "my.txt";
> $selected = "$filebase/$file";
> use FileHandle;
> $fh = new FileHandle "> $selected";
Here you open the file, and when it succeeds...
> if (defined $fh)
> {
> $fh->close;
You immediately close it again? Odd logic
> I get the error message
>
> "Bad free() ignored during global destruction.
> Read on closed filehandle <INF> at
> /disk06/home/hillmw/public_html/cgi-bin/invins.pl line 11.
Have you tried to see what perldiag has to say about these?
# perldoc perldiag
[snip]
Bad free() ignored
(S) An internal routine called free() on something that
had never been malloc()ed in the first place. Mandatory,
but can be disabled by setting environment variable
PERL_BADFREE to 1.
[snip]
Read on closed filehandle <%s>
(W) The filehandle you're reading from got itself closed
sometime before now. Check your logic flow.
[snip]
> $datafile = "my.txt";
>
> open(INF,$datafile);
Aha. You are _not_ checking the return of this. How do you know it
succeeded? And even though you don't know whether it succeeded, you
still read from it.
Won't work.
Why don't you use the same sort of stuff as in the main program? You
do it right there, although a bit oddly.
> Is this a warning or an error message? Can I change my script to prevent
> it.
Yes, check the return code of your open.
Martien
--
Martien Verbruggen |
Interactive Media Division | Make it idiot proof and someone will make a
Commercial Dynamics Pty. Ltd. | better idiot.
NSW, Australia |
------------------------------
Date: 15 Oct 1999 01:50:39 GMT
From: lt lindley <ltl@rgsun40.viasystems.com>
Subject: Re: Read on closed filehandle ??
Message-Id: <7u619f$7ig$1@rguxd.viasystems.com>
Michael Hill <l463520@lmtas.lmco.com> wrote:
:># The file being checked
:>$file = "my.txt";
:>$selected = "$filebase/$file";
:>use FileHandle;
:>$fh = new FileHandle "> $selected";
:>if (defined $fh)
:> {
:> $fh->close;
[snip]
:>I get the error message
:>"Bad free() ignored during global destruction.
:>Read on closed filehandle <INF> at
:>/disk06/home/hillmw/public_html/cgi-bin/invins.pl line 11.
:>Is this a warning or an error message? Can I change my script to prevent
:>it.
I think it is a bug. The doc for FileHandle says that when you do
undef $fh; # automatic close of file
I'm guessing that when $fh goes out of scope (at the end of the
program) it is attempting to close the file even though it is already
closed. Note that I cannot find where this is happening in the
source, so I could quite easily be full of shit on this.
Try
undef $fh; # where you currently have $fh->close
and see if the problem goes away. If so, then it is a bug.
If not, then you can let me know that I'm full of it.
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: Thu, 14 Oct 1999 19:22:49 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Read on closed filehandle ??
Message-Id: <9ko5u7.e54.ln@magna.metronet.com>
Michael Hill (l463520@lmtas.lmco.com) wrote:
: Read on closed filehandle <INF> at
: /disk06/home/hillmw/public_html/cgi-bin/invins.pl line 11.
: Excerpt from invins.pl :
: open(INF,$datafile);
What if $datafile does not exist, or if you do not have
permission to open it?
The filehandle won't be opened in that case.
: @mydata = <INF>;
: close(INF);
So closing it when it was never opened is suspicious.
: Is this a warning or an error message?
You go look up your message in perldiag.pod like everybody
else does.
: Can I change my script to prevent
: it.
Yes.
You should always, yes *always* check the return value from
open() calls.
I am amazed that you did not see how to do that when you
read about open() in perlfunc.pod. (it simply cannot be
that you are using the open() function without reading
the docs for the open() function, could it?)
Go read about open() in perlfunc.pod to find out how to
check the return value.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 15 Oct 1999 13:31:08 -0400
From: Patrick Sweeney <ftidev@fhb.clickcharge.com>
Subject: References to a list
Message-Id: <380764DB.146F3962@fhb.clickcharge.com>
Is this the best way of getting a reference to a list? Or have I
included some
unnecessary characters?
use strict;
my $a = \qw(a b c);
my $b = \@{([qw(a b c)]};
print "a=$a b=$b b=",join("|",@$b),"\n";
the output is
a=SCALAR (as expected) b=ARRAY b=a|b|c
------------------------------
Date: Fri, 15 Oct 1999 19:17:01 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: References to a list
Message-Id: <N4LN3.914$IZ5.18884@news.rdc1.ct.home.com>
Patrick Sweeney <ftidev@fhb.clickcharge.com> wrote:
> Is this the best way of getting a reference to a list? Or have I
> included some
> unnecessary characters?
You can't *get* a reference to a list. You can only get references
to perl datatypes, and a list isn't one o' them.
What you can do is take a reference to an array:
$ref = \@foo;
or build an anonymous array:
$ref = [1,2,3];
Taking a reference to a list just returns a list of references to
the list's contents.
Dan
------------------------------
Date: Fri, 15 Oct 1999 17:35:42 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: References to a list
Message-Id: <OBJN3.154$q82.12429@news1.rdc1.mb.home.com>
In article <380764DB.146F3962@fhb.clickcharge.com>,
Patrick Sweeney <ftidev@fhb.clickcharge.com> wrote:
! Is this the best way of getting a reference to a list? Or have I
! included some
! unnecessary characters?
! my $b = \@{([qw(a b c)]};
you have unbalanced parentheses in that example ... but
this would be simpler:
my $b = [qw(a b c)];
regards
andrew
--
Andrew L. Johnson http://www.manning.com/Johnson/
I've always maintained a cordial dislike for indent, because it's
usually right.
-- Larry Wall in <199806221558.IAA07251@wall.org>
------------------------------
Date: Fri, 15 Oct 1999 17:03:45 +1000
From: "adm" <asdf@clkj.com>
Subject: regsetsecurity query for perl32
Message-Id: <7u6jmn$8ci$1@news.ses.cio.eds.com>
Hello,
We are trying to setup a perl script to modify the security settings on the
winlogon branch (eg..change all users to read only access)
I have read a lot of documenation pertaining to the command eg:
RegSetKeySecurity( $hKey, $uSecInfo, $pSecDesc )
Sets one of the SECURITY_DESCRIPTOR structures describing part of the
security for an open Registry key.
$hKey is the handle to a Registry key [either HKEY_* or from a previous
call].
$uSecInfo is a numeric SECURITY_INFORMATION value that specifies which
SECURITY_DESCRIPTOR structure to set. Should be OWNER_SECURITY_INFORMATION,
GROUP_SECURITY_INFORMATION, DACL_SECURITY_INFORMATION, or
SACL_SECURITY_INFORMATION.
$pSecDesc contains the new SECURITY_DESCRIPTOR structure packed into a Perl
string.
However I do not understand this...can someone help me as this is very
urgent.
Kind Regards and thanks ahead
Adam Hall
------------------------------
Date: Wed, 13 Oct 1999 23:50:41 GMT
From: Alligator <alligator333@my-deja.com>
Subject: Re: Remote Document Timestamps Continued...
Message-Id: <7u35sd$i48$1@nnrp1.deja.com>
In article <m1aeposm07.fsf@halfdome.holdit.com>,
merlyn@stonehenge.com (Randal L. Schwartz) wrote:
>
> A server sends "last modified" generally when instructed to, or when
> the content is a static file. For SSI-enabled pages, this is rare
> (although see the "x bit hack" for Apache for example, or
> "mod_expires" for an entirely different approach).
>
> If no last-modified date is sent, many spiders use the "date" sent by
> the server as a last-modified.
>
Thank you! This explains some of the results I've been getting.
Where can I find more info on the "x bit hack" and "mod_expires?"
> print "Just another Perl hacker and web whacker,"
>
> --
> Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503
777 0095
> <merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
> See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl
training!
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 14 Oct 1999 02:41:57 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Remote Document Timestamps Continued...
Message-Id: <Pine.HPP.3.95a.991014024024.7786B-100000@hpplus01.cern.ch>
On Wed, 13 Oct 1999, Alligator wrote:
> Where can I find more info on the "x bit hack" and "mod_expires?"
http://www.apache.org of course (where else?), and maybe tutorials at
apacheweek.
Please, don't quote sigs. It makes you look like a pathetic newbie
that's best ignored, and we wouldn't want that, would we?
------------------------------
Date: Thu, 14 Oct 1999 15:35:26 -0500
From: "Pradeep Kalyan" <pradeep.kalyan@nwa.com>
Subject: Scraping data from a Web Site
Message-Id: <7u5eqe$ph2$1@nwanews.nwa.com>
We have a requirement to have a process which goes to a secure web site and
logs into it using userid and password and based on some criteria
(like from date, to date etc.) retrieve some information and store that
information
into our database for analysis.
Internet experts, please let me know what are the tools to use for this
purpose and the procedure. Our internal internet staff has comeup with two
options:
PERL and Visual Basic. I would appreciate, if you can mail your ideas on
this.
Thanks
Pradeep
------------------------------
Date: Thu, 14 Oct 1999 14:57:28 -0700
From: Makarand Kulkarni <makkulka@cisco.com>
Subject: Re: Scraping data from a Web Site
Message-Id: <380651C8.39CCE7B1@cisco.com>
Pradeep Kalyan wrote:
> We have a requirement to have a process which goes to a secure web site and
> logs into it using userid and password and based on some criteria
> (like from date, to date etc.) retrieve some information and store that
> information into our database for analysis.
Net::SSLeay - Perl extension for using OpenSSL
http://theory.uwinnipeg.ca/CPAN/data/Net_SSLeay.pm/SSLeay.html
--
------------------------------
Date: 12 Oct 1999 17:22:26 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: search engine!!
Message-Id: <slrn807d4k.gep.abigail@alexandra.delanet.com>
Martien Verbruggen (mgjv@wobbie.heliotrope.home) wrote on MMCCXXXIII
September MCMXCIII in <URL:news:slrn8060gu.972.mgjv@wobbie.heliotrope.home>:
__ On Mon, 11 Oct 1999 18:03:08 +0100 (BST),
__ Daniel Lee <daniel_lsl@go.com> wrote:
__
__ > Hi I'm currently doing a project on web search engine. I'm
__ > contemplating on whether to use Java or Perl. Can anyone out there
__ > advice me on which language
__
__ I'd use C. With the amount of data you're going to have to process,
__ you might need every bit of micro-optimisation you can get, both for
__ CPU usage and memory usage. C is best suited for that, Java probably
__ least.
I would probably end up with a hybrid solution, using the strengths
of several languages.
Abigail
--
$_ = "\x3C\x3C\x45\x4F\x54"; s/<<EOT/<<EOT/e; print;
Just another Perl Hacker
EOT
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 15 Oct 1999 06:07:35 -0500
From: "charles zezulak" <charles.zezulak@worldnet.att.net>
Subject: Seeking PERL employment
Message-Id: <7u71sl$gs5$1@bgtnsc02.worldnet.att.net>
Greetings, if any one out there can use a perl programmer- I am available. I
go back to Apple II days in programming experience.
I am trying to make a career as an internet programmer.I do HTML,CGI and
Javascript. I am looking to specialize in Perl internet
applications,preferrably business related .
I have an accounting degree and am a CPA candidate,however my love and my
life is the electronic maiden.(computers) I will not be a CPA - except
maybe as a hobby...
I'm trying to develop a good track record. I am new to perl ,but I
have caught on fast. I prefer a Unix environment. I will work CHEAP!
I prefer to work out of my home or in or around the Chicago area . However I
will entertain any "good offers"
I will consider part time or some other such arrangement
I am a thirty something workaholic.
If any one can help me achieve my dream ,contact me :
chuck@zezulak.com
------------------------------
Date: Tue, 12 Oct 1999 23:05:21 GMT
From: cbunks@bbn.com (Carey Bunks)
Subject: Seeking Perl scripts for preparing book index
Message-Id: <Q8PM3.798$854.31914@burlma1-snr2>
I'm preparing an advanced book on the GIMP (written in LaTeX) and I'm getting
ready to prepare the index. Does anyone know of a perl script or set of
scripts that are useful for index preparation?
Thanks
Carey Bunks
------------------------------------
Dr. Carey Bunks
Senior Scientist
BBN Corp.
70 Fawcett St, 15/2A
Cambridge, MA 02138
tel: 617-873-3028 fax: 617-873-2918
email: cbunks@bbn.com
------------------------------------
------------------------------
Date: Tue, 12 Oct 1999 23:28:34 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Seeking Perl scripts for preparing book index
Message-Id: <CuPM3.94$jg4.2574@nsw.nnrp.telstra.net>
On Tue, 12 Oct 1999 23:05:21 GMT,
Carey Bunks <cbunks@bbn.com> wrote:
> I'm preparing an advanced book on the GIMP (written in LaTeX) and I'm getting
> ready to prepare the index. Does anyone know of a perl script or set of
> scripts that are useful for index preparation?
Err... I'm not sure why you would want to use perl for that, since
LaTeX comes with a bundle of tools specifically created for that. One
of them is makeindex.
\begin{offtopic}
Have you looked at those, or are there specific things you need to do
that aren't available through the standard tools? And if so, you
should probably check out a newsgroup about tex/latex as well, or
maybe first. It's highly likely that CTAN contains one or two niceties
in the contrib directory.
There are many TeX groups, most of them language specific. Anything
ending in .latex is probably not what you want :)
comp.text.tex
hannet.ml.tex.*
http://www.tug.org/ is a good place to look as well.
\end{offtopic}
Martien
--
Martien Verbruggen |
Interactive Media Division |
Commercial Dynamics Pty. Ltd. | Hi, Dave here, what's the root password?
NSW, Australia |
------------------------------
Date: Tue, 12 Oct 1999 16:50:30 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Seeking Perl scripts for preparing book index
Message-Id: <Pine.GSO.4.10.9910121650130.19155-100000@user2.teleport.com>
On Tue, 12 Oct 1999, Carey Bunks wrote:
> Does anyone know of a perl script or set of
> scripts that are useful for index preparation?
If you're wishing merely to _find_ (as opposed to write) programs,
this newsgroup may not be the best resource for you. There are many
freeware and shareware archives which you can find by searching Yahoo
or a similar service. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 12 Oct 1999 23:19:40 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Seeking Perl scripts for preparing book index
Message-Id: <slrn80822e.nk2.abigail@alexandra.delanet.com>
Carey Bunks (cbunks@bbn.com) wrote on MMCCXXXIII September MCMXCIII in
<URL:news:Q8PM3.798$854.31914@burlma1-snr2>:
() I'm preparing an advanced book on the GIMP (written in LaTeX) and I'm getting
() ready to prepare the index. Does anyone know of a perl script or set of
() scripts that are useful for index preparation?
*blink*
You said it was written in LaTeX, didn't you?
Then, I fail to understand the question. Perhaps you want to ask in
comp.text.tex?
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 13 Oct 1999 00:45:15 -0500
From: Seth David Johnson <sjohns17@uic.edu>
Subject: Re: Seeking Perl scripts for preparing book index
Message-Id: <Pine.A41.4.10.9910130042290.305678-100000@tigger.cc.uic.edu>
On 12 Oct 1999, Abigail wrote:
> Carey Bunks (cbunks@bbn.com) wrote on MMCCXXXIII September MCMXCIII in
> <URL:news:Q8PM3.798$854.31914@burlma1-snr2>:
> () I'm preparing an advanced book on the GIMP (written in LaTeX) and I'm getting
> () ready to prepare the index. Does anyone know of a perl script or set of
> () scripts that are useful for index preparation?
>
> *blink*
>
> You said it was written in LaTeX, didn't you?
>
> Then, I fail to understand the question. Perhaps you want to ask in
> comp.text.tex?
But Abigail, surely it's parseable, in which case Perl would be an ideal
means by which to construct an index. I'm not familiar with tex markup
myself; there may already be something written to parse it.
-Seth
www.pdamusic.com
------------------------------
Date: Wed, 13 Oct 1999 06:41:40 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Seeking Perl scripts for preparing book index
Message-Id: <EQVM3.104$uk4.3664@nsw.nnrp.telstra.net>
On Wed, 13 Oct 1999 00:45:15 -0500, Seth David Johnson
<sjohns17@uic.edu> wrote:
> On 12 Oct 1999, Abigail wrote:
>
> > Carey Bunks (cbunks@bbn.com) wrote on MMCCXXXIII September
> > MCMXCIII in <URL:news:Q8PM3.798$854.31914@burlma1-snr2>:
> > > I'm preparing an advanced book on the GIMP (written in LaTeX)
> > > and I'm getting ready to prepare the index. Does anyone know of
> > > a perl script or set of scripts that are useful for index
> > > preparation?
> >
> > *blink*
> >
> > You said it was written in LaTeX, didn't you?
> >
> > Then, I fail to understand the question. Perhaps you want to ask
> > in comp.text.tex?
>
> But Abigail, surely it's parseable, in which case Perl would be an
> ideal means by which to construct an index. I'm not familiar with
> tex markup myself; there may already be something written to parse
> it.
But, LaTeX is a typesetting language/program. It has full support for
indexes. Sure, it's parseable (although not trivially), but the point
is more that it probably isn't the best idea to try to do it with
Perl, since LaTeX already does it. (see my earlier post in this
thread).
Unless the original poster meant something else than we think, LaTeX
should do the job, not Perl.
Martien
--
Martien Verbruggen |
Interactive Media Division |
Commercial Dynamics Pty. Ltd. | Hi, Dave here, what's the root password?
NSW, Australia |
------------------------------
Date: 13 Oct 1999 06:17:20 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Seeking Perl scripts for preparing book index
Message-Id: <slrn808qhh.nk2.abigail@alexandra.delanet.com>
Seth David Johnson (sjohns17@uic.edu) wrote on MMCCXXXIV September
MCMXCIII in <URL:news:Pine.A41.4.10.9910130042290.305678-100000@tigger.cc.uic.edu>:
?? On 12 Oct 1999, Abigail wrote:
??
?? > Carey Bunks (cbunks@bbn.com) wrote on MMCCXXXIII September MCMXCIII in
?? > <URL:news:Q8PM3.798$854.31914@burlma1-snr2>:
?? > () I'm preparing an advanced book on the GIMP (written in LaTeX) and I'm getting
?? > () ready to prepare the index. Does anyone know of a perl script or set of
?? > () scripts that are useful for index preparation?
?? >
?? > *blink*
?? >
?? > You said it was written in LaTeX, didn't you?
?? >
?? > Then, I fail to understand the question. Perhaps you want to ask in
?? > comp.text.tex?
??
?? But Abigail, surely it's parseable, in which case Perl would be an ideal
?? means by which to construct an index. I'm not familiar with tex markup
?? myself; there may already be something written to parse it.
No, I don't think Perl would be the ideal means. I am familiar with
LaTeX, and that's why I don't understand the question.
LaTeX already has the ability to do indexing.
Abigail
--
split // => '"';
${"@_"} = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 13 Oct 1999 13:17:47 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Seeking Perl scripts for preparing book index
Message-Id: <Pine.HPP.3.95a.991013131530.22897D-100000@hpplus01.cern.ch>
On Wed, 13 Oct 1999, Martien Verbruggen wrote:
> But, LaTeX is a typesetting language/program.
Well, TeX is a typesetting language. LaTeX is supposed to be a higher
level markup, built on top of TeX, that concentrates on the logical
structure of the content and leaves typesetting issues to a style sheet.
> It has full support for indexes.
That was my reaction too.
------------------------------
Date: 13 Oct 1999 11:47:02 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: Seeking Perl scripts for preparing book index
Message-Id: <slrn808sb4.a87.mgjv@wobbie.heliotrope.home>
On Wed, 13 Oct 1999 13:17:47 +0200,
Alan J. Flavell <flavell@mail.cern.ch> wrote:
> On Wed, 13 Oct 1999, Martien Verbruggen wrote:
>
> > But, LaTeX is a typesetting language/program.
>
> Well, TeX is a typesetting language. LaTeX is supposed to be a higher
> level markup, built on top of TeX, that concentrates on the logical
> structure of the content and leaves typesetting issues to a style sheet.
\begin[more,and,more]{offtopic}
heh, no need to explain that to me :)
LaTeX is like a good collection of modules to perl. It gives you all
the niceties and abstractions, but you still can use raw TeX when you
feel like it.
\end{offtopic}
Martien
--
Martien Verbruggen |
Interactive Media Division | Useful Statistic: 75% of the people make up
Commercial Dynamics Pty. Ltd. | 3/4 of the population.
NSW, Australia |
------------------------------
Date: Wed, 13 Oct 1999 11:32:53 +0200
From: Ewald Wasscher <ewas@dds.nl>
To: David Amann <dove@synopsys.com>
Subject: Re: Sending mail with Perl?
Message-Id: <380451C5.61B030A7@dds.nl>
Hi David,
Thanks for the advice.
> I tried running the script and the only problem I got was with the -T. I
> got the error "too late to use taint". Once I removed that and changed the
> sender to me, all worked well.
I'd rather not turn off taint checking as I'll be writing a CGI script.
From the commandline the following works OK for me: (solves the problem
you mentioned)
perl -T mail.pl
> You might make sure you have the latest versions of Net::SMTP and
> Mail::Mailer.
> (I'm using version 2.10 of Net::SMTP and version 1.17 of Mail::Mailer.)
Hmm, I reinstalled both through CPAN.pm I believe, so they should be OK,
but I'll try again.
I suspect there is a problem with Net::SMTP or perhaps
Mail::Mailer::smtp as all works fine when using the default mailer with
Mail::Mailer (on Mandrake-Linux).
Yours,
Ewald
------------------------------
Date: Wed, 13 Oct 1999 12:28:59 +0200
From: Ewald Wasscher <ewas@dds.nl>
Subject: Re: Sending mail with Perl?
Message-Id: <38045EEB.786E826B@dds.nl>
>
> I suspect there is a problem with Net::SMTP or perhaps
> Mail::Mailer::smtp as all works fine when using the default mailer with
> Mail::Mailer (on Mandrake-Linux).
>
It seems to be Mail::Mailer::smtp that causes my problems. The script in
the pod documentation of Net::SMTP works fine as well as the mail and
sendmail mailers.
Ewald
------------------------------
Date: Thu, 14 Oct 1999 19:38:37 +0200
From: "Bruno Kovac" <bkovac@gmx.net>
Subject: Server Push!
Message-Id: <7u54av$mma$1@as102.tel.hr>
Hi!
I need push help... (auto refreshing of some pages. after some time...)
I dont know why but this is not working..
is there any .lib for push..
-cut-
use CGI::Push qw(:standard);
do_push(-next_page=>\&next_page,
-last_page=>\&last_page,
-delay=>0.5);
sub next_page {
my($q,$counter) = @_;
return undef if $counter >= 10;
return start_html('Test'),
h1('Visible'),"\n",
"This page has been called ", strong($counter)," times",
end_html();
}
sub last_page {
my($q,$counter) = @_;
return start_html('Done'),
h1('Finished'),
strong($counter),' iterations.',
end_html;
}
-cut-
Thanks..
------------------------------
Date: Thu, 14 Oct 1999 21:00:06 GMT
From: "Moyer Family" <moyerfamily@kscable.com>
Subject: Server Side Fonts
Message-Id: <qvrN3.6902$OH2.85489@typhoon2.kc.rr.com>
Is there any way to display a font that the user doesn't have, but you have
the file on your site? If not in Perl with CGIs, does anyone that knows
JavaScript also(as I do) know it can be done there. Please email the
response to
bozodaclown2001@hotmail.com, because I don't check this Newsgroup very
often! Thanks, Keith.
------------------------------
Date: Wed, 13 Oct 1999 12:42:35 +1100
From: Guang Yu Liu <gyl@unforgettable.com>
Subject: Re: setting passwords
Message-Id: <3803E38B.4A28FFB3@unforgettable.com>
use Expect;
#get the login name and password somehow
...
#
$p=Expect->spawn("/usr/bin/passwd", $login);
$p->log_stdout(0);
$p->expect(undef,"assword:");
print $p "$pass\n";
$p->expect(undef,"asswod:");
print $p "$pass\n";
$p->hard_close();
paolo wrote:
> hello everybody,
> does someone know how can I set a password for a NEW system user:
> -I have a file with a user-password list
> -I want to create the user and set his password with a script, without
> prompting!
>
> thanks in advice to everybody!
------------------------------
Date: Fri, 15 Oct 1999 11:17:20 +0200
From: Lars Erik <l.e.kolden@hfstud.uio.no>
Subject: Setuid script using Net::FTP
Message-Id: <3806F120.18C8E094@hfstud.uio.no>
Hello,
I'm writing a script that scans some ftp servers and lists their
files. To do this I had to use icmp ping, and therefore also had to
use a setuid wrapper to make it work. However, it seems like Net::FTP
doesn't like this setuid thing, because everything hangs when I try to
make a new ftp object.
This is where it stops ($srvr has the value of "bug.studby.uio.no" (my
computer, running wuftpd), which ping recognises as alive):
my($ftp) = Net::FTP->new($srvr, Debug => 1, "Timeout=5");
The messages I get in my error log are:
Odd number of elements in hash assignment at
/usr/lib/perl5/site_perl/5.005/Net/FTP.pm line 47.
Net::FTP: Net::FTP(2.53)
Net::FTP: Exporter
Net::FTP: Net::Cmd(2.16)
Net::FTP: IO::Socket::INET
Net::FTP: IO::Socket(1.1603)
Net::FTP: IO::Handle(1.1505)
And... nothing more. If I do a tcpdump host bug.studby.uio.no and
port 21, I get nothing at all either, so no communication is being
done at all.
Has anyone got an idea?
By the way, the script works perfectly if not run setuid (and hence
without the ping feature). And if I run it as root, it works even if
it is setuid.
Best regards,
Lars Erik
--
Lars Erik Kolden http://bug.fix.no
+47 22 18 71 79 l.e.kolden@hfstud.uio.no
+47 22 02 53 18
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 1077
**************************************
