Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 671a5253

Von Jan Büren vor fast 4 Jahren hinzugefügt

  • ID 671a5253d0c37a057f1fdf5d6588b648c7af4a82
  • Vorgänger 16fa1465
  • Nachfolger 50e99be3

MT940 parse Feld 25 nach östereichischen Vorgaben

Es scheint Konvention zu sein nach zwei // noch die Länderkennung
in Feld 25 zu schreiben und mit der optional gültigen Währung zu enden
Regex um exakt dieses Präfix vor BLZ/Kontoerkennung erweitert

Unterschiede anzeigen:

SL/MT940.pm
50 50 
  }
51 51 

  		




  52
  52
  
    
  foreach my $line (@lines) {


  		




  53
  
  
    
    if ($line->[0] =~ m{^:25:(\d+)/(\d+)}) {


  		




  
  53
  
    
    # AT MT940 has the format  :25://AT20151/00797453990/EUR


  		




  
  54
  
    
    # DE MT940 has the format  :25:BLZ/Konto


  		




  
  55
  
    
    # https://www.bankaustria.at/files/MBS_MT940_V5107.pdf


  		




  
  56
  
    
    if ($line->[0] =~ m{^:25:(?://AT)?(\d+)/(\d+)}) {


  		




  
  57
  
    

  		




  54
  58
  
    
      $local_bank_code      = $1;


  		




  55
  59
  
    
      $local_account_number = $2;


  		




  56
  60
  
    

  		












Auch abrufbar als:  Unified diff