Perl: Strings durchlaufen

[implementation]

Guten Abend,

in letzter Zeit muss ich mich etwas mit Perl beschäftigen.
Nun möchte ich einen String in einer Schleife Zeichen für Zeichen durchlaufen, etwa wie in Delphi so:#

Delphi-Quellcode:

for i := 1 to Length(s) do
begin
   // Tu was mit s[i]
end;

Wie ließe sich das in Perl lösen? Da habe ich nirgendwo etwas zu gefunden. Geht das in Perl überhaupt? Oder muss ich dazu einen regulären Ausdruck nutzen?

[Klaus01]

Code:

 #!/usr/bin/perl

  use strict;
  use warnings;

  my $data = 'Becky Alcorn';

  my @values = split(undef,$data);

  foreach my $val (@values) {
    print "$val\n";
  }

  exit 0;

Quelle:

Grüße
Klaus

[Assarbad]

Code:

#!/usr/bin/env perl
use warnings;
use strict;

my $string = shift;
for(my $i = 0; $i < length($string); $i++)
{
    # substr ...
}

Quelle: mein Kopf :)

Ach ja: der Eingabestring kommt von der Kommandozeile in diesem Fall :zwinker:

Ach eins noch: aus Sicht des Perl-Hackers ist Klaus' Beispiel vermutlich "schöner". In jedem Fall kannst du nicht erwarten wie bei Delphi die Elemente eines Strings zu bearbeiten wie du es eben gewohnt bist. In vielen Skriptsprachen sind Strings immer unveränderlich und wenn man sie "ändert" erzeugt man eigentlich einen neuen String (bspw. Zusammensetzen etc).

[implementation]

Danke, funktioniert wunderbar! :thumb: