http://www.perlmonks.org?node_id=542774


in reply to Changing %s to (Info: %s)

Where does $linefinal get a value? Where is your use strict; (which would have shown the problem)?

Why do you have a __DATA__ section, but open and manipulate a couple of files? It seems that you might have been trying to come up with a sample like this:

use strict;
use warnings;

while (<DATA>) {
    s/%s/(Info: %s)/g;
    print;
}

__DATA__
6101;CON_RST_OCC;3;3;0;0;Controller reset occured %s; Zurücksetzung de
+s Controllers ist erfolgt %s
6102;DEG_UNIT;3;3;0;0;Degraded unit %s;Unit wurde runtergestuft %s
<p>

[download]
which prints:

6101;CON_RST_OCC;3;3;0;0;Controller reset occured (Info: %s); Zur³ckse
+tzung des Controllers ist erfolgt (Info: %s)
6102;DEG_UNIT;3;3;0;0;Degraded unit (Info: %s);Unit wurde runtergestuf
+t (Info: %s)

[download]
DWIM is Perl's answer to Gödel

Replies are listed 'Best First'.
Re^2: Changing %s to (Info: %s)
by theroninwins (Friar) on Apr 12, 2006 at 09:17 UTC
    OK I take the guilt for that last replay of mine... the code works fine... I didn't see the print (no f) when I included it into mine.. Sorry (won't happen again) Thanks for all your help...
[reply]
      'I didn't see the print (no f) when I included it into mine'

      Which is why you should have used the download link provided then tried GrandFathers code before saying that it didn't work.

      Martin
[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom