Cgi Scriptje: Probleem, wie kan me helpen?

[Verwijderd]

Ik wil het volgende programmeren in Perl, cgi voor linux alleen kom ik er niet helemaal uit.

code:

    # -------
    # TELLER 
    # Geeft elke aanmelding een uniek getal
    # -------
    &telpath = "/blabla/clubs.tel";
    
    open (TEL, ">>&telpath");
    
        lees eerste regel (is een getal)
        ken getalwaarde toe aan variabale &nummer
    
            #laatste nummer +1 voor de nieuwe aanmelding
            &nummer = nummer + 1 (geen idee hoe dat moet in perl)
        
        print TEL "nummer"; (hij moet het oude nummer overschrijven, nu voegt ie 'm eronder toe, hoe doe ik dat?)
    close (TEL);
    
    # -------
    # OPSLAAN
    # Opslaan in EXCEL importeerbare string, a,b,c,d 
    # $nummer,$naam,$straat,$postcode,$woonplaats,$email,$telefoon,$contactpersoon,$straat2,$postcode2,$woonplaats2,$email2,$telefoon2,
    # -------
    
    open (LOG, ">>$logpath");
       print LOG "$naam,$straat,$postcode,$woonplaats,$email,$telefoon,$contactpersoon,$straat2,$postcode2,$woonplaats2,$email2,$telefoon2\n";
    close (LOG);

[Verwijderd]

Op vrijdag 28 september 2001 14:47 schreef Icculus het volgende:
Ik wil het volgende programmeren in Perl, cgi voor linux alleen kom ik er niet helemaal uit.

code:

    # -------
    # TELLER 
    # Geeft elke aanmelding een uniek getal
    # -------
    &telpath = "/blabla/clubs.tel";
    
    open (TEL, ">>&telpath");
    
        lees eerste regel (is een getal)
        ken getalwaarde toe aan variabale &nummer
    
            #laatste nummer +1 voor de nieuwe aanmelding
            &nummer = nummer + 1 (geen idee hoe dat moet in perl)
        
        print TEL "nummer"; (hij moet het oude nummer overschrijven, nu voegt ie 'm eronder toe, hoe doe ik dat?)
    close (TEL);
    
    # -------
    # OPSLAAN
    # Opslaan in EXCEL importeerbare string, a,b,c,d 
    # $nummer,$naam,$straat,$postcode,$woonplaats,$email,$telefoon,$contactpersoon,$straat2,$postcode2,$woonplaats2,$email2,$telefoon2,
    # -------
    
    open (LOG, ">>$logpath");
       print LOG "$naam,$straat,$postcode,$woonplaats,$email,$telefoon,$contactpersoon,$straat2,$postcode2,$woonplaats2,$email2,$telefoon2\n";
    close (LOG);

code:

#!/usr/local/bin/perl

$teller="teller.dat";

open(COUNT,"$teller") || die "verdikkie kan hem nie openen :( $!\n"; 
   flock COUNT, 2;  
   $count = <COUNT>;
   close(COUNT);
   if ($count =~ /\n$/) {chop($count);}
   $count++;

  open(COUNT,">$teller") || die "Kan niet schrijven naar bestand: $!\n";
   flock COUNT, 2;  
  print COUNT "$count";
  close(COUNT);

zoiets?

[Verwijderd]

Hey!
zoeits zocht ik inderdaad. zal 'm ff eens proberen.

[Verwijderd]

In bovenstaand voorbeeld is de waarde van &count niet beschikbaar in de rest van het programma. Ik heb dat dus nog nodig voor het printen naar de logfile.

Voor de rest werkt het perfect Hoe kan ik de waarde van &count in de rest van het programma gebruiken? &count = <COUNT> werkt niet.

[Verwijderd]

niemand?