[13274] in Perl-Users-Digest
Perl-Users Digest, Issue: 684 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 31 03:17:35 1999
Date: Tue, 31 Aug 1999 00:05:13 -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 Tue, 31 Aug 1999 Volume: 9 Number: 684
Today's topics:
$x=('a','b','c','d'); $x=('a'..'d'); $x=(($m,$n)=('a' <johnlin@chttl.com.tw>
Re: $x=('a','b','c','d'); $x=('a'..'d'); $x=(($m,$n)= (Eric Bohlman)
a simple POST request vengence7140@my-deja.com
Beginner question <koopa1@unforgettable.com>
Re: Beginner's Question: testing array membership (Gregory Firth)
DB_File database copying aaronsca@hotmail.com
Re: File listing (Abigail)
Re: File listing <meowing@banet.net>
HASH ? tvn007@my-deja.com
Help! Redirection problem <webmaster_info@infobankasia.com.sg>
Help: How to put perl with HTTP libs on one floppy (win <mike5@eunet.si>
Re: I am new to perl <jbc@shell2.la.best.com>
Re: Interrupts and Graphics in Win32 (Eric Bohlman)
Need "Universal" exporter.pm File <jrmaiocchi@home.com>
Re: Need "Universal" exporter.pm File (Eric Bohlman)
Re: perl RPC's and calling C <meowing@banet.net>
Re: Perl Y2K Bugs on the Internet (Larry Rosler)
Posting forms with Perl <joel_k@my-deja.com>
Re: Posting forms with Perl (Eric Bohlman)
Re: Question about sendmail ()
Re: Ready to get to work but... <Joachim.Nock@sirona.de>
Re: sending mail through perl on IIS 4.0 (David Efflandt)
Re: Testing files on cd-rom? (Abigail)
Re: Testing files on cd-rom? <thomas@bibsyst.no>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 31 Aug 1999 11:20:41 +0800
From: "John Lin" <johnlin@chttl.com.tw>
Subject: $x=('a','b','c','d'); $x=('a'..'d'); $x=(($m,$n)=('a'..'d'))
Message-Id: <7qfhie$dlg@netnews.hinet.net>
# Here is a quiz. Guess the outputs before you run it.
@a=('a','b','c','d'); $x=@a; print "output1= @a,$x\n";
$x=('a','b','c','d'); print "output2= $x\n";
@a=('b','c','d'); $x=('a',@a); print "output3= $x\n";
@a=('a'..'d'); $x=@a; print "output4= @a,$x\n";
$x=('a'..'d'); print "output5= $x\n";
@a=(($m,$n)=('a'..'d')); $x=@a; print "output6= @a,$x\n";
$x=(($m,$n)=('a'..'d')); print "output7= $x\n";
print "output8= ",('a','b','c','d'),"\n";
print "output9= ",('a'..'d'),"\n";
print "output10= ",(($m,$n)=('a'..'d')),"\n";
# How many answers did you get right?
#
# 10 (all correct): You must be in the Perl developing team.
# 8~9 : I guess you are a Perl hacker.
# 0~7 : Just like me, you complain Perl is too discriminative.
#
# I think it would be less confusing and more consistent if
# output2= 4 (instead of 'd')
# output3= 4 (instead of 3)
# output5= 4 (instead of "")
# output7= 2 (instead of 4)
#
#
# In perldata I see the explanation about output3= 3
#
# "Lists return the last value, like the C comma operator"
#
# But I can't think of any case that I will type
# $x=('a',@a); if I want to say $x=@a;
# and in what case I will type
# $x=('a','b','c','d'); if I want to say $x='d';
#
#
# Also in perldata I see the explanation about output7= 4
#
# "This is very handy when you want to do a list assignment
# in a Boolean context."
#
# But output7= 2 is good enough to fit this need.
#
# Could anyone please give me some examples to show that
# output3= 3, output5= "" and output7= 4
# are very useful?
#
# Thank you very much.
#
# John Lin
------------------------------
Date: 31 Aug 1999 05:06:26 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: $x=('a','b','c','d'); $x=('a'..'d'); $x=(($m,$n)=('a'..'d'))
Message-Id: <7qfnsi$h9o@dfw-ixnews21.ix.netcom.com>
John Lin (johnlin@chttl.com.tw) wrote:
: # I think it would be less confusing and more consistent if
: # output2= 4 (instead of 'd')
: # output3= 4 (instead of 3)
: # output5= 4 (instead of "")
: # output7= 2 (instead of 4)
You just need to remember one simple rule: parentheses don't construct
anything, they just delimit things. They don't turn lists into arrays,
regardless of how much you might want them to. Only assignment turns a
list into an array; in an assignment, the parentheses just indicated
where the assignees begin and end.
------------------------------
Date: Tue, 31 Aug 1999 05:01:14 GMT
From: vengence7140@my-deja.com
Subject: a simple POST request
Message-Id: <7qfnil$ufr$1@nnrp1.deja.com>
a CGI related question:
What I tried to accomplish is to simply
send a post request to a server, followed by
a body of text. What I want to do on server
side is to get the body of text and process it.
I don't see any functions in CGI module which
would allow me to do that easily. CGI seems to be
an overkill this time.
Jimmy
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 31 Aug 1999 08:01:48 +0200
From: "Koopa One" <koopa1@unforgettable.com>
Subject: Beginner question
Message-Id: <7qfr3n$aq0$1@fleetstreet.Austria.EU.net>
Im new to Perl and CGI, so here's a question for you professionals:
My ISP doe not allow CGI or PERL Scripts on the Server. He told me to use
the program perl2exe, it compiles Scripts to executeable files.
But how do i use this program ?
How do i have to modify the scripts ?
Thanx a lot,
KoopaOne
------------------------------
Date: 31 Aug 1999 01:30:04 -0500
From: gfirth@worldnet.att.net (Gregory Firth)
Subject: Re: Beginner's Question: testing array membership
Message-Id: <37cb4cf4.15758729@news3.newscene.com>
Yep, Gregory should have read the FAQ, which would have told him that
there is no simple way to test membership in an array. Thanks for the
pointers.
------------------------------
Date: Tue, 31 Aug 1999 04:45:13 GMT
From: aaronsca@hotmail.com
Subject: DB_File database copying
Message-Id: <7qfmko$tpj$1@nnrp1.deja.com>
Greetings,
I have an interesting problem with DB_File. I need to create Berkeley
DB BTree databases with DB_File on a regular basis that contain 10,000+
records. The problem is that it takes _forever_ (actually about five
minutes). Presumably the wait is for DB_File to re-arrange the nodes (or
buckets) to accommodate the records by shuffling the records on the
disk. Would it be possible to create the database in memory and then
just to write out the in memory database to disk?
TIA,
-Aaron
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 31 Aug 1999 00:13:52 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: File listing
Message-Id: <slrn7smp9v.9pm.abigail@alexandra.delanet.com>
meow (meowing@banet.net) wrote on MMCXC September MCMXCIII in
<URL:news:877lmckhcr.fsf@slip-32-100-243-84.ma.us.ibm.net>:
{} Rolf Raven <rolf.raven@quantis.nl> wrote:
{}
{} > Abigail wrote:
{} >>
{} >> Rolf Raven (rolf.raven@quantis.nl) wrote on MMCXC September MCMXCIII in
{} >> || opendir THISDIR, "." or die "$!";
{} >> || @allfiles = readdir THISDIR;
{} >> || closedir THISDIR;
{} >> || print "@allfiles\n";
{} >>
{} >> And that selects the files matching a specific criteria exactly how?
{}
{} > Well... you know... uhm... yeah... just write "*.txt" instead of "."
{}
{} The "." was probably fine, if what you're looking to scan is the
{} current dir. The above code thingy wasn't exactly wrong, but it's not
{} finished. You've got an array of the files in the directory, now it's
{} time to filter out the ones you want.
{}
{} #!/usr/local/bin/perl -w
{} use strict;
{}
{} my $dirtosearch = '.';
{} my $findwhat = '\.txt$';
{}
{} opendir(DIR, $dirtosearch) or die $!;
{} my @messofiles = grep { /$findwhat/ && -f "$dirtosearch/$_" } readdir(DIR);
{} closedir(DIR);
The problem with that is that it will return files with names like
".foo.txt", which aren't matched by the shell "*.txt" wildcard.
{}
{} print join("\n", sort(@messofiles)), "\n";
{} __END__
{}
{}
{} > And yes, I know you should use 'glob'...
{}
{} You were on the right track with readdir. Globbing calls an external
{} program, it doesn't get along with perl -T, and the dual personality
{} of <> is the kind of thing that should be saved for obfuscation
{} contests.
Bullocks. If you don't like <>, use glob(). There is nothing inherently
wrong about calling external programs; specially not in this case, where
the obvious Perl alternative is wrong. -T might not at all wanted; if
the program isn't running on behalf of someone else, do we really care
about -T?
Abigail
--
perl -wle 'print "Prime" if ("m" x shift) !~ m m^\m?$|^(\m\m+?)\1+$mm'
-----------== 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: 31 Aug 1999 02:04:10 -0400
From: meow <meowing@banet.net>
Subject: Re: File listing
Message-Id: <87lnasiizp.fsf@slip-32-100-243-84.ma.us.ibm.net>
Abigail <abigail@delanet.com> wrote:
> {} opendir(DIR, $dirtosearch) or die $!;
> {} my @messofiles = grep { /$findwhat/ && -f "$dirtosearch/$_" } readdir(DIR);
> {} closedir(DIR);
> The problem with that is that it will return files with names like
> ".foo.txt", which aren't matched by the shell "*.txt" wildcard.
There's definitely not consensus on whether dot-files should be left
out by default. It doesn't even hold across Unix versions, let alone
the other stuff out there.
> {} You were on the right track with readdir. Globbing calls an external
> {} program, it doesn't get along with perl -T, and the dual personality
> {} of <> is the kind of thing that should be saved for obfuscation
> {} contests.
> Bullocks. If you don't like <>, use glob(). There is nothing inherently
> wrong about calling external programs;
It is when it can be trivially avoided.
> specially not in this case, where the obvious Perl alternative is
> wrong.
It's not at all clear that dot files should be hidden.
> -T might not at all wanted; if the program isn't running on behalf
> of someone else, do we really care about -T?
Yeah. Anything that's going to run in a server environment, whether
or not suid voodoo is involved, is a candidate to have other apps and
data it has permission to touch. Add to this that apps tend to be
recycled for things they were not originally intended to do, and a
seemingly harmless use of a potentially dangerous feature suddenly
becomes an open sore. Even if the redeployment in a bad spot is out
of your hands, it's going to have your name on it when it blows up.
Checking taints at development time, and addressing as many of its
complaints as possible, can go a long way toward avoiding the joys of
blame assignment missions.
------------------------------
Date: Tue, 31 Aug 1999 05:43:16 GMT
From: tvn007@my-deja.com
Subject: HASH ?
Message-Id: <7qfq1j$q$1@nnrp1.deja.com>
Hello,
I am new to PERL, and not sure how to solve this problem.
Would someone please give me some hints ?
Here is the problem:
I have a file called "FILE1"
with the following data in it:
Name Formula1 Formula2
A "x+y" "x+1"
C "z+y" "y+2"
and other file call "FILE2"
with the follwoing data in it:
x 2
y 5
z 3
The question I have is:
What technique should I use so that I can have the output :
Name Formula1 Formula2
A 7 3
C 8 7
Thanks in advance for any help
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 31 Aug 1999 11:38:07 +0800
From: Daphne Lim <webmaster_info@infobankasia.com.sg>
Subject: Help! Redirection problem
Message-Id: <37CB4E1E.1F452174@infobankasia.com.sg>
Hi, i have a perl script that captures data from an html page (a form),
after which i need to post the collected data to another perl script,
myperl.perl. myperl.perl uses:
read(STDIN,$inputs,$ENV{'CONTENT_LENGTH'});
which means that in my form, i have to use the POST method and not the
GET method. right now, i'm using the html meta tag:
META HTTP-EQUIV='Refresh'
CONTENT='2;URL=http://blah.blah.blah/myperl.perl'
to redirect to the 2nd perl script. but that obviously doesn't post the
captured data to myperl.perl. my problem is that i don't know how to
redirect AND post the data to myperl.perl. and the limitation for me is
that i can't change myperl.perl to get $ENV{'QUERY_STRING'} instead.
so far all the perl tutorials over the internet haven't taught anything
like that, so i'm quite stuck. any help is greatly appreciated!!
thanks!! :)
daphne
------------------------------
Date: Tue, 31 Aug 1999 07:53:50 +0200
From: "Mike5" <mike5@eunet.si>
Subject: Help: How to put perl with HTTP libs on one floppy (windows)?
Message-Id: <i4Ly3.512$8g3.90010@news.siol.net>
Does anyone know if there a version of perl for Win32 with HTTP support that
is compact enough to fit on one floppy?
Tnx, Mike5
------------------------------
Date: 31 Aug 1999 05:00:21 GMT
From: John Callender <jbc@shell2.la.best.com>
Subject: Re: I am new to perl
Message-Id: <37cb6165$0$226@nntp1.ba.best.com>
jim_p_stew@my-deja.com wrote:
> Next, I want to run the script. I assume my 1st
> line would be #/perl5/perl. Now, if I put my
> scripts in the bin directory, how do I run
> them?? Do I need to create an html page to
> execute the script, or is there a way I can run
> it directly??
The shebang line (#!/usr/bin/perl, or whatever) is more a vestige of
Unix culture than a DOS/Windows thing. It will get parsed for
command-line switches (like a trailing -w), but otherwise ignored on
your Windows machine.
What you need at this point is some quality time with a basic tutorial
on running Perl under Windows. I highly recommend the following site:
http://www.netcat.co.uk/rob/perl/
which, disturbingly, seems to be unreachable at the moment, but which
hopefully will be available by the time you read this. Also valuable to
you at this stage will be the Perl for Win32 FAQ at:
http://www.activestate.com/support/faqs/win32/
After reading through those you'll be ready to strike out into the deep
waters of the Perl man pages and the Perl FAQ proper, which you already
have on your system by virtue of your Perl installation, but which you
can also browse on the Web at:
http://www.perl.com/pub/v/documentation
and
http://www.perl.com/pub/v/faqs
, respectively. Good luck, and welcome to Perl!
--
John Callender
jbc@west.net
http://www.west.net/~jbc/
------------------------------
Date: 31 Aug 1999 05:00:58 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Interrupts and Graphics in Win32
Message-Id: <7qfnia$h9o@dfw-ixnews21.ix.netcom.com>
R.Joseph (streaking_pyro@my-deja.com) wrote:
: I doubt I will be able to do this with Perl, but I was wondering if it
: is possible to use interrupts like you would in C++ using the int()
: function. What my main goal here is to use interrupt 13h to get the
: computer into a graphics mode, and then use something like pokeb() to
: draw to the screen. Is this impossible?? Thanks!
It's not possible to do this in any language under Win32. Your best bet
is probably to write some xsubs that use DirectX to do your screen
access. The int13 code is meaningless in a Win32 context; I doubt it's
even mapped into memory.
------------------------------
Date: Tue, 31 Aug 1999 04:19:34 GMT
From: "John R. Maiocchi" <jrmaiocchi@home.com>
Subject: Need "Universal" exporter.pm File
Message-Id: <37CB5885.D2F1792E@home.com>
Looking for exporter.pm file. For a friend and I don't know what
version. Needs to have security that will enable IP banning?
Thanks All
------------------------------
Date: 31 Aug 1999 05:10:52 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Need "Universal" exporter.pm File
Message-Id: <7qfo4s$h9o@dfw-ixnews21.ix.netcom.com>
John R. Maiocchi (jrmaiocchi@home.com) wrote:
: Looking for exporter.pm file. For a friend and I don't know what
: version. Needs to have security that will enable IP banning?
Huh? exporter.pm is part of the standard Perl distribution; any machine
that doesn't have it has a broken installation. But it has nothing
remotely to do with anything like "IP banning"; it's concerned with
making variables declared in one package visible in other packages.
------------------------------
Date: 31 Aug 1999 01:16:52 -0400
From: meow <meowing@banet.net>
Subject: Re: perl RPC's and calling C
Message-Id: <87wvucil6j.fsf@slip-32-100-243-84.ma.us.ibm.net>
[Please do not post in HTML. It will prevent your articles from
appearing in many places, and even where it does appear many people
will ignore you on principle.]
doug yeager <dyeager@eclipse.net> wrote:
> i was wondering if anyone can help me. I'm trying to call a C server
> routine via RPC (Unix) from a Perl client, and need some
> direction/examples.
Perl comes with perlipc.pod which will give you most all the
background information you'll likely need. Also, you'll probably want
to visit CPAN which has several modules that will help you out with
RPC in particular.
------------------------------
Date: Mon, 30 Aug 1999 20:07:40 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <MPG.1234e6d7a769c8ce989eea@nntp.hpl.hp.com>
In article <7qfec7$o5o$1@nnrp1.deja.com> on Tue, 31 Aug 1999 02:24:19
GMT, finsol@ts.co.nz <finsol@ts.co.nz> says...
> In article <MPG.1233c6255975914d989ed2@nntp.hpl.hp.com>,
> lr@hpl.hp.com (Larry Rosler) wrote:
> > In article <7q4iq8$fk2$1@nnrp1.deja.com> on Thu, 26 Aug 1999 23:32:25
> > GMT, finsol@ts.co.nz <finsol@ts.co.nz> says...
...
> Contrary to what you (and the writer of the item you posted) thought you
> may have read, my research had very little to do with the Y2K compliance
> of the 'live' code behind web pages. What Y2K bugs they may contain is
> anybody's guess as the code is not accessible! My own opinion is that
> 'live' web code is as riddled with Y2K bugs as the code which is
> published on the web as examples or as programming language tutorials.
> It is this published code that my article refers to.
>
> Perhaps you could actually read the article before you comment.
I look in vain for any comment that I made in the article you refer
to. I posted it as an attributed quote, together with the signature of
the author:
Ariel Scolnicov |"GCAAGAATTGAACTGTAG"
|ariels@compugen.co.il
Compugen Ltd. |Tel: +972-2-6795059 (Jerusalem) \ NEW
IMPROVED URL!
72 Pinhas Rosen St. |Tel: +972-3-7658520 (Main office)`--------------
------
Tel-Aviv 69512, ISRAEL |Fax: +972-3-7658555
http://3w.compugen.co.il/~ariels
> It is available at URL:
> http://www.y2kinfo.com/journal/features/0899_amon.html
I have, in fact, read all your articles, though their repetitiveness is
wearying. The quote was about an article published by CNN, which quotes
you as taking particular aim at the Perl community. This smear is all
most people will ever know about this subject, so your reference above
is irrelevant.
> This topic deserves more intelligent thought than you are obviously
> prepared to devote to it.
Pot. Kettle. Black.
I hope you find employment after your Y2K gig wears out.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 31 Aug 1999 03:59:35 GMT
From: Joel Kimble <joel_k@my-deja.com>
Subject: Posting forms with Perl
Message-Id: <7qfjv3$s3f$1@nnrp1.deja.com>
Ok, here it goes. I am a college student who spent most of the summer
writing text parsing programs in perl. Go regex! but more importantly
I stumbled across the awesome LWP::Simple function. It seems really
powerful but I was wondering how I could submit a form to a web page.
I recently signed up for your usual free internet mail program.
What I would like to do is write a perl program that will automatically
log into my web account and download my new mail. The only thing I
really need help with is how to submit a form on a web page. I want to
be able to automate the filling out of the "Username" and "Password"
fields and the pressing of the submit button. Once I have the page
open I can parse the text and get the links to my new mail.
I found the perldoc that says it explains automating form submission
called "How do I automate an HTML form submission?" but I can't figure
out how I would turn that into what I want to do.
I am running this on a Win98 pc that is hooked up to the college lan
and I just downloaded ActiveState build 518. I don't really have any
code since I am stuck at the beginning. I hope I provided enough
information so please don't slam me. Oh yeah the web mail service is
called "OutBlaze." So if you know an easy way to access that stuff I
would really appreciate it.
Thanks,
Joel
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 31 Aug 1999 05:08:26 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Posting forms with Perl
Message-Id: <7qfo0a$h9o@dfw-ixnews21.ix.netcom.com>
Joel Kimble (joel_k@my-deja.com) wrote:
: Ok, here it goes. I am a college student who spent most of the summer
: writing text parsing programs in perl. Go regex! but more importantly
: I stumbled across the awesome LWP::Simple function. It seems really
: powerful but I was wondering how I could submit a form to a web page.
Take a look at the LWP Cookbook (lwpcook.pod) that comes with the LWP
distribution.
------------------------------
Date: 31 Aug 1999 03:40:00 GMT
From: sobrien@id.jefferson.co.us ()
Subject: Re: Question about sendmail
Message-Id: <7qfiqg$gnh$1@news-2.csn.net>
Malcom: I really agree with your response to my sarcastic
posting to Dan's question. A helpful response in any form
is always welcome. However, immediately after your reasoned
message was this much more typical posting from Abigal:
"Well, that would depend on the value of `$mailprog', now, wouldn't it?
Of course, what ever value `$mailprog' has, it's not a Perl question.
Abigail"
I just find this kind of answer most irritating, and I get
so tired of reading message after message containing this
supercilious attitude.
Sorry for the grumpiness, I usually get to the point
that I can't stand this news group after a few days and
drop back out for awhile.
Steve
: On 30 Aug 1999 02:00:45 GMT, sobrien@id.jefferson.co.us
: <sobrien@id.jefferson.co.us> wrote:
: >Dan: You are a brave soul posting a question like this to
: >the comp.lang.perl.misc newsgroup. If anyone bothers to
: >reply at all, you will be told that this is not a Perl issue,
: >it's in the manual, to read the Sendmail newsgroup, or some
: >other smart-ass answer that won't help you at all.
Malcolm Ray (M.Ray@ulcc.ac.uk) wrote:
: I don't see why answering a question by pointing the questioner at
: good documentation is unhelpful. Quite the reverse. People who ask
: questions here which are answered in online documentation to which
: they already have access are often simply unaware of the existence
: of that documentation, and can benefit greatly from learning of a
: resource which can help them to become self-sufficient.
------------------------------
Date: Mon, 30 Aug 1999 09:19:41 +0200
From: Joachim Nock <Joachim.Nock@sirona.de>
Subject: Re: Ready to get to work but...
Message-Id: <37CA308D.D5E674A7@sirona.de>
Richard Conaway schrieb:
> Where do I point my browser to get the end result?
There's a specific 'loopback' address for this. Use http://127.0.0.1/ with
your webserver running in the background. You should also take a deeper
look at CGI.pm and CGI::carp when testing scripts on a webserver.
-- Joachim
------------------------------
Date: 31 Aug 1999 03:59:53 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: sending mail through perl on IIS 4.0
Message-Id: <slrn7sml20.jd.efflandt@efflandt.xnet.com>
On Mon, 30 Aug 1999 21:09:57 GMT, Justin Centanni
<centja1@nich-academic.nich.edu> wrote:
>hi,
>
>my team is in the middle of converting a website from a Unix box to an
>NT machine running Internet Information Server 4.0. My problem is that
>although i have perl running the scripts correctly and the SMTP service
>on IIS setup and working, i can't get the two to talk to each other on
>a script that needs to send email from a form.
>
>i've looked at matt wright's documentation on formmail as well as other
>documentation, but that all is geared to Unix and not towards running
>ActivePerl on Win32.
>
>At any rate, if anyone can shed the light on the situation, as i am
>totally inexperienced when it comes to perl, i would greatly appreciate
>it and sleep a little better tonight
>
>Thanks,
>Justin
Service Pack 4 has something called CDONTS that I have used to mail form
data using an ASP script (look for IIS4 article about "CDO" on
http://www.15seconds.com/ ).
Otherwise you could try the Mail::Sendmail Perl module and see if it works
with your SMTP server. I think you can use MIME::Lite with it to send
e-mail attachments, although, I have only used MIME::Lite with unix
sendmail.
--
David Efflandt efflandt@xnet.com http://www.xnet.com/~efflandt/
http://www.de-srv.com/ http://cgi-help.virtualave.net/
------------------------------
Date: 31 Aug 1999 00:21:20 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Testing files on cd-rom?
Message-Id: <slrn7smpo0.9pm.abigail@alexandra.delanet.com>
Thomas Weholt (thomas@bibsyst.no) wrote on MMCXC September MCMXCIII in
<URL:news:37CA8DE9.97299EBC@bibsyst.no>:
() Abigail wrote:
() >
() > Thomas Weholt (thomas@bibsyst.no) wrote on MMCXC September MCMXCIII in
() > <URL:news:37CA668F.8AC43432@bibsyst.no>:
() > __
() > __ Does anybody know if there are any modules, code or other ways of
() > __ testing files in cd-roms to see if they are corrupt? I could copy each
() > __ file to disk but that would req. min. 650mb of free space all the time.
() >
() > And your Perl question is?
()
() Can perl do this?
That depends on your definition of corrupt. If can be determined that
a file is corrupt, it's very likely Perl can do. But if your definition
of corrupt excludes an algorithm that determines corruptness, Perl can't
do it.
Abigail
--
perl -weprint\<\<EOT\; -eJust -eanother -ePerl -eHacker -eEOT
-----------== 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, 31 Aug 1999 08:53:06 +0200
From: Thomas Weholt <thomas@bibsyst.no>
Subject: Re: Testing files on cd-rom?
Message-Id: <37CB7BD2.FAA9A306@bibsyst.no>
Lauren Smith wrote:
> How would you know whether a file is corrupt or not?
Perhaps I`ve should have said something like "readable" etc. What I mean
is not to check for valid file-content, but simply to check if the file
can be read from the disc. What I want to avoid is to have to copy all
files to the harddrive. I`m looking for a function/method that reads
each file into /dev/null or similar, just reading all available data
from each available file.
Thomas
------------------------------
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 684
*************************************
