If
you have a question on how to do something in Perl, or
you need a Perl solution to an actual real-life problem, or
you're unsure why something you've tried just isn't working...
then this section is the place to ask. Post a new question!
However, you might consider asking in the chatterbox first (if you're a
registered user). The response time tends to be quicker, and if it turns
out that the problem/solutions are too much for the cb to handle, the
kind monks will be sure to direct you here.
Hi,
I'm having to convert my dashboard in a hurry because I've moved to a new server and 'use lib' to locate external scripts for my html output, no longer works. Hence my quickly, to get to know modules.
The module I have created, displays inconsistently. After I edit the output and clearing browser cache, it often shows old data from an earlier attempt, and rotates on 'refresh' between new an old content.
I wonder if there is a caching aspect with modules (perhaps @EXPORT) that I am unaware of?
So, would anyone please, be willing to troubleshoot and advise on this first attempt at a module.
Main script
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use Data::Dumper;
my $cgi = new CGI;
# add the library dir to @INC;
use lib do {
use Cwd 'realpath';
my ($dir) = __FILE__ =~ m{^(.*)/};
realpath("$dir/library");
};
use feature 'say';
use FindBin '$RealBin';
use lib $RealBin;
use lib "$RealBin/library";
print $cgi->header;
use HtmlHeader;
my %doctypeAndTitle = header();
say $doctypeAndTitle{doctypeAndTitle}; #output inconsistent
1;
Hi, I am able to send single attachment but not multiple attachments. Can Any one help? The following code only attached one file from the directory
my $msg = MIME::Lite->new (
From => $msgFrom,
To => $msgTo,
Subject => $msgSubject,
Type =>'multipart/alternative',
) or die "Error creating multipart container: $!\n";
# Create the HTML part
my $html_part = MIME::Lite::->new(
'Type' => 'multipart/related',
);
$html_part->attach(
'Type' => 'text/html',
'Data' => qq{
<body>
<p>hello</p>
</body>
},
);
my $att_part;
my @files = glob("F:/folder/*");
$att_part = MIME::Lite::->new(
'Type' => 'application/octet-stream',
'Encoding' => 'base64',
'Path' => shift @files,
);
$msg->attach($html_part);
$msg->attach($att_part);
my $email = $msg->as_string();
my $smtp = Net::SMTP_auth->new($smtphost, Port=>$smtpport) or die "Can
+'t connect";
$smtp->mail($msgFrom) or die "Error:".$smtp->message();
$smtp->recipient($msgTo) or die "Error:".$smtp->message();
$smtp->data() or die "Error:".$smtp->message();
$smtp->datasend($email) or die "Error:".$smtp->message();
$smtp->dataend() or die "Error:".$smtp->message();
$smtp->quit or die "Error:".$smtp->message();
This highlight the row/cell, but in a different color respect when I click on it with the mouse. Is there something build-in, or do I have to define a new Tag with same color, etc.?
The second part of the code never gets executed. If the second part of the code is added the program freezes. Any ideas? I believe it has to do with the $tray->runApplication; part conflicting with the Win32::Console. Thanks in advace!
Gives me: Use of uninitialized value $updated in concatenation (.) or string
Normally I just escape the special character, but it seems to be interpreting it into something different, and I am not sure why? I don't usually have characters in JSON that need to be escaped like this.
Everything else is working fine, except this one line. Am I missing something that I just haven't stumbled upon before? Any help would be appreciated as always.
I am getting an unexpected output from a one-liner and I do not understand what it is I am doing wrong. the one-liner is outputting a "1" before the line number. I've tried to simplify the one-liner to try to understand the output but still eludes me but, maybe, someone here can part with some of the wisdom.
____data.txt____
name = Leah last_name = Pellegrini age = 32 profession = "artist" / "e
+ngineer of all things" favorite_song = "I'm alive" performer = "Micha
+el Franti"
name = alberto last_name = Montelongo age = 32 profession = "cool
+ dude" favorite_song = "#41" performeer = "DMB"
Name = Lucca last_name = montelongo age = 6 profession = "future Blue
+Angel" favorite-song = "sunflower" performer = "Post Malone"
Name = josh last_name = montelongo age = 26 profess
+ion = "happy" favorite-song = "satellite" performer = "dmb"
Name = josh last_name = montelongo age = 26 profession = "happy" favo
+rite-song = "satellite" performer = "dmb"
1) One-liner seeking to build up to do multiple things like only print odd lines, print lines with text only, OR print if regexp match. Then print line with no leading space, number of the lines, space out with a \tab.
Please, notice the 1 before the odd line number 3, Why is that? Is my substitution not written correctly? I am replacing the space with no space. If I remove this substitution the output is fine but it is unexpected to me and I cannot understand the mechanism that is at work here with this substitution.
2) Now, the same one-liner but printing the even lines.
This is to illustrate the susbtitution in line 3 (satisfies OR condition) and 6(even lines). I'll appreciate and explanation why the substitution is outputing these ones.
Additional challenge: count the repeating names in the data.txt. I did a ~tr/=// as a character count but unable to think of a counter for "name" to add to this one-liner ;-)
i dont know what cause this error. coz i just checked in my apache error log and found alot such errors
error
DBI::db=HASH(0x564aeb4fdea8)->disconnect invalidates 5 active statemen
+t handles (either destroy statement handles or call finish on them be
+fore disconnecting)
the layout of my db
my $host = "localhost";
my $usr = "root";
my $pwd = "hell";
my $dbname = "helldb";
my $dbh = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, {
RaiseError => 1,
}) or die $DBI::errstr;
my $select = $dbh->prepare("SELECT something FROM info");
$select->execute();
my $info = $select->fetchrow();
I present with a rough looking perl script that has found new and maybe interesting ways to fail. It has worked previously. It can very well be that this is a version that wasn't supposed to go forward but did. What has changed in the meantime is everything, and I'd like to see if we can cook up something better, but let me start with moderately-abridged output and source in readmore tags. Then I'll pop out some lines and ask questions.
Q1) Is there a perl remedy for this? I seem to be able to upload files but not create directories.
Q2) If the answer to Q1 is no, then, [OT] Is there a unix remedy?
if ( fork() == 0 ) {
# arm the alarm clock
alarm(10);
say "alarm set for ten in process $$ and pinging google";
# create a child process
my $trial = system("ping www.google.com");
say "trial is $trial";
exit(0);
}
Hello Monks!
Looking for the code to disable the Maximize option on the Win32 Console window as I am already creating a console size within the program. I can remove the X (Close) just fine I am running strawberry perl on windows 10. Thanks in advance! - Scott
Well it's been 3 years since I was here last as I don't really like asking if I can fathom the problems out for myself but this time I'm well and truly stumped. Probably because my perl is still p. poor (although I feel I'm a little better than last time I was here) and I've sort of gleaned from my research that I need Javascript, JQuery and Json to accomplish what I am trying to do?. All of which I am completely clueless about
So basically my site works on a few perl scripts cobbled together and is a record selling platform very much like eBay but more specific. Users can sell their own records (45's) by completing a series of forms to enter (and post) the data. Seperately I have a mysql database which includes probably every 45 known of the particular genre about 60000 records.
The top part of the form encourages the user to enter the Artist's name, the Record Label and the Title of the record. Usually after adding some more details the form is submitted and saved to a flat file. What I want to be able to do is autocomplete the Artist, Label,Title bit with data from the mysql database. So the user types say 3 letters of the Artists name and a dropdown gives a choice of Artist based on their criteria. The Label input will then produce a dropdown list of all of the Labels the Artist has recorded on for selection and lastly the Title dropdown will include a list of all the titles the Artist has recorded. If the record is not in the database, I would like it to be written back to the database
So far the form obviously works to collect data for the flat file, the mysql connects and I have managed to extract Artist, Label and Title and assemble into a Json array, my question I suppose is what do I do now to autocomplete the form?
Thank you in advance for any help, suggestions or code you may proffer
Dazz
