Shell Programming and Scripting

 
#!/usr/bin/perl
use Time::Local ;
 
@timeData = localtime((stat($0))[9]);
$sec=$timeData[0];
$min=$timeData[1];
$hours=$timeData[2];
$day=$timeData[3]+1;  
$month=$timeData[4];
$year=$timeData[5];
$Beg_time = (timelocal($sec,$min,$hours,$day,$month,$year) * 1000);
print "Epoch Beg Value: $Beg_time\n";
$year=$year+1900 ;
$month=$mount+1;
$TS=(sprintf "%4d%02d%02d%02d%02d.%02d",$year,$month,$day,$hours,$min,$sec);
system("touch -t $TS $0");

#!/usr/bin/perl
use Time::Local ;
$sec=00;
$min=01;
$hours=00;
$day=&get_day;
$month=7;
$year=109;
 
$Beg_time = (timelocal($sec,$min,$hours,$day,$month,$year) * 1000);
print "Epoch Beg Value: $Beg_time\n";
 
add_day();
 
 
sub get_day {
 
 my $val = 0;
 open (F,"file") || die "unable to open";
  while ($line = <F>){ chomp($line);if ( $.==1) { $val=$line }};
  close F;
 return $val;
}
 
sub add_day {
 
 my $cday = 0;
 $cday = &get_day;
 $cday=$cday+1;
 open (F,">file") || die "unable to open";
  print F "$cday\n";
 close F;
}

 
touch -t [[CC]YY]MMDDhhmm[.ss] filename

#!/usr/bin/perl

use strict;
use warnings;

use Time::Local;
use constant ONE_DAY => 24 * 60 * 60;

my $file = 'date';

my @date = get_date();

print 'Epoch Beg Value: ',
      my $date = (timelocal(@date) * 1000),
      "\n";

$date /= 1000;
$date += ONE_DAY;

save_date((localtime $date)[0 .. 5]);



sub get_date {
  my @default = qw(0 1 0 14 7 109);

  unless (-f $file && -r _) {
    return @default;
  }

  my $d;
  unless ( open $d, '<', $file ) {
    return @default;
  }

  chomp(my $date = <$d>);

  return @default unless $date;

  my @date = split/:/, $date;

  if (@date == 6) {
    return @date;
  } else {
    return @default;
  }
}

sub save_date {
  my @date = @_;

  my $d;
  unless ( open $d, '>', $file ) {
    die "Can't write to $file\n";
  }

  print $d join ':', @date;
  print $d "\n";
}