In a way the Anomymous monk pointed me in the right direction!, this works:

#!/usr/bin/perl

use strict;
use File::Find;
my $PortObj;
my $Registry;
my %RegHash;
my (@keys, @values);
my $os = $^O;
my (@ports, @ok_ports);
if ($os =~ /Win/i){
        #comment out for linux! 
       eval {   require Win32;
                require Win32::TieRegistry; 
                Win32::TieRegistry->import(TiedHash=>\%RegHash);
                require Win32::SerialPort;
                my $computer; my  $Registry= \%RegHash;
                my @keys = keys( %{ $Registry->{"HKEY_LOCAL_MACHINE\\H
+ARDWARE\\DEVICEMAP\\SERIALCOMM"} } );
                my @values = values( %{ $Registry->{"HKEY_LOCAL_MACHIN
+E\\HARDWARE\\DEVICEMAP\\SERIALCOMM"} } );
                for (my $i=0; $i<@keys; $i++){
                        my $port_name = $keys[$i]; $port_name =~ s/\\/
+/g; $port_name =~ s/\.//g;
                        next if ($port_name =~ /SmSrl/g); my $port = $
+values[$i];
                        eval { if ($PortObj = new Win32::SerialPort($p
+ort, 1)) { $PortObj->close; push(@ok_ports, $port);
                                } else { print "$port not opening!\n";
+ }}; sleep (1);
        }};
} else {
        eval "use Device::SerialPort; 1" or die $@;
        my $directory = '/dev';
        opendir (DIR, $directory) or die $!;
        while (my $file = readdir(DIR)) {
                #print "$file\n";
                push (@ports, "$directory/$file") if ($file =~ /ttyS/g
+);
                push (@ports, "$directory/$file") if ($file =~ /ttyUSB
+/g);
        }
        closedir(DIR);
        foreach my $port (@ports){
                $PortObj = new Device::SerialPort($port, 1) or next; 
                $PortObj->close; 
                push(@ok_ports, $port);
                sleep (1);
        }
}

print "ports opening are: @ok_ports \n";

[download]

In reply to Re^2: code that runs (and works) on both Linux and Win32 by pashanoid
in thread code that runs (and works) on both Linux and Win32 by pashanoid

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.