xmlTreeNav: XML config fájlok összehasonlítása

A munkahelyemen szükségessé vált a XMLben írt config fájlok összehasonlítgatása.
Először gondoltam írok egyet, de aztán belebotlottam a xmlTreeNav-ba. Ezen a linken találtam meg
Download xmlTreeNav 0.3.1 - Edit your XML with this utility. - Softpedia
Számomra jónak tűnik. Freeware, ingyenes.
Meg lehet határozni az ID attributumot, ami azért jó mert a sorrend független lehet az össze haszonlítás.
Például az alábbi xml-t
<container>
<node id="A">ZZ</node>
<node id="B">KK
<container>
és ezt az xml-t
<container>
<node id="B">KK</node>
<node id="A">ZZ</node>
<container>
Egyenlőnek tekinti, és ez ami miatt nem lehet használni pl. a WinMerge-t összehasonításra.



A fenti képen látszik hogy piros, zöld és sárga négyzetekkel jelzi az eltéréseket a két XML között

Itt látható hogy meg lehet adni az paraméterként az ID tagokat, iletve a figyelmen kívülhagyható node-okat

Perl és Oracle

Feladat: perl programmal oracle adatbázis matatása.
Első lépés:
Ellenőrzés hogy van perl és van oracle modul
$ perl -e 'use DBI; print $DBI::VERSION,"\n";'
1.50
$ perl -e 'use DBD::Oracle; print $DBD::Oracle::VERSION,"\n";
1.17
Ez sikerült is.

Csináltam egy selectet is
#!/opt/common/5.3/perl/bin/perl
use strict;
use DBI;
my $dbh = DBI->connect( 'dbi:Oracle:DEV_DB',
'ora_user',
'jelszo',
{ RaiseError => 1, AutoCommit => 0 }
) || die "Database connection not made: $DBI::errstr";

$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;
$dbh->{ora_check_sql} = 0;
$dbh->{RowCacheSize} = 16;

my $sth = $dbh->prepare("SELECT ID, FULL_NAME FROM GUI_USERS");
$sth->execute();
my ($id, $name); # Declare columns
$sth->bind_columns(undef, \$id, \$name);
print "USERS:\n\n"; # Fetch rows from DB
while( $sth->fetch() ) {
print "$id:\t $name\n";
}
$sth->finish(); # Close cursor
$dbh->disconnect;
print "OK\n";

Ezt sikerült lefuttatni.
Amit nem értek, hogy mi az a undef paraméter a bind_columns() függényben.
Aztán egy update utasítás is sikerült kiadni

#!/opt/common/5.3/perl/bin/perl
use strict;
use DBI;
my $dbh = DBI->connect( 'dbi:Oracle:DEV_DB',
'ora_user',
'jelszo',
{ RaiseError => 1, AutoCommit => 0 }
) || die "Database connection not made: $DBI::errstr";

$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;
$dbh->{ora_check_sql} = 0;

$dbh->do("BEGIN update GUI_USERS set EMAIL = 'kiss.m".'@'."il.hu' where ID = 'kissm'; END;");

$dbh->commit;
$dbh->disconnect;
print"OK\n";

Ez is sikerült és fontos volt a commit() meghívása mert kikapcsoltam az AutoCommitot

Elvileg ezzel már el lehet indulni.