[19456] in Perl-Users-Digest
Perl-Users Digest, Issue: 1651 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 29 18:10:31 2001
Date: Wed, 29 Aug 2001 15:10:13 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <999123012-v10-i1651@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 29 Aug 2001 Volume: 10 Number: 1651
Today's topics:
Re: regexp for removing HTML tags <dogansmoobs.NOSPAM@ctel.net>
Re: regexp for removing HTML tags (Abigail)
Re: regexp for removing HTML tags (Abigail)
Re: Regular Expression problem ??? <rob_13@excite.com>
Re: system call <dbohl@sgi.com>
Re: system call (Tad McClellan)
Re: system call <ren@tivoli.com>
Re: system call <Doug.King@abh.siemens.com>
Re: system call <Doug.King@abh.siemens.com>
Re: Using Perl to explore an MSSQL database <comdog@panix.com>
Re: Using Perl to explore an MSSQL database <gnarinn@hotmail.com>
Valid IP address format <tambaa@no.spam.yahoo.com>
Re: Valid IP address format <comdog@panix.com>
Re: Valid IP address format <godzilla@stomp.stomp.tokyo>
Re: Valid IP address format <tambaa@no.spam.yahoo.com>
Re: Valid IP address format <tambaa@no.spam.yahoo.com>
Re: Valid IP address format (John J. Trammell)
Re: Valid IP address format (E.Chang)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 29 Aug 2001 15:25:28 -0400
From: Mik Mifflin <dogansmoobs.NOSPAM@ctel.net>
Subject: Re: regexp for removing HTML tags
Message-Id: <toqgbvbfm448f0@corp.supernews.com>
Malcolm Dew-Jones wrote:
> Mik Mifflin (dogansmoobs.NOSPAM@ctel.net) wrote:
> : I've been trying to come up with a regexp to remove all HTML tags. I
> : need this becuase I'm writing a GAIM plugin, and some people's GAIM
> : messages are sent in HTML, and I just need the text........
>
> : --
> : - Mik Mifflin
>
>
> Try this (untested)
>
> $entire_html_file =~ s/<[^>]*>//g;
>
> It [maybe] removes everything starting with a < and upto the next >. (I
> can't test it right now.)
>
> (of course all formatting is lost.)
>
> You can keep some of the most basic formatting with
>
> $entire_html_file =~ s/\n/ /g; # unwrap lines
> $entire_html_file =~ s/<br>/\n/gi; # break
> $entire_html_file =~ s/<p>/\n\n/gi; # paragraphs
> $entire_html_file =~ s/<[^>]*>//g; # zap all other tags
>
> (Text::Wrap can rewrap the text)
>
> Tables one level deep might look ok with the following added before the
> "zap all" step...
>
> $entire_html_file =~ s/<[/]?table[^>]>/\n/gi;
> $entire_html_file =~ s/<[/]?t[rh][^>]>/\n/gi;
> $entire_html_file =~ s/<td[^>]>/\t/gi;
>
>
> Lists are left as an excersize...
>
> the above is *KLUDGEY*, but you get what you don't pay 4.
>
WOW, thanks alot. I tried for a long time to get this. It works great,
although I don't need ANY formatting (it's just simple text messaging),
I'll keep those others around until I need them someday! Thanks again!
--
- Mik Mifflin
------------------------------
Date: 29 Aug 2001 21:37:05 GMT
From: abigail@foad.org (Abigail)
Subject: Re: regexp for removing HTML tags
Message-Id: <slrn9oqo43.th6.abigail@alexandra.xs4all.nl>
Mik Mifflin (dogansmoobs.NOSPAM@ctel.net) wrote on MMCMXX September
MCMXCIII in <URL:news:top1j9auk1g8ee@corp.supernews.com>:
:} > "Mik Mifflin" <dogansmoobs.NOSPAM@ctel.net> wrote in message
:} > news:toot0p1rls9ka0@corp.supernews.com...
:} >> I've been trying to come up with a regexp to remove all HTML tags. I
:} >> need this becuase I'm writing a GAIM plugin, and some people's GAIM
:} >> messages
:} > are
:} >> sent in HTML, and I just need the text........
:} >
:} > As mentioned a gazillion times in this NG: if you want to parse HTML use
:} > an HTML parser, e.g. HTML::Parse.
:} > Please see the FAQ about why it's a bad idea to try using REs for parsing
:} > HTML.
:} >
:} > jue
:} >
:} >
:} >
:} I know that, but I don't want to use a module.
That's just plain stupid. You want to do something. People have already
done if for you, and made a module doing exactly what you need available,
but that isn't good enough because for some reason you "don't want to use
a module". Even if you don't want to use a module, you could always copy
the code from the module into your monolithic program.
:} I just want to strip away
:} the tags. I've tried things like s/<.*>//g, but they dont' work. I need a
:} regular expression to drop everything in between < and >.
s/<.*>//gs will drop everything between < and >. That, however, has nothing
to do with removing HTML tags.
You got to parse the HTML text to be able to remove the tags.
Abigail
--
:$:=~s:$":Just$&another$&:;$:=~s:
:Perl$"Hacker$&:;chop$:;print$:#:
------------------------------
Date: 29 Aug 2001 21:43:33 GMT
From: abigail@foad.org (Abigail)
Subject: Re: regexp for removing HTML tags
Message-Id: <slrn9oqog8.th6.abigail@alexandra.xs4all.nl>
Mik Mifflin (dogansmoobs.NOSPAM@ctel.net) wrote on MMCMXX September
MCMXCIII in <URL:news:toqgbvbfm448f0@corp.supernews.com>:
`' Malcolm Dew-Jones wrote:
`'
`' > Mik Mifflin (dogansmoobs.NOSPAM@ctel.net) wrote:
`' > : I've been trying to come up with a regexp to remove all HTML tags. I
`' > : need this becuase I'm writing a GAIM plugin, and some people's GAIM
`' > : messages are sent in HTML, and I just need the text........
`' >
`' > : --
`' > : - Mik Mifflin
`' >
`' >
`' > Try this (untested)
`' >
`' > $entire_html_file =~ s/<[^>]*>//g;
`' >
`' >
`' WOW, thanks alot. I tried for a long time to get this. It works great,
No, it doesn't. It will do the wrong thing on things like:
<img src = "a_gt_b.gif" alt "a > b">
<code>print "Hello" if $x < $y || $z > 100;</code>
<!-- >>>> -->
<![INCLUDE CDATA [ <P> is a paragraph tag. ]]>
But you would have known had you bothered to read the FAQ.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
__END__
A pair of old men // near Bill Clinton's office. Ryonen // departing.
------------------------------
Date: Wed, 29 Aug 2001 21:28:23 GMT
From: "Rob - Rock13.com" <rob_13@excite.com>
Subject: Re: Regular Expression problem ???
Message-Id: <Xns910CB1BB19990rock13com@64.8.1.227>
Eric Chow <news:9m5iss$hj09@ctmsun0.macau.ctm.net>:
> Would you please to teach me how to define an expression if I
> want to get the following result ?
>
> Source =
> "<ALWAYS_BE_HERE><ANY_OF_OTHERS><ANOTHER_ALWAYS_BE_HERE>#DATA_TH
> AT_I_WANT#<E ND_DELIMETER>"
>
>
> If I want to get the contents of "#DATA_THAT_I_WANT#" from the
> above source, how to define an expression ?
>
> where "<ALWAYS_BE_HERE>", "<ANOTHER_ALWAYS_BE_HERE>" and
> "<END_DELIMETER>" are fixed contents, but the "<ANY_OF_OTHERS>"
> are variant contents.
Initial and basic thought:
m/<ANOTHER_ALWAYS_BE_HERE>(.+)<END_DELIMETER>/;
$your_data = $1;
Might work but it depends on just what is actually in the 'data
that I want.' Also depends if your expression spans more than one
line. The above is most likely not the most efficient method.
--
Rob - http://rock13.com/
Web Stuff: http://rock13.com/webhelp/
------------------------------
Date: Wed, 29 Aug 2001 14:40:37 -0500
From: Dale Bohl <dbohl@sgi.com>
Subject: Re: system call
Message-Id: <3B8D4535.10E25184@sgi.com>
Doug King wrote:
>
> Don't do the | awk '{print $5}' in your rsh command, and just parse the
> output of the ls command in perl.
> It will also be more portable/robust that way -- you don't rely on awk
> being present for your script to work.
>
> Also, you can't get the output of the command if you use system -- try
> using either backticks or open.
>
> Dale Bohl wrote:
>
> > I'm developing a perl program that does a rsh to a list
> > of Unix clients and returns the size of /etc/passwd.
> >
> > How do I get the following to work with a system call
> > from Perl?
> >
> > $command = "ls -la /etc/passwd | awk '{print $5}'";
> >
> > After this I do a system ("rsh $host $command");
> >
> > I can't figure out how to get the | awk '{print $5}'
> > part working.
> >
> > --
> >
> > Thanks,
> > Dale
> >
> > Dale Bohl
> > SGI Information Services
> > dbohl@sgi.com
> > (715)-726-8406
> > http://wwwcf.americas.sgi.com/~dbohl/
I already understand all that but I want to use awk
for other reasons.
--
Thanks,
Dale
Dale Bohl
SGI Information Services
dbohl@sgi.com
(715)-726-8406
http://wwwcf.americas.sgi.com/~dbohl/
------------------------------
Date: Wed, 29 Aug 2001 15:41:12 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: system call
Message-Id: <slrn9oqhao.4lj.tadmc@tadmc26.august.net>
Dale Bohl <dbohl@sgi.com> wrote:
>Doug King wrote:
>>
>> Don't do the | awk '{print $5}' in your rsh command, and just parse the
>> output of the ls command in perl.
Don't do the "ls -l" in your rsh command either:
$size = -s '/etc/passwd';
>> It will also be more portable/robust that way -- you don't rely on awk
>> being present for your script to work.
It will also be more portable/robust that way -- you don't rely on ls
being present for your script to work.
>> Also, you can't get the output of the command if you use system -- try
>> using either backticks or open.
He must have already known that, since the description for system()
says how to capture output. Surely he wouldn't be using software
that he hasn't read the docs for.
>> Dale Bohl wrote:
>> > How do I get the following to work with a system call
>> > from Perl?
>> >
>> > $command = "ls -la /etc/passwd | awk '{print $5}'";
>I already understand all that but I want to use awk
>for other reasons.
If you have perl, there are no other reasons.
Anything you can do in awk you can do in Perl, as it is a
superset of awk. May well be faster than awk too.
I cannot surmise a good reason for using awk when you already
have perl available.
Why do you insist on awk?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 29 Aug 2001 15:21:36 -0500
From: Ren Maddox <ren@tivoli.com>
Subject: Re: system call
Message-Id: <m3k7zmwran.fsf@dhcp9-161.support.tivoli.com>
On Wed, 29 Aug 2001, dbohl@sgi.com wrote:
> I'm developing a perl program that does a rsh to a list
> of Unix clients and returns the size of /etc/passwd.
>
> How do I get the following to work with a system call
> from Perl?
>
> $command = "ls -la /etc/passwd | awk '{print $5}'";
>
> After this I do a system ("rsh $host $command");
>
> I can't figure out how to get the | awk '{print $5}'
> part working.
The $5 is probably causing you pain. That, combined with the single
quotes. Try:
$command = q(ls -la /etc/passwd | awk '{print $5}');
system "rsh $host $command";
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Wed, 29 Aug 2001 17:24:55 -0400
From: Doug King <Doug.King@abh.siemens.com>
Subject: Re: system call
Message-Id: <3B8D5DA7.2B088A90@abh.siemens.com>
Dale Bohl wrote:
> Doug King wrote:
> >
> > Don't do the | awk '{print $5}' in your rsh command, and just parse the
> > output of the ls command in perl.
> > It will also be more portable/robust that way -- you don't rely on awk
> > being present for your script to work.
> >
> > Also, you can't get the output of the command if you use system -- try
> > using either backticks or open.
> >
> > Dale Bohl wrote:
> >
> > > I'm developing a perl program that does a rsh to a list
> > > of Unix clients and returns the size of /etc/passwd.
> > >
> > > How do I get the following to work with a system call
> > > from Perl?
> > >
> > > $command = "ls -la /etc/passwd | awk '{print $5}'";
> > >
> > > After this I do a system ("rsh $host $command");
> > >
> > > I can't figure out how to get the | awk '{print $5}'
> > > part working.
> > >
> > > --
> > >
> > > Thanks,
> > > Dale
> > >
> > > Dale Bohl
> > > SGI Information Services
> > > dbohl@sgi.com
> > > (715)-726-8406
> > > http://wwwcf.americas.sgi.com/~dbohl/
>
> I already understand all that but I want to use awk
> for other reasons.
>
> --
>
> Thanks,
> Dale
>
> Dale Bohl
> SGI Information Services
> dbohl@sgi.com
> (715)-726-8406
> http://wwwcf.americas.sgi.com/~dbohl/
One thing that is definitely causing problems:
The $5 is interpolated when you assign to $command (it's in double quotes,
and it's a special variable for pattern matching).
#!perl -w
use strict;
my $command;
$command = "ls -la /etc/passwd | awk '{print $5}'";
print $command, "\n";
$command = "ls -la /etc/passwd | awk '{print \$5}'";
print $command, "\n";
produces:
Use of uninitialized value at test_perl.pl line 6.
ls -la /etc/passwd | awk '{print }'
ls -la /etc/passwd | awk '{print $5}'
A recommendation for the future -- use perl -w, and "use strict". They
produce a lot of useful warnings that will usually alert you to this kind of
mistake.
Some other observations / things to check:
Is awk in the path of the shell you are running your perl script from?
Also, do you mean remsh? rsh is remote shell on BSD, but it is the
restricted shell on SysV.
You may already know this, but the awk command will be run on the machine you
invoke the perl script from. The shell on your machine will parse your
system call as a remsh command piped into an awk command. i.e., it groups
like this:
(remsh $host ls -la /etc/passwd) | awk '{print $5}'
You need to quote the | to make awk run on the remote UNIX client. You may
also have to supply the path to the UNIX executable because remsh uses a very
small path on the remote machine by default.
------------------------------
Date: Wed, 29 Aug 2001 17:47:22 -0400
From: Doug King <Doug.King@abh.siemens.com>
Subject: Re: system call
Message-Id: <3B8D62EA.7DF738BB@abh.siemens.com>
Tad McClellan wrote:
> Dale Bohl <dbohl@sgi.com> wrote:
> >Doug King wrote:
> >>
> >> Don't do the | awk '{print $5}' in your rsh command, and just parse the
> >> output of the ls command in perl.
>
> Don't do the "ls -l" in your rsh command either:
>
> $size = -s '/etc/passwd';
But, that only gives you the size of the /etc/passwd file on the machine the
perl script is running on. He needs the size of the file on the remote
machines. Is there a perl-only way to do this? That doesn't rely on perl
being on the remote machine? (I know, it's a silly question -- why would
anyone not install perl on every machine? :-) )
<other stuff cut>
------------------------------
Date: Wed, 29 Aug 2001 15:37:04 -0400
From: brian d foy <comdog@panix.com>
Subject: Re: Using Perl to explore an MSSQL database
Message-Id: <comdog-F7E113.15370429082001@news.panix.com>
In article <PO2j7.24428$6x5.5200500@afrodite.telenet-ops.be>, "Logix"
<logix001@nospam.hotmail.com> wrote:
> Hello!
>
> I want to explore an MSSQL database using perl. I can connect to the
> database and execute a query but I've got a problem writing the results out.
> I would like to display the names of the columns of the table but I can't
> find to correct way to do this. Is there anyone who can help me?
the DBI module with the appropriate ODBC drivers makes this pretty
easy. :)
--
brian d foy <comdog@panix.com> - Perl services for hire
CGI Meta FAQ - http://www.perl.org/CGI_MetaFAQ.html
Troubleshooting CGI scripts - http://www.perl.org/troubleshooting_CGI.html
------------------------------
Date: Wed, 29 Aug 2001 20:31:24 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Using Perl to explore an MSSQL database
Message-Id: <999117084.512912539765239.gnarinn@hotmail.com>
In article <PO2j7.24428$6x5.5200500@afrodite.telenet-ops.be>,
Logix <logix001@nospam.hotmail.com> wrote:
>Hello!
>
>I want to explore an MSSQL database using perl. I can connect to the
>database and execute a query but I've got a problem writing the results out.
>I would like to display the names of the columns of the table but I can't
>find to correct way to do this. Is there anyone who can help me?
>
(snip)
>
>#This is the part of the script that doesn't do the job:
>
> print "<TABLE
>BORDER=1><TR>";
> foreach $kol (keys $x) {
>
$x has not been defined here. try this instead:
foreach $kol (keys %{$x[0]}) {
>print"<TD>$kol</TD>\n";
> }
gnari
------------------------------
Date: Wed, 29 Aug 2001 14:11:38 -0500
From: "T.H." <tambaa@no.spam.yahoo.com>
Subject: Valid IP address format
Message-Id: <9mjhdq$gri$1@tilde.csc.ti.com>
Anyone know how to parse an IP address and determine whether it's a valid
format or not?
TIA
--
.
------------------------------
Date: Wed, 29 Aug 2001 16:13:04 -0400
From: brian d foy <comdog@panix.com>
Subject: Re: Valid IP address format
Message-Id: <comdog-B8256B.16130429082001@news.panix.com>
In article <9mjhdq$gri$1@tilde.csc.ti.com>, "T.H."
<tambaa@no.spam.yahoo.com> wrote:
> Anyone know how to parse an IP address and determine whether it's a valid
> format or not?
it depends on which format you want :)
IP addresses are simply 32 bit integers. what are you trying to do?
--
brian d foy <comdog@panix.com> - Perl services for hire
CGI Meta FAQ - http://www.perl.org/CGI_MetaFAQ.html
Troubleshooting CGI scripts - http://www.perl.org/troubleshooting_CGI.html
------------------------------
Date: Wed, 29 Aug 2001 13:20:31 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Valid IP address format
Message-Id: <3B8D4E8F.4D1D607E@stomp.stomp.tokyo>
T.H. wrote:
> Anyone know how to parse an IP address and determine whether it's a valid
> format or not?
http://groups.google.com/groups
You will discover three-million-two-hundred-sixty-thousand plus
entries for parsing IP addresses.
Godzilla!
--
12:48:38 08/28/2001 - RESTRICTED FILE REDIRECT:
- DNS: - IPA: 207.229.191.253
- System:
- Redirect URL: /default.ida
------------------------------
Date: Wed, 29 Aug 2001 15:28:00 -0500
From: "T.H." <tambaa@no.spam.yahoo.com>
Subject: Re: Valid IP address format
Message-Id: <9mjit2$k45$1@tilde.csc.ti.com>
For example, validate that the IP address 192.168.1.1 is valid as opposed to
say 256.168.1.1
Thanks,
"brian d foy" <comdog@panix.com> wrote in message
news:comdog-B8256B.16130429082001@news.panix.com...
> In article <9mjhdq$gri$1@tilde.csc.ti.com>, "T.H."
> <tambaa@no.spam.yahoo.com> wrote:
>
> > Anyone know how to parse an IP address and determine whether it's a
valid
> > format or not?
>
> it depends on which format you want :)
>
> IP addresses are simply 32 bit integers. what are you trying to do?
>
> --
> brian d foy <comdog@panix.com> - Perl services for hire
> CGI Meta FAQ - http://www.perl.org/CGI_MetaFAQ.html
> Troubleshooting CGI scripts - http://www.perl.org/troubleshooting_CGI.html
>
------------------------------
Date: Wed, 29 Aug 2001 15:30:14 -0500
From: "T.H." <tambaa@no.spam.yahoo.com>
Subject: Re: Valid IP address format
Message-Id: <9mjjeo$l2b$1@tilde.csc.ti.com>
The URL seems to be a blank page.
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message
news:3B8D4E8F.4D1D607E@stomp.stomp.tokyo...
> T.H. wrote:
>
> > Anyone know how to parse an IP address and determine whether it's a
valid
> > format or not?
>
>
> http://groups.google.com/groups
>
>
> You will discover three-million-two-hundred-sixty-thousand plus
> entries for parsing IP addresses.
>
>
> Godzilla!
> --
> 12:48:38 08/28/2001 - RESTRICTED FILE REDIRECT:
> - DNS: - IPA: 207.229.191.253
> - System:
> - Redirect URL: /default.ida
------------------------------
Date: 29 Aug 2001 21:01:18 GMT
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: Valid IP address format
Message-Id: <slrn9or56f.1ng.trammell@haqq.hypersloth.net>
On Wed, 29 Aug 2001 15:28:00 -0500, T.H. <tambaa@no.spam.yahoo.com> wrote:
> For example, validate that the IP address 192.168.1.1 is valid as opposed to
> say 256.168.1.1
[ ~ ] perl -MNet::IP -e '$ip = Net::IP->new("192.168.1.1") \
or die Net::IP::Error()'
[ ~ ] perl -MNet::IP -e '$ip = Net::IP->new("992.168.1.1") \
or die Net::IP::Error()'
Invalid quad in IP address 992.168.1.1 - 992 at -e line 1.
[ ~ ]
--
Only a very small fraction of our DNA does anything; the rest is all
comments and ifdefs.
------------------------------
Date: Wed, 29 Aug 2001 21:46:09 GMT
From: echang@netstorm.net (E.Chang)
Subject: Re: Valid IP address format
Message-Id: <Xns910CB585A6705echangnetstormnet@207.106.93.86>
"T.H." <tambaa@no.spam.yahoo.com> wrote in
<9mjjeo$l2b$1@tilde.csc.ti.com>:
Please don't top-post (put your reply above the message to which you
are responding.)
Reply moved to proper location.
>"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message
>news:3B8D4E8F.4D1D607E@stomp.stomp.tokyo...
>> T.H. wrote:
>>
>>> Anyone know how to parse an IP address and determine whether it's a
>>> valid format or not?
>>
>> http://groups.google.com/groups
>>
>> You will discover three-million-two-hundred-sixty-thousand plus
>> entries for parsing IP addresses.
>
>The URL seems to be a blank page.
>
If the page you see is really blank, there is something seriously wrong
with your browser. There's a search form at the top of that "blank"
page. If you search all groups for "validate IP address Perl" (using a
set of keywords likely to narrow the search) you are returned a listing
of 939 threads pertaining to the subject.
groups.google.com is an archive of Usenet groups that can be both
browsed and searched. Look there first for answers to your questions.
--
EBC
------------------------------
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 1651
***************************************
