philalex wrote a Perl library to control the #twatch. You can leave suggestions and comments in the forum.
You are currently browsing articles tagged perl.
Tags: #twach control, perl, scripts
This Perl script demonstrates a way to get the Bus Pirate hardware and firmware version from binary mode. The approach is pretty simple: enter binary mode, reset from binary mode, parse the version information shown on reset (same as ‘i’ in the user terminal).
Note that the latest firmware, v2.8, changes the order of version info in the display. The current formatting will be retained for the foreseeable future. If this inconsistency with earlier versions is a problem for your script, you could search the output for key words that precede the version strings (“Firmware v” and “Bus Pirate v”) for a more robust identification routine.
Submit your scripts by the end of this weekend for a Bus Pirate probe cable kit.
See the latest version in the documentation wiki.
Since v2 the Bus Pirate firmware has included a self-test that verifies the function of pins and peripherals. The latest v2.6-nightly build adds a self-test to the binary bitbang mode. This is a useful way for applications to test the Bus Pirate, and for manufacturing quality control.
Self-test details after the break. Don’t forget that we’re giving Bus Pirate probe cables to script authors.
Here’s a Perl script that demonstrates the new Bus Pirate binary bitbang mode. You’ll need Perl with Win32::SerialPort or Device::SerialPort, and a Bus Pirate with firmware v2.4 or later. Edit the script to use the correct serial port number and device.
We chose Perl because we had never used it before, and we weren’t in the mood for a strongly typed language like Python. Perl’s serial port situation isn’t as clean or universal as Python’s pySerial. Since the Bus Pirate already uses a Python firmware updater, using Python for binmode scripts seems preferable. Hopefully we’ll have some Python examples soon, but if you come up with something first, please share it in the forum.
Tags: binmode, perl, raw access
