VPF::Проверка существовния вводимого пользователя.

RedOk

Дата 19.3.2008, 04:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 30.11.2007
Где: Общага

Репутация: нет
Всего: нет

Необхоимо написать скрипт добавления нового пользователя в систему(FreeBSD).
Как проверить нет ли уже в системе такого пользователя???

BurnerCode

Дата 19.3.2008, 09:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 28.2.2008
Где: Беларусь

Репутация: нет
Всего: нет

а разве тебе pw даст добавить уже существующего пользователя или sysinstall ?
Или я может не о том?

Код


#!/usr/bin/perl
use strict;
use warnings;
use FileHandle;

# проверить существования пользователя

unless($ARGV[0])
{
    print "usage: $0 <username>\n";
    exit
}

my $st  = 0;
my $fh  = new FileHandle;

if($fh->open('< /etc/passwd'))
{
    while(<$fh>)
    {
        if(m/^(\w+)\:.*/) { $st = 1 if $ARGV[0] eq $1 }
    }
} else {
    print "Can't open file\n";
    exit
}

$st ? print "user \"$ARGV[0]\" exists\n" : print "user \"$ARGV[0]\" not exists"

Это сообщение отредактировал(а) BurnerCode - 19.3.2008, 09:43

sir_nuf_nuf

Дата 19.3.2008, 10:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 14
Всего: 31

Товарищи, пишите на perl..

Код


#!/usr/bin/perl

sub is_user
{
    open my $passwd, '</etc/passwd';
    return scalar grep /^$_[0]:/o, <$passwd>;
}

print is_user $ARGV[0];

а если вам нравится куча if / else - тогда не пишите на perl. выберите java =)

Это сообщение отредактировал(а) sir_nuf_nuf - 19.3.2008, 10:54

--------------------

BurnerCode

Дата 19.3.2008, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 28.2.2008
Где: Беларусь

Репутация: нет
Всего: нет

sir_nuf_nuf симпатично =) но с прагмой warnings ерроры.
А если файла не будет? ну или пирмишены не позволят? а челу хоть как то нада сообщеть об этом?! =)
Но серавно тебе +1 - прикольное решение =)

Это сообщение отредактировал(а) BurnerCode - 19.3.2008, 11:01

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »