Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
prints:
Caption: COM1
Name: COM1
  2. or download this
    my @valid_com_ports;
foreach my $com ( map{"COM$_"}1..32)
...
   # perhaps use the open_uart function()
   # and then push @valid_com_ports, $com;
}