Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 502a10d4

Von Moritz Bunkus vor etwa 3 Jahren hinzugefügt

  • ID 502a10d47975bb857364282ac2bfe7f995b21a86
  • Vorgänger 429a7c21
  • Nachfolger e71def0d

MT940: Zeichensatz der Datei bei Import auswählen können

Unterschiede anzeigen:

SL/MT940.pm
24 24 
}
25 25 

  		




  26
  26
  
    
sub parse {


  		




  27
  
  
    
  my ($class, $file_name) = @_;


  		




  
  27
  
    
  my ($class, $file_name, %params) = @_;


  		




  28
  28
  
    

  		




  29
  29
  
    
  my ($local_bank_code, $local_account_number, %transaction, @transactions, @lines);


  		




  30
  30
  
    
  my $line_number = 0;


  		




  ......




  40
  40
  
    
  my ($active_field);


  		




  41
  41
  
    
  foreach my $line (read_file($file_name)) {


  		




  42
  42
  
    
    chomp $line;


  		




  43
  
  
    
    $line = Encode::decode('UTF-8', $line);


  		




  
  43
  
    
    $line = Encode::decode($params{charset} // 'UTF-8', $line);


  		




  44
  44
  
    
    $line =~ s{\r+}{};


  		




  45
  45
  
    
    $line_number++;


  		




  46
  46
  
    

  		












Auch abrufbar als:  Unified diff