[22408] in Perl-Users-Digest
Perl-Users Digest, Issue: 4629 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 26 18:06:09 2003
Date: Wed, 26 Feb 2003 15:05:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 26 Feb 2003 Volume: 10 Number: 4629
Today's topics:
Re: Anyway to do away with ?: in the map function (Sam Holden)
Re: Bug in Net::FTP - ls() command doesn't work (Michael Sullivan)
Re: Bug in Net::FTP - ls() command doesn't work (Jim Brown)
Re: CGI redirecdt to another CGI by POST? <raymond.chui@noaa.gov>
Delete a single leading space from a line (crivers)
Re: Delete a single leading space from a line <holland@origo.phys.au.dk>
Re: editting photos on the fly <abigail@abigail.nl>
Re: FAQ proposal: Why can't I compare two strings using <tore@aursand.no>
geting premature end of script header error <urzaserra@home.com>
Re: Getting answers with perldocs <bik.mido@tiscalinet.it>
Re: Getting answers with perldocs <mgjv@tradingpost.com.au>
How Do I Clone An Object (Yariv W)
Re: How Do I Clone An Object (Anno Siegel)
Re: MIME::Parser and Mail::Folder (KandoCoder)
Multi-select boxes - how do I grab all the inputs? (B.P.)
Re: Multi-select boxes - how do I grab all the inputs? <jboes@qtm.net>
Re: Multi-select boxes - how do I grab all the inputs? (Malcolm Dew-Jones)
Re: newbie regexp question <tore@aursand.no>
Re: Parsing Unix mbox in MS Environment <vampire@tiamat.obscure.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 26 Feb 2003 20:17:37 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: Anyway to do away with ?: in the map function
Message-Id: <slrnb5q870.f5j.sholden@flexal.cs.usyd.edu.au>
On Wed, 26 Feb 2003 12:57:13 -0600, Peter Shankey <oxmard.Rules@ab.ab> wrote:
> I would like to be able to do away with the trinary ?: in the map function.
> I do not seem to be able to. I need the values of $1 through $4. A look at
> the __DATA__ shows I need to do a 'grep' on it which I am doing in the map.
> My regex is getting the values I want. The statement is doing what I want,
> however __DATA__ is really a very large file. Some of the lines have the
> data I want and some do not. I am thinking maybe it would run faster on the
> real file if I could somehow get just the lines I want into $1.. and not
> test them as I do not need if false. I did started out doing a test if it
> was a line I was looking for then a split, but it was very slow. Here is the
> code:
>
> Thank you very much for your time
> Pete
>
>
> use strict;
> use warnings;
> use DBI;
>
> my $dbh = DBI->connect('dbi:Oracle:to5',
> 'XXX',
> 'XXX',
> {RaiseError => 1,
> PrintError => 0,
> AutoCommit => 0}) or die "Unable to connect $DBI::errstr";
>
> map {
> / values \((\w*),('[\W*|\w*]*'),([\w]*),([\w]*)/
> ?($dbh->do("insert into customers values ( $1, $2, $3, $4 ) ")):()}
> <DATA>;
You could use && instead of ?: I guess, but why not just use for/foreach
since it is just a loop with no list generation taking place:
for (<DATA>) {
if (/ values \((\w*),('[\W*|\w*]*'),([\w]*),([\w]*)/) {
$dbh->do("insert into customers values ( $1, $2, $3, $4 ) ") }
}
}
If you are doing a bunch of SQL statements which are identical other
than the parameters, using prepare() before the loop and execute() in
the loop will possibly be faster. Though I guess if your data is
already SQL escaped, it would be a pain to unescape them (I'm not
sure if you can turn of auto escaping in execute)...
--
Sam Holden
------------------------------
Date: 26 Feb 2003 12:37:39 -0800
From: msullivan@aelix.com (Michael Sullivan)
Subject: Re: Bug in Net::FTP - ls() command doesn't work
Message-Id: <8ee29373.0302261237.7786d952@posting.google.com>
mark@kitfox.com (Mark McKay) wrote in message news:<52de739f.0302160045.7b2070c@posting.google.com>...
>
> Anyhow, the following works on windows, but not on Linux. The
> FTP::ls() returns empty for some reason, even though the directory
> exists and is not empty:
I had this happen to me today. $ftp->ls() just stopped working (still
worked from the command line, though). Maybe it had to do with there
being a lot of files in the directory. I switched to using
$ftp->dir(), which produces a long listing, and took the filenames out
of that. It's working just fine (so far).
------------------------------
Date: 26 Feb 2003 16:28:49 -0500
From: jim@sapodilla.rsmas.miami.edu (Jim Brown)
Subject: Re: Bug in Net::FTP - ls() command doesn't work
Message-Id: <b3jbih$3qaf@sapodilla.rsmas.miami.edu>
Have you tried ftp->ls(-1) instead of ->ls()?
------------------------------
Date: Wed, 26 Feb 2003 16:04:14 -0500
From: Raymond Chui <raymond.chui@noaa.gov>
To: Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca>
Subject: Re: CGI redirecdt to another CGI by POST?
Message-Id: <3E5D2BCE.CBB19999@noaa.gov>
This is a multi-part message in MIME format.
--------------A5AFDF67ACAF6958C86D4829
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Thank you! Thank you very very much!!!
I resolved this problem after read your reply.
All I need is add few more lines like:
if ($response->is_success) {
print $response->content;
} else {
print $response->error_as_HTML;
}
Malcolm Dew-Jones wrote:
>
>
> In addition to any other errors, notice that the two techniques you use
> are completely different. The first example is not a redirect. What it
> does is turn your cgi script into a client that gets some data and must
> then still return some headers and data to the original browser. The
> second technique is a redirect. It tells the browser to make another
> query to a different location.
>
> In the second technique, once you have sent the redirect that you are
> finished. In the first technique, even if you correctly use the
> $ua-request then you will still get browser errors unless you create a
> valid set of headers and data and send it to the browser. (You might be
> able to simply re-print the $response, I don't know those details for
> sure.)
>
> -1st technique-
>
> +------+ +--------+ +-------------+
> | | | | | |
> |client| -> request -> |your cgi| -> $ua-request -> |anotherCGI.pl|
> | | | | | |
> | | <- response<- | | <-returning data <- | |
> | | | | | |
> +------+ +--------+ +-------------+
>
> -2nd technique-
>
> +------+ +--------+
> | | | |
> |client| -> request -> |your cgi|
> | | | |
> | | <- redirect <- | |
> | | to new url | |
> +------+ +--------+
>
> +------+ +-------------+
> | | | |
> |client| -> new request -> |anotherCGI.pl|
> | | | |
> | | <- returning <- | |
> | | data | |
> +------+ +-------------+
--------------A5AFDF67ACAF6958C86D4829
Content-Type: text/x-vcard; charset=us-ascii;
name="raymond.chui.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Raymond Chui
Content-Disposition: attachment;
filename="raymond.chui.vcf"
begin:vcard
n:Chui;Raymond
tel;work:301-713-0640 x168
x-mozilla-html:TRUE
url:http://www.nws.noaa.gov/
org:NWS, NOAA;OHD13
version:2.1
email;internet:raymond.chui@noaa.gov
title:CS
adr;quoted-printable:;;1325 East-West Highway=0D=0ASSMC2, Room 8113;Silver Spring;MD;20910-3282;U.S.A.
fn:Raymond Chui
end:vcard
--------------A5AFDF67ACAF6958C86D4829--
------------------------------
Date: 26 Feb 2003 13:25:38 -0800
From: Carolyn.Rivers@noaa.gov (crivers)
Subject: Delete a single leading space from a line
Message-Id: <c2d0c52.0302261325.1cd5450c@posting.google.com>
If I have a string that contains more than one leading space,
how can I delete only the first space and keep the remaining spaces?
The regular expression below deletes all leading spaces:
$str =~ s/^\s//;
example:
Now is the time (input string)
Now is the time (output string using above RE)
Now is the time (desired output string)
How do I accomplish this?
Thanks
------------------------------
Date: 26 Feb 2003 22:36:30 +0100
From: Steve Holland <holland@origo.phys.au.dk>
Subject: Re: Delete a single leading space from a line
Message-Id: <w47y9423esh.fsf@origo.phys.au.dk>
Carolyn.Rivers@noaa.gov (crivers) writes:
> If I have a string that contains more than one leading space,
> how can I delete only the first space and keep the remaining spaces?
> The regular expression below deletes all leading spaces:
>
> $str =~ s/^\s//;
> example:
> Now is the time (input string)
>
> Now is the time (output string using above RE)
>
> Now is the time (desired output string)
>
> How do I accomplish this?
Are you sure that you really do have multiple spaces at the start
of your string? If you have a tab instead of N spaces then that would
explain the odd behaviour that you get.
==========================================================================
To find out who and where I am look at:
http://www.nd.edu/~sholland/index.html
"Only so many songs can be sung with two lips, two lungs, and one tongue."
==========================================================================
------------------------------
Date: 26 Feb 2003 22:15:03 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: editting photos on the fly
Message-Id: <slrnb5qf37.71j.abigail@alexandra.abigail.nl>
Tassilo v. Parseval (tassilo.parseval@post.rwth-aachen.de) wrote on
MMMCDLXVI September MCMXCIII in <URL:news:b3hvep$640$1@nets3.rz.RWTH-Aachen.DE>:
:} Also sprach Abigail:
:}
:} > Steve (sdyck@engr.uvic.ca.spam) wrote on MMMCDLXVI September MCMXCIII in
:} ><URL:news:3E5C3264.4FFE92FE@engr.uvic.ca.spam>:
:}
:} ><> In North America, you have to be 18 (Canada) and 21 (most of the USA) to
:} ><> access adult material. Is adult material accessible by all in the
:} ><> Netherlands?
:} >
:} >
:} > You certainly won't get send to prison if you see a picture of a topless
:} > person while you're 15 years old.
:} >
:} > What's the punishment for seeing a picture of a topless person while
:} > you're younger than 21 in the USA?
:}
:} I think the point is that not the underage person seeing such a pic is
:} punished but rather the person who makes such media accessible to
:} people being of this 'illegal' age.
:}
:} Having said that, by simply saying "Don't enter this page unless you are
:} of legal age because it contains some nudity" as the OP did is probably
:} counter-productive (I already sense the script-kiddies klicking the link
:} eagerly with dribbling mouths). This wouldn't stand before court if it
:} came to that.
I was just picking on the person who suggested that if US people younger
21 saw a picture of a person without a shirt, it was entirely the fault
of the youngster.
I just keep my comment of the sillyness of protecting people old enough
to drive from seeing images of shirtless people, while images of people
getting murdered is considered not a problem for myself.
Abigail
--
perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307].
q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print'
------------------------------
Date: Wed, 26 Feb 2003 22:57:02 +0100
From: "Tore Aursand" <tore@aursand.no>
Subject: Re: FAQ proposal: Why can't I compare two strings using == ?
Message-Id: <pan.2003.02.26.17.46.18.455522@aursand.no>
On Wed, 26 Feb 2003 07:52:07 +0000, Philip Lees wrote:
>>> How about: 'Why don't my equality tests work right?'
>> I agree that this question should be answered in the FAQ, but I don't
>> see this question as _one_ question.
> You're right, of course, but as a long time lurker it seems to me that
> when the question comes up here it almost _always_ refers to something
> equivalent to:
> [...]
You are also right. After some thinking, I came up with the following
questions:
"Why doesn't my use of operator do what I excpect?"
It's a problem with this one, though; a lot of people don't even _know_
what an operator is. :-/
--
Tore Aursand - tore@aursand.no - http://www.aursand.no/
------------------------------
Date: Wed, 26 Feb 2003 22:45:46 GMT
From: "matt" <urzaserra@home.com>
Subject: geting premature end of script header error
Message-Id: <usb7a.1094$Pa.104775@news2.west.cox.net>
I just got this perl cgi program that is a web based database searcher and
editor but i am getting the premature end of script header errors.
http://www.onlinewebpromotion.com/cgi-bin/dbrowser/search.cgi
I am very new to perl and cant see why this is happening.
------------------------------
Date: Wed, 26 Feb 2003 23:27:34 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Getting answers with perldocs
Message-Id: <5efq5vs1ufi6usggt1qv9obksdjrpv0po0@4ax.com>
On Tue, 25 Feb 2003 17:56:43 -0600, tadmc@augustmail.com (Tad
McClellan) wrote:
>I grep() the *.pod files directly on my useful OS, you could do
>something similar on Redmondware:
>
> perl -ne "print if /remove/ and /space/" *.pod
Except that under Windows (at least for what regards versions less
than and including 98 - for the rest I don't know) the shell doesn't
provide patterns expansion, so he'd have to do that himself. I can't
think of anything better than the following (for a general use):
perl -ne "BEGIN{@ARGV=map glob($_),@ARGV} print if /remove/ and\
/space/" *.pod
[Yes: I know "\\\n" construct is not supported either, but it was just
for clarity - I hope...]
Michele
--
>It's because the universe was programmed in C++.
No, no, it was programmed in Forth. See Genesis 1:12:
"And the earth brought Forth ..."
- Robert Israel on sci.math, thread "Why numbers?"
------------------------------
Date: Wed, 26 Feb 2003 22:42:41 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: Getting answers with perldocs
Message-Id: <slrnb5qgn1.ufd.mgjv@verbruggen.comdyn.com.au>
On Wed, 26 Feb 2003 11:44:19 GMT,
Helgi Briem <helgi@decode.is> wrote:
> On Tue, 25 Feb 2003 14:34:59 -0500, LM <ellem52@mail.com>
> wrote:
>
>>Making List, Checking It Twice
>
> my @list = qw/one two three four/;
> my @list = (<INFILE>);
> my @list = (1..500);
> my @list = $one,$two,$three,$four;
Of course, this list is a lot shorter than the code suggests (one
element, instead of four). While that may be what you intended, it's a
bit useless, and indeed, with warnigns enabled, perl will whinge :)
So, ITYM:
my @list = ($one,$two,$three,$four);
> my @list = split, "\t",$line;
Martien
--
|
Martien Verbruggen |
Trading Post Australia | Curiouser and curiouser, said Alice.
|
------------------------------
Date: 26 Feb 2003 12:55:23 -0800
From: yarivwine@yahoo.com (Yariv W)
Subject: How Do I Clone An Object
Message-Id: <2efc0c33.0302261255.13051ad5@posting.google.com>
Hi,
I would like to know how can i clone an object .
This is my constructor :
sub new_obj
{
my ($x,$y,$z,$index,
$tranfer_element,$axis,
$total_mol,
@corrDataFract,@corrDataAns) = @_;
my $mol_obj = {"X" => $x,
"Y" => $y,
"Z" => $z,
"INDEX" => $index,
"TRANSFER_ELEMENT" => $tranfer_element,
"AXIS" => $axis,
"TOTAL_MOL" => $total_mol,
"MOL_CORR_FRACT" => [@corrDataFract],
"MOL_CORR_ANS" => [@corrDataAns]};
return $mol_obj;
}
If you have a code sample it will be great !
Thank's
Yariv
------------------------------
Date: 26 Feb 2003 21:41:15 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: How Do I Clone An Object
Message-Id: <b3jc9r$fa0$1@mamenchi.zrz.TU-Berlin.DE>
Yariv W <yarivwine@yahoo.com> wrote in comp.lang.perl.misc:
> Hi,
> I would like to know how can i clone an object .
Well, before you can clone an object, you must have one. Your new() below
doesn't bless anything, so it doesn't return an object in the usual sense.
> This is my constructor :
>
> sub new_obj
> {
Add this:
my $class = shift;
> my ($x,$y,$z,$index,
> $tranfer_element,$axis,
> $total_mol,
> @corrDataFract,@corrDataAns) = @_;
^ ^
This won't work the way you think it should. The first array
(@corrDataFract) will get all the values and @corrDataAns will be empty.
See "perldoc perlsub" and "perldoc -q 'How can I pass'" for the
explanation and ways around it.
> my $mol_obj = {"X" => $x,
> "Y" => $y,
> "Z" => $z,
> "INDEX" => $index,
> "TRANSFER_ELEMENT" => $tranfer_element,
> "AXIS" => $axis,
> "TOTAL_MOL" => $total_mol,
> "MOL_CORR_FRACT" => [@corrDataFract],
> "MOL_CORR_ANS" => [@corrDataAns]};
> return $mol_obj;
Change this to
return bless $mol_obj, $class;
> }
>
> If you have a code sample it will be great !
Well, the only things to worry about when cloning are references. I'll
assume that everything except the two explicit arrayrefs is a plain scalar.
You could then create a clone (with no shared data) in two steps (untested):
my $clone = { %$obj };
This creates a copy of the hash, but the lists are shared. This can
be corrected through
$_ = [ @$_ ] for @{ $clone}{ qw( MOL_CORR_FRACT MOL_CORR_FRACT) };
which replaces them with copies in the clone. Don't forget to bless
the clone into the object's class:
bless $clone, ref $obj;
This clone routine will have to be changed (or at least checked) whenever
the underlying object structure changes. For a more general (but probably
less efficient) approach, a module can be used. I'm not sure if there's
a dedicated deep-copy module (which is what you're looking for), but
Data::Dumper and similar serialization modules do a good job. You
basically dump the object to a string and immediately restore it again.
The restored object will be a perfect clone of the original (blessed and
all). This way you can change the object structure whichever way you
want, the clone method will automatically adapt.
Anno
------------------------------
Date: 26 Feb 2003 14:32:39 -0800
From: yewneek@iwon.com (KandoCoder)
Subject: Re: MIME::Parser and Mail::Folder
Message-Id: <74f67ed8.0302261432.1533a6d7@posting.google.com>
craigwharding@hotmail.com (Craig Harding) wrote in message news:<d2683d07.0302250739.1e244908@posting.google.com>...
> I'm just learning perl as I go, so sorry if this is a little
> newbie-ish.
>
> Hi I was wondering if someone has done this before and could
> help me try and plan this out a bit better than I have
> been..
>
> What I want to do is parse a full email (mbox) spool file,
> parse any text, MIME emails in it and grabbing any
> attachments along with it. Then after the parsing is done,
> I want to send all those emails to a specified email
> address. The problem I'm having is passing a message to MIME::Parser.
> If I pass MIME::Parser the whole spool file, it just does the
> first msg in the file. If I try to loop through all the msgs in the
> spool file and pass each individual msg to the $parser object,
> I get errors....
>
> So what I have done so far is this...
>
> I've used Mail::Folder to get handles on all messages in the
> mail file:
>
> $folder = new Mail::Folder('mbox', $mailbox);
> $nummsgs = $folder->last_message; # Number of msgs in file.
> $msg = $folder->get_message; # $msg is a Mail::Internet object
>
> etc....
>
> At this point, I don't know if a msg is a text message or a
> MIME message, so should I just do a for loop and loop
> through each message that I have using the $folder object
> and then check to see if a message is a text msg or a MIME
> message?
>
> If it's a text message, then I won't have to use
> MIME::Parser and I can just email it right away, but if
> it's a MIME msg, how can I pass the message to the $parser
> object? I've tried numerous ways using the parse,
> parse_data, and read methods with only errors.. When I
> would pass the scalar $msg to the $parser object...
>
> $parser = new MIME::Parser;
> $entity = $parser->parse($msg);
>
> The error that always came up was 'can't locate
> auto/Mail/Internet/getline.al'
>
> I looked in the perl modules directories and couldn't find
> even a reference to getline.al !!! I have Mail::Tools,
> MIME::Tools, Mail::Folder, IO::stringy installed.
>
> any help, flames, etc are welcome...
>
> craig.
You have to go through each part of the message. (see parts_DFS)
sometimes there is no body, but attachments
sometimes there is a body and attachments.
each is a part.
something along the lines of this....
(i use something like this to extract attached text/csv files...)
my $part=0;
my $entity = $parser->parse_data( $email );
foreach $sub_entity ($entity->parts_DFS) {
if ($sub_entity->bodyhandle) {
my $mimetype = $sub_entity->mime_type();
if (!(defined($mimetype))) { $mimetype=""; } #or whatever
$filename=$sub_entity->head->recommended_filename;
if (!(defined($filename))) { $filename=""; } #or whatever
if ( $part==1 && ($filename) ) {
; #there was no message, just an attachment
}
$part++;
}
}
#now part has how many parts there were.
yapp
------------------------------
Date: 26 Feb 2003 11:58:23 -0800
From: brian2310@hotmail.com (B.P.)
Subject: Multi-select boxes - how do I grab all the inputs?
Message-Id: <e47bf7fd.0302261158.43d559f5@posting.google.com>
Help!
I'm using a multi-select box and then sending it to variable, using
post, but it only picks up the *first* selection. How can I send it
to an array or something else and get *all* of the inputs selected?
I'm using the regular old "$MyVar = $query->param('TheVar')" to get
the varables from a submitted form.
Thanks!!
B.P.
------------------------------
Date: Wed, 26 Feb 2003 20:08:39 GMT
From: Jeff Boes <jboes@qtm.net>
Subject: Re: Multi-select boxes - how do I grab all the inputs?
Message-Id: <298b643663cf4cdd5fa6e76045ffcd36@news.teranews.com>
At some point in time, brian2310@hotmail.com (B.P.) wrote:
>I'm using a multi-select box and then sending it to variable, using
>post, but it only picks up the *first* selection. How can I send it
>to an array or something else and get *all* of the inputs selected?
>I'm using the regular old "$MyVar = $query->param('TheVar')" to get
>the varables from a submitted form.
Check the dox:
$ perldoc CGI
...
FETCHING THE VALUE OR VALUES OF A SINGLE NAMED PARAMETER:
@values = $query->param('foo');
-or-
$value = $query->param('foo');
Pass the param() method a single argument to fetch the
value of the named parameter. If the parameter is multi
valued (e.g. from multiple selections in a scrolling
list), you can ask to receive an array. Otherwise the
method will return a single value.
...
So all you need to do is
@MyVars = $query->param('TheVar');
or
($myfirst,$mysecond,$mythird) = $query->param('TheVar');
The 'param' call "knows" you are invoking in a list or scalar context, and
returns the right number of values.
------------------------------
Date: 26 Feb 2003 12:10:14 -0800
From: yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: Multi-select boxes - how do I grab all the inputs?
Message-Id: <3e5d1f26@news.victoria.tc.ca>
B.P. (brian2310@hotmail.com) wrote:
: Help!
: I'm using a multi-select box and then sending it to variable, using
: post, but it only picks up the *first* selection. How can I send it
: to an array or something else and get *all* of the inputs selected?
: I'm using the regular old "$MyVar = $query->param('TheVar')" to get
: the varables from a submitted form.
I suspect that
@MyVar = $query->param('TheVar')
would work, but
perldoc CGI
will tell you for sure.
------------------------------
Date: Wed, 26 Feb 2003 22:57:01 +0100
From: "Tore Aursand" <tore@aursand.no>
Subject: Re: newbie regexp question
Message-Id: <pan.2003.02.26.17.52.19.294455@aursand.no>
On Wed, 26 Feb 2003 15:37:41 +0000, Mike wrote:
> beacuse I have been told that the code must be free standing
> [...]
Whoever told you would have had my booth up their *ss by the time you're
reading this. If I knew where they lived, that is.
Seriously: It's the _developer's_ responsibility to deliver the best
solutions for "those who ask" (ie. the customer). If the customer
explicitly tells you that they want a solution that might fail in 40-50%
of the time, then they don't deserve better.
> [...] but the script will only ever perform a limited function on
> a single file.
Oh. Haven't I heard that one at least a thousand times? "This script is
only a temporary solution for something that's very easy to do". Two
years later the script is still being used, but on lots of data and
generating a lot of errors.
--
Tore Aursand - tore@aursand.no - http://www.aursand.no/
------------------------------
Date: 26 Feb 2003 20:09:11 GMT
From: vampire <vampire@tiamat.obscure.org>
Subject: Re: Parsing Unix mbox in MS Environment
Message-Id: <b3j6t7$f73@dispatch.concentric.net>
Tassilo v. Parseval <tassilo.parseval@post.rwth-aachen.de> wrote:
> Also sprach vampire:
>> The readme for Mail::MboxParser does in fact have a metion of get_entities
>>
>>::get_entities (array or scalar if called with a number)
> The README is not a replacement for the real documentation. Did you look
> in the right class? Try 'perldoc Mail::MboxParser::Mail'. You'll find it
> there (among others).
Thanks...I realized the other day that perldoc Mail::MboxParser wasn't the full
extent of the documentation. I do most of my coding in Java and C++ and am a
bit inexperienced with perl. Thanks for all your help. Things are going pretty
nicely now.
> Tassilo
> --
David
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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.
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 V10 Issue 4629
***************************************
