Forum Programmation.perl Liste des groupes d'un utilisateur

Posté par .
Tags : aucun
0
24
mar.
2010
Bonjour,

Je souhaite récupérer la liste des groupes d'un utilisateur (je parle bien d'une liste des groupes et pas seulement le groupe principal).

1/ Je ne peux pas faire de open(FD_IN, ' 2/ Ma solution de secours c'est de faire un `id login` et de récupérer la liste, mais j'aimerais un truc un peu plus propre :)

J'ai trouvé un getgrname mais ça ne donne que le groupe principal. Existe-il une fonction dédiée ?

Merci

Forum Programmation.perl message erreur concatenation

Posté par .
Tags : aucun
0
5
mar.
2010
Bonjour j'ai encore un hic.
Concernant cette ligne


$pwd = $_[2].$_[0].$_[1];


Use of uninitialized value in concatenation (.) or string at ./monscript.pl line 101

Alors que plus haut j'ai bien spécifié


$prenom = $_[0];

$nom = $_[1];
$groupe = $_[2];


Je ne comprends pas!!

Forum Programmation.perl récuperer l'initiale d'un prenom

Posté par .
Tags : aucun
0
2
mar.
2010
Bonjour à toutes et à tous,

J'ai un fichier csv construit ainsi:

"jean","dupont","A1"
"gilbert","martin","A2"

à partir duquel je veux créer le tableau suivant:
A1jdupont
A2gmartin

Donc je voudrais ne récupérer que la première lettre du prénom de la variable $prenom.

J'ai écris le script suivant:


#!/usr/bin/perl -w

open (LISTE, " while (my $ligne = ) {
next unless my ($nom, $prenom, $group) =
$ligne =~ /"([^"]+[^"])",\s*"([^"]+)",\s*"([^"]+)"/g;
print "$group$prenom$nom\n";
}


qui me donne le résultat suivant:
A1jeandupont
B2gilbertmartin

Quelqu'un a t-il (...)

Forum Programmation.perl Récupérer une variable / index

Posté par .
Tags : aucun
0
24
fév.
2010
Bonjour,

je me suis mise au perl et j'ai quelques soucis ...

dans un fichier je cherche le premier mot clé d'une ligne (les autres même mots clés des autres lignes m'importe peu..)

comment puis je extraire cette ligne? jai essayer avec 'index' mais....
si j'utilise index comment puis je lui dire que c'est que le premier mot clé et non pas chaque apparition de ce mot?

Forum Programmation.perl méta caractère "\("

Posté par .
Tags : aucun
0
15
fév.
2010
Bonjour,

Comment faire passer les méta caractère tel que "(" dans le script suivant :

#!/usr/bin/perl -w
$who = `who | grep -v \(:`;
print "$who";



J'aimerais reprendre ce bout de code pour faire mon watchlog perso... mais il bloque à la parenthèse après le grep.
Dans le shell cette commande fonctionne très bien.

Merci de votre aide

Forum Programmation.perl Avoir l'entier de la division

Posté par .
Tags : aucun
0
10
déc.
2009
Bonjour,

Newbies en perl, j'essaye d'introduire un division dans une modification de script. Celle ci fonctionne mais me donne un chiffre à virgule.

for ( $u = 1 ; $u # Average with the upper number
$userCheckOutaverage[$u] = $userCheckOutElapsed[$u] / $maxFeat ;
WriteToScreenAndFile( \*REPORTFILE, sprintf( '%-30s %5d %15ss ',
$userName[$u], $userCheckOutTotal[$u], $userCheckOutaverage[$u] ) ) ;
}

Comment faire pour que $userCheckOutaverage[$u] soit un entier sans virgule?

Forum Programmation.perl Chemin symbolique Vs chemin réel

Posté par (page perso) .
Tags : aucun
1
15
nov.
2009
Bonjour à tous.

J'ai un script Perl qui se balade dans les répertoires (c'est un script tout con de création de listes de lecture) et j'ai un problème de chemin symbolique avec Perl :
j'ai un répertoire /home/truc/mp3* dont j'ai fait un lien symbolique vers /home/luc/Desktop/mp3

