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

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/