taskb-v2

#! /usr/bin/perl

use warnings; #importerar paketen warnings och strict
use strict;
	my $newusername;
my $new_user = 'newusers.csv'; #skapar två variabler och binder dom till filer
my $old_user = 'oldusers.txt';

open (NU, "<", $new_user) or die "Kunde inte läsa $new_user: $!"; #öppnar filen newusers.csv

open (OU, "<", $old_user) or die "Kunde inte läsa $old_user: $!";

while (<NU>) #whilesats som körs vid öppningen
{
	my @values = split (',' , $_);#splittar värdena i filen vid ,-tecknet och sparar ner dom i en array
	my $loginfirstname = lc(substr $values[1], 0,2); #skapar variabeln loginfirstname med hjälp av position 1 i arrayen och tar dom två första bokstäverna
	my $loginlastname = lc(substr $values[0], 0,3); #skapar variabeln loginlastname med hjälp av postion 0 i arrayen och tar dom tre första bokstäverna
	my $firstname = $values[1];
	my $lastname = $values[0];
	my @date = localtime(time);
	my $year = $date[5]-100;
	my $letter = "a";
	chomp (my $ssn =$values[2]);
	my $username = "$letter$year$loginfirstname$loginlastname";
	foreach my $val (@values)
	{

	}



	print "----------------------------------------------------------------- \n";
	print "Förnamn: $values[1] \n";
	print "Efternamn: $values[0] \n";
	print "SSN: $ssn \n";
	print "Användarnamn: $username \n";

	chomp (my $reversedSsn = reverse($ssn));

	print "password: $reversedSsn \n";



while (<OU>)
{

	my @old_username = split ('\n',$_);
	#$old_usernames = "$letter$year$loginfirstname$loginlastname";

if ("$old_username[0]"eq"$username"){
	$letter++;
	#my$newusername = "$letter$year$loginfirstname$loginlastname";
	print "-----------------------------------------------------------------\n";
	print "↑↑↑ Duplicate detected, new name changed to: $newusername ↑↑↑ \n";
}
	else{}








			}
		print "useradd -p $reversedSsn -c $firstname $lastname $ssn $username \n";
}
close NU;
close OU;