Opened by peggy at 2004-08-09 14:19
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Ohne wirklich zu verstehen, was Du erreichen willst und wie die Daten aussehen, hab ich diesen Code geschrieben:
(Was ist $_ bei Dir? Wie sehen die Daten aus?)
Ausgabe: Der Wert von 0 ist 30!
Nutzt das was?\n\n
<!--EDIT|Crian|1092054926-->
(Was ist $_ bei Dir? Wie sehen die Daten aus?)
Code: (dl
)
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
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/perl
use strict;
use warnings;
my @data = <DATA>;
my @t;
push @t, [ split /\s+/, $_ ] for @data;
my $limit = 17;
my %p;
$_ = 9;
for my $s (0..$#t) {
for my $z (0..$#{$t[$s]}) {
if (
$t[$s][$z] == $_ or
$t[$s][$z] < $limit
)
{
last;
}
elsif ($t[$s][$z] >= $limit) {
if ($t[0][$z] != $t[$s][0]) {
$p{$t[0][$z]} = $t[$s][0];
}
else {
print "gleiches Wort";
last;
}
}
}
}
while (my ($schl,$wert) = each(%p)) {
print "Der Wert von $schl ist $wert!\n";
}
_ _ D A T A _ _
0 10 20 30
10 1 2 3
20 2 3 4
30 3 4 5
Ausgabe: Der Wert von 0 ist 30!
Nutzt das was?\n\n
<!--EDIT|Crian|1092054926-->
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