In welcher Liste/Array speichert split() sein Ergebnis, wenn kein Target angegeben ist? (Allgemeines zu Perl)

[thread]20185[/thread]

In welcher Liste/Array speichert split() sein Ergebnis, wenn kein Target angegeben ist?

Tags: perl5 regex Array Variablen Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+10 replies
Gast rade

2016-11-11 11:02

Beispiel:

echo 'Nur ein Test Beispiel' | perl -ne 'split(/\s+/); print $...... '

Welche Variable muss im print-Befehl angegeben werden, damit man z.B. das dritte Wort ("Test") erhält? $_[2] ist leider leer.
Last edited: 2016-11-11 15:28:08 +0100 (CET)
- GwenDragon
  
  2016-11-11 11:30
  
  User since
  2005-01-17
  14875 Artikel
  Admin1
  
  split gibt ja was zurück und bei dir ist das im void-Kontext, es fehlt das Array auf der linken Seite.
  split splittet nicht automatisch nach @_.
  
  Testbeispiele bei deinem Code:
  C:\>echo 'Nur ein Test Beispiel' | perl -nwe "split(/\s+/); print $_[2]" Useless use of split in void context at -e line 1. Use of uninitialized value in print at -e line 1, <> line 1. C:\>echo 'Nur ein Test Beispiel' | perl -nwe "@_=split(/\s+/); print $_[2]" Test
  
  Aber ich würde keine globalen Variablen wie $_ oder @_ für sowas nehmen!
  Last edited: 2016-11-11 11:33:22 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- Linuxer
  
  2016-11-11 11:33
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Ich wüsste nicht, dass split im void Context automatisch eine vordefinierte Variable füllt.
  
  Man kann aber die Ergebnisliste des split direkt als splice verwenden:
  
  Code: (dl )
  
  echo 'Nur ein Test Beispiel' | perl -nE 'say +( split /\s+/ )[2]; '
  
  ( das '+' vor der Klammer stellt klar, dass die Klammer nicht als Funktionsklammer des say gewertet werden soll)
  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
  - betterworld
    
    2016-11-11 16:29
    
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    2016-11-11T10:33:21 Linuxer
    Ich wüsste nicht, dass split im void Context automatisch eine vordefinierte Variable füllt.
    
    Auszug aus perl5140delta:
    
    split() no longer modifies @_ when called in scalar or void context.
    
    Ich fand es auch sehr schade, dass sie es rausgenommen haben. Das war so ein schönes Feature, mit dem man Code schreiben konnte, der den Leser "entzückt" :)
    Last edited: 2016-11-11 16:30:45 +0100 (CET)
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - Linuxer
      
      2016-11-11 18:50
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Autsch. Das war mir nicht bekannt, dass es sowas mal getan hat ... Ist mir damals wohl nie untergekommen und ich habe es nie vermisst.
      
      Danke für den Hinweis.
      
      Müsst ich glatt mal schauen, ob ich das noch in ein paar Skripte einbaue, die hier unter 5.10.1 laufen müssen ;-)
      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!
- hlubenow
  
  2016-11-11 15:07
  User since
  2009-02-22
  885 Artikel
  BenutzerIn
  Geht doch:
  
  Code: (dl )
  
  echo 'Nur ein Test Beispiel' | perl -ne '@a=split(/\s+/); print "$a[2]\n"'
- +4 replies
- GwenDragon
  
  2016-11-11 15:25
  
  User since
  2005-01-17
  14875 Artikel
  Admin1
  
  Geht viel einfacher so im awk-Modus von Perl:
  C:\>echo 'Nur ein Test Beispiel' | perl -F/\s+/ -ane "print $F[2]" Test
  Last edited: 2016-11-11 15:30:14 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Linuxer
    
    2016-11-11 18:57
    
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    ++ für den Hinweis.
    
    Ist (bei mir) ein viel zu selten genutztes Feature.
    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
    - GwenDragon
      
      2016-11-11 19:03
      
      User since
      2005-01-17
      14875 Artikel
      Admin1
      
      Das ist ja dass tolle, das Perl auch "awken" kann.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - hlubenow
        
        2016-11-12 01:16
        
        User since
        2009-02-22
        885 Artikel
        BenutzerIn
        
        2016-11-11T18:03:11 GwenDragon
        Das ist ja dass tolle, das Perl auch "awken" kann.
        
        Ein professioneller Basketballspieler fragte mal einen Tai Chi-Lehrer, ob es was für seine Baskettballfertigkeiten bringen würde, Tai Chi zu üben. Der Lehrer sagte:
        
        Quote
        If you want to improve your basketball-skills, train basketball.
        
        Insofern: If you wanna awk, use awk. ;)
        
        Code: (dl )
        
        echo 'Nur ein Test Beispiel' | awk -F " " '{print $3}'
        
        Last edited: 2016-11-12 01:58:14 +0100 (CET)

View all threads created 2016-11-11 11:02.