From 2496f5c5a98c469ba7f4a463bf483e893b3ed064 Mon Sep 17 00:00:00 2001 From: Dan Church Date: Fri, 23 Jul 2021 16:09:38 -0500 Subject: [PATCH] Make make-block.pl's output more flexible --- make-block.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/make-block.pl b/make-block.pl index 30e9027..47ff838 100755 --- a/make-block.pl +++ b/make-block.pl @@ -53,7 +53,7 @@ sub add_host_file { } MAIN: { - my $out = 'block.list'; + my $out; my $block_ip = '0.0.0.0'; my $workdir = &dirname($0); @@ -77,8 +77,11 @@ MAIN: { } my $written = 0; - open my $fho, '>', $out - or die "Failed to open file $out for writing: $!"; + my $fho = \*STDOUT; + if (defined $out && length $out) { + open $fho, '>', $out + or die "Failed to open file $out for writing: $!"; + } print $fho map { ++$written; "$block_ip $_\n"