Volver al Programación / Codificación foro

ffdb problemas para leer

  • dreamer7
  • Student
  • Student
  • No Avatar
  • Registrado: Ene 20, 2003
  • Mensajes: 96
  • Loc: UK
  • Status: Offline

Nota Abril 6th, 2003, 10:08 am

Hey its me havin im agen problemas con mi base de datos de archivos planos que escribe a la misma multa a la forma, pero im tiene problemas con leer el archivo de aquí es la fuente im leer con:
Código: [ Select ]
#!/usr/bin/perl -w

use strict;

open (INPUT, "file.txt") or die "Can't open data file: $!";

while (<INPUT>) {
    chomp;         
    my @fields = split(/\|/, $_);
    print "$fields[1], $fields[0]: $fields[2]\n";
}

close INPUT;
  1. #!/usr/bin/perl -w
  3. use strict;
  5. open (INPUT, "file.txt") or die "Can't open data file: $!";
  7. while (<INPUT>) {
  8.     chomp;         
  9.     my @fields = split(/\|/, $_);
  10.     print "$fields[1], $fields[0]: $fields[2]\n";
  11. }
  13. close INPUT;

así que no funcionó como un archivo independiente con el CTE Shebang así que integrarse en el que controla el formulario para que lo imprime después pulse U presentar todas las palabras en el ffdb están delimitados por la tubería. Ive intentó tomar el comando de imprimir y poner en el campo de los escalares en el código HTML y no mostrar el campo de escalares por lo que no saben qué hacer para resolverlo
D7
  • Anonymous
  • Bot
  • No Avatar
  • Registrado: 25 Feb 2008
  • Mensajes: ?
  • Loc: Ozzuland
  • Status: Online

Nota Abril 6th, 2003, 10:08 am

  • Bigwebmaster
  • Site Admin
  • Site Admin
  • Avatar de Usuario
  • Registrado: Dic 20, 2002
  • Mensajes: 8934
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Nota Abril 6th, 2003, 2:05 pm

¿Estás tratando de conseguir que para imprimir a su página web? o simplemente en una consola en su máquina?

Si usted está queriendo conseguirlo para imprimir a la página web no hay que olvidar que antes de empezar a imprimir cualquier texto a una página web, que la declaración:

print "Content-Type: text / html \ n \ n";

se ha producido. Mientras esa declaración se ha ejecutado en algún lugar antes de imprimir a una página web, esto no sería el problema. Sin embargo, en su script si no ha ejecutado aún esta declaración y que intenta imprimir a una página web, no verá nada. Quiero saber si se soluciona su problema.
Ozzu Hosting - Want your website on a fast server like Ozzu?
  • dreamer7
  • Student
  • Student
  • No Avatar
  • Registrado: Ene 20, 2003
  • Mensajes: 96
  • Loc: UK
  • Status: Offline

Nota Abril 6th, 2003, 2:53 pm

bien .. en el Sistema Integrado de uno que ya posee en esa línea, pero no el exterior que yo cambié a
Código: [ Select ]
#!/usr/bin/perl -w

use strict;

open (INPUT, "db1.dat") or die "Can't open data file: $!";

while (<INPUT>) {
    chomp;         
    my @fields = split(/\|/, $_);
$header = "Content-Type: text/html\n\n";
$html = "$fields[1], $fields[0]: $fields[2]\n";
print "$html$header"
}

close INPUT;
exit;
  1. #!/usr/bin/perl -w
  3. use strict;
  5. open (INPUT, "db1.dat") or die "Can't open data file: $!";
  7. while (<INPUT>) {
  8.     chomp;         
  9.     my @fields = split(/\|/, $_);
  10. $header = "Content-Type: text/html\n\n";
  11. $html = "$fields[1], $fields[0]: $fields[2]\n";
  12. print "$html$header"
  13. }
  15. close INPUT;
  16. exit;

y todavía no funciona con el log de errores diciendo que tiene "el fin prematuro de los encabezados de secuencia de comandos"
  • dreamer7
  • Student
  • Student
  • No Avatar
  • Registrado: Ene 20, 2003
  • Mensajes: 96
  • Loc: UK
  • Status: Offline

Nota Abril 6th, 2003, 2:55 pm

y .. u antes de decir que me ha cambiado el nombre de archivo del archivo de base de datos plana a db1.dat
:D
  • Bigwebmaster
  • Site Admin
  • Site Admin
  • Avatar de Usuario
  • Registrado: Dic 20, 2002
  • Mensajes: 8934
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Nota Abril 6th, 2003, 3:09 pm

dreamer7 escribió:
bien .. en el Sistema Integrado de uno que ya posee en esa línea, pero no el exterior que yo cambié a
Código: [ Select ]
#!/usr/bin/perl -w

use strict;

open (INPUT, "db1.dat") or die "Can't open data file: $!";

while (<INPUT>) {
    chomp;         
    my @fields = split(/\|/, $_);
$header = "Content-Type: text/html\n\n";
$html = "$fields[1], $fields[0]: $fields[2]\n";
print "$html$header"
}

close INPUT;
exit;
  1. #!/usr/bin/perl -w
  3. use strict;
  5. open (INPUT, "db1.dat") or die "Can't open data file: $!";
  7. while (<INPUT>) {
  8.     chomp;         
  9.     my @fields = split(/\|/, $_);
  10. $header = "Content-Type: text/html\n\n";
  11. $html = "$fields[1], $fields[0]: $fields[2]\n";
  12. print "$html$header"
  13. }
  15. close INPUT;
  16. exit;

y todavía no funciona con el log de errores diciendo que tiene "el fin prematuro de los encabezados de secuencia de comandos"


Bueno, eso está mal (la anterior). Usted desea que el encabezado de ir antes de que el HTML, además de que no desea bucle que encabezado una y otra vez. Cambiar a:

Código: [ Select ]
#!/usr/bin/perl -w

use strict;


$header = "Content-Type: text/html\n\n";
print "$header";

open (INPUT, "db1.dat") or die "Can't open data file: $!";
while (<INPUT>) {
    chomp;         
    my @fields = split(/\|/, $_);
$html = "$fields[1], $fields[0]: $fields[2]\n";
print "$html"
}

close INPUT;
exit;
  1. #!/usr/bin/perl -w
  3. use strict;
  6. $header = "Content-Type: text/html\n\n";
  7. print "$header";
  9. open (INPUT, "db1.dat") or die "Can't open data file: $!";
  10. while (<INPUT>) {
  11.     chomp;         
  12.     my @fields = split(/\|/, $_);
  13. $html = "$fields[1], $fields[0]: $fields[2]\n";
  14. print "$html"
  15. }
  17. close INPUT;
  18. exit;
Ozzu Hosting - Want your website on a fast server like Ozzu?

Página 1 de 1

Publicar Información

  • Total de mensajes en este tema: 5 mensajes
  • Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 150 invitados
  • No puede abrir nuevos temas en este Foro
  • No puede responder a temas en este Foro
  • No puede editar sus mensajes en este Foro
  • No puede borrar sus mensajes en este Foro
  • No puede enviar adjuntos en este Foro
 
 

© 2011 Unmelted, LLC. Ozzu® es una marca registrada de Unmelted, LLC