RegEx: wie oft wurde etwas gefunden (Allgemeines zu Perl)

[thread]8161[/thread]

RegEx: wie oft wurde etwas gefunden

pktm

2006-07-12 14:04

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Ich habe eine Zeichenkette, die einige male den Backslash enthält.
Wie kann ich feststellen, wie oft der enthalten ist?
Ich kann zwar einen reguläen Ausruck in ein Array interpolieren und dann dessen Länge nehmen, aber ich möchte an dieser Stelle lieber unleserlichen Code der mir direkten Zugriff auf die Anzahl der Matches erlaubt.

Hier mal Beispielcode:

Code: (dl )

my $s = q~1\A\563\M\1\Y\Y\Y\A\N\N\N\N\(A)[N]\N\N\N\N\S3/P2\N~;
print $s =~ m/(\\)/g; # gibt 19mal \ aus
my @erg = $s =~ m/(\\)/g;
print "\nerg: " . scalar(@erg); # gibt erg: 19 aus

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )

renee

2006-07-12 14:12

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $s = q~1\A\563\M\1\Y\Y\Y\A\N\N\N\N\(A)[N]\N\N\N\N\S3/P2\N~;
my $anz = $s =~ tr/\\//;

print $anz;

Edit: das geht aber nicht wenn Du z.B. \N suchen willst. Dann hilft

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $s = q~1\A\563\M\1\Y\Y\Y\A\N\N\N\N\(A)[N]\N\N\N\N\S3/P2\N~;
my $anz = () = $s =~ m/(\\N)/g;

print $anz;

\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View all threads created 2006-07-12 14:04.