perl si la ligne correspond à l'expression rationnelle, ignorer la ligne et passer à la prochaine ligne dans le fichier

Comment voulez-vous faire ce qui suit en perl:

for $line (@lines) {
    if ($line =~ m/ImportantLineNotToBeChanged/){
        #break out of the for loop, move onto the next line of the file being processed
        #start the loop again
    }
    if ($line =~ s/SUMMER/WINTER/g){
        print ".";
    }
}

Mis à jour pour montrer plus de code, c'est ce que j'essaie de faire:

sub ChangeSeason(){

    if (-f and /.log?/) {
        $file = $_;
        open FILE, $file;
        @lines = <FILE>;
        close FILE;

        for $line (@lines) {
            if ($line =~ m/'?Don't touch this line'?/) {
                last;
            }
            if ($line =~ m/'?Or this line'?/){
                last;
            }
            if ($line =~ m/'?Or this line too'?/){
                last;
            }
            if ($line +~ m/'?Or this line as well'?/){
                last;
            }
            if ($line =~ s/(WINTER)/{$1 eq 'winter' ? 'summer' : 'SUMMER'}/gie){
                print ".";
            }
        }

        print "\nSeason changed in file $_";
        open FILE, ">$file";
        print FILE @lines;
        close FILE;
    }
}

OriginalL'auteur ar.dll | 2011-06-10

  1. 14

    Suffit d'utiliser prochaine

    for my $line (@lines) {
    next if ($line =~ m/ImportantLineNotToBeChanged/);
    if ($line =~ s/SUMMER/WINTER/g){
        print ".";
    }
}
    C'est aussi une bonne idée de lexicalement portée $line, par exemple for my $line ( @lines ) { ... }
    Bien sûr, vous avez raison. J'ai juste gardé l'OP du code. J'ai donc ajouter la correction.

    OriginalL'auteur Toto

  2. 4
    for $line (@lines) {
    unless ($line =~ m/ImportantLineNotToBeChanged/) {
        if ($line =~ s/SUMMER/WINTER/g){
            print ".";
        }
    }
}

    Plus concis méthode est

    map { print "." if s/SUMMER/WINTER/g }
    grep {!/ImportantLineNotToBeChanged/} @lines;

    (Je crois que j'ai ce droit.)

    OriginalL'auteur Ted Hopp

  3. 4

    Suffit d'utiliser la fonction suivant.

    for $line (@lines) {

  if ($line =~ m/ImportantLineNotToBeChanged/){
    #break out of the for loop, move onto the next line of the file being processed
    #start the loop again
    next;
  }
  if ($line =~ s/SUMMER/WINTER/g){
    print ".";
  }
}

    De même, vous pouvez utiliser la "dernière" pour terminer la boucle. Par exemple:

    for $line (@lines) {

  if ($line =~ m/ImportantLineNotToBeChanged/){
    #continue onto the next iteration of the for loop.
    #skip everything in the rest of this iteration.
    next;
  }
  if ($line =~ m/NothingImportantAFTERThisLine/){
    #break out of the for loop completely.
    #continue to code after loop
    last;
  }
  if ($line =~ s/SUMMER/WINTER/g){
    print ".";
  }
}

#code after loop

    Edit: 7pm sur 6/13

    J'ai pris votre code et la regarda, réécriture de certaines choses, et c'est ce que j'ai:

    sub changeSeason2 {
  my $file= $_[0];

  open (FILE,"<$file");

  @lines = <FILE>;
  close FILE;

  foreach $line (@lines) {
    if ($line =~ m/'?Don't touch this line'?/) {
         next;
       }
       if ($line =~ m/'?Or this line'?/){
         next;
       }
       if ($line =~ m/'?Or this line too'?/){
         next;
       }
       if ($line =~ m/\'Or this line as well\'/){
         next;
       }
       if ($line =~ s/(WINTER)/{$1 eq 'winter' ? 'summer' : 'SUMMER'}/gie){
        print ".";
       }
  }

  print "\nSeason changed in file $file";

      open FILE, ">$file";
  print FILE @lines;
  close FILE;
}

    Espère que cela aide certains.

    Hmmm, je ne peux pas savoir ce qui ne va pas à la ligne que je veux ignorer, c'est d'être ignoré, mais la ligne après (où je veux remplacer l'ÉTÉ à l'HIVER est toujours là (c'est à dire pas à se changer pour l'HIVER)).

    OriginalL'auteur Dish

  4. 2

    Si je ne suis malentendu vous, votre "sortir de la boucle for, passer à la ligne suivante... [et] début de la boucle à nouveau" est simplement un complexe manière de dire "sauter le corps de la boucle pour cette itération".

    for $line (@lines) {
  unless (($line =~ m/ImportantLineNotToBeChanged/) {
    if ($line =~ s/SUMMER/WINTER/g) {
      print ".";
    }
  }
}

    OriginalL'auteur Josh