Parent Directory | Revision Log
new trunk for webpac v2
1 | #!/usr/bin/perl |
2 | |
3 | # tools for ISO 2709 format |
4 | # |
5 | |
6 | # field sep is ^^ (char val 30) |
7 | # record sep is ^]^J (char val 29 and newline) |
8 | |
9 | $/ = "\035\n"; |
10 | |
11 | while (<STDIN>) { |
12 | print; |
13 | last if $. > 20; |
14 | # chomp; |
15 | # y/\n\t\036/ \t/; |
16 | # print $_, "\n"; |
17 | } |
18 |
Name | Value |
---|---|
svn:executable |
ViewVC Help | |
Powered by ViewVC 1.1.26 |