Add a timestamp to every STDOUT line
I found this useful for debugging and just handy to have in the toolbox. Alias within your profile!
Use:
./anyscript_you_choose | ./addtime
[perl]
#!/bin/perl -w
# filename: ./addtime
my($old)=select(STDOUT);
$|=1;
select(STDIN);
$|=1;
select ($old);
while(<>)
{
my($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst)= localtime (time);
printf “%02d:%02d:%4d %02d:%02d:%02d %s”,$mday,$mon+1,$year+1900,$hour,$min,$sec,$_;
}
[/perl]
