programming-examples/perl/Report/Writes out multiple formatted lines of output and suppresses blank lines.pl
2019-11-15 12:59:38 +01:00

17 lines
436 B
Raku

#!/usr/local/bin/perl
@quotation = <STDIN>;
$quotation = join("", @quotation);
$~ = "QUOTATION";
write;
format QUOTATION =
Quotation for the day:
-----------------------------
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$quotation
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$quotation
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$quotation
-----------------------------