fork download 
  1. perl -lne '$a=$1 if(/(^at\s+[^\s]*?)\s/);print $a." ".$1 if(/(eating:.*)$/)'
Success #stdin #stdout 0s 5996KB
comments (?)
stdin 
at 12:00 the schedule is :

first_task:eating:fruit
second_task:rest:onehour
third_task:watching:horrorfilm  

at 18:h00 the schedule is :

first_task:eating:vegetals
second_task:rest:threehours
third_task:watching:manga 

at 22:h00 the schedule is :

first_task:eating:nothing
second_task:rest:sevenhours
third_task:watching:nothing
stdout 
at 12:00 eating:fruit
at 18:h00 eating:vegetals
at 22:h00 eating:nothing
https://ideone.com/P2ogSF
language:
Bash (bash 5.0.3)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!