Flip Flop OP und Perl Version - #197486 (Allgemeines zu Perl)

Linuxer

2026-04-14 17:46

User since
2006-01-27
3893 Artikel
HausmeisterIn

user image

Hi,

was soll der Code denn eigentlich bewirken?

Erste Auffälligkeit ist, dass $1 in dem Fragment gar nicht befüllt wird? Wo passiert das?
Liefer doch bitte mal ein nachvollziehbares Beispiel.

Warum verwendest Du $OLD_PERL_VERSION anstatt $PERL_VERSION?
Laut perldoc perldata wird von der Verwendung von $OLD_PERL_VERSION abgeraten, und es wird auf $PERL_VERSION verwiesen.

Und bei mir funktioniert der Flip-Flop auch ohne next mit 5.40.2:

Code (perl): (dl )

#! /usr/bin/env perl
use strict;
use warnings;
use English qw( -no_match_vars );

print $PERL_VERSION, "\n";

if ($PERL_VERSION > 5.020 ) {
    print "Version OK.\n";
}

while ( my $r = <DATA> ) {
    if ( $r =~ m/{/ .. $r =~ m/}/ ) {
        print $r;
    }
}

__DATA__
nicht gesehen.
{
1
2
3
}
wieder nicht gesehen.

Ausgabe:

Code: (dl )

v5.40.2
Version OK.
{
1
2
3
}

Dein Problem ist leider nicht nachvollziehbar.

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!