Hvordan finder jeg navnet på en fil ??

Det kommer vel an på hvad der står i dit script ???

hi Erik

Du er da også så krævende..

nå men her er mit script så:

#!/perl/bin/perl.exe -w
#product_ID: STATUS_0007_R1A


use strict;
use FileHandle;


my $path = '\apache\cgi-bin\rewss\scripts';
my $fh;
my $out;
my $date_time = localtime;



my @ary = glob("$path/*");
        foreach $out (@ary) {
                  $fh = new FileHandle("< $out") ;
          while (<$fh>)  {
            if ($_=~/(product_ID:)\s(\w+)_(\d+)_(R\d\w)/) {
                print " $2\t$3\t$4\n";
                }
                  }
                  }

Du skal vel blot udskrive $out - utestet

he he..mon ikke bare jeg skulle gå i seng, jeg sad og prøvede med $path :-)

Erik lige en anden ting som du måske har en ide til..hvordan kan jeg "skjule" min perl kode ?

Altså hvis jeg f.eks leverer en server til en kunde, med en web løsning i et perl script, og jeg vil forhindre ham i at se/få/bruge scriptet ??

ja man kan s'føli lade være med at give ham rettigheder til at se i mappen..men du ved, det kan man ikke være helt sikker på ??

Er der ikke en eller anden måde man kan kompilere det det på ? altså uden det går udover perfomance ??

///Thomas

Det har jeg ikke hørt om - open source!

oki doki