smirn0v · March 3, 2016 16:01
diff --git a/nsdata-description-to-binary b/nsdata-description-to-binary
 #!/usr/bin/env perl

 use strict;
 use warnings;
 use autodie qw(:all);

 my $str = do { local $/; <STDIN> };
 $str =~ s/[^0-9a-fA-F]//gm;
 $str = pack('H*', $str);

 print $str;
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use autodie qw(:all);

	my $str = do { local $/; <STDIN> };
	$str =~ s/[^0-9a-fA-F]//gm;
	$str = pack('H*', $str);

	print $str;