Zeilenweise Datei einlesen (Allgemeines zu Perl)

Gast Gast

2007-11-20 13:19

Hoffe ich bin hier richtig ? ;)

Eigentlich ist Thematik recht simple, ich möchte ein einfaches Textfile einlesen und dann zeilenweise ausgeben.

folgender code, sollte das recht einfach erledigen:

Code: (dl )

 
open (FILE, "< $joblist_file") || die "Can't open $joblist_file! $!\n"; 
while (<FILE>) 
{
    print "job $_\n";
}

bzw.

Code: (dl )

open (FILE, "< $joblist_file") || die "Can't open $joblist_file! $!\n"; 
while (<FILE>) 
{
    $line = $_
    print "job $line\n";
}

demnach sollte er ja Zeile für Zeile mit dem String "job" ausgeben. Ausgabe ist aber "job zeile" gefolgt von den weiteren zeilen allerdings ohne den jobstring.
ich hab dann mal folgendes probiert.

Code: (dl )

open (FILE, "< $joblist_file") || die "Can't open $joblist_file! $!\n";  
@file = <FILE>;
close FILE; 

my $counter = 0;
my $acounter = @file;

print"arraysize $acounter\n";
foreach $line (@file)
  {
  print "count $counter\n";
  print "$line\n";
  $counter++;
  }

$counter wird nach ablauf des Codes auf 1 gesetzt.
$acounter hat die Größe von 1.

Imho die Datei wird nicht zeilenweise sondern als ein Block eingelesen. Eine weitere Idee war explizit einen Zeilentrenner ($/ = "\n\r";) zu definieren, hatte aber auch keine
Auswirkung. Desweiteren hab ich es mit verschieben Textfiles (windows und ux) probiert - immer das gleiche Ergebnis.

Grüße

Benny

Gast Gast

2007-11-20 13:21

added:

ich bräuchte allerdings jede einzelne Zeile, da ich diese innerhalb einer schlaife gegenprüfen muss.. lt. den tutorials, Büchern etc. die hier im Netz rumschwirren,
sollte das so eigentlich funktionieren..

renee

2007-11-20 13:34

User since
2003-08-04
14371 Artikel
ModeratorIn

Wo (welches OS) wurde die Datei erstellt und wo wird die Datei eingelesen?

Probier mal $/ auf "\r\n" (und nicht umgekehrt) zu setzen...

Notfalls kannst Du die Datei erst "slurpen" (alles auf einmal einlesen) und dann splitten...

Code (perl): (dl )

my @lines;
{
    local $/;
    open my $fh, '<', $datei or die $!;
    my $content = <$fh>;
    @lines = split /\r?\n/, $content;
}

print "Line: $_\n" for @lines;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Struppi

2007-11-20 13:34

User since
2006-02-17
628 Artikel
BenutzerIn

Welchen Zeilentrenner hat den die Datei?

Gast Gast

2007-11-20 16:15

Die Dateien wurden solwohl unter win als auch unter ux erstellt und getestet.
Das Script wird später ebenso unter beiden BS laufen müssen.

@struppi: dei test datei ist eindeutig ux codiert

@ renee: slurp n slice war die Lösung, danke...

Also das problem scheint die version inkompatibilität zu sein. Auf den UX kisten läuft noch 5.6.1.....

ein windows test mit den scripts aus dem ersten post funktionierte tadellos..

Danke euch...

Struppi

2007-11-21 13:04

User since
2006-02-17
628 Artikel
BenutzerIn

unter Linux: LF
unter Win: CR + LF

und auf dem jeweiligen System ist \n das obige.

D.h. wenn du eine Textdatei mit dem Linuxzeilentrenner hast, kannst du diese unter Linux mit deinem obigen Beispiel ohne Probleme Zeilenweise einlesen.
Selbst unter Windows klappt es bei mir Problemlos eine Linuxdatei Zeilenweise einzulesen.

Dein Problem ist, dass du explizit eine Leerzeile im Code eingefügt hast:
print "job $_\n";

Da ist es kein Wunder, dass du eine Leere Zeile hast wenn du ein Newline schreibst.

renee

2007-11-21 13:25

User since
2003-08-04
14371 Artikel
ModeratorIn

Struppi+2007-11-21 12:04:46--
Dein Problem ist, dass du explizit eine Leerzeile im Code eingefügt hast:
print "job $_\n";

Da ist es kein Wunder, dass du eine Leere Zeile hast wenn du ein Newline schreibst.

Er hat nicht gesagt, dass immer eine Leerzeile kommt, sondern dass nur einmal das "job" dasteht und dann der ganze Inhalt der Datei (ohne dass vor jeder Zeile das "job" steht).

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Struppi

2007-11-21 14:25

User since
2006-02-17
628 Artikel
BenutzerIn

Dann stimmen die Newlinezeichen nicht. Wenn ich eine Datei mit LF einlese (auch unter Windows) wird diese Zeilenweise mit dem obigen code eingelesen.

renee

2007-11-21 14:29

User since
2003-08-04
14371 Artikel
ModeratorIn

Das sollte eigentlich nicht gehen... Hattest Du die Datei vorher in einem Editor unter Windows geöffnet?

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Struppi

2007-11-21 17:28

User since
2006-02-17
628 Artikel
BenutzerIn

Natürlich mit einem der die verschiedenen Formate beherrscht, beim Mac format ging es nicht.