ich würde es anders machen,
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %hash;
my @array = ('KEYWORD = wert # Kommentar',
'KEYWORD2 = wert2 # Kommentar2',
'KEYWORD3=wert3#Kommentar3',
'KEYWORD4 =wert4 # Kommentar4',
);
for (@array) {
my ($key, $val, $com) = m~^(.+?)\s*=\s*(.+?)\s*#\s*(.*)$~;
$hash{$key} = { wert => $val, kommentar => $com };
}
print Dumper(\%hash);
Ausgabe:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
$VAR1 = {
'KEYWORD4' => {
'kommentar' => 'Kommentar4',
'wert' => 'wert4'
},
'KEYWORD3' => {
'kommentar' => 'Kommentar3',
'wert' => 'wert3'
},
'KEYWORD2' => {
'kommentar' => 'Kommentar2',
'wert' => 'wert2'
},
'KEYWORD' => {
'kommentar' => 'Kommentar',
'wert' => 'wert'
}
};
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite