Thread strict will nicht: :( (12 answers)
Opened by Cooly at 2003-09-06 15:26

Cooly
 2003-09-06 15:26
#84363 #84363
User since
2003-08-04
81 Artikel
BenutzerIn
[Homepage] [default_avatar]
hallo

das ganze script hängt nur mit use strict - und zwar da wo der hash deklariert wird (
Code (perl): (dl )
our $coolhash{$file} = "$counts|$forsrc";
)
vielleicht muss man das ganze anders anfangen - hab nicht wirklich viel erfahrung mit strict :(

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
print "Content-type: text/html\n\n";


use strict;
use warnings;

my $in = $ENV{'QUERY_STRING'};
chomp $in;

our ($File, $Src) = split(/\&/,$in);

open(FILE, "<countdown.log") || die "HOHO! niemals wirst du die Datei öffnen ;-)\n";
our @downs = <FILE>;
chomp @downs;
close(FILE);


foreach (@downs) {

        my ($counts, $file, $forsrc) = split(/\|/,$_);


        our $coolhash{$file} = "$counts|$forsrc";

}


foreach  (keys %coolhash){ 

         my ($cnts,$srct) = split(/\|/, $coolhash{$_});
         if (($_ eq $File) && ($srct == $Src)) { print "$cnts"; exit;}

}


danke

Cooly

View full thread strict will nicht: :(