#!/usr/bin/perl
use warnings;
use strict;
my$flag=0;
my$a;
while(<DATA>)
{
if(/^>/)
{
$flag = 1;
$a = 0;
}
if($flag )
{
print $_;
$a++;
}
if($a == 3)
{
$flag = 0;
}
}
use warnings;
use strict;
my$flag=0;
my$a;
while(<DATA>)
{
if(/^>/)
{
$flag = 1;
$a = 0;
}
if($flag )
{
print $_;
$a++;
}
if($a == 3)
{
$flag = 0;
}
}
###########
#!/usr/bin/perl -w
use strict;
open(LOGOUT,">out.log") or die "can't create ";
open(LOGFILE,"ISauditLog_01.log") or die "can not open";
use strict;
open(LOGOUT,">out.log") or die "can't create ";
open(LOGFILE,"ISauditLog_01.log") or die "can not open";
#my $line_count = 0;
#while(<LOGFILE>){
# if(m/dsuser3/){
# $line_count = 0;
# pri
#while(<LOGFILE>){
# if(m/dsuser3/){
# $line_count = 0;
# pri