Hi All,
How can I print a "\n" in between two different strings, cache and DISK.* where they appear twice.
__INPUT__
cache,23778,0.0,0,0.0,0,0.0,0.0,0.00
cache,205,0.0,0,0.0,0,0.0,0.0,0.00
DISK-UTIL-PEAK-HIGH:,54.3,DISK-UTIL:,2.5
PROC-Name,PID,PYS-IO-RATE,READs,READ-RATE,WRITEs
cache,26094,0.9,1,0.9,0,0.0,0.0,0.00
cache,16046,0.0,0,0.0,0,0.0,0.0,0.00
cache,3848,0.0,0,0.0,0,0.0,0.0,0.00
cache,23778,0.0,0,0.0,0,0.0,0.0,0.00
cache,205,0.0,0,0.0,0,0.0,0.0,0.00
DISK-UTIL-PEAK-HIGH:,54.3,DISK-UTIL:,3.4 ### last line ###
__END__
use strict;
use warnings;
my $dstattmp = qq(/usr/local/log/disk.gpm.statlog.tmp);
my $dstatlog = qq(/usr/local/log/disk.gpm.statlog.csv);
open( my $DT, "+>>", $dstatlog ) || die "$dstatlog was not opened $!";
open( my $TD, "+>", $dstattmp ) || die "$dstattmp was not opened $!";
while (<$DT>) {
next if ( $. == 1);
if ( /cache|disk-.*/i ) {
push my @tmp, split;
print $TD join (",", @tmp),"\n";
}
if ( /^(\D.*)(?=\d*)(?=disk-util-peak.*)/i )
print $TD "YES\n";
}
##if ( /^(cache.*)(?=\d*)(?=disk-util-peak.*)/i )
##if ( /^(cache.*)(?=\d*)/ .. /disk-util-peak.*/igs )
}
thank you!
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.