Syntax für Systemaufruf an array übergeben (Allgemeines zu Perl)

[thread]20118[/thread]

Syntax für Systemaufruf an array übergeben

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+2 replies
DerJentz

2016-07-21 07:25

User since
2016-07-21
1 Artikel
BenutzerIn

Hallo liebe perl-community,

ich bin neu hier und noch recht frisch im Umgang mit Perl. Wir werden daher sicher in Zukunft öfters miteinander zu tun haben. :-D

Ich habe ein kleines Syntaxproblem. Ich möchte die /var/etc/hosts nach Maschinen durchsuchen, die den Namen ime, gefolgt von drei Ziffern beinhalten. Und zwar rufe ich in der Konsole folgenden Befehl auf:

# cat /var/etc/hosts|grep ime'[0-9]\{3\}'

Das funktioniert auch soweit. Jetzt wollte ich die Rückgabe davon in einem Skript zur Weiterverabeitung in ein array übergeben. Das funktioniert auch normalerweise ganz gut, solange ich nur nach ime suche, ohne die Begrenzung mit den drei Ziffern. Das hier gibt mir jedoch einen leeren Array zurück:

@DATA = `cat /var/etc/hosts|grep ime'[0-9]\{3\}'`;

Ich hatte es auch schonmal so probiert:

@DATA = `cat /var/etc/hosts|grep \"ime'[0-9]\{3\}'\"`;

oder

@DATA = `cat /var/etc/hosts|grep "ime'[0-9]\{3\}'"`;

Leider alles ohne Erfolg. Kann mir jemand sagen wie die korrekte Syntax für den Aufruf wäre?

Viele Grüße

Der Jentz
Last edited: 2016-07-21 08:33:28 +0200 (CEST)
- Linuxer
  
  2016-07-21 10:28
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Hallo und willkommen.
  
  zunächst, grep kann selber lesen ;-) Das cat braucht es nicht.
  
  Code: (dl )
  
  grep ime'[0-9]\{3\}' /var/etc/hosts
  
  Ich vermute, dass Dein Problem in der Maskierung der Sonderzeichen liegt.
  
  edit:
  Hab es getestet; die \ müssen zusätzlich maskiert werden:
  
  Code: (dl )
  
  1 2 3 4 5
  
  # qx// ist lesbarer als die Backticks # die \ des grep-Pattern müssen maskiert werden, daher hier als \\ # hosts ist eine lokale Testdatei $ perl -E '@aa = qx/grep "ime[0-9]\\{3\\}" hosts/; say join $/, @aa' 1.2.3.4 ime123
  
  :edit
  
  Aber wenn Du das Ergebnis in Perl haben willst, was spricht dagegen, die Suche selbst auch in Perl zu machen?
  Damit bräuchtest Du Dir auch keine Gedanken machen, welches Sonderzeichen Du wie oft maskieren musst (Maskierung vor Perl? vor der Shell? ...).
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #! /usr/bin/perl use strict; use warnings; use 5.010; my $file = "/etc/hosts"; open my $rh, '<', $file or die "open($file,ro) failed: $!"; my @array = grep { m/ime\d\d\d/ } <$rh>; close $rh; # optionally, remove Newlines from matches chomp @array; # check result say join "\n", @array;
  
  Last edited: 2016-07-21 11:00:08 +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!

View all threads created 2016-07-21 07:25.