wrap input to 32 columns, breaking on spaces

perl_wrap.pl

while (<>)
{
  chomp;
  $line = $_;

  while (length($line) > 32)
  {
    $bit = substr($line,0,32);
    $space = rindex($bit," ");
    if ($space == -1)
    {
      print $bit,"\n";
      $line = substr($line,32);
    }
    else
    {
      print substr($bit,0,$space),"\n";
      $line = substr($line,$space+1);
    }
  }
  print $line,"\n";
}

just the thing for splitting up text being live-streamed to one of little dinky microprinters!

to stream an MQTT topic to a microprinter via this wrapping code, try:

mosquitto_sub -t printer | perl perl_wrap.pl >> /dev/ttyUSB0