Exemplo Iped

[Guest - ale -]

// dae galera... o seguinte:

// to fzd o curso de cgi do IPED dae aki

// não tah funfando um exemplo deles:

teste.pl

-----------------------------------------------

#!/usr/bin/perl

$arquivo = '/home/meu_user/apag.txt'; # nome do arquivo

open(INFO, $arquivo); # abre o arquivo

@linhas = <INFO>; # coloca ele em uma matriz

close(INFO); fecha o arquivo

print @linhas; # exibe a matriz

// retorna o seguinte erro:

perl teste.pl

syntax error at teste.pl line 10, near "arquivo

print"

Execution of teste.pl aborted due to compilation errors.

[Cliford]

Este e o code inteiro? Do exemplo n estou vendo erro.

[Guest Guest]

// é sim... mas retorna esse erro:

yntax error at teste.pl line 10, near "arquivo

print"

Execution of teste.pl aborted due to compilation errors.

// mt estranho...

[GhP]

hmmm

o codigo esta correto

tente print "@linhas";

e troque os ' ' do $arquivo por " "

ok

abraços

[Ale]

// mesmo erro:

syntax error at teste.pl line 10, near "arquivo

print"

Execution of teste.pl aborted due to compilation errors.

// cdgo:

$arquivo = "/home/knoppix/apag.txt"; # nome do arquivo

open(INFO, $arquivo); # abre o arquivo

@linhas = <INFO>; # coloca ele em uma matriz

close(INFO); fecha o arquivo

print "@linhas"; # exibe a matriz

[GhP]

veja

#!/usr/bin/perl

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

$arquivo = "/home/knoppix/apag.txt";

open(INFO, "$arquivo") or die print("não existe o arquivo $arquivo");

@linhas = <INFO>;

close(INFO);

print "@linhas";

abraços

[Ale]

// vlw GhP... deu certo...

// pelo uq entendi tava errado o tipo de arquivo !?

[GhP]

não sei cara

a unica coisa que eu achei que faltava era as aspas no open

open(INFO, $arquivo);

o certo seria

open(INFO, "$arquivo");

abraços