Forum Debian Users Gang

#!/usr/bin/perl -w

 # pobiera dane z pliku .txt, i tworzy uzytkownikow na podstawie..
 # USER:GROUP:SHELL
   
  $rozmiar = 1;
  @tab_user = (0..$rozmiar);
  @tab_group = (0..$rozmiar);
  @tab_shell = (0..$rozmiar);
  
   $ref = \$rozmiar;
   $i = 0;
  
  
 open(PLIK_1, "<" , "dane.txt");
 
# wczytuje dane z pliku, i ROZDZIELA je do tablic.
 
  while ( <PLIK_1> ) {
 
         $zmienna = $_;
 
                 ($tab_user[$i],$tab_group[$i],$tab_shell[$i]) = split(/:/, $zmienna);
         $i++;
         $$ref++;  }
  
  
# WYPISUJE rozdzielone dane na ekranie, w celu weryfikacji poprawnosci kodu
  
  for($i=0; $i<$rozmiar-1; $i++ ) {
  
      print "user: $tab_user[$i] \t group: $tab_group[$i] \t shell: $tab_shell[$i]"; }


  
# TWORZY uzytkownikow na podstawie zebranych danych z tablic
  
  for($i=0; $i<$rozmiar-1; $i++) {
  
      system("useradd -g $tab_group[$i] -s $tab_shell[$i] $tab_user[$i] "); }
  
 
  
  close PLIK_1;