Dateien aus Verzeichnis einlesen und zeilenweise bearbeiten (gelöst) (Allgemeines zu Perl)

[thread]17424[/thread]

Dateien aus Verzeichnis einlesen und zeilenweise bearbeiten [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+5 replies

Bionerd

2012-05-16 11:51

User since
2012-04-18
35 Artikel
BenutzerIn
[default_avatar]

Hi! Das Programm soll mehrere Dateien aus einem Verzeichnis einlesen und diese dann einzeln, Zeile für Zeile bearbeiten/durchsuchen und die Zeilen, auf die der reguläre Ausdruck zutrifft, anschließend in ein .txt schreiben. Jedoch kommt immer nur, dass kein Verzeichnis bei Line 7 gefunden wird, wenn ich das Programm ausführen möchte.

Code (perl): (dl )

my $Verzeichnis = 'Sequenzen/';
my $out_dir='Paarungen/';
opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!";
my @Dateien = readdir(DIR);
foreach(@Dateien) 
{
        if($_ =~ /\.txt$/) 
        {
                open(my $fh,"$_") or die $!;
                $line = $_;
                chomp ($line);
        
                if ( ($line =~ /^([A-Z]+ (\W){1} [A-Z]+)/g))
                {       
                        $line =~ s/\s+//g;
                        $line =~ s/\+//g;
                        if ( ($line =~ /(Line1andLine2)/g))                     
                        {       
                                print $1 . "\n";
        # Ausgabe in Datei
                                my $outpath="$out_dir/h.txt";
                                if(open(my $fh, '>>', $outpath))
                                { 
                                        printf $fh ("$line .\n"); 
                                }
                                else
                                { 
                                        warn("Error open $outpath ($!)"); 
                                }
         close $fh;     
                        }
                } 
        } 
}

+3 replies

topeg

2012-05-16 12:16

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Bitte nutze "strict" und "warnings".
readdir liefert keine vollständigen Pfade sondern nur die Datei- und Ordner-Namen im geöffneten Verzeichnis.
Achte darauf wo du welches Filehandle unter welchem Namen öffnest und schließt.
next kann dir hier einige Verschachtelungen sparen und macht den Code damit übersichtlicher.
Bitte benutze immer das drei Parameterige open.
Wo ist die schleife welche die Datei zeilenweise einließt?
Öffne die Ausgabe Datei einmal am Anfang das macht den Code schneller und übersichtlicher.

Den Code überarbeitet:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $Verzeichnis = 'Sequenzen/';
my $out_dir='Paarungen/';
my $out_file='h.txt';

open(my $out_fh, '>>', $out_dir.$out_file) or die "$out_dir$out_file: $!";

opendir(my $dir_fh, $Verzeichnis) or die "$Verzeichnis: $!";
while(my $file_name=readdir($dir_fh))
{
  next if (!-f $Verzeichnis.$file_name);
  next if ($filename !~ /\.txt$/);

  open(my $in_fh, '<', $Verzeichnis.$file_name) or die "$Verzeichnis.$file_name: $!";
  while(my $line=<$in_fh>)
  {
    chomp ($line);
    next if ($line !~ /^([A-Z]+ (\W){1} [A-Z]+)/g);
    $line =~ s/\s+//g;
    $line =~ s/\+//g;
    next if ($line !~ /Line1andLine2/);

    print "Line1andLine2\n";

    # Ausgabe in Datei
    print $out_fh "$line .\n";
  }
  close($in_fh);
}
closedir($dir_fh);

close($out_fh);

murphy

2012-05-16 12:20

User since
2004-07-19
1776 Artikel
HausmeisterIn

Wo wir schon beim auflisten guter Ratschläge sind: Dateipfade sollte man stets mit File::Spec->catfile(...) zusammenbauen, wenn der Code portabel sein soll :-)
When C++ is your hammer, every problem looks like your thumb.
Bionerd

2012-05-16 13:05
User since
2012-04-18
35 Artikel
BenutzerIn
Vielen Dank :)

Ach so in Zeile 15...Unterstrich vergessen...Sonst perfekt.
Code (perl): (dl )

next if ($file_name !~ /\.txt$/);

pq

2012-05-16 12:18

User since
2003-08-04
12209 Artikel
Admin1

ja, das ist klar. du liest dateinamen aus einem verzeichnis, z.b. a.txt, welches in 'Sequenzen' liegt.
nun versuchst du in der schleife die datei 'a.txt' zu öffnen, aber die existiert natürlich nicht, weil du dich in einem andern verzeichnis befindest.
du musst den verzeichnisnamen schon mit angeben: "Sequenzen/$_"
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2012-05-16 11:51.