On Sun, 06 Jun 2010 20:24:04 +0200, Hans-Dietrich Kirmse
<hd.kirmse@gmx.de> wrote:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#!/usr/bin/perl
use warnings;
use strict;
use Debconf::Client::ConfModule ':all';
version('2.0');
my ($status, $value) = get('delixs/host');
print $value, "\n";
open DATEI, '>', 'temp.txt'
or die "konnte Datei nicht oeffnen.$!\n";
print DATEI $value, "\n";
close DATEI;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Es wird auf der Konsole immernoch *nichts* ausgegeben.
Aber der Host wird in die Datei 'temp.txt' geschrieben.
Bei Shellscripts ist es so, dass Du, wenn Du das confmodule gesourced
hast, auf Deinem stdin/stdout nicht mehr mit der Konsole sprichst,
sondern mit debconf. Es würde mich wundern, wenn das bei perl anders
wäre.