Shell Programming and Scripting

#!/usr/bin/perl -w
 

 open my $logfile, 'status.dat' or die "I couldn't get at status.dat:  $!";
 

 for my $line (<$logfile>) {
      if $line =~ /^servicestatus/;
        "PRINT LINE AFTER THAT"
}

#!/usr/bin/perl
use warnings;
use strict;

open (LOG,"<","status.dat") or die "I couldn't get at status.dat:  $!";

while (<LOG>) {
        chomp ($_);
        if ($_ =~ /^servicestatus/){
                my $nextline=<LOG>;
                print "$nextline";
        }
}

#!/usr/bin/perl -w
open LOGFILE, 'status.dat' or die "I couldn't get at status.dat:  $!";
while (<LOGFILE>) {
  print $_=<LOGFILE> if /^servicestatus/
}

$
$ cat t1
servicestatus {
hostname = Obelix
blah blah
}
servicestatus {
hostname = Asterix
blah blah
}
servicestatus {
hostname = Getafix
blah blah
}
$
$ perl -lne 'BEGIN{undef $/} while (/servicestatus {\n([^\n]+)\n/g){print $1}' t1
hostname = Obelix
hostname = Asterix
hostname = Getafix
$
$

awk '/^servicestatus/{getline;print}' infile

#!/usr/bin/perl -w

open (CHECKLOG, "status.dat");

@LINHAS = <CHECKLOG>;
@lnumber = @LINHAS;
$lnumber = @lnumber;

for ($i=0;$i < $lnumber; $i++){
        if($LINHAS[$i] =~ /^\tservice_description=PING/){
                print "Linhas: $LINHAS[$i-1]\n";
        }
}

#!/usr/bin/perl -w
open LOGFILE, 'status.dat' or die "I couldn't get at status.dat:  $!";
while (<LOGFILE>) {
  print $prev if /^service name = test/;
  $prev=$_
}