/[webpac]/openisis/current/isocvt
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /openisis/current/isocvt

Parent Directory Parent Directory | Revision Log Revision Log


Revision 237 - (hide annotations)
Mon Mar 8 17:43:12 2004 UTC (16 years, 8 months ago) by dpavlin
File size: 242 byte(s)
initial import of openisis 0.9.0 vendor drop

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    

Properties

Name Value
svn:executable

  ViewVC Help
Powered by ViewVC 1.1.26