generar csv para cargar usuarios en moodle

gistfile1.pl

#!/usr/bin/perl -w

system("clear");
open(F, "alumnos56.txt"); 
@archivo = <F>; 

$contador = 0;

print "username, password, firstname, lastname, email, lang, phone1, phone2, course1, group1\n";

foreach ( @archivo ) {

    ++$contador;
    @campos=split(/\t/, $_);
    
    $paterno          = $campos[1];
    $materno          = $campos[2];
    $nombre           = $campos[2];    
    $email            = $campos[10];

    $calle            = $campos[11];
    $numero_int       = $campos[12];
    $numero_ext       = $campos[13];
    $colonia          = $campos[14];
    $cp               = $campos[15];
    $delegacion       = $campos[16];
    
    $tel              = $campos[8];
    $telcel           = $campos[9];
    
    $username         = $campos[23];
    $password         = $campos[24];
    
    chomp($password);
    $adress = "calle:$calle, número exterior:$numero_ext, número interior:$numero_int, colonia:$colonia, c.p:$cp, delegación:$delegacion";    
    $firstname = $nombre;
    $lastname = "$paterno $materno";

    print "$username, $password, $firstname, $lastname, $email, es, $tel, $telcel, perfil,grupo1\n";

}

close(F);