Opened by Oliver_M at 2007-10-22 11:29
User since
2005-12-17
1615 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
2005-12-17
1615 Artikel
HausmeisterIn
Ja, die ist dann auch bearbeitet.
Warum testet ihr das nicht einfach mal? Also...
create.pl
read.pl
change.pl
Dann wie folgt in zwei Fenstern vorgehen:
1. im ersten Fenster create.pl ausführen, um foo.txt anzulegen
2. im ersten Fenster read.pl ausführen und bei der Eingabeaufforderung warten
3. im zweiten Fenster change.pl ausführen
4. im ersten Fenster "Enter" drücken
und siehe da....
Warum testet ihr das nicht einfach mal? Also...
create.pl
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
open my $fh, '>', 'foo.txt' or die $!;
for (1..10) {
print $fh "$_ Perl slogan: Easy things should be easy,";
print $fh " and hard things should be possible.\n";
}
close $fh;
read.pl
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
open my $fh, '<', 'foo.txt' or die $!;
seek($fh, 0, 2);
print "File size: ", tell($fh), "\n";
print "Change file and press enter ....\n";
<STDIN>; # jetzt editiere die Datei
seek($fh, 0, 2);
print "New file size: ", tell($fh), "\n\n";
seek($fh, 0, 0);
print <$fh>;
close $fh;
change.pl
Code: (dl
)
1
2
3
4
5
6
7
#!/usr/bin/perl
use strict;
use warnings;
open my $fh, '>>', 'foo.txt' or die $!;
print $fh "hello world\n";
close $fh;
Dann wie folgt in zwei Fenstern vorgehen:
1. im ersten Fenster create.pl ausführen, um foo.txt anzulegen
2. im ersten Fenster read.pl ausführen und bei der Eingabeaufforderung warten
3. im zweiten Fenster change.pl ausführen
4. im ersten Fenster "Enter" drücken
und siehe da....
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
File size: 791
Change file and press enter ....
New file size: 803
1 Perl slogan: Easy things should be easy, and hard things should be possible.
2 Perl slogan: Easy things should be easy, and hard things should be possible.
3 Perl slogan: Easy things should be easy, and hard things should be possible.
4 Perl slogan: Easy things should be easy, and hard things should be possible.
5 Perl slogan: Easy things should be easy, and hard things should be possible.
6 Perl slogan: Easy things should be easy, and hard things should be possible.
7 Perl slogan: Easy things should be easy, and hard things should be possible.
8 Perl slogan: Easy things should be easy, and hard things should be possible.
9 Perl slogan: Easy things should be easy, and hard things should be possible.
10 Perl slogan: Easy things should be easy, and hard things should be possible.
hello world
What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.