Opened by shaihulud at 2006-04-12 17:50
User since
2003-10-20
610 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
610 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
use File::Basename;
my @namendavor =();
my @arry = glob('verz/*.a00');
for(@arry)
{
($name,$path,$suffix) = fileparse($fullname,@suffixlist)
print "$name\n";
push(@namendavor,$name);
}
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;