Vorwort

Auf dieser Seite landen kleine (nützliche?) Perlscript-Fragmente, die so nebenbei abfallen ;-)

Es mag sein, daß manches davon unnötig ist oder in unzähligen Variationen an anderer Stelle bereits existiert, nichtsdestotrotz hilft's vielleicht dem/der Einen oder Anderen.

getnames.pl - LS Ersatz für Win9x

sub get_files { &bad_base unless (-e $basedir); chdir($basedir); foreach $file (@files) { $ls = `ls $file`; @ls = split(/\s+/,$ls); foreach $temp_file (@ls) { if(-d $file) { $filename = "$file$temp_file"; if(-T $filename) { push(@FILES,$filename); } } elsif(-T $temp_file) { push(@FILES,$temp_file); } } } }		In vielen Perl-Scripts, in denen Verzeichnisse durchsucht werden, findet man Unterroutinen ähnlich dieser (auf der linken Seite) angezeigten. Durch Verwendung eines Unix ls Befehls werden Verzeichnisstrukturen aufgelistet und einzelne Files und Unterverzeichnisse erkannt. (ls - list contents of directories) Das funktioniert zwar hervorragend in Unix Systemumgebungen und zum Teil auch unter Windows NT und Windows 2000, jedoch nicht mit Windows 95/98.
Für einen Einsatz unter solch "dummen" Betriebssystemen ist das folgende Script getnames.pl vorgesehen (läuft natürlich auch auf Unix Systemen).

getnames.pl - Download

Das Script ist nicht nur als ls Ersatz vorgesehen, sondern beinhaltet auch einen komfortablen include/exclude Filter - Mechanismus, der unproblematisch an die jeweiligen Anforderungen angepasst werden kann.

Das Script kann hier runtergeladen werden (Zipfile 2KB).