On Sun, Nov 04, 2007 at 10:28:34AM +0100, Gádori Zsolt wrote:
> Szia!
>
> Köszi az ötletet, majdnem bevált, de valami még nem stimmel.
>
> A file válasza:
> addressbook.db: Berkeley DB (Hash, version 7, native byte-order)
>
> Megpróbáltam az ötletet, az eredmény:
> unknown packing format for Bayes db, please re-learn: 66 at
> db-to-text.pl line 196.
Eh, nem kell ennyire bonyolitani. Pl.:
#! /usr/bin/perl
use DB_File;
tie %a, 'DB_File', $ARGV[0], O_RDONLY, 0644, $DB_HASH;
foreach $key (keys %a) {
$vcard = $a{$key};
$vcard =~ s/\c@//;
print "$vcard\n==================\n";
}
Innentol azt csinalsz az adattal, amit akarsz...
Gabor
--
---------------------------------------------------------
MTA SZTAKI Computer and Automation Research Institute
Hungarian Academy of Sciences
---------------------------------------------------------
_________________________________________________
linux lista - [email protected]
http://mlf2.linux.rulez.org/mailman/listinfo/linux
