[Perl] Como hacer justificaciones a impresion en archivo

[Ricardo Cumberbatch L. (PANNet - URC)]

Esto es la subrutina q yo cree, alli esta todo, q puedo hacer para q me
funcione el 'format'. Ademas no entendi tus ejemplos disculpa

sub Creator {

=09$login =3D $name . $suname . $Facultad{ $facult } . sprintf
("%02d",$cont);
=09$passwd =3D Soppasswd();
=09open (PASSWD, ">$datainfo/password");
=09print PASSWD "$passwd";
=09close (PASSWD);
=09format PRINTER =3D
=09@<<<<<<<<< @<<<<<<<<<<<<<< @<<<<<<<<<<< @<<<<<<<<<<< @<<<<<<<<< @<<<<<<<=
<<
=09$linea1[0],$linea1[1],     $linea1[2],  $linea1[3],  $login,    $passwd
=09.
=09#write (PRINTER);
=09system("useradd -c '$linea1[0] $linea1[1]' -d /dev/null $login");
=09system("passwd --stdin $login < $datainfo/password");
=09open (PRINTER, ">>$datainfo/Students_creados");
=09#open (IMPRIMIR, ">>$datainfo/Students_creados");
=09select (PRINTER); write;
=09#print IMPRIMIR "$linea1[0] $linea1[1]=09=09$linea1[2]
$fac=09=09$login=09=09$passwd\n";
=09#print ("Tu $linea1[0] $linea1[1] tu login es $login, tu password
es $passwd, eres el usuario $cont de cedula $linea[2]\n");
=09print "\n";
}# FIN de la subrutina Creator

Gracias por la ayudas y dispensen el abuso


> On Fri, 20 Dec 2002, Ricardo Cumberbatch L. (PANNet - URC) wrote:
>=20
> > format PRINTER =3D
> > @<<<<<<<<< @<<<<<<<<<<<<<< @<<<<<<<<<<< @<<<<<<<<<<< @<<<<<<<<< @<<<<<<=
<<<
> > $linea1[0],$linea1[1],     $linea1[2],  $linea1[3],  $login,    $passwd
> > .
>=20
> > =09#write (PRINTER);
>=20
>  Antes de esto, supongo, asigna el filehandle "PRINTER"
> con un open. =BFVerdad?
>=20
> > =09#system("useradd -c '$linea1[0] $linea1[1]' -d /dev/null $login");
> > =09#system("passwd --stdin $login < $datainfo/password");
> > =09open (IMPRIMIR, ">>$datainfo/Students_creados");
> > =09write (PRINTER);
>=20
>  Aqu=ED imprimes nuevamente al mismo filehandle, =BFo estas
> cerrando y abriendo? Si este fuera el caso tal vez sea m=E1s
> r=E1pido usar "select" y STDUOT pero con la penalizaci=F3n que
> tendrias siempre conectados los filehandles.
>=20
> > Format not terminated at generaruser.pl line 222, at end of line
> > Missing right curly or square bracket at generaruser.pl line 222, at en=
d
> > of line
> > syntax error at generaruser.pl line 222, at EOF
> > Execution of generaruser.pl aborted due to compilation errors.
>=20
>  Ve:
>=20
> =09$ perl -e 'format =3D
> =09@<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
> =09$L[0],$L[4]
> =09.
> =09open F, "/etc/passwd"; while (<F>){@L=3Dsplit ":"; write}'
>=20
>=20
> =09$ perl -e 'format SALE =3D
> =09@<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
> =09$L[0],$L[4]
> =09.
> =09open F, "/etc/passwd"; open SALE, ">/tmp/salida"; while (<F>){@L=3Dspl=
it ":"; write SALE}'
> =09$ cat /tmp/salida
>=20
>=20
> =09perl -e 'format =3D
> =09@>>>>>>>>>>>> @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
> =09$L[0],$L[4]
> =09.
> =09format SALE =3D
> =09@<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
> =09$L[0],$L[4]
> =09.
> =09open F, "/etc/passwd";open SALE, ">/tmp/salida";
> =09while (<F>) {
> =09  @L=3Dsplit ":";
> =09  $of =3D select (SALE); write;
> =09  select ($of); write;
> =09}'
> =09$ cat /tmp/salida
>=20
>  Espero que estos ejemplo te aclaren el panorama.
>=20
>  Saludos,
>  To=F1o
> ---
> FORTUNE REMEMBERS THE GREAT MOTHERS: #5
>=20
> =09"And, and, and, and, but, but, but, but!"
> =09=09-- Mrs. Janice Markowsky, April 8, 1965
>=20
> _______________________________________________
> Perl mailing list
> Perl@tlali.iztacala.unam.mx
> http://tlali.iztacala.unam.mx/mailman/listinfo/perl
>=20