Bonjour,

comment récupérer dans un fichier les lignes d'un autre fichier
qui contiennent une partie identique?

Fichier1:
tyty aaaaa bien
gig aaaaa mal
1112vf2s2v3
sqdfqs
df

Je voudrais avoir le Fichier2 comme cela:

tyty aaaaa bien
gig aaaaa mal

Merci pour vos réponses.

Bonjour à tous,
voila j'ai une problème d'explosion mémoire quand j'utilise les threads.
Est ce que quelqun a dèja réeussi a résoudre ce probleme?
et si il ya un développeur expérimenté j'envoie mon code source pour qu'il le revoie s'il veut

merci pour votre aide
@bientôt

Hello,

J'ai un probleme lors de l'utilisation de CGI::Session, lorsque j'essaye de stocker un objet. Apres recherche, j'ai reussi a isoler le probleme.

J'ai une classe, de type Md, qui contient une methode param().
Lorsque je dump (data::Dumper) un objet de ce type, et que je restaure avec Safe (qui en gros fait un 'eval' dans un bac a sable), j'obtiens un objet du bon type, mais qui ne contient pas la methode param.

Voir le code suivant pour explication:


(…)

Salut à tous,

J'ai installé le module DBD::mysql (et le module DBI) mais quand je l'utilise, j'obtiens l'erreur suivante :

/usr/bin/perl: symbol lookup error: /usr/local/lib/perl/5.8.8/auto/DBD/mysql/mysql.so: undefined symbol: mysql_server_init

Je ne vois absoluement pas d'où ça peux venir ;)

Merci d'avance pour vos idées !

++

Bonjour à tous,

Voici le code qui me pose problème:

use strict;


my $chaine = "toto#titi#tata#tutu";

my $hash = {};

