Dotaz: perl RE 2 dotazy

[Terka]

v cyklu zpracovavam jednotlive radky a potrebuju preskocit radky ktere nevyhovuji RE (respektive nechat ktere vyhovuji)

..
..
next if /RE/;      #toto mi chodi
$line =~ s:A:a:g;  #toto pouzivam bezne a rada bych znala zda nasledujici radek:
$line =~ m/RE/;    #(ktery mi nechodi protoze to je jen podminka) lze zapsat nejak syntakticky podobne jako predchozi radek?
#Poradite pripadne prosim dalsi moznosti zapisu napr pomoci prikazu grep?
#jde mi o pochopeni a snadnou citelnost

diky T.

Odpovědi

[wamba]

co by to mělo dělat? dát regulární výraz do proměnné, pak $line=qr{RE};

[Terka]

ma to delat to co grep - vyfiltrovat radky co vyhovuji RE

[wamba]

tak pomocí grepu to jde takhle:

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;

our $VERSION = 0.001;
my @lines = <DATA>;

my @lines_with_re = grep { m/ RE /xms } @lines;
say @lines_with_re;

__DATA__
prvni radek
druhy RE radek
treti radek
ctvrty rádek RE

[luky]

foreach (grep {/RE/} <>) {
    print;
}

pripadne radky nevyhovujici:

foreach (grep {!/RE/} <>) {
    print;
}

[Michal Vránek]

Tvuj dotaz je hodne zmateny, ale asi potrebujes toto...

while (<->) {
  next if(m/RE/); # preskoci radky, ktere vyhovuji RE 
  # TODO: dalsi zpracovani
}

[Kooala]

Zkusil jsem se na to podivat z jineho uhlu nez ostatni, nechtelas
next if m:RE: ;
popripade
next if $line =~ m:RE: ;
?