2012-04-04 7 views
-5

Mögliche Duplizieren:
how to import multiple custom modules in our own perl script?Wie importiert man mehrere Pakete in Perl-Skript?

ich einige Pakete. Ich möchte sie alle auf einmal importieren. Gerade jetzt, ich tue wie

use lib 'path to packages'; 

use package1; 

use package2; 

...... 

use packageN; 

das ist gut funktioniert. aber ich möchte alle Pakete in nur einem einzigen Befehl importieren. Kann mir jemand einen einfachen Weg vorschlagen?

+0

Ich möchte nicht verwenden "Anweisung" für jedes Paket verwenden. Sag mir ein paar gute Möglichkeiten zu tun ???? –

+1

Was ist die Motivation hinter diesem Designziel? – DavidO

+0

Eigentlich teste ich Kerl. Ich erstelle einige Subroutinen, die ich in fast jedem Testskript verwenden werde. Also habe ich ein Paket für jede Subroutine erstellt, aber jetzt ist das Importieren das Problem? –

Antwort

3

Audrey Tang hat ein relativ neues Modul auf dem CPAN namens 'use', das genau das tun wird, was Sie verlangen. Von seiner Synopsis:

use use qw[ strict warnings methods invoker ];

Es andere Funktionen, einschließlich der Möglichkeit, Optionen wie Importlisten angeben, lesen, damit Sie die Dokumentation. Aber setzen Sie nur Ihre eigenen Modulnamen an die Stelle der in meinem Beispielcode aufgezählten.

Update: Also, um es so klar wie möglich zu buchstabieren: Installieren Sie zuerst das Modul 'use', mit dem ich am Anfang dieser Antwort verbunden bin. Zweitens, ändern Sie den Code, den Sie in Ihrer Frage gestellt, so dass es wie folgt aussieht:

use lib 'path to packages'; 
use use qw[ package1 package2 package3 package4 ..... ]; 
+0

Ich bin verwirrt, was in meinem Modul zu schreiben und was in ny Skript schreiben, die dieses Modul verwendet ??? –

+0

@ user970553 Siehe mein "Update". – DavidO

+0

Können Sie das bitte durch ein beliebiges Beispiel erläutern ??? –

2

Nun, könnten Sie ein Modul machen, dass es für Sie tut. Zum Beispiel:

Jetzt funktioniert das obige Modul nicht, aber Sie erhalten das Wesentliche. Wenn Sie ein funktionierendes Beispiel dafür möchten, sehen Sie sich the source code for Modern::Perl an.

Wenn Sie so etwas tun, müssen Sie nur eine Zeile schreiben!

Hoffe, das hilft!

Verwandte Themen