Zeile ab erstem Auftreten von Whitespace abschneiden (solved) (Allgemeines zu Perl)

[thread]16415[/thread]

Zeile ab erstem Auftreten von Whitespace abschneiden [solved]

Tags: perl5 Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

+7 replies
wotuzu17

2011-06-14 18:07
User since
2011-06-14
5 articles
BenutzerIn
Hi,

bin neu bei Perl.

Ich möchte ein Textfile zeilenweise durchgehen und bei allen Zeilen nur den Text bis zum Auftreten des ersten Whitespace Characters ausgeben.
Code (perl): (dl )

1 2 3 4 5 6

while(<FILE>) { my $line=$_; my $index= index($line, "\s"); my $word= substr $line, 0, $index; print $word; }
Die index() Funktion liefert aber immer nur -1, sie findet also die White Spaces nicht.
Last edited: 2011-06-14 18:17:57 +0200 (CEST)
- +6 replies
- Linuxer
  
  2011-06-14 18:20
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  index() arbeitet mit den echten Zeichen, nicht mit Regex-Pattern.
  
  Du kannst aber z.B. split() verwenden:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  while ( <FILE> ) { my $line = $_; my ($word) = split /\s/, $line; print $word, "\n"; }
  
  Last edited: 2011-06-14 18:39:49 +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!
  - +5 replies
  - wotuzu17
    
    2011-06-14 18:39
    
    User since
    2011-06-14
    5 articles
    BenutzerIn
    
    Danke, das funktioniert
    - +4 replies
    - Linuxer
      
      2011-06-14 18:41
      
      User since
      2006-01-27
      3890 articles
      HausmeisterIn
      
      Nachtrag: Ich habe den Code nachträglich (zeitgleich zu Deiner Antwort) editiert; das , 2 beim split() ist hier nicht unbedingt notwendig. Ich habe es aus dem Code entfernt...
      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!
      - +3 replies
      - pq
        
        2011-06-14 18:58
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        wieso schreibst du denn den edit-kommentar auf englisch? gewohnheit von csv/svn/git...? =)
        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
        
        wotuzu17
        
        2011-06-14 19:17
        
        User since
        2011-06-14
        5 articles
        BenutzerIn
        
        deleted
        Last edited: 2011-06-14 19:19:45 +0200 (CEST)
        
        Linuxer
        
        2011-06-14 19:19
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        korrekt vermutet. Gewohnheit.
        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 2011-06-14 18:07.