Re: How to Prepending a timestamp to each line of output from a command

[thanos1983]

Hello jnarayan81,

The monks have already provided you with wisdom, but I am wondering why don't you simply call it through a subroutine. Your script works just fine as soon as you call the subroutine every instance that you want it.

Sample:

#!usr/bin/perl
use say;
use strict;
use warnings;
use POSIX q(strftime);

my @abc = ("a", "b", "c", "d", "e");

sub fetchTime {
    return POSIX::strftime('%a, %d %b %Y %T %z', localtime);
}

for (@abc) {say fetchTime() . "\t$_"; sleep 1;}

__END__

$ perl time.pl
Wed, 07 Jun 2017 14:08:31 +0200    a
Wed, 07 Jun 2017 14:08:32 +0200    b
Wed, 07 Jun 2017 14:08:33 +0200    c
Wed, 07 Jun 2017 14:08:34 +0200    d
Wed, 07 Jun 2017 14:08:35 +0200    e

Hope this helps.