Thread Probleme mit Perl XS (7 answers)
Opened by MechaTikal at 2007-11-26 12:24

MechaTikal
 2007-11-27 11:53
#103100 #103100
User since
2007-10-10
20 Artikel
BenutzerIn
[default_avatar]
Nein, ich meine strconcat, wie es im Buch beschrieben ist. Ich habe alles Zeichen für Zeichen abgetippt.
Perldatei sieht folgendermaßen aus:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#! /usr/bin/perl

use ExtUtils::testlib;
use Mytest;         #hiermit wird Mytest.pm geladen

Mytest::print_hello_retval();  #Laden einer Funktion aus Mytest.xs
print "Three times 32 is ", Mytest::treble(32), "\n";
my $testwert = neue_funktion();
print "Testwert: $testwert\n";
my $str1 = "Das ist";
my $str2 = "ein Test";
my $outstr;
my $len = Mytest::strconcat($str1, $str2, $outstr);
print "$len\n";

sub neue_funktion {
        my $wert = 6;
        print "6+22*5-10/2 wird berechnet...\n";
        my $rueckgabewert = Mytest::berechne($wert);

        return $rueckgabewert;
}

XS siehe oben. Die restlichen Funktionen klappen, nur eben dieses strconcat nicht.

Mich ärgert es jedesmal, wenn ich ein Beispiel abtippe, um zu sehen was passiert, und nicht einmal das klappt. Dann frage ich mich: Hat sich der Autor geirrt oder bin ich zu blöd, ein paar Zeilen fehlerfrei abzuschreiben?

View full thread Probleme mit Perl XS