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íží...
dnes 01:02 | Zajímavý článek

Minulý týden byly vydány verze 1.2.3 a 1.1.7 webového poštovního klienta Roundcube. V oznámení o vydání bylo zmíněno řešení bezpečnostního problému nalezeného společností RIPS a souvisejícího s voláním funkce mail() v PHP. Tento týden byly zveřejněny podrobnosti. Útočník mohl pomocí speciálně připraveného emailu spustit na serveru libovolný příkaz. Stejně, jak je popsáno v článku Exploit PHP’s mail() to get remote code execution z roku 2014.

Ladislav Hagara | Komentářů: 0
včera 16:00 | Nová verze

Byla vydána verze 0.98 svobodného nelineárního video editoru Pitivi. Z novinek lze zmínit například přizpůsobitelné klávesové zkratky. Videoukázka práce s nejnovější verzí Pitivi na YouTube.

Ladislav Hagara | Komentářů: 1
včera 15:00 | Zajímavý software

Stop motion je technika animace, při níž je reálný objekt mezi jednotlivými snímky ručně upravován a posouván o malé úseky, tak aby po spojení vyvolala animace dojem spojitosti. Jaký software lze pro stop motion použít na Linuxu? Článek na OMG! Ubuntu! představuje Heron Animation. Ten bohužel podporuje pouze webové kamery. Podpora digitálních zrcadlovek je začleněna například v programu qStopMotion.

Ladislav Hagara | Komentářů: 3
7.12. 21:21 | Nová verze Ladislav Hagara | Komentářů: 0
7.12. 11:44 | Zajímavý projekt

Na Indiegogo byla spuštěna kampaň na podporu herní mini konzole a multimediálního centra RetroEngine Sigma od Doyodo. Předobjednat ji lze již od 49 dolarů. Požadovaná částka 20 000 dolarů byla překonána již 6 krát. Majitelé mini konzole si budou moci zahrát hry pro Atari VCS 2600, Sega Genesis nebo NES. Předinstalováno bude multimediální centrum Kodi.

Ladislav Hagara | Komentářů: 2
7.12. 00:10 | Nová verze

Byla vydána verze 4.7 redakčního systému WordPress. Kódové označením Vaughan bylo vybráno na počest americké jazzové zpěvačky Sarah "Sassy" Vaughan. Z novinek lze zmínit například novou výchozí šablonu Twenty Seventeen, náhledy pdf souborů nebo WordPress REST API.

Ladislav Hagara | Komentářů: 6
6.12. 12:00 | Zajímavý projekt

Projekt Termbox umožňuje vyzkoušet si linuxové distribuce Ubuntu, Debian, Fedora, CentOS a Arch Linux ve webovém prohlížeči. Řešení je postaveno na projektu HyperContainer. Podrobnosti v často kladených dotazech (FAQ). Zdrojové kódy jsou k dispozici na GitHubu [reddit].

Ladislav Hagara | Komentářů: 27
6.12. 11:00 | Bezpečnostní upozornění

Byly zveřejněny informace o bezpečnostní chybě CVE-2016-8655 v Linuxu zneužitelné k lokální eskalaci práv. Chyba se dostala do linuxového jádra v srpnu 2011. V upstreamu byla opravena minulý týden [Hacker News].

Ladislav Hagara | Komentářů: 2
5.12. 22:00 | Komunita

Přibližně před měsícem bylo oznámeno, že linuxová distribuce SUSE Linux Enterprise Server (SLES) běží nově také Raspberry Pi 3 (dokumentace). Obraz verze 12 SP2 pro Raspberry Pi 3 je ke stažení zdarma. Pro registrované jsou po dobu jednoho roku zdarma také aktualizace. Dnes bylo oznámeno, že pro Raspberry Pi 3 je k dispozici také nové openSUSE Leap 42.2 (zprávička). K dispozici je hned několik obrazů.

Ladislav Hagara | Komentářů: 6
5.12. 06:00 | Zajímavý software

OMG! Ubuntu! představuje emulátor terminálu Hyper (GitHub) postavený na webových technologiích (HTML, CSS a JavaScript). V diskusi k článku je zmíněn podobný emulátor terminálu Black Screen. Hyper i Black Screen používají framework Electron, stejně jako editor Atom nebo vývojové prostředí Visual Studio Code.

Ladislav Hagara | Komentářů: 50
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%)
 (8%)
 (5%)
 (3%)
Celkem 798 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama
Štítky: není přiřazen žádný štítek

