[perl] array opslaan

[BKJ]

Ik heb een aantal script die allemaal gebruik maken van een zelfde set van arrays:

@voorbeeld1 = ("a","b");
@voorbeeld2 = ("c","d");
@voorbeeld3 = ("e","f");

Hoe kan ik deze makkelijk op 1 plek opslaan en zodat de scripts daar gebruik van kunnen maken?

Ik had al bedacht:

file : moet uitgelezen worden & gesplit...nogal onhandig
db: in mysql db zetten en uitlezen...ook onhandig

Kan het sneller? Bv via module? Of iets anders? Heeft perl hier iets voor?

[Soultaker]

Als je gebruik maakt van de Data::Dumper functies is het opslaan in bestanden niet zo ingewikkeld.

Je kunt ook overwegen om die arrays gewoon in Perl code op te slaan en die te includen in je scripts, als je ze nooit vanuit je code hoeft aan te passen.

[BKJ]

Mooi! Bedankt voor het op weg helpen! Ik heb nu het volgende:


arrays.cgi:

code:

#!/usr/bin/perl

@voorbeeld1 = ("a","b");
@voorbeeld2 = ("c","d");
@voorbeeld3 = ("e","f");

In de files die ze nodig hebben:

require "arrays.cgi";

Done...!