[11188] in Perl-Users-Digest
Perl-Users Digest, Issue: 4788 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 31 01:07:17 1999
Date: Sat, 30 Jan 99 22:00:20 -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 Sat, 30 Jan 1999 Volume: 8 Number: 4788
Today's topics:
any business accounting packages in perl? (Kirill Sapelkin)
Re: AOL and perl?? (Abigail)
Re: AOL and perl?? <abey@hill.ucr.edu>
CGI form processing <olivierf@worldnet.att.net>
Re: Comments in Perl code (Abigail)
Re: Comments in Perl code <eugene@snailgem.org>
Copying files in NT mwebster@inetarena.com
Re: Excel and perl <abey@hill.ucr.edu>
Re: Floating point math errors (Larry Rosler)
Re: Help a newbie Please. (Abigail)
Re: Help on deleting an item in an array? (Abigail)
Re: How does 'mail' program works (Abigail)
Re: How to e-mail Web Form Data? (Abigail)
Re: How to support both short and long option styles? (Ronald J Kimball)
Re: How to support both short and long option styles? (Abigail)
JPL <slava@volodchenko.freeserve.co.uk>
MD5::Digest and MIME::Body <adam@Tut.CS.UCLA.EDU>
Re: Multi Line Print <abey@hill.ucr.edu>
Re: Newbie question <abey@hill.ucr.edu>
Re: NEWBIE: ok, I suck (Abigail)
Re: NEWBIE: Premature end of script header <eugene@snailgem.org>
Re: NEWBIE: Premature end of script header (Abigail)
Re: Perl 'zine (John Day)
Re: Perl Crashes IIS4! (Abigail)
Perl Gurus needed for terrific Boca Raton opportunity.. <bko@bkoenterprises.com>
Retrieving the URL in case of a redirect zhara@altavista.net
Re: Retrieving the URL in case of a redirect (Bill Moseley)
Re: Sending email info@gadnet.com
sending mail attachment from script <till@dusk.inka.de>
Re: Using Perl to interrogate Hotmail (Abigail)
Visual WinPerl?? <tszeto@mindspring.com>
Re: Yahoo, proxys and perl <abey@hill.ucr.edu>
Re: Yahoo, proxys and perl (Abigail)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 30 Jan 1999 16:59:19 -0800
From: znanie@best.com (Kirill Sapelkin)
Subject: any business accounting packages in perl?
Message-Id: <znanie.917744239@shell5.ba.best.com>
Keywords: business accounting
Have there been any business accounting programs written in perl to be used
with any of the currently used database programs ( mysql, informix, etc.) ?
Kirill
------------------------------
Date: 31 Jan 1999 02:46:59 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: AOL and perl??
Message-Id: <790g73$7r3$1@client2.news.psi.net>
Mike Watkins (mwatkins@promotion4free.com) wrote on MCMLXXVIII September
MCMXCIII in <URL:news:eDw8XiDT#GA.185@nih2naaf.prod2.compuserve.com>:
&&
&& I've created a very simple password protection script. It works perfectly
&& for everyone except for the ones using the IE 4 AOL browser. What happens
&& is they login via a form, the script will check their info, and if
&& successful will write their username, ip #, and time to a session database.
&& On every page of Members Only Area there is a line of SSI which calls the
&& script and checks the session database for the persons IP#, ect...
Several million customers behind a handful of proxies..... That'll give very
useful "personal" #IP numbers.
Now, what's your Perl question?
Abigail
--
perl -wlne '}{print$.' file # Count the number of lines.
------------------------------
Date: Sat, 30 Jan 1999 18:57:46 -0800
From: Abraham Grief <abey@hill.ucr.edu>
To: Mike Watkins <mwatkins@promotion4free.com>
Subject: Re: AOL and perl??
Message-Id: <Pine.LNX.4.05.9901301837450.6143-100000@hill.ucr.edu>
On Sat, 30 Jan 1999, Mike Watkins wrote:
> Now, the people using IE 4 AOL brower can do the actual login fine, but when
> it comes to the SSI which checks if they have logged in, they always seem to
> get an access denied page.
The only thing that I can think of is that for some reason the browser is
requesting the document in such a way that the SSI that does the checking
is not getting executed. Do the files have a html or shtml extension? If
they're html, maybe try renaming all of them to shtml. I don't know if
that will work, but it's worth a shot.
HTH
------------------------------
Date: Sun, 31 Jan 1999 00:36:26 -0500
From: "Olivier" <olivierf@worldnet.att.net>
Subject: CGI form processing
Message-Id: <36b3ec40.0@news.one.net>
Hello,
I am new to PERL. I am lookng to process a form . I found a lot of
freeware but nothing that does what I want. Usually when there is some
error checking done on the form input, the error message appears on a
separate HTML page which end by " please go back, etc...". I'd like to
generate my error message at the top of the actual form which would still
contain the answers previously given by the user. Is this doable in PERL ?
If so is there any code out there I could start from ?
Thank you for any help,
Olivier
------------------------------
Date: 31 Jan 1999 02:49:59 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Comments in Perl code
Message-Id: <790gcn$7r3$2@client2.news.psi.net>
BloodStone (aaron.smith@home.com) wrote on MCMLXXVIII September MCMXCIII
in <URL:news:36b3869d.27063406@news>:
^^ Do comments in codes slow down there processing?
Of course. But only when compiling.
^^ And if so, how much?
I'd be very surprised if you could notice the difference.
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
------------------------------
Date: Sat, 30 Jan 1999 21:51:40 -0500
From: Eugene Sotirescu <eugene@snailgem.org>
Subject: Re: Comments in Perl code
Message-Id: <36B3C53C.4145D2BB@snailgem.org>
BloodStone wrote:
>
> Do comments in codes slow down there processing? And if so, how much?
> Thanks.
>
> BloodStone
They don't, comment away ;--------------)
--
Eugene
"Light is the all-exacting good,
That dry, forever virile stream
That wipes each thing to what it is,
The whole, collage and stone, cleansed
To its proper pastoral."
Alvin Feinman
------------------------------
Date: Sat, 30 Jan 1999 21:54:11 -0800
From: mwebster@inetarena.com
Subject: Copying files in NT
Message-Id: <36B3F002.4366E795@inetarena.com>
Any tips on where I can get info on copying files and directories on one
NTWS to an NT Server? I've got LPfW32, and I'm already checking the
www.activestate.com user groups, but I need a solution by Monday
morning! A simple "open()" isn't working the way it should, but I'm new
to the language and am still getting a feel...
Any suggestions??
mwebster@inetarena.com
------------------------------
Date: Sat, 30 Jan 1999 19:42:31 -0800
From: Abraham Grief <abey@hill.ucr.edu>
To: "Steve ." <syarbrou@enteract.com>
Subject: Re: Excel and perl
Message-Id: <Pine.LNX.4.05.9901301937290.7531-100000@hill.ucr.edu>
On Sat, 30 Jan 1999, Steve . wrote:
> I have an excel spreadsheet that I want to extract the data from for
> manipulation. Is there a way in perl to read an excel spreadsheet?
> Thanks.
>
> Steve
When I had to do this, I saved the spreadsheet as tab-delimited text from
Excel and worked from there. Also, watch out for posting the same message
multiple times.
HTH
------------------------------
Date: Sat, 30 Jan 1999 18:58:49 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Floating point math errors
Message-Id: <MPG.111d66b3576c97989899e7@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <36B1F5A2.C29EBAA3@lmco.com> on Fri, 29 Jan 1999 12:53:38 -
0500, James B Crigler <james.b.crigler@lmco.com> says...
...
> This brings up a question that's not an FAQ AFAIK. Perl defaults most
> math to floating point (machine's C double), but will, I guess, use
> integers
> where appropriate (array indexes, etc.). Now if you're doing monetary
> computations as you suggest above, the integers could easily grow out of
> the range of integers (2,147,483,647 for a 32-bit box). Unless you're
> using *my* checkbook. :-)
>
> Here's the question:
>
> If your integers grow bigger than that, is the floating point arithmetic
> still exact *for integers* (assuming no division or other nastiness that
> would introduce inexactness)?
You could do this experiment as easily as I could. Don't you have perl
installed somewhere?
However,
#!/usr/local/bin/perl -w
use strict;
my $x = 2 ** 52;
printf "%f\n", $x;
printf "%f\n", ++$x;
__END__
4503599627370496.000000
4503599627370497.000000
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 31 Jan 1999 04:31:36 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Help a newbie Please.
Message-Id: <790mb8$8rn$1@client2.news.psi.net>
Rob Blake (rblake@brookes.ac.uk) wrote on MCMLXXVI September MCMXCIII in
<URL:news:78purb$b81$1@cs3.brookes.ac.uk>:
[] I need some help, I've just downloaded the BNBFORM script however when I try
[] to compile it I get an error.
[]
[] Can't find string terminator "__W9__" anywhere before EOF at bnbform.cgi
[] line 140.
That means you're missing something. To be specific, you are missing
a line consisting of "__W9__", that acts as a string terminator.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|8;
.qq;8768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F;
.qq;76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V
/=$^U}while$^V!=$^W'
------------------------------
Date: 31 Jan 1999 04:34:02 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Help on deleting an item in an array?
Message-Id: <790mfq$8rn$2@client2.news.psi.net>
Greg Andrews (gerg@shell1.ncal.verio.com) wrote on MCMLXXVIII September
MCMXCIII in <URL:news:78tq8e$c46$1@shell1.ncal.verio.com>:
__
__ One other note: If you're going to delete more than one
__ element of an array, then you will probably want to delete
__ from the last element to the first. I.e. delete them
__ backwards.
No. If you know what you want to delete, just create an array with
the remaining elements, using grep {} or a slice. That will take
linear time, while deleting elements one by one can take quadratic
time; whether you go first to last, or last to first.
Abigail
--
perl -e '$a = q 94a75737420616e6f74686572205065726c204861636b65720a9 and
${qq$\x5F$} = q 97265646f9 and s g..g;
qq e\x63\x68\x72\x20\x30\x78$&eggee;
{eval if $a =~ s e..eqq qprint chr 0x$& and \x71\x20\x71\x71qeexcess}'
------------------------------
Date: 31 Jan 1999 04:35:12 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: How does 'mail' program works
Message-Id: <790mi0$8rn$3@client2.news.psi.net>
Nishant Shah (nishants@usc.edu) wrote on MCMLXXVIII September MCMXCIII in
<URL:news:Pine.GSO.4.02.9901301453470.9479-100000@nunki.usc.edu>:
{}
{} Is there any 'command line' option with mail program which allows me to
{} write the subject field.
That's not a Perl question. Use the appropriate group for the mail
program you are using.
Abigail
--
perl -wlpe '}{$_=$.' file # Count the number of lines.
------------------------------
Date: 31 Jan 1999 04:38:07 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: How to e-mail Web Form Data?
Message-Id: <790mnf$8rn$4@client2.news.psi.net>
Tom Bellmer (tbellmer@sky.net) wrote on MCMLXXVIII September MCMXCIII in
<URL:news:oqCs2.156$Hm1.6871029@alpha.sky.net>:
{}
{} Capture the contents of a HTML form (method=POST) and
{} let the action return all the form variables via an
{} e-mail. I could use hidden variables on the form to
{} store my e-mail address as a constant.
If you use the appropriate value for the 'action' attribute, you don't
need a separate program. Go to an HTML or browser group for details.
{} Please respond to me directly via e-mail as I will
{} not be a regular read of this newsgroup.
I guess the answer isn't important to you then!
Abigail
--
perl -weprint\<\<EOT\; -eJust -eanother -ePerl -eHacker -eEOT
------------------------------
Date: Sat, 30 Jan 1999 20:35:17 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: How to support both short and long option styles?
Message-Id: <1dmgosa.1y7w4lmw6rp1cN@bay1-358.quincy.ziplink.net>
Marc Haber <Marc.Haber-usenet@gmx.de> wrote:
> I believe that I need to use both Getopt::Std and Getopt::Long since
> Getopt::Std does not support "long" options and Getopt::Long does not
> support aggregating "short" options.
You are mistaken.
perldoc Getopt::Long
...Support for bundling of command line options, as was the case with
the more traditional single-letter approach, is provided but not
enabled by default...
> The docs for getopts and GetOptions show clearly how to use these
> functions, the examples from the Camel book and the Perl Cookbook say
> the same. But nowhere is explained how to use both functions together.
That's because you can't use both functions together. Nor would you
want to.
On the other hand, the documentation for Getopt::Long does explain how
to enable bundling when using the module, under the heading
'Configutation Options'.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 31 Jan 1999 05:08:11 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: How to support both short and long option styles?
Message-Id: <790ofr$92m$1@client2.news.psi.net>
Ronald J Kimball (rjk@linguist.dartmouth.edu) wrote on MCMLXXIX September
MCMXCIII in <URL:news:1dmgosa.1y7w4lmw6rp1cN@bay1-358.quincy.ziplink.net>:
{} Marc Haber <Marc.Haber-usenet@gmx.de> wrote:
{}
{} > I believe that I need to use both Getopt::Std and Getopt::Long since
{} > Getopt::Std does not support "long" options and Getopt::Long does not
{} > support aggregating "short" options.
{}
{}
{} You are mistaken.
{}
{}
{} perldoc Getopt::Long
{}
{} ...Support for bundling of command line options, as was the case with
{} the more traditional single-letter approach, is provided but not
{} enabled by default...
{}
{} > The docs for getopts and GetOptions show clearly how to use these
{} > functions, the examples from the Camel book and the Perl Cookbook say
{} > the same. But nowhere is explained how to use both functions together.
{}
{} That's because you can't use both functions together. Nor would you
{} want to.
{}
{} On the other hand, the documentation for Getopt::Long does explain how
{} to enable bundling when using the module, under the heading
{} 'Configutation Options'.
Uhm, I tried. The documentation suggests setting "bundling_override".
However, that leads to runtime errors in Getopt::Long.
$ cat do.pl
#!/usr/local/bin/perl -w
use strict;
use Getopt::Long;
Getopt::Long::Configure ("bundling_override");
GetOptions ("force" => \my $force,
"state=s" => \my $state,
"d" => \my $d,
"v" => \my $v);
if (defined $force) {print "Force option present.\n";}
if (defined $state) {print "State option present (value = $state)\n";}
if (defined $d) {print "D option present\n";}
if (defined $v) {print "V option present\n";}
__END__
$ ./do.pl --state foo --force -dv
Use of uninitialized value at lib/Getopt/Long.pm (autosplit into lib/auto/Getopt/Long/FindOption.al) line 550.
Use of uninitialized value at lib/Getopt/Long.pm (autosplit into lib/auto/Getopt/Long/FindOption.al) line 554.
Force option present.
State option present (value = foo)
D option present
V option present
$
And worse, it won't abbreviate long options anymore:
$ ./do.pl -s foo -f -dv
Use of uninitialized value at lib/Getopt/Long.pm (autosplit into lib/auto/Getopt/Long/FindOption.al) line 550.
Unknown option: s
Use of uninitialized value at lib/Getopt/Long.pm (autosplit into lib/auto/Getopt/Long/FindOption.al) line 550.
Unknown option: f
Use of uninitialized value at lib/Getopt/Long.pm (autosplit into lib/auto/Getopt/Long/FindOption.al) line 550.
Use of uninitialized value at lib/Getopt/Long.pm (autosplit into lib/auto/Getopt/Long/FindOption.al) line 554.
D option present
V option present
$
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
------------------------------
Date: Sun, 31 Jan 1999 02:39:03 -0000
From: "Slava" <slava@volodchenko.freeserve.co.uk>
Subject: JPL
Message-Id: <790fo7$ant$1@news5.svr.pol.co.uk>
Hi,
I am trying to find any information about Java-Perl Lingo (JPL).
My main interest is ability to generate threads.
Can anyone suggest me where I can start looking for documentation about it.
TIA
Slava
------------------------------
Date: 30 Jan 1999 18:25:37 -0800
From: Adam Rosenstein <adam@Tut.CS.UCLA.EDU>
Subject: MD5::Digest and MIME::Body
Message-Id: <m37lu4nppa.fsf@Tut.CS.UCLA.EDU>
Could sombody be kind enough to demonstrate to a newbie the "right"
way to use the addfile() method of and MD5::Digest on the content of
MIME::Body?
------------------------------
Date: Sat, 30 Jan 1999 18:14:35 -0800
From: Abraham Grief <abey@hill.ucr.edu>
Subject: Re: Multi Line Print
Message-Id: <Pine.LNX.4.05.9901301811110.6143-100000@hill.ucr.edu>
On Sat, 30 Jan 1999, Tad McClellan wrote:
> : Maybe try retyping it in a windows text editor.
> Retyping?
> No way!
> If you transfer the files using FTP's ASCII (or "text") mode,
> it will convert line endings to match the convention used by
> the receiving system.
>
> Or write a perl one-liner to convert the line endings.
> perl -p -i -e 's/\r//g' files... # DOS to Unix
> perl -p -i -e 's/\n/\r\n/g' files... # Unix to DOS
Yeah, that's even better than typing.
------------------------------
Date: Sat, 30 Jan 1999 19:55:14 -0800
From: Abraham Grief <abey@hill.ucr.edu>
To: Gary Smiley <gasmiley@mediaone.net>
Subject: Re: Newbie question
Message-Id: <Pine.LNX.4.05.9901301947030.7531-100000@hill.ucr.edu>
On Sat, 30 Jan 1999, Gary Smiley wrote:
> to a shared network drive, the file name has to be in the form
> \\computername\shareddrivename\directoryname\filename but this doesn't
Make sure that you're not interpreting your backslashes, i.e., use
'\\computername\shareddrivename\directoryname\filename' as opposed to
"\\computername\shareddrivename\directoryname\filename". Unless you have
variables there... in that case, you'll want something like
"\\\\$computername\\$shareddrivename\\$directoryname\\$filename".
HTH
------------------------------
Date: 31 Jan 1999 05:12:45 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: NEWBIE: ok, I suck
Message-Id: <790ood$92m$2@client2.news.psi.net>
John P. Abe (Rhialto) (jpa@pine.cse.nau.edu) wrote on MCMLXXVII September
MCMXCIII in <URL:news:78td8o$3q1$1@ruby.ucc.nau.edu>:
--
-- while ($infile = <READ>) {
-- s/$outexp/$inexp/;
-- print $infile;
-- }
-- close (READ);
--
-- Using a perl -w, I get the message that $outexp and $inexp are
-- not initialized within the loop. Is there some sort of scoping
-- issue I have overlooked?
Really? I never knew Perl tells you which variables aren't initialized.
But perhaps Perl gives you the *line* that uses the undefined value.
Like the line "s/$outexp/$inexp/;" which tries to modify $_, which is
undefined.
Perhaps you want to look into the =~ operator.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
------------------------------
Date: Sat, 30 Jan 1999 21:47:03 -0500
From: Eugene Sotirescu <eugene@snailgem.org>
Subject: Re: NEWBIE: Premature end of script header
Message-Id: <36B3C427.9B018F2C@snailgem.org>
William B. wrote:
>
> I'm attempting to setup perlshop and am receiving the above error. Can anyone
> tell me what it means and how to solve the problem?
What's perlshop?
--
Eugene
"Light is the all-exacting good,
That dry, forever virile stream
That wipes each thing to what it is,
The whole, collage and stone, cleansed
To its proper pastoral."
Alvin Feinman
------------------------------
Date: 31 Jan 1999 05:15:12 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: NEWBIE: Premature end of script header
Message-Id: <790ot0$92m$3@client2.news.psi.net>
William B. (rblench@clover.net) wrote on MCMLXXVIII September MCMXCIII in
<URL:news:78v78k$qoc$1@nnrp1.dejanews.com>:
{} I'm attempting to setup perlshop and am receiving the above error. Can anyone
{} tell me what it means and how to solve the problem?
It's not a Perl error.
Maybe you should take your question to comp.perlshop.misc.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
------------------------------
Date: Sun, 31 Jan 1999 01:45:16 GMT
From: jday@vic.bigpond.net.au (John Day)
Subject: Re: Perl 'zine
Message-Id: <36b3b52d.78950424@203.29.210.32>
I too would be interested in something on-line. I have not seen TPJ
yet.
I am a 'near newbie' Perl programmer. After many years of FORTRAN and
some totally unsatisfying time using VB and C/C++ I am totally
enjoying Perl and all it has to offer. I could contribute some
'newbie' type material.
John
On Sat, 30 Jan 1999 08:28:59 +0000, Marquis de Carvdawg
<carvdawg@patriot.net> wrote:
>Just throwing this out to everyone...
>
>I really enjoy TPJ...when it comes out. I get digests from
>the ActiveState listservers, and I read the groups.
>
>Is there any desire for a monthly 'zine along the lines of TPJ?
>I was thinking that it could start out online, and then possibly
>go to soft-cover in the future. I would be glad to not only
>subscribe to such a thing, but also contribute...
>
>I am asking this b/c I have added a 'Perl Corner' to an e-letter
>that I edit, and it's been a real hit with newbies and more experienced
>Perl programmers, as well...
>
>Carv
>
------------------------------
Date: 31 Jan 1999 05:16:55 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Perl Crashes IIS4!
Message-Id: <790p07$92m$4@client2.news.psi.net>
Richard Walker (Richard.Walker@west-server.com) wrote on MCMLXXVIII
September MCMXCIII in <URL:news:36B39BAF.60761156@west-server.com>:
**
** Every time I run a PerlScript in ASP that uses IO::Sockets, it executes,
** then promptly shuts my IIS4 server down.
Sounds like a bug in IIS to me.
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\\\- -eJust -eanother -ePerl -eHacker -e\\\\-]}-
------------------------------
Date: 30 Jan 1999 19:35:21 PST
From: "Bridget O'Connor" <bko@bkoenterprises.com>
Subject: Perl Gurus needed for terrific Boca Raton opportunity...
Message-Id: <790j1p$76r@journal.concentric.net>
Hello all,
Below is information on a wonderful career opportunity with one of our
clients in Boca Raton, FL. If you aren't interested in a new opportunity,
please skip this post. Thanks a bunch....
Terrific permanent job opportunities in Boca Raton for top notch Perl / CGI
programmers.
Salaries to 125K plus ground floor stock options and other bennies.
Our client started his SECOND software company 6 months ago. The success of
his initial product landed his first start-up on the New York Stock Exchange
where he is still the largest share holder. He's on his way to huge success
again and has already grown his new company to 70 employees and is moving
very quickly toward his new very aggressive objectives.
If you meet the company's very high expectations, this could very well be
the last job you will ever need. My client wants the best developers and is
more than willing to pay for them. Starting salaries are excellent (to
125k -most of our programmer placements with this company to date have
started at 100+K/yr) and if history is any indication, the stock options
could very well dwarf these terrific salaries in the end.
Requirements for these positions are 3+ years using Perl and CGI to develop
real world web applications, 2+ years using Perl to access a relational
database (Sybase preferred), 2+ years using Unix, and knowledge of Apache
Web Server, C, shell scripting, and vi editor.
If you feel the term "the best of the best" describes your Perl skills,
please e-mail or fax your resume referencing "Perl Guru" to:
Bridget O'Connor
BKO Enterprises, Inc.
Technical Personnel
BKO@BKOenterprises.com
800-385-1914
800-842-7861 (FAX)
We're sorry but we do not have any entry or junior level positions open.
Our client is looking for only highly experienced individuals at this time.
Additionally, this opportunity is only available to US citizens or permanent
residents.....Thanks for your time...
--
------------------------------
Date: Sun, 31 Jan 1999 00:51:06 GMT
From: zhara@altavista.net
Subject: Retrieving the URL in case of a redirect
Message-Id: <7909do$mc5$1@nnrp1.dejanews.com>
I'm experimenting with a little robot, that checkes a list of links.
Everything works fine using LWP (my version is 1.45 1997/01/27). What I would
like to do (and fail) is the following:
Some of the links to be checked are redirects onto other sites. I'm able to
retrieve the header as well as the content of the redirectes site, but not
it's URL. It should be easy, but I can't find the way.
Any help will be appreciated
Yours Zacharias
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sat, 30 Jan 1999 21:50:37 -0800
From: moseley@best.com (Bill Moseley)
Subject: Re: Retrieving the URL in case of a redirect
Message-Id: <MPG.111d8f0b46956f0198968f@nntp1.ba.best.com>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
In article <7909do$mc5$1@nnrp1.dejanews.com>, zhara@altavista.net says...
> I'm experimenting with a little robot, that checkes a list of links.
> Everything works fine using LWP (my version is 1.45 1997/01/27). What I would
> like to do (and fail) is the following:
>
> Some of the links to be checked are redirects onto other sites. I'm able to
> retrieve the header as well as the content of the redirectes site, but not
> it's URL. It should be easy, but I can't find the way.
Look a bit more into the LWP docs. Someone just helped me with this one.
# this will not redirect
my $res = $ua->simple_request($req);
So then you can catch the redirects, record the URL, and then visit the
new location.
--
Bill Moseley mailto:moseley@best.com
------------------------------
Date: Sun, 31 Jan 1999 09:55:49 GMT
From: info@gadnet.com
Subject: Re: Sending email
Message-Id: <36b42661.143802751@news.newsguy.com>
>> &footer;
>
>This does not mean what you think it does. Read perlsub for a
>discussion of the difference between footer() and &footer.
It is a subroutine that I call from lots of different places and it
works fine everywhere else.
>> print "<HTML><HEAD><TITLE>$title - @_[0]</TITLE></HEAD>\n";
>
>Why are you using an array slice?
Is there a reason why I shouldn't? I'm just trying to display the
value that was passed to the subroutine. If there is a more
conventional way of doing it I'ld be glad to hear. It's my first
attempt at Perl and it's freeware and a lot of people are using it if
that makes you feel any better.
>> open(MHEAD,"$memberhead");
>
>*sigh*
>
>If you come here saying "help me" and several people say to you "The
>first thing you must do is check for system call failures or else
>there's little point in checking further," and you say "No, but please
>debug my code for me anyway," then I say *plonk*.
Fair point, and *plonk* is probably politer than I deserve, but the
condition is never true so that bit of code never gets executed. It
just there to remind me to implement that feature at some stage in the
future. As I say, the header and footer routines work whenever they
are called from anywhere else.
------------------------------
Date: Sun, 31 Jan 1999 01:08:32 +0100
From: Till Otto <till@dusk.inka.de>
Subject: sending mail attachment from script
Message-Id: <0u6097.923.ln@dusk.inka.de>
Hi-
can I send a mail with attachment (gzip file) from a script ?
The mailer is "exim". If possible I would like to do it without additional modules
I experimented with the uuencode command but I'm not sure about the formatting of the message.
Thanks.
-Till
--
Till Otto [ http://www.inka.de/~dusk ]
------------------------------
Date: 31 Jan 1999 05:23:23 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Using Perl to interrogate Hotmail
Message-Id: <790pcb$92m$5@client2.news.psi.net>
Barb - perlgirl (perlquestions@yahoo.com) wrote on MCMLXXVII September
MCMXCIII in <URL:news:78t356$38n$1@nnrp1.dejanews.com>:
"" I want to write something that will log into my hotmail and yahoo accounts
"" and identify whether I have any new messages. I normally set up an account
"" on one or the other for each project on which I work (I do a little
"" consulting) and it's a pain after awhile to log into 8-9 accounts each day.
"" I have been noodling with a couple Perl libraries, but haven't figured out
"" where to look for code that will help me through the login, etc.
use LWP::UserAgent;
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
------------------------------
Date: Sat, 30 Jan 1999 21:35:49 -0000
From: "Ted" <tszeto@mindspring.com>
Subject: Visual WinPerl??
Message-Id: <790q6r$2gg$1@samsara0.mindspring.com>
Hello,
I'm a Mac user that has just recently switched to Windows. I've just
installed WinPerl on my NT and find it sort of a hassle to use compared to
MacPerl. I'm using UltraEdit to write my scripts and have to use the dos
window to run it.
Is there a way to make WinPerl a little more user friendly?? Like a visual
interface (ala Visual C++) ?
Any help appreciated.
Regards,
Ted
tszeto@mindspring.com
------------------------------
Date: Sat, 30 Jan 1999 20:19:00 -0800
From: Abraham Grief <abey@hill.ucr.edu>
To: me <msquire@ktb.net>
Subject: Re: Yahoo, proxys and perl
Message-Id: <Pine.LNX.4.05.9901302015290.8113-100000@hill.ucr.edu>
On Sat, 30 Jan 1999, me wrote:
> Hi All,
> I really hope this is not off topic, but I have had this situation
It is off topic, but oh well.
> nagging me for a while now. I wrote proxy server. It works fine, and
> I have had very few problems. I noticed though, that when I try to
> access yahoo through the proxy, yahoo somehow completely circumvents the
> proxy and sends html and data directly to my machine instead of to the
> proxy first.
> I know this because I forced the proxy to create a log of all the data
> that passes through it (temporarily). There was absolutely NO data from
> Yahoo that went to the proxy first. It is like Yahoo knew that I was
> using a proxy and circumvented it somehow. Does anyone please have an
> explanation?
> ~Prime
Maybe your browser is configured to not use your proxy for the yahoo.com
domain name. Check the browser preferences to find out. Just a thought.
------------------------------
Date: 31 Jan 1999 05:31:05 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Yahoo, proxys and perl
Message-Id: <790pqp$92m$6@client2.news.psi.net>
me (msquire@ktb.net) wrote on MCMLXXVIII September MCMXCIII in
<URL:news:36B34D91.F7EF9E8B@ktb.net>:
() Hi All,
() I really hope this is not off topic, but I have had this situation
() nagging me for a while now. I wrote proxy server. It works fine, and
() I have had very few problems. I noticed though, that when I try to
() access yahoo through the proxy, yahoo somehow completely circumvents the
() proxy and sends html and data directly to my machine instead of to the
() proxy first.
() I know this because I forced the proxy to create a log of all the data
() that passes through it (temporarily). There was absolutely NO data from
() Yahoo that went to the proxy first. It is like Yahoo knew that I was
() using a proxy and circumvented it somehow. Does anyone please have an
() explanation?
You are mistaken. Even if Yahoo knows (which theoretically it can,
depending on what information you send - but it's extremely unlikely
someone at yahoo is writing a program specifically to detect your proxy)
it still can't "circumvent" your proxy. Even if they are omniscient,
your computer isn't omnipotent, so any data send from yahoo to your
computer will be dropped on the floor.
It's very likely your browser is bypassing the proxy for one reason or
the other. You gave us too little information to determine that; besides,
that's a question for a browsers group.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
------------------------------
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 4788
**************************************
