script dxf in xml File wandeln

[sisam]

hier der pasende teil des scriptes

Code: Alles auswählen

elsif ( $counter == 6 )
    {
	$rounded = sprintf ("%.0f", $_);
        print "\t\t\<Point x\=\"$rounded\"";
        print OUTFILE "\<Point x\=\"$rounded\"";
    }
    elsif ( $counter == 8 )
    {
	$rounded = sprintf ("%.0f", $_);
        print " x\=\"$rounded\"\>\n";
        print OUTFILE " x\=\"$rounded\"\>\n";
    }
    elsif ( $counter == 10 )
    {
	$rounded = sprintf ("%.0f", $_);
        print "\t\<ShapeCycle radous\=\"$rounded\"\>\n";
        print OUTFILE "\<ShapeCycle radous\=\"$rounded\"\>\n";
    }

[sisam]

habs schon geschaft:

Code: Alles auswählen

    elsif ( $counter == 6 )
    {
	$rounded = sprintf ("%.0f", $_);
        print "\t\t\<Point x\=\"$rounded\"";
 #       print OUTFILE "\t\t\<Point x\=\"$rounded\"";
	$point_x = "\t\t\<Point x\=\"$rounded\"";
    }
    elsif ( $counter == 8 )
    {
	$rounded = sprintf ("%.0f", $_);
        print " y\=\"$rounded\"\>\n";
#        print OUTFILE " y\=\"$rounded\"\>\n";
	$point_y = " y\=\"$rounded\"\>\n";
    }
    elsif ( $counter == 10 )
    {
	$rounded = sprintf ("%.0f", $_);
        print "\t\<ShapeCycle radius\=\"$rounded\"\>\n";
        print OUTFILE "\t\<ShapeCycle radius\=\"$rounded\"\>\n";
	print OUTFILE $point_x;
	print OUTFILE $point_y;
        print "\t\<\/ShapeCycle\>\n";
        print OUTFILE "\t\<\/ShapeCycle\>\n";
        print "\<\/Zone\>\n";
        print OUTFILE "\<\/Zone\>\n";
    }

[Liffi]

Vielleicht solltest du auf cpan[1] mal nach einem Paket schauen, das XML erzeugt. Da gibt es einige brauchbare.
Die werden dein Leben vereinfachen (nunja, in erster Linie erstmal das Programm).
Damit kann man schneller, sicherer und korrekter XML Code erzeugen.
XML::Writer wäre zum Beispiel ein solches Modul, XML::Simple ein anderes. Wenn es am Ende perfomancekritisch wird oder das Projekt sehr groß, landet man sehr oft bei XML::LibXML.

[1]http://cpan.org

EDIT::
Bei vielen deiner prints ist es einfacher einfache Anführungszeichen zu nehmen. Dann brauchst du nicht ganz so viel escapen.

[mclien]

OK, dann brauch ich/wir erstmal einen Tip wo es eine kleine Einführung in die Verwendung von Perl Modulen gibt.
Sehr praktisch wäre das dann noch in deutsch (sisam ist erst in der 7. Klasse, somit ist es mit english noch etwas anstrengend).

BTW:
Ich LIEBE das DF:
-erst habe ich selbst den Thread gestartet, um das script zu bauen, das aus dxf-files map-files für armagetronad erstellt.
-Ab einem bestimmten Zeitpunkt meinte ich "Lese Dir mal den Thread durch, melde Dich an, versuch den code zu verstehen"
..3 Stunden später:

sisam: "kannst Du mal schauen, ich versteh da was nicht"
mclien:" Frag im Forum"
kurz danach erkläre ich noch was zu einem beitrag und bei der Hälfte meiner Erklärung:
sisam: "Ich hab's kapiert, kannst jetzt wieder abhauen"

[Liffi]

OK, dann brauch ich/wir erstmal einen Tip wo es eine kleine Einführung in die Verwendung von Perl Modulen gibt.
Sehr praktisch wäre das dann noch in deutsch (sisam ist erst in der 7. Klasse, somit ist es mit english noch etwas anstrengend).

Es gab/gibt im "freies Magazin" eine Tutorialserie. Sie ist noch nicht abgeschlossen, aber die Teile, die schon vorhanden sind, reichen auf jeden Fall aus.
Die reine Tutorialseite gibt ist bei perl-community[1].
[1]http://wiki.perl-community.de/Wissensba ... l5Tutorial