String Zeilenweise durchlaufen

[Struppi]

sorry, dass das zuwenig Informationen waren!

Jau.

bis jetzt habe ich folgenden Code

my @stdin = <STDIN>;

Hm, Demo?
Du liest mehrere Zeilen von STDIN, ich weiß das das geht, aber du kannst in Perl - z.b. um lauffähige Beispiele, mit Daten, zu zeigen __DATA__ benutzen.

Am Ende einer Datei:
__DATA__
Deine Beispieldatei
über mehrere
Zeilen

und im Skript mit:
my @stdin = <DATA>;
einlesen. Aber das nur Rande.

my $i;
for ($i = 0; $i < @stdin; $i++){

Ich glaub kaum jemand der in Perl programmiert, macht so eine Schleife.

foreach (@stdin){

reicht.

$stdin[$i] = $stdin[$i] . ",WORT2\n" if($stdin[$i] =~ /^[1]*#{0,0}\bWORT1\b/ );
}
$stdin[$i] = qq~WORT1 WORT2\n~;

den Regulären Ausdruck verstehe ich nicht (ich bin schlecht darin), deshalb ist mir nicht klar was du genau hier machen willst, aber du kannst, wenn die du die Variante von mir benutzt, hier auf $_ zugreifen.

Du willst das Newline entfernen?
Nimm chomp!

Es wäre interessant, was du genau machen willst.

for ($i = 0; $i < @stdin; $i++){
  print $stdin[$i];
}

print foreach @stdin;

oder
print @stdin;

Struppi.

---

1. \t ↩︎