Kommaseparierte Listen bereichsweise ausgeben. - #64963 (Allgemeines zu Perl)

sid burn

2006-04-15 04:53

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Quote
Warum kann ich aber nicht direkt mit while() auf das Handle "LISTE" zugreifen?

Kannst du doch. Bei diesem Verfahren wird in jeder Schleife eine neue Zeile eingelesen. Diese Zeile steht dann in $_.

Code: (dl )

while (<LISTE>)
{
    print;   #Gibt bei jedem durchlauf eine Zeile aus.
}

Quote
open LISTE, "list.txt";
my @liste=<LISTE>;

Wenn du so etwas machst, dann wird die ganze Datei vorher in das Array eingelesen. Wenn du direkt das Filehandle in einer while Schleife machst, dann ist dies nicht der Fall. Dann wird immer nur Zeile für zeile eingelesen. Vor allem bei größeren Dateien empfiehlt sich die while Schleife.

Zum anderen empfiehlt es sich, wenn du alles einmal in einem Array eingelesen hast, das Filehandle sofort wieder zu schließen, wenn du es nicht mehr benötigst. Also das close ruhig vor der while schelife setzen. Am besten direkt hinter deiner zuweisung.

Quote
Dies produziert mir: "Use of uninitialized value in pattern match (m//) at ./test.pl line 13, <LISTE> line 1". Muss ich immer unbedingt den "Umweg" über "@liste" machen?

EDIT:
Kleine verbesserung. Diese Fehlermeldung kommt, wenn du deinem Skript nicht jedes benötigte Argument übergibst. Es wird nämlich "$key" in deiner Regex interpoliert. Wenn du nicht alle Argumente übergibst, dann gibt es auch kein $key, daher solltest du bei sowas auch am anfang überprüfen, ob überhaupt genug Elemente übergeben worden sind. Die Anmerkung unten mit $1 stimmt aber immer noch sofern, als das du die Überprüfung mit $1 erst im if Block machen solltest.
/EDIT:

Das hast du deswegen, weil in deiner if bedingung auch gleichzeitig $1 vorkommt. Das $1 existiert aber nur dann, wenn deine Regex auch wirklich auf den String gematcht hat, und es einen Wert mit "()" auslesen konnte. Wenn deine Regex nicht matcht. Dann gibt es kein $1, und dann kommt natürlich auch die Fehlermeldung das er eine uninitialiserte Variable benutzt. Besser wäre es also, die Überprüfung ob $1 im richtigen bereich ist, nochmal innerhalb des if Blockes zu machen.

Zum anderen musst du aufpassen. Wenn noch andere Daten in der Datei stehen als du angegeben hast, dann kann es auch sein das die regex falsche sachen erkennt, die du nicht möchtest...

---------
liste.txt

Code: (dl )

Hier steht irgendwas
bla
a=3,b=4,c=17,d=19
a=5,b=7,c=62,d=33
a=16,b=9,c=77,d=49
a=98,b=10,c=234,d=213
a=130,b=27,c=567,d=333
a=234,b=56,c=1024,d=789
a=444,b=231,c=1079,d=987
blub

listen.pl

Code: (dl )

#!/usr/bin/perl -w

use strict;

die "$0: VALUE MIN MAX\n"  if @ARGV != 3;
my ($key, $min, $max) = @ARGV;


open LISTE, "<", "liste.txt"  or  die $!;
while ( <LISTE> )
{
    if ( m/$key=(\d+)/o )
    {
        print if $1 >= $min  && $1 <= $max;
    }
}
close LISTE;

Kleine Anmerkung, der Regex sollte man die Option /o hinzufügen. Ist etwas Performanter.\n\n

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de