Thread perl one liner : string suchen und ersetzen wert (unix) (17 answers)
Opened by bora99 at 2012-05-08 15:07

FIFO
 2012-05-09 23:44
#158270 #158270
User since
2005-06-01
469 Artikel
BenutzerIn

user image
2012-05-09T19:52:08 topeg
mal sinnvoll überarbeitet:
Code (perl): (dl )
1
2
3
4
5
while(@ARGV)
{
  my ($k,$v)=split(/\s*=\s*/,shift(@ARGV),2);
  $changes{$k}=$v;
}


Whitespace innerhalb eines @ARGV-Elements kann ja eigentlich nur vorkommen, wenn dieses einen quoted string enthält ... ich würde diesen Fall eher nicht zulassen.

Quote
Ich würde nebenbei gerne wissen was bei meiner Form der Ersetzung nicht funktioniert.


Deine Version gilt für den Fall, dass die Kommentierung vor 'eintrag' beginnt, im Beispiel des OP war der Kommentar an die key=value Zeile angehängt.

Gruß FIFO
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

View full thread perl one liner : string suchen und ersetzen wert (unix)