CSV Database

Kan du ikke bare åbne filen og så læse gennem
til du finder nummeret eller kommer til EOF.

open(PASS,\"< $kontofil\") || die \"can\'t open out\";

while (<PASS>) {
    print $_;
}

Takker... Men nu forstår jeg ikke så meget PERL.. kan du forklare nærmere hvad script-bidden gør??

Første linie åbner en fil og giver dig et handle.

While løkken læser gennem filen og printer hver linie.

I stedet for dette print kunne du sammenligne med det kontonummer du skal have valideret. Hvis du når EOF uden at finde en match så er det ikke valid. Vær opmærksom på at $_ indeholder et linie skift som du evt skal choppe af.

Ok... Så hvis min fil ser sådan her ud:

\"23984732947\"
\"23487234874\"

osv osv.

så skulle følgende virke? Eller hvad? ;)

  $kontonummer = 0;
  open(PASS,\"< $kontofil\") || die \"can\'t open out\";
  while (<PASS>)
  {
        if ($_ = \"$billing_customer_id\")
      {
        $kontonummer = 1;
      }
  }
  if ($kontonummer = 0)
  {
        $missing_fields .= \"<LI>\" . \"Kontonummeret er ugyldigt.
  }

Når din fil ser sådan ud vil $_ i while løkken få værdierne
\"23984732948\"
\"23487234874\"

Hejsa...

Der er en eller anden syntax fejl i open... kommandoen.. Er du sikker på, at den skal se sådan ud???

Thomas

Har du assignet $kontofil?
Hvad siger fejlen?

my $kontofil = \"filnavn.csv\";
open (PASS, \"< $kontofil\") || die \"can\'t open \";

Ja, den er assignet. Jeg kan desværre IKKE se fejlen, da jeg bare kører den på en server hvor jeg ikke har shell adgang.. Så måske er det lidt svært...

Prøv på en server hvor du har shell adgang.

OK - nu kommer der ingen fejl.. men, scriptet \"synes\" at alle kontonumre er ok! Det ser sådan ud:

$kontofil = \"DEBKART.TXT\";
$kontonummer = \"0\";

print $kontonummer;

open (PASS, \"< $kontofil\") || die \"can\'t open \";
while (<PASS>)
{
  if ($_ = 6544481)
  {
    $kontonummer = 1;
  }
}
  if ($kontonummer = 0)
  {
            print \"Det eksisterer ikke!\";
  }
  if ($kontonummer = 1)
  {
          print $kontonummer;
        print \"Det er rigtigt nok!\";
  }

Hvorfor bliver if ($_ = 6544481) altid sand??

Det er fordi $_ = 6544481;
er en assignment ikke en sammenligning.
Du skal gøre følgende
while (<PASS>)
{
    my $x = $_;
    chop($x);
    if ($x eq 6544481)
    {
          $kontonummer = 1;
    }
}

Hvor chop fjerner sidste karakter fra $x (linie skift)
og eq bruges ved streng sammenligning (numerisk er det ==)

takker! ;)