Hey Guys,

So I got the Tie::File working in my script, in the previous post I had it working in a test script.

Below is the section of my script where I use the tie() function. Basically, my script opens a socket and sits
and waits for a remote server to make a connection. Once the socket connection is made, my script captures
the data sent from the remote server (*Hostname, IP Addr, Timestamp, and Location Name). Before the code
below I check all the contents of those 4 variables. In the code below, I format a New Line of data (*$new_data),
then I check and see if either the File/Array is empty (== -1) or if the 1st element in the Array does not contain
the Header Text. If it doesn't, I use unshift and add it to the start of the array/file.

I have run a few tests and it all seems to be working very well... I'm really liking the Tie::File Module, so thanks
for showing that to me.!

### Check and make sure ALL the variables contain values and are NOT =
+= ERROR:
if ($ipAddr !~ /ERROR/i && $hostname !~ /ERROR/i && $location !~ /ERRO
+R/i && $timestamp !~ /ERROR/i)
{
    ### Declare the Log File:
    my $LOG_FILE = "$LOG_DIR/$hostname.log";

    ### build the line to print to the LogFile:
    #    *MAX COLUMN WIDTHS --> Timestamp(24)    Location(14)  IP Addr
+ess(15)  Hostname(18)
    my $new_data = sprintf "%-25s   %-15s   %-16s   %-19s", "$timestam
+p", "$location", "$ipAddr", "$hostname";

    ### Open the Log File and "TIE" it to the array @logData:
    #    *With this (*Tie::File) whatever happens to the array is refl
+ected in the file:
    tie my @logData, 'Tie::File', "$LOG_FILE" or die "Error: tie faile
+d, $!";

    ### If the File/Array is empty --OR-- THe first element does not c
+ontain the LOG_HEADER, then...
    if ($#logData == -1 || $logData[0] !~ /LAST CHECK|LOCATION|IP ADDR
+ESS|HOSTNAME/gi)
    {
        ### Insert the LOG_HEADER as element '0' in the array:
        unshift @logData, "$LOG_HEADER";
    }

    ### If @logData has more lines then MAXLINES, then Splice out X li
+nes starting at Line 2 (*i.e. index '1')
    splice @logData, 1, @logData-$MAXLINES if @logData>$MAXLINES;
    ### Next, push the new data onto the end of the Array/File:
    push @logData, "$new_data\n";

    ### Untie the Array from the Log File (*essentially closing the fi
+le...):
    untie @logData;
}

[download]

So, thanks AGAIN everybody for the help, very much appreciated!!

Thanks,
Matt

In reply to Re: Capture Contents AND Overwrite without Opening Twice? by mmartin
in thread Capture Contents AND Overwrite without Opening Twice? by mmartin

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.