sout2str.perl 374 B

1234567891011121314151617181920
  1. #!PATH_TO_PERL
  2. use FileHandle;
  3. while (<STDIN>) {
  4. if (/output to serial port : /) {
  5. ($string) = /output to serial port : \"(.*)\"\n$/;
  6. $string =~ s/\\n/\n/g;
  7. $string =~ s/\\r/\n/g;
  8. $string =~ s/\\t/\t/g;
  9. $string =~ s/\\\"/\"/g;
  10. $string =~ s/\\\'/\'/g;
  11. $string =~ s/\\\\/\\/g;
  12. $string =~ s/\\s/ /g;
  13. print "$string";
  14. STDOUT->autoflush();
  15. }
  16. }
  17. exit (0);