source: trunk/essentials/dev-lang/perl/vms/genopt.com@ 3315

Last change on this file since 3315 was 3181, checked in by bird, 19 years ago

perl 5.8.8
File size: 1.1 KB
Line 
1$! generates options file for vms link
2$! p1 is filename and mode to open file (filename/write or filename/append)
3$! p2 is delimiter separating elements of list in p3
4$! p3 is list of items to be written, one per line, into options file
5$!
6$ open file 'p1'
7$ element=0
8$loop: