Gast+2008-08-21 13:41:41--ok jetzt hab ich es verstanden.. aber ich soll jetzt die nummern für die orte in hash machen.. weil keine extra datei seien soll.. wie geht das ganze dann?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl
use warnings;
use strict;
my %pnr;
$pnr{AB} = "052001";
$pnr{AC} = "052025";
$pnr{AD} = "052030";
open(my $fhDatei, "<Datei.txt") or die $!;
open(my $fhErgebnis, ">Ergebnis.txt") or die $!;
while(my $zeile = <$fhDatei>) {
chomp $zeile;
my @satz = ();
@satz = split(/ /, $zeile);
my $ergListe = "!LEER!";
$ergListe = $pnr{$satz[0]} if defined $pnr{$satz[0]};
print $fhErgebnis $ergListe."-".sprintf("%03d", $satz[2])."-".sprintf("%05d", $satz[4])."/000.00\n";
} # while
close($fhDatei) or die $!;
close($fhErgebnis) or die $!;
print "Fertig.\n";
1;