Dotaz: perl/cgi vytisknuti externiho souboru

[majky8]

Dobry Den, zacal jsem si psat svuj web v Perlu, kdyz uz jsem se ho zacal ucit tak jsem si rikal proc ne. Ale narazil jsem na problem, mam napsany web bez problemu ale jakmile chci do bunky vytisknout obsah nejakeho externiho textoveho souboru pomoci

sub nacteni {
    open(TEXT, "text")
        or die "Nelze otevrit soubor!\n";
    while ( $radek = < TEXT > ) { ##mezery pred a za "TEXT" jsou doplneni kvuli abclinuxu kde to bral jako znacku
        "$radek", ##radek 142
    }
    close(TEXT);
}

Tak jedinne, co z toho vyleze je "1". A chybove hlaseni

Useless use of string in void context at /home/httpd/html/web/dev/gbook.pl line 142., referer: http://localhost/web/dev/index.pl

Kde to chybove hlaseni nejak moc nechapu...

Pokud to dam primo bez podprogramu do tela webu, tak se mi dostane chyboveho hlaseni Syntax error near ""Nelze otevrit soubor\\n";"

Uz vazne nevim co mam delat, s timhle zacinam ale rad bych to vyresil...

Odpovědi

[outsider]

co treba...

...
  print "$radek";
...

[majky8]

to uz jsem zkousel a vysledek je, ze to vyhodi jeste pred cely dokument takze vystup vypada takto:

cely text souboru

Content-Type: text/html; charset=utf-8

< !DOCTYPE html
	PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
	 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >
< html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US" >
< head >
< title >Majky site!< /title >
...

[outsider]

No a ten text od

Content-Type: text/html; charset=utf-8
...

ten vypisujete v tom skriptu jak?

[majky8]

to je vec kterou nechapu, content-type vypisujici se jeste pred

< !DOCTYPE html
...

se vypisuje jen kdyz je tam

print "$radek";

jako kdyby patril k tomu souboru

[outsider]

Naprosto funkcni kousek nacteni souboru:

use CGI qw/:standard/;

print header;
print start_html;
print h1("Soubor /etc/resolv.conf:");
open F, "</etc/resolv.conf";
$/='', $obsah = <F>;
close F;
print pre($obsah);
print end_html;

[majky8]

kdyz to pouziju v tehle forme, tak na me vyskoci

malformed header from script. Bad header=< pre>majky8: script.pl

kde majky8 je 1. neprazdny radek v souboru ktery chci nacist. Kdyz pouziju

open F, "< soubor";
$/='', $obsah = < F >;
close F;
pre($obsah);

tak to funguje z casti, spravne to cele nacte az do prazdneho radku, od ktereho dal uz to ignoruje

[kafa]

Předchozí finta se změnou předddeklarované proměmmé $/ není moc dobrá už proto, že předpokládá soubor menší než 64KB.

Což takhle:

use CGI qw/:standard/;

print header;
print start_html;
print h1("Soubor text");
open (TEXT,"text");
while ($radek=< TEXT >) {  # bez mezer okolo TEXT
    $radek=chomp($radek);
    print br($radek);
}
print end_html;

[majky8]

Diky za snahu bohuzel s timhle postupem se do vystupu zase dostane jenom jednicka :(

[kafa]

Zatím mi není jasné, proč čtecí cykl s while nefunguje. Povedlo se mi to ale se čtením do pole:

use CGI qw/:standard/;

my @pole;
print header(-charset=>'utf8');
print start html;
print h1("Soubor text");
open (TEXT,"text");
@pole=< TEXT >  # bez mezer kolem TEXT
print pre(@pole);
print end_html;

[majky8]

jo, tohle jsem zkousel ale zapomel jsem na pre kde to potom nedodrzovalo prazdne radky, takhle to funguje, diky :) jen jedna vec, i tohle, po SPRAVNEM vypsani celeho souboru jeste nakonec vypise jednicku :) Kazdopadne diky, da se to povazovat za vyresene?

[kafa]

Předchozí případ s cyklem while funguje také, pokud se vynechá chomp. Mě to jedničku na konci souboru nepíše v žádném s obou případů, ale pracuji v mod_fcgid, nikoliv v mod_perl. Tam se mi také objevovali jedničky, např. když jsem měl sub hlavicka, ve které byl print header(...) a pak jsem omylem zavolal print hlavicka. Předpokládám, že jde o návratovou hodnotu funkce.

[majky8]

kdyz uz to mam cele napsane, o mod_fcgi v podstate nevim nic ale predpokladam zeby se to muselo prepsat, pri

sub nacteni {
    open(SOUBOR, "soubor")
	or die "Nelze otevrit!";
    @text=< SOUBOR >;
    $cgi->pre(@text),
    close(SOUBOR);
}

te jednicky nejak zbavit? uz me nic nenapada

[kafa]

Došlo mi, proč chomp v cyklu while prováděl paseku (jsem to ale blb). Fce chomp přeci vrací počet smazaných znaků na konci řádku. Nemá být $radek=chomp($radek) ale jenom chomp($radek).

Podobně předpokládám, že jednička na konci vašeho textu je návratová hodnota z funkce &nacteni. Co by provedl return ' '; na koci nacteni?

[majky8]

vyzkousel jsem to jeste s while cyklem a chomp($radek) kde mi to vratilo opet jenom jednicku :) ano, jednicka byla navratova hodnota, return ''; mi nevratilo vubec nic, ale

return pre(@text);

uz mi vrati ciste jenom ten text. Takze jsme se dopracovali ke zdarnemu konci, dekuji vsem za snahu :)