#!/usr/bin/perl


use strict;
use warnings;
use Net::FTP;
#use Text::CSV;

#######ftp Zugangsdaten und Zielverzeichnis festlegen########

my $host = "ftp.1234.de";
my $user = "ich";
my $pass = "1234";
my @dest_dir = "/home/data/incoming/";
my $ftp = "";
my @dir = "";
my $filename = "";
my $filename_converted = "";
my $csv = "";
my $ocsv = "";
my $line = "";
$ftp = Net::FTP->new($host, Debug => 0)
     	or die "Es konnte keine Verbindung zu $host: $@ aufgebaut werden", $ftp->message; 

$ftp->login($user, $pass);
$ftp->cwd("/daten/outgoing/")
	or die "Ziel-Verzeichnis nicht gefunden", $ftp->message;
@dir = $ftp->ls('*.*');

foreach(@dir){

    $filename=$_;
  
    $ftp->get($filename, "@dest_dir$filename");
	
#ab hier soll umgewandelt werden
   
open my $fh, '<', "@dest_dir$filename" or die "Could not open $filename: $!";
open my $ofh, ">", "@dest_dir$filename_converted" or die "Could not open $filename_converted: $!";

while (my $line = <$fh>){
my $status  = $csv->parse($line); # ggfs. fehler abfangen
    my @columns = $csv->fields();

    $status = $ocsv->combine(@columns); # ggfs. fehler abfangen
    $line   = $ocsv->string();

    $line =~ tr/,/;/;

print $ofh $line;

close $fh;

	}
  }
 print "\n Download beendet \n";
$ftp->quit();