Parent Directory | Revision Log
including openisis 0.9.0 into webpac tree
1 | dpavlin | 237 | #!/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 |