læs og skriv til en fil.

for det første så skal du bruge "eq" til at sammenligne strenge i perl

dertil kommer at du kun har åbnet filen for læsning - men du skal køre den i en løkke ala

use FileHandle;
my $filename = "liste.txt";
my $filehandle = new FileHandle ("< $filename");

print "indtast navn:";
my $x=readline(stdin);
my $line;
while (<$fh>) {
    chomp;
    $line = $_;
  if ($x eq $line) {
    print "navnet $x er godkendt \n";
  }
  else
    {
    print "navnet $x er ikke godkendt\n";
  }

hov dels en fejl og for at få resultatet i en fil:

use FileHandle;
my $filename = "liste.txt";
my $filename = "output.txt";
my $fh = new FileHandle ("< $filename");
my $oh = new FileHandle ("> $outfile");

print "indtast navn:";
my $x=readline(stdin);
my $line;
while (<$fh>) {
    chomp;
    $line = $_;
  if ($x eq $line) {
    print $oh "navnet $x er godkendt \n";
  }
  else
    {
    print $oh "navnet $x er ikke godkendt\n";
  }

exit 0;

det er ikke sikkert at der skal laves en chomp .. hmm det må lige testes :-)

hmm, jeg får at vide, at den "can't locate @Filehandle.pm in INC"?

Og desuden et par spørgsmål: Hvad gør chomp og my helt præcist?

den skal hedde FileHandle - sorry

chomp fjerner \n fra dit input

my erklærer en variabel - det er "kun" nødvendigt hvis du bruger "use strict"

nope, stadig ikke. Den siger, at liste.txt is not exported by the filehandle modul...

hovsa - et par bøv fejl:

use strict;
use FileHandle;
my $filename = "liste.txt";
my $outfile = "output.txt";
my $fh = new FileHandle ("< $filename");
my $oh = new FileHandle ("> $outfile");

print "indtast navn:";
my $x=readline(stdin);
my $line;
while (<$fh>) {
    chomp;
    $line = $_;
  if ($x eq $line) {
    print $oh "navnet $x er godkendt \n";
  }
  else {
    print $oh "navnet $x er ikke godkendt\n";
  }
}
exit 0;

Desværre, stadig ikke. Den siger "Global symbol "$outfile" requires explicit package name" og "Bareword "stdin" not allowed while "strict subs in use". Hvad det så en betyder.. kan nr. 2 rettes ved at slette strict og my?

ja men det betyder at du har en fejl i programmet - jeg forstår det ikke helt for den virker på min maskine

ok, nu får jeg ingen fejlmeddelelser, men til gengæld er det eneste der sker, at den siger "tryk på en vilkårlig tast" efter jeg har tastet navnet ind...

ok - skriver den så til output.txt ?

use strict;
use FileHandle;
my $filename = "liste.txt";
my $outfile = "output.txt";
my $fh = new FileHandle ("< $filename");
my $oh = new FileHandle ("> $outfile");

print "indtast navn:";
my $x=readline(stdin);
my $line;
while (<$fh>) {
    chomp;
    $line = $_;
  if ($x eq $line) {
    print $oh "navnet $x er godkendt \n";
    print "navnet $x er godkendt \n";
  }
  else {
    print $oh "navnet $x er ikke godkendt\n";
    print "navnet $x er ikke godkendt\n";
  }

}
exit 0;

den vil både skrive resultatet på skærmen og i filen !

ups, jo output havner i outputfilen, men det står der flere hundrede gange. Hvordan kan jeg begrænse løkken, så den kun skriver output én gang?

use strict;
use FileHandle;
my $filename = "liste.txt";
my $outfile = "output.txt";
my $fh = new FileHandle ("< $filename");
my $oh = new FileHandle ("> $outfile");

my $found = 0;

print "indtast navn:";
my $x=readline(stdin);

while (<$fh>) {
  if ($x eq $_) {
    $found =1;
  }
}

  if ($found == 1) {
    print $oh "navnet $x er godkendt \n";
    print "navnet $x er godkendt \n";
  }  else {
    print $oh "navnet $x er ikke godkendt\n";
    print "navnet $x er ikke godkendt\n";
  }


exit 0;

og en lille ting mere; den skriver, at et givent navn ikke er godkendt, også selvom det står på listen. Det er ligemeget hvilket navn...

den her virker på min linux-maskine:


use strict;
use FileHandle;
my $filename = "liste.txt";
my $outfile = "output.txt";
my $fh = new FileHandle ("< $filename");
my $oh = new FileHandle ("> $outfile");

my $found = 0;

print "indtast navn:";
my $x;
chomp($x=<STDIN>);

while (<$fh>) {
  chomp;
  if ($x eq $_) {
    $found =1;
  }
}


  if ($found == 1) {
    print $oh "navnet $x er godkendt \n";
    print "navnet $x er godkendt \n";
  }  else {
    print $oh "navnet $x er ikke godkendt\n";
    print "navnet $x er ikke godkendt\n";
  }


exit 0;
--------------------
liste.txt:
mfalck
ost
ged

output.txt:

navnet ost er godkendt
navnet ost er godkendt
navnet nisse er ikke godkendt

hmm, jeg sidder godt nok på en windows, men det skulle da ikke gøre så meget i denne forbindelse. Det virker som om, den ikke kan læse ordentligt fra liste-filen... Men det kan være, jeg overser noget på min egen computer... Men tak for hjælpen i hvert fald :-)

ok .. man skulle ikke tro at der var så stor forskel på windows og linux.. evt kan du prøve at skrive værdierne ud på skærmen og sammenligne dem

Hej, jeg har lige testet dette på en windows 2000 kasse, og det virker uden at ændre i noget !

Vh.

Du har 16 åbne spørgsmål .. husk at lukke.
Sådan lukker du et spørgsmål: http://expfaq.1go.dk/?id=3#behandling_af_svar