[16795] in Perl-Users-Digest
Perl-Users Digest, Issue: 4207 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Sep 2 06:05:39 2000
Date: Sat, 2 Sep 2000 03:05: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: <967889122-v9-i4207@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 2 Sep 2000 Volume: 9 Number: 4207
Today's topics:
Re: $LIST_SEPARATOR bug?? (Keith Calvert Ivey)
Re: $LIST_SEPARATOR bug?? (Keith Calvert Ivey)
coderef to object method? (Steve Leibel)
Re: Creating a subroutine library for PerlScript <cyberjeff@sprintmail.com>
Re: Finding a file in a huge filesystem <gellyfish@gellyfish.com>
Re: GD module <gellyfish@gellyfish.com>
Re: generate the html doc. <gellyfish@gellyfish.com>
Re: Help! my comma's are comma%27s <perspiring@nuts.com>
Re: Help! my comma's are comma%27s <perspiring@nuts.com>
Re: Help! my comma's are comma%27s <tina@streetmail.com>
Re: Help! my comma's are comma%27s <godzilla@stomp.stomp.tokyo>
Re: help..I don't know what is this??? <gellyfish@gellyfish.com>
Re: help..I don't know what is this??? <gellyfish@gellyfish.com>
Re: how to encrypt source code? <gellyfish@gellyfish.com>
Re: how to use HTTP::Cookies <dsa@dassda.com>
Re: Jumping to the previous row with DBI <gellyfish@gellyfish.com>
Re: Jumping to the previous row with DBI <gellyfish@gellyfish.com>
Re: Managing Temporary Directories/Files (David H. Adler)
Re: Modem communication (/dev/ttyS*) <gellyfish@gellyfish.com>
module install questions (RH) <cyberjeff@sprintmail.com>
Re: Novice question: Interpolating embedded variables f <gellyfish@gellyfish.com>
Re: open web file <godzilla@stomp.stomp.tokyo>
Re: open web file (Gwyn Judd)
Re: Partner Required. Perl Programmer (David H. Adler)
Re: Q. relating to perlfaq(4) / sort <abe@ztreet.demon.nl>
source code for newsgroups functionality <bhp@uni-c.dk>
Re: working out signatures <markmccarthy1@home.com>
Re: working out signatures <godzilla@stomp.stomp.tokyo>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 02 Sep 2000 05:35:36 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: $LIST_SEPARATOR bug??
Message-Id: <39b090fa.1776160@news.newsguy.com>
Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "SM" == Sean Meisner <sdmeisner@SPAMGUARDyahoo.com> writes:
>
> SM> ActiveState docs for version 5.6.0.616 as installed on my Windows
> SM> machine say:
>
> SM> $LIST_SEPARATOR
> SM> $``
>
>hahahah!! stupid redmond moron quoting strikes again!
I don't think you can blame Redmond for this one. Using `` for
double quotes is a Unix thing, in my experience. Microsoft
quoting would have been something like $” (which doesn't even
show up correctly in my Windows newsreader).
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Sat, 02 Sep 2000 05:39:53 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: $LIST_SEPARATOR bug??
Message-Id: <39b191f1.2022731@news.newsguy.com>
Larry Rosler <lr@hpl.hp.com> wrote:
>GMT, Steven Merritt <smerr612@mailandnews.com> says...
>
>...
>
>> Try $" = '';
>
>I would prefer to use
>
> $" = "";
>
>so the value assigned doesn't appear anything like one double-quote.
Do you program in a proportionally spaced font? If you're
using a font that's appropriate for programming, '' is clearly
distinguishable from ". (Not that I find "" offensive.)
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Sat, 02 Sep 2000 01:59:16 -0700
From: stevel@bluetuna.com (Steve Leibel)
Subject: coderef to object method?
Message-Id: <stevel-0209000159160001@192.168.100.2>
I looked in perldoc perlref and didn't see what I needed.
I'm using a class, call it X, that lets you register event handlers. My
event handlers are methods in a class that uses X.
So the add_handler method of X is looking for something like
my $x = new X;
$x->add_handler(\&coderef);
However in my application, coderef is a method in another class, call it
Y, that uses X. When the coderef is eventually invoked I want it to be
able to use the instance data of the Y object. So I want the syntax for
$x->add_handler( reference to $self->coderef );
where $self is the instance of class Y that has instantiated X.
I've tried
$x->add_handler( \&{$self->coderef} );
but that seems to invoke coderef rather than get a reference to it. Other
variants don't work either.
Is there syntax for what I want, or is there a better way to do this?
Thanks,
Steve L
------------------------------
Date: Sat, 02 Sep 2000 09:48:16 GMT
From: Jeff Thies <cyberjeff@sprintmail.com>
Subject: Re: Creating a subroutine library for PerlScript
Message-Id: <39B0CD30.4A943BE@sprintmail.com>
> > Here's an article on using Perl in ASP.
> >
> > http://www.asptoday.com/articles/19990716.htm
if I might ask...
Can you use filehandles in ASP then? I just found out how rediculously
hard it is to upload a binary and save it in ASP.
Jeff
------------------------------
Date: 1 Sep 2000 08:13:51 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Finding a file in a huge filesystem
Message-Id: <8onkvf$ljl$1@orpheus.gellyfish.com>
In comp.lang.perl.misc Tina Mueller <tina@streetmail.com> wrote:
> hi,
> nkhan75@hotmail.com wrote:
>
>> I need to find a file, say foo.txt, in a file tree that contains
>> several thousand files. Just traversing through the tree takes over 2
>> hours on a strong machine. Hence I need to come up with Perl code
>> which, as soon as it finds the file, stops the search. Ofcourse, if the
>> file does not exist the code will step through all the files in the
>> tree looking for foo.txt.
>
> well, at least if you're on a unix system you could use the
> system call "locate".
>
Linux or BSD anyhow - it doesnt come as standard with most Unices and will
have to be built. As a matter of interest and to bring this back to Perl
has anyone done 'locate' in Perl either using the existing database or
creating its own ?
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 1 Sep 2000 07:46:39 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: GD module
Message-Id: <8onjcf$ler$1@orpheus.gellyfish.com>
On Wed, 30 Aug 2000 16:10:55 +0100 Zlanty wrote:
> I built the GD module on a unix box to which I had telnet access and then
> tried to copy the resultant lib to a unix www box for which I don't have
> telnet access..
>
> It didn't work.
>
Too many unknown things here. Is the machine to which you copied the
module the same OS and processor type to the one on which you built it ?
Did you copy *all* of the files that were installed and copy them to the
equivalent places on the othere machine ?
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 1 Sep 2000 07:17:22 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: generate the html doc.
Message-Id: <8onhli$lar$1@orpheus.gellyfish.com>
On Thu, 31 Aug 2000 17:38:00 +0800 Tom wrote:
> Hi all,
>
> I have a question about using perl.
> I want to use perl generating the html file but it will have error.
> The html page only show like this:
> <script language=javascript>
> function banner(msg,ctrlwidth) {
> for (i=0;i
> {msg=" "+msg}
> ............
> }
> ..........
>
>
> perl.program
> =========
> $js<<END
> <script language=javascript>
> function banner(msg,ctrlwidth) {
> for (i=0;i<=ctrlwidth;i++)
> {msg=" "+msg}
> ............
> }
> END
>
> print header();
> print $js;
> ..........
>
You will notice that the point at which the text is missing is coincident
with the '<' in your output. It is not a Perl problem really.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Sat, 2 Sep 2000 00:09:17 -0400
From: "perspiring goth" <perspiring@nuts.com>
Subject: Re: Help! my comma's are comma%27s
Message-Id: <39b07c58_4@news.newsfeeds.com>
Thanks but...
$unescaped = CGI::unescape($text);
print "$text";
...doesn't work. I'm sure I seem woefully inept but... ???
"Tina Mueller" <tina@streetmail.com> wrote in message
news:8ops4g$bhbvf$4@ID-24002.news.cis.dfn.de...
> hi,
> perspiring goth <perspiring@nuts.com> wrote:
> > Thanks! But where does it go? (I'm very new at this!) I get this as a
> > return:
>
> > CGI::unescape(comma%27s)
>
> > "Christian Mahnke" <mahnke@uni-freiburg.de> wrote in message
> > news:8opidg$9di$1@news.online.de...
> >> You have to decode it. Commas, semicolons and the like are encoded by
the
> >> Browser.
> >> Do it with "CGI::unescape($yourvar)".
>
> $unescaped = CGI::unescape($yourvar);
>
> tina
>
> --
> http://tinita.de \ enter__| |__the___ _ _ ___
> tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
> search & add comments \ \__,_\___/\___/_| /__/ perception
> please don't email unless offtopic or followup is set. thanx
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
------------------------------
Date: Sat, 2 Sep 2000 00:19:57 -0400
From: "perspiring goth" <perspiring@nuts.com>
Subject: Re: Help! my comma's are comma%27s
Message-Id: <39b07ed8_2@news.newsfeeds.com>
...and
Thanks but...
$unescaped = CGI::unescape($text);
print "$unescaped ";
...doesn't work. I'm sure I seem woefully inept but... ???
"perspiring goth" <perspiring@nuts.com> wrote in message
news:39b07c58_4@news.newsfeeds.com...
> Thanks but...
>
> $unescaped = CGI::unescape($text);
>
> print "$text";
>
> ...doesn't work. I'm sure I seem woefully inept but... ???
>
>
> "Tina Mueller" <tina@streetmail.com> wrote in message
> news:8ops4g$bhbvf$4@ID-24002.news.cis.dfn.de...
> > hi,
> > perspiring goth <perspiring@nuts.com> wrote:
> > > Thanks! But where does it go? (I'm very new at this!) I get this as a
> > > return:
> >
> > > CGI::unescape(comma%27s)
> >
> > > "Christian Mahnke" <mahnke@uni-freiburg.de> wrote in message
> > > news:8opidg$9di$1@news.online.de...
> > >> You have to decode it. Commas, semicolons and the like are encoded by
> the
> > >> Browser.
> > >> Do it with "CGI::unescape($yourvar)".
> >
> > $unescaped = CGI::unescape($yourvar);
> >
> > tina
> >
> > --
> > http://tinita.de \ enter__| |__the___ _ _ ___
> > tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
> > search & add comments \ \__,_\___/\___/_| /__/ perception
> > please don't email unless offtopic or followup is set. thanx
>
>
>
>
> -----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
> http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
> -----== Over 80,000 Newsgroups - 16 Different Servers! =-----
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
------------------------------
Date: 2 Sep 2000 06:14:57 GMT
From: Tina Mueller <tina@streetmail.com>
Subject: Re: Help! my comma's are comma%27s
Message-Id: <8oq5t1$b0op4$1@ID-24002.news.cis.dfn.de>
hi,
perspiring goth <perspiring@nuts.com> wrote:
> ...and
> Thanks but...
> $unescaped =3D CGI::unescape($text);
> print "$unescaped ";
> ...doesn't work. I'm sure I seem woefully inept but... ???
define "doesn't work" and learn how to quote.
for me the following works:
02:14am tina@syracus:~/public_html/cgi-bin > perl -e'use CGI;
$z=3DCGI::unescape("comma%2Cs");
print "$z\n"'
tina
--=20
$|++;@_=3Dmap{chr(ord($_)-$|)}split//,"Kvtu!bopuifs!Qfsm!Ibdlfs-";$\=3D"\r=
";@a=3Dqw(.=20
o O);$=A7=3D"_"x25;until($=A7!~m~_~){$o=3Dint(rand 28)+65;next if$s{$o}++;=
$o=3D=3D91?$o=3D44
:($o=3D=3D92?$o=3D32:0);$g=3Dchr$o;for(0..24){if($_[$_]=3D~m)$g)i){for$m(@=
a,$_[$_]){substr
$=A7,$_,$|,$m;print$=A7;select$/,$/,$/,0.1}}}print$=A7}print$/ # http://ti=
nita.de
------------------------------
Date: Sat, 02 Sep 2000 01:04:51 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Help! my comma's are comma%27s
Message-Id: <39B0B4A3.13F3066D@stomp.stomp.tokyo>
Tina Mueller wrote:
> perspiring goth wrote:
> > $unescaped = CGI::unescape($text);
> > print "$unescaped ";
> > ...doesn't work. I'm sure I seem woefully inept but... ???
> define "doesn't work" and learn how to quote.
> for me the following works:
> 02:14am tina@syracus:~/public_html/cgi-bin > perl -e'use CGI;
> $z=CGI::unescape("comma%2Cs");
> print "$z\n"'
Writing your own Brenner style read and parse will
resolve this problem and many more created by use
of cgi-poopmaker, resolve these problems quicker
than you can flick a slippery booger. A Brenner
style read and parse makes for a quicker and
more efficient script, and avoids six-thousand
some odd lines of code within cgi-poopmaker.
Not so difficult, maybe twenty to thirty lines
of code for a Brenner style read and parse which
includes addressing almost all major security
concerns. Only challenge is you need to know how
to program, not just copy and paste a module
reference. Well, challenging for most around
here, old hat for me. Never have taken much
of a hankering to Perl 5 Cargo Cult.
* scratches her noggin *
Don't know why so many use cgi-poopmaker with
all its bugs, its slowness and its memory bloat.
Godzilla!
--
Dr. Kiralynne Schilitubi ¦ Cooling Fan Specialist
UofD: University of Duh! ¦ ENIAC Hard Wiring Pro
BumScrew, South of Egypt ¦ HTML Programming Class
------------------------------
Date: 1 Sep 2000 07:05:37 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: help..I don't know what is this???
Message-Id: <8ongvh$la2$1@orpheus.gellyfish.com>
On Wed, 30 Aug 2000 22:13:12 GMT Hardy Merrill wrote:
> In article <8ojv7h$eb2$1@nnrp1.deja.com>,
> eduardo_m@my-deja.com wrote:
>> Hello everyone....
>>
>> I'm programming in DBI and I looked into several tutorials, and I have
>> found one that says:
>>
>> $sth->execute();
>>
>> if ($@) {
>> $dbh->rollback();
>> }
>>
>> I know how works this, but I want to know what the "$@" means...Is
>> something like a way to know if an error has ocurred????....
>
> DBI threads belong on the Perl DBI mailing list at dbi-users@isc.org.
>
The question was about $@ not about DBI and anyhow I dont think that the
existence of a *mailing list* on a subject makes an otherwise perfectly
on-topic post here off-topic.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 1 Sep 2000 07:06:48 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: help..I don't know what is this???
Message-Id: <8onh1o$la5$1@orpheus.gellyfish.com>
On 31 Aug 2000 15:13:42 +0200 Heinrichmeyer wrote:
> maybe the file has to be openend readonly.
You've lost me there bucko - maybe you meant to follow up to a different
message.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 1 Sep 2000 07:26:13 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: how to encrypt source code?
Message-Id: <8oni65$lcl$1@orpheus.gellyfish.com>
On Fri, 1 Sep 2000 02:15:24 +0800 DT wrote:
> how to encrypt source code? thanks!
Gnu Privacy Guard works for me.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Sat, 2 Sep 2000 16:45:26 +0800
From: DT <dsa@dassda.com>
Subject: Re: how to use HTTP::Cookies
Message-Id: <MPG.141b3f033d1fd063989684@news.cyberway.com.sg>
I tried:
my $ua = new LWP::UserAgent;
my $cookie_jar = new HTTP::Cookies;
my $request = new HTTP::Request('GET', $url, $h);
:
:
$response = $ua->request($request);
$cookie_jar->extract_cookies($response);
extrac_cookies doesn't work
In article <8opst2$asr$1@nnrp1.deja.com>, rmore1@my-deja.com says...
> In article <MPG.141a75dd568cd7da989683@news.cyberway.com.sg>,
> DT <dsa@dassda.com> wrote:
> > How to use HTTP::Cookies and HTTP::Requestto read cookie from an URL
> > request and set cookie to an URL? thanks!
> >
> From: perldoc LWP::UserAgent
>
> $ua->cookie_jar([$cookies])
> Get/set the HTTP::Cookies object to use. The default
> is to have no cookie_jar, i.e. never automatically add
> "Cookie" headers to the requests.
>
> And from: perldoc HTTP::Cookies
>
> $cookie_jar->add_cookie_header($request);
> The add_cookie_header() method will set the
> appropriate Cookie:-header for the HTTP::Request
> object given as argument. The $request must have a
> valid url attribute before this method is called.
>
> $cookie_jar->extract_cookies($response);
> The extract_cookies() method will look for Set-Cookie:
> and Set-Cookie2: headers in the HTTP::Response object
> passed as argument. Any of these headers that are
> found are used to update the state of the $cookie_jar.
> --
> =============================
> Richard More
> http://www.richmore.com/
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
------------------------------
Date: 1 Sep 2000 08:19:07 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Jumping to the previous row with DBI
Message-Id: <8onl9b$lk1$1@orpheus.gellyfish.com>
On Thu, 31 Aug 2000 17:22:20 GMT reschramz@my-deja.com wrote:
> In article <slrn8qsokm.ucf.mgjv@martien.heliotrope.home>,
> mgjv@tradingpost.com.au wrote:
>> On Wed, 30 Aug 2000 15:11:52 +0200,
>> Hans Eriksson <Hans.X.Eriksson@etx.ericsson.se> wrote:
>> > Hello!
>> >
>> > Does anyone know if it is possible to go to the prevoius row when
> using
>> > the Perl DBI interface? I.e. -- Is it possible to "go back" when a
>> > $sth->fetchrow has been issued?
>>
>> Unless you cache them yourself, I doubt very much it's possible. I've
>> never seen anything that would do the job. I've never seen anything
> like
>> that in any other database drivers (that I've worked with) either.
> I've
>> never needed it. I think you probably will have to cache the stuff
>> yourself and use that.
>>
>
> Hey come on! We can get creative about this. We just need to know what
> kind of data is being delivered by the fetchrow_array(). Is there so
> much that you would not want to use fetchrow_arrayref(), and traverse
> back and forth yourself?
>
I think that is what Martien meant by 'cache the stuff yourself and use
that' .
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 1 Sep 2000 08:24:20 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Jumping to the previous row with DBI
Message-Id: <8onlj4$lkg$1@orpheus.gellyfish.com>
On Fri, 1 Sep 2000 00:50:14 +1100 Martien Verbruggen wrote:
> On Wed, 30 Aug 2000 15:11:52 +0200,
> Hans Eriksson <Hans.X.Eriksson@etx.ericsson.se> wrote:
>> Hello!
>>
>> Does anyone know if it is possible to go to the prevoius row when using
>> the Perl DBI interface? I.e. -- Is it possible to "go back" when a
>> $sth->fetchrow has been issued?
>
> Unless you cache them yourself, I doubt very much it's possible. I've
> never seen anything that would do the job. I've never seen anything like
> that in any other database drivers (that I've worked with) either. I've
> never needed it.
Informix has 'fetch previous' on a cursor - however, no, its not
implemented in DBD::Informix.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 2 Sep 2000 05:49:59 GMT
From: dha@panix.com (David H. Adler)
Subject: Re: Managing Temporary Directories/Files
Message-Id: <slrn8r1587.303.dha@panix6.panix.com>
On Fri, 01 Sep 2000 06:54:17 -0400, Rick Nakroshis
<nakroshis@smart.net> wrote:
>"David H. Adler" wrote:
>> http://www.brian-d-foy.com/style.html
>
>The fact that there's a URL for the style guide ought to be a Flaming
>Clue, but I'll do the newbie-esque thing and ask any way...
>
>Who is brian d foy?
One of many possible answers can be found at
http://www.perl.org/perl6/ :-)
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"I may have been away with the Grapefruit-Powered Electric Zebras by
the time I wrote this post." - Richard Jones in
<359b9f7b.112710@news.demon.co.uk>
------------------------------
Date: 1 Sep 2000 07:30:49 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Modem communication (/dev/ttyS*)
Message-Id: <8oniep$ld9$1@orpheus.gellyfish.com>
On Thu, 31 Aug 2000 07:47:43 GMT ambrosa@hsgerardo.org wrote:
> A very stupid question but ... I haven't made this before :-))
>
> I want write a small perl application that use a modem to connect to
> remote host, send some data and read (and save) the result.
> The remote host don't matter me.
>
> Linux redhat6.2 platform, perl 5.005-03
>
>
> Which is the best way (using alarm to manage the timeout) to "speak"
> with /dev/ttyS* ??
>
> Using a open(FH,"+</dev/ttyS1") doesn't work properly obviously.
You will probably find the entry in perlfaq8 'How do I read and write the
serial port ?' useful. You may also find that there is a module on CPAN
that will help.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Sat, 02 Sep 2000 05:35:07 GMT
From: Jeff Thies <cyberjeff@sprintmail.com>
Subject: module install questions (RH)
Message-Id: <39B091DA.9C979933@sprintmail.com>
I'm having a hard time understanding module installation... (related
post in comp.lang.perl.modules). I'm installing in my local directory
with PREFIX=/home/cyberjef/modules, actually ./configure --prefix=/ ...
.
I'm getting some errors on make install like:
/usr/bin/ld: cannot open -lgdbm: No such file or directory
collect2: ld returned 1 exit status
make[4]: *** [PerlMagick] Error 1
make[4]: Leaving directory `/home/cyberjef/ImageMagick-5.2.3/PerlMagick'
make[3]: *** [PerlMagick] Error 2
make[3]: Leaving directory `/home/cyberjef/ImageMagick-5.2.3/PerlMagick'
make[2]: *** [PerlMagick/PerlMagick] Error 2
make[2]: Leaving directory `/home/cyberjef/ImageMagick-5.2.3'
make[1]: *** [install-am] Error 2
make[1]: Leaving directory `/home/cyberjef/ImageMagick-5.2.3'
make: *** [install-recursive] Error 1
Are these fatal errors? How do I find what they mean? I don't seem to be
able to find all the installed libs and I can't find the .pm file.
When is the "some_module.pm" created, is it after make, or make install?
Also, I'm curious about make test (this module doesn't have that, is
that because of the ./configure ) or is make test dependant on module
construction? Is make test just a dry run for make install?
I saw this here:
perl Makefile.PL LIB=/<path>/<to>/<module>/<dir>
I seem to be missing much of the lib library and some others, can I take
these from a binary install and add them (paths) to the ./configure.
If I'm installing in my local directory, does it make more sense to use
static libraries rather than shared, and what does that mean? Where
would they be installed?
Can't seem to find the ImageMagick mail list (I thought I subscribed),
anyone know where to find it, or is it real low volume.
Cheers,
Jeff
I've been having a hard time on usenet lately, feel free to flame me for
any usenet violations...
------------------------------
Date: 1 Sep 2000 07:51:59 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Novice question: Interpolating embedded variables from a template file
Message-Id: <8onjmf$lff$1@orpheus.gellyfish.com>
On Wed, 30 Aug 2000 14:42:16 +0200 Toni wrote:
> Hello!
>
> I've a template html file where I've embedded scalar vars in this way:
>
You will find the item in perlfaq4 : 'How I do expand variables in text
strings?' useful.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Sat, 02 Sep 2000 01:30:12 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: open web file
Message-Id: <39B0BA94.E7D676E6@stomp.stomp.tokyo>
Gwyn Judd wrote:
> Abigail wrote:
> > Gwyn Judd wrote:
> > > Abigail wrote:
(snippage)
> Not necessarily. It could be done by a module so that anyone who uses
> that module gains the magic'ness that module has added to open. I'm
> really talking about making open() extensible.
Why? This difference between open and get,
difference between file and URL, works quite
perfectly as is.
Have any of you considered how many modules
will quit working, how much perl core will
have to be changed and, have you considered
these new bugs which will come crawling out?
Leave it alone. It is a very fine system as is.
Jeeeshh.... obsessive techno-geeksters. I bet
people just like you made cars stupid with
high technology. Ever notice today's cars
are so stupid, they think a door is a jar?
Godzilla!
--
#!/abuser/locally/mostly/perl -wT
use Strict;
use Diagnostics;
use WD-40;
use Crap (Fubar to Bow Wows);
abuse CGI;
use CGI quirk (Ramus Rubber)
use PAIN;
use KY-Jelly;
use De De De DDEBUGGING;
use LWP:Complex;
use submarines;
print "Hello World!"
exit;
------------------------------
Date: Sat, 02 Sep 2000 08:49:56 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: open web file
Message-Id: <slrn8r1fpi.l5h.tjla@thislove.dyndns.org>
I was shocked! How could Abigail <abigail@foad.org>
say such a terrible thing:
>Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLIX September MCMXCIII
>in <URL:news:slrn8r0rhg.k0a.tjla@thislove.dyndns.org>:
>][
>][ Not necessarily. It could be done by a module so that anyone who uses
>][ that module gains the magic'ness that module has added to open. I'm
>][ really talking about making open() extensible.
>
>But then you still require an explicit use of the module.
True. Perl (and perl) should be able to use modules behind your back.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
BOFH excuse #439:
Hot Java has gone cold
------------------------------
Date: 2 Sep 2000 05:52:50 GMT
From: dha@panix.com (David H. Adler)
Subject: Re: Partner Required. Perl Programmer
Message-Id: <slrn8r15di.303.dha@panix6.panix.com>
On Wed, 30 Aug 2000 16:39:26 GMT, Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "R" == Rob <Rob@barbados.cc> writes:
> R> An SQL database the latest perl DBI
> i will now wait
> R> module the latest perl DBD
>for the dhabot to kick in (hi dha!)
Nah. You guys seem to have this one sorted. :-)
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"In my opinion, there's nothing in this world beats a '52 Vincent and
a red headed girl" - James Adie
------------------------------
Date: Sat, 02 Sep 2000 12:06:47 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: Q. relating to perlfaq(4) / sort
Message-Id: <7gj1rsk11srribhf8e57o612vk39t5ke4d@4ax.com>
On 01 Sep 2000 16:27:48 -0500, Ren Maddox <ren.maddox@tivoli.com> wrote:
> Larry Rosler <lr@hpl.hp.com> writes:
...
> > One can use a fixed-width sprintf format for non-negative floating-point
> > numbers. For an extreme example, sprintf '%40.20f'. But one can more
> > compactly use binary double-precision (8 bytes), provided the
> > representation is big-endian (and byte-reversed otherwise). That also
> > handles signed floating-point numbers. No trailing null is needed,
> > provided any other sortkeys are also fixed-width.
> >
> > All this is shown in Appendix B of the paper, including an experiment to
> > determine endian-ness.
>
> I'm sure I'm just missing something, but I still do not see how to
> apply the information in Appendix B to arbitrary length "string"
> numbers (and not just integers, to boot).
>
> I am referring to a numerical-style sort of something like:
This might not be the best way, but it does the job.
#!/usr/bin/perl -w
use strict;
my @data = (
'123.342',
'-23234',
'2347872347878273878984527636598264368234',
'1234878234' x 100,
'-' . '23423423' x 50,
);
# preprocess to find the max len:
my($ml, $fl) = (0, 0);
for (@data) {
/^(?:-)?(\d+)(?:\.(\d+))?$/ or die "Invalid number: $_";
$ml < length $1 and $ml = length $1;
defined $2 and $fl < length $2 and $fl = length $2;
}
# the main map() negates (tens complement?) the abs value of
# negative numbers and prepends a sortable sign
my @orderd = map substr($_, $ml + $fl + 2) => sort
map {
/^(-)?(\d+)(?:\.(\d+))?$/;
my $sign = $1?'0':'1'; # swap for descending order
my $frac = $3 || 0;
(my $tmp = sprintf "%${ml}s.%${fl}s", $2, $frac)
=~ tr/ /0/;
$sign . join("", map { /\./?'.':$sign?$_:9-$_ }
split //, $tmp) . $_;
} @data;
print "$_\n\n" for @orderd;
--
Good luck,
Abe
------------------------------
Date: Sat, 02 Sep 2000 10:20:20 +0200
From: Bo Hedemark Pedersen <bhp@uni-c.dk>
Subject: source code for newsgroups functionality
Message-Id: <39B0B844.B6601F71@uni-c.dk>
Does anyone know if any open source code for Usenet-newsgroups
functionality (i.e. perl-scripts manipulating an underlying database
structure thereby obtaining newsgroup functionality with the opportunity
of adding/removing groups and messages in these and of course threading
messages) in cgi-perl (it is to be used by a webserver) exists?
TIA,
Bo
------------------------------
Date: Sat, 02 Sep 2000 04:45:01 GMT
From: "Mark McCarthy" <markmccarthy1@home.com>
Subject: Re: working out signatures
Message-Id: <hB%r5.46852$xg1.454768@news1.rdc1.sdca.home.com>
Whenever I feel cocky and think I'm gaining a modicum of perl mastery, I
always take a JAPH reality check to bring me back down to earth ...
Mark McCarthy
------------------------------
Date: Sat, 02 Sep 2000 01:09:32 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: working out signatures
Message-Id: <39B0B5BC.E65065C6@stomp.stomp.tokyo>
Mark McCarthy wrote:
> Whenever I feel cocky and think I'm gaining a modicum of
> perl mastery, I always take a JAPH reality check to bring
> me back down to earth ...
Have any of you ever considered leaving
this Cargo Cult, venturing out on your
own, being different, not simply being
just another sheep in the flock?
Godzilla!
--
print "Just Another Hairball Hacker";
------------------------------
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 4207
**************************************