Mon problème est que lorsque je lance le script Perl dans le lien (donc /home/luc/Desktop/mp3) et que je veux écrire les listes dans le répertoire supérieur, il remonte dans le répertoire réel, à savoir (...)

Forum Programmation.perl gestion de gros tableaux

Posté par .
Tags : aucun
0
25
sept.
2009
Bonjour,

J'ai besoin d'ecrire un programme qui lit un fichier texte contenant entre 50 et 500 Mo de nombre entier (sous forme texte) dans un tableau a 3 dimensions (mais je peux survivre avec une seule dimension) et ensuite faire certains calculs dessus.

La taille maximum theorique en C avec des entiers 32 bits serait a peu pres de 3-400 Mo, malheureusement, j'atteins des tailles de 9-10 Go simplement avec des tableaux 2 dimensions (trop de reference anonyme a d'autre (...)

Forum Programmation.perl [Regex] interdire un certain caractère dans une chaîne globale

Posté par .
Tags : aucun
0
3
août
2009
Bonjour,

Je suppose que mon cas est trivial, malheureusement ça fait plusieurs années que je n'ai pas pratiqué les expressions rationnelles et du coup, j'ai un peu perdu la main.

Tout le code se trouve sur http://pastebin.com/m3398f5c6

J'ai l'intention de créer une expression pour enlever la balise html qui contient un attribut dont le mot-clé est "language" et la valeur "fr", ainsi que le contenu délimité par ces balises (dans cet exemple, faire sauter la deuxième ligne, tout simplement).

Évidemment, (...)

Forum Programmation.perl parrot, llvm etc.

Posté par .
Tags : aucun
2
8
juil.
2009
Bonjour,

Quels sont selon les avantages de Parrot sur LLVM en particulier, et sur la JVM et CLR en général ?

J'ai noté en gros deux points qui sortent du lot :

1) C'est une VM spécialisée dans les langages avec typage dynamique.

