[PERL] Search in String

[Verwijderd]

Hoi,

Ik ben een scriptje aan het schrijven en nu gebruikt ik

if ($line=~m/bla/io) {
$tekens_tot_begin=0;
$tekens_tot_begin=index($line, "bla", $tekens_tot_begin);
$tekens_tot_eind=index($line, "baf", $tekens_tot_begin);
$lengte=$tekens_tot_eind - $tekens_tot_begin;
$grab=substr($line, $tekens_tot_begin + 3, $lengte - 3);

Hiermee zoek ik in de string $line naar "bla".
en krijg ik in $grab alle letters van bla tot baf.
bla en baf worden dan later weggehaalt.

Mijn probleem is echter dat bla en baf meedere keren in $line kunnen voorkomen en deze moeten ook gegrabt worden.
Kan iemand mij verder helpen.
Bestaat er een optie bij ~m waarmee hij zo vaak zoekt
totdat hij niets meer gevonden heeft.

[Onno]

Op dinsdag 21 mei 2002 11:40 schreef tasker het volgende:
Bestaat er een optie bij ~m waarmee hij zo vaak zoekt
totdat hij niets meer gevonden heeft.

Ja, zie de perlop pagina in je perl documenatie, onder m//.

[Soultaker]

Global option (/g) toevoegen?

[Rowwan]

$grab = $line;
$grab =~ s/.*bla(.*)baf.*/$1/;

Of begrijp ik het helemaal verkeerd??

[Verwijderd]

Hij moet meederen keren in een string zoeken.
En als hij wat vindt dan moet hij wat tussen
bla en baf staat in de string grab doen.
totdat hij geen bla en baf meer vinden kan.

[Verwijderd]

Bedankt voor de postings het is me gelukt....