On Sun, Jul 23, 2000 at 11:04:00PM +0200, Borut Rozman wrote:
> po nesreči sem izbrisal aliases, imam pa še celovit aliases.db, ali je kaka
> možnost reverse iz .db fajla dobit nazaj source.
OK, sedaj me je zadeva toliko zbodla, da sem napisal alias_retriever.pl:
#!/usr/bin/perl -w
use DB_File;
tie %aliases, 'DB_File', "/etc/aliases.db", O_RDONLY
or die "Cannot open /etc/aliases.db: $!\n";
foreach $key (keys %aliases) {
$value=$aliases{$key};
chop $key; #Odrezimo \0, ki se nekako znajde v vsaki vrednosti
chop $value; #takisto
print "$key: $value\n";
}
Tukaj je treba samo se pocistit nekaj junka, ki ga zraven namece $NEKDO.
Pri meni je zraven recimo
@: @
YP_LAST_MODIFIED: 096393124
YP_MASTER_NAME: xxx
lp,
--
Borut
[EMAIL PROTECTED]
-----------------
Laziness: Resting before you get tired.
