fixed parsing for science direct html with more than one <a href=> per one <tr>
[webpac] / openisis / isocvt
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