subrutine i ekstern fil

kig i kamelbogen under pakker

Brug require.
http://www.perldoc.com/perl5.8.0/pod/func/require.html
Vær opmærksom på at din "include"-fil skal slutte af med 1;
Eksempel:
subrutine-1 {}
subrutine-2 {}
subrutine-3 {}
1;

Jeg har nu forsøgt at læse gennem dokumentationen til require uden at blive så meget klogere.

For at være helt konkret; Jeg har følgende script:
------------------------------------
#!/usr/local/bin/perl

getqs($ENV{'QUERY_STRING'});

sub getqs {
    my ($QS) = @_;
    @QS = split(/&/, $QS);
    foreach $element (@QS) {
        ($key, $value) = split(/=/, $element);
        $querydata{$key} = $value;
    }
    return $querydata;
}
----------------------

Ideelt set ønsker jeg at lægge subrutinen getqs i en ekstern fil, på en måde så jeg stadigvæk kan kalde funtionen med getqs.

Hvordan gøres dette (skåret ud i pap)....

I hvert script du har, hvor du vil bruge denne funktion, skal du blot skrive:
require "sti/til/din/fil.pl";
Dog skal du i bunden af den fil du require altid have et "1;" til sidst (et-tal og et semikolon).
Dine main scripts skal derfor indeholde ovenstående linie, og dit "require"-script skal indeholde noget ala:

--- kode start
#!/usr/local/bin/perl
getqs($ENV{'QUERY_STRING'});

sub getqs {
    my ($QS) = @_;
    @QS = split(/&/, $QS);
    foreach $element (@QS) {
        ($key, $value) = split(/=/, $element);
        $querydata{$key} = $value;
    }
    return $querydata;
}
1;
--- kode slut - bemærk 1; til sidst
Håber det giver mening.

hov. rutinen skal selvfølgelig ikke kaldes fra dit require-script..... den havde lige sneget sig ind!