11-04-2010
perl script for generates a report for backup times
Hi all,
we do have daily oracle database backups and i need to generate report of each database start point and end point
we are using netapp snapshot(filer level) for backups.
all backups logs will be come in one directory
/u01/app/oracle/backup/hostname/log/*
here hostname=usadc*
for each host we have n number of databases
suppose i have hostname usadc01 and i have 5 databases residing in this and i take any one database say test
/u01/app/oracle/backup/usadc01/log/ in this path i will get 2 files for this database test.begin and test.end in these 2 files i will get database backup bagin time(test.begin) and database end time(test.end) here i need to parse these 2 files to take timestamp and need to direct to some file
and we have 40 servers and 300 databases
all servers will start from usadc in the path /u01/app/oracle/backup/
so in a loop i need to go one by one directory and for each server i need to go the path /u01/app/oracle/backup/usadc01/log/ here there will be n no of databases and for each database there will be 2 log files (*.begin and *.end) and i need to take the timestamp of these 2 files and need to direct to some file
i think this can be achived by perl it seems
is anybody there to advice me how i can go ahead.
appreciated a lot for help
thanks
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi ,
Let me know how to write a script that
runs a <a backup command> to check the backups of a particular client
from the last_night & today' dates
and print the out. (2 Replies)
Discussion started by: new2prog
2 Replies
2. UNIX for Advanced & Expert Users
I have a C++ program, running on Fedora Linux, which has to be able to update itself to a new version, which it can obtain from a server. The way I do this is to have it create a shell script which kills it (the parent process), uninstalls it, downloads the new version (actually it does this... (1 Reply)
Discussion started by: BrandonShw
1 Replies
3. Shell Programming and Scripting
Hi, im trying to make a script that backups mysql databases but apparently I am having trouble with the variables, or simply something I am missing.
Would appreciate any help, here is the script
#!/usr/bin/perl -w
use strict;
require File::Spec;
#VARIABLES
my $databasename =... (4 Replies)
Discussion started by: Fireline
4 Replies
4. Solaris
Hi
A file is generated/created/modified during installation (or) execution of a script.
vice versa..How to find out which script is responsible for creating/modifying a file.
Example:- ....An existing file ( hosts.ulcm ), this file is created or modified by running a script ( may be... (1 Reply)
Discussion started by: frintocf
1 Replies
5. Shell Programming and Scripting
Hello,
I have a large amount of data with the following structure:
Word=Transliterated word
I have written a Perl Script (reproduced below) which goes through the full file and identifies all dupes on the right hand side. It creates successfully a new file with two headers: Singletons and Dupes.... (5 Replies)
Discussion started by: gimley
5 Replies
6. Shell Programming and Scripting
Hello all,
I would like to create a for loop or whatever is quick that will print the one’s place of a number for 1-N times
say for example a printed page formatting is 132 characters wide,
I would like a single line
123456789012345678901234567890... ...012
That is 132 characters long. I... (11 Replies)
Discussion started by: KmJohnson
11 Replies
7. Shell Programming and Scripting
Hi,
I have a perl script to read the log file and create a report from it. I have the script file and log file in a different directories. Now i have pipe the log file data to the perl script to create the report (HMTL file). I am using the below command this isn't working
tail -f... (4 Replies)
Discussion started by: vel4ever
4 Replies
8. UNIX for Dummies Questions & Answers
Hi ,
I am new to Perl script.Can u please provide me perl scripts for the following:
1. Perl script on Cold backup in Oracle 10g
2.Perl script on Hot backup in Oracle 10g (0 Replies)
Discussion started by: Niharika Srivas
0 Replies
9. UNIX for Dummies Questions & Answers
hi I have a script with HTML code and am currently generating the html page everytime using genWebsite.sh > startPage.html
Is it possible to have a loop at the begining of the script to run this command every minute so an updated HTML page is displayed or could someone suggest an alternative... (2 Replies)
Discussion started by: scriptnewbie
2 Replies
LEARN ABOUT CENTOS
file::find::rule::extending
File::Find::Rule::Extending(3) User Contributed Perl Documentation File::Find::Rule::Extending(3)
NAME
File::Find::Rule::Extending - the mini-guide to extending File::Find::Rule
SYNOPSIS
package File::Find::Rule::Random;
use strict;
# take useful things from File::Find::Rule
use base 'File::Find::Rule';
# and force our crack into the main namespace
sub File::Find::Rule::random () {
my $self = shift()->_force_object;
$self->exec( sub { rand > 0.5 } );
}
1;
DESCRIPTION
File::Find::Rule went down so well with the buying public that everyone wanted to add extra features. With the 0.07 release this became a
possibility, using the following conventions.
Declare your package
package File::Find::Rule::Random;
use strict;
Inherit methods from File::Find::Rule
# take useful things from File::Find::Rule
use base 'File::Find::Rule';
Force your madness into the main package
# and force our crack into the main namespace
sub File::Find::Rule::random () {
my $self = shift()->_force_object;
$self->exec( sub { rand > 0.5 } );
}
Yes, we're being very cavalier here and defining things into the main File::Find::Rule namespace. This is due to lack of imaginiation on
my part - I simply can't find a way for the functional and oo interface to work without doing this or some kind of inheritance, and
inheritance stops you using two File::Find::Rule::Foo modules together.
For this reason try and pick distinct names for your extensions. If this becomes a problem then I may institute a semi-official registry
of taken names.
Taking no arguments.
Note the null prototype on random. This is a cheat for the procedural interface to know that your sub takes no arguments, and so allows
this to happen:
find( random => in => '.' );
If you hadn't declared "random" with a null prototype it would have consumed "in" as a parameter to it, then got all confused as it doesn't
know about a '.' rule.
AUTHOR
Richard Clamp <richardc@unixbeard.net>
COPYRIGHT
Copyright (C) 2002 Richard Clamp. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
File::Find::Rule
File::Find::Rule::MMagic was the first extension module, so maybe check that out.
perl v5.16.3 2011-09-19 File::Find::Rule::Extending(3)