[perl] replace probleempje

[Slagroom]

Hallo,

Ik wil voor ieder domein dat door deze regexp gaat de voorste www. verwijderen. Nu doe ik dat met:

$shop_dir =~ s/www\.//gi;

maar het lijkt met veiliger om dat zo te doen zodat hij alleen de www. aan het begin van de regel pakt:

$shop_dir =~ s/^www\.//gi;

Maar dat werkt niet, hoe kan dat? Wat doe ik verkeerd?

[PaneVino]

/home/marcel
marcel@panevino # cat w
$a = 'www.domein.nl';

$a =~ s/^www\.//gi;

print "A: $a\n";
/home/marcel
marcel@panevino # perl w
A: domein.nl


dat werkt hier wel ...

[Slagroom]

Ik heb het al:

Perl:

$shop_dir = $data[1];
$shop_dir =~ s/^www\.//gi;
$shop_dir =  $hosts.'/'.$shop_dir;

[ Voor 77% gewijzigd door Slagroom op 30-08-2003 12:14 ]