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.

I have two PERL SCRIPT that stress CPU and MEMORY. I want to run them in parallel on hosts so I am trying to copy them on all the hosts and run them in parallel. I am utilizing a module Net::OpenSSH::Parallel to copy (which is working) and run the commands on all the nodes. I am not able to run these two SCRIPTS in parallel. I have tried to take the SCRIPT to background but only one of them runs. Could you guide where am I going wrong?

CPU SCRIPT
#!/usr/bin/perl

use strict;
use warnings;

my @cpu_cores = qw(4);
while (--$cpu_cores[0] and fork) {};
while () {};

MEMORY SCRIPT
#!/usr/bin/perl

use strict;
use warnings;

print "$$";
fork for 1 .. 4;
for (1 .. 10000) {
my $a = "xxxxx" x int rand 10_000_000;
my $b = ~$a;
my $c = reverse $b;

MAIN SCRIPT
use strict;
use warnings;
use Net::OpenSSH::Parallel;
use Term::ANSIColor;
use DBI;

#--------------------------------------------------------
#FINDING HOSTS FROM CLOUDERA MANAGER DATABASE
#--------------------------------------------------------

print color 'bold blue';
print " Finding hostname of the hosts configured\n\n";

my $ip_address = `ping r01mgt -w 1 | awk -F "(" '/PING/{print \$2}' | 
+awk -F")" '{print \$1}'`;
chomp($ip_address);


# connect
my $dbh = DBI->connect("DBI:Pg:dbname=xxxx;host=$ip_address", "xxxx", 
+"xxxx", {'RaiseError' => 1});

# execute SELECT query
my $sth = $dbh->prepare("SELECT name FROM hosts");
$sth->execute();


# iterate through resultset and create an array
my @hosts;
while(my $ref = $sth->fetchrow_hashref())
{
my($nodename, $hadoopname) = $ref->{'name'} =~ m/(\w+).(\w+)/;
push(@hosts, "$nodename");
}
@hosts = sort (@hosts);
print color 'reset';

#-----------------------------------------------------------
#COPYING THE PERL SCRIPTS AND EXECUTING THEM
#-----------------------------------------------------------

my $pssh = Net::OpenSSH::Parallel->new();
$pssh->add_host($_) for @hosts;
$pssh->push('*', scp_put => '/root/cpu.pl', '/root/');
$pssh->push('*', scp_put => '/root/memory.pl', '/root/');
$pssh->push('*', command => '/usr/bin/perl', '/root/cpu.pl', '/tmp/cpu
+');
$pssh->push('*', command => '/usr/bin/perl', '/root/memory.pl', '/tmp/
+memory');
$pssh->run;

USING THREADS TO RUN SCRIPTS IN PARALLEL
#!/usr/bin/perl

use strict;
use warnings;
use threads;

sub cpu {
my @cpu_cores = qw(4);
print "CPU";
while (--$cpu_cores[0] and fork) {};
while () {};
}

sub memory {
print "MEMORY";
fork for 1 .. 4;
for (1 .. 10000) {
my $a = "xxxxx" x int rand 10_000_000;
my $b = ~$a;
my $c = reverse $b;
}
}
my $firstThread = threads->create(\&cpu);
my $secondThread = threads->create(\&memory);

$_->join() foreach ( $firstThread, $secondThread );
[download]