/[webpac]/trunk2/openisis/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 /trunk2/openisis/isocvt

Parent Directory Parent Directory | Revision Log Revision Log


Revision 239 - (hide annotations)
Mon Mar 8 17:49:13 2004 UTC (20 years ago) by dpavlin
Original Path: trunk/openisis/isocvt
File size: 242 byte(s)
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    

Properties

Name Value
svn:executable

  ViewVC Help
Powered by ViewVC 1.1.26