Erstat med =~ s//

Hmm der er sikkert en lettere metode, men dette virker:


$neverused=\"dethererderihvertfaldingenstrengderindeholder\";
$neverusedophold=\"dethererderihvertfaldingenstrengderindeholder\";
$variable = \"$neverused$variable\";
$variable =~ s/$neverusedophold//i;
$variable =~ s/$neverused//i;

Hov experten sletter ophold
der skal være et ophold i anden linie inden sidste \"

Hvis et ophold er første tegn i $variable bliver det fjernet, men kun hvis det er første tegn, det er det du ønsker ikke?

Check med en substr() om det første tegn er et mellemrum....
eks...

if (substr($variable,0,1) eq \' \') {
  $variable = substr($variable,1);
}

Det er ikke testet, men det er da værd at arbejde videre med (o:

//Thomas

Øh laver det ikke $variable til første bogstav i stedet for resten, således at $variable bliver til ophold

Dette må virke:

if (substr($variable,0,1) eq \' \') {
  $variable =~ s/ //i;
}

den fjerner første ophold, hvis første bogstav er et ophold

Læste lidt om substring på perl.com, der stod rent faktisk, at hvis man ikke medtog length (altså substr(variable,offset,length)) så blev det til enden af strengen, derfor gik jeg ud fra at det virkede... men det skal jo prøves - det var bare et forslag! (o:

$variable =~ s/^ //;

Hvis første tegn i $variable er et blanktegn, vil det blive fjernet, ellers ikke.

Mvh
Jesper Naur

Der var den! Takker  :)

raivo>> Det er muligt du har ret, har ikke testet, Men Jespers løsning er da klart den bedste!

Jeg ville også have skrevet den sådan, men jeg var på arbejde, og kunne ikke lige finde den helt rigtige syntaks for det (o: