Perl-Modul verwenden - #113318 (Perl/CGI)

renee

2008-08-11 11:55

User since
2003-08-04
14371 Artikel
ModeratorIn

mife+2008-08-10 12:02:39--
#!/usr/bin/perl

use lib qw(/www/htdocs/w00a0365/cgi-bin/diff_perl/lib/Algorithm);

perl Makefile.PL PREFIX=/www/htdocs/*****/cgi-bin/diff_perl/lib LIB=/www/htdocs/*****/cgi-bin/diff_perl/lib
make
make test
make install

Du vermischst da einiges.

Die use lib-Anweisung fügt etwas dem Array @INC hinzu. Damit erweiterst Du also "nur" den Suchpfad für Module. Wenn Du in ein Verzeichnis wechsel willst, dann musst Du chdir nehmen.

Die 4 anderen Zeilen sind Kommandozeilenbefehle und *kein* Perl-Befehle.

Quote
Wie der launige Hinweis "...und ein paar system()-Befehle" umzusetzen ist, weiß ich nicht.

Hast Du Dir die Hilfe zu system mal durchgelesen? (perldoc -f system).

Code (perl): (dl )

#!/usr/bin/perl

chdir "/www/htdocs/w00a0365/cgi-bin/diff_perl/lib/Algorithm";

system( "perl Makefile.PL PREFIX=/www/htdocs/*****/cgi-bin/diff_perl/lib LIB=/www/htdocs/*****/cgi-bin/diff_perl/lib" );
system( "make" );
system( "make test" );
system( "make install" );

Hier fehlt jedoch noch die Fehlerbehandlung...

Im weiteren Verlauf des Postings klingt es so, als ob das Modul schon installiert wäre. Was sagt denn das Skript

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

print "Content-Type: text/plain\n\n";

eval{
  require Algorithm::Diff;
  print $INC{'Algorithm/Diff.pm'};
  1;
} or print $@;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/