A
alie
Hallo,
ich hab folgendes problem.
ich muss eine shadow file durchsuchen, die zeile bei dem user = user ist herausfiltern, und dessen passwort ersetzen.
zuerst hab ichs mal so gemacht, damit ich überhaupt die line bekomm wo user und passwort drin stehn:
das gibt mir das passwort vom gewuenschten user aus.
jetzt sollte ich aber noch dieses in der file durch ein neues ersetzen.
weiß jemand wie man das machen könnte ?
mfg
ich hab folgendes problem.
ich muss eine shadow file durchsuchen, die zeile bei dem user = user ist herausfiltern, und dessen passwort ersetzen.
zuerst hab ichs mal so gemacht, damit ich überhaupt die line bekomm wo user und passwort drin stehn:
Code:
#!/usr/bin/perl
$file="shadow.test";
open(FILE, "$file");
while(<FILE>) {
chomp;
next unless lenght;
my ($var, $value) = split(":", $_);
$arr{$var} = $value;
}
($pass, $dummy) = split(":",$arr{$user});
print "$pass\n";
das gibt mir das passwort vom gewuenschten user aus.
jetzt sollte ich aber noch dieses in der file durch ein neues ersetzen.
weiß jemand wie man das machen könnte ?
mfg