Path: usenet.cise.ufl.edu!huron.eel.ufl.edu!usenet.eel.ufl.edu!uky.edu!atl-news-feed1.bbnplanet.com!washdc3-snh1.gtei.net!cpk-news-hub1.bbnplanet.com!news.gtei.net!news-peer.gip.net!news.gsl.net!gip.net!news.maxwell.syr.edu!newsfeed.corridex.com!nntp2.savvis.net!inetarena.com!not-for-mail
From:
[email protected] (Fabien Tassin)
Newsgroups: comp.lang.perl.announce,comp.lang.perl.modules
Subject: ANNOUNCE: Data::Compare 0.01
Followup-To: comp.lang.perl.modules
Date: 3 May 1999 15:25:47 GMT
Organization: none
Lines: 39
Approved:
[email protected] (comp.lang.perl.announce)
Message-ID: <
[email protected]>
NNTP-Posting-Host: halfdome.holdit.com
X-Disclaimer: The "Approved" header verifies header information for article transmission and does not imply approval of content.
Xref: usenet.cise.ufl.edu comp.lang.perl.announce:293 comp.lang.perl.modules:10885
I've just uploaded a new Perl module, Data::Compare, to PAUSE. It
should be showing up on CPAN shortly, or you can download it directly from
ftp://ftp.oleane.net/private/fta/perl/cpan/
Short introduction extracted from the readme :
NAME
Data::Compare - compare perl data structures
SYNOPSIS
use Data::Compare;
my $h = { 'foo' => [ 'bar', 'baz' ], 'FOO' => [ 'one', 'two' ] };
my @a1 = ('one', 'two');
my @a2 = ('bar', 'baz');
my %v = ( 'FOO', \@a1, 'foo', \@a2 );
# simple procedural interface
print 'structures of $h and \%v are ',
Compare($h, \%v) ? "" : "not ", "identical.\n";
# OO usage
my $c = new Data::Compare($h, \%v);
print 'structures of $h and \%v are ',
$c->Cmp ? "" : "not ", "identical.\n";
# or
my $d = new Data::Compare;
print 'structures of $h and \%v are ',
$d->Cmp($h, \%v) ? "" : "not ", "identical.\n";
DESCRIPTION
Compare two perl data structures recursively. Returns 0 if
the structures differ, else returns 1.
--
Fabien Tassin -+-
[email protected]
