Hallo,

kann mir mal jemand bitte diese Verhalten erläutern ?


$_ = "A\nB\nC\nD\n";

# Gibt 4-mal den String aus :
print while ( /\w/g );

# Gibt den String unendlich oft aus :
print while ( /\w/ );

# Gibt alles gar nichts aus, terminiert :

print while ( /^\w$/g );
print while ( /^\w$/ );
my $pat = '/\w/g' ;
print while ( $pat[0] );

Danke.
muede

muede wrote:

> kann mir mal jemand bitte diese Verhalten erläutern ?
>
> $_ = "A\nB\nC\nD\n";
>
> # Gibt 4-mal den String aus :
> print while ( /\w/g );
>
> # Gibt den String unendlich oft aus :
> print while ( /\w/ );
>
> # Gibt alles gar nichts aus, terminiert :
>
> print while ( /^\w$/g );
> print while ( /^\w$/ );
> my $pat = '/\w/g' ;
> print while ( $pat[0] );

Ja, so ist das.
Was verstehst Du daran denn nicht bzw. was erwartest stattdessen?

Grüße
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel

muede wrote:

> kann mir mal jemand bitte diese Verhalten erläutern ?
>
> $_ = "A\nB\nC\nD\n";
>
> # Gibt 4-mal den String aus :
> print while ( /\w/g );
>
> # Gibt den String unendlich oft aus :
> print while ( /\w/ );
>
> # Gibt alles gar nichts aus, terminiert :
>
> print while ( /^\w$/g );
> print while ( /^\w$/ );
> my $pat = '/\w/g' ;
> print while ( $pat[0] );
>
> Danke.
> muede

Ja, so ist das.
Was verstehst Du daran denn nicht bzw. was erwartest Du stattdessen?

Grüße
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel

muede schrieb:

> kann mir mal jemand bitte diese Verhalten erläutern ?

Das ist ein Scherz, oder?

> $_ = "A\nB\nC\nD\n";
>
> # Gibt 4-mal den String aus :
> print while ( /\w/g );

perldoc perlre
/looping modifier

Wenn du nur den Treffer ausgeben willst, dann musst du ihn auch einfangen:
/match variables

> # Gibt den String unendlich oft aus :
> print while ( /\w/ );

Weil immer true.

> # Gibt alles gar nichts aus, terminiert :
> print while ( /^\w$/g );

Weils nicht matcht.

> print while ( /^\w$/ );

Weils nicht matcht.

Suchst du vielleicht /m (in Verbindung mit /g)?

> my $pat = '/\w/g' ;
> print while ( $pat[0] );

Was soll das sein?

Global symbol " [at] pat" requires explicit package name

> Danke.
> muede

Na dann.


Frank

Frank Seitz schrieb:
> muede wrote:
>
>
>>kann mir mal jemand bitte diese Verhalten erläutern ?
>>
>>$_ = "A\nB\nC\nD\n";
>>
>># Gibt 4-mal den String aus :
>>print while ( /\w/g );
>>
>># Gibt den String unendlich oft aus :
>>print while ( /\w/ );
>>
>># Gibt alles gar nichts aus, terminiert :
>>
>>print while ( /^\w$/g );
>>print while ( /^\w$/ );
>>my $pat = '/\w/g' ;
>>print while ( $pat[0] );
>>
>>Danke.
>>muede
>
>
> Ja, so ist das.
> Was verstehst Du daran denn nicht bzw. was erwartest Du stattdessen?
>
> Grüße
> Frank

rtfm
Verzeihung..
muede