Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
print ord($result) . "\n";

close (SERIALPORT);
  2. or download this
    #!/usr/bin/perl

...
print ord($result) . "\n";

close (SERIALPORT);
  3. or download this
    #!/usr/bin/perl

...
}

undef $ob;
  4. or download this
    #!/usr/bin/perl -w

...
if ($char) {
 print "$char";
}