[Perl] Como hacer justificaciones a impresion en archivo

[Ricardo Cumberbatch L. (PANNet - URC)]

Ok aqui envio el codigo:
=2E
=2E
=2E

format PRINTER =3D
@<<<<<<<<< @<<<<<<<<<<<<<< @<<<<<<<<<<< @<<<<<<<<<<< @<<<<<<<<< @<<<<<<<<<
$linea1[0],$linea1[1],     $linea1[2],  $linea1[3],  $login,    $passwd
=2E
=09#write (PRINTER);
=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);
=09#print IMPRIMIR "$linea1[0] $linea1[1]=09=09$linea1[2] $fac
$login=09=09$passwd\n";


El error este aparece cuando quiero usar el format, pero si comento dicho=
=20
format ya desaparece:

Format not terminated at generaruser.pl line 222, at end of line
Missing right curly or square bracket at generaruser.pl line 222, at end
of line
syntax error at generaruser.pl line 222, at EOF
Execution of generaruser.pl aborted due to compilation errors.



On Thu, 19 Dec 2002, Jose Antonio Galicia wrote:

> On Thu, 19 Dec 2002, Ricardo Cumberbatch L. (PANNet - URC) wrote:
>=20
> > intente usando el comando "format" pero por alguna razon no me funciona=
 me
> > da error.
>=20
>  =BFPuedes mistrar el c=F3digo y error que te manda? As=ED es m=E1s
> f=E1cil ver donde esta el problema ya que lo que se usa en
> estos casos es precisamente es un formato.
>=20
>  Saludos,
>  To=F1o
> ---
> The more you complain, the longer God lets you live.
>=20
>=20