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 06:00 | Komunita

Na YouTube byl publikován Blender Institute Reel 2016, ani ne dvouminutový sestřih z filmů, které vznikly za posledních 10 let díky Blender Institutu. V institutu aktuálně pracují na novém filmu Agent 327. Dění kolem filmu lze sledovat na Blender Cloudu. Videoukázka Agenta 327 z června letošního roku na YouTube.

Ladislav Hagara | Komentářů: 0
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ářů: 8
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
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 799 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: Prosím o pomoc s PERL

11.11.2009 11:38 TAPSOFT
Prosím o pomoc s PERL
Přečteno: 274×
Dobrý den,mám dotaz.Mám program (robot chatu) který má přibližně 38 txt souboru,je tam zdravení,slova na vyhazování a td. Chtěl bych všechno sloučit do jednoho a z něj to načítat,ale abych mohl oddělit věty ke každé té položce.Děkuji

Odpovědi

11.11.2009 12:44 moira | skóre: 30 | blog: nesmysly
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
Napsal jsi PŘÍLÍŠ málo na to, aby ti někdo mohl poradit.
Překladač ti nikdy neřekne: "budeme kamarádi"
11.11.2009 12:46 extremni lama | skóre: 14 | blog: e_lama
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
mozna jsem to jenom ja, ale to zadani jsem vubec nepochopil. Jinak slouceni treba takhle:
`cat *.txt >all`;
(samozrejme existuje milion jinejch zpusobu)
The enemy of my enemy is still my enemy.
11.11.2009 12:56 TAPSOFT
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
udám to tedy přesněji,mám několik souboru třeba první je holky.txt a v něm nick11 nick21 nick31 nick41

pak další soubor kluci.txt nick1 nick2 nick3 nick4

a td a protože těch souboru je větší množství,chci udělat jeden soubor třeba vse.txt a v něm např. -nick11 -nick21 -nick31 -nick41 nick1 nick2 nick3 nick4

ale aby je robot.pl načetl do správných proměnných ted to mám takto $a = 0; $radek = ''; open(xx, 'holky.txt') or die "nelze nacist soubor holky.txt\n"; while($radek = < xx>) { if (substr($radek, 0, 1) ne '#') { $holky[$a] = $radek; $a++; }} close( xx);

$a = 0; $radek = ''; open(xx, 'kluci.txt') or die "nelze nacist soubor kluci.txt\n"; while($radek = < xx>) { if (substr($radek, 0, 1) ne '#') { $kluci[$a] = $radek; $a++; }} close( xx);
11.11.2009 15:09 extremni lama | skóre: 14 | blog: e_lama
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
treba takhle?
;
@g = ();
@b = ();

$map{"g"} = \@g;
$map{"b"} = \@b;

open(F, "file.txt");
while (<F>)
{
        if (m/(.*):(.*)/)
        {
                push @{ $map{$1} }, $2;
        }
}
close(F);

print "G:\n";
for $i (@g) { print "\t$i\n"; }

print "B:\n";
for $i (@b) { print "\t$i\n"; }
ocekava se ze file.txt bude ve formatu:
g:nick1
g:nick2
b:nick3
b:nick4
g:nick5
...
The enemy of my enemy is still my enemy.
11.11.2009 15:26 TAPSOFT
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
a ted samořejmě těcj +- 38 spuboru můžu udělat do jednoho a to rozlišit tím b.g a td...??? Jinak moc děkuji,zkusím to
11.11.2009 15:35 extremni lama | skóre: 14 | blog: e_lama
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
presne tak. a klidne muzes pouzit i delsi identifikatory nez jenom b a g
The enemy of my enemy is still my enemy.
12.11.2009 13:45 ph0enix | skóre: 18 | Praha
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL

Nebo to rozdel do sekci a identifikator dej pouze pred prvni zaznam dane sekce (neco na zpusob *.ini souboru ve Windows). Zpusob zapisu oddelovace si zvol jaky ti vyhovuje - napriklad

[nazev sekce]
data
data

nebo

::nazev sekce
data
data

nebo

nazev sekce:
data
data

atd.

12.11.2009 13:40 ph0enix | skóre: 18 | Praha
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL

Spojeni do jednoho souboru muzes udelat napriklad takto

