This is an example... The match im trying to make is a commented filed in a file that has the pattern END in the string. So create a file with junk in it, put some commented field in the file #END. From here I need to be able to jump up one line, insert data, then place a new line under the new data. Some compaines restrict mod installs, as on platforms like aix, upgrades will sometimes render the mod usless, which is this case, so using CPAN is not an option. Even looking at TIE im not seeing an easy option for this. 


open DATA, "</home/file.conf";

while (<DATA>)
{
        if(m/\END\b/)
        {
                print "$.\n";
                print "$_\n";
                $pos = $.;
                $pos--;
                chomp $pos;
                $DESIRED_LINE_NUMBER = $pos;

        }
}

#$. = 0;
do { $LINE = <DATA> } until $. == $DESIRED_LINE_NUMBER || eof;
print $LINE;

[download]

Result:

1675 ---> Line found matching Search
# *** END NEW MAPPING RULES SECTION *** ---Txt from Line

    -->Blank Line where I need to add values.

[download]

In reply to Re^14: Help editing a file based off seach criteria by perlnewb123
in thread Help editing a file based off seach criteria by perlnewb123

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.