Perl script ich komme nicht weiter

[g0nz00 (Gast)]

Hallo,
Ich bin Perl anfänger und habe ein kleines tool geschrieben an folgender 
stelle habe ich probleme:

ich extrahiere aus einem Feld einen Namen den ich in $help speichere

Dann öffne ich ein cfg-File (txt) und suche in den zeilen $cfgline nach 
$help. steht noch mehr in der zeile.

Die Variable $ help habe ich mir anzeigen lassen und sie stimmt ganz 
genau, nur leider wird die if schleife if($cfgline =~ /$help/){} niemals 
ausgeführt.

$z soll später ein arrayplatz $array[$z] abfragen ob dort j oder n 
steht.

open(CONFIG,"$configfile") or die "Datei nicht gefunden $!\n";   # Datei öffnen        
        $z=0;
        $cfgline=();
        foreach $cfgline (<CONFIG>)    # zeile für zeile
          {
          if($cfgline !~ /#/)    # ist am anfang keine # mache ....
            {
            if($cfgline =~ /$help/)  # suche $help in der config
              {
              $z = $h;  # speichere  h in z
              $h++;
              }

            else 
              {
              
              $h++;
              }  
            }            
          }
                # rücksetzen der h variabel
        $help = ();      
        close CONFIG;

Für ein wenig hilfe bin ich sehr dankbar. suche jetzt schon 2 tage nach 
dem fehler und habe mir alles ausgeben lassen um einen hinweis zu 
finden.

Kenne leider keinen der Perl programmiert :(

Gruß

g0nz00

[Frank L. (florenzen)]

g0nz00 wrote:

[...]
>           if($cfgline !~ /#/)    # ist am anfang keine # mache ....
[...]

Mein Perl ist ein wenig eingerostet, aber diese Anweisung mach nicht das 
was du dahintergeschrieben hast. So wie du das machst würde, sofern er 
das # überhaupt frißt, es an jeder Position innerhalt der Zeile matchen. 
Ich würde den Lattenzaun escapen und außerdem auf den Zeilenanfang 
matchen, also so: /^\#/
Das müßte sich wenn man !~ vermeiden will und stattdessen lieber =~ 
verwendet auch so ausdrücken lassen: /^[^\#]/

> Gruß
>
> g0nz00

gruß
frank

[Frank L. (florenzen)]

Fast hätte ichs vergessen: chomp($help) hast du ausgeführt oder 
anderweitig sichergestellt?


gruß
frank

[g0nz00 (Gast)]

Das mit der # funtioniert tadellos

chomp $help habe ich auch schon eingebaut war eins der Fehler :(

Aber es geht immer noch nicht.

Das Programm gibt erst auf der Kommandozeile eine List.txt aus und soll 
die kommentare am anfang und ende ignorieren. (# ....).

Anschließend frage ich aus der Config.txt die userparameter ab und 
speichere sie in einem Feld mit j oder n.

Nach der dateiauswahl wird die entsprechende datei geöffnet und anhand 
der userparameter sollen einige passagen der txt-datei gelöscht werden.

weil sich die datei aus 3 teilen zusammen setzt habe ich ein feld #flags 
eingeführt die zur bearbeitung abgefragt werden.
1. Hast du applied gefunden dann setze das A-Flag und  dann schreibe 
erstmal in ein Feld und vergleiche mit userparameter wenn du 
end_of_applied gefunden hast. dann eventuel ausgabe des Feldes.

Es funktioniert auch alles ganz gut nur das er die variabel $help nicht 
in der config.txt findet. wenn ich einen der Userparameter in der $help 
= "gesuchtes_Word" definiere dann klapt es.

Es ist meine erstes Perl Programm und die Programmierung ist sehr 
"eigenwillig" aber vieleicht kann sich das ja mal jemand angucken wenns 
keine mühe macht ;)

Gruß

g0nz00

[g0nz00 (Gast)]

Sorry war eine uraltversion des progs

in der Auswahl geht nur der menüpunkt 1

gruß

g0nz00

[Ahem (Gast)]

Ich finde auch Deine Ausdrucksweise sehr eigenwillig. Viele 
unvollständige Sätze. Eine Variable kann auch nicht Teil einer 
Text-Datei sein. Sie kann in einem Perl-Programm erscheinen. Aber 
solange es keine Meta-Datei zu einer Textdatei oder sowas gibt....

>Das Programm gibt erst auf der Kommandozeile eine List.txt aus und soll

eine <bestimmter Artikel, feminin: worauf bezieht der sich?) List.txt
>die kommentare am anfang und ende ignorieren. (# ....).
Am Ende von was oder wem?

>Anschließend frage ich aus der Config.txt die userparameter ab und
>speichere sie in einem Feld mit j oder n.
Aus einer Datei was abfragen? Wie soll das gehen? Du kannst höchstens 
Text aus einer Datei extrahieren.
Was für ein Feld? Mohrrüben? Oder was? Was soll das j oder n?

>Nach der dateiauswahl wird die entsprechende datei geöffnet und anhand
>der userparameter sollen einige passagen der txt-datei gelöscht werden.

Welche Auswahl? Wo und wann und durch wen oder was?

>weil sich die datei aus 3 teilen zusammen setzt habe ich ein feld #flags
>eingeführt die zur bearbeitung abgefragt werden.
Ein Feld, "die" abgefragt werden. Was soll das heissen? Schon 
grammatikalisch irreführend.

>1. Hast du applied gefunden dann setze das A-Flag und  dann schreibe
>erstmal in ein Feld und vergleiche mit userparameter wenn du
>end_of_applied gefunden hast. dann eventuel ausgabe des Feldes.
Wer ist Du? Was für ein A-Flag? Was für ein Feld? Welcher userparameter? 
Argv oder was? Was für ein end_of_pplied? Wo kommt das her?

>Es funktioniert auch alles ganz gut nur das er die variabel $help nicht
>in der config.txt findet. wenn ich einen der Userparameter in der $help
>= "gesuchtes_Word" definiere dann klapt es.
Was funktioniert? In einer Textdatei gibt es keine Variablen! Was soll 
das sein? Eine Variable wird durch auf sie ausgeführte Operationen 
nützlich (und kenntlich) In einer Textdatei steht einfahc nur "Text".


Am besten hilft Dir hier eine klare Problembeschreibung mit Beschreibung 
der Eingangsdaten und der daraus zu errechnenden Ausgangsdaten.

An der geringen Resonanz merkst Du das keiner was mit Deiner Frage 
anfangen kann.

[Tim (Gast)]

hi!
Normalerweise gehört hinter

        foreach $cfgline (<CONFIG>)    # zeile für zeile
          {

ein

chomp($cfgline);

um den Zeilenumbruch am ende von $cfgline zu entfernen.

Der Regex

          if($cfgline !~ /#/)    # ist am anfang keine # mache ....

sollte so aussehen

          if($cfgline !~m/^#/)    # ist am anfang keine # mache ....

Sonst reicht eine # an beliebiger stelle in $cfgline....

Und hier

            if($cfgline =~ /$help/)  # suche $help in der config

bau doch mal ein m ein:

            if($cfgline =~m/$help/)  # suche $help in der config

[Ahem (Gast)]

Vielleicht hilft es Dir weiter, wenn Du Deine Eingangsdatei auf das 
absolute Minimum reduzierst und auch das Perl-Programm resp. den 
regulären Ausdruck der da was matchen soll.

Dann sparst Du Dir lange Erklärungen und wir können auf Dein 
eigentliches Problem eingehen.

[Ahem (Gast)]

Na, vielleicht auch nicht.
Merkwürdig.

[g0nz00 (Gast)]

habe das alles auch schon probiert wenn ich if($cfgline =~ m/$help/) 
eingesetzt habe.

es ging alles so schön von der hand aber jetzt hänge ich seit tagen und 
finde den fehler nicht er gibt immer alles aus weil er nicht in diese if 
schleife springt. alle parameter ließt es richtig ein. die txt files 
werden abgearbeitet und an den gleichen positionen der felder stehen die 
richtigen j oder n`s in den userparametern. er findet nach dem 
herauskürzen der Parameter aber diese nicht in der Config.txt

habe das programm schritt für schritt geschrieben und immer wieder 
getestet ob er allles richtig übernimmt.

aber bei if($cfgline =~ $help) gehts nicht weiter

wenn ich mir $help ausgeben lasse dann steht dort

gesuchtes wort: NPS

und in der $cfgline: xxx NPS xxxx xxxx xxxx

aber er erkennt das nicht in der zeile.

Habe wirklich schon so viel probiert.

Gruß g0nz00

[Tim (Gast)]

So, habe mir die 2. Perl.zip mal angeschaut....
"eigenwillig" kann ich bestätigen.

Ein parr anmerkungen zu:

        MARKE:        
        foreach  (<CONFIG>)    # zeile für zeile
          {print "$h\n";
          if($_ !~ /#/)    # ist am anfang keine # mache ....
            {
            if($_ =~ /LOGICAL/)  # suche $help in der config
              {
              print "in der schleife\n";              
              $zwerg = $h;  # speichere die i nummer des Feldes in zwerg
              print "zwerg = $zwerg\n";
              print "h= $h\n";              
              last MARKE;

$_ ist eine tolle Sache, macht den Code aber auch schwer lesbar.
das mit dem ^ im regex solltest du beachten
LOGICAL soll wohl $help heissen.

Ich habe dann Das Suchwort ist $help\n"; mal in ...ist \"$help\"... 
geändert und den chomp($help) reaktiviert. Die Ausgabe war:

"as Suchwort ist "ISOGEN_SKEY

Und jetzt ganz genau hinschauen! das 2. " in am ANFANG der Zeile!
Jetzt lass mich raten: Die stahlrohr_m.ptb ist unter Windof erstellt 
worden, richtig?
Der Windows-Zeilenumbruch besteht aus 2 Zeichen: \r und \n
Der unter Unix nur aus \n und chomp entfernt auch NUR \n....
Ergo ist der Inhalt von $help in warheit ISOGEN_SKEY\r
Und das findet Perl zurecht nicht.
Bau nach dem chomp mal ein

$help=~s/\r//;

ein. Oder davor

$help=~s/\r//g;

Das entfernt den \r nachhaltig.
Habe ich auch schon mal sehr lange nach sowas gesucht...

BTW: Perl kennt auch Arrays mit Strings als Index. Die nennt man dann 
Hash und sehen so aus:
$hash{"ISOGEN_SKEY"} = "j" oder z.b. if ($hash{$help} eq 'j'){ ....
Das dürfte um Längen schneller sein als xmal die config.txt zu laden
und das Programm wird auch wesentlich kürzer.
Geht natürlich auch mehrdimensional gemischt:
$lala{"hallo"}[45]{$test}{'noch einer'}[4]
Ein Zugriff auf den Gesammten Array 
$lala{"hallo"}[45]{$test}{'noch_einer'}
z.b. für eine foreach ist dann via 
@{$lala{"hallo"}[45]{$test}{'noch_einer'}} möglich :-)

[g0nz00 (Gast)]

Vielen Dank Tim

es klappt wunderbar.

Oh man so ne kleine Sache und ich habe tagelang probiert.
Ja es wurde unter Windows erstellt das stahlrohr_m file.

Dann fehlt nur noch ein wenig Code für das restliche File und dann lüppt 
das alles ;)

nochmals vielen dank.

Gruß

g0nz00