Variablen in externer Datei

[R.Schulze]

leg mal deinen Code bitte bei  -  ohne Code weiß ich nicht, was in "Zeile 87" steht.

Mit require wird nix "exportiert", sondern die Ausführung des Scripts wird an das Vorhandensein bestimmter Werte gebunden.

Christoph S.

Ok hier der Code aus insert.pl:

#!/usr/bin/perl5 -w

use strict;
use DBI;

use own_html;
use own_mysql;
use own_parseform;
use own_tabledata;

Hier ist Zeile 87

for($x=0; $x<@mbs_expose_elements; $x+=$element_delimit)
        {
        print "<tr><td>  $mbs_names{$mbs_expose_elements[$x]}:</td><td>";
        &PrintInput($mbs_expose_elements[$x],$mbs_expose_elements[$x+1],$mbs_expose_elements[$x+2],$FORM{$mbs_expose_elements[$x]});
        print "  </td></tr>\n";
        }

print "<tr><td colspan=2> </td></tr>\n";

#######################################################################################
BLA BLA

und nun own_tabledata.pm:
######################################################################################

package own_tabledata;

use Exporter;
@ISA=('Exporter');
@EXPORT=('$element_delimit','@mbs_expose_elements','@mbs_daten_elements','@mbs_options','@mbs_options_size','%mbs_names','HasElement');

Tabellendaten

1: Spaltenname

2: size

3: maxlength

falls maxlength < 0 dann ist es ein Pulldown

4: Immobilientypen die dieses Element haben

falls 0 dann alle

@mbs_expose_elements=(
     "Beschreibung", 40,50, "12345",
     "Strasse",  40,50, "12345",
     "Plz",  5,5,  "12345",
     "Ort",  40,50, "12345");

@mbs_daten_elements=(
     "Preis",  10,20, "12345",
     "Wohnfl",  10,10, "1234",
     "Zimmer",  10,10, "1234",
     "Verf_ab",  10,10, "12345",
     "Vermietet", 1,0,  "234",
     "Baujahr",  10,4,  "1234",
     "Grundfl",  10,10, "345",
     "Heizung",  1,-2,  "1234",
     "Sonstiges", 29,5,  "12345");

Wieviel Einträge gehören zu einem Element

$element_delimit=4;

Alle Pulldowns

@mbs_options             =("Ja","Nein","Gasheizung","Ölheizung","Ofenheizung");
@mbs_options_size        =(2,3);

Einträge in der HTML-Table vor dem Element

%mbs_names=("Beschreibung","Beschreibung","Strasse","Straße","Plz","Postleitzahl","Ort","Ort","Preis","Preis","Wohnfl","Wohnfläche","Zimmer","Zimmer","Verf_ab","Verfügbar ab","Vermietet","Vermietet","Baujahr","Baujahr","Grundfl","Grundfläche","Heizung","Heizungstyp","Sonstiges","Sonstiges");

#hier ist eigentlich noch ein UP

1;