[perl] $replacement in regex wordt niet ge-re-evalueerd

[pinball]

Ik wil een stukje in een link vervangen door een dagnummer om uiteindelijk zoiets:

http://www.mijndomein.nl/dir/sub/archives-1.html
http://www.mijndomein.nl/dir/sub/archives-2.html
http://www.mijndomein.nl/dir/sub/archives-3.html
etc..
http://www.mijndomein.nl/dir/sub/archives-70.html

te printen.

Nou leek mij dat simpel te regelen met:

code:

#!/usr/bin/perl
use strict;
my($link,$aantaldagen) = @ARGV;
for (my $i = 1; $i <= $aantaldagen; $i++ ) {
        $link =~ s/\*\*/$i/;
        print "$i\t$link\n";
}

ik geef dan:
http://www.mijndomein.nl/dir/sub/archives-**.html 70
als parameters mee, en de ** zouden steeds vervangen moeten worden door $i, maar dit gebeurt maar 1 keer.

http://www.mijndomein.nl/dir/sub/archives-1.html
http://www.mijndomein.nl/dir/sub/archives-1.html
http://www.mijndomein.nl/dir/sub/archives-1.html
etc..

Zoekwerk leert dat dit gedrag beinvloed wordt door de /o optie, uit perlrequick:

perl has to re-evaluate $pattern each time through the loop. If $pattern won't be changing, use the //o modifier, to only perform variable substitutions once.

maar ik wil juist het tegenovergestelde!

Weet iemand hoe ik kan bereiken dat $pattern steeds opnieuw geevalueerd wordt?
Ik heb de /e modifier geprobeerd, en er ook eval{} omheen gezet, ik heb de regex in een subroutine gezet, ik heb een extra variabele gebruikt om $i aan toe te wijzen, maar niets hielp.

Uiteindelijk is het met een lelijke omweg:

code:

my $link2 = $link;
$link2 =~ /(.+)\*\*(.+)/;
$link2 = "$1$i$2";
print "$i\t$link2\n";

wel gelukt, maar ondertussen vraag ik me wel af of het gewoon echt niet kan, of dat ik iets over het hoofd zie.

[Verwijderd]

pinball schreef op donderdag 24 maart 2005 @ 11:12:

code:

#!/usr/bin/perl
use strict;
my($link,$aantaldagen) = @ARGV;
for (my $i = 1; $i <= $aantaldagen; $i++ ) {
        $link =~ s/\*\*/$i/;
        print "$i\t$link\n";
}

ik geef dan:
http://www.mijndomein.nl/dir/sub/archives-**.html 70
als parameters mee, en de ** zouden steeds vervangen moeten worden door $i, maar dit gebeurt maar 1 keer.

$link wordt namelijk de eertse keer al veranderd en heeft dus geen ** meer. Het makkelijkste is om in de loop een nieuwe string de waarde van $link te geven.

code:

#!/usr/bin/perl
use strict;
my($link,$aantaldagen) = @ARGV;
for (my $i = 1; $i <= $aantaldagen; $i++ ) {
         $newlink = $link;
        $newlink =~ s/\*\*/$i/;
        print "$i\t$newlink\n";
}

[ Voor 3% gewijzigd door Verwijderd op 24-03-2005 11:58 ]

[pinball]

omg hoe dom Heb ik me lekker zitten blindstaren
Bedankt voor deze eyeopener