[25294] in Perl-Users-Digest
Perl-Users Digest, Issue: 7539 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 20 11:06:21 2004
Date: Mon, 20 Dec 2004 08:05:15 -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 Mon, 20 Dec 2004 Volume: 10 Number: 7539
Today's topics:
Re: /\bf(?:o(?:o(?:b(?:a(?:r)?)?)?)?)?\b/ <invalid@rochester.rr.com>
[PATTERN MATCHING] (J. Romano)
Re: [PATTERN MATCHING] <jgibson@mail.arc.nasa.gov>
Re: [PATTERN MATCHING] <jgibson@mail.arc.nasa.gov>
Re: [Q] $ARGV, <>, and command-line Perl <lv@aol.com>
Re: [Q] $ARGV, <>, and command-line Perl <lv@aol.com>
Re: change mac address formatting in a regex <lv@aol.com>
Comparing 2 dates ? <lance-news@augustmail.com>
Re: Comparing 2 dates ? <1usa@llenroc.ude.invalid>
Re: Comparing 2 dates ? <x3v0-usenet@yahoo.com>
Re: FAQ 4.16: How can I find the Julian Day? <jgibson@mail.arc.nasa.gov>
Re: FAQ 8.44: How do I tell the difference between erro <barbr-en_delete_@online.no.invalid>
Re: How to do this job? <jgibson@mail.arc.nasa.gov>
Re: How to tell what is using memory <jgibson@mail.arc.nasa.gov>
Re: inserting a line into the body of an eMail before f <lv@aol.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 18 Dec 2004 20:06:26 -0500
From: Bob Walton <invalid@rochester.rr.com>
Subject: Re: /\bf(?:o(?:o(?:b(?:a(?:r)?)?)?)?)?\b/
Message-Id: <41c4d38f$1_2@127.0.0.1>
Mike wrote:
> I want a regexp that will match (as a "whole word") any of the
> (non-empty) prefixes of the word "foobar", i.e. "f", "fo", "foo",
> "foob", etc. One way to do it is this:
>
> /\bf(?:o(?:o(?:b(?:a(?:r)?)?)?)?)?\b/
>
> Yuk. Is there a better way?
>
> Mike
>
Well, I don't know if it "better" but this is perhaps more straightforward:
/\b(?:f|fo|foo|foob|fooba|foobar)\b/
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: 20 Dec 2004 07:32:30 -0800
From: jl_post@hotmail.com (J. Romano)
Subject: [PATTERN MATCHING]
Message-Id: <b893f5d4.0412200732.6f42f87d@posting.google.com>
Nicolas Vautier wrote:
>
> Let's say that I have this:
>
> $line =~ s/$pattern/$replacement/;
>
> It should find every $pattern in $line and replace it by $replacement
> right?
No. It will replace only the first occurrence of $pattern (if at
least one exists) with $replacement. To replace every occurrence, use
the /g switch, like this:
$line =~ s/$pattern/$replacement/g;
> But since I have characters such as "|", """, "'", "!", "?"
> in my strings, it has a very strange behavior.
>
> Is there any way to specify perl NOT TO USE regular expressions
> expressions in my example?
Yes. Others posters have (correctly) said:
$line =~ s/\Q$pattern\E/$replacement/;
but you can also "backslash" the special characters (like "|", """,
"'", "!", "?") with the quotemeta() function. This function will
return a new pattern that you can use that has all the special
characters escaped (so that they won't interfere with the regular
expression matching). You use it like this:
my $escapedPattern = quotemeta($pattern);
$line =~ s/$escapedPattern/$replacement/g;
In other words, if you have the line:
print quotemeta("Again? (y/n)");
you'll see the output:
Again\?\ \(y\/n\)
meaning that if you use that output in a pattern match, the "?", "(",
and ")" characters won't affect how you match a pattern.
Note that, according to "perldoc -f quotemeta", the line:
my $escapedPattern = quotemeta($pattern);
is equivalent to:
my $escapedPattern = "\Q$pattern\E";
which makes the following regular expression substitutions equivalent:
my $escapedPattern = quotemeta($pattern);
$line =~ s/$escapedPattern/$replacement/g;
$line =~ s/\Q$pattern\E/$replacement/g;
Which method should you use? In my opinion, you should use
whichever one you find more readable and easier to understand. And of
course, that part depends on you.
I hope this helps, Nicolas.
-- Jean-Luc
------------------------------
Date: Fri, 17 Dec 2004 11:35:39 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: [PATTERN MATCHING]
Message-Id: <171220041135395443%jgibson@mail.arc.nasa.gov>
In article <1103310863.092409.215790@f14g2000cwb.googlegroups.com>,
Nicolas Vautier <nicolas.vautier@gmail.com> wrote:
> Let's say that I have this:
>
> $line =~ s/$pattern/$replacement/;
>
> It should find every $pattern in $line and replace it by $replacement
> right?
It will only find the first one unless you add the 'g' flag to the end.
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: Fri, 17 Dec 2004 14:34:16 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: [PATTERN MATCHING]
Message-Id: <171220041434166454%jgibson@mail.arc.nasa.gov>
In article <32h1jkF3k93bmU1@individual.net>, Gunnar Hjalmarsson
<noreply@gunnar.cc> wrote:
> A. Sinan Unur wrote:
> > However, if you do want an example of a bug with the code you posted:
> >
[buggy program snipped]
> >
> > I know, I know, it is a cheap shot :)
>
[single substitution example snipped]
> Btw, the multiple substitution should be:
>
> while ( ( my $pos = index $line, $pattern ) >= 0 ) {
> substr $line, $pos, length $pattern, $replacement;
> }
>
> to prevent the need to fiddle with the $[ variable.
>
> > But it is a bug nevertheless. You do
> > need to remember to check if the match actually succeeded.
Here is another cheap shot using the while loop above (pipe output to
more for best results):
#!/usr/local/bin/perl
#
use strict;
use warnings;
my $line = 'My name is Gunnar, his name is Sinan';
my $pattern = 'name';
my $replacement = 'first name';
print "Start with: $line\n";
while ( ( my $pos = index $line, $pattern ) >= 0 ) {
substr $line, $pos, length $pattern, $replacement;
print "Result now: $line\n";
}
__END__
I believe the following will fix that problem:
#!/usr/local/bin/perl
#
use strict;
use warnings;
my $line = 'My name is Gunnar, his name is Sinan';
my $pattern = 'name';
my $replacement = 'first name';
print "Start with: $line\n";
my $pos = 0;
while ( ( $pos = index $line, $pattern, $pos ) >= 0 ) {
substr $line, $pos, length $pattern, $replacement;
$pos += length $replacement;
}
print "Result: $line\n";
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: Thu, 16 Dec 2004 13:14:28 -0600
From: l v <lv@aol.com>
Subject: Re: [Q] $ARGV, <>, and command-line Perl
Message-Id: <41c1de1a$1_4@127.0.0.1>
J Krugman wrote:
> I've rtfm'd this to death, but I still don't get it. If someone
> can explain it to me (as opposed to tell me something like "man
> perlfrotz"), I'd be very grateful.
>
> The immediate problem that serves as the context of the question
> is this: find all the files below /path/to/subdir (this is Linux)
> that contain either of the strings "foo bar baz" or "quux frobozz",
> and do this *from the command line* (i.e. I'm looking for a one-liner
> here, not a longwinded affair using File::Find, etc.).
>
> I tried
>
> % perl -e 'print "$ARGV\n" if grep /(foo bar baz|quux frobozz)/, <>' `find /path/to/subdir -type f`
>
> which failed to generate any output, even though I *know* that
> there are files under /path/to/subdir that contain strings "foo
> bar baz" and/or "quux frobozz".
>
> Even if it had worked, the last alternative is not good, because
> it can easily fail through choking the shell with an excessively
> long arguments list. There has to be a better way.
>
> At any rate, I also tried
>
> % perl -e 'for (@ARGV) { print "$ARGV\n" if grep /(foo bar baz|quux frobozz)/, <> }' `find /path/to/subdir -type f`
>
> which also failed. In fact, even
>
> % perl -e 'for (@ARGV) { print "$ARGV\n" }' `find /path/to/subdir -type f`
pipe the output from find into perl. Run perl -h to read up on -n and
-l. Try the following in lieu of the above line.
find /path/to/subdir -type f | perl -nle 'print'
>
> failed: it generated a whole bunch of empty lines. Clearly I have
> *no clue* of what's going on. What exactly is the relationship
> between $ARGV and <>? Is it possible to write a simple one-liner
> that cycles through all the lines of *each* of the files in named
> in @ARGV and prints the name of the file if at least one of its
> lines meets a condition?
>
I've done something of the following (untested) during ummm stressfull
times :)
find /path/to/subdir -type f | perl -nle '$a = `grep "foo bar baz|quux
frobozz" $_`; print $_ if ($a =~ /foo bar baz|quux frobozz/)'
> Any help would be much appreciated.
>
> jill
>
>
I do not currently have access to my linux systems, just AIX so I can
not test the above.
Len
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: Fri, 17 Dec 2004 13:35:39 -0600
From: l v <lv@aol.com>
Subject: Re: [Q] $ARGV, <>, and command-line Perl
Message-Id: <41c3348c$1_1@127.0.0.1>
chris-usenet@roaima.co.uk wrote:
> Quick alternative, since this is CLPM:
>
> find . -type f | perl -ane 'chomp;open(F,$_)||next;print "$_\n" if grep {/foo bar baz|quux frobozz/} <F>'
>
> Chris
By changing perl -ane to perl -alne you can eliminate the chomp and the
newlines from your code.
find . -type f | perl -alne 'open(F,$_)||next;print if grep {/foo bar
baz|quux frobozz/} <F>'
Len
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: Sun, 19 Dec 2004 21:53:43 -0600
From: l v <lv@aol.com>
Subject: Re: change mac address formatting in a regex
Message-Id: <41c64c3e$1_1@127.0.0.1>
edward.nigma@gmail.com wrote:
> Good evening... I'm trying to construct a way to transform a mac
> address written in this format...
>
> 0:3:e2:12:4e:54
>
> To this:
>
> 0003E2124E54
>
> ...in a single regular expression. Actually the change in
> capitalization isn't very important, because I'm not sure if that can
> be done in the same regular expression that would also be adding
> additional zeros to the segments.
>
> I have different methods of doing this using loops that delimit the
> data already in place, but I now need to be able to do this through a
> single regular expression and it seems there should be a way!
> Thank you, I appreciate it!
>
Not a regex but ...
map { $newMac .= sprintf "%02s", $_ } split /:/, '0:3:e2:12:4e:54';
the following works as long as the last numbers (54) have a length of 2.
Perhaps someone else has a suggestion.
$mac =~ s/(.+?):/sprintf "%02s",$1/ge;
I thought this would work but returned results which were unexpected:
$mac =~ s/(.+?):?/sprintf "%02s",$1/ge;
$mac =~ s/(.+?):??/sprintf "%02s",$1/ge;
This regex works but is a bit long winded.
$mac =~
s/(.+):(.+):(.+):(.+):(.+):(.+)/sprintf("%02s%02s%02s%02s%02s%02s",
$1,$2,$3,$4,$5,$6)/e;
Len
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: Mon, 20 Dec 2004 08:41:00 -0600
From: Lance Hoffmeyer <lance-news@augustmail.com>
Subject: Comparing 2 dates ?
Message-Id: <pan.2004.12.20.14.40.57.208870@augustmail.com>
I modified a script I found that gets a list of birthdays.
I wish to compare the birthdays with the current day's date.
Two things I want to do:
1) Print out the 3 fields if the birthday is in the current month
2) Print out the 3 fields if the birthday is 2 weeks or less away
Any help would be appreciated
Lance
#!/usr/bin/perl -w
use Pg;
use DBI;
$dbh = DBI->connect ( "dbi:Pg:dbname=foobar", "foobar",
"foobar"); if ($dbh) {
print "connected\n";
my $Command = "SELECT first_name, last_name, birthday FROM database";
my $sth = $dbh->prepare($Command);
my $Result = $sth->execute;
while (my @row_ary = $sth->fetchrow_array)
{
if ($row_ary[2] ne ""){printf "%35s %25s %15s \n", $row_ary[0], $row_ary[1], $row_ary[2];}
}
$sth->finish;
$dbh->disconnect();
} else {
print "Cannot connect to Postgres server: $DBI::errstr\n";
print " db connection failed\n";
------------------------------
Date: 20 Dec 2004 14:51:01 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Comparing 2 dates ?
Message-Id: <Xns95C56434597ECasu1cornelledu@132.236.56.8>
Lance Hoffmeyer <lance-news@augustmail.com> wrote in
news:pan.2004.12.20.14.40.57.208870@augustmail.com:
> I modified a script I found that gets a list of birthdays.
> I wish to compare the birthdays with the current day's date.
>
> Two things I want to do:
> 1) Print out the 3 fields if the birthday is in the current month
> 2) Print out the 3 fields if the birthday is 2 weeks or less away
>
> Any help would be appreciated
Then help us help you.
Please read the posting guidelines posted here frequently. They can also be
found on the web:
http://tinyurl.com/3thol
To get the best help possible, please show us what you have tried so far
and where you have a problem.
Sinan.
------------------------------
Date: Mon, 20 Dec 2004 09:53:18 -0500
From: Ken <x3v0-usenet@yahoo.com>
Subject: Re: Comparing 2 dates ?
Message-Id: <zHBxd.11391$FE.8134@fe37.usenetserver.com>
Lance Hoffmeyer wrote:
> I modified a script I found that gets a list of birthdays.
> I wish to compare the birthdays with the current day's date.
>
> Two things I want to do:
> 1) Print out the 3 fields if the birthday is in the current month
> 2) Print out the 3 fields if the birthday is 2 weeks or less away
>
> Any help would be appreciated
>
> Lance
>
>
>
> #!/usr/bin/perl -w
> use Pg;
> use DBI;
>
>
> $dbh = DBI->connect ( "dbi:Pg:dbname=foobar", "foobar",
> "foobar"); if ($dbh) {
> print "connected\n";
>
>
> my $Command = "SELECT first_name, last_name, birthday FROM database";
<snip>
We can't help you without knowing what format birthday is in. Can you
give an example of the returned string for birthday?
Also, it would probably be better to find the birthdays you want using
SQL rather than perl. But that's not a matter for a perl group. In that
case, look up how to find dates within a certain range using SQL.
------------------------------
Date: Thu, 16 Dec 2004 15:34:20 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: FAQ 4.16: How can I find the Julian Day?
Message-Id: <161220041534203445%jgibson@mail.arc.nasa.gov>
In article <cpt475$8pr$1@reader2.panix.com>, PerlFAQ Server
<comdog@panix.com> wrote:
>
> 4.16: How can I find the Julian Day?
>
...
>
> There is too many details and much confusion on this issue to cover in
There are ...
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: Mon, 20 Dec 2004 12:21:31 +0100
From: Kåre Olai Lindbach <barbr-en_delete_@online.no.invalid>
Subject: Re: FAQ 8.44: How do I tell the difference between errors from the shell and perl?
Message-Id: <k8dds0tqo5ogk77epkhut47shh95mnj8sq@4ax.com>
On Mon, 20 Dec 2004 11:03:02 +0000 (UTC), PerlFAQ Server
<comdog@panix.com> wrote:
>This message is one of several periodic postings to comp.lang.perl.misc
>intended to make it easier for perl programmers to find answers to
>common questions. The core of this message represents an excerpt
>from the documentation provided with Perl.
>
>--------------------------------------------------------------------
>
>8.44: How do I tell the difference between errors from the shell and perl?
>
> (answer contributed by brian d foy, "<bdfoy@cpan.org>"
Syntax error: "Missing closing parenthesis on line 10." ;-)
--
mvh/Regards Kåre Olai Lindbach
(News: Remove '_delete_' and '.invalid')
(HTML-written email from unknown will be discarded)
------------------------------
Date: Tue, 14 Dec 2004 08:45:03 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: How to do this job?
Message-Id: <141220040845033794%jgibson@mail.arc.nasa.gov>
In article <cpm0cu$8kh$1@netnews.hinet.net>, news.hinet.net
<sonet.all@msa.hinet.net> wrote:
> Direcory:
> /usr/local/ap/
> Filename:
> 1
> 1.lock
> 2
> 3
> 4
> 4.lock
>
> want to list 2 and 3.
> ========================================================
> opendir(DIR,"/usr/local/ap/");
> @dots = grep {-f "/usr/local/ap/$_" && $_ !~m/\.lock/} readdir(DIR);
> close(DIR);
> ========================================================
> The @dots have 1 2 3 4 elements. I know i can use -e to check the
> $filename.lock in loop.
> But how to make @dots just have 2 and 3? Becaues the directory have
> many files,i don't want to worse time to check the $filename.lock .
> please help!
Try this:
#!/usr/local/bin/perl
#
use warnings;
use strict;
my %files;
opendir(DIR,"/usr/local/ap") or die("Can't open /usr/local/ap: $!");
$files{$_} = 1 for readdir(DIR);
my @dots = grep {
$_ !~ /^\.+$/ && $_ !~ /\.lock$/ && ! $files{"$_.lock"} }
sort keys %files;
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: Fri, 17 Dec 2004 09:58:00 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: How to tell what is using memory
Message-Id: <171220040958007756%jgibson@mail.arc.nasa.gov>
In article <aIadnfrPKOnrYF_cRVn-sQ@adelphia.com>, Sherm Pendley
<spamtrap@dot-app.org> wrote:
> chris-usenet@roaima.co.uk wrote:
>
> > Nikki R <nikki5+@notspamar.com.au> wrote:
> >
> >>I'm running a Perl script on Linux Red Hat 7.3 (in a company - I can't
> >>upgrade).
> >
> > I don't see the logical equvalence between working for a company and
> > not being able to upgrade.
>
> Corporate politics are rarely based in logic. Don't think "My company
> can't upgrade." Think more along the lines of "I don't have the personal
> authority to force an upgrade through the political morass of our IT
> department in a reasonable amount of time."
I am in the same situation as the OP. My project is totally dependent
upon a commercial product that runs on Red Hat 7.1. We are using an
older version of the vendor's product. While they still support it,
there is no incentive for them to upgrade an older version of their
product to a newer version of Linux. They have moved on to their next
major release, which we cannot use because they have dropped
functionality in the new version that we absolutely depend upon. It
would take us $250,000 to $1,000,000 to replace our current system or
pay the vendor to add the functionality to their latest version.
So, sometimes even the decision not to upgrade makes sense.
Fortunately, I can do most of my work on separate systems that can run
more up-to-date versions of Linux (currently Red Hat 9.0) and Perl
(5.8.5).
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: Sat, 18 Dec 2004 12:00:17 -0600
From: l v <lv@aol.com>
Subject: Re: inserting a line into the body of an eMail before forwarding
Message-Id: <41c46fae$1_1@127.0.0.1>
Lisa wrote:
> Does anyone know how to insert a line into the body of an eMail b4 your
> forward it?
>
> I wan to take the original recipient eMail address and add it as a
> single line at the top of the body of the message, then send the
> message to a different address.
>
> this code all works, I just don't know how to insert the line into the
> body.
>
> use Mail::POP3Client;
> use Mail::MboxParser::Mail;
> my $pop = new Mail::POP3Client( USER => "foo.bar\@foobar.com",
> PASSWORD => "FoOBaR",
> HOST => "foobar.com",
> DEBUG => 0 );
> for my $i (1 .. $pop->Count) {
> my %EmailHeader = get_header_hash($i);
>
>
>
> #$EmailHeader{'Envelope-to'} <-now containes original addressee, and
> this is what I want to insert into the TOP of the body prior to sending
> it (below)
>
Just a thought, if I am reading this right.
$pop->Body($i) = "$EmailHeader{'Envelope-to'}\n\n$pop->Body($i)";
Len
>
>
> my $Msg =
> Mail::MboxParser::Mail->new([$pop->Head($i)],[$pop->Body($i)]);
> my $mail = $Msg->make_convertable;
> $mail->replace_in_header('to', 'yada.yada@yippy-yahoo.com');
> $mail->send('sendmail');
> }
>
> Thanks
>
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 7539
***************************************
