Diverse Perlscripte
Diverse Perlscripte
 go to ...Vorwort
 go to ...getnames.pl - LS Ersatz für Win9x
 go to ...getnames.pl - Download






go to index 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.




go to index 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).


go to index 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).







      Copyright © Günter Laudenklos 2000-2007
Der seit 28. April 1997