[12707] in Perl-Users-Digest
Perl-Users Digest, Issue: 116 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 12 07:07:34 1999
Date: Mon, 12 Jul 1999 04:05:09 -0700 (PDT)
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, 12 Jul 1999 Volume: 9 Number: 116
Today's topics:
Re: Accessing POP mail? (I.J. Garlick)
Beginner in perl, checking header and footer <mboertien@my-deja.com>
Re: checking Perl offline <stephen.aze@zetnet.co.uk>
Re: date format (hoz)
die or print (Tony Greenwood)
Re: die or print <gellyfish@gellyfish.com>
Filter Websides Under WIN95/98/NT anton.kramer.erlenmoos@t-online.de
Re: Getting very irregular single 'name' field into fir <stephenb@scribendum.win-uk.net>
Re: Help -- Weird Increments (MacPerl) (Bart Lateur)
Re: How do you get rid of a remainder in a number <swiftkid@bigfoot.com>
Re: How do you get rid of a remainder in a number <swiftkid@bigfoot.com>
Re: How do you get rid of a remainder in a number (Andreas Fehr)
Re: How do you get rid of a remainder in a number (Abigail)
Re: How do you get rid of a remainder in a number (Andreas Fehr)
Re: How to dereference an array reference? (Bart Lateur)
Re: How to dereference an array reference? <rockbay@home.com>
Re: How to dereference an array reference? <gellyfish@gellyfish.com>
HTML::Element bug or flaw (entities) ? (Sébastien Barré)
HTML::Parser and line numbers ? (Sébastien Barré)
Re: I need to hide the source <crn@itga.com.au>
Modules and Perl2exe <frederic.descamps@origin-it.com>
Re: Modules and Perl2exe (Andreas Fehr)
Passing values to browser from perl. <eoan.kerr@gssec.bt.co.uk>
SHAREWARE: txt2pdf.cgi 1.1 <sanface@sanface.com>
Re: simple Perl question: (elephant)
What do I do wrong in sub savePage(...) ? (Proble <andre.pletschette@ltam.lu>
Where is perlcc? byteperl? <smithda@webwide.net>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 12 Jul 1999 08:56:49 GMT
From: ijg@connect.org.uk (I.J. Garlick)
Subject: Re: Accessing POP mail?
Message-Id: <FEr26p.Ixp@csc.liv.ac.uk>
In article <dowd-0807991923000001@c37191-a.mckiny1.tx.home.com>,
dowd@spam-free.home.com (Sean Dowd) writes:
> In article <FEJKuL.JnG@csc.liv.ac.uk>, ijg@connect.org.uk (I.J. Garlick)
> wrote:
>
>
> I'm curious. What is it about having 2 modules that bothers you?
Nothing. The more the merrier. It's just people keep recommending it and
it's not always possible for some to use it. Net::POP3 does come as
standard with all newer versions of Perl.
Before you tell me you can put it in your own dir structure you don't need
it installing by a sys admin, I will agree with you. But why goto the
hassle of downloading, sorting any problems out and uploading to your
server when a Module already exists there that does funtionally the same
thing?
I don't want to get into an argument over this. I was just trying to point
out that too many people where recommending unnecessary trips to CPAN
that's all. I will defend your right to write as many modules as you like
as long as they work and promote good Perl practices. I will admit I could
find no problems with your module, but that's not saying much I am not guru
(not even close in fact :-) ).
--
Ian J. Garlick
ijg@csc.liv.ac.uk
Children are unpredictable. You never know what inconsistency they're
going to catch you in next.
-- Franklin P. Jones
------------------------------
Date: Mon, 12 Jul 1999 09:31:25 GMT
From: Nostradamus <mboertien@my-deja.com>
Subject: Beginner in perl, checking header and footer
Message-Id: <7mccle$iqt$1@nnrp1.deja.com>
At the moment i've just started with perl and i really have to do some
stuff which i couldn't find in the cookbook or learning perl
book....they're probably simple but i have no idea how to do this :
I have a file with a header (BEGIN) and a trailer (END). I want to
check if the first line has the BEGIN in it, and if the last line has
END in it.....how can i do this??
Thanks in advance,
M.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 12 Jul 1999 10:15:29 +0100
From: Stephen Aze <stephen.aze@zetnet.co.uk>
Subject: Re: checking Perl offline
Message-Id: <1999071210152966754@zetnet.co.uk>
The message <378bdd8f.52599043@nntp.ix.netcom.com>
from miker3@ix.netcom.com (Michael Rubenstein) contains these words:
> Did you ever hear of the term "context." Stephen obviously meant
> offline to his server, i.e., not connected to his server.
I did. And thank you to all those who understood this and posted
helpful tips accordingly. Much appreciated.
> Surely you cannot think that offline means away from any computer?
Quite. But I think Tom knew that too -- seeming just a bit too
gleeful in "misunderstanding" what I'd written. Thanks anyway.
--
stephen.aze@zetnet.co.uk
------------------------------
Date: Mon, 12 Jul 1999 17:38:32 GMT
From: hoz@rocketmail.com (hoz)
Subject: Re: date format
Message-Id: <378a278f.64174401@news.netvision.net.il>
thanks tad,
you must be a windows perl programmer because when I run your code on
windows its cool but on a solaris box it blows...
?
On Sun, 11 Jul 1999 12:29:18 -0400, tadmc@metronet.com (Tad McClellan)
wrote:
>hoz (hoz@rocketmail.com) wrote:
>
>: how do I in perl get a date format (YYYYMMDD) that resembles this is
>: shell `date +%Y%m%d`
>
>
> my ($mday,$mon,$year) = (localtime)[3..5];
> my $date = sprintf "%d%02d%02d", $year+1900, $mon+1, $mday;
>
>
>--
> Tad McClellan SGML Consulting
> tadmc@metronet.com Perl programming
> Fort Worth, Texas
------------------------------
Date: Mon, 12 Jul 1999 10:10:16 GMT
From: tony@webscripts.org (Tony Greenwood)
Subject: die or print
Message-Id: <378fb35a.6292115@news.freeserve.co.uk>
Hi..
I always check the return value when using open() calls
However for me if I use || die "blah blah $!"; it does as I expect it
would, it dies. So I see no results of $!
So I use || print "blah blah $!"; and can see the results of $!
I presume "die" is preferable to "print" but produces nothing for me.
My question is, Do I presume correctly ?
I am using Sambar server and Perl5 under the ultra stable Win95b
Any input appreciated:)
--
Tony Greenwood
PORTFOLIO www.webscripts.org
------------------------------
Date: 12 Jul 1999 11:24:01 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: die or print
Message-Id: <3789c241@newsread3.dircon.co.uk>
Tony Greenwood <tony@webscripts.org> wrote:
>
>
> Hi..
> I always check the return value when using open() calls
>
> However for me if I use || die "blah blah $!"; it does as I expect it
> would, it dies. So I see no results of $!
>
> So I use || print "blah blah $!"; and can see the results of $!
>
> I presume "die" is preferable to "print" but produces nothing for me.
> My question is, Do I presume correctly ?
>
> I am using Sambar server and Perl5 under the ultra stable Win95b
>
use CGI::Carp qw(fatalsToBrowser);
Or alter the flow of control in your program with something like:
if(open(FILE,"blah"))
{
# thats ok
}
else
{
# Ooh no file
}
/J\
--
"Babylon 5 has some impressive special effects and enough dodgy hairdos
to make the current Conservative front bench look trendy" - Radio Times
------------------------------
Date: 12 Jul 1999 09:30:04 GMT
From: anton.kramer.erlenmoos@t-online.de
Subject: Filter Websides Under WIN95/98/NT
Message-Id: <7mccis$1gv$1@newsread.f.de.uu.net>
Who can help me?
I should filter websides before they are displayed
by the browser.
For excample:
URL: www.yahoo.de
filtering: 'shopping'
if the webside contains -shopping- I should
change the URL f.e. to 'www.wal-mart.com'
Do you know a solution ?
------------------------------
Date: Mon, 12 Jul 1999 11:46:07 +0100
From: "Stephen Benson" <stephenb@scribendum.win-uk.net>
Subject: Re: Getting very irregular single 'name' field into first/last name for credit card gateway -- what hit rate is possible?
Message-Id: <7mch3i$c4f$1@plutonium.compulink.co.uk>
Gee, what's the beef? I ask here 'cos I have to implement in Perl, not any
another language with other capabilities. But I did Xpost alt.ecommerce and
alt.www.webmaster.
I've posted for years, whether to put the quoted mail top/bottom is
unregulated, and in practice more people do it the way I do, so people
instantly see the current message, and scroll down to the old if they need
it. Matter of taste.
Actually 'we'/'you' write here in many languages; and as someone as clearly
netiquette-literate as should know, this is a debate that comes and goes
with boring predictability; those of us who have seen it before try not to
provoke it again.
As for looking like a fool, nc. Who made you webcop, anyway?
Abigail <abigail@delanet.com> wrote in message
news:slrn7oevoj.h7.abigail@alexandra.delanet.com...
> Stephen Benson (stephenb@scribendum.win-uk.net) wrote on MMCXXXIX
> September MCMXCIII in <URL:news:7m71oj$nc7$1@plutonium.compulink.co.uk>:
> <> There's no code yet, 'cos I'm considering the problem, investigating
the
> <> data. It just seems more than a quick regexp/split can handle.
>
> This still doesn't make it a Perl question.
>
> <> More generally, I'm sure this has been addressed before; there must be
some
> <> discussion of the issues somewhere.
>
> Most likely. Then why don't go you search for said discussion? Go to Deja,
> go to Lycos, go to Altavista, go to Yahoo, go to Hotbot, etc, etc, etc.
>
>
> [ Out of order quote ]
>
> Please, we write here in English, not in a language that reads bottom to
> top (else we would have to reverse the orders of the lines as well). First
> putting in your reply, then what you are replying to makes you look like
> a fool. Television programs don't show the summary of last weeks episode
> after this weeks episode either, do they?
>
------------------------------
Date: Mon, 12 Jul 1999 08:10:47 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Help -- Weird Increments (MacPerl)
Message-Id: <37899766.857708@news.skynet.be>
Tom Mornini wrote:
>open (IN,'file.txt') || die "Cannot open file for input";
>$number=<>;
$number = <IN>;
>close IN;
>
>$number=chomp($number)+1; # Add 1 to $number
>
>open (OUT,'>file.txt') || die "Cannot open file for output";
>print OUT $number;
>close OUT;
The main thing that is wrong with this approach, is that you open the
filme twice. In principle, in a multitasking environment, another
program (or another copy of the script) can open and change the file
between your two opens.
How do you prevent that? By opening the file once, and locking it.
That's what opening in mode "+<" is for, and why you rewind and truncate
the file to length zero after you've read it, and print to the same
handle. And close, which unlocks the file.
On a Mac, it locks it by itself, so you don't have to. But, if another
program tries to open it itself, it won't wait: instead, the open fails.
So you have to check, if it fails, why, and if it is because the file is
in use, wait a bit and try again.
All very theoretical musings at the moment, since currently on a Mac
scripts are execute in sequence, one after another. Yes, that currently
makes a Mac + MacPerl a poor idea for a busy web/CGI server.
Bart.
------------------------------
Date: Mon, 12 Jul 1999 11:31:59 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: How do you get rid of a remainder in a number
Message-Id: <7md5ea$ldn1@news.cyber.net.pk>
: Anyhow, I tired $war1 = sprintf("%.0d", $num3);
: and it worked.
$war1 = int $num3;
------------------------------
Date: Mon, 12 Jul 1999 11:34:55 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: How do you get rid of a remainder in a number
Message-Id: <7md5jr$ldn2@news.cyber.net.pk>
Jordan Hiller <hiller@email.com> wrote in message
news:37896A84.6B527E@email.com...
: I'm afraid Abigail can't get over how fun it is to harass newbies or
anyone with
: questions. I think I've seen him truly help someone maybe once in the last
: month. Hypocrite too--every message he sends says "read the FAQ",
supposedly to
: reduce the noise on this newsgroup, but it's Abigail making all the noise!
You have been here for years, you see same questions everyday, you have been
asking them to see FAQ, but they post same things again and again. It really
makes me sick - most of the time, and I am a normal person. And I believe
that Abigail is a normal person too.... and I haven't been here for years.
When there is a good, sensible question, I have seen Abigail's nice reply!
He is sorta perfect guy to me! :P
------------------------------
Date: Mon, 12 Jul 1999 08:02:07 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: How do you get rid of a remainder in a number
Message-Id: <3789a008.9482905@news.uniplus.ch>
On Mon, 12 Jul 1999 04:09:32 GMT, Jordan Hiller <hiller@email.com>
wrote:
>I'm afraid Abigail can't get over how fun it is to harass newbies or anyone with
>questions. I think I've seen him truly help someone maybe once in the last
>month. Hypocrite too--every message he sends says "read the FAQ", supposedly to
>reduce the noise on this newsgroup, but it's Abigail making all the noise!
>
Is Abigail a "he" or a "she"?
I don't care (my girlfriend would care of course) I only
know Abigail as a femail name... But we know the U.S. as
the country of all possibilities :)
Andreas
------------------------------
Date: 12 Jul 1999 04:35:30 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How do you get rid of a remainder in a number
Message-Id: <slrn7ojdma.h7.abigail@alexandra.delanet.com>
Andreas Fehr (backwards.saerdna@srm.hc) wrote on MMCXLI September
MCMXCIII in <URL:news:3789a008.9482905@news.uniplus.ch>:
~~
~~ Is Abigail a "he" or a "she"?
~~ I don't care (my girlfriend would care of course) I only
~~ know Abigail as a femail name... But we know the U.S. as
~~ the country of all possibilities :)
~~
But Abigail originates from Europe!
Abigail
--
perl -wlpe '}$_=$.;{' file # Count the number of lines.
-----------== 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: Mon, 12 Jul 1999 10:54:52 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: How do you get rid of a remainder in a number
Message-Id: <3789c95c.20062438@news.uniplus.ch>
On 12 Jul 1999 04:35:30 -0500, abigail@delanet.com (Abigail) wrote:
>Andreas Fehr (backwards.saerdna@srm.hc) wrote on MMCXLI September
>MCMXCIII in <URL:news:3789a008.9482905@news.uniplus.ch>:
>
>But Abigail originates from Europe!
>
The name or the person?
Andreas
------------------------------
Date: Mon, 12 Jul 1999 08:10:49 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: How to dereference an array reference?
Message-Id: <378a9bd4.1991360@news.skynet.be>
Andreas Fehr wrote:
>Yes, filtering spam is easy, but here in Europe, most private
>people have a modem dialup connection to the internet and no
>flat rate to connect there. So loading all the spam to your
>computer takes some time and money.
I don't munge my address. On average, I get 2 spam messages per day. I
automatically filter out most of them, based on the simple rule: they
arent't addressed to me: my address is neither in the To or the Cc
field.
The only time I though about tracking down and complaining about a
spammer, was when some spam bozo sent me a 100k Excel file. I'm not good
in tracking down senders, so I forgot about it. It happened only once.
Bart.
------------------------------
Date: Mon, 12 Jul 1999 09:00:50 GMT
From: John Douglas <rockbay@home.com>
Subject: Re: How to dereference an array reference?
Message-Id: <3789AF87.1C7B6EB2@home.com>
I may be off-topic here,
but you just put a @ in front of it
or enclose it in []'s.
--
john
Abigail wrote:
> Calvin (citidancer@hongkong.com) wrote on MMCXL September MCMXCIII in
> <URL:news:7m9o3i$56u$1@hfc.pacific.net.hk>:
> !! Hi,
> !! This is the first newsgroup that people don't like spam proofed e-mail.
> !! I see nothing wrong with it. Am i hurt anyone by using spam proofed e-mail
> !! address? I am just protecting myself from spammers. I even don't know the
> !! FAQ will arrive in my mail box if i use a real address (before u told me).
>
> So, doesn't that give you a big hint on who you might be hurting?
> Could it be ...... *yourself*?
------------------------------
Date: 12 Jul 1999 11:09:30 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How to dereference an array reference?
Message-Id: <3789beda@newsread3.dircon.co.uk>
theoddone33 <anonymous@web.remarq.com> wrote:
>
> Anyone who can quote me a portion of this Faq regarding
> spam-proofing email addresses will cause me to formally
> apologize to the group for posting using a spam-proof
> address. However, a quick analysis of the table of
> contents leads me to believe that there are no "rules" for
> posting mentioned in it at all.
>
As you are obviously familiar with the site I would suggest that you
read <http://www.faqs.org/faqs/usenet/primer/part1/> particularly the bit
that says:
Check your return e-mail address and expect responses.
When you post an article, make sure that the return e-mail address in its
From: or Reply-To: headers is correct, since it is considered
inappropriate to post an article to which people are unable to respond by
e-mail. If you are unable to configure your software to include a valid
return address in your article header, you should include your address in
a signature at the bottom of your message.
When you post an article, you are engaging in a dialogue, and others may
choose to continue that dialogue by responding via e-mail. It is not
courteous to post if you are unwilling to receive e-mail in response.
Of course that is also posted regularly to news.announce.newusers .
/J\
--
"We've even been asked to review a luxury hotel. I can't think why" -
Neil Hamilton
------------------------------
Date: Mon, 12 Jul 1999 09:34:23 GMT
From: Sebastien.Barre@utc.fr (Sébastien Barré)
Subject: HTML::Element bug or flaw (entities) ?
Message-Id: <378bb616.3789579@news.club-internet.fr>
Dear Perl guru(s)
I was wondering about the HTML::Element::as_HTML code :
sub as_HTML
{
my $self = shift;
my @html = ();
$self->traverse(
sub {
my($node, $start, $depth) = @_;
if (ref $node) {
my $tag = $node->tag;
if ($start) {
push(@html, $node->starttag);
} elsif (not ($emptyElement{$tag} or
$optionalEndTag{$tag})) {
push(@html, $node->endtag);
}
} else {
# simple text content
HTML::Entities::encode_entities($node, "<>&");
push(@html, $node);
}
[...]
In simple text content, when calling HTML::Entities::encode_entities,
why is the conversion constrained to "<>&" ? This will encode (<, >, &)
as (<, >, &) but will disable all other conversions,
especially these related to accentuated chars. I guess this might be a
design choice, but what was the rational behind it ?
I guess I might sub-class HTML::Element to solve the problem, but I'd
have to rewrite HTML::TreeBuilder for example, which inherits both
HTML::Element and HTML::Parser ?
Thanks a lot
(and thanks for the LWP :)
--
Sebastien Barre : http://www.hds.utc.fr/~barre/
------------------------------
Date: Mon, 12 Jul 1999 09:40:00 GMT
From: Sebastien.Barre@utc.fr (Sébastien Barré)
Subject: HTML::Parser and line numbers ?
Message-Id: <378cb747.4094677@news.club-internet.fr>
I was wondering if someone heard about package or sub-class derived from
HTML::Parser and that could keep track of line numbers while parsing.
This would definitely be handful to report exactly when a
problem/feature occurred in a file/text.
Thanks
--
Sebastien Barre : http://www.hds.utc.fr/~barre/
------------------------------
Date: 12 Jul 1999 17:08:46 +1000
From: Clive Newall <crn@itga.com.au>
Subject: Re: I need to hide the source
Message-Id: <v57lo6pcox.fsf@lightning.itga.com.au>
"Jürgen Exner" <juex@my-dejanews.com> writes:
> Clive Newall <crn@itga.com.au> wrote in message
> > No. You cannot prevent root from breeching your security by technical
> > means. Your *only* hope is to enforce such security by other means.
> > Like hiring a good professional sysadmin.
> > Like ensuring all staff understand your security policies & how they
> > relate to confidential data.
> >
> > If you don't trust root there is only one solution: dismissal.
>
> I still disagree on both accounts:
> - You can protect you confidential data even from malicious sys-admins by
> good encryption. Yes, even that can be breeched provided you employ enough
> computation power, but usually even a sysadmin doesn't have the required
> computer power available (unless he works for the CIA ;-) .
> - And in e.g. Germany by law you must protect e.g. medical data in such a
> way, that unauthorized persons don't have access to that data. Unauthorized
> means the janitor for the file cabinet (which must be locked) just as well
> as the sysadmin for online records.
You imply that that the data will be encrypted & decrypted on the host
which has a sysadmin you do not trust. IE: At some time the data exists
on the host in clear text. Thus, the untrustworthy sysadmin can see it if
they really want to. *You cannot prevent this.*
Encryption in this case serves to prevent (in most cases) the sysadmin
seeing the data in the normal course of their work. This probably
meets any legal requirement.
--
Clive Newall <crn@itga.com.au> / ITG Australia Ltd, Melbourne Australia
"I think Casper is the ghost of Richie Rich. I wonder how Richie died?"
"Perhaps he realized how hollow the pursuit of money is and took his own life"
--Bart and Lisa Simpson
------------------------------
Date: Mon, 12 Jul 1999 09:27:42 +0200
From: "Frederic Descamps" <frederic.descamps@origin-it.com>
Subject: Modules and Perl2exe
Message-Id: <0E16861EE7BCD111BE9400805FE6841F0A4231CA@c1s5x001.cor.srvfarm.origin-it.com>
Hi,
When I want to use Perl2exe with a script (this script works fine with perl
name_name_of_script) using a module, it gives me this following message :
Warning: module [name_of_module] not found
Make sure that the perl\bin directory is in your path
Could somebody help me ?
------------------------------
Date: Mon, 12 Jul 1999 07:54:49 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: Modules and Perl2exe
Message-Id: <37899f31.9267886@news.uniplus.ch>
On Mon, 12 Jul 1999 09:27:42 +0200, "Frederic Descamps"
<frederic.descamps@origin-it.com> wrote:
>Hi,
>
>When I want to use Perl2exe with a script (this script works fine with perl
>name_name_of_script) using a module, it gives me this following message :
>
>Warning: module [name_of_module] not found
>Make sure that the perl\bin directory is in your path
>
>
>Could somebody help me ?
>
What about point 8 in the documentation?
Andreas
------------------------------
Date: Mon, 12 Jul 1999 10:56:03 +0100
From: "Eoan Kerr" <eoan.kerr@gssec.bt.co.uk>
Subject: Passing values to browser from perl.
Message-Id: <7mce34$q6h@cheetah.gssec.bt.co.uk>
Hello,
I am writing a perl script which is called when a contact is added on-line.
I am trying to figure out how to return the html page with the data entered
in cases off error. The user should be able to then change the wrong info.
The problem is that this works fine if I just write the print statements in
perl. As each of my html forms are huge I wanted to be able to call the
html doc from the perl script and read it one line at a time into an array
and send this back to the browser with print statements. This works fine
apart from the variable values - I just get the variable name in the
textfield rather than the value.
Heres a snippet of the code:
<center><form action="../cgi-bin/add_cont.cgi" method=post>
<table border=2 align=center>
<tr><th><p>Name:</th>
<td><br><input type="text" name="contname" size="40" value=$contname></p>
This is in a file called add_edit.htm and I am calling this file from my
perl program as follows:
if(open(INFILE, "../tele_only/add_edit.htm")) {
my @file = <INFILE>;
close INFILE;
map {print "$_\n" } @file;
}
The output html page on the browser shoes $contname in the textfield rather
than the variable value.
Any help would be appreciated.
Cheers.
Eoan.
------------------------------
Date: Mon, 12 Jul 1999 10:22:56 GMT
From: SANFACE Software <sanface@sanface.com>
Subject: SHAREWARE: txt2pdf.cgi 1.1
Message-Id: <7mcflq$jm5$1@nnrp1.deja.com>
txt2pdf.cgi is a very flexible PERL cgi-bin application based on the
powerful txt2pdf script.
It allows you to digit your text document inside an HTML form and
immediately transform it in a PDF document!
You can test the power of txt2pdf.cgi on the net at
http://www.sanface.com/createpdf.shtml
With the new version 1.1 we distribute also the PERL code.
You can decide to use the code to give the Create your PDF service like
free Internet service or register the code ($50) to give the Create your
PDF service to your Internet or Intranet users with few rules
The txt2pdf.cgi source code is our company core business.
We trust you.
Download txt2pdf.cgi v. 1.1 and test it!
We'll send you a free registered copy for a good idea or txt2pdf.cgi
modify.
--
SANFACE Software
http://www.sanface.com
mailto:sanface@sanface.com
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 12 Jul 1999 17:28:19 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: simple Perl question:
Message-Id: <MPG.11f444183ab1a54b989b2d@news-server>
Abigail writes ..
>Instead of giving a side answer, can you make a function that takes the
>arguments in the same way as print?
in your own style - RTFM (in fact print is even given as an example)
Advanced Perl Programming p109 .. The indirect notation
*B^)
--
jason - remove all hyphens for email reply -
------------------------------
Date: Mon, 12 Jul 1999 12:24:10 +0200
From: "Pletschette André" <andre.pletschette@ltam.lu>
Subject: What do I do wrong in sub savePage(...) ? (Problem or Bug?)
Message-Id: <7mcfn6$ne6$1@calais.pt.lu>
Can anybody tell me what I'me doing wrong?
I got a Program wich should get HTML Code ($FILE) from a File ($ARGV), add a
Link to [www.grosbous.lu] at the bottom and with
savePage($ARGV, $FILE);
rewrite the modified $FILE to to $ARGV.
But the problem is when I disable this line (with #), I have the right
result with
print STDOUT $FILE;
I mean the result I get the text I want to write into $ARGV, but when I
enable savePage ($ARGV, $FILE), I get something different with print.
What must I do to correctly write $FILE back to the file associated with
$ARGV?
sub savePage{
my ($FILENAME, $TEXT);
($FILENAME, $TEXT) = @_;
open(thisFile, ">$FILENAME");
select(thisFile);
print $TEXT;
close thisFile;
}
@a = list($D); ## @a = List with the files to treat
@ARGV = @a;
while (<>) {
$FILE = $_;
$FILE = footer($FILE); ## Puts the link [www.grosbous.lu]
savePage($ARGV, $FILE); ## ***it's probably here the problem
}
print STDOUT $FILE; ## Fir ze testen
print STDOUT $ARGV; ## Fir ze testen
------------------------------
Date: Sun, 11 Jul 1999 23:50:46 -0500
From: "Don Smith" <smithda@webwide.net>
Subject: Where is perlcc? byteperl?
Message-Id: <7mbstc$4eo$1@news.unicomp.net>
Let me try to pose my question(s) again so as not to offend. If anyone out
there could provide me with assistance, I would greatly appreciate it.
Yes, I have read through the FAQ.
Yes, I have searched CPAN and perl.com.
Yes, I have searched deja.com.
Yes, I have looked at my own Perl distribution, perldoc, and elsewhere.
Now, having dispensed with the formalities.
1. Where might I find "perlcc"? The links from CPAN are bogus.
2. Where might I find "byteperl"? My 5.005+ distribution doesn't seem to
include it.
Abigail, if my questions are too basic for you to bother with, please don't.
Thanks in advance (for constructive and/or useful answers).
-Don
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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 V9 Issue 116
*************************************