$hash->{TABLEAU} = split(/#/, $chaine);

print $hash->{TABLEAU}[1];

Et l'erreur renvoyée :

Can't use string ("4") as an ARRAY ref while "strict refs" in use at - line 6.

D'après le manuel, la fonction split utilisée dans un contexte scalaire renvoie le nombre d'éléments, ce qui expliquerait que mon $hash->{TABLEAU} vale 4.

Comment puis-je forcer l'utilisation d'un tableau ??

Merci d'avance pour (…)

Bonjour,

Pouvez-vous me dire s'il est possible d'afficher le résultat d'un programme Perl avec des couleurs et tailles de caracteres différentes des caractères standards?

Merci

Mon script:

my $smtp = Net::SMTP->new('MAILHUB',
Debug => 1,
Timeout => 30);
$smtp->mail('pascal@free.fr');
$smtp->to('titi@tri.fr');
$smtp->cc('toto@gmail.fr');
$smtp->data();
$smtp->datasend( << "EOM" );
From: <pascal@free.fr>
To: <titi@tri.fr>
Cc: <toto@free.fr>
Subject: Test
edfkjdsfdsf
sdfdsfdsff
EOM
$smtp->dataend();
$smtp->quit();

Ma question:
Pourquoi à la rèception je vois dans "De:pascal.fr" dans "A: titi.fr@free.fr" et dans "Cc: toto.fr@free.fr"

Cela est gênant si les personnes recevant ce Courriel veulent y répondre.

Merci par avance.

Bonjour,

Pouvez-vous m'expliquer l'erreur suivante que j'ai avec perl 5.005
Can't use subscript on split at..... ligne8, near "$mois]"
Can't use subscript on split at..... ligne8, near "$mois]"

et qui fonctionne parfaitement avec Perl v5.6.1, comment contourner ce problème?

mon script:
($seconde,$minute,$heure,$jour,$mois,$annee,$wday,$yday,$isdst) = localtime(time);
$ann = $annee + 1900
$an = substr ($ann, 2, 2);
$mmm = qw(01 02 03 04 05 06 07 08 09 10 11 12) [$mois];
$mm = qw(Janvier Février Mars Avril Mai Juin Juillet Aout (…)

Bonjour,

Je souhaite pouvoir envoyer un courriel via un script Perl, mais je n'arrive pas à insérer une variable dans le champ message.
merci de votre aide
Mon script:

use Net::SMTP;
$a = "1213";
my $smtp = Net::SMTP->new('smtp.xxxx.fr');
$smtp->mail('titi@free.fr');
$smtp->to('tata@free.fr');
$smtp->data();
$smtp->datasend( << 'EOM');
From: <titi@free.fr>
To: <tata@free.fr>
Subject: "Test envoi Couriel"
Vous avez $a mn de retard
Merci.
EOM

$smtp->dataend();
$smtp->quit();

bonjour,

Je cherche comment faire un menu interactif sous perl.

menu simple en mode text qui avec les fleches curseurs permet de monter ou descendre une barre en sur brillance sur le choix du texte et une fois le texte choisie en appuyant la touche enter execute une commande.

Ex:

- choix 1
- choix 2
- choix 3
faite un choix

avec une barre blanche en inversion video change le texte qui est de couleur blanche en noir

En (…)

Bonjour à tous,

Je suis en train d'adapter des scripts shell UNIX en scripts PERL sous windows.

Mon problème est le suivant :

On me fournit un fichier de configuration (déclaration de variables) qui était sourcé dans les scripts shells.
Les variables déclarées dedans peuvent être de la forme VAR2=$HOME/toto/titi
La présence d'une variable au sein même de la déclaration de VAR2 ne pose donc aucun souci.

Mes ennuis arrivent lorsque je veux utiliser ce même fichier de configuration dans (…)

Bonjour,

J'ai un petit probleme
Voila, mon programme ci-dessous cree une frame avec 4 boutons.
Le premier (globale option) quand il est active, il active les 3 autres, sinon on active manuellement les 3 autres.
Puis selon les choix, le bouton exec prend en compte les choix et ouvre des fenetres xterm selon les choix.

Mais le probleme tous les choix sont manuels.
Quelqu'un a une solution ?
Je vous remercie d'avance.


#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::FileSelect;
(…)

Bonjour à tous;

Estce-ce que quelqu'un peut me donner des infos (bugs, succes, compatiblité avec d'autes langages) sur bugzilla svp!

Merci.

Bonjour,

Toujours newbie sur PERL, j'aimerais mesurer la taille d'un fichier et que le programme s'arrête si le fichier dépasse 100ko.


#!/usr/bin/perl -w
open(FICHIER, "/var/adm/attach.txt") || die "$!";
$taille=;
close (FICHIER);
if (-s100 $taille) {
die;
}
print "Le fichier est plus grand que 100ko\n" ;


Bonjour,

Je suis newbies en PERL. J'essaie de contruire un eptit script qui sortirait le pourcentage de l'utilisation des disques. Mon soucis c'est que mon script donne la ligne en entière et non pas la liste du champ désiré.
Voici mon script :

#!/usr/bin/perl -w
@disque=` df -h`;

foreach (@disque)
{print @disque[2]);
}



Merci de votre aide

Bonjour,

je ne connais assez perl pour modifier le script cssh.
je souhaite faire la même chose que le script cssh mais avec telnet pas avec du ssh.
Je sais telnet n'est pas sécuriser, mais je n'ai pas le choix.

Quelqu'un peut il m'aider a adapter ce script pour faire du telnet au lieu du ssh ?
Ci-dessous le script. Merci d'avance pour toutes réponses.

#!/usr/bin/perl

my $VERSION = '$Revision: 3.19 $ ($Date: 2006/07/24 19:12:54 $)';

# Now tidy it (…)

Bonjour bonjour,

