[12561] in Perl-Users-Digest
Perl-Users Digest, Issue: 6161 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 29 04:07:15 1999
Date: Tue, 29 Jun 99 01:00:24 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 29 Jun 1999 Volume: 8 Number: 6161
Today's topics:
a new perl module <bert@senga.org>
Re: Bin output via Perl? <swiftkid@bigfoot.com>
Re: converting html to plain text <D4r3p3@hotmail.com>
Re: CPerl-mode not indenting this properly (Ilya Zakharevich)
Re: CPerl-mode not indenting this properly <aperrin@mcmahon.qal.berkeley.edu>
Force Refresh for SSI 3will3@my-deja.com
help with background (Peter Hodder)
help (Peter Hodder)
Re: help <swiftkid@bigfoot.com>
Re: How to put small icons at the start menu bar <D4r3p3@hotmail.com>
Re: How to put small icons at the start menu bar <swiftkid@bigfoot.com>
Re: How to start a thread in Perl <sugalskd@netserve.ous.edu>
If use Netscape please read <flounder_pounder@telebot.com>
Limits of Berkley DB/DB_File <thomas@bibsyst.no>
Re: Limits of Berkley DB/DB_File <swiftkid@bigfoot.com>
Re: Linux better than perl? <D4r3p3@hotmail.com>
Re: Linux better than perl? <D4r3p3@hotmail.com>
Re: Looking For A Perl Programmer smnayeem@my-deja.com
menu <tanya@i-cable.com>
module for WWW servers lhollman@my-deja.com
Object persistence -- how to? (Steve Leibel)
parsing for loop <D4r3p3@hotmail.com>
Re: parsing for loop (Damian Conway)
Re: parsing for loop <swiftkid@bigfoot.com>
Re: perl CGI Redirection (Abigail)
Perl,Sybase Contract in San Francisco!!!! gudipati@hotmail.com
Re: random numbers ? (Abigail)
SHAREWARE: txt2pdf v. 2.1 <sanface@sanface.com>
Re: Short Circuit Query (Jim Britain)
Where can I find source of using Perl CGI to control Ac carfield@my-deja.com
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 29 Jun 1999 09:18:46 +0200
From: Bertrand <bert@senga.org>
Subject: a new perl module
Message-Id: <37787356.FA2662CB@senga.org>
Hi,
Sorry if this has already been posted once. I'm planning to develop a
new Perl module CGI::NoFlood. It is supposed to avoid massive calls of a
CGI from a host in a given time. It would protect CGI like "on-line
account creation" against abusive requests for example. It can be used
to avoid the server to be loaded
by to many calls to heavy CGIs too.
Does anybody know if this already exists ? Any suggestion ? Any problem
for the name CGI::NoFlood ?
Thanks in advance,
--
----------------------
| Bertrand Demiddelaer |
| ECILA |
| 100 av. du Gal Leclerc |
| 93500 Pantin |
| Tel : 01 56 96 09 80 |
----------------------
------------------------------
Date: Tue, 29 Jun 1999 11:57:36 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: Bin output via Perl?
Message-Id: <7lau0v$4327@news.cyber.net.pk>
> file, they must enter appropriate information into the given form. Is
> there a way to stream a file (with the filename intact) to a web user
> through Perl? Or any other ideas how to go about this? Thanks.
Here is a simple example:
$file = "/yourdir/anyfile.jpg";
binmode STDOUT;
print "Content-type: image/gif\n\n";
open FILE , $file or die "error: $!";
print <FILE>;
close FILE;
--
Faisal Nasim (the Whiz Kid)
Web: http://wss.hypermart.net/
AOL: Whiz Swift ICQ: 4265451
FAX: (815) 846-2877
------------------------------
Date: Tue, 29 Jun 1999 01:35:43 -0400
From: "D4r3p3" <D4r3p3@hotmail.com>
Subject: Re: converting html to plain text
Message-Id: <377859f7@news.together.net>
Well...there are probably better things to try but it is up to you. It is
just that programs like Netscape and lynx both will convert HTML to text.
And when it comes to tables and cells, they may actually do a better job.
BUT then again, it's perl, so why not? Here is the answer to your
question from the Perl Cookbook. I haven't tested it so it's up to you.
use HTML::FormatText;
use HTML::Parse;
$html=parse_htmlfile($filename);
$formatter=HTML::FormatText->new(leftmargin => 0, rightmargin => 50);
$ascii = $formatter->format($html);
CRAP! My Perl Cookbook book just fell apart....sigh...they don't make them
like they used to.
The point is you need to use one of the modules(or check out the mod source
and rewrite it if you like). There is an HTML::TreeBuilder mod also.
Check it out at the CPAN site.
brian e jones <cluebag@world.std.com> wrote in message
news:FE2KFp.ILB@world.std.com...
> i think my last post was removed, if someone could tell my why i would
appreciate it. anyway, i have some files in html format that i would like
to convert to plain text (man pages to be exact). i think i could just get
the originals off of the installation cd, but i'm trying to learn perl and
wonder if this would be a good exercise. it is a little over my head so i
am hoping someone can clue me in on where to start with this. is this going
to be more involved than i thought? i just finished Learning Perl and have
started Programming Perl although i don't know much about html. i feel like
i have a decent understanding of the topics covered in Learning Perl, but i
don't have much experience programming and have no idea where to start.
thanks,
> -brian
------------------------------
Date: 29 Jun 1999 06:03:02 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: CPerl-mode not indenting this properly
Message-Id: <7l9nim$9is$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Andrew J Perrin
<aperrin@mcmahon.qal.berkeley.edu>],
who wrote in article <3777D0F0.8A5AFD9C@mcmahon.qal.berkeley.edu>:
> Greetings-
> Using cperl-mode with emacs 20.3.1 on NT4, the following code-snippet
> screws up indenting in braces:
>
> if ($word =~ /\123(.+)\125/) { #Processor directive
> my $instruction = $1;
> print STDERR " >>DIRECTIVE: $instruction\n" if $Main::debug;
...
Upgrade.
ftp://ftp.math.ohio-state.edu/pub/users/ilya/cperl-mode.el
Hope this helps,
Ilya
------------------------------
Date: Mon, 28 Jun 1999 23:45:39 -0700
From: Andrew J Perrin <aperrin@mcmahon.qal.berkeley.edu>
Subject: Re: CPerl-mode not indenting this properly
Message-Id: <37786B93.AE1CD4F3@mcmahon.qal.berkeley.edu>
Well, thanks for the tip, but I'm running cperl 4.18, the same version you
pointed me to. The following change fixed the indentation problem, but as
(I think) it's not required by perl it probably shouldn't be required by
cperl:
REMOVE: if ($instruction =~ /include(?:=)?(.+)/) {
REPLACE WITH: if ($instruction =~ /include(?:\=)?(.+)/) {
in other words, backslash the = in the regexp, and the braces go back to
working correctly. Obviously not a big deal, but worth noting.
Best,
Andy Perrin
Ilya Zakharevich wrote:
> Upgrade.
> ftp://ftp.math.ohio-state.edu/pub/users/ilya/cperl-mode.el
>
> Hope this helps,
> Ilya
--
-------------------------------------------------------------
Andrew Perrin - NT/Unix/Access Consulting -
aperrin@mcmahon.qal.berkeley.edu
http://www.geocities.com/SiliconValley/Grid/7544/
-------------------------------------------------------------
------------------------------
Date: Tue, 29 Jun 1999 06:09:06 GMT
From: 3will3@my-deja.com
Subject: Force Refresh for SSI
Message-Id: <7l9ntt$7ab$1@nnrp1.deja.com>
I have a problem here.
I have set up an oracle where you ask a question
and receive a random quote.
So I have used a random text CGI script in a SSI,
and the problem is that when you go back to the
question page again and ask another question, you
will get the same quote again!
So I have tried using various methods to have that
page reload, using an ASP script (comes up as text
in Netscape), using meta tags to refresh, using
meta tags to tell the browser not to cache and
using a javascript link to tell the page to reload
and none of them appear to actually *re-execute*
the cgi script in the server side include.
I was wondering if anyone out there had a solution
to this problem? Is there anyway I can make the
SSI execute the CGI script? or truly reload the
page or was there some creative solution around
this that I haven't thought of?
Please email me about this directly.
Any help would be greatly appreciated.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 29 Jun 1999 07:17:51 GMT
From: peterh@stealth.com.au (Peter Hodder)
Subject: help with background
Message-Id: <377a7310.4190812@news.griffith.stealth.com.au>
can someone tell me how to put a background image in a perl script.
>From Peter Hodder
peterh@vk2kcf.stealth.com.au
------------------------------
Date: Tue, 29 Jun 1999 07:10:13 GMT
From: peterh@stealth.com.au (Peter Hodder)
Subject: help
Message-Id: <3779710a.3671936@news.griffith.stealth.com.au>
can someone tell me how to put a background image in a perl script.
>From Peter Hodder
peterh@vk2kcf.stealth.com.au
------------------------------
Date: Tue, 29 Jun 1999 12:15:01 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: help
Message-Id: <7lav1p$4328@news.cyber.net.pk>
You don't put a background image in a perl script, but in a html page
through a perl script.
print '<body background=/images/blah.jpg>';
--
Faisal Nasim (the Whiz Kid)
Web: http://wss.hypermart.net/
AOL: Whiz Swift ICQ: 4265451
FAX: (815) 846-2877
Peter Hodder <peterh@stealth.com.au> wrote in message
news:3779710a.3671936@news.griffith.stealth.com.au...
> can someone tell me how to put a background image in a perl script.
> From Peter Hodder
> peterh@vk2kcf.stealth.com.au
------------------------------
Date: Tue, 29 Jun 1999 01:42:58 -0400
From: "D4r3p3" <D4r3p3@hotmail.com>
Subject: Re: How to put small icons at the start menu bar
Message-Id: <37785ba6@news.together.net>
Ummm...if you are talking about doing this in linux I can help you out
(depending on the window manager sometimes it is a bit involved). If you
are talking about MSWindows, you better get this message removed before
people start noticing it and forwarding it to all their programming buddies
for the "laugh of the day" mailing.
<smnayeem@my-deja.com> wrote in message news:7l9iah$5o3$1@nnrp1.deja.com...
> Does anyone know how I can install a small icon on the start menu like
> those of say ICQ, Antivirus programs, Pager etc? So that when someone
> clicks a window pops up, if they highlight something else happens etc.
> In fact is there any way to do windows programming using perl? or is it
> that using Microsoft tools is the only solution?
> Please let me know and thanks in advance.
>
> smnayeem
> smnayeem@agni.com
> Programmer,
> Agni Systems Ltd.
>
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
Date: Tue, 29 Jun 1999 11:52:34 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: How to put small icons at the start menu bar
Message-Id: <7latnh$4325@news.cyber.net.pk>
> In fact is there any way to do windows programming using perl? or is it
Yes you can develop GUI applications in Perl!
Perl/Tk is the solution. (same prog works in both Windows, Linux, cool eh?)
--
Faisal Nasim (the Whiz Kid)
Web: http://wss.hypermart.net/
AOL: Whiz Swift ICQ: 4265451
FAX: (815) 846-2877
------------------------------
Date: 29 Jun 1999 06:01:48 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: How to start a thread in Perl
Message-Id: <7l9ngc$4ce$1@news.NERO.NET>
osman durrani <osman@focomedia.de> wrote:
: Hi people,
: could anyone tell me how to do start a function in a thread in perl ?.I
: have perl on NT and cant do a fork.
Sure. Build perl with threads, then do a "new Thread \&foo". Simple. :-)
Dan
------------------------------
Date: Tue, 29 Jun 1999 02:30:33 -0500
From: Flounder Pounder <flounder_pounder@telebot.com>
Subject: If use Netscape please read
Message-Id: <37787619.BA592273@telebot.com>
Ok I am working on a search engine that searches a text database and am
writing the database and search engine CGI in Perl
(I love the pattern matching ;-D ) I have got the search engine done if
all I want it to do is search this text database so now what I need
is more links and while I am work on a web bot and making the search
engine more advanced (like letting it use META tags!) I need sites for
the
text database I only have 268 that is what I had in my Netscape
bookmarks that is were you all come in I have written a program to take
Netscape
bookmarks and enter the links into the database (beats entering them one
at a time!!!) So I was wondering if you would send me your Netscape
bookmarks to add to the database. I will send you my bookmarks if you
want me to but I would be very grateful to anyone who sent me theirs.
PLEASE HELP ME WITH MY PROJECT BY SENDING ME YOUR NETSCAPE BOOKMARKS
Thankz all,
Flounder
------------------------------
Date: Tue, 29 Jun 1999 08:07:41 +0200
From: Thomas Weholt <thomas@bibsyst.no>
Subject: Limits of Berkley DB/DB_File
Message-Id: <377862AC.3B19CBF4@bibsyst.no>
--------------3228C0975E34588BE218D71E
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi,
As a follow-up to my posting yeasterday about storing complex
datastructures, I was wondering about the limits of the Berkley DB. How
big can a database be before the speed is affected? Hwo can I store the
values most effectively?
--
-------------------------------------------------
| Thomas Weholt |_.|._| |
| Email : thomas@bibsyst.no <-|-> |
-------------------------------------------------
--------------3228C0975E34588BE218D71E
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Hi,
<p>As a follow-up to my posting yeasterday about storing complex datastructures,
I was wondering about the limits of the Berkley DB. How big can a database
be before the speed is affected? Hwo can I store the values most effectively?
<br>
<br>
<pre>--
-------------------------------------------------
| Thomas Weholt |_.|._| |
| Email : thomas@bibsyst.no <-|-> |
-------------------------------------------------</pre>
</html>
--------------3228C0975E34588BE218D71E--
------------------------------
Date: Tue, 29 Jun 1999 11:50:12 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: Limits of Berkley DB/DB_File
Message-Id: <7latj4$4324@news.cyber.net.pk>
Firstly, I don't thinks its a good idea to post in HTML.
Why don't you read the help page? It tells everything!
I have stored upto 4gb (on my local pc for local purpose) and it works
really fast!
You can store values just you like you store in a hash! You can also
delete() it etc. Also DB_File offers you to store multiple same named
hashes.
$db { 'yourname' } = "Cool Kid";
$db { 'yourname' } = "Whiz Kid";
That is possible! (read the man page)
--
Faisal Nasim (the Whiz Kid)
Web: http://wss.hypermart.net/
AOL: Whiz Swift ICQ: 4265451
FAX: (815) 846-2877
Thomas Weholt <thomas@bibsyst.no> wrote in message
news:377862AC.3B19CBF4@bibsyst.no...
Hi,
As a follow-up to my posting yeasterday about storing complex
datastructures, I was wondering about the limits of the Berkley DB. How big
can a database be before the speed is affected? Hwo can I store the values
most effectively?
--
-------------------------------------------------
| Thomas Weholt |_.|._| |
| Email : thomas@bibsyst.no <-|-> |
-------------------------------------------------
------------------------------
Date: Tue, 29 Jun 1999 01:46:40 -0400
From: "D4r3p3" <D4r3p3@hotmail.com>
Subject: Re: Linux better than perl?
Message-Id: <37785c83@news.together.net>
overheard, "I am not worried about the Y2K problem, Bill Gates will come up
with a solution and fix it.....It think he is the anti-Christ."
Buxtehude Hagen <revjack@radix.net> wrote in message
news:7l8v2f$oqg$1@news1.Radix.Net...
> Scratchie explains it all:
> :Joseph Hertzlinger <jhertzli@ix.netcom.com> wrote:
> ::>In comp.lang.perl.misc, joey@hecnyyvr.com (J.Y.) writes:
> ::>:Linux better than perl?
> ::>
> ::>America better than roads!
>
> :: Overheard remark: "Isn't HTML being replaced by Netscape?"
>
> :"They have the Internet on computers now?"
> : --Homer Simpson
>
> "Do I need a computer to run this?"
> --overheard at an Atari software convention table
------------------------------
Date: Tue, 29 Jun 1999 01:49:29 -0400
From: "D4r3p3" <D4r3p3@hotmail.com>
Subject: Re: Linux better than perl?
Message-Id: <37785d2d@news.together.net>
CRAP! Just spit coffee all over my keyboard!
Marcel Grunauer <marcel.grunauer@lovely.net> wrote in message
news:37794e0b.4921096@enews.newsguy.com...
> On 28 Jun 1999 02:12:45 GMT, joey@hecnyyvr.com (J.Y.) wrote:
>
> >Linux better than perl?
> >-JY
>
> "I think we should build a SQL database".
>
> "What color do you want that database?"
>
> "I think mauve has the most RAM."
>
>
> Marcel
>
------------------------------
Date: Tue, 29 Jun 1999 06:05:17 GMT
From: smnayeem@my-deja.com
Subject: Re: Looking For A Perl Programmer
Message-Id: <7l9nmp$79j$1@nnrp1.deja.com>
I have been trying to contact you on your yahoo account, but the mail
bounces back. I sent you an email on your dejanews account. Please email
me back at the following address :
smnayeem@agni.com
Thanks
Nayeem
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 29 Jun 1999 15:12:42 +0800
From: Tanya <tanya@i-cable.com>
Subject: menu
Message-Id: <377871E9.8AA936E2@i-cable.com>
where can i download the full perl 5.00x user menu?
------------------------------
Date: Tue, 29 Jun 1999 06:46:34 GMT
From: lhollman@my-deja.com
Subject: module for WWW servers
Message-Id: <7l9q48$7tp$1@nnrp1.deja.com>
Hi all:
I'm trying to build a light-weight WWW server using Perl. I've
pokedaround CPAN, but wasn't able to find a module of methods to help
write
WWW servers (like the LWP modules for writing clients). Hassuch a module
already been written? Has someone already written sucha server?
My method
so far is to use IO::Socket, but I run into problems at thepoint that I try
to implement CGI (getting my server to executeanother Perl script and
successfully having the STDOUT from thisscript get sent to the client rather
than to STDOUT of my server).Part of this may be wackiness with sockets on a
Win32 machine, butmore believable is wackiness on the part of the
programmer. I'mwilling to post broken code if it helps, but wanted to check
first ifthat's even necessary or if anyone has already been through all this
before.
Thanks for the help,
Lance
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 29 Jun 1999 00:22:00 -0700
From: stevel@coastside.net (Steve Leibel)
Subject: Object persistence -- how to?
Message-Id: <stevel-2906990022000001@192.168.100.2>
What is the best way to store an arbitrary object on disc? Is there a
persistence library of some sort?
In other words if I define a class and then create an instance of that
class, can I store the instance on disc for later retrieval?
email responses preferred but I'll check back here too.
Thanks,
Steve Leibel
stevel@coastside.net
------------------------------
Date: Tue, 29 Jun 1999 01:11:20 -0400
From: "D4r3p3" <D4r3p3@hotmail.com>
Subject: parsing for loop
Message-Id: <3778543c@news.together.net>
Hello:
I wrote a program that is sort of like bc but written in perl. As one of
it's features it can process a plain text file and evaluate equations. The
equations are put in the file one line at a time with any variables
assigned and then the program does the rest (like I said, it is a lot like
bc). What I want to be able to do is allow the user to put a 'for' loop in
the text file and then have the program parse the file including the for
loop. I just have no clue how to do it. I tried using a regexp to find the
for loop and then split at the " ; " but it didn't seem to work very well.
Does any one have any ideas how to do this? I sure could use the help.
Thank you.
Brian.
------------------------------
Date: 29 Jun 1999 06:56:08 GMT
From: damian@cs.monash.edu.au (Damian Conway)
Subject: Re: parsing for loop
Message-Id: <7l9qm8$b6q$1@towncrier.cc.monash.edu.au>
"D4r3p3" <D4r3p3@hotmail.com> writes:
>Hello:
>I wrote a program that is sort of like bc but written in perl. As one
>of it's features it can process a plain text file and evaluate
>equations. The equations are put in the file one line at a time with
>any variables assigned and then the program does the rest (like I
>said, it is a lot like bc). What I want to be able to do is allow the
>user to put a 'for' loop in the text file and then have the program
>parse the file including the for loop. I just have no clue how to do
>it. I tried using a regexp to find the for loop and then split at the
>" ; " but it didn't seem to work very well. Does any one have any
>ideas how to do this? I sure could use the help.
Sounds like you're at the point where a parser generator like
Parse::RecDescent, Parse::Yapp, or perl-byacc might help. Here's a
start in Parse::RecDescent. (Hmmmm, on reflection I don't know if
that's any easier! :-)
-----------cut-----------cut-----------cut-----------cut-----------cut----------
use Parse::RecDescent;
sub evalop
{
my (@list) = @{[@{$_[0]}]};
my $val = shift(@list)->();
while (@list)
{
my ($op, $arg2) = splice @list, 0, 2;
$op->($val,$arg2->());
}
return $val;
}
my $parse = Parse::RecDescent->new(<<'EndGrammar');
main: expr /\s*\Z/ { $item[1]->() }
| <error>
expr: /for(each)?/ lvar range expr
{ my ($vname,$expr) = @item[2,4];
my ($from, $to) = @{$item[3]};
sub { my $val;
no strict "refs";
for $$vname ($from->()..$to->())
{ $val = $expr->() }
return $val;
}
}
| lvar '=' addition
{ my ($vname, $expr) = @item[1,3];
sub { no strict 'refs'; $$vname = $expr->() }
}
| addition
addition: <leftop:multiplication add_op multiplication>
{ my $add = $item[1]; sub { ::evalop $add } }
add_op: '+' { sub { $_[0] += $_[1] } }
| '-' { sub { $_[0] -= $_[1] } }
multiplication: <leftop:factor mult_op factor>
{ my $mult = $item[1]; sub { ::evalop $mult } }
mult_op: '*' { sub { $_[0] *= $_[1] } }
| '/' { sub { $_[0] /= $_[1] } }
factor: number
| rvar
| '(' expr ')' { $item[2] }
range: "(" expr ".." expr ")"
{ [ @item[2,4] ] }
number: /[-+]?\d+(\.\d+)?/
{ sub { $item[1] } }
lvar: /\$([a-z]\w*)/
{ $1 }
rvar: lvar
{ sub { no strict 'refs'; ${$item[1]} } }
EndGrammar
while (<DATA>) {
print $parse->main($_), "\n";
}
__DATA__
$x = 2
$y = 3
+1-1+1-1+1-1+1-1+1
7*7-6*8
121/(121/11)/121*11
1/(10-1/(1/(10-1)))
$x * $y
foreach $i (1..$y) $x = $x * 2 + $i
$x
-----------cut-----------cut-----------cut-----------cut-----------cut----------
Damian
------------------------------
Date: Tue, 29 Jun 1999 11:54:09 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: parsing for loop
Message-Id: <7latqh$4326@news.cyber.net.pk>
> bc). What I want to be able to do is allow the user to put a 'for' loop
in
> the text file and then have the program parse the file including the for
> loop. I just have no clue how to do it. I tried using a regexp to find
the
> for loop and then split at the " ; " but it didn't seem to work very
well.
perldoc -f eval
--
Faisal Nasim (the Whiz Kid)
Web: http://wss.hypermart.net/
AOL: Whiz Swift ICQ: 4265451
FAX: (815) 846-2877
------------------------------
Date: 29 Jun 1999 01:06:54 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: perl CGI Redirection
Message-Id: <slrn7ngojh.r0.abigail@alexandra.delanet.com>
Ben Short (bshort@n0spam.shortboy.dhs.org) wrote on MMCXXVII September
MCMXCIII in <URL:news:MPG.11e21bb9abddcfe79896b7@loomi.telstra.net>:
"" Hi,
""
"" I was wondering if anybody has out there a *free* URL redirection script
"" that also does "seamless redirection" (that is, user sees foo.org, but
"" files are at someotherplace.com/~someuser/somedir/file.htm)
What's your Perl question? This place isn't about asking for programs.
Besides, what you need anyway is reading the manual of your server;
questions about that server are not be asked in this group.
Goodbye.
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
-----------== 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: Tue, 29 Jun 1999 04:57:09 GMT
From: gudipati@hotmail.com
Subject: Perl,Sybase Contract in San Francisco!!!!
Message-Id: <7l9jn2$653$1@nnrp1.deja.com>
I am looking for the following skills:
Skills: Perl, Sybase, Unix must.
Experience : 2 years+
Financial background experience prefered.
Location: San Francisco, CA.
Length: 6months+.
Rate: DOE.
Please send resumes for immidiate consideration.
Thanks
Ravikumar Gudipati
Ph : 510-490-2744.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 29 Jun 1999 01:00:24 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: random numbers ?
Message-Id: <slrn7ngo7b.r0.abigail@alexandra.delanet.com>
Randal L. Schwartz (merlyn@stonehenge.com) wrote on MMCXXVII September
MCMXCIII in <URL:news:m1yah46xvn.fsf@halfdome.holdit.com>:
//
// Let's do this:
//
// ## chose 6 draws of 47, non-replacing:
// @deck = (1..47);
// @draws = ();
// for (1..6) {
// push @draws, splice @deck, rand @deck, 1;
// }
Let's not. It will lead to bad, inefficient code.
Use Knuth instead.
Abigail
--
perl -wlne '}for($.){print' 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: Tue, 29 Jun 1999 06:36:09 GMT
From: SANFACE Software <sanface@sanface.com>
Subject: SHAREWARE: txt2pdf v. 2.1
Message-Id: <7l9pgp$7oj$1@nnrp1.deja.com>
txt2pdf is a very flexible PERL5 program. It's a
converter from text files to PDF format files.
Why do you need txt2pdf?
Most of your documents are text files (e.g. HTML, C
source, C++ source, PERL source, ...)
Inside your DBs you have textual information
txt2pdf is a PERL5 script, so you can use it in every
operating systems supported by PERL5 (View the list of
OS tested)
txt2pdf is a native converter, you don't need to pass
through PostScript format
txt2pdf is specific for text to PDF conversion, so
you can mark yellow, red, green, blue or bold, italic,
bolditalic (with PERL regular expression) words in the
produced PDF files
you can produce a 2-columns PDF
you can add page number in every page
you can add text at the beginning and at the end of
every file
you can add a border to every page
every word like http://... ftp://... mailto:... will
become an URL
every word like mime:... will become a link that
launch the correct application and opens the file
you can use a few parse commands (e.g.
[!blue]...[!/blue])
the fee for every licence is only $25
SANFACE Software is going to give you a free licence
for every good idea or for every good modify
txt2pdf is shareware
The txt2pdf source code is our company core business.
We trust you.
You can test text2pdf and modify it.
You can't use a modify version of txt2pdf for
production purpose.
You can't resell txt2pdf or a modify version of it
without SANFACE Software authorization.
You can't copy part of it to include in your source
without SANFACE Software authorization.
What's new in this version
every word like mime:... will become a link that
launch the correct application and opens the file
[from Eric Wagner]
Test txt2pdf 2.1!
You can find it in our new site http://www.sanface.com
--
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: Tue, 29 Jun 1999 07:05:50 GMT
From: jbritain@home.com (Jim Britain)
Subject: Re: Short Circuit Query
Message-Id: <37786f61.75062866@news>
On Mon, 28 Jun 1999 14:53:30 +0100, Steve Webb <S.Webb@ftel.co.uk>
wrote:
>Is there a way round short circuit in perl ?
>
>if (fred_is_alive() || tom_is_alive()) {
> buddies_are_alive();
>}
>
>I'd like to structure the code this way and enter the if block if either
>tom or fred is alive, but have both functions execute. Am I stuck with a
>code restructure or is there some special operator I don't know about,
>or even a neat trick with parenthesis.
sequence(comma) operator is your friend
#!/usr/bin/perl
sub fred_is_alive { print "fred checked\n"; return 1 }
sub tom_is_alive { print "tom checked\n"; return 1 }
if ($tom=tom_is_alive(), fred_is_alive() || $tom){
print "buddies are alive\n";
}
else { print "buddies return 0\n"}
------------------------------
Date: Tue, 29 Jun 1999 06:40:21 GMT
From: carfield@my-deja.com
Subject: Where can I find source of using Perl CGI to control Access Database file?
Message-Id: <7l9pok$7qp$1@nnrp1.deja.com>
As title, any web page or book teaching these?
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 6161
**************************************
