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

[NbS]

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

Odpovědi

[Pravák Bob]

Hmm, zkusil bych klasické přesměrování výstupu typu: "perl program.pl > vysledek.txt"

[zabza]

open F, '>/tmp/vysledek.txt';
print F "Hello world!\n";
close F;

[NbS]

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

[zabza]

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

[alex]

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]

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

[alex]

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"
    }
}