基於Perl平臺的模塊

我想編寫模塊（s），如果你從Windows加載，它將加載MSWin32模塊，並從Linux它將加載Linux模塊。子程序的實現將基於平臺而不同。
例如基於Perl平臺的模塊


package Common::Copy::MSWin32; 
sub do_this {} 

package Common::Copy::linux; 
sub do_this {} 


#!/bin/perl 
use lib Common::Copy::$^O; 

do_this();

如何做到這一點？

來源

2014-02-14 Kamikaze

可以使用[BEGIN塊以有條件地包括模塊在啓動時（http://perldoc.perl.org/functions/use.html），或[有條件地包括和參考模塊在運行時]（http://stackoverflow.com/questions/1917261/how-can-i-dynamically-include-perl-modules-without-using-eval）。剩下的就是[按平臺分支]（http://stackoverflow.com/questions/334686/how-can-i-detect-the-operating-system-in-perl）。爲了理智，我強烈建議提供一個單獨的公共接口作爲抽象層。 – rutter

[只有當我在Windows上時，如何有條件地使用Perl模塊？]（http：// stackoverflow。com/questions/1441689/how-do-i-condition-use-a-perl-module-only-if-im-on-windows） – mob

@mob其實它不是重複的，因爲Kamikaze試圖加載其中一個幾個模塊，而不是有條件的。 –

這樣做的標準方法是檢查變量$^O（$OSNAME並啓用English編譯指示）。它反映了在構建perl可執行文件時指定的操作系統，它可以採用的值列在perldoc perlport中。對於任何 Windows系統它將是MSWin32。

如果您需要區分Windows的不同版本，那麼您可以使用Win32模塊，該模塊提供Win32::GetOSVersion函數，以告訴您所使用的Windows系統和修補程序級別。

要根據$^O值，你應該使用if pragma，這樣

use if $^O eq 'MSWin32', 'Common::Copy::MSWin32'; 
use if $^O ne 'MSWin32', 'Common::Copy::Linux';

來源

2014-02-15 03:48:44 Borodin

@Kamikaze：我的回答編輯已被拒絕。你必須說的是有效的，但它是一個評論。你不應該修改人們的答案，除非改進或糾正它們 – Borodin

你可以加載模塊的same way是File::Spec確實包括不同的模塊。

（假設use warnings;，use strict;和版本的聲明緊隨所有package聲明在本崗位）

package Common::Copy::Win32; 
sub do_this {}

package Common::Copy::Linux; 
sub do_this {}

package Common::Copy; 

my %module = (
    MSWin32 => 'Win32', 
    linux => 'Linux', 
); 

my $module = $module{$^O} || 'Linux'; 

require "Common/Copy/$module.pm"; 
our @ISA = ("Common::Copy::$module");

#!/bin/perl 
use Common::Copy; 

Common::Copy->do_this();

這將要求子程序寫入方法可能不是你想要的。

它看起來像你真正想讓它export在similar way到File::Spec::Functions怎麼做。
該實現假定子程序不寫爲方法。

package Common::Copy; 
require Exporter; 
our @ISA = qw'Exporter'; # use Exporters `import` method 

our @EXPORT = qw'do_this'; 
our @EXPORT_OK = qw''; 
our %EXPORT_TAGS = (ALL => [ @EXPORT_OK, @EXPORT ]); 

my %module = (
    MSWin32 => 'Win32', 
    linux => 'Linux', 
); 
our $module = $module{$^O} || 'Linux'; 
require "Common/Copy/$module.pm"; 
$module = "Common::Copy::$module"; # full name of actual module 

foreach my $subname (@EXPORT, @EXPORT_OK) { 
    my $subref = $module->can($meth); # misuses method lookup 

    no strict 'refs'; 
    # import the subroutines into this namespace 
    # assumes they aren't written as methods 
    *{$subname} = \&$subref; 
}

#!/bin/perl 
use Common::Copy; 
# use Common::Copy qw':all'; 
# use Common::Copy qw'do_this'; 

do_this();

來源

2014-02-18 17:42:25

基於Perl平臺的模塊

回答

相關問題