Hilfe bei Perl Script gesucht

Hi,

da ich für verschiedene Gameserver immer wieder mal Dateien mit z.B. Maplisten erstellen muss, habe ich mir (schon länger her) mal ein Perl-Script zusammen gebastelt. Nun brauche ich eine Liste mit Mapnamen, bei denen jedoch die Erweiterung der Datei abgetrennt werden muss, und bekomme das nicht hin. Kennt sich hier jemand mit Perl aus und kann helfen?

Mein Script :

#!/usr/bin/perl -w




chdir "/home/ralph/steam/garrysmod/garrysmod/maps/";




my @files=glob('ttt_*.bsp');
my $file;
 
foreach $file (@files) {
    	print "$file\n"
}

Das Script ist jetzt angepasst für einen GarryMod-Server, und soll die Maps, welche mit "ttt_" im Filenamen beginnen, einfach in einer Textdatei auflisten (ein Filename je Zeile). Nur das ich im Moment noch die Erweiterung manuell löschen muss.

Das Script rufe ich in dieser Form auf : perl gen_mapcycle.pl > garrysmod/cfg/mapcycle.txt

Gruß
Ralph

Zitat von vmk

Python ist nicht Perl

Du hast natürlich Recht. Weiß auch nicht was mich da vorhin geritten hat. Hab den Titel und Text mal angepasst.

Deinen Tip werde ich mal ausprobieren.

Die Lösung funktioniert leider nicht ganz, da der Pfadname immer mit drin ist. Stricke ich mir das so um, das es in dem entsprechenden Pfad läuft, dann habe ich immer ein "/" am Anfang stehen. Ich benötige leider NUR den Dateinamen ohne Erweiterung.

Hmmm ... irgendwie wollen eure Vorschläge nicht so wie ich möchte. Habe mir jetzt mit folgendem Code beholfen :

#!/bin/sh




chdir /home/ralph/steam/garrysmod/garrysmod/
find . -name "ttt_*.bsp" -exec basename \{} .bsp \;

Die Ausgabe ist zwar unsortiert, aber das ist nicht wirklich schlimm. Vielleicht finde ich dafür auch noch eine Möglichkeit.

Trotzdem herzlichen Dank für eure Bemühungen.