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.
This task should be trivial...but when I insert/update a record in my MySQL database with a value containing special characters, the special characters are not saved. No special message. Why?
#shortened script
#getting pars with CGI
my $q = CGI->new();
my $LicenseKey = $q->param('key');
my $UserName = $q->param('user');
my $UserPW = $q->param('pw');
my $dbhServer = DBI->connect("DBI:mysql:$db:$host", $user, $pass);
my $sth = $dbhServer->prepare("INSERT INTO Accounts VALUES (?, ?, ?, ?
+, ?)");
$sth->execute(undef, $LicenseKey, $UserName, $UserPW, $date) || print
+("ERROR EXECUTION: " . $dbhServer->errstr);
#same with updating
my $sth = $dbhServer->prepare('update Accounts set UserName=?, Passwor
+d=? WHERE LicenseKey=?');
$sth->execute($UserName, $UserPW, $LicenseKey)|| print ("ERROR EXECUTI
+ON: " . $dbhServer->errstr);
$dbhServer->disconnect;
I'm writing a script that receives as a parameter the name of a user and performs a search in LDAP but I can't find a way to use a Perl variable in the LDAP search filter.
Hi I recently started using Perl scripting again after a very long time so I inherited a scile file that I am playing with to get to work while trying to understand it
I just recalled a useful command but I can’t remember the name nor the exact usage so thought I would ask ...if you have inherited a Perl script that you quickly want to understand which arguments to pass on command line to generate out put files there is a command that you can use on the Perl script to get help on how to run that file or which arguments to pass to the script while running .... if that makes sense would someone here know these until commands ?
Thanks
We have an old application running on Solaris using Oracle:DBD that happily connects to an Oracle 11g server!
$DBD::Oracle::VERSION = '1.14';
When trying to connect to a new 12c server we're encountering
ORA-28040: No matching authentication protocol (DBD ERROR: OCISessionBegin)
Google implies that we need to change sqlnet.allowed_logon_version on the server, but our DBA tells us that's not possible on our new dataserver setup!
So, question is...will a newer version of Oracle::DBD solve our issues, and if so, what version do we need? If not, any other ideas?
Let say I have a multidimensional array and every time the number of dimensions is different. I don't have apriori information about the number of dimensions thus i need to recursively access each and figure out if there is more depth or not. But I also need to copy this array into another and modify it (let say increment). Curently I am trying to do it like this:
sub new {
my ($class) = @_;
my $self->{_mtx_} = [];
bless $self, $class;
return $self;
}
sub copycomp_matrix {
my ($self, $arg) = @_;
$self->_recurse($arg,$self->{_mtx_});
print Dumper($self->{_mtx_});
}
sub _recurse {
my ($self, $in, $out) = @_;
for (my $i = 0;$i<@{$in};$i++){
if (ref $in->[$i] eq 'ARRAY'){
$self->_recurse($in->[$i], $out->[$i]);
}else{
if (!$out->[$i]){
$out->[$i] = $in->[$i] ;
}else{
$out->[$i] = $in->[$i] +1 ;
}
}
}
}
#########################################################
use strict;
use lib "./";
use Above::Obj;
my $z = Above::Obj->new();
my $a = [[1,2],[2,3]];
$z->copycomp_matrix($a);
I wonder what is the good practice with the $VERSION string in module files.
I assumed that each module file should have an our $VERSION = '1.2.3'; in it. Please correct me if this is not the correct format.
I also assumed that my Makefile maker ExtUtils::MakeMaker reads version from just one of those files
using the key VERSION_FROM in its config.
I also assumed that the Version in the pod section of each module file must be set manually and cannot be read automatically from the $VERSION of that file.
My question is how do I go about and changing all those $VERSION strings and pod Version strings automatically when I create a new version of this module. I can create a script to change $VERSION and, with some risk, pod Versions but I wonder if there is a better way.
so this code prints every element in the same order but now i want to calculate the sum of numbers in each row and print that sum next to gene name i.e sum of values for ALA1 is 33 and
sum of values for THR8 is 168 and so on. Now i have tried something like this.
When I select and copy a cell in an Excel spreadsheet and use Win32::Clipboard to retrieve it (see code below), the cell contents I retrieve via Get() and write to a file are not displayed correctly when I edit the file. I tried setting binmode and encoding to UTF-8 but that has no affect. How can I get copied data from Excel to come through Win32::Clipboard and display correctly as text? As always, TIA.
Steps to reproduce the problem:
1. Open Excel spreadsheet, select and copy a cell.
2. Run the sample code below.
3. Edit the output file.
#!/usr/bin/perl
use strict;
use warnings;
use Win32::Clipboard;
my $clip = Win32::Clipboard();
my $text = $clip->Get();
my $ofile = "xx.bat";
open my $fh2,'>', $ofile or die "Error opening output file $ofile: $!\
+n";
binmode $fh2, ":encoding(UTF-8)";
print $fh2 $text, "\n";
