#!/usr/bin/perl
use strict;
my $top="
Integral Models of Representations of Weyl groups
Integral Models of Representations of Weyl groups
Here are integral models of the following Weyl groups.
";
my $bottom="
";
print $top;
my @dirs;
opendir(DIR,'.')||die("Can't open");
my @dirs= grep {/^[A-G0-9]*$/} readdir(DIR);
@dirs=sort {$a cmp $b} @dirs;
closedir(DIR);
print "
";
foreach my $type (qw(A B D E F G)){
print "- $type: ";
my @mydirs= grep {/$type/} @dirs;
foreach my $dir (@mydirs){
# $dir=s/[A-G]+//g;
print "$dir ";
}
}
print "
";
open(IN,"){
print;
}
close(IN);
print $bottom;