Ideone.com

download

copy

perl -MTime::Piece -ne 'BEGIN{$date=localtime->ymd(".")};
        print unless ($_ == $date) .. /^\s*$/'

Success #stdin #stdout 0.03s 6136KB

stdin

copy

not a block
2017.12.16
block1
block1
block1

2017.01.01
not a block
not a block

not a block
2017.12.16
block2
block2
block2

stdout

copy

not a block
2017.01.01
not a block
not a block

not a block

https://ideone.com/SSix5R

language:

Bash (bash 5.0.3)

created:

visibility:

secret

Share or Embed source code

The brand new service which powers Ideone!

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