I've a script to do some snapshots but the time it does so is very different...
once i got a snapshot under 1 sec, on the other hand it took 3 sec, but nothing else changed, i didnt even move the cursor or something.
I put the script on a ramdisk and its faster, but still swing from under 1 sec to 2 secs. What else can I do to make it faster or just steady?
Hi,
I have this following script below. Its searching a log file for 2 string and if found then write the strings to success.txt and If not found write strings to failed.txt . if one found and not other...then write found to success.txt and not found to failed.txt.
I want to optimize this... (3 Replies)
Hi All ,
I am just a new bie in Unix/Linux .
With help of tips from 'here and there' , I just created a simple script to
1. declare one array and some global variables
2. read the schema names from user (user input) and want2proceed flag
3. if user want to proceed , keep reading user... (8 Replies)
Hi All,
There is a script (test.sh) which is taking more CPU usage. I am attaching the script in this thread.
Could anybody please help me out to optimize the script in a better way.
Thanks,
Gobinath (6 Replies)
#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;
my $date_converted = UnixDate(ParseDate("3 days ago"),"%e/%h/%Y");
open FILE,">$ARGV";
while(<DATA>){
my @tab_delimited_array = split(/\t/,$_);
$tab_delimited_array =~ s/^\ =~ s/^\-//;
my $converted_date =... (2 Replies)
Dear Forum experts
I have the below script which I made to run under bash shell, it runs perfectly for low records number, let us say like 100000. when I put all records (3,000,000), it's takes hours
can you please suggest anything to optimize or to run in different way :-|
{OFS="|";... (6 Replies)
Hi,
I need a shell script to determine if a no. is either even, greater than 4, less than 8
SHELL : ksh
OS : RHEL 6
this is the if block of the script
mod=`expr $num % 2`
if || ||
then
echo "No. is either even or greater than 4 or less than 8"
fi
this code works... (2 Replies)
Hi all,
I have the following input - the unique row key is 1st column
cat file.txt
A response
C request
C response
D request
C request
C response
E request
The desired output should be
C request (7 Replies)
Hello,
I'm wondering if there is a quicker way of doing this.
Here is my mv script.
d=/conversion/program/out
cd $d
ls $d > /home/tempuser/$$tmp
while read line ; do
a=`echo $line|cut -c1-5|sed "s/_//g"`
b=`echo $line|cut -c16-21`
if ;then mkdir... (13 Replies)
Hi All,
I have written a new script to check for DB space and size of dump log file before it can be imported into a Oracle DB.
I'm relatively new to shell scripting.
Please help me optimize this script further. (0 Replies)
Discussion started by: narayanv
0 Replies
LEARN ABOUT DEBIAN
schedule::at
At(3pm) User Contributed Perl Documentation At(3pm)NAME
Schedule::At - OS independent interface to the Unix 'at' command
SYNOPSIS
require Schedule::At;
Schedule::At::add(TIME => $string, COMMAND => $string [, TAG =>$string]);
Schedule::At::add(TIME => $string, COMMAND => @array [, TAG =>$string]);
Schedule::At::add(TIME => $string, FILE => $string)
%jobs = Schedule::At::getJobs();
%jobs = Schedule::At::getJobs(JOBID => $string);
%jobs = Schedule::At::getJobs(TAG => $string);
Schedule::At::readJobs(JOBID => $string);
Schedule::At::readJobs(TAG => $string);
Schedule::At::remove(JOBID => $string);
Schedule::At::remove(TAG => $string);
DESCRIPTION
This modules provides an OS independent interface to 'at', the Unix command that allows you to execute commands at a specified time.
Schedule::At::add
Adds a new job to the at queue.
You have to specify a TIME and a command to execute. The TIME has a common format: YYYYMMDDHHmm where YYYY is the year (4 digits), MM
the month (01-12), DD is the day (01-31), HH the hour (00-23) and mm the minutes.
The command is passed with the COMMAND or the FILE parameter. COMMAND can be used to pass the command as an string, or an array of
commands, and FILE to read the commands from a file.
The optional parameter TAG serves as an application specific way to identify a job or a set of jobs.
Returns 0 on success or a value != 0 if an error occurred.
Schedule::At::readJobs
Read the job content identified by the JOBID or TAG parameters.
Returns a hash of JOBID => $string where $string is the the job content. As the operating systems usually add a few environment
settings, the content is longer than the command provided when adding the job.
Schedule::At::remove
Remove an at job.
You identify the job to be deleted using the JOBID parameter (an opaque string returned by the getJobs subroutine). You can also
specify a job or a set of jobs to delete with the TAG parameter, removing all the jobs that have the same tag (as specified with the
add subroutine).
Used with JOBID, returns 0 on success or a value != 0 if an error occurred. Used with TAG, returns a hash reference where the keys are
the JOBID of the jobs found and the values indicate the success of the remove operation.
Schedule::At::getJobs
Called with no params returns a hash with all the current jobs or dies if an error has occurred. It's possible to specify the TAG or
JOBID parameters so only matching jobs are returned. For each job the key is a JOBID (an OS dependent string that shouldn't be
interpreted), and the value is a hash reference.
This hash reference points to a hash with the keys:
TIME
An OS dependent string specifying the time to execute the command
TAG The tag specified in the Schedule::At::add subroutine
Configuration Variables
o $Schedule::At::SHELL
This variable can be used to specify shell for execution of the scheduled command. Can be useful for example when scheduling from CGI
script and the account of the user under which httpd runs is locked by using '/bin/false' or similar as a shell.
EXAMPLES
use Schedule::At;
# 1
Schedule::At::add (TIME => '199801181530', COMMAND => 'ls',
TAG => 'ScheduleAt');
# 2
@cmdlist = ("ls", "echo hello world");
Schedule::At::add (TIME => '199801181630', COMMAND => @cmdlist,
TAG => 'ScheduleAt');
# 3
Schedule::At::add (TIME => '199801181730', COMMAND => 'df');
# This will remove #1 and #2 but no #3
Schedule::At::remove (TAG => 'ScheduleAt');
my %atJobs = Schedule::At::getJobs();
foreach my $job (values %atJobs) {
print " ", $job->{JOBID}, " ", $job->{TIME}, ' ',
($job->{TAG} || ''), "
";
}
AUTHOR
Jose A. Rodriguez (jose AT rodriguez.jp)
perl v5.14.2 2012-04-24 At(3pm)