neuerer vergleich Perl mit awk: awk /start/,/end/ '{print $2}' (Allgemeines zu Perl)

[thread]7620[/thread]

neuerer vergleich Perl mit awk: awk /start/,/end/ '{print $2}'

lichtkind

2006-01-14 19:32

User since
2004-03-22
5679 Artikel
ModeratorIn + EditorIn

awk /start/,/end/ '{print $2}'

Diese Zeile lässt in einer datei die geparst wird zwischen den zeilen mit inhalt start und end den inhalt splitten (standart mit " ") und gibt zweites wort aus. Nu ist klar wei man das in perl machen könnte. Die interessante Frage ist aber sollte perl nicht nur nach haskell und co schielen sondern auch sich einige neuere errungenschafften von awk annehen oder ist mein verständnis der rules einfahc nicht ausreichend?

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

coax

2006-01-14 20:02

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

Dieser Einzeiler duerfte doch das selbe tun, nicht ?

Code: (dl )

perl -lane 'print $F[1] if /start/../end/' -- somefile

(nicht ausreichend getestet)\n\n

,,Das perlt aber heute wieder...'' -- Dittsche

GwenDragon

2006-01-14 20:12

User since
2005-01-17
14536 Artikel
Admin1

Wenn's geht, schön.
Aber mir als Faulpelz wäre es zu lang, wenn awk es kürzer kann.

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

lichtkind

2006-01-14 20:23

User since
2004-03-22
5679 Artikel
ModeratorIn + EditorIn

danke coax,

iane versteh ich noch aber das mit dem if nicht.

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

coax

2006-01-14 21:25

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

Jo, die if-Anweisung ist etwas ungewoehnlich, sie verwendet den Bereichsoperator .., aber anders als man ihn in foreach-Schleifen, etc. kennt, naemlich im skalaren Kontext und dann verhaelt er sich so wie der Komma-Operator bei awk.
Ist der linke Operand wahr ist der gesamte Ausdruck wahr und bleibt so lange wahr bis der rechte Operand wahr wird, dann ist er wieder unwahr (falsch). Der linke Operand wird nur ausgewertet wenn der Operator unwahr ist und der rechte Operand nur wenn der Operator wahr ist.
Funktioniert, simplifiziert, in etwa so

Code: (dl )

#!/usr/bin/perl

  use strict;
  use warnings;

  use constant TRUE => 1;
  use constant FALSE => 0;

  my $state = FALSE;
  while(<DATA>) {

      unless( $state == TRUE ) {   # wenn Operator unwahr ...
               $state = TRUE if /start/;  # ... wahr setzen wenn linker Operand wahr
     } else {                    # ansonsten ... ( wenn Operator nicht wahr )
          $state = FALSE if /end/;   # ... falsch setzen wenn rechter Operand wahr

          print if $state == TRUE;
      }
  }

_ _DATA_ _
  nichts
  nichts
start
  eins
  zwei
  drei
end
  nichts
  nichts
start
  vier
  fuenf
  sechs
end

Hoffe es ist etwas verstaendlich, wenn nicht, dann hilft
perldoc perlop (Range Operator), bzw. das Kamelbuch (Kap. 2 - Bereichsoperator) und es steht noch was im Kochbuch (Kap. 6 - Mustererkennung - Einen Bereich extrahieren).

Zum besseren Verstaendnis hab ich daraus eine Sub gemacht (haette ich gleich tun sollen).

Code: (dl )

#!/usr/bin/perl

 use strict;
 use warnings;

 while(<DATA>) {
     print if range_op( scalar(/start/), scalar(/end/) );
 }

BEGIN {
 my( $true, $false ) = ( 1, 0 );

 my $state = $false;

 sub range_op {
     my( $term_l, $term_r ) = @_;

     if( $state == $true ) {
         $state = $false if $term_r == $true;

         return $state;
     }
     
     $state = $true if $term_l == $true;
     return 0;
 }

}
_ _DATA_ _
 nichts
 nichts
start
 eins
 zwei
 drei
end
 nichts
 nichts
start
 vier
 fuenf
 sechs
end

\n\n

,,Das perlt aber heute wieder...'' -- Dittsche

lichtkind

2006-01-14 22:29

User since
2004-03-22
5679 Artikel
ModeratorIn + EditorIn

ne vielen dank mir reicht das :)auch wenn ich noch am verdauen bin :)
danke

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

View all threads created 2006-01-14 19:32.