Konsolenbefehl als Subroutine (Substitution) - #161974 (Allgemeines zu Perl)

topeg

2012-09-21 11:11

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Die Übertragung war nicht ganz korrekt, und du hast ein paar Tippfehler gemacht.

Code (perl): (dl )

my $usb = '/dev/ttyUSB-1-4';
my $command = '0015070400a4';
die("Error run 'send' ($!)") unless( send($usb, $command) );

sub send
{
  my $usb = shift;
  my $raw = shift;
  $raw =~ s/([0-9a-f]{2})/chr( hex( $1 ) )/gie;
  open(my $fh,'|-',"socat -t1 - $usb,b2400") or return 0;
  binmode( $fh );
  print $fh $raw;
  close( $fh ) or return 0;
  return 1;
}