#!/usr/bin/perl

use CGI;
use strict;
use IO::File;

my $x=0;
my $csv = "internet.csv";
my @csvdaten;

my ($status, $artnr, $name, $short_description);

my $headdesc = '($status, $artnr, $name, $short_description)'; 

my $content = $headdesc;

# Datei internet.csv öffnen
open (IN_CSV, "<$csv") ||
    die "Datei internet.csv nicht lesbar";

# csv-Datei zeilenweise auswerten
while (<IN_CSV>){
    chop($_);
    $x++;
    
    if ($x=='1') {
        $_ =~ s/[ .{}]//g;
        $headdesc =~ s/[ \$\(\)]//g;
        $headdesc =~ s/,/;/g;
        
        open (OUT_STAMM, ">internet_artikelstamm.csv");
        print OUT_STAMM $headdesc, "\n";
        close (OUT_STAMM);

    }
    else {
        
        my ($ArtikelNr, $Bezeichnung, $Bezeichnung2) = split(/;/,$_);

        $artnr = $ArtikelNr;
        $name = $Bezeichnung;
        $short_description = $Bezeichnung2;
        $status = "Aktiviert";
        
        #
        #
        # weitere Manipulation der String-Daten
    }

    my @stammdaten = ($status,  $artnr, $name, $short_description);

    if (($name !~ /\*\*/)) {

        my $artikelstamm = join(';',@stammdaten);

        open (OUT_STAMM, ">>internet_artikelstamm.csv");
        print OUT_STAMM $artikelstamm, "\n";
        close (OUT_STAMM);

    }
}

close IN_CSV;