thomas wrote:
> Hej
> jeg er lige begyndt på et lille script/program som skal kunne finde link
> i en html fil
>
> efter at have læst filen ind i en array vil jeg gerne kunne læse et tegn
> fra min array.
> altså hvis denne streng "img src="
http://sjov.img.dk/ID=25" ligger i en
> array på index 0, vil jeg gerne læse først "i" så "m" osv
Hvis din streng er klippet op og hældt på @array.
foreach my $tegn (@array) {
print "$tegn\n";, # eller hvad du nu skal bruge det til
}
Men det er ikke en særlig perlet måde at behandle strenge på (minder
lidt om C).
Du kan også gøre følgende:
my $streng = q(img src="
http://sjov.img.dk/ID=25);
my @array = split //, $streng;
for (my $i = 0; $i <= $#array; $i++) {
print "$i. tegn:\t $array[$i]\n";
}
Men det kan nok kaldes perverst (faktisk rent C, på nær split).
Hvis du sagde noget om den større sammenhæng, kunne du måske få noget
rigtig Perl kode. Men de to ovenstående klarer opgaven.
Eller..... Faktisk kommer det rigtige svar her:
#!/usr/bin/perl
use warnings;
use strict;
my @array = (q(img src="
http://sjov.img.dk/ID=25")); # array har en
# streng på 0'te
# plads
my @strengistykker = split //, $array[0]; # den klippes i
# stykker
for (my $i = 0; $i <= $#strengistykker; $i++) { # C-kode
print "$i. tegn:\t $strengistykker[$i]\n"; # do.
} # do.A
Men som sagt, det er grimt.
mvh
andrass