open DEFAULT, $configfile;
foreach $line ( <DEFAULT> ) 
        { 
                chomp($line);
                print "-u:$par1 -g:$line -add\n";       
        }
        
close DEFAULT;

-u:username -g:gruppenname -add

-addsername -g:gruppenname

explorer
iexplorer
bank21

perl -le'print unpack "H*", $/'

print unpack( "H*", $line ), $/;

#!/usr/bin/perl -w 
print "\nSet Default User 0.1\n\n";

#Variablendeklaration
$configfile = "default_groups.cfg";
$par1 = ($ARGV[0]);
 
#Parameterverarbeitung
if ($par1 eq ""){$par1 = "0";}
if (($par1 eq "0") || ($par1 eq "-h") || ($par1 eq "/h"))
{
        print 'Format: "vbdefaultgroups <User>"'."\n";
        print 'Userformat Beispiel: "YF12HXX"'."\n";
        exit(0);
}

# Check ob User existiert
$users = `getent group vb_sw_users`;    # Gruppe aus LDAP auslesen
if (index($users,$par1) == -1){
        print "User existiert nicht\n";
        exit (0);}

# User in Gruppen einfügen
open DEFAULT, $configfile;
foreach $line ( <DEFAULT> ) 
        { 
                $group_count++;
                chomp($line);
                print "-u:$par1 -g:$line -add\n";       # ist nur ein Ausgabetest bevor ich das LDAP zuramsche
                
        }
        
close DEFAULT;

NochEinTest
WiederEinTest
HierderDritte

Set Default User 0.1

 -add12hck -g:NochEinTest
 -add12hck -g:WiederEinTest
 -add12hck -g:HierderDritte

Anzahl Default-Gruppen: 3