guten Tag an alle ; ich habe ein Problem einDatei mit Perl automatischzu erstellen; ich bin zwar ein Anfänger was diese Sprache angeht; mein Datei sieht so aus :

case AR-BASE CAE-PACK EMS-PACK
1 0 0 0
2 0 1 1
3 ~0 0 0
4 ~0 1 1



ich möchte jeweils pro zeile Jedes Dezimal Zahl in einer Variable speichern und dafür habe zuerst die Datei geöffnet und iteriere über die Ganze Datei und mache ein "Match" leider funktioniert es nicht richtig ! wo ist das Problem in meinem Code ?

my $dossier= "/home/blabla/datei.txt";

open(ENTREE,"$dossier")or die "can't open this File $!";
while(<ENTREE>){
chomp;
if(m/(^?\d{1,})(.\d?)(.[0-1]{1})([^~]\d{1})/g){
dann mag etwas !!!

}
}

ich würde micht freuen falls irh mir weiter helfen würdest !!

Gruss.

Grad