[18444] in Perl-Users-Digest
Perl-Users Digest, Issue: 612 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 3 03:06:02 2001
Date: Tue, 3 Apr 2001 00:05:35 -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: <986281534-v10-i612@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 3 Apr 2001 Volume: 10 Number: 612
Today's topics:
(2nd follow-up) Re: parrot!?! <webmaster@webdragon.unmunge.net>
[ANNOUNCE] DNA.pm 0.01 <schwern@blackrider.aocn.com>
Re: acceccing files on localhost ? <goldbb2@earthlink.net>
Re: Advice on speeding up Perl launch (Alan Barclay)
ANNOUNCE: DDL::Oracle v1.07 <rvsutherland@yahoo.com>
ANNOUNCE: Net::Dict 2.00 <neilb@cre.canon.co.uk>
Re: ANNOUNCEMENT: SuperPython-0.91 released (Gwyn Judd)
Re: automatic email of data file (David Efflandt)
binaries with Net::SMTP <root@novastar.dtds.net>
Re: binaries with Net::SMTP <root@novastar.dtds.net>
Callback 1.03 released - now supports serialization. (David Muir Sharnoff)
cannot connect to databse <north@nmpm.com.my>
Re: Chroot and IO::Socket::INET (Garry Williams)
Re: cookies.how do I put one on a image? (Logan Shaw)
Re: Current filename in one-liner - How? <tinamue@zedat.fu-berlin.de>
Re: DBI AS/400? (Alan Barclay)
Re: Disguising Perl scripts <gtoomey@usa.net>
Re: evaluating a dereference in a method call (Garry Williams)
Expect.pm problem <orinoki@hotmail.com>
Re: external shell commands with perl script (Kragen Sitaker)
Extract JPEG's Width & Height - How? <ddumond@firstauto.com>
Re: Extract JPEG's Width & Height - How? <gtoomey@usa.net>
Re: Formatting HTML using Perl <educool@mpx.com.au>
Re: Formatting HTML using Perl <moiraine@qwest.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 2 Apr 2001 13:11:30 GMT
From: "Scott R. Godin" <webmaster@webdragon.unmunge.net>
Subject: (2nd follow-up) Re: parrot!?!
Message-Id: <9a9tq2$mjv$6@216.155.32.18>
In article <wOTx6.64$u15.15376@news.interact.net.au>,
"Chris W" <chrisw+usenet@dynamite.com.au> wrote:
| He he he
|
| I guess they'll have to implement a Patch Seed Block to pass around.
|
|
I'm thinking one should also avoid any Python references, especially if
one is an ex-parrot programmer. ;)
--
unmunge e-mail here:
#!perl -w
print map {chr(ord($_)-3)} split //, "zhepdvwhuCzhegudjrq1qhw";
# ( damn spammers. *shakes fist* take a hint. =:P )
------------------------------
Date: 01 Apr 2001 18:24:51 +0100
From: Michael G Schwern <schwern@blackrider.aocn.com>
Subject: [ANNOUNCE] DNA.pm 0.01
Message-Id: <87y9tky1lo.fsf@localhost.localdomain>
Not to be outdone by the Brits (see Leon's Buffy.pm
http://www.astray.com/Buffy/), American innovation brings us DNA.pm!
http://www.pobox.com/~schwern/src/ if it hasn't made it to CPAN yet.
NAME
DNA - Encodes your Perl program into an Amino Acid sequence
SYNOPSIS
use DNA;
CCAA CCAA AAGT CAGT TCCT CGCT ATGT AACA CACA TCTT GGCT TTGT AACA GTGT
TCCT AGCT CAGA TAGA ACGA TAGA TAGA CAGA TAGA CAGA CAGA CAGA TAGA CAGA
CAGA CAGA TAGA ATGA TAGA TAGA GTGA CAGA TAGA CTGA CAGA TAGA CAGA CAGA
CAGA TAGA TTGA CAGA TAGA CTGA TAGA CAGA CTGA TAGA TCGA CTGA ATGA TAGA
TAGA TAGA CAGA TAGA ACGA TAGA ACGA TAGA TAGA TAGA TAGA TAGA TAGA TAGA
CTGA CAGA CAGA TTGA TAGA CAGA ATGA CAGA TAGA TAGA GAGA TAGA GTGA CAGA
CAGA GTGA TAGA TAGA TTGA TAGA CAGA TAGA CAGA TCGA TTGA CAGA AGCT AACA
TACT AGCT AGCT AACA TTGT GAGT TTCT AACA GTTT TCCT CGCT ATCT GGCT GTGT
CAGA CAGA TAGA TAGA GAGA TAGA TAGA GAGA TAGA CAGA TAGA GTGA GTGA TAGA
GTGA GAGA ATGA TAGA TAGA CAGA TAGA TAGA CAGA TAGA TAGA CAGA TAGA CAGA
TAGA CAGA TAGA TAGA TAGA CAGA CTGA GAGA CAGA TCGA GTGA TAGA ATGA TAGA
TAGA CAGA ATGA TAGA TTGA TAGA CAGA TAGA TAGA TAGA CAGA CAGA TAGA TAGA
ATGA CTGA TAGA ATGA TAGA ATGA ATGA TAGA TAGA TAGA TAGA TAGA CAGA TAGA
CAGA TAGA TAGA CAGA TAGA ACGA ACGA TAGA CAGA TAGA GAGT TACA AGTT CGCT
CACA GCGA CCAA CCAA
DESCRIPTION
So you say you're a rabid Perl programmer? You've got a Camel tattooed
on your arm. You took your wife to TPC for your second honeymoon. But
you're worried about your children, they might not be such devoted Perl
addicts. How do you guarantee the continuation of the line? Until now,
there was no solution (what, do you think they teach Perl in school?!)
Through the magic of Gene Splicing, now you can encode your very genes
with the essense of Perl! Simply take your best one-liner, encode it
with this nifty DNA module and head on down to your local sperm bank and
have them inject that sucker in.
As the encoding of programs on bacterial DNA will soon revolutionize the
data storage industry, I'm downloading the necessary forms from the US
patent office as I write. Imagine, all of CPAN on an airborne bacteria.
You can breathe Perl code!
When you use the DNA module on your code, the first time through it will
convert your code into a series of DNA sequences. Of course, most of the
DNA is simply junk. We're not sure why... someone spilled coffee on the
documentation.
There's also a slight chance on each use that a mutation will occur...
or maybe its a bug in perl, we're not sure. Of course, this means your
code may suddenly fall over dead... but you made a few million copies,
right?
POD will, of course, be preserved. God made the mistake of not writing
docs, and look at all the trouble we've had to go through to figure out
his code!
NOTES
The tests are encoded in DNA! But it sometimes introduces bugs... oh
dear.
BUGS
There were only a few flipper babies.
SEE ALSO
the Sex manpage, the Morse manpage, the Bleach manpage, the Buffy
manpage, a good psychiatrist.
AUTHOR
Michael G Schwern <schwern@pobox.com>
--
Michael G. Schwern <schwern@pobox.com> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <perl-qa@perl.org> Kwalitee Is Job One
Monkey tennis
------------------------------
Date: Tue, 03 Apr 2001 07:02:32 GMT
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: acceccing files on localhost ?
Message-Id: <3AC97667.EC971B5F@earthlink.net>
kellyboy wrote:
>
> ok...Im going to go at it from different approach..
>
> my apache is on /usr/local/apache
> cgi-bin is /usr/local/apache/cgi-bin
>
> I have directory /home/kellyboy/image
>
> Using cgi script locating in /usr/local/apache/cgi-bin, how would you
> write a script to retreive images from /home/kellyboy/image
>
> my script I got is this:
> ==================
> #!/usr/local/bin/perl -w
>
> use CGI qw(:standard);
>
> print header,start_html("Graphic Explorer");
>
> @files = glob("/home/kellyboy/image/*.jpg");
> foreach $pix (@files) {
> print img(src=>'$pix');
> print p("$pix\n");
> print hr();
> }
> print end_html;
> ==================
> that doesnt work: All I got is this source as a result:
> <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
> <HTML><HEAD><TITLE>Graphic Explorer</TITLE>
> </HEAD><BODY><HR></BODY></HTML>
>
> seems it didnt fill in img tag between the body tag...
>
It seems to me that glob is returning an empty list, which of course
results in nothing being printed.
Of course, considering where the images are located, even if the script
worked, the images wouldn't show up.
So, why is glob returning an empty list? One of two things: Either
there are no .jpg files in the directory /home/kellyboy/image/ or else
glob cannot read /home/kellyboy/image/. I think I can assume that it's
the latter not the former.
So, why can't glob [the script] read the directory? Well, the script is
run as user "nobody" and the owner of the directory is probably
"kellyboy". What are the permissions on the directory, and on the
files?
--
Sometimes the journey *is* its own reward--but not when you're trying to
get to the bathroom in time.
------------------------------
Date: 1 Apr 2001 21:33:25 GMT
From: gorilla@elaine.furryape.com (Alan Barclay)
Subject: Re: Advice on speeding up Perl launch
Message-Id: <986160783.695059@elaine.furryape.com>
In article <3ac67ecc$1@news.dsldesigns.com>,
David Akers <David@TheAkers.com> wrote:
>I am running a web server with Activestate perl, Apache running on windows
>98.
>
>It takes 3 seconds to launch any Perl script - not bad really, but I would
>like it to be a bit more snappy.
>
>I thought about Apache Mod perl, but cannot find a binary distribution for
>windows, and I am not really set-up to do my own compiles.
Indigo perl comes bundled with a mod perl enabled
apache. http://www.indigostar.com/indigoperl.html
------------------------------
Date: Sun, 1 Apr 2001 12:01:48 -0400
From: "Richard Sutherland" <rvsutherland@yahoo.com>
Subject: ANNOUNCE: DDL::Oracle v1.07
Message-Id: <tcijvrc5msf4d5@corp.supernews.com>
===========================================================================
Release of DDL::Oracle, Version 1.07
===========================================================================
CHANGES
Added object type 'components' which generates a combined string containing
the CREATE statements for all objects of following types:
TABLESPACES
ROLLBACK SEGMENTS
PUBLIC DATABASE LINKS
SYNONYMS
PROFILES
ROLES
USERS
Added object type 'comments' which generates table/column comments
by themselves (without the CREATE TABLE statement).
Fixed a bug reported by Steve Humpage where trigger WHEN clauses
sometimes contain a NULL. Thanks, Steve!
Fixed a bug reported by Remke Rutgers regarding the use of ENABLE
on Oracle 7.3.3 constraints. Thanks, Remke!
SYNOPSIS
use DBI;
use DDL::Oracle;
my $dbh = DBI->connect(
"dbi:Oracle:dbname",
"username",
"password",
{
PrintError => 0,
RaiseError => 1
}
);
# Use default resizing and schema options.
# query default DBA_xxx tables (could use USER_xxx for non-DBA types)
DDL::Oracle->configure(
dbh => $dbh,
);
# Create a list of one or more objects
my $sth = $dbh->prepare(
"SELECT
owner
, name
FROM
dba_tables
WHERE
tablespace_name = 'MY_TBLSP' -- your millage may vary
"
);
$sth->execute;
my $list = $sth->fetchall_arrayref;
my $obj = DDL::Oracle->new(
type => "table",
list => $list, );
);
my $ddl = $obj->create; # or $obj->resize; or $obj->drop; etc.
print $ddl; # Use STDOUT so user can redirect to desired file.
AUTH
OR
Richard V. Sutherland
rvsutherland@yahoo.com
COPYRIGHT
Copyright (c) 2000, 2001 Richard V. Sutherland. All rights reserved.
This module is free software. It may be used, redistributed, and/or
modified under the same terms as Perl itself. See:
http://www.perl.com/perl/misc/Artistic.html
===========================================================================
AVAILABILITY
===========================================================================
DDL::Oracle is available from the CPAN, and from:
http://sourceforge.net/projects/ddl-oracle/
------------------------------
Date: Sun, 1 Apr 2001 16:55:35 GMT
From: Neil Bowers <neilb@cre.canon.co.uk>
Subject: ANNOUNCE: Net::Dict 2.00
Message-Id: <tcijunhmb16hb9@corp.supernews.com>
Net::Dict 2.00 is making its way round CPAN:
file: $CPAN/authors/id/N/NE/NEILB/Net-Dict-2.00.tar.gz
size: 24758 bytes
md5: 956ac0fd05501834c5209b4de45aec86
This is a class for accessing network dictionary (DICT) servers,
and provides a client API for the protocol described in RFC 2229.
The distribution also includes two sample clients:
dict - a simple command-line client
tkdict - a simple GUI client based on Perl/Tk
Major changes since the last public release:
* API for the constructor has changed (hence new major version) -
a DICT host *must* now be given as the first argument.
No longer supports Net::Config for specifying default host(s).
* A basic testsuite added
* Fixed bugs which meant you couldn't look up multi-word entries.
* More inline documentation
More details are available in the ChangeLog file in the distribution.
Neil
------------------------------
Date: Mon, 02 Apr 2001 09:51:56 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: ANNOUNCEMENT: SuperPython-0.91 released
Message-Id: <slrn9cgitr.19v.tjla@thislove.dyndns.org>
I was shocked! How could Mark-Jason Dominus <mjd@plover.com>
say such a terrible thing:
>(I have crossposted this to comp.lang.python because it may be of
>general interest there also.)
Congratulations. You win my award for the first april fools joke this
year that actually made me laugh :)
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Noncombatant, n.:
A dead Quaker.
-- Ambrose Bierce, "The Devil's Dictionary"
------------------------------
Date: Tue, 3 Apr 2001 05:03:40 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: automatic email of data file
Message-Id: <slrn9cimdj.mq.efflandt@efflandt.xnet.com>
On Mon, 02 Apr 2001 01:29:02 GMT, ted <tlav1@mediaone.net> wrote:
>For the email question check out the module MIME::Lite
>
>For setting up a daily time to have the file emailed to you try "man crontab" (
>no quotes ) at UNIX command line.
>
>Never encountered a textarea leaving <BR>s, usually textareas leave "\n"s or
>"\r"s. CGI.pm usually takes care of stuff like that pretty well.
A text area may include carriage return, linefeed pairs (regardless of
browser OS) which apparently the script converts to <BR>. Just search the
script for <BR> or <br> (whichever) and replace it with a space.
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Mon, 2 Apr 2001 10:15:38 +0300
From: "novastar" <root@novastar.dtds.net>
Subject: binaries with Net::SMTP
Message-Id: <986195439.688961@athnrd02.forthnet.gr>
Is there any way to post binaries with Net::SMTP module ? I can post plain
text but what about small images (gif) ?
------------------------------
Date: Mon, 2 Apr 2001 11:20:14 +0300
From: "novastar" <root@novastar.dtds.net>
Subject: Re: binaries with Net::SMTP
Message-Id: <986199317.550661@athnrd02.forthnet.gr>
Thanks Logan,
I knew it, it would be hard !
George
"Logan Shaw" <logan@cs.utexas.edu> wrote in message
news:9a9blv$b17$1@boomer.cs.utexas.edu...
> In article <986195439.688961@athnrd02.forthnet.gr>,
> novastar <root@novastar.dtds.net> wrote:
> >Is there any way to post binaries with Net::SMTP module ? I can post
plain
> >text but what about small images (gif) ?
>
> SMTP allows you to send mail messages.
>
> Those mail messages may contain attachments, but that's
> pretty much a separate issue from sending the mail messages.
>
> I suggest if you want to create messages with attachments
> that you look into the MIME-tools distribution. See
> http://search.cpan.org/search?mode=dist&query=MIME-tools .
>
> - Logan
> --
> whose? my your his her our their _its_
> who's? I'm you're he's she's we're they're _it's_
------------------------------
Date: Tue, 03 Apr 2001 04:22:30 -0000
From: muir@idiom.com (David Muir Sharnoff)
Subject: Callback 1.03 released - now supports serialization.
Message-Id: <tcik063vnmfqdf@corp.supernews.com>
Raphael Manfredi <Raphael_Manfredi@pobox.com> has updated
Callback to add support for serialization. Method invocation
callbacks can now be stored on disk.
You can find the new version at:
http://www.cpan.org/authors/id/MUIR/modules/Callback-1.03.tar.gz
-Dave
NAME
Callback - object interface for function callbacks
SYNOPSIS
use Callback;
my $callback = new Callback (\&myfunc, @myargs);
my $callback = new Callback ($myobj, $mymethod, @myargs);
$callback->call(@some_more_args);
DESCRIPTION
Callback provides a standard interface to register callbacks. Those
callbacks can be either purely functional (i.e. a function call with
arguments) or object-oriented (a method call on an object).
When a callback is constructed, a base set of arguments can be provided.
These function arguments will preceed any arguments added at the time
the call is made.
There are two forms for the callback constructor, depending on whether
the call is a pure functional call or a method call. The rule is that if
the first argument is an object, then the second argument is a method
name to be called on that object. Method resolution happens at the time
the Callback object is built: an error will be raised if it cannot be
found.
Callback objects built for object-oriented calls also have the property
of being serializable via Storable. Purely functional callabacks are not
serializable because CODE references are not supported by Storable.
TRACING
use Callback qw(@callbackTrace);
If you're writing a debugging routine that provides a stack-dump (for
example, Carp::confess) it is useful to know where a callback was
registered.
my $ct = 0;
while (($package, $file, $line, $subname, $hasargs, $wantarray) = caller($i++)) {
...
if ($subname eq 'Callback::call') {
print "callback registered $Callback::callbackTrace[$ct]\n";
$ct++;
}
}
Without such code, it becomes very hard to know what's going on.
COPYRIGHT
Copyright (C) 1994, 2000, David Muir Sharnoff. All rights reserved.
License hearby granted for anyone to use this module at their own risk.
Please feed useful changes back to muir@idiom.com.
AUTHORS
David Muir Sharnoff <muir@idiom.com> and Raphael Manfredi
<Raphael_Manfredi@pobox.com>
SEE ALSO
Storable(3).
--
--
Notice: Your mouse has been moved. Windows will now restart so this
change can take effect.
------------------------------
Date: Tue, 03 Apr 2001 12:53:37 +0800
From: miss <north@nmpm.com.my>
Subject: cannot connect to databse
Message-Id: <3AC95751.9044370@nmpm.com.my>
Dear Sir;
I would like to connect my Perl program with MSSql database.
My web server supplier install DBI.pm file into the cgi-bin directory :
but when I run my code it come out error :
The specified CGI application misbehaved by not returning a complete set
of HTTP headers. The headers it did return are:
Can't locate loadable object for module DBI in @INC (@INC contains:
e:/xx/xx/x.com/cgi-bin c:/Perl/lib c:/Perl/site/lib .) at
e:/xx/xx/x.com/cgi-bin/dbi.pm line 158
BEGIN failed--compilation aborted at e:/xx/xx/x.com/cgi-bin/dbi.pm line
158.
BEGIN failed--compilation aborted at E:\xx\xx\x.com\cgi-bin\testing.pl
line 15.
So,how should i settle this?
Thanks alot.
------------------------------
Date: Tue, 03 Apr 2001 04:29:25 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: Chroot and IO::Socket::INET
Message-Id: <slrn9cikd5.sak.garry@zfw.zvolve.net>
On Tue, 03 Apr 2001 01:20:53 GMT, Scott <admin@gatordev.net> wrote:
> I'm running Apache in a chroot environment on the latest version of
> FreeBSD.
> I tried to run a perl script that opens up an internet socket..
> I get this error: cannot determine protocol
> the socket is constructed with proto => 'tcp'
> Just for laughs I made a oneline perl script that reads:
> print getprotobyname('tcp');
> That will print out a value when ran outside the chroot but not inside.
> This leads me to believe that I need to put some system libraries into
> my
> chroot, since perl's socket stuff is dependent upon them, but I don't
> know which ones. Any help is appreciated.
/etc/inet/protocols (on Solaris 7) -- YMMV
The manual could have helped:
$ man getprotobyname
...
The entry may come from one of the following sources: the
protocols file (see protocols(4)), the NIS maps
...
$ man -s 4 protocols
...
SYNOPSIS
/etc/inet/protocols
--
Garry Williams
------------------------------
Date: 2 Apr 2001 01:42:00 -0500
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: cookies.how do I put one on a image?
Message-Id: <9a96vo$8ek$1@boomer.cs.utexas.edu>
In article <3ac81612.7513138@news.aruba.it>, <gabloid@eudoramail.com> wrote:
>I'd like to know if it is possible to put a cookie on a image, so that
>how download it sends me back the cookie..
I would like to know some tasty recipes for cooking pork chops, but I'm
not going to ask in comp.lang.perl.misc. :-)
I don't think you can put a cookie inside an image. You could
dynamically generate HTML with an ever-changing link to a CGI that
allows the user to download the image.
- Logan
--
whose? my your his her our their _its_
who's? I'm you're he's she's we're they're _it's_
------------------------------
Date: 2 Apr 2001 08:30:22 GMT
From: Tina Mueller <tinamue@zedat.fu-berlin.de>
Subject: Re: Current filename in one-liner - How?
Message-Id: <9a9dau$45dfe$1@fu-berlin.de>
hi,
Lars Eighner <eighner@io.com> wrote:
> How can I use the current filename in a one-liner?
> For example:
> perl -pi -e "s/flastmod file\=\"/flastmod file\=\"$$$$/g" *.html
> The $$$$ is where I want the name of whatever the current file
> is. $ARGV doesn't work outside of a glob, so it doesn't work
> here.
for me $ARGV contains the current filename. i'm on
linux 2.2.13, perl 5.6 and Sun 5.7 perl 5.005...
i did a perl -pi -e 's/test/TEST $ARGV/' file*
hth,
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
------------------------------
Date: 1 Apr 2001 21:30:52 GMT
From: gorilla@elaine.furryape.com (Alan Barclay)
Subject: Re: DBI AS/400?
Message-Id: <986160608.843251@elaine.furryape.com>
In article <3ac6b89e.4851928@pubnews.netcom.net.uk>,
Jason <none@none.com> wrote:
>Actuly the AS/400 uses the db2/udb. You should be able to use the perl
>DBD::DB2 with standard sql statements.
Thanks for that. I use DBD:DB2 to a mainframe, but I wasn't 100% sure
if AS/400's supported DB2, and didn't want to mislead the original poster.
------------------------------
Date: Mon, 2 Apr 2001 19:37:20 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: Disguising Perl scripts
Message-Id: <xyXx6.7682$45.45171@newsfeeds.bigpond.com>
One way would be to encrypt the scripts, then decrypt and run them "on the
fly".
DES, or even "rot 13" (or better still - write your own rot 128) spring to
mind as suitable encryption algorithms.
gtoomey
------------------------------
Date: Mon, 02 Apr 2001 14:35:08 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: evaluating a dereference in a method call
Message-Id: <slrn9ch3gs.s5r.garry@zfw.zvolve.net>
On 2 Apr 2001 14:01:46 GMT, Eric Smith <eric@fruitcom.com> wrote:
> How may I get the following working two lines ...
>
> my $ldap_method=$_[0]->{ldap_method};
> my $result = $ldap->$ldap_method(&return_ldap_entry_object);
>
> into one line ... (nievely) like ...
> my $result = $ldap->$_[0]->{ldap_method}(&return_ldap_entry_object);
> ... which does not work as do not a number of permutations I have
> tried.
You cannot.
This from the perlobj manual page:
Sometimes you want to call a method when you don't know the
method name ahead of time. You can use the arrow form,
replacing the method name with a simple scalar variable
^^^^^^^^^^^^^^^^^^^^^^
containing the method name or a reference to the function.
--
Garry Williams
------------------------------
Date: Sun, 1 Apr 2001 15:24:47 +0200
From: "Richard Jones" <orinoki@hotmail.com>
Subject: Expect.pm problem
Message-Id: <3ac72a26@news.bezeqint.net>
Hi
I'm using Expect.pm on UNIX (FreeBSD) and I'm trying to create expect
sessions using telnet.
I'm having some problems with it.
It works fine until for no reason it gets stuck and it is unable to connect.
Even after a short delay it has problems.
An hour later it suddenly works again.
Maybe it has to do with a lack in some sort of resource?
Maybe you know how can I debug it?
If you know what maybe the problem please advise.
thanks Rick.
--
______________________________________________________________________
Ori Aruj mailto:ori@cwnt.com
Charlotte's Web Networks Ltd. http://www.cwnt.com
Tel: 972-4-9592203 (Ext. 223) Fax: 972-4-9593325
Location: 2 Ha'Mada St., Yokneam
Mail: P.O.Box 333, Yokneam Moshava 20600, ISRAEL.
------------------------------
Date: Sun, 01 Apr 2001 22:52:59 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: external shell commands with perl script
Message-Id: <fjOx6.16437$BC6.4261600@e3500-chi1.usenetserver.com>
In article <3AC2AA06.2A1471B@netscape.net>,
The Noatec <Noatec@netscape.net> wrote:
>Hello all,
>Quick and simple question.
>How would I execute a korn, or other shell command with a perl script.
>I used it once and cannot find the script it is in or a reference in my
>perl 5 book.
With system. system("ls");
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Perilous to all of us are the devices of an art deeper than we possess
ourselves.
-- Gandalf the White [J.R.R. Tolkien, "The Two Towers", Bk 3, Ch. XI]
------------------------------
Date: Mon, 2 Apr 2001 10:09:02 -0400
From: "Dave Dumond" <ddumond@firstauto.com>
Subject: Extract JPEG's Width & Height - How?
Message-Id: <tch1pu1t0rhje0@corp.supernews.com>
Is it possible to use Perl to open a JPEG binary file and extract the JPEG's
width and height parameters?
If so, any guidance and/or direction on how to do this would be appreciated.
I'm developing a CGI Perl script that makes HTML presentation decisions
based upon the physical dimensions of the JPEG image.
Thanks in advance for any help...
Dave Dumond
ddumond@firstauto.com
------------------------------
Date: Tue, 3 Apr 2001 00:35:53 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: Extract JPEG's Width & Height - How?
Message-Id: <pW%x6.7920$45.45675@newsfeeds.bigpond.com>
Greetings from Australia.
http://www.bloodyeck.com/wwwis/ has a Perl script thats adds height and
width tags to HTML.
Just use the imgsize() subroutine.
For further info see http://www.faqs.org/faqs/jpeg-faq/part1
gtoomey
------
"Dave Dumond" <ddumond@firstauto.com> wrote in message
news:tch1pu1t0rhje0@corp.supernews.com...
> Is it possible to use Perl to open a JPEG binary file and extract the
JPEG's
> width and height parameters?
...
> Dave Dumond
> ddumond@firstauto.com
------------------------------
Date: Mon, 2 Apr 2001 19:03:43 +1000
From: "Chris Hartles" <educool@mpx.com.au>
Subject: Re: Formatting HTML using Perl
Message-Id: <3ac841a2$0$25486$7f31c96c@news01.syd.optusnet.com.au>
hahahaha
Uncle Zien
Is that Right?
Me <moiraine@qwest.net> wrote in message news:3AC81E48.BF7070B0@qwest.net...
> Nuet Lareton wrote:
>
> > Should I just make the recursive proggy I started on or is there a
> > module that will do what I am looking for?
> >
>
> HTML::Templates
> From CPAN
>
> >
> > Thanks guys.
> > Nuety
>
> Have fun!
> --
> Geekette
>
> "Do or do not. There is no try."
> -If you don't know who said this,
> I don't want to talk to you. ;-)
>
> "Nothing is impossible, no matter how improbable."
> -Anonymous
>
>
------------------------------
Date: Sun, 01 Apr 2001 23:38:00 -0700
From: Me <moiraine@qwest.net>
Subject: Re: Formatting HTML using Perl
Message-Id: <3AC81E48.BF7070B0@qwest.net>
Nuet Lareton wrote:
> Should I just make the recursive proggy I started on or is there a
> module that will do what I am looking for?
>
HTML::Templates
From CPAN
>
> Thanks guys.
> Nuety
Have fun!
--
Geekette
"Do or do not. There is no try."
-If you don't know who said this,
I don't want to talk to you. ;-)
"Nothing is impossible, no matter how improbable."
-Anonymous
------------------------------
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 V10 Issue 612
**************************************
