Leser: 1
![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |
[E|B,08.01.2005, 22:26]20.000 Zeilen Code, den es aber noch nicht zum Download gibt. (erst später)
1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/perl
use strict;
use warnings;
# berechnen von 14x^3 + 5x^2 - 7x
my $zahl = 14 * 2**3 + 5 * 2**2 - 7 * 2;
my $zahl2 = 14 * 3**3 + 5 * 3**2 - 7 * 3;
print $zahl,"\n",$zahl2,"\n";
# usw...
1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/perl
use strict;
use warnings;
print func(2),"\n",func(3),"\n";
sub func{
my ($x) = @_;
return 14 * $x**3 + 5 * $x**2 - 7 * $x;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my %hash = (a => 10, b => 20, c => 30);
my $hashRef = \%hash;
foreach (keys %$hashRef) {
print "$_ => $hashRef->{$_}\t";
}
print "\n";
$hashRef->{d} = 40;
foreach (keys %$hashRef) {
print "$_ => $hashRef->{$_}\t";
}
print "\n";
$hashRef->{e} = 50;
foreach (keys %$hashRef) {
print "$_ => $hashRef->{$_}\t";
}
print "\n";
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my %hash = (a => 10, b => 20, c => 30);
my $hashRef = \%hash;
$hashRef->{d} = 40;
&PrintHashref($hashRef);
$hashRef->{e} = 50;
&PrintHashref($hashRef);
# -------------------------------------
sub PrintHashref {
my ($hashref) = @_;
foreach (keys %$hashRef) {
print "$_ => $hashRef->{$_}\t";
}
print "\n";
}
1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/perl
use warnings;
use strict;
my $params = &ParseProgramParameters();
for my $i (0..$params->{count}) {
my $data = &ReadAndParseData($params, $i);
&WriteDataToDb($data, $i);
}
.......
![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |