Verzeichnisverbindungen aus dem Modul IO::Dir

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

dir2.pl
#!/usr/local/bin/perl -w

use strict;
use IO::Dir;

(my($cmdname) = $0) =~ s{.*/}{};
push(@ARGV, ".") unless @ARGV > 0;
foreach my $dir (@ARGV) {
   my $dh = new IO::Dir $dir;
   die "$cmdname: unable to open $dir: $!\n"
      unless defined $dh;
   my @filenames = (); my $filename;
   while (defined($filename = $dh->read)) {
      next if $filename =~ /^\.\.?$/;
      push(@filenames, $filename);
   }
   $dh->close;
   print "$dir:\n";
   foreach my $filename (sort @filenames) {
      print "\t$filename\n";
   }
}

*Das Modul IO::Dir liefert analog zu IO::File die Lösung für Dateiverbindungen.
 
*Mit der Methode read läßt sich jeweils der nächste Dateiname holen.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000