"Mads Orbesen Troest" <mads@loxodonte.NEVERMORE.dk> writes:
> Fx med et regulært udtryk:
>
> my $streng = 'trallalulalej';
> my $karakter = 'u';
> print "sørme så" if $streng =~ /$karakter/;
Her bør du nok bruke
my $karakter = quotemeta 'u';
slik at det også virker om $karakter = '.'.
> Der er også, SVJH, en funktion, der søger efter en karakter i en
> streng, men jeg kan ikke lige på stående fod huske hvad den
> hedder (jeg har det med at bruge regulære udtryk
.
index()
Peter
--
sub int2roman{@x=split//,sprintf'%04d',shift;@r=('','I','V','X','L','C','D'
,'M');@p=([],[1],[1,1],[1,1,1],[1,2],[2],[2,1],[2,1,1],[2,1,1,1],[1,3],[3])
;join'',@r[map($_+6,@{$p[$x[0]]}),map($_+4,@{$p[$x[1]]}),map($_+2,@{$p[$x[2
]]}),map($_+0,@{$p[$x[3]]})];}print "@{[map{int2roman($_)}@ARGV]}\n";#JAPH!