Gewisse Stelle im String ansprechen (Allgemeines zu Perl)

[thread]19841[/thread]

Gewisse Stelle im String ansprechen

Tags: perl5 CGI Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+7 replies
Gast Umut

2015-10-09 14:20

Hi, ich bin blutiger Anfänger in Perl.
Ich wollte mal wissen, wie ich es schaffe, eine gewisse Stelle in einem String anzusprechen und zu entfernen.

Momentan habe ich das hier:
$daten1[13]=~ s/^*?.//;

Damit kann ich die 2. Stelle des Strings entfernen.
Aber was ist, wenn ich die 5. Stelle möchte?

Denn bei :
$daten1[13]=~ s/^****.//;
kriege ich einen RegEx Fehler.
Nested quantifiers before HERE mark in regex m/^** << HERE **./ at Egal.pl line 12.

Was kann ich da machen?
Last edited: 2015-10-09 14:33:45 +0200 (CEST)
- murphy
  
  2015-10-09 15:01
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Die Syntax der regulären Ausdrücke in Deinem Code ist falsch — lies am besten mal perlretut und perlre.
  
  Generell würde ich reguläre Ausdrücke für Textersetzungen vor allem dann empfehlen, wenn der zu ersetzende Text oder Teile davon bekannt sind, aber nicht wo er steht. Zum Beispiel ersetzt
  
  Code (perl): (dl )
  
  'Hallo sonstwer!' =~ s/\b\w+wer\b/Welt/r
  
  das erste Wort, das auf 'wer' endet durch 'Welt' und gibt 'Hallo Welt!' zurück. Derselbe reguläre Ausdruck würde auch noch mit 'Hallo irgendwer.' oder 'Bis bald sonstwer. Mach's gut!' auf der linken Seite analog funktionieren.
  
  Wenn man hingegen genau weiß, wo Text in einer Zeichenkette steht, aber nicht unbedingt weiß, was dort steht, dann sollte man tendenziell eher indexbasierte Zugriffsmethoden verwenden, insbesondere ist hier natürlich perlfunc substr zu nennen. Zum Beispiel gibt
  
  Code (perl): (dl )
  
  1 2 3
  
  my $msg = 'Hallo X!'; substr($msg, 6, 1) = 'Welt'; say $msg;
  
  den Text Hallo Welt! aus.
  When C++ is your hammer, every problem looks like your thumb.
- GwenDragon
  
  2015-10-09 15:25
  
  User since
  2005-01-17
  14866 Artikel
  Admin1
  
  Verschoben von Perl/CGI nach Allgemeines zu Perl
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Raubtier
  
  2015-10-09 15:26
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  Guest Umut
  Momentan habe ich das hier:
  $daten1[13]=~ s/^*?.//;
  
  Damit kann ich die 2. Stelle des Strings entfernen.
  Aber was ist, wenn ich die 5. Stelle möchte?
  
  Glaube ich nicht. Die obige RE ist komisch und entfernt nur das erste Zeichen. Was genau soll ^*? auch bedeuten? Den Zeilenanfang beliebig oft, aber möglichst nur 0 mal matchen? Ergibt für mich keinen Sinn.
  
  Ach ja, Perl sieht es genauso:
  
  Code: (dl )
  
  1 2 3
  
  $ perl -wE'$_="test"; s/^*?.//; say' ^* matches null string many times in regex; marked by <-- HERE in m/^* <-- HERE ?./ at -e line 1. est
  
  Dein größtes Verständnisproblem scheint der * zu sein. In einer Regexp bezieht sich dieser auf das, was direkt davor steht und matcht das beliebig oft (im Normalfall möglichst oft, bei einem ? dahinter möglichst selten). Siehe die bereits von murphy verlinkte Doku.
- +2 replies
- GwenDragon
  
  2015-10-09 15:27
  
  User since
  2005-01-17
  14866 Artikel
  Admin1
  
  Welche Zeichen willst du denn entfernen?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Muffi
    
    2015-10-09 15:35
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Wollt ich auch grad fragen, vielleicht ist es ja ein XY-Problem
    1 + 1 = 10
- hlubenow
  
  2015-10-09 16:26
  User since
  2009-02-22
  885 Artikel
  BenutzerIn
  Guest Umut
  Damit kann ich die 2. Stelle des Strings entfernen.
  Aber was ist, wenn ich die 5. Stelle möchte?
  
  Ist zwar auch seltsam, aber:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  #!/usr/bin/perl use warnings; use strict; my $a = "Hallo"; print "$a\n"; substr($a, 1, 1) = ""; print "$a\n";

View all threads created 2015-10-09 14:20.