Re: [PERL] Perl char pos?

[Kim Schulz <sslug@sslug>]

On Fri, 7 Feb 2003 10:28:18 +0100
"Frank Nørvig" <sslug@sslug> wrote:
> Hejsa,
> 
> Jeg sidder og roder med lidt perl-script og er kommet lidt i tvivl om
> hvordan jeg finder positionen (offset) for en char i en string.
> Jeg har en række strings der hedder noget ligende "<tag>Dette er en
> test</tag>"
> Fælles for alle disse strings er at teksten jeg skal have fat i ligger
> i pos 45, men det er forskelligt hvornår teksten slutter.
> Jeg har derfor lavet følgende:
> 
> $newstring = substr($linie, 45, ???);
> 
> ??? vil jeg gerne have erstattet med positionen for hvor </tag>
> starter, så det er kun er teksten jeg får ud.
> I andre sprog kan jeg bruge pos funktionen, men kan jeg også det i
> Perl, og hvordan?


kan du ikke bare lave en 

$newsting = substr($linie, 45, length($linje)-45-6)

altså længden af strengen minus de første 45 tegn, minus de 6 tegn der
går til </tag>