Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 13
 |
|< 1 ... 8 9 10 11 12 >| |  |
114 Einträge, 12 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
Use of uninitialized value in sprintf at blubb.pl line 17, <DATA> line 210.
Use of uninitialized value in sprintf at blubb.pl line 17, <DATA> line 210.
Use of uninitialized value in sprintf at blubb.pl line 17, <DATA> line 210.
Use of uninitialized value in length at blubb.pl line 43, <DATA> line 210.
Use of uninitialized value in length at blubb.pl line 43, <DATA> line 210.
Use of uninitialized value in length at blubb.pl line 43, <DATA> line 210.
<<
Use of uninitialized value in sprintf at blubb.pl line 35, <DATA> line 210.
Use of uninitialized value in sprintf at blubb.pl line 35, <DATA> line 210.
Use of uninitialized value in sprintf at blubb.pl line 35, <DATA> line 210.
<<
![[Homepage]](/battie/theme/default/homepage.gif)
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
42
43
44
45
46
47
#!/usr/bin/perl -w
use warnings;
use strict;
my @array = ('Mailbox','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 $zeile;
my @matrix = ();
@matrix = split(/[\t\s\\]/, $zeile); # $_ ist standard
#@matrix = split(/\s/);
foreach (@matrix) {
$string =~ s/^\s+/;/g; # fuehrende und
$string =~ 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;
}
1
2
3
Mailbox Last Logged on By Size (KB) Total Items Last Logon Time Last Logoff Time
Auerknecht Benni DOMAINNAME\benutzername 32 016 85 5.7.2006 16:36 5.7.2006 16:36
Ahrens-Lessing Sieglinde DOMAINNAME\benutzername 66 715 457 6.7.2006 6:31
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
#!/usr/bin/perl -w
use warnings;
use strict;
my @data;
open(DATA, "<blubb.txt") or die "Datei nicht gefunden\n";
while(my $zeile = <DATA>) { # alles was unten in __DATA__ steht symbolisiert eine Datei
chomp $zeile;
my @matrix = split(/[\t\s\\]/, $zeile); # $_ ist standard
foreach my $string (@matrix) {
$string =~ s/^\s+/;/g; # fuehrende und
$string =~ 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;
}
1
2
3
Mailbox Last Logged <<
Auerknecht Benni DOMAINNAME <<
Ahrens-Lessing Sieglinde DOMAINNAME <<
1
2
3
4
5
Schrift
Tipp zum Debugging
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
for my $entry(@data){
print sprintf("%-*s %-*s %-*s<<\n",$len_vorname,$entry->[0],
$len_nachname,$entry->[1],
$len_domain,$entry->[2]);
}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
42
43
44
#!/usr/bin/perl
use warnings;
use strict;
my @data;
my $file = 'mailbox.txt';
my $delimiter = '\s{2,}|\t|\\';
my $columns = 2;
open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>) { # alles was unten in __DATA__ steht symbolisiert eine Datei
chomp $line;
my @array = (split(/$delimiter/,$line))[0..($columns-1)];
foreach (@array) {
s%^\s+%%g; # fuehrende und
s%\s+$%%g; # abschliessende Blanks entfernen
} # foreach
push(@data,[@array]);
} # while
close $fh;
my $format = '';
for my $i(0..scalar(@{$data[0]})-1){
my $max = find_longest(map{$_->[$i]}@data);
$format .= '%-'.$max.'s ';
}
for my $entry(@data){
print sprintf($format . "<<\n",@$entry);
}
sub find_longest{
my $longest = 0;
for(@_){
my $length = length($_);
$longest = $length if($length > $longest);
}
return $longest;
}
1
2
3
4
5
6
my $columns = 5;
open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>) { # alles was unten in __DATA__ steht symbolisiert eine Datei
chomp $line;
my @array = (split(/[\t\s\\]/,$line))[0..($columns-1)];
|
|< 1 ... 8 9 10 11 12 >| | |
114 Einträge, 12 Seiten |
![[Powered by Battie]](/battie/img/powered.png)
