I found the solution. The problem was in the order of declaration of the variables.
this:
my $Repertoire = ".";
my @LesFichiers = ListersFichiers($Repertoire);
#liste
my $txtnom = "liste.txt";
open OUT, ">$txtnom" or die "$!";
my @liste;
my $taille = scalar(@liste);
my $i = 0;
my $ligne...
the new message is when i ad the new debug line:
Tk::Error: Can't call method "fields" on an undefined value at C:\Users\admin\Ap
pData\Local\Temp\dirF71B.tmp\fen?â?¬tresend03 - debug02.pl line 231.
Tk callback for .button
Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 250
Tk::Button::butUp at...
the error message sad:
Tk::Error: send_by_smtp: nobody to send to for host ''?!
at C:\Users\admin\AppData\Local\Temp\dir66FD.tmp\fen?â?¬tresend03 - debug.pl li
ne 229
Carp::croak at C:/Perl/lib/Carp.pm line 44
MIME::Lite::send_by_smtp at C:/Perl/site/lib/MIME/Lite.pm line 2853...
hello,
I have a problem with sends e-mail with “Lite” in an graphical interface with “TK”.
My program lists the file, in a file, all the files which are in the file as well as under files. This file in continuation is sent by smtp to the recipient who one wishes via the graphical interface...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.