$index = "90148"; 
$status = "Active"; 
$date =  "2009-01-14"; 
$time = "00:00:57"; 
$source = "O%:CBS1:BSM1:BSMPerfandUtil1"; 
$severity = "MINOR"; 
$fault_name = "CPU Usage exceeded the Threshold";

open (DATA, $ARGV[0]) 
	or die "Can't open '$ARGV[0]' $!"; 
 
while(my $line = <DATA>){  
   if($line =~ /^#/){  
	$space = ' '; 
	$quote = '"'; 
	 
	# Index Variable 
 
	$limit1 = index($line, $space); 
	$offset = ++$limit1; 
	 
	$limit2 = index($line, $space, $offset); 
	 
	$count1 = $limit2 - $limit1; 
	 
	$index = substr($line, $limit1, $count1); 
 
	# Status Variable  
	 
	 $limit3 = ++$limit2; 
         $limit4 = index($line, $space, $limit3); 
 
         $count2 = $limit4 - $limit2; 
 
 
         $status = substr($line, $limit3, $count2); 
 
 
   } 
 
close DATA;

# Index    Status Activity Date/Time             Source    Severity FaultName

# 90148 Nak    Active   "14 Jan 09 00:00:57" "O%:CBS1:BSM1:BSMPerfandUtil1" MINOR "CPU Usage exceeded the Threshold" 
# 90148 Nak    Clear    "14 Jan 09 00:07:59" "O%:CBS1:BSM1:BSMPerfandUtil1" MINOR "CPU Usage exceeded the Threshold" 
# 90148 Ack    Clear    "14 Jan 09 00:07:59" "O%:CBS1:BSM1:BSMPerfandUtil1" MINOR "CPU Usage exceeded the Threshold" 
# 1692545 Nak    Active   "14 Jan 09 01:48:32" "O%:CBS1:Cells1:MC800BTS1029:MCBTSSubsystem1:Root1:CEM2" MINOR "SWERR log threshold exceeded at CEM, please upload the log // [XCEM]  SWERR Log"

use Text::ParseWords; 
while (<DATA>) { 
  my @words = &quotewords('\s+', 0, $_); 
  $i = 0; 
  foreach (@words) { 
      print "$i: <$_>\n"; 
      $i++; 
  } 
}   
 
__DATA__ 
# 90148 Nak    Active   "14 Jan 09 00:00:57" "O%:CBS1:BSM1:BSMPerfandUtil1" MINOR "CPU Usage exceeded the Threshold"  
# 90148 Nak    Clear    "14 Jan 09 00:07:59" "O%:CBS1:BSM1:BSMPerfandUtil1" MINOR "CPU Usage exceeded the Threshold"  
# 90148 Ack    Clear    "14 Jan 09 00:07:59" "O%:CBS1:BSM1:BSMPerfandUtil1" MINOR "CPU Usage exceeded the Threshold"  
# 1692545 Nak    Active   "14 Jan 09 01:48:32" "O%:CBS1:Cells1:MC800BTS1029:MCBTSSubsystem1:Root1:CEM2" MINOR "SWERR log threshold exceeded at CEM, please upload the log // [XCEM]  SWERR Log"

#!/usr/bin/perl 
# This file is the parser.pl 
# This is a script that will parse data collected by collector.pl  
# and insert the data into a MySQL database. 
 
use strict;   
use warnings;   
use Mysql; 
use POSIX qw/strftime/;  
 
my $date = strftime("%y%m%d%H%M", localtime(time)); 
my $host = "localhost"; 
my $database = "DB"; 
my $tablename = "TN"; 
my $user = "USR"; 
my $pass = "PWD"; 
 
my $connect = Mysql->connect($host, $database, $user, $pass); 
$connect->selectdb($database); 
         
open (DATA, $ARGV[0]) 
	or die "Can't open '$ARGV[0]' $!"; 
 
while(my $line = <DATA>){  
   if($line =~ /^#/){  
	$space = ' '; 
	$quote = '"'; 
	 
	# Index Variable 
 
	$limit1 = index($line, $space); 
	$offset = ++$limit1; 
	 
	$limit2 = index($line, $space, $offset); 
	 
	$count1 = $limit2 - $limit1; 
	 
	$index_var = substr($line, $limit1, $count1); 
 
	# Status Variable  
	 
	$limit3 = ++$limit2; 
	$limit4 = index($line, $space, $limit3); 
	 
	$count2 = $limit4 - $limit2; 
	 
	$status_var = substr($line, $limit3, $count2); 
	 
 
 
	# Inserting Values into Database 
	 
      	my $query = "INSERT INTO $tablename VALUES ('$index_var', '$status_var', '$activity_var',  
						    '$date_var', '$time_var', '$source_var',  
						    '$severity_var', '$faultname_var', FALSE)"; 
 
 
        $execute = $connect->query($query); 
 
 
   } 
} 
 
close DATA;

#!/usr/bin/perl 
# This file is the parser.pl 
# This is a script that will parse data collected by collector.pl 
# and insert the data into a MySQL database. 
 
use strict; 
use warnings; 
use Mysql; 
use Text::ParseWords; 
use Date::Parse; 
 
my $host = "localhost"; 
my $database = "DB"; 
my $tablename = "TN"; 
my $user = "USR"; 
my $pass = "PWD"; 
 
my $connect = Mysql->connect($host, $database, $user, $pass); 
$connect->selectdb($database); 
 
open(DATA, $ARGV[0]) 
     or die "Can't open '$ARGV[0]' $!"; 
 
