Re: [PERL] Et lille spoergsmaal om serial port og perl ??

[sslug@sslug (Henrik Djarner)]

On Sat, 27 Feb 1999 15:32:16 +0100 (CET), Ask Bjoern Hansen
<sslug@sslug> wrote:

Vi kom fra....

>> Men jeg kan ikke finde noget dokomentation paa det under perl
>
>Du kan ikke have kigget ret grundigt saa:
>
>$ perldoc -q serial
>
>=head1 Found in /usr/lib/perl5/5.00502/pod/perlfaq8.pod
>
>=head2 How do I read and write the serial port?   

Tak Ask :-)

problemet er nok naermere at jeg ikke ved hvor jeg skal kikke :-) 

Jeg kunne ikke skrive perldoc -q ??
men der er da heldigvis andre maader at kikke i 
/usr/lib/perl5/5.00502/pod/perlfaq8.pod paa :-)

Jeg vil da lige kort fortaelle at min egen Linux box er en Red Hat 5.1
og maskinen hvor dette skal koere er en Red Hat 5.2


Jeg er kommet frem til foelgende:


#!/usr/bin/perl



print "\n\nSkriv noget: \n";

#$inputline = <STDIN>;

#print ($inputline);



$path="+< /dev/cua0";



open(SER,$path) || print "com kix! \n";

sysopen(SER,$path,O_RDWR);

print "com ok ??\n";



# her har jeg proevet med \n \r og \cM som du/i kan se
print SER "at\cM";



#pausen her er af hensyn til modemer .... 
#det er ikke et af de nyeste der findes
print "sover i 2 sek.\n";

sleep(2);

print "har sovet i 2 sek.\n";



#print "getc() ", getc(SER), "\n";

#print <SER>;





while (<SER>) { print $_; }



close ser;

print "slut\n\n";  


Og som du/i sikert kan se har jeg proevet lidt af hver, men det 
er stadig ikke lykkedes mig at få modemet til at svare :-(

Er det muligt at jeg kan be' om din hjelp en gang til ?

Henrik
>