split an einer bestimmten stelle (solved) (Allgemeines zu Perl)

[thread]15100[/thread]

split an einer bestimmten stelle [solved]

Readers: 17

Articles: hide open all | hide show old branches

+6 replies
guest Charleen

2010-06-04 16:23
Hallo,
ich möchte gern einen Satz an einer bestimmten Pos. auftrennen und ein Wort einfügen.
z.B.
"hallo da draußen" ich möchte jetzt nach dem ersten space suchen lassen und "du" einfügen, so dass sich "hallo du da draußen" ergibt!
Wie kann man das am leichtesten realisieren?
Code: (dl )

1 2 3 4 5 6 7 8

my @se = <FILE>; my @line_fields; foreach my $line (@se) { chomp $line; @line_fields = split( /\s/, $line ); #beim ersten space!!! und füge "du" ein } }
Last edited: 2010-06-04 16:26:27 +0200 (CEST)
- +4 replies
- pq
  
  2010-06-04 16:27
  User since
  2003-08-04
  12209 articles
  Admin1
  ne substitution wäre hier wohl das beste:
  
  Code (perl): (dl )
  
  $line =~ s/ / du /;
  
  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
  - pq
    
    2010-06-04 16:30
    User since
    2003-08-04
    12209 articles
    Admin1
    
    oder wenn es nicht immer das erste space sein soll:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my $n = 1; my @words = split / /, $line; splice @words, $n, 0, "du"; $line = join " ", @words;
    
    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
  - +2 replies
  - guest Charleen
    
    2010-06-04 16:35
    
    Danke,
    und wie macht man das am besten wenn man nur ein Wort hat ("hallo") und da hinter ein weiters schreiben möchte, da geht kein sub /split bei /s ???
    - pq
      
      2010-06-04 16:37
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      da sollte dann meine zweite lösung mit splice funktionieren. da funktioniert die substitution nicht, das stimmt.
      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
- deleted 2010-06-04 19:22

View all threads created 2010-06-04 16:23.