for X in *.txt; do
 echo "[${X%.txt}]">>all.txt;
 cat $X >>all.txt;
done

Puvodni jmena souboru (bez pripony) jsou pouzity jako oddelovace/nazvy sekci. Vysledny soubor s daty tedy muze vypadat takto

[kluci]
mnick1
# komentar
mnick2
mnick3

[holky]
fnick1
fnick2
fnick3

Pokud vylozene nepotrebujes extra promenne tak bych to pak nacital do HASHe - treba nasledujicim zpusobem

my %data;
my $line;
my $sekce = 'neznama';
my $config = 'all.dat';

# nacteme data/konfiguraci
if (open(DATAIN, $config)) {
    while ($line = <DATAIN>) {
        chomp($line);
        next if ($line =~ /^\s*$/);
        next if ($line =~ /^\s*#/);
        if ($line =~ /^\s*\[([^\]]+)]\s*$/) {
            # nalezena nova sekce dat
            $sekce = $1;
            $sekce =~ s/^\s*//;
            $sekce =~ s/\s*$//;
        } else {
            # cteme data
            push @{$data{$sekce}}, $line;
        }
    }
    # data nactena - zavreme soubor
    close(DATAIN);
} else {
    die("Nelze otevrit soubor '$config'");
}

# pokracuje vlastni kod programu
# ...

Jednotlive kategorie/seznamy jsou pristupne jako @{$data{'jmeno seznamu'}} (napr.: @{$data{holky}} a polozky pak $data{'jmeno seznamu'}[index] (napr.: $data{'holky'}[1]. Seznam vsech nactenych kategorii/seznamu ziskas pomoci keys %data.

12.11.2009 20:29 TAPSOFT
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
Tohle vypadá schopně,díky zkusím
13.11.2009 06:53 pht | skóre: 48 | blog: pht
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
Pokud používáte perl, naučte se používat taky CPAN.

Config::INI a další

Proč? Protože to vždycky někdo vymyslel už před vámi, ale ne zažvejkaně jen pro sebe na koleně, ale použitelně.
In Ada the typical infinite loop would normally be terminated by detonation.
13.11.2009 09:34 ph0enix | skóre: 18 | Praha
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL

Diky za doporuceni a odkaz na CPAN. Pro vasi informaci na CPANu mam nekolik modulu a vyvoj v PERLu mne i pred lety zivil. Pri pouzivani CPAN modulu jsem bohuzel casto narazil na velmi promenlivou kvalitu kodu a dokumentace. Velmi casto je k dispozici nekolik modulu pro stejny ukol a zadny z nich to nedela poradne… To je ale namet na uplne jinou a poradne dlouhou diskusi.

Po precteni tazatelova prispevku jsem mu chtel ukazat kousek PERLoveho kodu a silu PERlu. Tazatel zrejme prechazi z C ci neceho podobneho. Pri pouhem uvedeni odkazu na CPAN ci konkretni modul tak tazatel zrejme zustane u psani ceckoveho kodu v PERLu a nevyuzije silu a prednosti tohoto jazyka.

Napriklad pokud pouze plnim pole, nepotrebuji si udrzovat index posledniho prvku, tedy namisto

$holky[$a] = $radek;
$a++;

lze jednoduse pouzit

push @holky, $radek;

Pokud potrebuji pocet prvku, ziskam jej z @holky ve skalarnim kontextu, jenz si lze vynutit pomoci scalar(@holky). Index posledniho prvku pak je $#holky. Tazatel take jeste prilis nezna kouzlo regularnich vyrazu umoznujici volnost v psani zaznamu ve vstupnim souboru (napriklad volitelne mezery jenz nekdy text udelaji pro cloveka prehlednejsim) namisto pouziti substr() kde musim mit zaznam presnou strukturu.

13.11.2009 13:28 pht | skóre: 48 | blog: pht
Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
OK, chápu. Ale dobrá půlka síly perlu je v CPANu.

Jinak k tomu snippetu bych tedy měl ještě 2 zdokonalující poznámky. Dnes už se používá open(my $input, ...) místo open(INPUT, ...). Vypadá to jako nuance ale má to dalekosáhlé dopady (k lepšímu). A také není potřeba mít if...else otevření selhalo, ale stačí použít autodie.
In Ada the typical infinite loop would normally be terminated by detonation.

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.