Opened by Math55 at 2004-01-18 22:12
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Nö, der Kommentar wird gebraucht, siehe meinen Ansatz von oben, bevor wir wussten, dass es komplizierter ist:
Code: (dl
)
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);
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
use strict; use warnings; Link zu meiner Perlseite