+- Mx5Italia (https://www.mx5italia.com/forum)
+-- Forum: Area Off-Topic (https://www.mx5italia.com/forum/forum-7.html)
+--- Forum: I Perditempo (https://www.mx5italia.com/forum/forum-32.html)
+--- Discussione: Non ce la posso fare (/thread-11397.html)
Pagine:
1
2
Non ce la posso fare - Lanf - 11-02-2011
Formix Ha scritto: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]
Non ce la posso fare - chiara - 11-02-2011
Lanf Ha scritto: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]
: Yahooo : mi ricorda qualcosa fatto di recente
Non ce la posso fare - robyrock - 12-02-2011
Formix Ha scritto:esistono ancora linguaggi di programmazione non ad oggetti nel 2011??
e sopratutto qualcuno che li usa??
Io fino a 18 mesi fa lavoravo in COBOL, ti dico solo questo... : WallBash :
Ho mollato per disperazione, ed ora viaggio con C# ed un pizzico di Java per Android! : Yahooo :
Non ce la posso fare - chiara - 14-02-2011
robyrock Ha scritto:Io fino a 18 mesi fa lavoravo in COBOL, ti dico solo questo... : WallBash :
Ho mollato per disperazione, ed ora viaggio con C# ed un pizzico di Java per Android! : Yahooo :
Io sono ancora bloccata sul RPG ma ammetto che questo corso universitario mi ha ridato speranza per il futuro :giggle: