Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
 |
 |
7 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
sub abc {
hier wird etwas berechnet -egal was....
}
sub def {
hier wird etwas berechnet -egal was....
}
sub ghi {
hier wird etwas berechnet -egal was....
}
# Haupt-Teil des Programms
hier wird etwas gemacht ......
hier auch....
abc();
def ();
ghi();![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
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
sub abc {
my ($file) = @_;
hier wird etwas berechnet und in $result gespeichert...
open(FILE,">$file") or die $!;
print FILE $result;
close FILE;
}
sub def {
my ($file) = @_;
hier wird etwas berechnet und in $result gespeichert...
open(FILE,">$file") or die $!;
print FILE $result;
close FILE;
}
sub ghi {
my ($file) = @_;
hier wird etwas berechnet und in $result gespeichert...
open(FILE,">$file") or die $!;
print FILE $result;
close FILE;
}
# Haupt-Teil des Programms
hier wird etwas gemacht ......
hier auch....
abc($file1);
def ($file2);
ghi($file3);
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
*STDOUT = *FILE
select(FILE);
open (STDOUT, "> abc.txt") or die "Can't open file '$file': $!\n";;
|
|
7 Einträge, 1 Seite |
![[Powered by Battie]](/battie/img/powered.png)
