Dotaz: perl a fce ` `

[h7]

Ahoj ,snazim se v Perlu pomoci fce `` zavolat bash prikazy spojene rourou a vyslednou hodnotu ulozit do promene takto:

$pocet = `/bin/ls -R |/usr/bin/wc -l`

...a nefunguje to ,kde delam chybu? Zkousel jsem prikazy spustit v subshelu a take nepomohlo.

$pocet = `(/bin/ls -R |/usr/bin/wc -l)`

Diky za kazdou ideu. Pekny vecer h7

Odpovědi

[hrobar]

`` sa vola backticks. Chyba ti tam bodkociarka na konci.

[h7]

sorry ,ja ji zapomel do diskuze napsat, s ni to take nejede..

[hrobar]

Ja som spravil cut&paste doplnil bodkociarku a funguje to bez problemov. Co ti to vypisuje za error?

[Dunric]

Fungovat by to mělo. Co myslíš tím, že to nejde ? Nespouštíš to náhodou nad jiným adresářem než očekáváš ?

[h7]

$soubor=`/bin/ls -R $adresar | /usr/bin/wc -l`;

hodi mi chybu:

sh: -c: line 1: syntax error near unexpected token `|' sh: -c: line 1: ` | /usr/bin/wc -l' sh: -c: line 1: syntax error near unexpected token `|' sh: -c: line 1: ` | /usr/bin/wc -l' sh: -c: line 1: syntax error near unexpected token `|' sh: -c: line 1: ` | /usr/bin/wc -l'

strednik na konci nepouze .... h7

[0]

V perlu je tahle vec implementovana pomerne zajimavym zpusobem:

open(A,"|/bin/ls -R |/usr/bin/wc -l");
$pocet = <A>;
close(A);
print $pocet;

[hrobar]

Az na to, ze to tvoje riesenie nefunguje. $pocet zostane neinicializovany.

[0]

Funguje, ale vypisuje warning. Opravena verse:

#!/usr/local/bin/perl -w
open(A,"|/bin/ls -R |/usr/bin/wc -l");
$pocet = A;
close(A);
print $pocet;

(zmente si cestu k perl binarce, pokud to mate jinde). Aspon je videt, jakej je ten perl totalne zmatenej. Mam pocit, ze starsi interprety vyzadovaly tam ty zavorky, zatimco ty novejsi ne.

[hrobar]

Trvam na tom, ze to predchadzajuce riesenie je zle a nefunguje. Prepis print $pocet; na print "Vypis: $pocet"; a pusti si to. Vypise ti to Vypis: a nad tym sice bude vypisany pocet fajlov ale tie nie su vypisane cez perl(print) ale vypisuje ich ten vyraz uvedeny v backticks. $pocet je neinicializovany.

[hrobar]

A to druhe riesenie je tiez zle. print vypise "A". Ospravedlnujem sa, ze to pisem do dvoch prispevkov som ten prvy omylom odoslal.

[Hynek (Pichi) Vychodil]

(zmente si cestu k perl binarce, pokud to mate jinde). Aspon je videt, jakej je ten perl totalne zmatenej.

RTFM perlrun

Mam pocit, ze starsi interprety vyzadovaly tam ty zavorky, zatimco ty novejsi ne.

ROFL. Ty jseš mimoň.

[Hynek (Pichi) Vychodil]

Hmm a ty do toho něco posíláš a nic z toho číst nehodláš? Tomu říkám perl odborník.

$ perl <<EOF
open(A,"|/bin/ls -R |/usr/bin/wc -l");
$pocet = <A>;
close(A);
print "Je tam toho $pocet";
EOF
5740
Je tam toho $ perl <<EOF
open(A,"/bin/ls -R |/usr/bin/wc -l|");
$pocet = <A>;
close(A);
print "Je tam toho $pocet";
EOF
Je tam toho 5740
$

[barney]

mala chybicka sa ti vkradla )

open(A,"|/bin/ls -R |/usr/bin/wc -l");
open(A,"/bin/ls -R |/usr/bin/wc -l|");

prve je zapisovanie, druhe citanie

[petr_p]

Ja nevim, ale mne (perl-5.8.7) to funguje:

petr@cz2cbjmc:~/web $ perl -we 'my $data=`/bin/ls -R |/usr/bin/wc -l`; print "Vystup\n${data}Konec vystupu\n";' 
Vystup
1
Konec vystupu

[h7]

$soubor=`/bin/ls -R $adresar | /usr/bin/wc -l`;

Tak jsem prisel na chybu ,ktera je v pouziti kontrukce $adresar. Takze nova otazka je ,jak zavolat prikaz z bashe s parametrem? h7

[Hynek (Pichi) Vychodil]

perl -we 'my $adresar=q(work); my $data=qx(/bin/ls -R $adresar|/usr/bin/wc -l); print qq(Vystup\n${data}Konec vystupu\n);'

[h7]

pane kolegu,vase konstrukce vypada zajimave ,ale $data=qx(/bin/ls -R $adresar|/usr/bin/wc -l); mi stale nechodi.Muzete mi vas priklad trosku osvetlit? h7

[Hynek (Pichi) Vychodil]

Informace:

mi stale nechodi

rovná se žádná informace. Obzvláště pokud mě to chodí a bez problémů. Co znamená nechodí? Nemá to nožičky, tak to ani chodit nemůže. Co se týče konstrukcí q(), qq(), qx(), qw() a další, RTFM perlop.

[h7]

CHYBA: sh: -c: line 1: syntax error near unexpected token `|' sh: -c: line 1: ` | /usr/bin/wc -l'

...a muj skript ,ktery ma vytisknout velikost,pocet souboru a jmeno uzivatele maildiru.

ps: v perlu delam teprve 2 den h7

#!/usr/bin/perl -w use warnings; use locale;

@velikosti = (); @osoby = (); @soubory = ();

@adresare = `/bin/find /_zaloha -type d -iname '*Maildir*'`;

foreach $adresar (@adresare) { $velikostH = `/usr/bin/du -sk $adresar`; @velikostiH = split (/\s/,$velikostH); push (@velikosti,$velikostiH[0]); @osobyH = split(/\//,$adresar); if ($osobyH[-2] =~ /\d{1,2}/ ) { push (@osoby,$osobyH[-3]); } else { push (@osoby,$osobyH[-2]); } $soubor= qx(/bin/ls -R $adresar | /usr/bin/wc -l); push (@soubory,$soubor); }

for ($i=0;$i<=$#adresare;++$i) { print $osoby[$i]."\n"; print $velikosti[$i]."\n"; print $soubory[$i]."\n"; }

[Hynek (Pichi) Vychodil]

Ty neznáš tag pre? Tím bych začal, no a pak je tu ta záležitost s tím koncem řádku. Schválně jestli příjdeš na to co tím myslím. Krom toho na to jdeš úplně blbě. Volání nějakých scriptů je zbytečné.

[barney]

...
$adresar =~ s/"/\\"/g;
$soubor=`/bin/ls -R "$adresar" | /usr/bin/wc -l`;

[Hynek (Pichi) Vychodil]

Nebylo by poněkud bezpečnější použít String::ShellQuote?

[barney]

no to by bolo takisto ako pouzit File::Find (tiez na cpan-e)

[Dunric]

Ty jseš samá legrace. Nějak ti ta proměnná $adresar z původního dotazu vypadla, co ?

[Hynek (Pichi) Vychodil]

hmm, a krom toho vlastně nechápu proč nepoužije radši něco takového

perl -MFile::Find -e 'find(sub{$a++}, q(work)); print $a,$/'

[h7]

stane se..pardon h7