source: projects/perl-tools/hex-meter @ 27

Last change on this file since 27 was 1, checked in by sven, 16 years ago

Erstimport

File size: 147 bytes
RevLine 
[1]1#!/usr/bin/perl
2# Udos kleines Lochstreifen-Meterband.
3#
4
5for($x=0; $x < $ARGV[0]; $x++) {
6        for($y=0; $y<2**8; $y++) {
7                print pack('C', $y);
8        }
9}
Note: See TracBrowser for help on using the repository browser.
© 2008 - 2013 technikum29 • Sven Köppel • Some rights reserved
Powered by Trac
Expect where otherwise noted, content on this site is licensed under a Creative Commons 3.0 License