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
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.
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 ??
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?
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 (...)
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
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
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 (...)
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; (...)
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" ;
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`;
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 $)';
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 ...
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é.
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.
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
je commence le perl et je dois manipuler des fichiers de points, je désire juste remplacer l'écriture "manuelle" du fichier (D:\test_perl5円_point.neu') par un choix du style parcourir...
voici le code:
open F_NEU,''D:\test_perl5円_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); }