2) Elle est très petite (7mo à l'install contre 47 pour LLVM).

Le point numéro 2 me semble particulièrement séduisant.

Qu'en pensez-vous ? Que savez-vous sur le sujet ? Il est assez difficile de trouver sur le (...)

Forum Programmation.perl licence script Perl

Posté par .
Tags : aucun
0
11
juin
2009
Bonjour,

Nous éditons un logiciel qui inclut du Perl. Nous utilisons notamment des modules du CPAN sous double licence Artistic et GPL.
Ma boite veut pouvoir distribuer ce logiciel sous licence propriétaire (oui je sais, mais la route est encore longue avant l'acceptation. J'ai déjà eut du mal a faire utiliser des logiciels libre...)

=> Est-ce possible d'avoir une licence proprio sur des scripts qui utilisent des modules sous licence libre?

Avec la licence Artistic, ça semble possible, mais j'ai (...)

Forum Programmation.perl Can't open perl script "centre"

Posté par .
Tags : aucun
0
2
juin
2009
Bonjour,

J'ai un script qui fonctionnait bien avant la mise à jour en ubuntu 9.04.

Ce script qui fait des comparaisons de date entre la sortie et l'entrée de jetons, plante avec le message d'erreur suivant :
Can't open perl script "centre": Aucun fichier ou dossier de ce type

Le mot "centre" n'est pas présent dans le script, je ne comprend pas d'où vient cet appel.
Le script dépend des module Date-Pcalc-1.2 que j'ai installé, et aussi des paquetages libdate-manip-perl

(...)

Forum Programmation.perl Regexp qui me stresse

Posté par (page perso) .
Tags : aucun
0
1
juin
2009
Bonjour,

ça fait plusieurs heures que je cherche l'expression régulière qui va bien du cas suivant;

a#TOTO=ok
b#JOJO
c#TITI=machin
...


et qui doit donner en résultat:


a=ok
b
c=machin
...


dans le texte: virer la partie #LENOM mais pas ce qu'il y a après le '=' s'il existe...
j'y arrive, mais en deux expressions - j'aimerais le faire en une seule - et qui sont:

s/#.*=/=/;
s/#.*//;


bref, si quelqu'un a une idée... Merci à tous.

Forum Programmation.perl demande d'aide sur regex dans pmwiki

Posté par .
Tags : aucun
0
6
mai
2009
bonsoir,

je suis en train de réaliser une recette pour pouvoir inclure la syntaxe txt2tags à l'intérieur de pmwiki :

http://pmwiki.org/wiki/Cookbook/Txt2tags

Cela ne fonctionne pas trop mal, mais je bloque sur certaines parties, notamment pour faire des remplacements avec des regex sur des zones de texte s'étendant sur plusieurs lignes.


Dans ma recette, j'ai cela :
Markup ('txt2tags_verbatimline' , 'directives', '/``` (.*?)/', "<:pre>$1");

Ce qui permet d'ajouter la balise PRE à tout texte compris entre 2 `, par exemple

(...)

Forum Programmation.perl Parser une variable en Perl

Posté par .
Tags : aucun
1
14
avr.
2009
Vu que maintenant je dois faire ca en perl , je repose cette question mais dans le forum Perl !!!!! (Merci à ceux qui m'ont répondu en bash ...)

Je dois parser cette variable
7845124512200904091025.pdf de façon à récupérer
la chaine 20090409

Il faut que je commence impérativement par la fin car la chaine avant 2009 ..
est variable.
Pourriez vous m'aider, je galère un peu

Merci d'avance

Forum Programmation.perl script perl avec plink (ssh)

Posté par .
Tags : aucun
0
11
mar.
2009
bonjour a tous,

Est-ce vraiment possible de faire cela ?
je dois réaliser un script perl sous windows (si si, obligé) pour lancer des commandes sous des linux. Jusque la, pas de probleme, avec un peu de gestion processus (IPC::open2) je peux lancer des commandes et accepter automatiquement le/les nouveau serveurs.

Mais ma grande question est la :
je dois lancer certaines commandes en root, et dans mon cas précis, pas d'autres choix que de faire des sudo alors.
Je (...)

Forum Programmation.perl Perl et expect

Posté par .
Tags : aucun
1
26
déc.
2008
Bonjour,

je tente d'utiliser expect avec Perl mais je bute sur un sérieux problème. Je sais qu'il existe un module expect.pm mais je veux utiliser le expect normal.

J'ai plusieurs lignes à envoyer à expect et ça bloque dès que j'ai un "send".


my $commandes = "set timeout 5\n".
"spawn telnet 192.168.1.1\n".
"sleep 5\n".
"send \"root\r\"\n".
"sleep 1\n".
"send \"xxxxxx\r\"\n".
"sleep 1\n".
"send \"ifconfig ppp0\r\"\n".
"sleep 1\n".
"send \"exit\r\"\n";

open ( my $pipe, '-|', "echo \"$commandes\" | expect 2>&1" );
(...)

Forum Programmation.perl Tutoriel pour utiliser glade et perl

Posté par (page perso) .
Tags : aucun
0
12
nov.
2008
Salut, salut!


Alors voila, tout le monde se plaint que pour uploader des fichiers au wiki de culture libre (mediawiki), c'est chiant si on veut uploader tout un lot de photo par exemple. Après avoir fait un tour de l'existant, je décide de faire une petite interface d'upload à mediawiki en utilisant la lib[1] perl qui va bien.

Et comme dans mes livres perl j'ai appris que la paresse est une vertu, j'ouvre directement glade et commence à jeter des (...)

Forum Programmation.perl modification de fichier html en masse avec perl

Posté par .
Tags : aucun
0
3
oct.
2008
bonjour,
je veux faire un script capable de modifier un ensemble de fichiers html.

par exemple je veux supprimer tous les javascripts et reconvertir les url ne commençant pas par http://

j'ai pas de soucis pour la suppression des javascript, mais j'arrive pas à convertir les url:
je voudrai par exemple qu'une url de ce type href="foo/bar.html" soit transformé en href="ssfoo/foo/bar.html" le pb c'est que j'ai aussi des url commençant par http

#!/bin/sh
perl -0777pe 's/