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]

my $in = $ARGV[0];
my $val = eval '$nethist->$in';
print Dumper($val);
[download]

I am able to read a mail from the inbox. My actual requirement is to fetch a mail from a subfolder in Outlook by comparing the subject of the mail in the Sub-Folder with a predefined text.

use Mail::Outlook;
use Win32::OLE::Const 'Microsoft Outlook';
my $outlook = new Mail::Outlook();
my $folder = $outlook->folder('Inbox');
my $message = $folder->last();
my $text = $message->Subject();
my $text1 = $message->From();
print "From : $text1\n";
print "Subject : $text\n";  
[download]

Using the code above I can read the subject and from address of the mail in the inbox. But I'd like to read a mail from the sub-folder. Please provide some tips.