Erase next column

1 files changed, 6 insertions, 1 deletions

diff --git a/bin/ekgping b/bin/ekgping
index aca2c3f..8786682 100755
--- a/bin/ekgping
+++ b/bin/ekgping
@@ -17,6 +17,7 @@ my $beep;
 my $was_beep   = 1;
 my $dead_count = 0;
 my $column     = 0;
+my $column_max = 80;
 
 my $ping = harness(
 	[ 'ping', '-n', $host ],
@@ -58,11 +59,15 @@ while ( usleep(100_000) ) {
 
 	$ping->pump_nb();
 
-	if ( $column++ == 80 ) {
+	if ( $column++ == $column_max ) {
 		print "\r";
 		$column = 0;
 	}
 
+	if ( $column != $column_max) {
+		print "\e[1C \e[1D\e[1D";
+	}
+
 	if ( $id != $last_id ) {
 		$beep = 1;
 		print q{^};