je patauge allègrement avec la gestion des accents (et des jeux de caractères en général) sous Perl.
Plus précisement, je cherche sans succès jusqu'à présent à écrire dans un fichier des chaînes saisies dans l'entrée standard, suceptibles de comporter des accents (et des cédilles, et tous autres caractères ésotériques quelquefois utilisés en français (tiens, une cédille) ).
Pour corser le tout, le script (et le fichier résultat est destiné à être utilisé sous Windows ...

Bref, si une (…)

Ma question est sans doute un peu naïve, mais je débute en PERL.

Etant parvenu à anôner péniblement trois pauvres scripts en PERL employant divers modules (dont grepmail et ses dépendances), je me demandais s'il existait un moyen de compiler statiquement mes scripts, de sorte à pouvoir les copier sur des systèmes sur lesquels PERL n'est pas installé.

Bonjour,

Je recherche un script Perl qui fasse une copie récursive (donc avec tous les sous-répertoires, et fichiers des sous-répertoires) d'un répertoire.

Idéalement, le répertoire copié pourrait-être compressé.

Je me doute que ça ne serait pas compliqué à coder, mais je n'ai pas beaucoup de temps et je n'ai donc pas envie de réinventer la roue.

Merci d'avance.

Bonjour,

Comment insérer @ dans une variable scalaire pour que ce ne soit pas pris comme un tableau ?

Exemple de code de test.pl :
#!/usr/bin/perl -w

my $chaine ="user@hostname.com";
print $chaine

message d'erreur :
$ perl test.pl
Possible unintended interpolation of @hostname in string at test.pl line 3.
Name "main::hostname" used only once: possible typo at test.pl line 3.

Merci de votre aide

bonjour,

J'essaie de construire une expression qui, dans une chaine de caractere, supprime tous les motif du style \suite_de_caractere sauf les \line et \par.

Y a-t-il une regexp qui permet de supprimer des motifs sauf cas particuliers ??


merci de votre aide.

Bonjour à tous !
Il y a un certain temps, j'avais utilisé ce script perl pour gérer automatiquement la vitesse des ventilateurs du CPU :
#!/usr/bin/perl -w

# Fichier de gestion de la vitesse de ventillo

$vitesse_ventil= "/sys/bus/i2c/devices/9191-0290/pwm1";

while (1) {

# Lecture de la température stockée dans $temp
$temp = `cat /sys/bus/i2c/devices/9191-0290/temp3_input`;


if($temp < 45000)
{
exec (`echo 213 > $vitesse_ventil`);
}

if($temp > 45000 and $temp < 50000)
{
exec (`echo 232 > $vitesse_ventil`);
}
if($temp > 50000 (…)

Bonjour,

Si je veux vérifier qu'une chaîne matche plusieurs regex, j'aurais tendance à faire naïvement :

if ($s =~ /toto/ && $s =~ /titi/ && ... )


Bon, trouvant ça assez laid, je ferais plutôt

foreach my $qw qw\toto tata titi\{
warn "la chaine ne matche pas $qw" and last unless ($s =~ /$qw/ );
}


L'interet principal étant que j'ai une vrai liste de conditions.

Le problème est que ça marche bien si je veux savoir si ma chaîne (…)

Bonjour,

J'exécute un .bat qui lui même appel un programme PERL
qui doit me fournir une variable pour le .bat d'origine.

Comment dois je faire pour que l'héritage de la variable se fasse bien?

Merci

Bonjour,

je commence le perl et je dois manipuler des fichiers de points, je désire juste remplacer l'écriture "manuelle" du fichier (D:\test_perl\5_point.neu') par un choix du style parcourir...

voici le code:

open F_NEU,''D:\test_perl\5_point.neu''
or die "E/S : $!\n";
my @contenu1 = <F_NEU>;

j'ai fait un autre script avec une fenêtre et un boutton que voici pour parcourir:
sub call_open_project
{
use File::Basename;
my $neufile;
my $types = [
['Configuration Files', ['.neu','.neu']],
['All Files', '*', ],
];
$filenameNEU = $fenetre->getOpenFile(-filetypes=>$types); }

(…)