File öffnen, Inhalt ausgeben und wieder schließen - #160199 (Allgemeines zu Perl)

topeg

2012-07-26 14:05

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Es sieht so aus als hättest du den Code irgendwo heraus kopiert.
Hier mal ein vollständiges Beispiel. Mit CPAN:

File::Find wird das ganze einfacher.

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
my $globalerror=0;

sub recDir
{
  my $path=shift(@_);
  find(sub{
    my $file=$File::Find::name;
    if($file=~/\.d$/)
    {
      if(open(my $fh, '<', $file))
      {
        local $/=undef;
        print <$fh>;
        close($fh);
      }
      else
      {
        warn "Can't open $file ($!)\n";
        $globalerror = 1;
      }
    }
  },$path);
}

recDir($ARGV[0]);

Zeile 14-24 öffnet die Datei und gibt sie aus.