2012-04-03 3 views
1

Ich habe sagen 100 benutzerdefinierte Pakete wie (Datei1.pm, Datei2.pm, Datei3.pm, Datei4.pm, Datei5.pm, Datei6.pm)Wie importiert man mehrere benutzerdefinierte Module in unserem eigenen Perl-Skript?

Jede Datei enthält eine Funktion.

Ich möchte alle in meinem einfachen Perl-Skript importieren. Wie Sie sie auf einfache Weise importieren. Bitte schlagen Sie einen einfachen Weg vor?

+2

Klingt so, als müsste man sie einfach umstrukturieren, um sie in logische Module zu stecken, anstatt eine große Anzahl von einzelnen Funktionsdateien zu haben. – Quentin

+0

Können Sie mir ein einfaches Beispiel für It ????? –

+3

Ein einfaches Beispiel für das Refactoring von Code, den ich nicht sehen kann, das tut etwas, von dem ich nichts weiß? Nr. – Quentin

Antwort

2

Sie können dieses kleine Skript verwenden, um alle 100 Module in sie zu laden:

# pragma 
use strict; 
use warnings; 

# standard modules needed by the script 
use Module::Load; 

# the loop below loads all 100 of your custom modules (file1.pm, file2.pm, ...) 
foreach my $i (1 .. 100) 
{ 
    load "file$i"; 
} 
+0

Was bedeutet es deiner Antwort ???? –

+0

@ user970553 Nur meine Antwort bearbeitet, um etwas ausführlicher zu sein. – Stamm

+0

Not Working Saying "String Gefunden, wo der Bediener in der Nähe von" load "-Datei erwartet $ i" "{Willst du Last vorladen?} –

0

Wie ich in einem Kommentar sagte, ich denke, das eine schreckliche Art und Weise ist die Code-Basis zu organisieren. Aber vorausgesetzt, dass Sie nichts dagegen tun können, sollten Sie sich das Modul Toolkit ansehen.