Help for this page

Select Code to Download

Select or download this

  # chop $reqid; # use chomp
  chomp $reqid;

Select or download this

while (<IN>) {
  chomp;
...
  next unless ($taskid eq $reqid); ## <-- add
  my (undef,$timestamp,undef)  = split /\s+/,$_,3;
  ..