Opened by bAbbAZwack at 2008-01-23 16:07
User since
2008-01-23
2 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-01-23
2 Artikel
BenutzerIn
Hallo Perl-Community,
zunächst möchte ich erst einmal sagen, dass ich neu in der Perl-Branche bin. Deshalb habt ein bisschen nachsicht mit mir ^^.
Ich habe folgende Datenstrucktur erstellt:
Nun spechere ich alle Dateinamen mit den Endungen .f90, .f, und .f90inc im Array $datei[$id]{name}:
Mein Problem ist jetzt, dass ich den ganzen Kladderadatsch Alphabetisch nach dem Dateinamen sortieren möchte. Sprich, wenn ich z.B. a.f, b.f90, asd.f, etc. in meinem Verzeichniss habe möchte ich in meinem Array unter der $id = 0 auch den Namen a.f, bei $id = 1 : asd.f usw. sortiert haben.
Vielen Dank
bAbbA
zunächst möchte ich erst einmal sagen, dass ich neu in der Perl-Branche bin. Deshalb habt ein bisschen nachsicht mit mir ^^.
Ich habe folgende Datenstrucktur erstellt:
Code: (dl
)
1
2
3
4
5
6
7
8
sub datei {
return({ name => $_[0],
program_id => undef,
include_ids => undef,
module_ids => undef,
subroutine_ids => undef,
function_ids => undef});
}Nun spechere ich alle Dateinamen mit den Endungen .f90, .f, und .f90inc im Array $datei[$id]{name}:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
my @datei;
my $toll;
opendir(DIR,".");
while(my $FilesInDir = readdir(DIR)) {
if ($FilesInDir =~ /.f90$/i || $FilesInDir =~ /.f$/i || $FilesInDir =~ /.f90inc$/i)
{
$toll = datei($FilesInDir);
push(@datei, $toll);
}
}
closedir(DIR);
Mein Problem ist jetzt, dass ich den ganzen Kladderadatsch Alphabetisch nach dem Dateinamen sortieren möchte. Sprich, wenn ich z.B. a.f, b.f90, asd.f, etc. in meinem Verzeichniss habe möchte ich in meinem Array unter der $id = 0 auch den Namen a.f, bei $id = 1 : asd.f usw. sortiert haben.
Vielen Dank
bAbbA