Procesare De Date Perl

Previzualizare referat:

Extras din referat:

Programul produce un raport cu rezultatele studentilor la examene, combinand date din doua fisiere ce contin informatii despre studenti respectiv notele obtinute de fiecare la examene.

Fisierul de intrare studenti are campurile delimitate prin: si contine pe fiecare linie numarul matricol, numele si anul in care este studentul.

Fisierul de intrare note are campurile delimitate prin spatii si contine pe fiecare linie numarul matricol, examenul, si numarul de credite obtinute.

48000 1 1 28602 2 5 38601 2 3 Se observa ca Pop Vasile a lipsit la al 3-lea examen.

Raportul afisat de program arata in felul urmator: Nr. Mat Nume 1 2 Total 28602 Muresan Robert 4 5 9 38601 Pop Ioan 2 3 5 48000 Pop Vasile 1 1 Total: 7 8 Programul care a generat acest raport este urmatorul: #! usr/bin/perl # Catalog de Note - pentru demonstrarea lucrului cu sistemul I/O, liste asociative # sortare si formatarea unui raport # Programul accepta orice numar de studenti si examene, respectiv trateaza si # cazurile cand anumite informatii lipsesc.

$studfile = studenti; $notfile = note; # Daca fisierele se pot deschide, atunci perl nu mai evalueaza si restul expresiei ce # urmeaza dupa || open (NUME, $maxnrexam) {$maxnrexam = $nrexam; } } close NOTE; # Tipareste raportul cu datele citite printf %6s %-${maxlengthnume}s , Nr. Mat, Nume; foreach $nrexam (1. $maxnrexam) { printf %4d, $nrexam; } printf %10s

, Total: ; # Subrutina dupanume este folosita pentru sortarea sirului %nume # Functia sort transmite variabilele $a si $b subrutinelor pe care le apeleaza # Functia x cmp y returneaza -1 daca x < y, 0 daca x=y si 1 daca x > y.

sub dupanume {$nume{$a} cmp $nume{$b}} # Ordoneaza numerele matricole astfel incat numele studentilor sa apara in # ordine alfabetica foreach $nrmat (sort dupanume keys (%nume)) { # Tipareste creditele obtinute si totalul pentru fiecare student printf %6d %-${maxlengthnume}s , $nrmat, $nume{$nrmat}; $total = 0; foreach $nrexam (1. $maxnrexam) { printf %4s, $nota{$nrmat, $nrexam}; $total += $nota ($nrmat, $nrexam); $examtot ($nrexam) += $nota ($nrmat, $nrexam); } printf %10d

, $total; } printf

%6s %${maxlengthnume}s , Total: ; foreach $nrexam (1. $maxnrexam) { printf %4d, $examtot{$nrexam}; } printf

; exit (0). ...

Download referat

Primești referatul în câteva minute,
cu sau fără cont

Alte informații:
Tipuri fișiere:
doc
Diacritice:
Nu
Nota:
9/10 (3 voturi)
Anul redactarii:
2007
Nr fișiere:
1 fisier
Pagini (total):
4 pagini
Imagini extrase:
3 imagini
Nr cuvinte:
400 cuvinte
Nr caractere:
2 755 caractere
Marime:
4.89 KB (arhivat)
Nivel studiu:
Gimnaziu
Tip document:
Referat
Materie:
Informatica
Data publicare:
26.12.2009
Structură de fișiere:
  • Procesare De Date Perl
    • Referat.doc
Predat:
la gimnaziu

Ai gasit ceva în neregulă cu acest document?

Te-ar putea interesa și:
I. Descrierea afacerii I.1. Descrierea generala a domeniului Afacerea pe care vrem sa o demaram...
1.Prezentarea societatii B&B Collection este importator oficial si distribuitor autorizat in...
Capitolul I Judetul Bacau I.1 Descrierea judetului Bacau Judetul Bacau este situat in partea...
Vinul spumant pare astazi a fi inerent oricarei celebrari sau festivitati. Nu exista o alta...
Se presupune ca berea a fost creata accidental de catre primele triburi nomade cu aproape 10.000...
Sus!