in reply to Casting magic - how to write numbers to the serial port

Try 

$x = 25;
while ($x>0) {
 sleep(1);
 $ob->write("\xFE\x90\xFF\x00" . chr( $x * 10 ) );
 $ob->write_drain;
 $x--;
}

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"I'd rather go naked than blow up my ass"

Replies are listed 'Best First'.
Re^2: Casting magic - how to write numbers to the serial port
by ehud42 (Initiate) on Jan 13, 2010 at 02:27 UTC
    chr($x*10);

    That did the trick. Thanks for the great response time!

[reply]
[d/l]

In Section Seekers of Perl Wisdom