The problem is that I'm unable to save my changes after making subsitutions, and I don't understand why.
Here's the code.
After debugging the code myself for a bit, I don't see where the problem could lay.#!/usr/vendor/bin/perl use strict; use IO::File my $FRAME_FILE = new IO::File; my $change_on = "FChangeBar Yes"; my $change_off = "FchangeBar No"; $FRAME_FILE -> open("+<test.mif") or die "can't open file"; while (<$FRAME_FILE>) { if (/$change_on/) { s/$change_on/$change_off/g; } } $FRAME_FILE -> close;
Thanks ahead!!
In reply to Unable to save changes using IO::File by pelp
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |