1
2
3
4
5
6
7
8

#!/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

Quote

Vorher hatte ich versucht das Perl-Skript zum Textvergleich direkt anzuwerfen.

Quote

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

Quote

Damit die Lib gefunden wird hatte ich den Suchpfad ergänzt.

Quote

Code: (dl )

1
2
3
4
5
6
7
8
9

#!/usr/bin/perl -w
use strict;
use File::Find;
use CGI::Carp qw(fatalsToBrowser);

BEGIN {
push(@INC, '/www/htdocs/*****/cgi-bin/diff_perl/lib/');
}; 
use Algorithm::Diff qw(diff);

1
2
3

BEGIN {
unshift(@INC, '/www/htdocs/*****/cgi-bin/diff_perl/lib/');
}; 

Quote

Zum Debuggen funktioniert die, jedoch nicht warn.

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

Quote

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

1
2
3
4
5
6
7
8

#!/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" );

1
2
3
4
5
6
7
8
9
10
11
12

#!/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 $@;

GwenDragon+2008-08-11 09:34:00--

Quote

Damit die Lib gefunden wird hatte ich den Suchpfad ergänzt.

mit push(@INC ... ?

Quote

Code: (dl )

1
2
3
4
5
6
7
8
9

#!/usr/bin/perl -w
use strict;
use File::Find;
use CGI::Carp qw(fatalsToBrowser);

BEGIN {
push(@INC, '/www/htdocs/*****/cgi-bin/diff_perl/lib/');
}; 
use Algorithm::Diff qw(diff);

Code: (dl )

1
2
3

BEGIN {
unshift(@INC, '/www/htdocs/*****/cgi-bin/diff_perl/lib/');
}; 

wäre sinnvoller, da haben die Module im inkludierten Pfad vorrang.