|
|
Up |
  |
Author: NewsgroupsNewsgroups
Date: Feb 29, 2008 10:39
Bonjour,
J'ai un tableau qui peut contenir beaucoup d'éléments, je voudrait le
scinder en autant de tableaux que nécessaire de manière à ce que chacun
de ces nouveaux arrays soient constitués de 10 éléments. je traiterai
séparément ces arrays.
exemple :
my @grosArray = (0..10000);
je veux me retrouver avec 1000 @petitArray contenant chacun une tranche
du @grosArray
Je pense pouvoir le faire avec un boucle qui irait pusher un nouveau
tableau mais ca me parait pas très propre...
Il existe pas quelque chose de plus simple ?
|
| |
|
| |
2 Comments |
|
  |
Author: Olivier CroquetteOlivier Croquette
Date: Feb 28, 2008 09:49
Salut à tous
J'en suis encore à mes débuts en Perl, et j'ai le problème suivant: je
veux écrire sous forme de modules plusieurs implémentations d'une même
interface.
Le but est de décider à la compilation (par exemple en fonction d'une
variable d'environnement) de quelle implémentation utiliser.
Bref, j'ai:
main.pl
module.pm
module_imp1.pm
module_imp2.pm
main est censé faire un "use module", qui "redirigerait" vers
l'implémentation correcte.
Bien sûr, je veux éviter d'avoir à écrire quoique soit dans module.pm
(surtout pas une fonction par fonction à transférer).
J'ai essayé de faire ça à base de ISA et Exporter, mais je ne suis
arrivé à rien, et je ne suis pas sûr d'être sur la bonne piste.
Des idées peut-être?
Merci!
|
| |
|
| |
6 Comments |
|
  |
Author: Paul GaboritPaul Gaborit
Date: Feb 27, 2008 04:37
À (at) Wed, 27 Feb 2008 13:08:33 +0100,
xavier@ groumpf.org (Xavier) écrivait (wrote):
> Soit un tableau d'expressions régulières my @patterns, et une expression
> my $string.
>
> @patterns n'est pas forcément trié.
>
> Ai-je une autre façon de faire que
>
> my $found=0;
> foreach(@patterns){
> if ($string =~ $_){
> $found=1;
> last;
> }
> }
>
> Parce que, évidemment, si je fais ça sur tout un fichier de $string, je
> suis d'ordre N^2 est c'est lent (et moche, programmaticalement parlant)
|
| Show full article (0.78Kb) |
|
no comments
|
|
  |
Author: fred78980fred78980
Date: Feb 26, 2008 13:50
Je cherche la RE qui permet de faire un match qui reconnaît les
caractères qui sont entre les accolades en ignorant les verbes
conjugués.
di(t)[ParPas(MS)], di(t)-s[ParPas(MP)], di(t)-es[ParPas(FP)], di(t)-
e[ParPas(FS)]
redi(t)[ParPas(MS)], redi(t)-s[ParPas(MP)], redi(t)-es[ParPas(FP)],
redi(t)-e[ParPas(FS)]
En d'autres mots: il faut qu'il nie di(t), dit(t)-s, di(t)-es, di(t)-e
Il faut qu'il match en entier [ParPas(MS)], [ParPas(MP)],[ParPas(FP)],
[ParPas(FS)]
1. Il faut qu'il match ce qui est entre les accolades et laisse tomber
le mot qui suit 2. match le mot entre accolade et laisse tomber le
mot qui suit etc.
Merci de votre aide
|
| |
|
1 Comment |
|
  |
Author: Mihamina RakotomandimbyMihamina Rakotomandimby
Date: Feb 25, 2008 12:27
Bonjour,
J'ai des Array de ce type:
#!/usr/bin/perl
use strict;
use warnings;
my @lignes=('r','d', 'a', 'o',);
my @extrait_fichier=(
('a', "dsforigje"),
('r', "dsvvc"),
('a', "vcxvcxvcx"),
('o', "fdods"),
('d', "vvcxvcvxczsz"),
('o', "qssssss"),
('o', "ddddddddddd"));
|
| Show full article (1.17Kb) |
|
2 Comments |
|
  |
Author: paul POULAINpaul POULAIN
Date: Feb 25, 2008 08:34
Bonjour,
quelqu'un peut il me dire pourquoi la commande placée en sujet renvoie :
Can't locate object method "install" via package "Compress::Zlib" at -e line
1.
?
Je précise que les autres paquetages s'installent parfaitement bien avec
cette méthode, et que j'ai le même problème sur une mandriva et une debian.
--
Paul
|
| |
|
3 Comments |
|
  |
Author:
Date: Feb 22, 2008 08:54
Bonjour,
Avec cpan, quelle option de configuration faut-il modifier pour
installer les pages man à tel ou tel endroit?
Actuellement, l'installation échoue avec cette erreur:
mkdir /usr/local/man/man3: Permission denied at /usr/share/perl/5.8/ExtUtils/Install.pm line 112
Pour l'instant, j'utilise ceci:
cpan> o conf
[...]
installman1dir /home/vlefevre/man/man1
installman3dir /home/vlefevre/man/man3
[...]
makepl_arg LIB=~/lib/site_perl INSTALLMAN1DIR=~/man/man1 INSTALLMAN3DIR=~/man/man3
[...]
Ça n'a donc pas l'air d'être pris en compte.
|
| |
|
no comments
|
|
  |
Author: Mihamina RakotomandimbyMihamina Rakotomandimby
Date: Feb 21, 2008 22:03
Bonjour,
Un fichier de logs apache a été reconstitué n'importe comment à partir
des fragments crées par logrotate.
Je souhaiterai remettre les enregistrements dans l'ordre chronologique.
Voici un enregistrement typique:
80.12.72.20 - - [22/Feb/2008:06:11:59 +0100] "GET / HTTP/1.1" (...)
Il s'agirait de trier le fichier sur le champ entre crochets.
(Le format de la date me gène... mais c'est comme ça qu'il est)
Est-ce Perl est un bon outil pour ça?
Si oui, quel serait le fond de la résolution du problème:
- On stocke tous les enregistrements dans un Array (dictionnaire), puis
on trie, puis on reconstitue le fichier? Un peu compliqué.
- On fait un tri à (bulle|whatever) directement sur les lignes? Ca
prendra du temps, mais comment je gère ce format de date?
Si vous avez dans un premier temps le principe de traitement et
éventuellement un lien vers un module qui me faciliterais la tache, je
tenterais de démarrer avec.
Il y a 190978 lignes à trier et le fichier fait 41Mo.
Mais ma machine est suffisament puissante et RAMée.
|
| Show full article (1.23Kb) |
|
5 Comments |
|
  |
Author: Paul GaboritPaul Gaborit
Date: Feb 21, 2008 08:31
On me demande dans un programme écrit en Perl/Tk d'ajouter une aide en
ligne.
Sous unix, je compte faire une arborescence de fichiers HTML et
appeler le navigateur par défaut pour la consultation.
Sous Windows, on me demande d'utiliser un fichier CHM (il me sera
fourni... ouf!). J'ai donc le chemin du fichier CHM. Mais je ne sais
pas quoi en faire car je ne connais pas la commande Windows standard
qui assure la consultation de ce genre de fichiers.
Auriez-vous une solution ?
Merci.
|
| |
|
8 Comments |
|
  |
|
  |
Author: KlougKloug
Date: Feb 19, 2008 10:35
Bonjour,
Existe-t-il un module
qui permettrait juste de savoir
si un ensemble de balises Xml
est valide (au sens de l'imbrication)
sans parser le tout.
Merci des pistes
Cordialement
K
|
| |
|
2 Comments |
|
|
|
|