[10364] in Perl-Users-Digest
Perl-Users Digest, Issue: 3957 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 12 21:07:22 1998
Date: Mon, 12 Oct 98 18:00:27 -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 Mon, 12 Oct 1998 Volume: 8 Number: 3957
Today's topics:
Re: .htaccess Problem <mp@mkt2mkt.com>
?? Builtin function gets (R. Ransbottom)
Re: ?? Builtin function gets (Alastair)
Re: Alpha and MacPerl do not play well together (Paul J. Schinder)
Re: Are there any "perl.newbie" group or forum? paul@hansenhanley.demon.co.uk
Re: Are there any "perl.newbie" group or forum? <merlyn@stonehenge.com>
Best way to absolutize URL's in HTML, trying to avoid H <amt@nuteknet.com>
Re: Code set support (Larry Wall)
Re: comp.lang.perl.win32?? (Ben Coleman)
Re: Connecting to Oracle on Unix using Win32::ODBC <r.r@att.net>
Re: Differentiating between STDOUT and STDERR <r.r@att.net>
Re: Differentiating between STDOUT and STDERR <rootbeer@teleport.com>
Re: fading text <rootbeer@teleport.com>
Re: how to get duplicate variables out of an array? (Bart Van Hemelen)
Re: Keeping a running list of the top n values retrieve (Sam Holden)
Mail on NT <mikep@5circles.com>
Max lines in an Array? <sales@madm.com>
Re: Need to Cut Mem use <jdf@pobox.com>
Re: Need to Cut Mem use <sales@madm.com>
Re: Need to Cut Mem use <jdf@pobox.com>
Needs help with IO::Socket und Net::Ident. <henningk@young-world.com>
Re: Odd number of elements <rootbeer@teleport.com>
Re: Odd number of elements (Ronald J Kimball)
Re: Perl freezes when using special characters in HTML (Sam Holden)
Re: Perl inputStream Type?? <rootbeer@teleport.com>
Re: print output problem? (Tad McClellan)
Re: Problem with off the shelf script <rootbeer@teleport.com>
Re: Problems with substr (re- posted) (Larry Wall)
Q: How to Create Machines on the Domain? <john_scrimsher@ex.cv.hp.com>
Re: Reading files from another website <rootbeer@teleport.com>
Re: reg-exp: "Buy!!!" -> "Buy!" ? <alex@kawo2.rwth-aachen.de>
Re: Still can not get browser to read perl script (Alastair)
Re: Still can not get browser to read perl script <rootbeer@teleport.com>
Re: Still can not get browser to read perl script (Ronald J Kimball)
Re: What's with c.l.p.moderated? (Ronald J Kimball)
Re: which chars to escape in reg.exp? <alex@kawo2.rwth-aachen.de>
Re: which chars to escape in reg.exp? <alex@kawo2.rwth-aachen.de>
Re: which chars to escape in reg.exp? (Matthew Bafford)
Re: which chars to escape in reg.exp? (Brand Hilton)
Re: which chars to escape in reg.exp? (Ronald J Kimball)
Re: WIN32::ADMINMISC & Domain Names <john_scrimsher@ex.cv.hp.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 12 Oct 1998 16:00:43 -0800
From: madame philosophe <mp@mkt2mkt.com>
Subject: Re: .htaccess Problem
Message-Id: <36229812.727BF400@mkt2mkt.com>
Thanks! I will do!
madame P
"I am not a troll" - famous last words before the guillotine of clpm
>
> >Also what are the diffs (in security and in programming know how)
> >between a cgi type login and a server login using htaccess?
>
> see Nick Kew's excellent tutorial, "Login On the Web" referenced in
> the CGI Meta FAQ.
>
------------------------------
Date: 12 Oct 1998 15:33:32 -0400
From: rir@phavl.ultranet.com (R. Ransbottom)
Subject: ?? Builtin function gets
Message-Id: <6vtlic$53q$1@phavl.ethernet>
Is there any doc's for gets.
I was hoping to
use FileHandles;
and find something like C's fgets.
--
rob
rir@phavl.ultranet.com
------------------------------
Date: Tue, 13 Oct 1998 00:00:27 GMT
From: alastair@calliope.demon.co.uk (Alastair)
Subject: Re: ?? Builtin function gets
Message-Id: <slrn7259p0.4m.alastair@calliope.demon.co.uk>
R. Ransbottom <rir@phavl.ultranet.com> wrote:
>Is there any doc's for gets.
>I was hoping to
>
>use FileHandles;
>
>and find something like C's fgets.
What are you trying to do?
--
Alastair
work : alastair@psoft.co.uk
home : alastair@calliope.demon.co.uk
------------------------------
Date: 13 Oct 1998 00:14:33 GMT
From: schinder@leprss.gsfc.nasa.gov (Paul J. Schinder)
Subject: Re: Alpha and MacPerl do not play well together
Message-Id: <6vu619$imp$1@clarknet.clark.net>
In <xzcbtnhrc3f.fsf@rodan.syr.edu> rsholmes@rodan.syr.edu (Richard S. Holmes) writes:
>With some older versions of Alpha and MacPerl I had no problems
>editing a script in Alpha and sending it to MacPerl to run. But no
>longer -- now I get
># Illegal character \012 (carriage return).
>File 'Untitled'; Line 2
># (Maybe you didn't strip carriage returns after a network transfer?)
>The script was *not* from a network transfer -- I just opened a new
>document in Alpha, typed
> print "Hello world\n";
>and tried to run it using the "Run the buffer" command on the camel
>menu.
Open the file again. Look at Alpha's status bar (the bar that runs
along the bottom of the screen). The kind of linebreaks that the file
has will be indicated; it will say one of Mac, Unix or IBM. Make sure
that the file has Mac linebreaks, because MacPerl will handle nothing
else. Alpha has no trouble handling the three common line endings,
and can produce files with any of them.
>
>This is using Alpha 7.1 and MacPerl 5.2.0r4 on a PowerMac G3 running
>Mac OS 8.1. Any ideas? Any FAQs I should have read? Thanks.
>--
>- Rich Holmes
> Syracuse, NY / We have more important things to do...
> Newport News, VA Censure and move on! Sign the petition at
> rsholmes@earthling.net <http://www.moveon.org>
------------------------------
Date: Mon, 12 Oct 1998 23:14:04 GMT
From: paul@hansenhanley.demon.co.uk
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <3622855f.92416462@news.demon.co.uk>
On Tue, 06 Oct 1998 12:19:14 +0200, Hauk Langlo <hauk@forumnett.no>
wrote:
>I'm sure there are a lot of people reluctant to post questions here
>afraid of having "RTFM" yelled in their face each time. I'm not an
>expert myselfe and I would really like to know if there are any
>discussion forums etc where it is actually legal to ask questions that
>might be of a basic nature to some. If you know about something like
>that, please let me know and me and probably a lot of other will go away
>and leave you guys alone.
>
>Hauk Langlo
Hauk, let me put you right
Firstly, you are at an immediate disadvantage being from Norway -
everyone will automatically assume you are a troll
B. you are posting to comp.lang.perl.cosy.clique, where the habit is
not to answer a question, but to explain why the question shouldn't
have been asked in the first place, preferably by complaining at great
length about waste of bandwidth, avoiding direct mention of Perl in
preference to superannuated American film directors of whom you may
not have heard, telling you what a great favour they are doing you by
discouraging you, while at the same time trying to develop a
personality.
iii. when someone responds "just my 2 cents worth", it is best to
regard this as an overvaluation.
Fourthly, you need to keep a keen eye open for the logical
inconsistency. Now I'm not a professor of logic (well I am actually),
but when someone says "I'm sorry, but people who ask FAQs are either
stupid or rude" you have to ask yourself whether they've considered
that Qs are only FAQs because someone has been stupid or rude enough
to A them F. In fact you might consider that since the F element is
relative, it is your duty to keep asking FAQs on an F basis, in order
to keep them in the canon. An alternative strategy would be to ask
lots of non-FA Qs, so that the current FAQs become relatively less F,
drop out of the FAQ document through lack of use, and you can then hit
the group with your ex-FA Q.
To sum up, er... learn Java.
(anyone any thoughts on which is better, Perl or Java?)
-paul
------------------------------
Date: Mon, 12 Oct 1998 23:26:05 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <8ciuhpfjlj.fsf@gadget.cscaper.com>
>>>>> "madame" == madame philosophe <mp@mkt2mkt.com> writes:
madame> See I knew the llama book was not for non-programmers.
madame> What books would you recommend for intelligent independently studious non-programming
madame> programmers??
bleh. This was stealth-cc'ed to me. And I already answered it
in email now.
So for those of you that killfile people that stealth-cc, time
to nail mp@mkt2mkt.com as one of those.
<sigh>
madame... please STOP that.
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Mon, 12 Oct 1998 20:00:36 -0400
From: Anmar To <amt@nuteknet.com>
Subject: Best way to absolutize URL's in HTML, trying to avoid HTML::Parser
Message-Id: <36229824.5092@nuteknet.com>
Hi -
I've looked for a module that does this on CPAN and
read a couple of FAQs and haven't found the answer
I'm looking for. I'm relatively new to Perl, though,
so I could be missing something obvious.
What I'm trying to create is a function that will
change all the relative URL's in an HTML document
into absolute URL's (URI's?). I don't want to just
look for all occurrences of SRC="xxx" (or the like)
and fix those, because that could be text inside the document.
Sample Test Cases:
# <BODY BACKGROUND="homebkg.jpg" >
# <A HREF="page_1.html">
# <img src="pic1.gif" alt="-">
# <img align="middle" src="pic2.gif" alt="-" border="0">
# <img align="top" alt="-->" src="pic3.gif">
# Javascript embedded URL's - low priority
note the embedded ">" in the last case
I considered using the HTML::Parser module, but
I'd like something that executes fairly fast, since
this will be part of a CGI program. I've been trying
to construct a great big regular expression, but with
not much success.
I've also noticed that my current, fairly complex,
regular expression takes a while to finish. Is there
any way around this? I'm only testing it with a 63-line
file.
Here's my current working regular expression (just for IMG tags):
s!
( <IMG (?: [^>'"]+ | ".*?" | '.*?')+? SRC\s*=\s*) # IMG tag
(["']) (.*?) (\3)
! $1$2$base$3$4
!gsix;
It's only finding the special embedded ">" case, and it's putting
a newline after "$base" (probably a separate issue). Earlier, I had a
simpler regular expression that was finding everything but the special
case.
Any suggestions? A different approach? Is HTML::Parser really that
slow? Anyone used HTML::SimpleParse?
Thanks,
Anmar
--
Anmar To
http://nuteknet.com/~lizard/
I am a member of the HTML Writers' Guild
------------------------------
Date: 12 Oct 1998 16:45:00 -0700
From: larry@kiev.wall.org (Larry Wall)
Subject: Re: Code set support
Message-Id: <6vu49s$8gn@kiev.wall.org>
In article <361CE550.241281CC@cnd.hp.com>,
Srikanth Natarajan <nkanth@cnd.hp.com> wrote:
>I would like to know to what extent does perl support
>single and multi-byte codesets.
All versions of Perl can represent any single-byte codeset. To
represent a multi-byte codeset efficiently you'll need to get the
latest development version (5.005_52 or later). It supports UTF-8
strings, if you say 'use utf8'. Although UTF-8 is typically used to
represent Unicode, it can in fact represent multi-byte codeset you
like. (The supplied character property tables are only for Unicode,
though, so you'd have to roll your own to use character classes
appropriate to a different wide character set.)
After you install it, say "perldoc utf8". You might want to subscribe
to the perl-unicode@perl.org mailing list. Send
subscribe perl-unicode
to majordomo@perl.org.
Larry
------------------------------
Date: Tue, 13 Oct 1998 00:03:03 GMT
From: tnguru@termnetinc.com (Ben Coleman)
Subject: Re: comp.lang.perl.win32??
Message-Id: <36229485.332455575@news.mindspring.com>
On 12 Oct 1998 21:45:27 GMT, cberry@cinenet.net (Craig Berry) wrote:
>Again, topical but I can't see their being a lot of traffic on this (based
>in part on how little occurs currently in clpm).
There are, of course, the ActiveState-sponsored Perl-Win32-* mailing lists,
which are plenty busy. The question becomes, "is there a need for a USENET
equivalent?".
Ben
--
Ben Coleman
Senior Systems Analyst
TermNet Merchant Services, Inc.
Atlanta, GA
------------------------------
Date: 12 Oct 1998 23:50:45 GMT
From: "Rath" <r.r@att.net>
Subject: Re: Connecting to Oracle on Unix using Win32::ODBC
Message-Id: <6vu4kl$3ma@bgtnsc01.worldnet.att.net>
Here is an example program, I wrote to test the Oracle database
connectivity...
I installed DBI::Oracle and DBD drivers from www.activestate.com/packages
thru ActivePerl's PPM (Package Manager).
#--------- Oracle Test --------
use strict;
use Oraperl;
my ($i);
my $OracUser = 'SCOTT';
my $OracPswd = 'TIGER';
my $OracDbins = 'beq-local.world';
my @cols;
# Login to Oracle Database
my $dbh = ora_login ($OracDbins, $OracUser, $OracPswd)
or die "ERROR: logging to Oracle DB as User: $OracUser,
Err:$ora_errstr";
#Enable debugging
#$dbh->debug(2);
my $tn = 'EMP';
my $qry = qq (
SELECT TABLE_NAME, COLUMN_NAME, DATA_TYPE, DATA_LENGTH,
DATA_PRECISION
FROM ALL_TAB_COLUMNS
WHERE OWNER = '$OracUser' AND
TABLE_NAME = :1 AND
COLUMN_NAME = :2
);
my @ColNames = qw (EMPNO ENAME ABC JOB HIREDATE SAL COMM);
#Declare Cursor
my $sth = ora_open ($dbh,$qry)
or die "ERROR: Preparing Cursor Qry:$qry, Err:$ora_errno:$ora_errstr ";
#Bind Variables
#ora_bind ($sth, $tn)
# or die "ERROR: Binding Cursor
Qry:$qry,Val:$tn,Err:$ora_errno:$ora_errstr";
for ($i=0; $i< @ColNames; $i++)
{
# Bind Cursor to Table, Column
ora_bind ($sth, $tn, $ColNames[$i])
or die "ERROR: Binding Cursor Qry:$qry, Table:$tn,
Col:$ColNames[$i], Err:$ora_errno:$ora_errstr";
print STDERR sprintf "\tBIND: %10s, %5d:%s\n",
$ColNames[$i],$ora_errno,$ora_errstr;
#Fetch Data
@cols = ora_fetch ($sth);
print STDERR sprintf "Fetch: '%s' '%s' '%s' '%d' '%d' ERR:%5d:%s\n",
$cols[0], $cols[1], $cols[2], $cols[3], $cols[4],
$ora_errno,$ora_errstr;
if ($ora_errno)
{
print "FETCH:: Err:$ora_errno:$ora_errstr ";
last;
}
elsif ( $cols[1] ne $ColNames[$i])
{
print STDERR "ERROR:: Unable to get Schema for Col:
$ColNames[$i]\n";
last;
}
# print STDERR sprintf "Fetch: %-4s %-10s %-10s %4d %4d ERR:%5d:%s\n",
# $cols[0], $cols[1], $cols[2], $cols[3], $cols[4],
$ora_errno,$ora_errstr;
}
# Close Cursor
ora_close ($sth)
or die "ERROR: Closing Cursor Qry:$qry, Err:$ora_errno:$ora_errstr ";
#Disconnect from Database
ora_logoff ($dbh)
or die "ERROR: Disconnecting from Oracle Db";
print STDERR "END....\n";
#----------
Hope this helps
Rath
r.r@att.net
------------------------------
Date: 12 Oct 1998 23:50:47 GMT
From: "Rath" <r.r@att.net>
Subject: Re: Differentiating between STDOUT and STDERR
Message-Id: <6vu4kn$3ma@bgtnsc01.worldnet.att.net>
vwstranathan@mailexcite.com wrote in message
<6vtcpg$k0i$1@nnrp1.dejanews.com>...
>This might take a while to explain....
>
>I have a socket application that executes commands, and sends the resulting
>text back to the client. What I would like to do is trap messages from
STDOUT
>on the command, and send those back to the client in the form:
>
> print CLIENT "stdout: $result";
>
>and trap STDERR messages and send those back as:
>
> print CLIENT "stderr: $result";
>
>I've tried using formats, you name it, but to no avail.
>
>Is there any way to do this? I have STDOUT and STDERR going back to the
same
>CLIENT connection, but can't seem to find a way to let the client know
which
>was lines came from STDOUT and which came from STDERR.
>
>I appreciate any help!
>
>Thanks!
>Will Stranathan
>wstranathan@kltymail.com
>
>-----------== Posted via Deja News, The Discussion Network ==----------
>http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
This should help you....
#--- Perl Example to redirect STDOUT & STDERR ----
open (STDOUT, ">> std.out") or die "ERROR Redirecting STDOUT";
open (STDERR, ">> std.err") or die "ERROR Redirecting STDERR";
select (STDOUT); $| = 1; # Set Unbuffered
select (STDERR); $| = 1; # Set Unbuffered
print STDOUT "STDOUT::: Line 1\n";
print STDERR "STDERR::: Line 1\n";
print STDOUT "STDOUT::: Line 2\n";
print STDERR "STDERR::: Line 2\n";
close STDOUT;
close STDERR;
#---- Perl End -----
# Run this program
$ perl test.pl
YOu will see that, program creates two files "std.out" and "std.err".
Rath
r.r@att.net
------------------------------
Date: Tue, 13 Oct 1998 00:06:56 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Differentiating between STDOUT and STDERR
Message-Id: <Pine.GSO.4.02A.9810121705470.1979-100000@user2.teleport.com>
On Mon, 12 Oct 1998 vwstranathan@mailexcite.com wrote:
> I have a socket application that executes commands, and sends the resulting
> text back to the client. What I would like to do is trap messages from STDOUT
> on the command, and send those back to the client in the form:
>
> print CLIENT "stdout: $result";
>
> and trap STDERR messages and send those back as:
>
> print CLIENT "stderr: $result";
I think you want tied filehandles. Either that, or you want to fork a
process which will sit in the middle and re-write and re-direct the text.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 12 Oct 1998 23:50:57 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: fading text
Message-Id: <Pine.GSO.4.02A.9810121648390.1979-100000@user2.teleport.com>
On Sun, 11 Oct 1998, Darrick Wolfe wrote:
> My problem is that I can not find info on manipulating the hex colors
> in Perl (or in any language for that matter).
This is like saying, "Nowhere in my driver's training course did they tell
us how to drive to Yellowstone, and it's not in my owner's manual
either!" :-)
If you wish to convert to and from hex, use the pack and unpack functions
listed in perlfunc. Once you've got ordinary numbers, your problem should
be a matter of mathematics. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 12 Oct 1998 12:58:19 GMT
From: tenthousand@youknowwhattodelete.geocities.com (Bart Van Hemelen)
Subject: Re: how to get duplicate variables out of an array?
Message-Id: <3621fcc4.21897565@news.innet.be>
Oops! Stupid me. Didn't consult the faq before posting.
Sorry y'all, I promise to check first next time.
On 8 Oct 1998 14:47:39 GMT, gbacon@itsc.uah.edu (Greg Bacon) wrote:
>In article <361ccd6a.27456492@news.innet.be>,
> tenthousand@youknowwhattodelete.geocities.com (Bart Van Hemelen) writes:
>: The problem is this: as the result of a database query I get an array
>: with possibly duplicate values. Is there an easy way to do this? Maybe
>: anybody has a sub for this? Is it part of a perl lib?
>
>This is a FAQ. Please consult Section 4, and look for
>
> "How can I extract just the unique elements of an array?"
>
>Greg
>--
>Daphne: Don't tell me that you've never used sex to get what you want
>Frasier: Men can't use sex to get what we want. Sex *IS* what we want.
------------------------------
Date: 13 Oct 1998 00:08:37 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Keeping a running list of the top n values retrieved
Message-Id: <slrn7256g4.7tg.sholden@pgrad.cs.usyd.edu.au>
On 12 Oct 1998 17:16:55 GMT, Abigail <abigail@fnx.com> wrote:
>Sam Holden (sholden@pgrad.cs.usyd.edu.au) wrote on MDCCCLXVIII September
>MCMXCIII in <URL:news:slrn722o3l.ail.sholden@pgrad.cs.usyd.edu.au>:
>++ On 7 Oct 1998 16:11:20 GMT, Abigail <abigail@fnx.com> wrote:
>++ >Sam Holden (sholden@pgrad.cs.usyd.edu.au) wrote on MDCCCLXIII September
>++ >MCMXCIII in <URL:news:slrn71lel6.mjt.sholden@pgrad.cs.usyd.edu.au>:
>++ >++ On 6 Oct 1998 16:42:20 GMT, Abigail <abigail@fnx.com> wrote:
>++ >++ >
>++ >++ >If we have n values, and want to get the top m, sorting takes O (n log n
>++ >++
>++ >++ And looses on space in a big way for n >> m.
>++ >
>++ >How's that? All methods use O (n) memory.
>++
>++ All the methods use O(m) memory... storing everything and sorting at the end
>++ uses O(n).
>
>What is it? Does it take O (m) or O (n)? And if it takes O (m), where
>are you going to put your input (which clearly takes O (n))?
Storing all the input and sorting at the end requires O(n) space. Reading in
each value and keeping track of the current highest m and discarding
anything smaller takes O(m) space.
>But an insert doesn't take O (m log m), it takes O (m). And you need to
>do that O (n) times, for a total time of O (n m).
The code I was referring to had an explicit sort of an array of length m,
(well m+1) which takes O(m log m). This is done n times so the best it can
possibly be is O(nm log m).
The sort is not necessary - you can splice the element in, but the sort was
there in the code I was talking about.
>++ There shouldn't be that large a constant for an array traversal followed
>++ by a moving O(m) elements up one in the array, although I could be wrong. I c
>++ do it with O(m) swaps, and a heap is really just O(log m) swaps so the consta
>++ should be the same.
>
>"Should". Blah. "Should" is not "is". If you have programmed it out in
>MIX, yes, then you can compare absolute running time ratios. But with Perl
>doing so much behind the scenes, that's not something I want to bet on.
I still can't see the constant being significant. If it is I can just implement
my own insert sub that does O(m) swaps in the same way as a heap does O(log m).
>If you knew what I said, then why do you still question it?
Because I wasn't sure if this particular way of constructing a heap would have
special properties and thus left it open for someone to mention any. There
aren't any, however, since that would give a comparison sort algorithm of less
than O( n log n) which is a little impossible...
--
Sam
PC's are backwards ... throw them out! Linux is ok though.
--Rob Pike (on the subject of CR/LF etc)
------------------------------
Date: Mon, 12 Oct 1998 17:29:39 -0700
From: "Mike Pritchard" <mikep@5circles.com>
Subject: Mail on NT
Message-Id: <P9xU1.910$Gq.1141@news6.ispnews.com>
I want to send MAPI mail in a Perl script running on Windows NT. Eventually
via CGI, but I'm currently just trying to get the mail script running from
the command line. I'm running on an NT Workstation for testing purposes.
I pulled the example from "Is there a way to access MAPI from my Perl
script?" in PerlWin32 FAQ 9, and tried to get it working.
When stepping past the logon line, I get an error message from Windows
messaging:
"The profile entered is not valid. Enter a valid profile name."
When I manually enter a valid profile name, the script steps through the
rest and correctly sends mail.
A couple of questions:
Most important, how can I enter a profile name when making the logon call?
I can't figure out the syntax.
Why do I even need a profile name? Can't I set up a default? (Guess this
shows that I don't understand much about Windows messaging!)
Are there alternatives? I've seen mention of a program from the NT Resource
Kit called MAPISEND, but it doesn't seem to be available for download.
(This was supposed to be the simple part.....)
Thanks
Mike
------------------------------
Date: Mon, 12 Oct 1998 16:36:57 -0700
From: "Doyle Johnson" <sales@madm.com>
Subject: Max lines in an Array?
Message-Id: <6vu4o4$egq$1@nnrp03.primenet.com>
Hi again,
Im beginning to think the out of mem errors are more to do with a
possible maximum amount of lines allowed in an @Array instead of physical
mem.
Is there a limit to the number of lines you can stuff into an array? or is
there a buffer size that can be adjusted?
Thanks
Dolye johnson
------------------------------
Date: 13 Oct 1998 01:17:24 +0200
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Need to Cut Mem use
Message-Id: <m33e8tid4r.fsf@joshua.panix.com>
"Doyle Johnson" <sales@madm.com> writes:
> And then I sort the array.... in turn the sort creates several other
> arrays.
What do you mean by this? It would be better if you'd show us the
code.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Mon, 12 Oct 1998 16:53:52 -0700
From: "Doyle Johnson" <sales@madm.com>
Subject: Re: Need to Cut Mem use
Message-Id: <6vu5nr$emm$1@nnrp03.primenet.com>
Below is a snip of the code... further investigation seems to show a problem
with the neumber of lines in the file more than the physical size.... Is
there a max number of lines for an array? If so is it possible to alter
this?
This is a standard html log parsing script found all over the web that I
modified to except a larger log file. As you can see I used the file read
method to save some mem usage to read in the initial data. I have managed
to double the amount of entries this script will allow but it is still way
short of my needs.
<START>
sub split_data
{
open(LOG, "<$log_file") || &error();
&lockS(LOG);
foreach $visits (<LOG>)
{
if ($visits =~ /(.*) - (.*) - (.*) - (.*)/)
{
$rtime = $1;
$rday = $2;
($pst,$time) = split(/\[/,$rtime);
($day,$psd) = split(/\]/,$rday);
($month,$num,$lyear) = split('/',$day);
($hour,$minute,$second) = split(':',$time);
$referer = $3;
$host = $4;
if ($time eq 'PM')
{
$hour += 12;
}
if ($day ne '' && $day ne ' ')
{
push(@DATES, $day);
}
if ($referer ne 'No Referer' && $referer ne ' ' && $referer ne
'')
{
push(@REFERER, $referer);
}
if ($host ne 'No Remote_Host' && $host ne ' ' && $host ne '')
{
push(@HOST, $host);
}
}
}
close(LOG);
&unlock(LOG);
}
This code will only handle aprox 15,000 entries before it gags.... I need to
find a way to squeeze out 20,000 entries.
Thanks
D. Johnson
------------------------------
Date: 13 Oct 1998 02:30:00 +0200
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Need to Cut Mem use
Message-Id: <m31zodi9rr.fsf@joshua.panix.com>
"Doyle Johnson" <sales@madm.com> writes:
> As you can see I used the file read method to save some mem usage
I've never heard of "the file read method".
> foreach $visits (<LOG>)
Oops; you've just read in the entire file. Try this instead:
while (defined($visits = <LOG>))
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Tue, 13 Oct 1998 00:58:28 +0200
From: Henning Koester <henningk@young-world.com>
Subject: Needs help with IO::Socket und Net::Ident.
Message-Id: <36228994.DBB21831@young-world.com>
Hi.
Can anybody post an example for using these two modules together?? For
example an server which is lisning on a port an if someone telnets to
him he will print something and than logs the result of the Net::Ident
(username, host and Operatingsys) into a logfile.
Thanks!!!
--
>From Henning Koester email: henningk@young-world.com
------------------------------
Date: Tue, 13 Oct 1998 00:39:28 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Odd number of elements
Message-Id: <Pine.GSO.4.02A.9810121738120.1979-100000@user2.teleport.com>
On Mon, 12 Oct 1998, Chris Shaw wrote:
> "Odd number of elements in hash list at ...."
>
> I get this warning on another system, but get
> no warnings when I run the program on my system.
Probably different versions of Perl.
> I did not install either copy of perl. I'm running
> version 5.001, patchlevel 1m. The other system is
> running 5.004_01.
Ah, that's it. Tell the sysadmin of your system to install 5.004 or later.
> Any suggestions?
Oh, and fix the bug in the program. You shouldn't be assigning an odd
number of elements to a hash. It's certainly a bug. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 12 Oct 1998 20:48:18 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Odd number of elements
Message-Id: <1dgt051.1vothdf1x24wsrN@bos-ip-1-71.ziplink.net>
Chris Shaw <cshaw@cadence.com> wrote:
> Any suggestions?
Yes.
Show us the code.
We're not psychic.
--
_ / ' _ / - aka - rjk@coos.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: 12 Oct 1998 23:53:06 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Perl freezes when using special characters in HTML
Message-Id: <slrn7255j2.7tg.sholden@pgrad.cs.usyd.edu.au>
On Mon, 12 Oct 1998 15:13:28 GMT, Ruud Limbeck <ruud.limbeck@tip.nl> wrote:
>On 12 Oct 1998 10:37:04 -0400, mjd@op.net (Mark-Jason Dominus) wrote:
>
>>Because your program has a bug.
>
>Here is the program:
>
>$size=$ENV{'CONTENT_LENGTH'};
>read (STDIN, $form_info, $size);
>system ('pro98.exe 111.bbx');
>print "Content-type: text/plain", "\n\n";
>open(wrk, "111.wrk");
>while (read(wrk,$html,80)){
>print $html;
>}
>close(wrk);
>system ('del 111.wrk')
>exit (0);
This is amazingly aweful code... Do you really need a system() to delete a
file... why not use perl's function for deleting files, which can be found in
perldoc perlfunc.
Then again if you like using system() so much why don't you just write your code
like this :
$|=1;
# since you never use $form_info I won't bother reading it in...
system('pro98.exe 111.bbx');
print "Content-type: text/plain\n\n";
system('type 111.wrk');
system('del 111.wrk');
You might as well use a .bat file in fact.
As for why it might be locking up - I can't see anything in the perl
that would cause problems. Although there are bits of code that do nothing
useful and code written seemingly to confuse the reader so maybe there is
more code that you didn't show.
Why is the variable called $html when the output is 'text/plain'???
What do you think would happen if the program got ran twice at the same time???
Why don't you try running the program at the command line and seeing what goes
wrong???
--
Sam
Can you sum up plan 9 in layman's terms? It does everything Unix does
only less reliably.
--Ken Thompson
------------------------------
Date: Mon, 12 Oct 1998 23:43:25 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Perl inputStream Type??
Message-Id: <Pine.GSO.4.02A.9810121641500.1979-100000@user2.teleport.com>
On 12 Oct 1998, Lee Prissel wrote:
> The caller may be dealing with a file or a multi-line scalar. Is
> there a clean way to create a file handle associated with a scalar so
> the subroutine with the input handle could be used?
I think you mean that you want to be able to print to a filehandle from a
sub, but the data printed may (magically) go to either a file or to a
scalar variable. Is that right? If so, you may be talking about using a
tied filehandle which can do whatever you wish with the data. See perltie.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 12 Oct 1998 17:48:02 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: print output problem?
Message-Id: <2v0uv6.ag6.ln@flash.net>
Dennis P. (fsi001@gate.net) wrote:
: how can i insert a zero at the end of the field so it prints
: correctly.
print $field, '0'; # tack on a zero when printing
or
$field .= '0'; # tack on a zero
I believe that answers the question you asked.
But in case you meant to ask some other question, you
might want to have a look at sprintf()...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 13 Oct 1998 00:02:04 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Problem with off the shelf script
Message-Id: <Pine.GSO.4.02A.9810121659350.1979-100000@user2.teleport.com>
On Mon, 12 Oct 1998, Jacob Jay - Enigma wrote:
> I don't actually write perl and would appreciate it if someone could
> quickly pass an eye over the script
Sure. The script's author can do that. If whoever wrote the script won't
check it for errors, it's not safe for you to run. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 12 Oct 1998 16:05:28 -0700
From: larry@kiev.wall.org (Larry Wall)
Subject: Re: Problems with substr (re- posted)
Message-Id: <6vu1vo$89c@kiev.wall.org>
In article <361D0BC8.40C2@inforonics.com>,
John J. Alesse <jja@inforonics.com> wrote:
>#!/usr/local/bin/perl -w
>#
># This command line test will determine if the Perl substr function is
>working properly. It seems that the substr function
># has a hard time extracting strings that contain non-printable (binary)
>data at or above \xC0 but only when used in
># a subroutine. This becomes a problem in packages like CGI.pm since
>substr is used to extract binary
># multipart form/data from the header.
>#
># I have received a failure running this on our build of Perl version
>5.00550
That is a known bug in 5.00550. Either an upgrade or a downgrade will
fix it.
Larry
------------------------------
Date: Mon, 12 Oct 1998 16:56:23 -0700
From: "John P. Scrimsher" <john_scrimsher@ex.cv.hp.com>
Subject: Q: How to Create Machines on the Domain?
Message-Id: <6vu4v5$og5@hpcvsnz.cv.hp.com>
I have looked at the AdminMisc module and it appears to only administer the
user accounts.... Does anyone know of a module that has a MachineCreate()
function or other Server Manager routines?
I need to create a script that will allow users to add and delete machines
from and NT domain, without giving them acces to Server Manager.
Any help is appreciated
John Scrimsher
john_scrimsher@hp.com
------------------------------
Date: Mon, 12 Oct 1998 23:57:42 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Reading files from another website
Message-Id: <Pine.GSO.4.02A.9810121657210.1979-100000@user2.teleport.com>
On Sun, 11 Oct 1998, Chi Yu wrote:
> Subject: Reading files from another website
use LWP;
You can find LWP on CPAN. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 13 Oct 1998 00:32:31 +0000
From: Alex Farber <alex@kawo2.rwth-aachen.de>
Subject: Re: reg-exp: "Buy!!!" -> "Buy!" ?
Message-Id: <36229F9F.CDA8BEB@kawo2.rwth-aachen.de>
Bart Lateur wrote:
> Just to be annoying, I'm not using a regexp: ;-)
>
> tr/!//s;
>
> It's the 's' modifier that does the trick.
Cool trick :-) thanks
/Alex
--
http://www.simplex.ru/pref.html
------------------------------
Date: Mon, 12 Oct 1998 23:55:49 GMT
From: alastair@calliope.demon.co.uk (Alastair)
Subject: Re: Still can not get browser to read perl script
Message-Id: <slrn7259ga.4m.alastair@calliope.demon.co.uk>
Katia Espinal <kespinal@fedex.com> wrote:
>This is a multi-part message in MIME format.
>--------------BB1BD85F21336FB14659AC90
>Content-Type: text/plain; charset=us-ascii
>Content-Transfer-Encoding: 7bit
Text does fine thanks!
>I have created a simple perl script.
>
>print "Content-type:text/html\n\n";
>print "<html><head><title>Test Page</title></head>";
>print "<body>";
>print "<h2>Hello, world!</h2>";
>print "</body></html>";
>
>I still can not get the browser to interpret the HTML tags.
I guess it's not really a perl problem - perhaps something wrong in the
configuration of your web server? Try a newsgroup devoted to that.
>Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
This makes no sense to my newsreader either.
--
Alastair
work : alastair@psoft.co.uk
home : alastair@calliope.demon.co.uk
------------------------------
Date: Tue, 13 Oct 1998 00:37:08 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Still can not get browser to read perl script
Message-Id: <Pine.GSO.4.02A.9810121736520.1979-100000@user2.teleport.com>
On Mon, 12 Oct 1998, Katia Espinal wrote:
> I still can not get the browser to interpret the HTML tags.
If you're following the proper protocol but some browser or server doesn't
cooperate, then it's the other program's fault. If you're not following
the protocol, then it's your fault. If you aren't sure about the protocol,
you should read the protocol specification. If you've read it and you're
still not sure, you should ask in a newsgroup about the protocol.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 12 Oct 1998 20:48:25 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Still can not get browser to read perl script
Message-Id: <1dgt08d.vk6hfa1icm48oN@bos-ip-1-71.ziplink.net>
Katia Espinal <kespinal@fedex.com> wrote:
> This is a multi-part message in MIME format.
> --------------BB1BD85F21336FB14659AC90
> Content-Type: text/plain; charset=us-ascii
> Content-Transfer-Encoding: 7bit
Please don't post multi-part in MIME format. Just plain text is fine.
> print "Content-type:text/html\n\n";
Try
print "Content-type: text/html\n\n";
instead.
--
_ / ' _ / - aka - rjk@coos.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: Mon, 12 Oct 1998 19:21:03 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: What's with c.l.p.moderated?
Message-Id: <1dgsw75.1vewfwcgqwafqN@bos-ip-1-71.ziplink.net>
Matt Sergeant <msergeant@ndirect.co.uk_NOSPAM> wrote:
> When c.l.p.moderated started up it's intentions were great, and it's
> charter seemed solid enough. But there's a thread there right now that
> needs to be stopped IMHO.
>
> So far it's been nothing that perl people need, or want, to read. It
> would be better served in c.l.p.misc. This is the "RFC: Build and
> play.." thread. Why on earth are the moderators letting this one
> through? Perhaps it's the moderators posting replies to the list?
I'm going to have to agree with you on that. The thread has degenerated
into name-calling and "You're a bad person because you said this."
I guess it's hard for the moderators to decide when to cut a thread off
when something like this happens, because usually it's a slow
transition, not a sudden one.
Also, the References header in every one of Steffen Beyer's posts is
incorrect, so the discussion isn't threaded properly. :-/
--
_ / ' _ / - aka - rjk@coos.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: Mon, 12 Oct 1998 23:48:42 +0000
From: Alex Farber <alex@kawo2.rwth-aachen.de>
Subject: Re: which chars to escape in reg.exp?
Message-Id: <3622955A.7CA5BF7C@kawo2.rwth-aachen.de>
Hi Tad,
> Within char classes there are very few metachars.
>
> 1) ^ (caret) is meta only if it is first in the char class
>
> 2) - (hyphen) is meta unless it is last in the char class
>
> 3) ] (closing square bracket) is meta unless it is first in
> the char class
>
> 4) \ (backslash) is always meta
thanks for your reply! Handy rules.
> Note 2: You realize that it is hopeless to rigorously test
> email addresses with regular expressions?
What do you mean? Sure I can't get visitors to write their real
e-mails (unless I will send a generated password to entered e-mails)
but at least they won't be able to write 'qwertyqwerty' :-)
> Your code above will fail to match some legal addresses...
Do you think I miss some characters? Underscore?
Greetings
Alex
--
http://www.simplex.ru/pref.html
------------------------------
Date: Mon, 12 Oct 1998 23:59:56 +0000
From: Alex Farber <alex@kawo2.rwth-aachen.de>
Subject: Re: which chars to escape in reg.exp?
Message-Id: <362297FC.9246B98E@kawo2.rwth-aachen.de>
Tad McClellan wrote:
> 2) - (hyphen) is meta unless it is last in the char class
And what does it mean if it's first? [-AB]
Thanks
Alex
--
http://www.simplex.ru/pref.html
------------------------------
Date: Mon, 12 Oct 1998 20:10:32 -0400
From: dragons@scescape.net (Matthew Bafford)
Subject: Re: which chars to escape in reg.exp?
Message-Id: <MPG.108c6486362a99349896d3@news.scescape.net>
In article <<362297FC.9246B98E@kawo2.rwth-aachen.de>>, alex@kawo2.rwth-
aachen.de (Alex Farber) pounded the following:
=> Tad McClellan wrote:
=>
=> > 2) - (hyphen) is meta unless it is last in the char class
=>
=> And what does it mean if it's first? [-AB]
The same exact thing. :)
'course you coulda tried that yourself...
=> Thanks
HTH!
=> Alex
Matthew
------------------------------
Date: 12 Oct 1998 23:55:53 GMT
From: bhilton@tsg.adc.com (Brand Hilton)
Subject: Re: which chars to escape in reg.exp?
Message-Id: <6vu4u9$7p118@mercury.adc.com>
In article <3622955A.7CA5BF7C@kawo2.rwth-aachen.de>,
Alex Farber <alex@kawo2.rwth-aachen.de> wrote:
>> Note 2: You realize that it is hopeless to rigorously test
>> email addresses with regular expressions?
>
>What do you mean? Sure I can't get visitors to write their real
>e-mails (unless I will send a generated password to entered e-mails)
>but at least they won't be able to write 'qwertyqwerty' :-)
>
>> Your code above will fail to match some legal addresses...
>
>Do you think I miss some characters? Underscore?
perlfaq9: How do I check a valid email address?
--
_____
|/// | Brand Hilton bhilton@adc.com
| ADC| ADC Telecommunications, ATM Transport Division
|_____| Richardson, Texas
------------------------------
Date: Mon, 12 Oct 1998 20:48:30 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: which chars to escape in reg.exp?
Message-Id: <1dgt0d5.18l6egq1ekqsvtN@bos-ip-1-71.ziplink.net>
Alex Farber <alex@kawo2.rwth-aachen.de> wrote:
> how do you know, which characters are to escape
> in a regular expression?
You only have to escape regex metacharacters. However, you can safely
escape *any* non-alphanumeric character in a Perl regex; it will always
match the literal character.
--
_ / ' _ / - aka - rjk@coos.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: Mon, 12 Oct 1998 16:53:31 -0700
From: "John P. Scrimsher" <john_scrimsher@ex.cv.hp.com>
Subject: Re: WIN32::ADMINMISC & Domain Names
Message-Id: <6vu4pt$odv@hpcvsnz.cv.hp.com>
Never Mind... I have found the problem, it appears that I need to resolve
the PDC name from the DOMAIN name using GetDomainController(), then use that
for the server variable in GetUsers()... then it works.
Thanks Anyway !
John Scrimsher
john_scrimsher@hp.com
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3957
**************************************
