Opened by Rambo at 2005-06-15 13:59
User since
2003-08-14
803 Artikel
BenutzerIn
2003-08-14
803 Artikel
BenutzerIn
ich habe die anregungen versuch umzusetzen
und jetzt mal so probiert
solange hier "print +(sort <DATA>)[-1], "\n";" DATA drin steht
gibt er mir den letzten richtigen wert aus, aber wenn ich
dort $folder eintrage bekomme ich wieder die ganze liste
des verzeichnisses.
was mach ich hier falsch?
merci
rambo
und jetzt mal so probiert
Code: (dl
)
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
use strict;
use warnings;
use Data::Dumper;
my $dir = '.';
my $folders = "";
opendir (DIRHANDEL, "$dir")or warn "can't open $dir\n Error: $!";
while (defined ($folders = readdir(DIRHANDEL)))
{
&new($folders);
}
closedir (DIRHANDEL);
sub new
{
my ($folders) = @_;
#my @t1 = sort $folders,[-1];
#print @t1, "\n";
print +(sort <DATA>)[-1], "\n";
#print +(sort <*$folders>)[-1], "\n";
#print pop @{[sort ($folders)], "\n"};
#print $folders, "\n";
}
2.0.01.00.05
2.0.01.00.06
2.1.00.00.01
2.0.02.00.01
2.0.02.00.02
solange hier "print +(sort <DATA>)[-1], "\n";" DATA drin steht
gibt er mir den letzten richtigen wert aus, aber wenn ich
dort $folder eintrage bekomme ich wieder die ganze liste
des verzeichnisses.
was mach ich hier falsch?
merci
rambo