[perl] Hoe vaak komt een karakterreeks voor?

**07-08-2002, 18:47**

Ik wil tellen (oid) hoevaak een karakterreeks voorkomt.

Is daar een functie voor?
Of moet ik er achter komen via een omweg? ( eerst de 'vervangen'-opdracht geven, dan weet ik hoeveel hij er heeft vervangen, en dan weer terugzetten, om ze daarna eventueel weer te gaan vervangen)

TouchOfDarkness · **07-08-2002, 19:54**

hmm kzou zeggen zoek de positie op van de eerste keer dat je die reeks tegenkomt, laat daarbij een teller lopen hoe vaak je een match hebt...

als je nou een hit hebt, neem dan voor die functie als input de tekst minus het stuk tot en met de hit. zo kan je recursief het hele blokje tekst doorzoeken

**07-08-2002, 19:57**

ja... maar dan moet ik het nog zelf schrijven. Is er geen standaard functie voor?

**07-08-2002, 20:56**

Ik weet van geen standaardfunctie die dit doet. Ik zou het gewoon zo doen:

Code:

sub aantal {
  $_ = $_[0]; my $i;
  for ($i=0; /bla/; $i++) {
    $_ = $';
  }
  return $i;
}

Of: wat TouchOfDarkness zegt

**07-08-2002, 22:19**

ok

Maar kan ik het ook zo maken dat ik dit allemaal hetzelfde is:

Code:

$aantal = strcnt/'abcdefga'/'a'/gi;

$string = 'abcdefga';
$aantal = strcnt/$string/'a'/gi;

$string = 'abcdefga';
$aantal = ( $string =~ strcnt/'a'/gi);

Waarbij de g staat voor globaal, en de i voor case-insensitive.

?

**08-08-2002, 08:03**

Umm... je zou zoiets kunnen doen:

Code:

$test =~ s/.*?bla.*?/1/gi;
$aantal = length $test;

Is korter, maar of het sneller is dan de stap-voor-stap methode is maar de vraag.

**08-08-2002, 11:58**

dan is dit beter (denk ik):

Code:

$aantal = ($test =~ s/.*?bla.*?/1/gi);

Maar je vervangt de PATTERN met 1 ?? Waar is dat voor?

**08-08-2002, 14:30**

Mijn bedoeling is om overal die string "bla" met eventuele andere strings eromheen (die worden afgevangen door .*?) te vervangen door één karakter, hier het cijfer 1. Als je dan "bladieblabla" behandelt, dan krijg je dus "111" (=lengte 3; 3 keer bla). Alleen bij strings waar die "bla" helemaal niet in voorkomt loopt dit fout, dus je moet wel van te voren controleren of "bla" sowieso wel in de string voorkomt...

**08-08-2002, 14:46**

Ach zoo.

Maar ik wil eigenlijk de oorspronkelijke tekst niet veranderen...

Je kan dus ook het volgende doen:

Code:

$tekst = "abcdefa";
$aantal = ( $tekst =~ s/'a'/'443DfEesw'/g );
$tekst =~ s/'443DfEesw'/'a'/g;

Is dat sneller, of niet?

**08-08-2002, 18:38**

Dit werkt ook:

Code:

$tekst = "abcdefa";
$aantal = $tekst =~ s/a/a/g;

Dat lijkt me tot nu toe het snelst

**08-08-2002, 18:39**

Hmm... aangezien mijn huidige probleem ook onder Perl valt, zet ik het hier maar neer

Ik heb een functie (change_date) die de datum moet omzetten van '2002-08-07 19:38:32' (dus yyyy-mm-dd hh:mm

s) naar, je raad het al: '07-08-2002 19:38:32'.

Dit heb ik gedaan, maar werkt niet

Code:

sub change_date
{
  /(.{4})-(.{2})-(.{2})/;
  return join( '-', $3, $2, $1 ) . $';
}

Wat doe ik fout? (of wat gaat hier fout

)

**08-08-2002, 18:41**

Citaat:

Chip Zero schreef:
Dit werkt ook:

Code:

$tekst = "abcdefa"; $aantal = $tekst =~ s/a/a/g;

Dat lijkt me tot nu toe het snelst

ah, ok!

**08-08-2002, 18:47**

Citaat:

eddie schreef:

Code:

