Dotaz: Perl, printf(stderr vs. print.

[saf]

Zdravím, řeším takový problém. Jak udělat aby fungoval normální print v tomto programu mi to nějak nejde:

### definice serioveho rozhrani

$port = "/dev/ttyUSB0"; # je COM1

### sada s stty nastavení portů

system "stty 57600 -F /dev/ttyUSB0 < $port";

### Otevřít COM port jako

open(COM, "+>$port") or die "nelze otevřít $port";

select(COM); # COM jako standardní I/O Nastavení

$| = 1; # Tabulka jediná záležitost není bufferu =

### Odešle Q1 na UPS pro váš stav

printf("t"); # UPS nemá rád normální konec řádku

#sleep(1) # 2400 BPS je pomalý ...

sysread(COM, my ($line), 50);

close(COM);

printf(stderr "Z venku balkon pokoj set.pok K\n");#OK

printf(stderr $line); # OK

print "$line\n"; #nefunguje

Děkuji Saf.

---

---

Odpovědi

[graviton]

Kterak správně problémy hlásiti:

• co jste udělali (ok)
• co se stalo (chybí)
• co jste očekávali, že se stane místo toho (chybí)

Jinak moje křišťálová koule hlásí, že sekvence

select(COM)
close(COM)
print

asi bude tisknout někam do prázdna (=zavřeného deskriptoru).

[saf]

OK, blbě jsem to napsal. Tohle je original:

#!/opt/bin/perl

### Serielle Schnittstelle definieren

$port = "/dev/ttyUSB0"; # entspricht COM1

### mit stty die Port-Einstellungen setzen

system "stty 57600 -F /dev/ttyUSB0 < $port";

### Port als COM öffnen

open(COM, "+>$port") or die "can't open $port";

select(COM); # COM als standard E/A festlegen

$| = 1; # Character einzeln ausgeben = nicht puffern

### Sendet Q1 an die USV zur Statusabfrage

printf("t"); # die USV mag kein normales Zeilenende

#sleep(1) # 2400 BPS sind recht langsam ...

sysread(COM, my ($line), 50);

printf(stderr "Z venku balkon pokoj set.pok K\n");

printf(stderr $line); # Ausgabe auf Console

close(COM);

To funguje, program načte z RS232 do $line a pak proběhne tisk na obrazovku, to je OK. Ale když budu pokračovat dále v programu a dám print "test vystup na obrazovku\n"; tak se nic neděje.

[saf]

nechybí za close něco jako select(STDOUT);

hm.. select jeden s příkazů, který jsem v perl-u ještě nikdy nepoužil :)

[saf]

Dík, to je ono.

[graviton]

Viz výše, select přesměruje print do COM, close ho zavře, pak už jdou všechny normální printy do nikam. Nepomohlo by select(COM) nahradit $oldfh = select(COM); a na konec dát zas select($oldfh); ?