Ersetzen von Zeilen mit Strings und Zahlen in längerem File (gelöst) - #160515 (Allgemeines zu Perl)

Erin

2012-08-02 18:20

User since
2012-08-01
7 Artikel
BenutzerIn
[default_avatar]

Die Lösung, die ich gefunden habe und die für mich gut passt, ist hier:

http://www.mathworks.com/matlabcentral/fileexchang...

Leider habe ich es nicht geschafft, selbst ein Perl-File dazu zu schreiben. Mein Versuch bzw. einfach nur das abgeschrieben von Linuxer weiter unten (DANKE!!!) hat nicht funktioniert.

Code: (dl )

#!/usr/bin/ perl -pi.bak
use strict; use warnings;

use vars qw($search $replace);

BEGIN {
    $search="position 20 0 100\norientation 0.0 -0.8 0 -0.2\nfieldOfView 0.75";
    $replace="position 0 -14 120\norientation 0 -0.3 10 0\nfieldOfView 0.23";

    $/=undef;
	$_ = 0;
}

s/$search/$replace/msg;