Leser: 2
|< 1 2 3 4 5 >| | 46 Einträge, 5 Seiten |
[E|B,27.08.2003, 16:54]Natürlich spielt Groß- und Kleinschreibung ne Rolle! *lol*
Du kannst ja auch Zwei Dateien anlegen mit dem Namen "Test" und "test". Das ist nicht das selbe!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
open(A, ">A.TXT") or die $!;
print A "A\n";
close A or die $!;
open(A, ">a.txt") or die $!;
print A "a\n";
close A or die $!;
open(A, "A.TXT") or die $!;
while (<A>) { print }
close A or die $!
[E|B,27.08.2003, 17:03][quote=Crian,27.08.2003, 17:03]Natürlich, ich arbeite unter Windows.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
--- <bottlers.pl> ----------------------------------
#!perl -w
@bottlers = ("Signatory","Gordon & MacPhail",
"The bottlers");
print "Abfüller:\n";
foreach $bottler (@bottlers) {
print "- $bottler\n;
}
print "\nUnd nun das Ganze alphabetisch sortiert:\n";
@sorted = sort @bottlers;
$number_of_elements = @sorted;
for($i=0;$i < $number_of_elements;§i++) {
print "- " . $sorted[$i] ."\n";
}
--- </bottlers.pl> ----------------------------------
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
--- <bottlers.pl> ----------------------------------
#!perl -w
@bottlers = ("Signatory","Gordon \& MacPhail", #hier ne Änderung
"The bottlers");
print "Abfüller:\n";
foreach $bottler (@bottlers) {
print "- $bottler\n;
}
print "\nUnd nun das Ganze alphabetisch sortiert:\n";
@sorted = sort @bottlers;
$number_of_elements = @sorted;
for($i=0;$i < $number_of_elements;$i++) { # hier vor $i++
print "- " . $sorted[$i] ."\n";
}
--- </bottlers.pl> ----------------------------------
|< 1 2 3 4 5 >| | 46 Einträge, 5 Seiten |