Datentyplänge auslesen mit perl

[Tim]

tach,

wie kann ich denn mit perl bei einer mysql datenbank die max länge eines varChar DatenTypen auslesen?

Vielen Dank.
Tim.

[Dieter Raber]

Hallo Tim,

Du kannst eine Query machen SHOW fields FROM tabelle, 'Type' enthaelt dann die gewuenschte Information, also zB. 'varchar(50)'

Gruß,

Dieter

[dedlfix]

echo $begrüßung;

wie kann ich denn mit perl bei einer mysql datenbank die max länge eines varChar DatenTypen auslesen?

Die MySQL-API stellt Funktionen zur Verfügung, die Name, Länge, Typ und Flags von den Spalten eines Ergebnisses einer Datenbankabfrage zur Verfügung stellen. Entsprechende Pendants gibt es sicher auch in dem von dir genutzten Perl-Modul.

echo "$verabschiedung $name";

[Tim]

hab da mal ein funktion gebaut:

sub getTypeSize(){
  my $aref = $dbh->selectall_arrayref("SHOW Fields FROM @_[0]");
  my %returnWert;
  for my $row (@$aref){
    my($Filed, $Type) = @$row;
    $Type =~ /varchar((.*))/;
    $returnWert{$Filed} = $1;
  }
  return %returnWert;
}

aufruf:
%TypeSize= &getTypeSize('KUNDEN');

print $TypeSize{'Name'};
print $TypeSize{'Email'};

Viel Spaß.