Anzahl der Matches: wie war das nochmal (Allgemeines zu Perl)

format_c

2004-04-23 21:54

User since
2003-08-04
1706 Artikel
HausmeisterIn

ich kriegs net hin.
wie bekomm ich nochmal die Anzahl der Matches hin?
dachte so:

Code: (dl )

1
2

my $count = "Hallo Welt da draußen" =~ /a/g;
print $count;

Aber das zeigt mir immer nur 1 an.

Gruß alex

Effizente Linuxshell

[E|B]

2004-04-23 22:35

User since
2003-08-08
2561 Artikel
HausmeisterIn

Das kann auch nur "1" anzeigen. Es sagt dir damit nämlich, dass der String gefunden wurde. Und das tut es eben mit "1". ;)

So in etwa:

Code: (dl )

$string = "Hallo Welt da draussen!";
my $count = () = $string =~ m/a/g;

print $count;

Oder aber auch perldoc perlop.

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

format_c

2004-04-23 22:41

User since
2003-08-04
1706 Artikel
HausmeisterIn

Ah Danke.

Gruß Alex

Effizente Linuxshell

Strat

2004-04-23 22:48

User since
2003-08-04
5246 Artikel
ModeratorIn

das zaehlen geht nur mit capturing folgendermaszen:

Code: (dl )

$anzahl = $string =~ /(a)/g

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

pq

2004-04-25 18:09

User since
2003-08-04
12208 Artikel
Admin1

[quote=Strat,23.04.2004, 20:48]das zaehlen geht nur mit capturing folgendermaszen:

Code: (dl )

$anzahl = $string =~ /(a)/g

[/quote]
das ergibt nicht die anzahl. E|B hat schon den richtigen code gepostet.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

betterworld

2004-04-26 14:08

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Code (perl): (dl )

1
2
3

my $string = "Hallo Welt da draussen";
my $count = $string =~ tr/a/a/;
print $count;

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class