use utf8;
use strict;
use warnings;
package Numeros;
our @network = qw(
15
17
18
112
115
119
116000
118712
1014
);
our @lignes_mobiles = qw(
627362306
);
our @lignes_geo = qw(
148901515
);
our @lignes = (@lignes_geo, @lignes_mobiles);
our @intl = map { "+33$_" } @lignes;
our @prefixes = qw(0 4 36510 1633 +33);
our @avec_prefixe = map { my $n = $_; (map { "$_$n" } @prefixes) } @lignes;
our @ok = (
@network,
@avec_prefixe
);
our @ko = (
(map { $_.'0' } @lignes),
qw(
+3317
00330148901515
+330148901515
+33014890151
4420
8888
9245
1234
)
);
our @formatted = (
'+33 1 48 90 15 15',
'39 49',
'3651 01 48 90 15 15',
);
our %operators = (
'EQFR' => [ '0533491234' ],
'SFR0' => [ '0170131234' ],
'FRTE' => [ '0148901515', '+33148901515' ],
);
1;