perl -MAnySerialPort myProgram.pl
[download]

# Lets serial port programs written for either Windows or Unix
# work on the other kind of system without modification.
# By Ned Konz, ned@bike-nomad.com, http://bike-nomad.com
# This script must have only LF line endings to work cross-platform.
# usage:
#   perl -MAnySerialPort myProgram.pl
#
# This will map port names between Linux and Windows; if your system d
+oesn't
# use the same mappings, you can call
# Device::SerialPort::mapPorts
# or
# Win32::SerialPort::mapPorts
# to change it:
# Device::SerialPort->mapPorts('COM1:' => '/dev/magicSerial0',
#                               'COM2' => '/dev/magicSerial1');
use strict;
package AnySerialPort;
use vars '@ISA';

BEGIN {
    my %portMap;
    my $oldNew;
    my $onWindows = 0;

    if ($^O eq 'MSWin32')   # running on Win32
    {
        $onWindows = 1;
        eval "use Win32::SerialPort";
        *main::Device::SerialPort:: = *main::Win32::SerialPort::;
        $oldNew = \&Win32::SerialPort::new;
        $INC{'Device/SerialPort.pm'} = $INC{'Win32/SerialPort.pm'};
        %portMap = ('/dev/ttyS0' => 'COM1:',
                    '/dev/ttyS1' => 'COM2:',
                    '/dev/ttyS2' => 'COM3:',
                    '/dev/ttyS3' => 'COM4:',
                );
    }
    else    # running on Unix
    {
        eval "use Device::SerialPort";
        *main::Win32::SerialPort:: = *main::Device::SerialPort::;
        $oldNew = \&Device::SerialPort::new;
        $INC{'Win32/SerialPort.pm'} = $INC{'Device/SerialPort.pm'};
        %portMap = ('COM1:'=> '/dev/ttyS0',
                    'COM2:'=> '/dev/ttyS1',
                    'COM3:'=> '/dev/ttyS2',
                    'COM4:'=> '/dev/ttyS3',
                );
    }

    die "$@\n" if $@;
    @ISA = 'Device::SerialPort';

    # Hook the constructor so we can map the port names
    # and class if needed
    *main::Device::SerialPort::new = sub {
        my $class = shift;
        my $portName = shift;
        if ($onWindows != ($class eq 'Win32::SerialPort'))
        {
            $portName = $portMap{$portName} || $portName;
            $class = $onWindows ? 'Win32::SerialPort' : 'Device::Seria
+lPort';
        }
        $oldNew->($class, $portName, @_);
    };

    # Gets and/or modifies the port mapping
    # Returns a hash
    sub Device::SerialPort::mapPorts
    {
        my $self = shift;
        %portMap = (%portMap, @_);
    }
}

1;
[download]