in reply to Re^2: new : greping
in thread new : greping

Final modification to code for extended file syntax

use warnings;
use strict;
use Spreadsheet::WriteExcel;

my $workbook = Spreadsheet::WriteExcel->new("data.xls");
my $worksheet = $workbook->add_worksheet();

$worksheet->write ("A1", 'Device');
$worksheet->write ("B1", '/var');
$worksheet->write ("C1", '/');
$worksheet->write ("D1", 'interleaved');

my $row = 2;
my $line = '';
my $device;

open inFile, '<', 'data.txt' or die "Couldn't open data.txt: $!";

while (! eof inFile)
  {
  $line .= ' ' . <inFile>;
  chomp $line;
  next if ! ($line =~ /logging\sto\s(device.*?)\s+/i) and ! eof inFile
+;

  my $nextDevice = $1;
  if ($line =~ /(\d+)%\s+\/var\s+(\d+).*?(\d+)%\s+Interleaved\s+(\w+)/
+i)
    {
    $worksheet->write("A$row", "$device");
    $worksheet->write("B$row", "$1");
    $worksheet->write("C$row", "$2");
    $worksheet->write("D$row", "$3");
    ++$row;
    print "$device $1, $2, $3\n";
    }

  $device = $nextDevice;
  $line = '';
  }

close inFile;

$workbook->close ();

[download]
Perl is Huffman encoded by design.

Replies are listed 'Best First'.
Re^4: new : greping
by pingme8705 (Acolyte) on Sep 08, 2005 at 10:49 UTC
    hi father ! 
    
logging to device1 is 2.3.5.1 . . .
 
56% /var
38% /
31% Interleaved
disks faults    
avm fre cs us sy id
504956 19880 32 3 24 72
device1
Tue Sep  9 11:26:44 ist 2005
     
 logging to device2 is 2.3.5.1 . . .
 
96% /var
88% /
100% Interleaved
disks faults    
avm fre cs us sy id
504956 19880 32 3 24 72
device2
Tue Sep  5 10:26:44 GMT 2005

logging to device5-PPP is 2.3.5.1 . . .
 
156% /var
138% /
131% Interleaved
disks faults    
avm fre cs us sy id
504956 19880 32 3 24 72
device5-PPP
Tue Sep  9 11:26:44 ist 2005
     
 logging to device8-PPm is 2.3.5.1 . . .
 
596% /var
688% /
100% Interleaved
disks faults    
avm fre cs us sy id
504956 19880 32 3 24 72
device8-PPm
Tue Sep  5 10:26:44 GMT 2005

    [download]
    if i want to take the avm fre id and its corresponding values and also the time in the text. wat should i do father ?
[reply]
[d/l]

      As you will have seen the lines in each record are concatenated together to form one long line then the regex /(\d+)%\s+\/var\s+(\d+).*?(\d+)%\s+Interleaved\s+(\w+)/ is used to pull out the data of interest. You simply need to add more capture fields to gather the extra data and then to print that in the print "$device $1, $2, $3\n"; line and in extra $worksheet->write("D$row", "$3"); lines.

      See perlretut, perlre and perlreref for regular expression information.

      Perl is Huffman encoded by design.
[reply]
[d/l]
[select]
        hello father ! i have tried with the following line:   ($line =~ /(\d+)%\s+\/var\s+(\d+).*?(\d+)%\s+Interleaved\s+.*?avm\s+fre\s+(\d+)\s+(+\d)+\s+(\w+)/i) i have also added the print lines as said by you ! 
         $worksheet->write("E$row", "$4");
print "$device $1, $2, $3, $4\n";

        [download]
        but still no go !
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom