Parte ii - IIS Marconi Latina - Area didattica

1002 volume V Programmazione
|binmode (STDERR, ":utf8");
|binmode (STDIN,
|#
|$source=$ARGV[0];
|$source_new=$ARGV[1];
|$line="";
|#
|open (SOURCE,
":utf8");
":utf8", "$source_new");
|#
|while ($line = )
| {
| chomp ($line);
| $line =~ m/^[0-9][0-9][0-9][0-9][0-9][0-9](.*)$/;
| $line = $1;
| if ($line =~ m/^(.{66}).*$/)
| {
| $line = $1;
| }
| print SOURCE_NEW ("$line\n");
| }
|close (SOURCE_NEW);
|close (SOURCE);
|#
Eventualmente, se il problema consistesse soltanto nella rimozione del numero di riga, si
potrebbe usare uno script molto più semplice:
|#!/bin/sh
|#
|# cobol-compile SOURCE_COB SOURCE_COB_NEW
|#
|SOURCE="$1"
|SOURCE_NEW="$2"
|cat $SOURCE | sed s/^[0-9][0-9][0-9][0-9][0-9][0-9]//g > $SOURCE_NEW
83.1.2 Riepilogo di alcuni concetti importanti del linguaggio
«
In generale, le istruzioni del linguaggio COBOL sono da intendere come frasi scritte in inglese,
che terminano con un punto fermo. In certe situazioni, si riuniscono più istruzioni in un’unica
«frase», che termina con un punto, ma in tal caso, spesso si usa la virgola e il punto e virgola
per concludere le istruzioni singole.
Le istruzioni del linguaggio si compongono in linea di massima di parole chiave, costanti
letterali e operatori matematici. Le parole chiave sono scritte usando lettere maiuscole (dell’alfabeto
inglese) e il trattino normale (‘-’). In generale, i simboli che si possono usare nel
linguaggio sono abbastanza limitati, con l’eccezione del contenuto delle costanti alfanumeriche
letterali, che teoricamente potrebbero contenere qualunque simbolo (escluso quello che si
usa come delimitatore) secondo le potenzialità del compilatore particolare.