while ($allChanges->[$k]) {
   $logger->info("Change $k was to the ", $allChanges->[$k]->getField(
+), " field of testCase ", $allChanges->[$k]->getKey(), " on createdDa
+te ", $allChanges->[$k]->printCreatedDate(), " Old String = (", $allC
+hanges->[$k]->getOldString(), ") New String = ", $allChanges->[$k]->g
+etNewString());
   local $oldString = $allChanges->[$k]->getOldString();
   local $newString = $allChanges->[$k]->getNewString();
   $logger->debug("oldString = (", $oldString, ")");
   $logger->debug("newString = (", $newString, ")");
   print Dumper($oldString);

   if ($oldString eq "Automated") { # Line 103, the one that gives all
+ the trouble.
      $logger->debug("old string = Automated: ", $oldString);
      $logger->debug("new string: ", $newString);
   }
}

package ChangeItem;
sub new {
    my $class = shift;
    my $logger = get_logger("ChangeItem");
    my $self = { } ;
    if (@_) {
        $self->{line} = shift @_;
    }
    $self->{key} = 0;
    $self->{field} = 0;
    $self->{oldString} = 0;
    $self->{newString} = 0;
    $self->{createdDate} = 0;
    $self->{version} = 0;       
    bless ($self, $class);
    return $self;
}
sub setOldString {
    my $self = shift;
    $self->{oldString} = shift;
}

sub getOldString {
    my $self = shift;
    return $self->{oldString};
}
[download]

INFO main:::80: Change 0 was to the Automated field of testCase HIREX-
+16861 on createdDate 2013-05-13 10:16:05 Old String = (To Be Automate
+d) New String = Ready For Integration
DEBUG main:::84: oldString = (To Be Automated)
DEBUG main:::85: newString = (Ready For Integration)
$VAR1 = 'To Be Automated';
Use of uninitialized value in pattern match (m//) at weeklyAutomationC
+hanges.pl line 103.
Use of uninitialized value in pattern match (m//) at weeklyAutomationC
+hanges.pl line 103.
[download]

I'm getting a crash on the last line of the following Win32::API Call to a National Instruments driver DLL.

# Working Equivalent in C
#    uInt32        data=0x00000000;
#    int32        written;
#DAQmxWriteDigitalU32(taskHandle,1,1,10.0,0,&data,&written,NULL)

#int32 __CFUNC     DAQmxWriteDigitalU32           (TaskHandle taskHand
+le, int32 numSampsPerChan, bool32 autoStart, float64 timeout, bool32 
+dataLayout, const uInt32 writeArray[], int32 *sampsPerChanWritten, bo
+ol32 *reserved);

my $functionDAQmxWriteDigitalU32 = Win32::API->new('nicaiu','DAQmxWrit
+eDigitalU32','IIIFIPPP','I','_cdecl');

my $numSamps = 1;  #int32
my $autoStart = 1;  #bool32
my $timeout = 10.0;   #float64
my $GroupByChannel = 0; #bool32
my $writearray = pack ('N4',0,0,0,0);
my $sampsPerChanWritten= pack("N4",0,0,0,0);
my $reserved = 0;    # NULL *
$return = $functionDAQmxWriteDigitalU32->Call($outTaskHandle,$numSamps
+,$autoStart,$timeout,$GroupByChannel,$writearray,$sampsPerChanWritten
+,$reserved);
[download]

Previous function calls using the outTaskHandle are working fine, I'm pretty sure the problem is in the $writearray parameter (which I need to set to some hex value like 0xF7), the $sampsPerChanWritten which is modified by the C function, or the $reserved pointer which is supposed to be NULL. I've tried many different assignments to $writearray and $sampsPerChanWritten with no luck.

I'm new to Perl, Win32::API and perlmonks so I apologize for formatting issues.

{
"1": {"subject1": "value", "subject2": [{"subject3": "value", "subject
+4": "value"}], "subject5": "value", "subject6": value, "subject7": "v
+alue"}, 
"2": {"subject1": "value", "subject2": [{"subject3": "value", "subject
+4": "value"}], "subject5": "value", "subject6": value, "subject7": "v
+alue"}, 
"3": {"subject1": "value", "subject2": [{"subject3": "value", "subject
+4": "value"}], "subject5": "value", "subject6": value, "subject7": "v
+alue"}
}
[download]

my $jsonfeed = (above json format!)
my $json = new JSON;
my $data = $json->decode($jsonfeed);

my $value = "$data->{1}->{subject1}";

    foreach my $array(@{$data->{1}->{subject2}}){
      my %hash = ();
      $hash{subject3} = $array->{subject3};
}
[download]

my perl app receives a buffer containing this format

  {   
   short lengths[2];
   char data[???];
  }
where there are two items in data,  of length
lengths[0] and lengths[1] respectively.
[download]

I have tried and tried to unpack this into 4 perl variables in a single unpack() call and failed. I had to resort to two unpack()'s, the first to extract the lengths followed by something like

eval('($junk1 , $junk2, $data0, $data1) = unpack "ssA' . $data0_length
+ . "A" . $data1_length . '",$rcvd_buf;');
[download]

which works fine, but can some kind Monk tell me how to do this in one unpack.

I've not been able to solve the problem of space bands in paths on Mac.

chomp (my $metadata_file = <>);
$metadata_file =~ s/\s$//;
open FILE, "$metadata_file";
$metadata = join '', <FILE>;
[download]

It currently produces a "readline() on closed filehandle FILE" if there is a space in the path. I've done a lot of research and the answer is quoting the path. I think I've done that. I'm running perl5.10.0 on MacOS 10.6.8.

Any help would be greatly appreciated.

package MyMech;
use base qw(WWW::Mechanize);

sub new {
    my $class = shift or die $!;
    my $self  = $class->SUPER::new;
    return bless $self, $class;
}

sub get {
    my $self = shift;
    $self->SUPER::get(@_);
}
[download]

Hi monks

On a Windows machine I am using pdftotext to bunch convert pdf files into plain text. Using the following, I get no problems:

system("$path/pdftotext","-nopgbrk","$path_my_pdf","$path_my_pdf.txt")
+;
[download]

I now want to add the encoding option "-enc UTF-8", so I try

system("$path/pdftotext","-enc UTF-8 -nopgbrk","$path_my_pdf","$path_m
+y_pdf.txt");

or simply

system("$path/pdftotext","-enc UTF-8","$path_my_pdf","$path_my_pdf.txt
+");
[download]

but it doesn't work. What am I missing? Thanks

SOLVED

system("$path/pdftotext","-enc", "UTF-8","$path_my_pdf","$path_my_pdf.
+txt");
[download]

I have perl script that is executed from a Application server using java on Windows 2003.

 my $zipExec='C:/zip.exe';
 my @cmd = ($zipExec, "-rq", $destinationPath, ".");

    print "Executing command @cmd\n";
    $syscode = system(@cmd);
    my $error = $!;

   print "Return code = $syscode \n";
   print "Error  = $error\n";

[download]

It fails with the following error message.

Return code = 65280
Error = No such file or directory

I have ensured that C:/zip.exe files exists and is executable. I tried executing other system binaries like cmd.exe but ran into the same issue.
My question is what could be causing this issue like
i. some environment setting is wrong and interfering with the system api and hence it is not able to load the binary.
ii. The $PATH variable in this environment is greater than 1024 characters. Is the length of this variable a concern or some paths set in this variable is causing this issue

my $db = DB->new(); but I'm getting the following exception 
[download]