Dotaz: Prosím o pomoc s PERL

[TAPSOFT]

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

[moira]

Napsal jsi PŘÍLÍŠ málo na to, aby ti někdo mohl poradit.

[:::]

mozna jsem to jenom ja, ale to zadani jsem vubec nepochopil. Jinak slouceni treba takhle:

`cat *.txt >all`;

(samozrejme existuje milion jinejch zpusobu)

[TAPSOFT]

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);

[:::]

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
...

[TAPSOFT]

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

[:::]

presne tak. a klidne muzes pouzit i delsi identifikatory nez jenom b a g

[ph0enix]

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.

[ph0enix]

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.

[TAPSOFT]

Tohle vypadá schopně,díky zkusím

[pht]

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ě.

[ph0enix]

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.

[pht]

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.