data.pmG^8"^"DЗGhGFvHH^HCTEXTttxtqĴ&[&[=# # Valeur de l'euro. # $main::euro = 6.55957; $main::db_user = "mafma"; $main::db_pass = "mafma"; $main::db_base = "dbi:mysql:Mafma"; $main::server = 'localhost'; # Et machine de la base. # data_scale(): retourne l'echelle en toutes lettres d'un produit. sub data_scale { my($scale); ($scale) = @_; return "1/$scale eme"; } # data_normalize_qty(): vrifie si les quantites fournies par le script sont valides. # entres: - $: la quantit. # sorties: - $: la quantit entire suprieure ou gale 0; sub data_normalize_qty { my($qty); ($qty) = @_; if ($qty < 0) { return 0; } return int $qty; } return 1; B2 data_scale data_normalize_qtyH Monaco$ p"H'(Q(QB>MPSR 6=tab