HIX WEBMESTER 901

Koszi a valaszt, a kerdesbe nem fert bele, hogy lamer vagyok... (sorlimit)

> az alábbiakat írta a következő hírüzenetben:
...
> lockolold le a file-okat. Foleg a szamlalo tartalmat.
> Valahogy igy:
>
> use Fcntl ':flock';

Ezt hova tegyem a scriptbe? Az elejere, a legelso sorba?

> open(DATFILE,"+<$datfile") || die "Unable to open datafile";
> flock(DATFILE,LOCK_EX);
> seek(DATFILE,0,0);
> #... itt beolvasod
>
> seek(DATFILE,0,0);
> # itt meg ujrairod
>
> truncate(DATFILE,tell(DATFILE)); #ez nagyon kell, ha
> esetleg rovidebb lenne iras utan
> flock(DATFILE,LOCK_UN);
> close(DATFILE);

Mit jelent a LOCK_EX es a LOCK_UN, valamint a SEEK mindenfelekeppen kell?
Nekem ezt kene atirnom, a $count_file egy szamot tartalmaz, ami elvileg
csak nohetne:

sub get_num {
   open(COUNT,"$count_file") || die "Can't Open Count Data File: $!\n";
   $count = <COUNT>;
   close(COUNT);
   if ($count =~ /\n$/) {
      chop($count);
   }

   $count++;
   open(COUNT,">$count_file") || die "Can't Open Count Data File For
Writing: $!\n";
   $ccc = $count;
   print COUNT "$ccc";
   close(COUNT);
}

Kerlek segits!!!

Koszonom elore is mindenkinek:
Ambrozy Lorinc