source: projects/perl-tools/read-file @ 1

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

Erstimport

File size: 534 bytes
Line 
1#!/usr/bin/perl
2#
3# Usage: read-file.pl [DATEINAME]
4#   liest von Textdatei oder stdin Zahlen. Diese muessen am Zeilenanfang
5#   stehen - ignoriert werden ferner Kommentare dahinter, durch
6#   Leerzeichen getrennt, sowie generell Zeilen mit Kommentaren - diese
7#   Zeilen sollten mit einem Kommentarzeichen wie # oder / beginnen.
8#
9
10my $handler = STDIN;
11open($handler, '<', $ARGV[0]) if(@ARGV > 0);
12
13while(<$handler>) {
14    next unless(/^([0-9]+)/);
15    #print STDERR "Zahl $1\n"; # gibt nix zu debuggen ;)
16    print pack("C", $1);
17}
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