String mit grep bearbeiten (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-05-05 17:34:43
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]19134[/thread]

submit to reddit

String mit grep bearbeiten

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+9 replies
cohama

2014-06-05 10:49
User since
2011-08-16
102 Artikel
BenutzerIn
Hallo zusammen,

wie kann ich in Perl den grep-Befehl nutzen, wenn ich eine Zahl aus einem String lesen möchte. In meinem Script geht es darum, dass ich einen String habe, welche ich anhand zweier Pattern filtern muss.

Beispiel-String:
Code: (dl )

SWITCHID=1&EXTENSIONNAT=3&NAME=8994399286&DATEALLOCATED=2012-11-08&LANGUAGE=XXX&CNI_ON=0&CNI_NUM=XXX&ACCOUNTID=201130&RANGEID=187205&REROUTING_NUM=C044&REROUTING_ON=1&EXTENSIONNUM=8994399286&REROUTING_NAT=3
Pattern1: RANGEID
Pattern2: REROUTING_NUM

In diesem Beispiel brauche ich diese Zahl 187205 in meiner Variable
- pq
  
  2014-06-05 10:57
  User since
  2003-08-04
  12208 Artikel
  Admin1
  das macht man nicht mit grep. warum willst du unbedingt grep benutzen? grep ist für listen gedacht. du hast aber nur einen string. wie willst du da was rausgreppen?
  
  man benutzt regexes, oder in diesem fall einfach gleich das geeignete modul:
  
  Code (perl): (dl )
  
  1 2 3
  
  use CGI; my $cgi = CGI->new($string); my $rangeid = $cgi->param("RANGEID");
  
  fertig.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +7 replies
- topeg
  
  2014-06-05 10:58
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Um sicher zu sein das ich dich richtig verstehe.
  Du hast ein Array mit Strings der von dir genannten Art, bei denen nur eine gewisse Anzahl haben und diese in ein neues Array schreiben willst. Es sollen nur jene Strings übernommen werden, welche die SubStrings "RANGEID" und "REROUTING_NUM" enthalten.
  
  Code (perl): (dl )
  
  my @new_array=grep { /RANGEID/ and /REROUTING_NUM/ } @array
  - +6 replies
  - cohama
    
    2014-06-05 11:14
    User since
    2011-08-16
    102 Artikel
    BenutzerIn
    
    Hallo,
    
    das Ziel ist nur die Zahl nach RANGEID= in meine Variable zu speichern.
    
    Ausgang:
    
    Code: (dl )
    
    Variable1=SWITCHID=1&EXTENSIONNAT=3&NAME=8994399286&DATEALLOCATED=2012-11-08&LANGUAGE=XXX&CNI_ON=0&CNI_NUM=XXX&ACCOUNTID=201130&RANGEID=187205&REROUTING_NUM=C044&REROUTING_ON=1&EXTENSIONNUM=8994399286&REROUTING_NAT=3
    
    Ziel:
    
    Code: (dl )
    
    Variable2=187205
    
    Den Rest der Variable1 muss ich nicht weiter verarbeiten.
    
    Bye
    - Muffi
      
      2014-06-05 11:24
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Siehe pqs Kommentar
      1 + 1 = 10
    - topeg
      
      2014-06-05 11:25
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Das hat aber gar nichts mit grep zu tun, was du willst ist so was:
      
      Code (perl): (dl )
      
      $rangeid=$1 if($string=~/RANGEID=(\d+)/);
      
      man kann es auch so angehen:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      my %params=split(/[=&]/,$string); if($params{RANGEID}) { ... }
      
      Wobei der Vorschlag von pq besser ist. Das Parsen von URIs ist nicht trivial.
    - +3 replies
    - Linuxer
      
      2014-06-05 11:39
      
      User since
      2006-01-27
      3875 Artikel
      HausmeisterIn
      
      Wenn Dir CGI zu seltsam erscheint, kannst Du auch etwas mehr Handarbeit machen und URI zum zerlegen verwenden.
      
      Zum Beispiel:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      #! /usr/bin/perl use strict; use warnings; use URI; my $query = 'foo=123&bar=456'; my $uri = URI->new(); $uri->query($query); my %data = $uri->query_form; for my $k ( keys %data ) { printf "%s : %s\n", $k, $data{$k}; } __END__
      
      Wenn das wiederholt benötigt wird, könnte man die gewünschte Abfrage auch in eine Sub auslagern:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
      
      #! /usr/bin/perl use strict; use warnings; use feature qw( say ); my $query = 'foo=123&bar=456'; sub fetch_from_query { my $query = shift; my @items = @_; require URI; my $uri = URI->new(); $uri->query($query); my %data = $uri->query_form(); return @data{@items}; } say fetch_from_query( $query, 'foo' ); __END__
      
      edit: 2ter Code korrigiert nach Raubtiers Hinweis
      Last edited: 2014-06-05 12:52:43 +0200 (CEST)
      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!
      - +2 replies
      - Raubtier
        
        2014-06-05 12:01
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        2014-06-05T09:39:01 Linuxer
        
        Code (perl): (dl )
        
        1 2 3
        
        sub fetch_from_query { my $query = shift; my @items = shift;
        
        Naja, @array = $skalar sieht immer irgendwie komisch aus...
        
        Warum nicht folgendes, dann kann man auch mehrere Items übergeben:
        
        Code: (dl )
        
        1 2
        
        sub fetch_from_query { my ($query, @items) = @_;
        
        Linuxer
        
        2014-06-05 12:50
        
        User since
        2006-01-27
        3875 Artikel
        HausmeisterIn
        
        Weil ich in Gedanken war und eher das meinte, was Du geschrieben hast.
        Wird korrigiert. Danke.
        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!

View all threads created 2014-06-05 10:49.