[7770] in Perl-Users-Digest
Perl-Users Digest, Issue: 1395 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 1 10:15:11 1997
Date: Mon, 1 Dec 97 07:00:36 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 1 Dec 1997 Volume: 8 Number: 1395
Today's topics:
Base64.pm: Please Help <bradenb@ibm.net>
Re: Base64.pm: Please Help <bowlin@sirius.com>
Re: Database help (Peter J. Schoenster)
Re: dbase IV files to comma delimited files <mbl@startext.de>
Re: dbase IV files to comma delimited files (Honza Pazdziora)
each() does not work?! <mortensi@idt.ntnu.no>
Re: General Socket Questions. <bowlin@sirius.com>
Re: how to do dos command inside perl (in nt) <bowlin@sirius.com>
JPL on FreeBSD (Ian Kallen)
Re: JPL on FreeBSD <ghowland@hotlava.com>
Re: JPL on FreeBSD (Honza Pazdziora)
Looking for better development envirement for PERL <edris@canaan.co.il>
Re: Newbie question. Do you recommend moving from C? (Tad McClellan)
NNTP.pm, Posting problem <mail@blue-orange.de>
Re: Outputting 100 lines at a time from a search (Tushar Samant)
Re: Perl Plug-In for Netscape? <Patrick.Hayes.CAP_SESA@renault.fr>
Re: perlop clarification request (Tushar Samant)
Re: Q: Learning perl with no progr. experience <dformosa@st.nepean.uws.edu.au>
Re: Q: Learning perl with no progr. experience <dformosa@st.nepean.uws.edu.au>
Re: Resource Kit Anomaly <ghowland@hotlava.com>
Seems to be just another 5.004_* bug:-( (Vladimir Sovetov)
Some textfile describing how to use cookies with perl, <gurra@imneverwrong.com>
Re: Some textfile describing how to use cookies with pe (Jeremy D. Zawodny)
Re: Some textfile describing how to use cookies with pe <tycage@infi.net>
Re: Text to html perl script (Tushar Samant)
Re: Trimming space (Bart Lateur)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 02 Dec 1997 02:14:17 -0500
From: jerome bradenbaugh <bradenb@ibm.net>
Subject: Base64.pm: Please Help
Message-Id: <3483B549.7BA8@ibm.net>
I have been to the CPAN and language.perl.com and www.perl.com in search
of Base64.pm.
The is indeed mention of it but nowhere to get it. It is supposedly in
the libwww bundle, but I can't find it there, either. How can I acquire
it? Please help.
Please reply to sysdev5@hotmail.com
Thank you
jerry bradenbaugh
------------------------------
Date: Mon, 01 Dec 1997 00:10:56 -0800
From: Jim Bowlin <bowlin@sirius.com>
Subject: Re: Base64.pm: Please Help
Message-Id: <34827110.61ED1D68@sirius.com>
jerome bradenbaugh wrote:
>
> I have been to the CPAN and language.perl.com and www.perl.com in search
> of Base64.pm.
On my system it is placed under lib/site/Mime
HTH
------------------------------
Date: Mon, 01 Dec 1997 10:34:14 GMT
From: pschon@baste.magibox.net (Peter J. Schoenster)
Subject: Re: Database help
Message-Id: <34829165.4527380@news.magibox.net>
[cc: sent to author]
JJ <jones-joe@usa.net> wrote:
>trying to grab info from form and save in a database if to be able to
>search later any help?
>was looking at selena sol database script but not sure, if I have to
>have a database program or it will do everything
This is easy to do simply. I would highly suggest that you begin to
work with some rdbms. I have just started to use mSQL after having
used flat files and Berkley dbms for a long while. Simply it is a lot
easier to use the rdbms. If you can learn html then sql is no problem
(so obvious really). I am using the perl5 module DBI for the
interface and it works like a charm. The news mSQL 2.0 is very easy
to work with and does not limit me as I had thought (uses unix regex
via rlike).
I will have some info on all of this on my website soon (I never found
real basic stuff on this when searching).
Where do you have your website? I have not used mySQL but it is free
and I have heard it is good. My hosting company, iserver.com,
provides mSQL to every virtual server.
Feel free to ask me any more specific questions.
Peter
------------------------------
Date: Mon, 01 Dec 1997 10:45:54 +0100
From: Marcus Blaha <mbl@startext.de>
To: Akira <j.a.d.@worldnet.att.net>
Subject: Re: dbase IV files to comma delimited files
Message-Id: <34828752.7681@startext.de>
Akira wrote:
>
> Does anyone have a script that will take a dbase IV file and convert it to a
> comma delimited file using Perl 5??
>
> Any comments or suggestions would be welcomed.
>
> Thanx in advance
>
> Akira
Dear Akira,
try xbase.pm 1.0.7 which is available on the CPAN sites.
It reads dBase files and you get the contents of a record as a field.
This can be printed using the join function:
rough Example:
####################
push (@INC,'C:\\midosa'); #adjust it to your environment
require Xbase;
$dbf_name = '6.dbf';
$database = new Xbase;
$database->open_dbf($dbf_name);
print $database->dbf_type; # debug output
$database->dbf_stat; # debug output
$database->go_top;
while (1){
@fields = $database->get_record;
print "@fields\n"; # unformatted test output
$database->go_next;
if ($database->eof) {
last;
}
}
####################
Greetings from Bonn
Marcus
--
#################################################################
# Marcus Blaha startext Unternehmensberatung GmbH
# Kennedyallee 2 / 53175 Bonn
# Tel.: +49.228.95996-16 Fax.: +49.228.95996-66
# Compuserve 101317,3140 eMail mbl@startext.de
# WWW http://www.startext.de
#################################################################
------------------------------
Date: Mon, 1 Dec 1997 10:00:49 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: dbase IV files to comma delimited files
Message-Id: <adelton.880970449@aisa.fi.muni.cz>
"Akira" <j.a.d.@worldnet.att.net> writes:
> Does anyone have a script that will take a dbase IV file and convert it to a
> comma delimited file using Perl 5??
use XBase;
my $table = new XBase("table.dbf") or die XBase->errstr();
$table->dump_records();
__END__
You can get XBase.pm from CPAN, it's in DBD-XBase-x.xx.tar.gz package.
Hope this helps.
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: 1 Dec 1997 14:47:36 GMT
From: Morten Simonsen <mortensi@idt.ntnu.no>
Subject: each() does not work?!
Message-Id: <65uim8$nod$1@due.unit.no>
Hi
I use perl Perl for Win32 Build 306 version 5.003_07
I have used each() many times before, and it has worked fine, but now
it seems like something is wrong. I have a database at 1000 entries.
When I tries to list the entries, only some of the entries are found
by running each() on the DB. If I try to print the entry by
print $DB{$key}
I find all the entries that are not listed by using each(). The problem
seems to arise when there are more than 350 entries. I know this seems
pretty awkward, and maybe I have done something wrong, but I don't
think so. Can this make sense? Please HELP, I am going crazy!:)
Thanks in advance...
Morten Simonsen
------------------------------
Date: Mon, 01 Dec 1997 00:21:39 -0800
From: Jim Bowlin <bowlin@sirius.com>
To: Worik Macky Stanton <w.stanton@auckland.ac.nz>
Subject: Re: General Socket Questions.
Message-Id: <34827393.E4B36246@sirius.com>
Worik Macky Stanton wrote:
>
> Friends.
>
> I have not been able to get the answers from faq's or the camel
> book. My meta question is where can I get information about tcp socket
> programming, specifically with perl, that goes a little deeper than
> the Camel book (Programming PERL 2nd. Edition)?
I am using 'Unix Network Programming" by W. Richard Stevens.
> The questions:
>
> How should I use shutdown? (page 216 camel) When should I use close?
> What is the difference for a socket?
shutdown can be used to close only one side of the socket.
0 = shutdown receive, 1 = shutdown send, 2 = shutdown both.
I have had better luck under win32 using close.
I don't have answers for the other questions.
------------------------------
Date: Mon, 01 Dec 1997 00:03:49 -0800
From: Jim Bowlin <bowlin@sirius.com>
To: Rey Andrada <reya@wni.com>
Subject: Re: how to do dos command inside perl (in nt)
Message-Id: <34826F65.48902B35@sirius.com>
Rey Andrada wrote:
>
> Hi All,
>
> how to do dos command inside perl (in nt)
>
> Back tick dont work and according to faq that i've read that ya this
> doesnt work in perl-nt. Okay the question is is there a way to do it
> besides using system ? if not is it going to be fixed ?
Backticks work for me. Have done for a long time.
$dum = `dir`;
print $dum;
------------------------------
Date: 1 Dec 1997 08:46:15 GMT
From: spidaman@well.com (Ian Kallen)
Subject: JPL on FreeBSD
Message-Id: <65ttgn$pkn$1@was.hooked.net>
I started playing with the Perl Resource Kit this weekend on FreeBSD 2.2.2
and Perl 5.004_04. I've got JDK 1.1 and recompiled perl to make
libperl.so.4.4 (now, _that_ was funny: it made it but bombed trying to
continue onto compiling miniperl...until I manually moved libperl.so and
only then would it continue compiling the distribution! This was using
lddlflags='-Bshareable -L/usr/local/lib' if you're interested). Anyway,
while trying to install JPL, it's falling over compiling PerlInterpreter.c:
44: 'RTLD_LAZY' undeclared (first use this function)
44: 'RTLD_LAZY' (Each undeclared identifier is reported only once
44: 'RTLD_LAZY' for each function it appears in)
44: 'RTLD_GLOBAL' undeclared (first use this function)
So, what gives?
--
The next interface will not be another desktop metaphor.... Ian Kallen ....
------------------------------
Date: Mon, 01 Dec 1997 12:06:36 +0100
From: Gary Howland <ghowland@hotlava.com>
To: Ian Kallen <spidaman@well.com>
Subject: Re: JPL on FreeBSD
Message-Id: <34829A3C.62C8@hotlava.com>
Ian Kallen wrote:
>
> I started playing with the Perl Resource Kit this weekend on FreeBSD 2.2.2
> and Perl 5.004_04. I've got JDK 1.1 and recompiled perl to make
> libperl.so.4.4 (now, _that_ was funny: it made it but bombed trying to
> continue onto compiling miniperl...until I manually moved libperl.so and
> only then would it continue compiling the distribution! This was using
> lddlflags='-Bshareable -L/usr/local/lib' if you're interested). Anyway,
> while trying to install JPL, it's falling over compiling PerlInterpreter.c:
>
> 44: 'RTLD_LAZY' undeclared (first use this function)
> 44: 'RTLD_LAZY' (Each undeclared identifier is reported only once
> 44: 'RTLD_LAZY' for each function it appears in)
> 44: 'RTLD_GLOBAL' undeclared (first use this function)
>
> So, what gives?
Did you ensure that you didn't use perl's malloc() ? As mentioned in
the perl utilities guide, page 27?
Let me know how it goes, since I'm running FreeBSD too. However, I'm
not particularly looking forward to this java with embedded perl - I'd
sooner have Perl with embedded java (which I'm writing!).
Gary
--
pub 1024/C001D00D 1996/01/22 Gary Howland <gary@hotlava.com>
Key fingerprint = 0C FB 60 61 4D 3B 24 7D 1C 89 1D BE 1F EE 09 06
------------------------------
Date: Mon, 1 Dec 1997 11:59:54 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: JPL on FreeBSD
Message-Id: <adelton.880977594@aisa.fi.muni.cz>
spidaman@well.com (Ian Kallen) writes:
> I started playing with the Perl Resource Kit this weekend on FreeBSD 2.2.2
> and Perl 5.004_04. I've got JDK 1.1 and recompiled perl to make
> libperl.so.4.4 (now, _that_ was funny: it made it but bombed trying to
> continue onto compiling miniperl...until I manually moved libperl.so and
I bet you did not set your LD_LIBRARY_PATH before running make ;-)
> 44: 'RTLD_LAZY' undeclared (first use this function)
> 44: 'RTLD_LAZY' (Each undeclared identifier is reported only once
> 44: 'RTLD_LAZY' for each function it appears in)
> 44: 'RTLD_GLOBAL' undeclared (first use this function)
Did you use your system malloc?
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Mon, 01 Dec 1997 20:17:10 +0200
From: Edris Abzakh <edris@canaan.co.il>
Subject: Looking for better development envirement for PERL
Message-Id: <65tl8l$7ia$1@news.NetVision.net.il>
Hello ..
I was wondering if any body knows about a better developing envirement
for Perl than using Emacs and the primitive debugger of Perl .
If there is any thing close to the modern envirements then please
let me know about it . I'm willing to pay for it .
please contact me at : edris@canaan.co.il
P.S : I'm working under unix operating system but moving to PC is still
an opened option .
Thanks
Edris
------------------------------
Date: Mon, 1 Dec 1997 06:11:02 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Newbie question. Do you recommend moving from C?
Message-Id: <mg9u56.0j.ln@localhost>
[ nothing about Modules or Tk in here. Followups trimmed ]
Programming (sysdev@mb.sympatico.ca) wrote:
: I have been experiencing
: "the joy of C" the past few months.
: My big complaint of using c is
: that it has no string type.
: This also involves memory, pointers,
: syntax, etc. Massive learning curve.
[snip]
: Yet, the supposed advantage of C is that it is,
: get this, compact!
The compiled binary is often more compact. Doesn't have much of a
relationship to the size of the source code though...
: I have heard that both Java, and Perl have
: string types.
: Does anyone have any experience moving from
: C to either of these two languages on AIX.
I moved from C to Perl on Unix (SunOS/Solaris).
I augmented (doubt if I'll ever "move from" Perl ;-), Perl with
learning Java on Linux.
: What have your experiences been? Would
: you recommend it, or just stick with C?
I have not written a single C program since I learned Perl.
For text processing, Perl cannot be beaten!
I recommend it (probably would leave heavy number crunching in C though)
Java is OK too. Better than C, but, for text processing, not better
than Perl.
: What I am concerned with is:
: - software/code that is reliable!
That depends on the skill of the programmer more than the language used.
Though some languages force things that may make the programming
"more reliable" (eg. strong typing). Perl, used properly, can
be very reliable and easy to maintain.
: - relatively short learning curves.
Perl is not very hard for a programmer to learn.
: - simple business that is simple, not complicated
: (ie. assign the string to the variable)
Perl's got that.
: - what works one year, will work 10 years from now
Perl's got that (probably, but a lot can change in 10 years...)
: (no frequent upgrades and code changes required)
: - compilers that give meaningful error messages
: - code interfaces easily with Oracle, and can do
: embedded SQL.
Perl has all of that too.
: I am looking at this from a manager's standpoint.
: Can we use the language as a reliable tool that
: will do what we expect a language to do for us?
: That is, in creating and writing full blown
: business applications.
Yep.
: Another question would be, are there any special
: considerations that need to be taken into
: account when using either of these languages?
Regular expressions are often troublesome to learn.
Power has a price ;-)
: Special compilers, etc.
: All comments welcome.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 01 Dec 1997 14:59:44 +0100
From: Stefan Merath <mail@blue-orange.de>
Subject: NNTP.pm, Posting problem
Message-Id: <3482C2D0.E289632D@blue-orange.de>
Hallo,
I want to post news with a Perl-Script. I have downloaded the Module Net
NNTP successfully and reading news works fine; posting news not.
My Code looks like this:
------------------------------------------
use Net::NNTP;
$nntpserver="news.snafu.de";
$group="alt.test";
$posting="posting.txt";
open(INFILE,"<$posting") || die "Can't read posting.txt";
@Text=<INFILE>; # I've tried @{$Text} too
close (INFILE);
print"Content-type: text/html\n\n";
print"<HTML><head><title>News-Poster</title></head><body>";
die "Unknown host $nntpserver" unless gethostbyname("$nntpserver");
print"<b>Host resolved</b><br>\n";
$newsagent=Net::NNTP->new($nntpserver) || die "Cannot connect to
server";
print"<b>Server connected</b><br>\n";
($numArticles, $first, $last, $groupname) = $newsagent->group($group);
print"<b>Group $groupname selected</b><br>\n";
$x=$newsagent->post(@Text);
print"<b>Article posted:$x//$Text</b><br>\n";
$x=$newsagent->quit();
print"<b>Agent closed$x</b><br></body></html>\n";
End Script--------------------------------
using the file posting.txt:
------------------------------------------
Path: merath
From: merath@berlin.snafu.de
Newsgroups: alt.test
Subject: a test only
Date: Sun, 30 Nov 97 19:36:13 +0100
Message-ID: <54321merath@news.snafu.de>
Reply-To: merath@berlin.snafu.de
Organization: Test-Organization
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Mailer: Mozilla 4.04 [en] (X11; I; Linux 2.0.29 i586)
Lines:15
Hallo Stefan,
this is a testmessage with a link
http://www.basar-online.de
7
8
9
10
11
12
13
14
last line
End Posting.txt----------------------------------------------
The script works fine until the alert "Article posted" is printed. Then
the script waits 120 seconds (Default-Timeout) and exits without posting
the text. Anybody ca give a hint?
Thanx
Stefan
P.S. answer please per mail, too!
--
Stefan Merath *********************************** Blue Orange GbR
Reichenberger Str. 59 ----------------------------- 10 999 Berlin
Fon: 030/ 618 56 70 ------------------------- Fax: 030/ 618 56 70
Mail: mail@blue-orange.de ******* Home: http://www.blue-orange.de
--
Stefan Merath *********************************** Blue Orange GbR
Reichenberger Str. 59 ----------------------------- 10 999 Berlin
Fon: 030/ 618 56 70 ------------------------- Fax: 030/ 618 56 70
Mail: mail@blue-orange.de ******* Home: http://www.blue-orange.de
------------------------------
Date: 1 Dec 1997 00:10:38 -0600
From: scribble@shoga.wwa.com (Tushar Samant)
Subject: Re: Outputting 100 lines at a time from a search
Message-Id: <65tkcu$4e4@shoga.wwa.com>
bob@cafemedia.com writes:
>I have written a perl script which searches the lines of a text file for a
>certain string and prints out the lines that have been found..I am using a
>count to display the number of lines found that match..what I would like
>to do is output only 100 or so lines of text at a time..not just the first
>100 but each hundred after that and so on.
>
>Any ideas?
Do you want *web pages* with 100 hits apiece?
That's what I think. But "at a time" could mean anything.
------------------------------
Date: 01 Dec 1997 09:27:33 +0100
From: Patrick Hayes <Patrick.Hayes.CAP_SESA@renault.fr>
Subject: Re: Perl Plug-In for Netscape?
Message-Id: <vxjn2ilqxhm.fsf@goblin.pdj.renault.fr>
tadmc@metronet.com (Tad McClellan) writes:
> Eric Hilding (eric@hilding.com) wrote:
> : I've looked around but just can't seem to find the
> : info on an alleged Perl 'Plug-In' for Netscape.
> Where did you hear the allegations?
>
> I've not heard of such a thing.
>
> What do you want to do that you need a plugin for?
I believe he is may be referring to perlscript, the browser side perl
implementation by ActiveWare/ActiveState/... Perlscript is not a plug-in, but
an implementation of perl that's supposed to let you the same kind of tasks
people are using JavaScript for, but using perl.
See: <URL:http://www.ActiveState.com>
Pat
--
--------------------------------------------------------
Patrick.Hayes.CAP_SESA@renault.fr (33) 01.41.04.64.20
--------------------------------------------------------
------------------------------
Date: 1 Dec 1997 00:31:06 -0600
From: scribble@shoga.wwa.com (Tushar Samant)
Subject: Re: perlop clarification request
Message-Id: <65tlja$9gl@shoga.wwa.com>
rjk@coos.dartmouth.edu writes:
>Tushar Samant wrote:
>
>> No. "Logically" a match on a null string should always be true, because
>> everything matches a null string (or something). But Perl makes it mean
>> something else -- it remembers the last pattern match and APPLIES it.
>
>Not quite. See below...
>
>> This is not the same as remembering the last result of a pattern match.
>>
>> "Successfully executed", of course, implies nothing about whether the
>> result was TRUE.
>
>Actually, that is *exactly* what "sucessfully executed" means.
You are right. My bad!
BTW, I have a confession to make from when I was working somewhere
in the west. All those GPFs, they are my baby...
------------------------------
Date: 1 Dec 1997 13:17:57 GMT
From: ? the platypus {aka David Formosa} <dformosa@st.nepean.uws.edu.au>
Subject: Re: Q: Learning perl with no progr. experience
Message-Id: <880982183.943791@cabal>
In <-3011971506110001@aggie.coaps.fsu.edu> fl_aggie@thepentagon.com (I R A Aggie) writes:
>In article <65s9ko$15m@shoga.wwa.com>, scribble@shoga.wwa.com (Tushar
>Samant) wrote:
>+ fl_aggie@thepentagon.com writes:
>+ >James - panther, catamount, mountain lion, whatever... :)
>+ ^^^^^^^^^
>+ Please watch your language.
>Sorry. It's a regional name for mountain lion:
I thourt you where suggesting that I do the following.
cat /mnt/
--
Please excuse my spelling as I suffer from agraphia see the url in my header.
Never trust a country with more peaple then sheep. I do not reply to mungged
Support NoCeM http://www.cm.org/ addresses.
I'm sorry but I just don't consider 'because its yucky' a convincing argument
------------------------------
Date: 1 Dec 1997 13:15:16 GMT
From: ? the platypus {aka David Formosa} <dformosa@st.nepean.uws.edu.au>
Subject: Re: Q: Learning perl with no progr. experience
Message-Id: <880982022.739807@cabal>
In <347FFD0C.42B2@xs4all.nl> av3@xs4all.nl writes:
>i wanna start learning perl. The thing is: i have no programming
>experience whatsoever
The first thing you should do is learn how to program. I would suggest a
languge like pascal or scheme to do this. You should also learn how to
right pydo-code. After you do this then you can think about tring to
learn perl.
Perl is not a good lannguge to learn programing on IMHO.
--
Please excuse my spelling as I suffer from agraphia see the url in my header.
Never trust a country with more peaple then sheep. I do not reply to mungged
Support NoCeM http://www.cm.org/ addresses.
I'm sorry but I just don't consider 'because its yucky' a convincing argument
------------------------------
Date: Mon, 01 Dec 1997 12:01:42 +0100
From: Gary Howland <ghowland@hotlava.com>
To: "Peter J. Schoenster" <pschon@baste.magibox.net>
Subject: Re: Resource Kit Anomaly
Message-Id: <34829916.61AC@hotlava.com>
Peter J. Schoenster wrote:
>
> Phil Houstoun <pjhousto@cse.dnd.ca> wrote:
>
> >Hi there,
> > Has anybody else who has received the Resource Kit found that HTML
> >indexes of files contained in the CPAN archive on the CD are a tad
> >messed up? I've got URLs in the index.html files that point to the
> >basenames of compressed (.Z) files, so when you try to follow the
> >links you get the 'File Not Found' message, e.g. the first URL in
> >/CPAN/scripts/admin/index.html points to adduser, which doesn't exist,
> >but adduser.Z does. In addition, my /CPAN/CPAN.html is a link (ln -s,
> >that is) to a compressed file which, of course, loads the browser with
> >gibberish. Thanks.
>
> Is this resource kit worth buying? I saw it for $112.00 at some
> discount computer store online.
In my humble opinion, no.
> But I would love to hear what modules etc. are discussed in the book
> and what is this thing about the Java/Perl that Larry Wall wrote.
The java stuff is, to be honest, piss poor. I was hoping for a perl ->
java bytecode compiler - instead I got java with embedded perl - big
deal! Perl is trivial to embed, and this is just java with embedded
perl, unless I'm much mistaken. I shall be releasing a free version of
*perl with embedded java* (as oppossed to Larry Wall's java with
embedded perl) in the near future. What I am proposing is embedding
perl in java using a java extension, having a small java program to kick
off perl in a thread so that control now lies with the perl interpreter,
and then calling java functions from perl using perl extensions (!).
It's actually very straightforward. If anyone would like to help me
with this project, get in touch (and I'll set up a mailing list for
developers etc.)
Gary
--
pub 1024/C001D00D 1996/01/22 Gary Howland <gary@hotlava.com>
Key fingerprint = 0C FB 60 61 4D 3B 24 7D 1C 89 1D BE 1F EE 09 06
------------------------------
Date: 1 Dec 1997 11:16:31 GMT
From: sova@kpbank.ru (Vladimir Sovetov)
Subject: Seems to be just another 5.004_* bug:-(
Message-Id: <65u6af$sk9$1@home.kpbank.ru>
Here is some text
% cat t.html
<A HREF="../index.html">
<IMG SRC="../Pict/arf-logo.gif" HEIGHT=75 WIDTH=65 ALIGN=RIGHT ALT="ARF Home"
BORDER=0>
</A>
And non-correct:-))) program for html TAG removing
% cat test.pl
#!/usr/bin/perl -w
while (<>)
{
print "Before: $_\n";
s/<(?:[^>'"]+|(['"]).+?\1)*>//gs;
print "After: $_\n";
}
(Yes, should be $_=<> but anyway:-)))
And now two different attempt to use it examples
1. Reasonable of perl -v
version 5.001
%cat t.html | ./test.pl
Before: <A HREF="../index.html">
After:
Before: <IMG SRC="../Pict/arf-logo.gif" HEIGHT=75 WIDTH=65 ALIGN=RIGHT ALT="ARF Home"
After: <IMG SRC="../Pict/arf-logo.gif" HEIGHT=75 WIDTH=65 ALIGN=RIGHT ALT="ARF Home"
Before: BORDER=0>
After: BORDER=0>
Before: </A>
After:
2. And perl -v
This is perl, version 5.004_04 built for i386-bsdos
HANG-UP!!!!
%cat t.html | ./test.pl
Before: <A HREF="../index.html">
After:
Before: <IMG SRC="../Pict/arf-logo.gif" HEIGHT=75 WIDTH=65 ALIGN=RIGHT ALT="ARF Home"
^C
%
Yes!! It's dumb all over:-)) and incorrect, but it shouldn't hang-up
from my point of view in any case!
---
Vladimir Sovetov | Kuzbassprombank
------------------------------
Date: Mon, 01 Dec 1997 11:19:09 +0100
From: Gustaf Edgren <gurra@imneverwrong.com>
Subject: Some textfile describing how to use cookies with perl, CGI.pm.
Message-Id: <34828F1D.F0A32AFF@imneverwrong.com>
--------------A83E71A4CEFE9C3C15C0A865
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Cookies?
Is there anyone who knows where you can find a text file that describes
how you send and get cookies with perl 5, maybe using CGI.pm?
I would really appreciate every answer.
--------------A83E71A4CEFE9C3C15C0A865
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
<B><FONT SIZE=+2>Cookies?</FONT></B>
<BR>Is there anyone who knows where you can find a text file that describes
how you send and get cookies with perl 5, maybe using CGI.pm?
<P>I would really appreciate every answer.</HTML>
--------------A83E71A4CEFE9C3C15C0A865--
------------------------------
Date: Mon, 01 Dec 1997 14:06:44 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: Some textfile describing how to use cookies with perl, CGI.pm.
Message-Id: <3482c466.945948642@igate.hst.moc.com>
[original author automagically cc'd via e-mail]
On Mon, 01 Dec 1997 11:19:09 +0100, Gustaf Edgren
<gurra@imneverwrong.com> wrote:
>Cookies?
>Is there anyone who knows where you can find a text file that describes
>how you send and get cookies with perl 5, maybe using CGI.pm?
>
>I would really appreciate every answer.
The CGI.pm docs.
Jeremy
--
Jeremy D. Zawodny jzawodn@wcnet.org
Web Server Administrator www@wcnet.org
Wood County Free Net (Ohio) http://www.wcnet.org/
------------------------------
Date: Mon, 01 Dec 1997 09:11:18 -0500
From: Ty Cage Warren <tycage@infi.net>
Subject: Re: Some textfile describing how to use cookies with perl, CGI.pm.
Message-Id: <3482C586.641A280C@infi.net>
Gustaf Edgren wrote:
> Is there anyone who knows where you can find a text file that
> describes how you send and get cookies with perl 5, maybe using
> CGI.pm?
Try typing
perldoc CGI
Then search for cookie.
Hope this helps,
Ty
--
+---+
Ty Cage Warren tycage@infi.net
Systems Engineer InfiNet
The Web Site of Love: http://tazer.engrs.infi.net/mst3k/
PGP Public Key: http://tazer.engrs.infi.net/~tycage/pgpkey.html
PGP Fingerprint: FF C1 28 CA 80 B5 31 78 B1 24 2E 8C AB DA FB D2
------------->Never invoke anything bigger than your head.<-------------
------------------------------
Date: 1 Dec 1997 00:20:41 -0600
From: scribble@shoga.wwa.com (Tushar Samant)
Subject: Re: Text to html perl script
Message-Id: <65tkvp$84g@shoga.wwa.com>
sweth@gwis2.circ.gwu.edu writes:
> also, it would be
>nice if the man pages were formatted a bit more nicely than just being
>preformatted text (e.g. having synopsis, etc. be headers). the big
>feature i would like is for references to other man pages to be links
>pointing, again, to the same cgi page that would generate them on the fly.
Look at <http://www.w3.org/Tools/RosettaMan.html>.
------------------------------
Date: Mon, 01 Dec 1997 09:40:59 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Trimming space
Message-Id: <348483e7.3543870@news.tornado.be>
97Eyin@uxmail.ust.hk (Ho Chiu Yin) wrote:
>I want to ask how to trimming left and right space of a string.
>For example : $str = " this is a test. " to "this is a test."
Easy, but it's a two step process.
$str =~ s/^\s+//; #trim leading blanks
$str =~s/\s+$//; #trim trailing blanks
Note that will not only remove dangling spaces, but also tabs and
newlines.
HTH,
Bart.
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 1395
**************************************
