PERL - Sortare nereusita - Forumul Softpedia

#1
saschart

Posted 30 October 2002 - 12:52

Junior Member

Grup: Banned
Posts: 230
Înscris: 20.09.2002

Pentru sortarea datelor dintr-un tabel in excel am creat in cgi

#####################Sortarea in functie de pret

sub in_functie_de_pret {

$de_la = $form{'de_la'};

$pana_la = $form{'pana_la'};

open (FE, "$database")|| die "not found";
@lines = ;
.............................

foreach (@lines){ ($zona,$suprafata,$descriere,$pret,$ID,$img) = split('[;]',$_);

$from_dig = "$de_la";
$to_dig = "$pana_la";
$dig = "$pret";

if ($from_dig le $dig & $to_dig ge $dig){
.............................

Rezultatul este ca-mi sorteaza corect doar dupa primele doua cifre, zecimalele nu le ia in calcul

Back to top

#2
djlyon

Posted 30 October 2002 - 13:00

Active Member

Grup: Members
Posts: 1,536
Înscris: 28.11.2001

Pai le si gt si altele asemanatoare se folosesc pentru comparatie de string-uri, dar tu ai valori integer, si atunci trebuie sa folosesti banalele >, >=, <=, etc.
Cam asta mi-a sarit in ochi prima oara cand m-am uitat pe script.
Sortarea insa eu o fac altfel.

Back to top

#3
saschart

Posted 30 October 2002 - 13:05

Junior Member

Grup: Banned
Posts: 230
Înscris: 20.09.2002

spune-mi si mie te rog care este varianta ta prin care faci sortarea

Back to top

#4
djlyon

Posted 30 October 2002 - 13:11

Active Member

Grup: Members
Posts: 1,536
Înscris: 28.11.2001

@SB = sort{$a->[1] cmp $b->[1]} @SHOWBASE;
Nu se potriveste din prima pentru ce ai tu, dar asta merge sigur pentru ca o folosesc de zi cu zi intr-un script pentru web.

@SHOWBASE e ceva de forma:
nume1`valoare1
nume2`valoare2
nume3`valoare3

In cazul de mai sus, sortarea se face dupa coloana valoare.

Back to top

#5
saschart

Posted 30 October 2002 - 13:15

Junior Member

Grup: Banned
Posts: 230
Înscris: 20.09.2002

intr-adevar varianta clasica pe care ai dat-o este buna, pentru ca vad ca nu-mi mai incurca rezulatele

multumesc mult

Back to top

#6
djlyon

Posted 30 October 2002 - 13:16

Active Member

Grup: Members
Posts: 1,536
Înscris: 28.11.2001

Iar asa "umplu" baza de date SHOWBASE cu valori din fisier:

open(DB,"+<$fisier") || die "eroare";
flock(DB,2);                  # Locking file
seek(DB,0,0);
@DATA = ;
$SIZE = @DATA;

$i = 0;$j = 0;
while ($i <= $SIZE) {
   ($exe,$pro,$catbase,$data) = split(/`/,$DATA[$i]); #`

$SHOWBASE[$j][0] = $nume;
$SHOWBASE[$j][1] = $valoare;
$SHOWBASE[$j][2] = $ceva_a;
$SHOWBASE[$j][3] = $ceva_b;
$j++;
}}
$i++;
  }

Dupa care sortezi cum ti-am aratat mai sus.
Hope it helps and serves your purpose.

Back to top

#7
djlyon

Posted 30 October 2002 - 13:17

Active Member

Grup: Members
Posts: 1,536
Înscris: 28.11.2001

Quote

Originally posted by saschart
varianta clasica pe care ai dat-o este buna, pentru ca vad ca nu-mi mai incurca rezulatele

Este doar sort-ul clasic din Perl...

Back to top

Anunturi

Bun venit pe Forumul Softpedia!

PERL - Sortare nereusita

#1 saschart Posted 30 October 2002 - 12:52

#2 djlyon Posted 30 October 2002 - 13:00

#3 saschart Posted 30 October 2002 - 13:05

#4 djlyon Posted 30 October 2002 - 13:11

#5 saschart Posted 30 October 2002 - 13:15

#6 djlyon Posted 30 October 2002 - 13:16

#7 djlyon Posted 30 October 2002 - 13:17

Anunturi

▶ 1 user(s) are reading this topic

Sign In

#1
saschart

Posted 30 October 2002 - 12:52

#2
djlyon

Posted 30 October 2002 - 13:00

#3
saschart

Posted 30 October 2002 - 13:05

#4
djlyon

Posted 30 October 2002 - 13:11

#5
saschart

Posted 30 October 2002 - 13:15

#6
djlyon

Posted 30 October 2002 - 13:16

#7
djlyon

Posted 30 October 2002 - 13:17