Non ce la posso fare

[Lanf]

esistono ancora linguaggi di programmazione non ad oggetti nel 2011??

e sopratutto qualcuno che li usa??

Questa roba non usa oggetti per esempio (deve prendere un file generato dal gestionale con dati su due righe...):


[CODE]#
# Autore: Lanfranco Albani 28/1/2011
# ricordarsi di pulire il file dalla prima pagina e i totali
#
print "Conversione giacenza di magazzino in .csv - © 2011 Best Service Srl\n";
print "Modificato per input su doppia riga.\n";
#
if(! scalar(@ARGV) == 1) {
print "Sintassi: conv_giac_magaz.pl <infile> <outfile>\n";
exit 1;
}
$infile = $ARGV[0];
$outfile = $ARGV[1];

open(IN, "$infile") || die "Non posso aprire il file $infile $! \n";
@in = <IN>;
close(IN);

open(OUT, ">$outfile") || die "Non posso aprire il file $outfile: $! \n";

# pulisce il file sorgente per evitare grane
foreach $l (@in) {
next if($l =~ /Situazione/);
next if($l =~ /Ditta/);
next if($l =~ /Scarichi/);
next if($l =~ /Storni/);
next if($l =~ /Resi/);
next if($l =~ /=====/);
next if($l =~ /-----/);
next if($l =~ /^$/);
next if($l =~ /Giacenza/);
next if($l =~ /Iniziale/);
next if($l =~ /TOTALI/);
chop($l);
if($l =~ /^ [^\S]/) {
$valore = substr($l,235,15);
$valore =~ s/\s//g;
$r = join(';',$precodice,$articolo,$descrizione,$giacenza,$valore);
push(@s, $r);
next;
}
$precodice = substr($l,0,6);
$precodice =~ s/\s//g;
$articolo = substr($l,7,18);
$articolo =~ s/\s//g;
$descrizione = substr($l,26,39);
$descrizione =~ s/\s//g;
$giacenza = substr($l,235,15);
$giacenza =~ s/\s//g;
}

# stampa
foreach $l (@s) {
print OUT "$l\n";
}

close(OUT);[/CODE]