Hey,
you are guessing correctly, my guess would look like this:
#!/usr/bin/perl
####################################
# Setup begin
$homepage = "/home/yourdomain/counter/";
$counterfile = "$homepage counter.txt"; #Full file path of counter.txt
for(my $i = 0; $i <= 9; $i++){
$imagefile{i} = $homepage.$i."gif";
}
#Setup end
############################
__END__
=sincerely, eduard grinvald
=email: [EMAIL PROTECTED]
=dev-email: [EMAIL PROTECTED]
=dev-site: r-x-linux.sourceforge.net
=icq: 114099136
=PGP
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: PGPfreeware 6.5.8 for non-commercial use <http://www.pgp.com>
mQGiBDr60ScRBADsdYfjVgLPiUU8kJvLx9rsONfx1K4wPAKLUCcFOyhmBvIT/EEY
pE2PVoOjosUdlkGGGFo9BLUi7UHoTrL7NyupJ4yHCU8wQiSPYK2GuZn5+ishIUI3
sDifAE4JKuLxtz2fdBcoimrFBfXQRwNrmIqFnA+ooP5GRrJxHpgAn6rvkwCg/0B8
uIXmUlVF+nwVHS6T2fAjYrUEAIe8LmwDVOorcWDRtoUzzSToAhhMY5ZM02OoG464
2SJzBtDo8ABcWCdddRjeEV3Mt5ohDoLXzH9N2LuOx0AEaWcC94a3y8pcGoF1Mbpq
UFQxUeh1TrKJlaTG0qSCb5euoIFPt5trob93CsHxVd69h6WKi3xOf1jXNbXsfWoj
b56jBACC8Mfhcpjtiw0KZRfqdrb5w11HNb0kP1Ma5mEKqsOBh8MlR9EyBrCji98B
pilGYsaW9PCxaFhJDPPbO6hcERup/O7787+LVc1ZYdlJFq/APcvNZZvbrHB7+uYW
eTI/Vmi7rB2ljE2mpEtms6RoiXqNF32xHDx2pSdSla/kqhPy2rQfRWR1YXJkIEdy
aW52YWxkIDxlZzM0NEBueXUuZWR1PokATgQQEQIADgUCOvrRJwQLAwIBAhkBAAoJ
EDDNAitGCH7xrjMAniAtflvrVvGegFgBYWv9f3eYFTQnAKDPJbKEjt2sOdRV1Ey5
Yah5ScFZEbkEDQQ6+tEnEBAA+RigfloGYXpDkJXcBWyHhuxh7M1FHw7Y4KN5xsnc
egus5D/jRpS2MEpT13wCFkiAtRXlKZmpnwd00//jocWWIE6YZbjYDe4QXau2FxxR
2FDKIldDKb6V6FYrOHhcC9v4TE3V46pGzPvOF+gqnRRh44SpT9GDhKh5tu+Pp0NG
CMbMHXdXJDhK4sTw6I4TZ5dOkhNh9tvrJQ4X/faY98h8ebByHTh1+/bBc8SDESYr
Q2DD4+jWCv2hKCYLrqmus2UPogBTAaB81qujEh76DyrOH3SET8rzF/OkQOnX0ne2
Qi0CNsEmy2henXyYCQqNfi3t5F159dSST5sYjvwqp0t8MvZCV7cIfwgXcqK61qlC
8wXo+VMROU+28W65Szgg2gGnVqMU6Y9AVfPQB8bLQ6mUrfdMZIZJ+AyDvWXpF9Sh
01D49Vlf3HZSTz09jdvOmeFXklnN/biudE/F/Ha8g8VHMGHOfMlm/xX5u/2RXscB
qtNbno2gpXI61Brwv0YAWCvl9Ij9WE5J280gtJ3kkQc2azNsOA1FHQ98iLMcfFst
jvbzySPAQ/ClWxiNjrtVjLhdONM0/XwXV0OjHRhs3jMhLLUq/zzhsSlAGBGNfISn
CnLWhsQDGcgHKXrKlQzZlp+r0ApQmwJG0wg9ZqRdQZ+cfL2JSyIZJrqrol7DVes9
1hcAAgIQAO6f9QVuw3eFMDxx4kVmw9pXlMcPlZT0xfBrzLkHwjoA0wdLp2W/ZWEC
FKQl7EV8yh3bqchlIIKRMLp05+5wgyS4GKsxRaRn1vUcKtPIe+mUojjvwkbdrLAM
TdZDVCwm1pxZqncCKrasJ8jtRT8kf93x3o1m0grVeldGukCvFl91gKXUv4vRT0/8
12MzhrxTkycx+pmS95Ytv7zps827dm6pXtlsTw9L7XNXYVTzHRd9MlvQzSxYIh2w
U0pwZfiNfYKKMOHjlQbHAjZtmuC7TpmOWaxDw0kqo7K6sYqo/bPs3dA5eA/0mfDl
7M2nwUjReCy1/O9B2Mf3QwjW712Rqyh2l+7Yp+GgIvHMHnIClZcNGjYh3jALUM3+
OenmcZfBzf6uuw9yFt/3bhoK/YkJJ6BIxx4q04TY93x28IqTt3l17omX+oOaDGS3
7gNTE52LTMUUwD+ienXrsu5mPL8CzrhXQAMTekJhc/HpOhNGPsqIe9TbFuacxr7j
OCJxPeeFGEO2NJ+ChCk0z3S1tWmDrM1gxdIxUbO1bp8hBm7LP9rKkMlEqpSJWdS8
yJmv/9WtDUTZdEJzzFeF+rp2lZpYkI/+sqVJP884fJ9NTS0aXiO1GxQWOKoVE58H
cyrO3hpYgMdC1oP4WZnEJwkLAN+4WnsF2DkKmkNvJRjAANSBTJF3iQBGBBgRAgAG
BQI6+tEnAAoJEDDNAitGCH7xa7AAn0dybVrFf+QHtfgkAsRK3oXY+7gwAJ4sWtYC
GuYw+8LgdC7Mp2ICim9MqA==
=iAF5
-----END PGP PUBLIC KEY BLOCK-----
=cut
----- Original Message -----
From: [EMAIL PROTECTED] (Luinrandir Hernson)
Date: Monday, June 4, 2001 7:47 pm
Subject: did i do this correctly?
> I am working on a cgi and i'm new to perl. could someone please
> check to see if i did this right?
>
> below is code for a program. as you can see it is going to take a
> lot of editing.
>
> #!/usr/bin/perl
> ####################################
> # Setup begin
>
> $counterfile = "/home/yourdomain/counter/counter.txt"; #Full file
> path of counter.txt
>
> $imagefile{'0'}="/home/yourdomain/counter/0.gif"; #Full file path
> of 0.gif
> $imagefile{'1'}="/home/yourdomain/counter/1.gif"; #Full file path
> of 1.gif
> $imagefile{'2'}="/home/yourdomain/counter/2.gif"; #Full file path
> of 2.gif
> $imagefile{'3'}="/home/yourdomain/counter/3.gif"; #Full file path
> of 3.gif
> $imagefile{'4'}="/home/yourdomain/counter/4.gif"; #Full file path
> of 4.gif
> $imagefile{'5'}="/home/yourdomain/counter/5.gif"; #Full file path
> of 5.gif
> $imagefile{'6'}="/home/yourdomain/counter/6.gif"; #Full file path
> of 6.gif
> $imagefile{'7'}="/home/yourdomain/counter/7.gif"; #Full file path
> of 7.gif
> $imagefile{'8'}="/home/yourdomain/counter/8.gif"; #Full file path
> of 8.gif
> $imagefile{'9'}="/home/yourdomain/counter/9.gif"; #Full file path
> of 9.gif
> #Setup end
> ############################
>
>
> my idea was to substitute a variable so only one edit is needed
>
> #!/usr/bin/perl
> ####################################
> # Setup begin
>
> $homepage = "/home/yourdomain/counter/";
>
> $counterfile = "$homepage counter.txt"; #Full file path of counter.txt
>
> $imagefile{'0'}="$homepage 0.gif"; #Full file path of 0.gif
> $imagefile{'1'}="$homepage 1.gif"; #Full file path of 1.gif
> $imagefile{'2'}="$homepage 2.gif"; #Full file path of 2.gif
> $imagefile{'3'}="$homepage 3.gif"; #Full file path of 3.gif
> $imagefile{'4'}="$homepage 4.gif"; #Full file path of 4.gif
> $imagefile{'5'}="$homepage 5.gif"; #Full file path of 5.gif
> $imagefile{'6'}="$homepage 6.gif"; #Full file path of 6.gif
> $imagefile{'7'}="$homepage 7.gif"; #Full file path of 7.gif
> $imagefile{'8'}="$homepage 8.gif"; #Full file path of 8.gif
> $imagefile{'9'}="$homepage 9.gif"; #Full file path of 9.gif
> #Setup end
> ############################
>
> I bet there is even a way to use something the Basic for/next
> command on this!
>
