abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
eParkomat, startup z ČR, postoupil mezi finalisty evropského akcelerátoru ChallengeUp!
Robot na pivo mu otevřel dveře k opravdovému byznysu
Internet věcí: Propojený svět? Už se to blíží...
včera 16:24 | Nová verze

Byla vydána Mageia 5.1. Jedná se o první opravné vydání verze 5, jež vyšla v červnu loňského roku (zprávička). Uživatelům verze 5 nepřináší opravné vydání nic nového, samozřejmě pokud pravidelně aktualizují. Vydání obsahuje všechny aktualizace za posledního téměř půldruhého roku. Mageia 5.1 obsahuje LibreOffice 4.4.7, Linux 4.4.32, KDE4 4.14.5 nebo GNOME 3.14.3.

Ladislav Hagara | Komentářů: 0
včera 13:42 | Pozvánky

V Praze probíhá konference Internet a Technologie 16.2, volné pokračování jarní konference sdružení CZ.NIC. Konferenci lze sledovat online na YouTube. K dispozici je také archiv předchozích konferencí.

Ladislav Hagara | Komentářů: 0
2.12. 22:44 | Komunita

Joinup informuje, že Mnichov používá open source groupware Kolab. V srpnu byl dokončen dvouletý přechod na toto řešení. V provozu je asi 60 000 poštovních schránek. Nejenom Kolabu se věnoval Georg Greve ve své přednášce Open Source: the future for the European institutions (SlideShare) na konferenci DIGITEC 2016, jež proběhla v úterý 29. listopadu v Bruselu. Videozáznam přednášek z hlavního sálu je ke zhlédnutí na Livestreamu.

Ladislav Hagara | Komentářů: 19
2.12. 15:30 | Zajímavý projekt

Společnost Jolla oznámila v příspěvku Case study: Sailfish Watch na svém blogu, že naportovala Sailfish OS na chytré hodinky. Využila a inspirovala se otevřeným operačním systémem pro chytré hodinky AsteroidOS. Použita je knihovna libhybris. Ukázka ovládání hodinek na YouTube.

Ladislav Hagara | Komentářů: 8
2.12. 14:15 | Nová verze

Byla vydána verze 7.1.0 skriptovacího jazyka PHP používaného zejména k vývoji dynamických webových stránek. Jedná se o první stabilní verzi nejnovější větvě 7.1. Přehled novinek v dokumentaci. Podrobnosti v ChangeLogu. K dispozici je také příručka pro přechod z PHP 7.0.x na PHP 7.1.x.

Ladislav Hagara | Komentářů: 2
2.12. 12:55 | Nová verze

Google Chrome 55 byl prohlášen za stabilní. Nejnovější stabilní verze 55.0.2883.75 tohoto webového prohlížeče přináší řadu oprav a vylepšení (YouTube). Opraveno bylo také 36 bezpečnostních chyb. Mariusz Mlynski si například vydělal 22 500 dolarů za 3 nahlášené chyby (Universal XSS in Blink).

Ladislav Hagara | Komentářů: 4
2.12. 11:55 | Pozvánky

Máte rádi svobodný software a hardware nebo se o nich chcete něco dozvědět? Přijďte na 135. sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.

xkucf03 | Komentářů: 0
2.12. 00:10 | Nová verze

Byla vydána verze 3.2 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata. Z novinek lze zmínit například podporu protokolů DNP3 a CIP/ENIP, vylepšenou podporu TLS a samozřejmě také aktualizovanou dokumentaci.

Ladislav Hagara | Komentářů: 0
1.12. 21:00 | Nová verze

Byla vydána beta verze Linux Mintu 18.1 s kódovým jménem Serena. Na blogu Linux Mintu jsou hned dvě oznámení. První o vydání Linux Mintu s prostředím MATE a druhé o vydání Linux Mintu s prostředím Cinnamon. Stejným způsobem jsou rozděleny také poznámky k vydání (MATE, Cinnamon) a přehled novinek s náhledy (MATE, Cinnamon). Linux Mint 18.1 bude podporován až do roku 2021.

Ladislav Hagara | Komentářů: 0
1.12. 16:42 | Nová verze

Byl vydán Devuan Jessie 1.0 Beta 2. Jedná se o druhou beta verzi forku Debianu bez systemd představeného v listopadu 2014 (zprávička). První beta verze byla vydána v dubnu letošního roku (zprávička). Jedna z posledních přednášek věnovaných Devuanu proběhla v listopadu na konferenci FSCONS 2016 (YouTube, pdf).

Ladislav Hagara | Komentářů: 0
Kolik máte dat ve svém domovském adresáři na svém primárním osobním počítači?
 (32%)
 (24%)
 (29%)
 (7%)
 (5%)
 (3%)
Celkem 767 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: perl/cgi vytisknuti externiho souboru

7.12.2007 22:21 majky8
perl/cgi vytisknuti externiho souboru
Přečteno: 1390×
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

7.12.2007 22:48 outsider
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
co treba...
...
  print "$radek";
...
7.12.2007 23:00 majky8
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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 >
...
8.12.2007 08:01 outsider
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
No a ten text od
Content-Type: text/html; charset=utf-8
...
ten vypisujete v tom skriptu jak?
8.12.2007 11:21 majky8
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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
8.12.2007 08:32 outsider
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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;
8.12.2007 11:28 majky8
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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
8.12.2007 17:45 kafa | skóre: 10
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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;
8.12.2007 18:21 majky8
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
Diky za snahu bohuzel s timhle postupem se do vystupu zase dostane jenom jednicka :(
8.12.2007 22:38 kafa | skóre: 10
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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;

8.12.2007 22:49 majky8
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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?
8.12.2007 23:54 kafa | skóre: 10
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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.
9.12.2007 00:05 majky8
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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
9.12.2007 00:43 kafa | skóre: 10
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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?
9.12.2007 10:45 majky8
Rozbalit Rozbalit vše Re: perl/cgi vytisknuti externiho souboru
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 :)

Založit nové vláknoNahoru

Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

ISSN 1214-1267   www.czech-server.cz
© 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.