sub change_date { /(.{4})-(.{2})-(.{2})/; return join( '-', $3, $2, $1 ) . $'; }

Wat doe ik fout? (of wat gaat hier fout )

Whoa! Dat zou ik gewoon zo doen:

Code:

s/(....)-(..)-(..)(.*)/$3-$2-$1$4/;

**08-08-2002, 18:53**

Citaat:

Chip Zero schreef:
Whoa! Dat zou ik gewoon zo doen:

Code:

s/(....)-(..)-(..)(.*)/$3-$2-$1$4/;

Ach ja! Natuurlijk!

**08-08-2002, 18:58**

Okeee... wat klopt er niet?

Code:

$dPostDatum = &change_date( $dPostDatum );

...

sub change_date
{
 s/(....)-(..)-(..)(.*)/$3-$2-$1$4/;
 return $_;
}

Geeft niks terug

Kan ik trouwens ook doen

Code:

 
$dPostDatum =~ &change_date();

?

**08-08-2002, 19:39**

Dat moet dus zijn:

Code:

$dPostDatum = change_date($dPostDatum); #mag vrijwel altijd zonder &

...

sub change_date
{
 $_ = $_[0];
 s/(....)-(..)-(..)(.*)/$3-$2-$1$4/;
 return $_;
}

En...

Citaat:

eddie schreef:
Kan ik trouwens ook doen

Code:

$dPostDatum =~ &change_date();

?

...kan zo te zien niet.

**08-08-2002, 23:06**

Hey, Chip Zero!
Het werkt!

Bedankt!

**09-08-2002, 18:03**

Ik houd 'al' mijn Perl vragen maar even in één topic

Ik ben dus bezig met een forum te maken. Nu wil ik, net zoals hier, dat URL's automatisch worden omgezet.
Ik heb dit:

Code:

$bericht =~ s/(.*)(\"{0})(\]{0})(={0})(http\:\/\/)(.+)( *)/$1\[url\]$5$6\[\/url\]$7/gis;

maar die werkt niet.

Waarom niet?

**09-08-2002, 18:13**

Bleh maak er liever een multiline regexp van, zo moet ik het helemaal ontcijferen.

Anyways, door die $7 not-greedy te maken en wat andere veranderingen lijkt het nu wel te werken:

Code:

$bericht =~ s!(.*)(\"{0})(\]{0})(={0})(http\://)(.*?)\s!$1\[url\]$5$6\[/url\] $7!gis;

Er moet alleen wel een spatie achteraan 't bericht anders werkt 't niet :-/

**09-08-2002, 18:18**

Citaat:

Chip Zero schreef:
Bleh maak er liever een multiline regexp van, zo moet ik het helemaal ontcijferen.

Anyways, door die $7 not-greedy te maken en wat andere veranderingen lijkt het nu wel te werken

Er moet alleen wel een spatie achteraan 't bericht anders werkt 't niet :-/

multiline regexp

Hoe maak ik iets not-greedy dan?

(btw, hij doet het niet :/)

**09-08-2002, 18:25**

Code:

$bericht = "bericht http://www.huiswerkservice.nl bericht";

$bericht =~ s!(.*)(\"{0})(\]{0})(={0}) #rommel
  (http://) #$5
  (.*?) #rest van url ($6)
  \s
  !$1\[url\]$5$6\[/url\] $7!gisx; #<= deze x maakt 't een multiline regexp

print $bericht;

Die "rest van url" is dus not-greedy, door dat vraagteken erachter. Normaal gesproken is .* greedy, dus probeert 't een zo lang mogelijke string te matchen. *? is niet greedy, en probeert een zo kort mogelijke string te matchen. Lastig uit te leggen maar als je ermee experimenteert kom je er wel achter...

De fout in mijn code hierboven is dus vooralsnog dat 't alleen met berichten met een spatie achter de url werkt. Ik had wat andere dingen geprobeert maar dat lukte niet echt...

**09-08-2002, 18:30**

Weet al waarom hij het niet deed

de '/' is een hex-waarde in het bericht

**09-08-2002, 18:33**

Citaat:

eddie schreef:
Weet al waarom hij het niet deed
de '/' is een hex-waarde in het bericht

He wat? Hij doet 't nu dus? Jammer, ik had 'm hier net aan het werk gekregen...

**09-08-2002, 18:35**

Citaat:

Chip Zero schreef:
He wat? Hij doet 't nu dus? Jammer, ik had 'm hier net aan het werk gekregen...

Nee, hij doet het hier nog niet

Alleen waar een spatie voor en achter staat, doet hij

**09-08-2002, 18:39**

Het is niet echt optimaal op deze manier, maar 't werkt (of dat denk ik tenminste):

Code:

$bericht = "bericht http://www.huiswerkservice.nl bericht";

$bericht =~ s!(.*)(\"{0})(\]{0})(={0}) #rommel
  (http://) #$5
  ((.*?) #rest van url ($6)
   ([^\w/.])
  |(.*))
  !$1\[url\]$5$7$9\[/url\]$8!gisx;

print $bericht;

**09-08-2002, 18:47**

Alleen ik zit met hex-code

Code:

$bericht =~ s
!(.*?)(\"{0})(\]{0})(={0}) # $1-$4
 (http\%3A\%2F\%2F) # $5
 (.+) #$6
 ((\%0D\%0A)*|(\%20)*) #$7-$8
!$1\[url\]$5$6\[\/url\]$7$8
!gisx;

Ofzo.

%0D%0A is het nl/cr teken.
%20 is spatie.

Deze mogen dus ook vaker voorkomen achter elkaar

**10-08-2002, 10:05**

Als ik aan zoiets begin dan wil ik het ook wel afmaken. Gisteren had ik het nog even geprobeert met een bericht met twee urls, en dat werkte voor geen meter. Ik heb het nu verder afgemaakt gebaseerd op mijn vorige code:

Code:

$bericht = "bericht http://www.huiswerkservice.nl bericht http://www.iets-heel%20anders.nl/";

$bericht =~ s!#(.*)(\"{0})(\]{0})(={0}) #werkt gewoon zonder ({0} is *minimaal* nul)
  (http://) #$1
  ((.*?) #begin van $2, $3
   ([^\w/.%-]) #$4
  |(.*)) #$5 en einde van $2
  !\[url\]$3$5\[/url\]$4!gisx;

print $bericht;
#output: bericht [url]www.huiswerkservice.nl[/url] bericht [url]www.iets-heel%20anders.nl/[/url]

**10-08-2002, 12:09**

Helaal, Chip Zero, jij gaat er vanuit dat er spaties enzo instaan, maar omdat het uit een textarea komt, is het geconverteerd naar + (bijvoorbeeld)

Zie hier een inhoud van wat in het scriptje binnenkomt:

http%3A%2F%2Fwww.erikdokter.nl%0D%0Ahttp%3A%2F%2Fwww.erikdokter.nl+1%0 D%0A1+http%3A%2F%2Fwww.erikdokter.nl%0D%0A1+http%3A%2F%2Fwww.erikdokte r.nl+1

(zie ook http://www.erikdokter.nl/forum/?acti...opic&topicid=7)

Citaat:

{n} Match exactly n times

Ik zit ook nog met het probleem dat

Code:

[ url]http://www.erikdokter.nl[/url]
[ url=http://www.erikdokter.nl]Mijn forum[/url]

buiten de replace moeten vallen, vandaar de

Code:

(.*)(\"{0})(\]{0})(={0})

Heb nu

Code:

$bericht =~ s
!(\%5D{0})(\%3D{0}) # Alles wat niet voor de http:// mag komen $1-$2
 (http\%3A\%2F\%2F) # http:// zelf $3
 (.+) # de rest van de url $4
 ((\+)*) # Spatie $5
 (.*) # $6
!$1\[url\]$3$4\[/url\]$5$6
!gisx;

En doet het nog niet

**10-08-2002, 12:48**

In dat geval zou ik 't in ieder geval eerst url-decoden, dat gaat veel makkelijker lijkt mij. En dat {0} stuk daar heb je gelijk in, dat moet dan wel zo blijven.

**10-08-2002, 12:57**

Citaat:

Chip Zero schreef:
In dat geval zou ik 't in ieder geval eerst url-decoden, dat gaat veel makkelijker lijkt mij.

Ik kan hem niet decoden, want dan staat hij niet goed in de database (eoln karakters enzo).

**10-08-2002, 13:04**

Dat maakt 't wel wat lastiger. Je wilt 't zeker ook niet eerst decoden en dan weer encoden?

Dan zou ik zeggen, combineer mijn laatste versie met de jouwe en speel er wat mee...

**10-08-2002, 13:20**

*speelt*

**10-08-2002, 13:24**

Wordt lekker groot Perl topic zo

**10-08-2002, 15:13**

Whooeeii!
Heppum! Heppum! (naja... half dan

)

Code:

$bericht =~ s
!(http\%3A\%2F\%2F) # http:// zelf $1
 (.+?) #begin van $2
 ((\ )|(\%0D\%0A)) # $3 $4
!\%5Burl\%5D$1$2\%5B/url\%5D$3$4
!gisx;

Ik gebruik een library om de url enzo om te zetten (een cgi-lib.pl, die ik niet zelf heb geschreven), en deze zette de + (spatie in text) om naar een echte spatie.

Tevens wou die functie de hexwaardes omzetten naar normale waarden, en daarna de html-tags eruit filteren.

De eikel!

Nu alleen nog dat van een paar posts terug verwerken (met die url en img tags) en het is klaar

*blij*

**10-08-2002, 15:51**

D'r is wel zo'n standaardfunctie voor maar ik heb nooit zin om die op te zoeken. In plaats kopiëer ik de volgende subs uit een oud script:

Code:

sub url_encode {
  my($text)  = $_[0];     # text to URL encode
  $text =~ tr/ /+/;     # replace " " with "+"
  $text =~ s/[^A-Za-z0-9\+\*\.\@\_\-]/   # replace odd chars
             uc sprintf("%%%02x",ord($&))/egxo;  #   with %hex value
  return $text;      # return URL encoded text
}

sub url_decode {
  my($t)  = $_[0];     # URL encoded text to decode
  $t =~ tr/+/ /;     # replace "+" with " "
  $t =~ s/%([A-F0-9]{2})/pack("C", hex($1))/egio; # replace %hex with chars
  return $t;      # return decoded plain text
}

sub url_encode_full { #encode aangepast om alle chars om te zetten
  my($text)  = $_[0];     # text to URL encode
  $text =~ tr/ /+/;     # replace " " with "+"
  $text =~ s/./   # replace *all* chars
             uc sprintf("%%%02x",ord($&))/egxo;  #   with %hex value
  return $text;      # return URL encoded text
}

Die had ik ooit eens ergens gevonden. Die laatste is ook wel grappig...

**12-08-2002, 17:00**

Hmm... Ik zit nu met het volgende probleem.

Als ik de string
'[ url]http://www.erikdokter.nl[/url]' (wel zonder spaties

), krijg ik

Code:

<a href="" title="http://http://www.erikdokter.nl" onclick="window.open('http://http://www.erikdokter.nl', '_window');">http://www.erikdokter.nl</a>

Zoals je ziet, staat er 2 keer http:// in.
Ik gebruik de volgende replace functie:

Code:

$cTekst =~ s
 !(\[url\]) # Begin url $1
  ([http\://]??) # Eventueel http:// strippen $2 
  (.+?) # url $3
  (\[/url\]) # Eind url $4
 !\<a href=\"\" title=\"http\://$3\" onclick=\"window\.open\(\'http\://$3\', \'_window\'\);\"\>$3\</a\>
 !gisx;

Ik wil ook dat hij werkt als ik de string
'[ url]www.erikdokter.nl[/url]'
heb. Vandaar dat http:// optioneel moet zijn (met ?? dacht ik...(of ?, of {0, 1}))

**12-08-2002, 17:14**

Citaat:

Als ik de string
'[ url]http://www.erikdokter.nl[/url]' (wel zonder spaties ), krijg ik

[url]http://www.huiswerkservice.nl[/url] dus

Code:

$cTekst =~ s
 !(\[url\]) # Begin url $1 <= dat hoeft toch geen $1 te zijn?
  (http://)?# Eventueel http:// strippen $2 <= vierkante haken stonden compleet verkeerd, dan zou het maar één teken zijn
  (.+?) # url $3
  (\[/url\]) # Eind url $4
 !\<a href=\"\" title=\"http\://$3\" onclick=\"window\.open\('http\://$3', '_window'\);\"\>$3\</a\>
 !gisx;

**12-08-2002, 17:20**

Citaat:

Chip Zero schreef:
dat hoeft toch geen $1 te zijn?

Nee, maar dat is het wel...

(is toch de eerste search-pattern. En die krijgt toch $1???)

Citaat:

Chip Zero schreef:

vierkante haken stonden compleet verkeerd, dan zou het maar één teken zijn

Jaaa, ik weet die betekenissen ook niet van die [] dingen

Dank

**12-08-2002, 17:24**

Citaat:

eddie schreef:

Nee, maar dat is het wel... (is toch de eerste search-pattern. En die krijgt toch $1???)

Ja maar als je die haakjes er omheen gewoon weglaat is het volgende omhaakte stuk $1. Je hebt die haakjes alleen nodig als je zo'n stuk dan als $1 ofzo wilt gebruiken of soms om | te gebruiken, of zoals bij dat http:// stuk om tekst bij elkaar te houden voor een ? of een * ofzo.

**12-08-2002, 17:27**

Citaat:

Chip Zero schreef:
Ja maar als je die haakjes er omheen gewoon weglaat is het volgende omhaakte stuk $1. Je hebt die haakjes alleen nodig als je zo'n stuk dan als $1 ofzo wilt gebruiken of soms om | te gebruiken, of zoals bij dat http:// stuk om tekst bij elkaar te houden voor een ? of een * ofzo.

Ooooow

Weer wat geleerd

**12-08-2002, 17:43**

Stomme PATTERNS ook...
Jemig.

Er mag geen spatie komen na een [img]-tag...

Code:

$cTekst =~ s
 !\[img\]# Begin image
  \ {0}# Geen spatie ?
  (http\://)?# Eventueel http:// strippen $1
  (.+?)# url $2
  \[/img\]# Eind image
 !\<img src=\"http\://$2\" alt=\"Plaatje niet gevonden\" title=\"http\://$2\" />
 !gisx;

Doet het niet...

\s{0} doet het ook niet...

**12-08-2002, 17:49**

Kijk, een string met lengte nul is géén spatie, daar werkt dat niet denk ik. Je moet dus zorgen dat die $1 hier géén spatie kan zijn ([^\s] is een verzameling van alle tekens behalve spaties).

**12-08-2002, 17:59**

hoe moet hij dan worden??
Ik kom er niet uit

**12-08-2002, 18:03**

Umm waar ik $1 zei bedoelde ik dus $2. Maar dit moet 't dus worden:

Code:

$cTekst =~ s
 !\[img\]# Begin image
  (http\://)?# Eventueel http:// strippen $1
  ([^\s]+?)# url $2
  \[/img\]# Eind image
 !\<img src=\"http\://$2\" alt=\"Plaatje niet gevonden\" title=\"http\://$2\" />
 !gisx;

**12-08-2002, 18:07**

**12-08-2002, 18:12**

Weet je wat, maak er bij nader inzien maar dit van:
([^\s].*?)
Dan accepteert 'ie ook urls met spaties binnenin...

Wat voor editor gebruik jij eigenlijk?

**12-08-2002, 18:22**

Citaat:

Chip Zero schreef:
Weet je wat, maak er bij nader inzien maar dit van:
([^\s].*?)
Dan accepteert 'ie ook urls met spaties binnenin...

Hmm... Dan kan de url toch ook niks zijn?? (dus alleen maar http://, verder niks?)

Citaat:

Chip Zero schreef:

Wat voor editor gebruik jij eigenlijk?

Edit Plus 2.11 natuurlijk

Citaat:

Syntax highlighting for HTML, CSS, PHP, ASP, Perl, C/C++, Java, JavaScript and VBScript. Also, it can be extended for other programming languages based on custom syntax files.

Super!

**12-08-2002, 18:34**

Citaat:

eddie schreef:
Hmm... Dan kan de url toch ook niks zijn?? (dus alleen maar http://, verder niks?)

Dan krijg je <img src="http://http://" alt="Plaatje niet gevonden" title="http://http://" />". Is dat rampzalig?

Wat ik me net bedenk trouwens, je moet er éigenlijk ook nog zorgen dat er geen javascript: urls worden toegestaan, een soort van bug in IE die dat dan gewoon uitvoert. Aan de andere kant, als ik jouw site in IE bekijk, misschien hoeft dat misschien ook weer niet

Citaat:

Edit Plus 2.11 natuurlijk

Ik had al zo'n vermoeden

Ik gebruik zelf tegenwoordig meestal Dzsoft Perl Editor, waarmee ik de uitvoer van het script ook meteen kan zien (ook met de ingebouwde IE viewer). Handig om dit soort dingetjes snel mee te proberen.

Citaat:

(editplus)
Super!

Ik ken 't wel, heb het zelf wel gebruikt voor de taal Haskell. Daar waren ook syntax files voor beschikbaar...

**12-08-2002, 18:45**

Citaat:

Chip Zero schreef:
Dan krijg je <img src="http://http://" alt="Plaatje niet gevonden" title="http://http://" />". Is dat rampzalig?

Neuh...

Citaat:

Chip Zero schreef:

Wat ik me net bedenk trouwens, je moet er éigenlijk ook nog zorgen dat er geen javascript: urls worden toegestaan, een soort van bug in IE die dat dan gewoon uitvoert. Aan de andere kant, als ik jouw site in IE bekijk, misschien hoeft dat misschien ook weer niet

Ghegheghe!

Wel een goeie trouwens. Zal ik eens naar kijken

Citaat:

Chip Zero schreef:

Ik gebruik zelf tegenwoordig meestal Dzsoft Perl Editor, waarmee ik de uitvoer van het script ook meteen kan zien (ook met de ingebouwde IE viewer). Handig om dit soort dingetjes snel mee te proberen.

Dat kan ook in Edit Plus (kwam ik net achter

)

**12-08-2002, 18:56**

Citaat:

eddie schreef:
Ghegheghe!
Wel een goeie trouwens. Zal ik eens naar kijken

Werkt op erg veel forums. Worden cookies mee gestolen en dingen als javascript:while(1){alert('hallo')} mee gedaan

(raar trouwens hoe dit forum "javascript" automatisch omzet in "java script")

Citaat:

Dat kan ook in Edit Plus (kwam ik net achter )

Ja? Da's pretty goed. Maar heeft 't ook geintegreerde Perl help? Quick insert code snippets (vast wel)? En vooral: step-by-step debugging? En 't watchen van variabelen? Al is Perl Builder daar weer wat sterker in dan Perl Editor. Ik gebruik ze eigenlijk allebei, maar Perl Editor werkt toch wat lekkerder.

07-08-2002, 18:47
Verwijderd	Ik wil tellen (oid) hoevaak een karakterreeks voorkomt. Is daar een functie voor? Of moet ik er achter komen via een omweg? ( eerst de 'vervangen'-opdracht geven, dan weet ik hoeveel hij er heeft vervangen, en dan weer terugzetten, om ze daarna eventueel weer te gaan vervangen)

07-08-2002, 19:54
TouchOfDarkness	hmm kzou zeggen zoek de positie op van de eerste keer dat je die reeks tegenkomt, laat daarbij een teller lopen hoe vaak je een match hebt... als je nou een hit hebt, neem dan voor die functie als input de tekst minus het stuk tot en met de hit. zo kan je recursief het hele blokje tekst doorzoeken __________________ He can't hear the sirens, cause silence is the greatest sleep of them all.

07-08-2002, 19:57
Verwijderd	ja... maar dan moet ik het nog zelf schrijven. Is er geen standaard functie voor?

07-08-2002, 20:56
Verwijderd	Ik weet van geen standaardfunctie die dit doet. Ik zou het gewoon zo doen: Code: sub aantal { $_ = $_[0]; my $i; for ($i=0; /bla/; $i++) { $_ = $'; } return $i; } Of: wat TouchOfDarkness zegt

07-08-2002, 22:19
Verwijderd	ok Maar kan ik het ook zo maken dat ik dit allemaal hetzelfde is: Code: $aantal = strcnt/'abcdefga'/'a'/gi; $string = 'abcdefga'; $aantal = strcnt/$string/'a'/gi; $string = 'abcdefga'; $aantal = ( $string =~ strcnt/'a'/gi); Waarbij de g staat voor globaal, en de i voor case-insensitive. ?

08-08-2002, 08:03
Verwijderd	Umm... je zou zoiets kunnen doen: Code: $test =~ s/.?bla.?/1/gi; $aantal = length $test; Is korter, maar of het sneller is dan de stap-voor-stap methode is maar de vraag.

08-08-2002, 11:58
Verwijderd	dan is dit beter (denk ik): Code: $aantal = ($test =~ s/.?bla.?/1/gi); Maar je vervangt de PATTERN met 1 ?? Waar is dat voor?

08-08-2002, 14:46
Verwijderd	Ach zoo. Maar ik wil eigenlijk de oorspronkelijke tekst niet veranderen... Je kan dus ook het volgende doen: Code: $tekst = "abcdefa"; $aantal = ( $tekst =~ s/'a'/'443DfEesw'/g ); $tekst =~ s/'443DfEesw'/'a'/g; Is dat sneller, of niet?

08-08-2002, 18:38
Verwijderd	Dit werkt ook: Code: $tekst = "abcdefa"; $aantal = $tekst =~ s/a/a/g; Dat lijkt me tot nu toe het snelst

08-08-2002, 18:58
Verwijderd	Okeee... wat klopt er niet? Code: $dPostDatum = &change_date( $dPostDatum ); ... sub change_date { s/(....)-(..)-(..)(.*)/$3-$2-$1$4/; return $_; } Geeft niks terug Kan ik trouwens ook doen Code: $dPostDatum =~ &change_date(); ?

Advertentie

08-08-2002, 23:06
Verwijderd	Hey, Chip Zero! Het werkt! Bedankt!

09-08-2002, 18:03
Verwijderd	Ik houd 'al' mijn Perl vragen maar even in één topic Ik ben dus bezig met een forum te maken. Nu wil ik, net zoals hier, dat URL's automatisch worden omgezet. Ik heb dit: Code: $bericht =~ s/(.)(\"{0})(\]{0})(={0})(http\:\/\/)(.+)( )/$1\[url\]$5$6\[\/url\]$7/gis; maar die werkt niet. Waarom niet?

09-08-2002, 18:13
Verwijderd	Bleh maak er liever een multiline regexp van, zo moet ik het helemaal ontcijferen. Anyways, door die $7 not-greedy te maken en wat andere veranderingen lijkt het nu wel te werken: Code: $bericht =~ s!(.)(\"{0})(\]{0})(={0})(http\://)(.?)\s!$1\[url\]$5$6\[/url\] $7!gis; Er moet alleen wel een spatie achteraan 't bericht anders werkt 't niet :-/

09-08-2002, 18:30
Verwijderd	Weet al waarom hij het niet deed de '/' is een hex-waarde in het bericht

09-08-2002, 18:47
Verwijderd	Alleen ik zit met hex-code Code: $bericht =~ s !(.?)(\"{0})(\]{0})(={0}) # $1-$4 (http\%3A\%2F\%2F) # $5 (.+) #$6 ((\%0D\%0A)\|(\%20)) #$7-$8 !$1\[url\]$5$6\[\/url\]$7$8 !gisx; Ofzo. %0D%0A is het nl/cr teken. %20 is spatie. Deze mogen dus ook vaker voorkomen achter elkaar Laatst gewijzigd op 09-08-2002 om 18:54.*

10-08-2002, 12:48
Verwijderd	In dat geval zou ik 't in ieder geval eerst url-decoden, dat gaat veel makkelijker lijkt mij. En dat {0} stuk daar heb je gelijk in, dat moet dan wel zo blijven.

10-08-2002, 13:04
Verwijderd	Dat maakt 't wel wat lastiger. Je wilt 't zeker ook niet eerst decoden en dan weer encoden? Dan zou ik zeggen, combineer mijn laatste versie met de jouwe en speel er wat mee...

10-08-2002, 13:24
Verwijderd	Wordt lekker groot Perl topic zo

12-08-2002, 17:49
Verwijderd	Kijk, een string met lengte nul is géén spatie, daar werkt dat niet denk ik. Je moet dus zorgen dat die $1 hier géén spatie kan zijn ([^\s] is een verzameling van alle tekens behalve spaties).

12-08-2002, 17:59
Verwijderd	hoe moet hij dan worden?? Ik kom er niet uit

12-08-2002, 18:12
Verwijderd	Weet je wat, maak er bij nader inzien maar dit van: ([^\s].*?) Dan accepteert 'ie ook urls met spaties binnenin... Wat voor editor gebruik jij eigenlijk?