Download - ePIC

A Quelltexte
47
48
# Funktionsaufruf
datenursprung ( $datenursprung ) ;
49
50
51
52
# Abfrage von Benutzername und Passwort
DBDATEN :
ReadMode 1 , IN ;
53
print " \ nGeben Sie bitte Ihren Benutzernamen ein :\ n " ;
$uid = ReadLine 0;
chop $uid ;
54
55
56
57
print " Geben Sie bitte Ihr B e n u t z e r p a s s w o r t ein :\ n " ;
ReadMode ( ’ noecho ’) ;
$pwd = ReadLine 0;
chop $pwd ;
58
59
60
61
62
ReadMode 0 , IN ;
63
64
65
# ------------------------------------------------------------------
66
67
68
# Aufbau der D a t e n b a n k v e r b i n d u n g
$export = new Sybase :: DBlib $uid , $pwd , $srv or goto DBDATEN ;
69
70
71
# Funktionsaufruf
dbabfragen ( $datenursprung ) ;
72
73
74
# SQL - Abfrage ausfuehren
$export - > dbsqlexec ;
75
76
# ------------------------------------------------------------------
77
78
79
# Variable fuer die Kontrollausgabe
$zeile = 2;
80
81
82
83
84
85
86
87
88
89
90
91
92
# Abfrageresultat in die Datei schreiben
while ( $export - > dbresults != NO_MORE_RESULTS )
{
# jede Zeile kommt in ein Array " @dat "
while ( @dat = $export - > dbnextrow )
{
# Alle Strings der Liste ...
foreach $export ( @dat )
{
# ... in die Datei schreiben , Tabulator getrennt
print DATEI " $export \ t " ;
}
93
# Kontrollausgabe
print " Schreibe Zeile : $zeile \ n " ;
$zeile ++;
94
95
96
97
# Zeilenumbrauch nach jedem geschriebenem Datensatz
print DATEI " \ n " ;
98
99
}
100
101
# Textausgabe nach Abschluss des Schreibens
if ( $datenursprung eq " 1 " )
{
print " Schreiben von << $reiseziel - $reisenr / $fahrtabschnitt > > - Daten
erledigt !\ n " ;
}
elsif ( $datenursprung eq " 2 " )
{
102
103
104
105
106
107
108
128