I dont want to use crontab or cronjob here.

Why? That's EXACTLY what cron is for.

Alexander

hi Alexander ,

I dont have permission to use the cron job

Thanks Kshitij

What does your script do? I presume it doesn't do anything root-level, or you wouldn't have permission to use those things either.

Every Unix user has their own crontab; you don't need to use system cron (which would in fact require root level permissions).

Personally, if this is for work and you absolutely require permissions to run cron as root, I'd be speaking to management as to why they require the extra work on your behalf when something built-in and wholly reliable already exists. Get the permissions you need, or perhaps rethink your ambitions. What is it you're trying to do, anyway?

If you don't have permission to run a cron job then you probably also don't have permission to run effectively the same thing from perl - seeing as how there's no real difference. If your problem is an adminstrative one then you'll need to find an adminstrative solution.

Is there some reason you can't ask your systems administrator to review the script abs setup the cron job?

update

probably of interest: Schedule::Cron

I wrote this up years ago, and have a side screen full of little fun console windows counting down to their jobs, with FG/BG colors set based on topic. Using your task scheduler would be better if you want it to be more reliable than entertaining however.

        sleepUntil(
            nextTimeOccurence({time=>'3:15', weekdays=>'MTWRF'}), 
            sub {printf"%s - Next telemetry pull in %s.\r", scalar loc
+altime, englishTime(shift)}
            );
        print "\n";
[download]

sub sleepUntil
{
    my $time = shift;
    my $sub = shift;
    my $snooze = shift // 2;
    
    while (time < $time)
    {
        $sub->($time - time) if ref $sub eq 'CODE';
        sleep $snooze;
    }
}

sub nextTimeOccurence
{
    my $settings = shift;
    my $wantedSeconds = 0;
    if ($settings->{time} =~ /([0-9]+):([0-9]{2})/i)
    {
        $wantedSeconds = ($1*60 + $2)*60;
    }
    my @skipWeekDays;
    if ($settings->{weekdays} =~ /[mtwrfau]/i)
    {
        @skipWeekDays = qw( u m t w r f a ); #Sunday is day 0 of the w
+eek for localtime
        for (0..$#skipWeekDays)
        {
            $skipWeekDays[$_] = 0 if $settings->{weekdays} =~ /$skipWe
+ekDays[$_]/i;
        }
    }

    my $now = time;
    my ($sec, $min, $hour, $wday) = (localtime($now))[0,1,2,6];
    my $todaysNow = ($hour*60+$min)*60+$sec;
    
    $sec += $min*60 + $hour *3600; #seconds elapsed today
    
    my $desiredTime = $now - $sec + $wantedSeconds; #today's time of d
+ay
    if ($todaysNow > $wantedSeconds) #next desired time will occur tom
+orrow.
    {
        $desiredTime += 24*60*60;
        $wday++;
        $wday %= 7;
    }
    while ($skipWeekDays[$wday])
    {
        $desiredTime += 24*60*60;
        $wday++;
        $wday %= 7;
    }
    
    return $desiredTime;  #Process over lunch hour or whatever
}


sub englishTime
{
    my $time = shift;
    return "$time second".($time==1?'':'s') if ($time < 90);
    $time = int($time/60);
    return "$time minute".($time==1?'':'s') if ($time < 90);
    $time = int($time/60);
    return "$time hour".($time==1?'':'s') if ($time < 36);
    $time = int($time/24);
    return "$time day".($time==1?'':'s');
}
[download]

A sleeping Daemon listening on a socket takes very little CPU. Look at Proc::Daemon

#!/usr/bin/env perl
# snooze.pl
use strict;
use warnings;
use Time::Local;

my $min  = 60;
my $hour = 60 * $min;
my $day  = 24 * $hour;
my $week = 7  * $day;

# First W 10 AM
# Epoch is Thursday 00:00:00 Jan 1, 1970
my $w = timegm(gmtime(6 *$day + 10*$hour));

# Upcoming Wednesday 10AM
$w += $week until ($w > time);

my $diff =  $w - time;
print $diff
[download]

server$ (while :; do sleep $(snooze.pl); doJob.pl; done &)
[download]

No crontab? How about using the at command instead? Documentation here.