while (<DATA>) { 
  if($_ =~ /^#/){ 
  my @words = &quotewords('\s+', 0, $_); 
   
  # Index Variable 
  my $index = $words[1]; 
  print "Index:", $index, "\n"; 
 
  # Status Variable 
  my $status = $words[2]; 
  print "Status:", $status, "\n"; 
 
  # Activity Variable 
  my $activity = $words[3]; 
  print "Activity:", $activity, "\n"; 
  
  # Date/Time Variable  
  my $datetime = $words[4]; 
   
  # Parsing Date/Time 
  my ($ss,$mm,$hh,$day,$month,$year,$zone) = strptime($datetime); 
 
  # Date Variable 
  my $date=sprintf("%4d-%02d-%02d",$year+2000,$month+1,$day); 
  print "Date:", $date, "\n"; 
 
  # Time Variable 
  my $time=sprintf("%2d:%02d:%02d",$hh,$mm,$ss); 
  print "Time:", $time, "\n"; 
 
  # Source Variable 
  my $source = $words[5]; 
  print "Source:", $source, "\n"; 
 
  # Severity Variable 
  my $severity = $words[6]; 
  print "Severity:", $severity, "\n"; 
 
  # Fault Name Variable 
  my $faultname = $words[7]; 
  print "FaultName:", $faultname, "\n\n"; 
 
   
  # Inserting Values into Database 
  my $query = "INSERT INTO $tablename VALUES( 
                          '$index', '$status', '$activity',   
                          '$date', '$time', '$source',   
                          '$severity', '$faultname', FALSE)"; 
  $execute = $connect->query($query); 
  } 
} 
 
close DATA;

my $host = 'localhost';  
my $database = 'DB';  
my $tablename = 'TN';  
my $user = 'USR';  
my $pass = 'PWD';

$var = "$str";

# Index Variable  
  my $index = $words[1];  
  print "Index:", $index, "\n";

my $file = $ARGV[0] || die "Usage: $0 <filename>\n"; 
open my $FH, '<', $file or die "Can't open '$file' $!"; 
 
my $sth = $dbh->prepare("INSERT INTO $tablename VALUES (?,?,?,?,?,?,?,?,FALSE)"); 
while (<$FH>) { 
 
    next if $_ !~ /^#/; 
 
    my (undef, $index, $status, $activity, $datetime, $source, $severity, $faultname) = quotewords('\s+', 0, $_); 
    my ($time) = $datetime =~ /(\S+)$/; 
    my (undef,undef,undef,$day,$month,$year) = strptime($datetime); 
    my $date = sprintf("%4d-%02d-%02d",$year+2000,$month+1,$day); 
     
    $sth->execute($index, $status, $activity, $date, $time, $source, $severity, $faultname); 
}

#!/usr/bin/perl 
# This file is the parser.pl 
# This is a script that will parse data collected by collector.pl 
# and insert the data into a MySQL database. 
 
use strict; 
use warnings; 
use DBI; 
use DBD::mysql; 
use Text::ParseWords; 
use Date::Parse; 
 
my $host = 'localhost'; 
my $database = 'DB'; 
my $tablename = 'TN'; 
my $user = 'USR'; 
my $pass = 'PWD'; 
 
# Data source name 
my $dsn = "dbi:mysql:$database:localhost:3306"; 
 
# Perl DBI Connect 
my $dbh = DBI->connect($dsn, $user, $pass); 
 
my $file = $ARGV[0] || die "Usage: $0 <filename>\n";  
open my $FH, '<', $file or die "Can't open '$file' $!";  
  
my $sth = $dbh->prepare("INSERT INTO $tablename VALUES (?,?,?,?,?,?,?,?,FALSE)");  
while (<$FH>) {  
  
    next if $_ !~ /^#/;  
  
    my (undef, $index, $status, $activity, $datetime, $source, $severity, $faultname) = quotewords('\s+', 0, $_);  
    my ($time) = $datetime =~ /(\S+)$/;  
    my (undef,undef,undef,$day,$month,$year) = strptime($datetime);  
    my $date = sprintf("%4d-%02d-%02d",$year+2000,$month+1,$day);  
      
    $sth->execute($index, $status, $activity, $date, $time, $source, $severity, $faultname);  
} 
close $FH;

DBD::mysql::st execute failed: Duplicate entry '90149-Clear-2009-01-15-00:07:51' for key 1 at /home/bsm/parser.pl line 37, <$FH> line 6. 
DBD::mysql::st execute failed: Duplicate entry '1903042-Clear-2009-01-15-00:10:32' for key 1 at /home/bsm/parser.pl line 37, <$FH> line 7. 
DBD::mysql::st execute failed: Duplicate entry '1753818-Clear-2009-01-15-01:50:32' for key 1 at /home/bsm/parser.pl line 37, <$FH> line 10. 
DBD::mysql::st execute failed: Duplicate entry '1825718-Clear-2009-01-15-05:43:15' for key 1 at /home/bsm/parser.pl line 37, <$FH> line 16. 
DBD::mysql::st execute failed: Duplicate entry '1825719-Clear-2009-01-15-05:43:31' for key 1 at /home/bsm/parser.pl line 37, <$FH> line 17. 
DBD::mysql::st execute failed: Duplicate entry '1692552-Clear-2009-01-15-06:40:31' for key 1 at /home/bsm/parser.pl line 37, <$FH> line 20. 
DBD::mysql::st execute failed: Duplicate entry '1852117-Clear-2009-01-15-07:44:02' for key 1 at /home/bsm/parser.pl line 37, <$FH> line 24. 
DBD::mysql::st execute failed: Duplicate entry '1852118-Clear-2009-01-15-07:44:03' for key 1 at /home/bsm/parser.pl line 37, <$FH> line 25. 
DBD::mysql::st execute failed: Duplicate entry '1852119-Clear-2009-01-15-07:44:03' for key 1 at /home/bsm/parser.pl line 37, <$FH> line 26.