nicht angemeldet
Hallo,
Irgendwie denke ich zu kompleziert...
Anscheinend;-)
Die von Dir beschriebene Aufgabe könnte IMHO so gelöst werden:
#!c:/perl/bin/perl -w
use strict; # Selbstkasteiung, um allfällige Fehler schnell zu sehen
use Win32::TieRegistry( Delimiter=>'/'); # das gewünschte Modul einbinden
open(IN,"data.txt") or die 'kann data.txt nicht oeffnen'.$!;
open(OUT,">results.txt") or die 'kann results.txt nicht oeffnen'.$!;
while(<IN>) # Zeilenweise einlesen (Zeile stehet in $_)
{
chomp; # Zeilenumbruch entfernen
print OUT "$_ ist " . $Registry->{$_}?'':'nicht' . "vorhanden\n" ; # [1]
}
close(IN) or die 'kann data.txt nicht schliessen'.$!;
close(OUT) or die 'kann results.txt nicht schliessen'.$!;
[1] Das ist etwas tricky, aber nicht sehr.
Es gibt die Möglichkeit, einfach Wahr-Falsch-Bedingungen zu überprüfen. Das erfolgt mit BEDINGUNG?WAHR-ERGEBNIS:FALSCH-ERGEBNIS.
Hier wird einfach, wenn der Registryeintrag existiert, nichts ausgegeben, sonst das Wort 'nicht'. Hmm, etwas verquer ausgedrückt, aber mir fällt momentan nichts besseres ein.
Naja mir liegt Perl einfach nicht (bzw. Coden...)
Nur intensives Üben bringt den Erfolg.
Und versuche, Dir anfangs leichte Aufgaben zu stellen, sonst verzweifelst Du leicht. Das gilt übrigens für jede Programmiersprache.
Danke für dein Beispiel!
Bidde schön.
leider mach ich viele Fehler
Macht ja nichts, Fehler kann man korrigieren. Und außerdem lernt man nur aus selbigen.
weil ich einfach keinen hab der mir Perl beibringen kann bzw. fragen kann wie ein guter Stiel in Perl auszusehen hat.
Die Dokumentation ist eigentlich recht gut, allerdings habe ich den Eindruck, daß sie etwas zu sehr für erfahrene Programmierer ist, die schon wissen, was sie tun, und nur mehr wissen wollen, wie sie es mit Perl tun können.
Hab hier nur ein fetten Schinke mit 1000Seiten naja nochmal danke!
Dann weißt Du ja schon etwas mit den nächsten Abenden anzufangen;-)
So werd ich ´s hoffe hinbekommen!
Aber klar doch, und uns kannst Du immerhin auch noch fragen.
Grüße
Klaus