Inkludera

Hur inkluderar jag perlkod? Typ som include('kod.php'); i PHP

Re: Inkludera

Cactuz skrev:

Hur inkluderar jag perlkod? Typ som include('kod.php'); i PHP

Nu är jag ingen expert, men ett sätt om man vill inkludera en klass är att helt enkelt köra "use blubb;". Det förutsätter då att klassen heter "blubb.pm".

Postar ett exempel.

kika gärna på perldoc Exporter

script.pl

#!/usr/bin/perl

use strict;
use warnings;
use Utilities;

print name(), " is from ", country(), ".\n";

Utilities.pm

package Utilities;

use strict;
use Exporter;

use vars qw(@ISA @EXPORT);

@ISA    = qw(Exporter);
@EXPORT = qw(name country);

my %countries = (
    DK => 'Denmark',
    NO => 'Norway',
    SE => 'Sweden'
);

sub name {
    return 'Christian';
}

sub country {
    return _loockup_country('SE');
}

sub _loockup_country {
    my $country = shift;
    return $countries{$country};
}

1;