Dotaz: Jak ulozit vystup do nejakeho txt (v Perl)

NbS avatar 15.11.2005 09:11 NbS | skóre: 26 | blog: Linux jako Linux ... vsude je neco jako /etc | Prague
Jak ulozit vystup do nejakeho txt (v Perl)
Přečteno: 200×
Zdravim

Nevi nekdo jak by sel ulozit vysledek (ktery se vypisuje klasicky do shelu) treba do /user/vysledek.txt ?

ted budu rikat blbost (ale beztak to neslo :) pres print "> /user/vysledek.txt"; to pochopitelne neslo :(

diky
Pan Bily byli bily strop, aby byl bily ... (Opravdu si myslite, ze je to spravne) ?

Odpovědi

Pravák Bob avatar 15.11.2005 09:21 Pravák Bob | skóre: 13 | Praha
Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
Hmm, zkusil bych klasické přesměrování výstupu typu: "perl program.pl > vysledek.txt"
knowledge brings fear
15.11.2005 09:27 zabza | skóre: 52 | blog: Nad_sklenkou_cerveneho
Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
open F, '>/tmp/vysledek.txt';
print F "Hello world!\n";
close F;
NbS avatar 15.11.2005 09:41 NbS | skóre: 26 | blog: Linux jako Linux ... vsude je neco jako /etc | Prague
Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
pr
#!/usr/bin/perl
$par="20";
for ($i=1;$i<255;$i++) {
if (qx[program -parametry $par.$i ] ) {
}
}

a jak to tam nejak sikovne zakomponovat (to je to oc tu bezi)

open F, '>/home/user/Desktop/vysledek.txt';
print F "";
close F;

protoze program vypisuje stale jen do shellu :(

diky
Pan Bily byli bily strop, aby byl bily ... (Opravdu si myslite, ze je to spravne) ?
15.11.2005 10:15 zabza | skóre: 52 | blog: Nad_sklenkou_cerveneho
Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
if ($result = qx[program -parametry $par.$i ] ) {
  print FILE $result;
}
Jestli program vypisuje něco na STDERR, tak to musíte/chcete přeměrovat...
15.11.2005 10:24 alex
Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
Existuje jeste moznost presmerovat veskery vystup ze STDOUT do nejakeho souboru stejne jako v shelle. K tomu muzete pouzit "select". To znamena, ze uplne na zacatku vaseho skriptu napisete
open F, ">vysledek.txt";
select F;
a pak uplne na konci napisete
close F;
Nic vic menit nemusite (pokud program nevypisuje na STDERR, jak tady bylo spravne poznamenano).
NbS avatar 15.11.2005 11:05 NbS | skóre: 26 | blog: Linux jako Linux ... vsude je neco jako /etc | Prague
Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
Ne tak bohuzel :(

kdyz zapisu $program -parametry -parametry > vystup.txt tak to ze shellu krasne funguje (jako predtim)

nicmene kdyz to same chci i po tomhle tak nic (je to sice prkotina ale chtel jsem si usnadnit praci nasledne mam jeste jeden script kterej to vyhodnocuje a posila vysledky mi - jak rikam kdyz to spustim ze shellu tak v poho...)
#!/usr/bin/perl
open F, "> vysledek.txt";
select F;

$inet="192.168.0";

for ($i=1;$i<68;$i++) {
if (qx[ping -c1 $inet.$i] ) {

close F;

}
}
diky
Pan Bily byli bily strop, aby byl bily ... (Opravdu si myslite, ze je to spravne) ?
15.11.2005 11:48 alex
Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
Zapvrve, psal jsem abyste dal "close F;" uplne na konec skriptu, ale vy jste to umistil doprostred smycky for.

Zadruhe, nechapu presne ceho chcete dosahnout. Pingnout spoustu stroju a vysledky presmerovat do souboru vystup.txt? Pak to muzete udelat takhle:
#!/usr/bin/perl

open F, ">vystup.txt";
select F;

$inet="192.168.0";

foreach $host ( 1 .. 67 ) {
    print qx[ping -c1 $inet.$host]
}

close F;
Pokud vas ale zajima jenom vysledek, t.j. jestli stroj odpovida nebo ne, pak muzete upravit smycku takto:
foreach $host ( 1 .. 67 ) {
    qx[ping -c $inet.$host];
    if ( $? ) {
        print "$inet.$host is dead\n"
    } else {
        print "$inet.$host is alive\n"
    }
}

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.