task B

#! /usr/bin/perl

use warnings; #importerar paketen warnings och strict
use strict;

my $new_user = 'newusers.csv'; #skapar två variabler och binder dom till filer
my $old_user = 'oldusers.txt';

open (NU, "<", $new_user) or die $!; #öppnar filen newusers.csv


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";


	open (OU, "<", $old_user) or die $!;

while (<OU>)
{

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

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

	if ("$old_username[0]"eq"$newusername" ){
		$letter ++;
		print "test";

		}
			else{ }





		print "useradd -p $reversedSsn -c $firstname $lastname $ssn $newusername $old_username[0] \n";
			}

}
close NU;
close OU;