Hash-Slice und die Ausgabe... - #112948 (Allgemeines zu Perl)

MatthiasW

2008-07-31 17:26

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Folgendermaßen solltest du die User aus der Ausgabe bekommen:

Code (perl): (dl )

my @output = `repquota -a`;
{
        my    $status = $? >> 8;
        local $"      = "\n"; # "
        die "'repquota -a' returned bad status: $status\nOutput: @output" if $status;
}

splice( @output, 0, 5 );

my @user = grep { defined $_ } map { /^(\S+)/ ? $1 : undef } @output;

Jetzt musst du nur noch nachschauen ob sich die jeweiligen User auch im %passwd Hash befinden:

Code (perl): (dl )

1
2

# vorrausgesetzt: my $passwd = parse_passwd( '/etc/passwd' );
@user = grep { exists $passwd->{$_} } @user;

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'