Leser: 13
![]() |
|< 1 ... 5 6 7 8 9 10 11 12 >| | ![]() |
114 Einträge, 12 Seiten |
1
2
3
Argument "Nachname" isn't numeric in numeric lt (<) at C:\DOCUME~1\anmelden\LOCALS~1\Temp\dzprltmp.pl line 29, <DATEN> line 159.
Argument "Vorname" isn't numeric in numeric lt (<) at C:\DOCUME~1\anmelden\LOCALS~1\Temp\dzprltmp.pl line 29, <DATEN> line 159.
Argument "Domain\\Benutzername" isn't numeric in numeric lt (<) at C:\DOCUME~1\anmelden\LOCALS~1\Temp\dzprltmp.pl line 29, <DATEN> line 159.
NachnameVornameDomain\Benutzername
while(length($r) < $_[0]) {$r.='matrix'}
while(length($r) < $_[0]) {$r.=' '}
while(length($r) < $_[1]) {$r.=' '}
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
my @array = ('nachname','usw');
my @_daten = (""); # Speicher fuer alle Datensaetze
my @matrix = (\@array,\@_daten); #stopf die beiden arrays in ein array
my @data;
open(DATA, "<blubb.txt") or die "Datei nicht gefunden\n";
while(<DATA>) { # alles was unten in __DATA__ steht symbolisiert eine Datei
chomp;
my @matrix = ();
@matrix = split(/;/); # $_ ist standard
foreach (@matrix) {
s%^\s+%%g; # fuehrende und
s%\s+$%%g; # abschliessende Blanks entfernen
} # foreach
push(@data,[@matrix[0..2]]);
} # while
my $len_vorname = find_longest(map{$_->[0]}@data);
my $len_nachname = find_longest(map{$_->[1]}@data);
my $len_domain = find_longest(map{$_->[2]}@data);
for my $entry(@data){
print sprintf("%-*s %-*s %-*s<<\n",$len_vorname,$entry->[0],
$len_nachname,$entry->[1],
$len_domain,$entry->[2]);
}
sub find_longest{
my $longest = 0;
for(@_){
my $length = length($_);
$longest = $length if($length > $longest);
}
return $longest;
}
Use of uninitialized value in sprintf at C:\DOCUME~1\benutzername\LOCALS~1\Temp\dzprltmp.pl line 34, <DATA> line 210.
print sprintf("%-*s %-*s %-*s<<\n",$len_vorname,$entry->[0],
1
2
Nachname@matrix@matrix@matrix@matrixVorname@matrix@matrix@matrix@matrixDomain\Benutzername@matrix@matrix@matrix
Nachname Vorname Domain/Benutzername <<
Nachname Vorname Domain/Benutzername <<
![]() |
|< 1 ... 5 6 7 8 9 10 11 12 >| | ![]() |
114 Einträge, 12 Seiten |