From: "Traeder, Philipp" <[Email Removed]>

Hello All,

OS: Windows

I have two perl scripts that need to run at the same time to preform a task.
Using perl how can I run both scripts at the same time on a windows
machine.

Ex) x.pl
y.pl

Regards,

William Black

_________________________________________________________________
MSN Toolbar provides one-click access to Hotmail from any Web page FREE
download! http://toolbar.msn.com/go/onm00200413ave/direct/01/

--belay that last transmission - i
--*have* to roll back to perl 5.6.x.
--sorry to jump the gun.

-X

--original post--
Is there a version of Oracle:DBD that will compile
with 5.8.0 or do I have to rollback to 5.6.1?

[Email Removed] wrote:

Charles Farinella wrote:

In a message dated 5/10/2004 12:22:06 AM Eastern Daylight Time,
[Email Removed] writes:

Hello I have the following driver script that calls two perl scripts to run
them asyn. The driver calls the open command for both scripts but the pgm
just hangs and never finishes. Does anyone know why?

Driver:
open (DAL,"C:temp7backuptemp1.pl");
open (DAL,"C:temp7backuptemp2.pl");

while (!-e "C:temp7backuptemp2.done"){}
while (!-e "C:temp7backuptemp1.done"){}

close(DAL);
close(STL);


temp1.pl
$i=0;
while ($i<500){$i += 1;}
system(echo complete > C:temp7backuptemp1.done);



temp2.pl
$i=0;
while ($i<500){$i += 1;}
system(echo complete > C:temp7backuptemp2.done);

William Black

_________________________________________________________________
Stop worrying about overloading your inbox - get MSN Hotmail Extra Storage!
http://join.msn.com/?pgmarket=en-us&page=h...2ave/direct/01/

The file handlers are both DAL.

Change the file handler names.

-----Original Message-----
From: William Black [mailto:[Email Removed]]
Sent: Monday, May 10, 2004 8:50 AM
To: [Email Removed]
Subject: re: Piped input

Hi Matthew.

Matthew Miller wrote:

On 11 May 2004, at 13:10, West, William M wrote:

On May 11, 2004, at 2:04 PM, Peterson, Darren - Contractor.Westar wrote:

William M West wrote:

I have the following code that starts two different processes/perl scripts.
The code correctly calls and processes the perl scripts, but never seems to
return back to the calling script for further processing. Does anyone have
any clue why this might happen?


#Create dal process

if ($OK == 0){

Win32::Process::Create($processobj0,"c:\Perl\bin\perl.exe",

"perl dal.pl",1,CREATE_NEW_CONSOLE,".")||
&Warn("Error Creating Dal Process. Exiting");

}



#open dal process

if ($OK == 0){

Win32::Process::Open($processobj0,my $pid0,1);

}



#Create stl process

if ($OK == 0){

Win32::Process::Create($processobj1,"c:\Perl\bin\perl.exe",

"perl stl.pl",1,CREATE_NEW_CONSOLE,".")||
&Warn("Error Creating Dal Process. Exiting");

}



#open dal process

if ($OK == 0){

Win32::Process::Open($processobj1,$pid1,1);

}





#Wait for stl download to complete

while (!-e "stl.done") {};

print "stl.done finishedn";



#kill stl process

Win32::Process::KillProcess($pid1,$exitcode);





#Wait for dal download to complete

while (!-e "dal.done") {};

print "dal.done finishedn";



#kill dal process

Win32::Process::KillProcess($pid0,$exitcode);

William Black

_________________________________________________________________
Express yourself with the new version of MSN Messenger! Download today -
it's FREE! http://messenger.msn.com/go/onm00200471ave/direct/01/

On Thu, 2004-05-13 at 14:52, NYIMI Jose (BMB) wrote:

NYIMI Jose (BMB) wrote:

In a message dated 5/14/2004 3:05:01 PM Eastern Daylight Time,
[Email Removed] writes:

Roman Hanousek wrote:

On May 18, James Edward Gray II said:

Peterson, Darren - Contractor.Westar wrote:

On May 17, 2004, at 11:16 PM, Andrew Gaffney wrote:

James Edward Gray II wrote:

On May 18, 2004, at 9:30 AM, Andrew Gaffney wrote:

On May 18, John Pretti said:

On May 18, James Edward Gray II said:

On May 19, Ramprasad A Padmanabhan said:

UNCLASSIFIED

I have had no problems compiling perl into executables on windows with the
Active State Perl Development kit.

http://www.activestate.com/Products/Perl_Dev_Kit/



-----Original Message-----
From: Ramprasad A Padmanabhan [mailto:[Email Removed]]
Sent: Thursday, May 20, 2004 3:07 AM
To: SAR, JAVEED (STSD)
Cc: Manish U; Beginners
Subject: RE: Perl2exe


Precisely,
I have even bought 'perl2exe' from indigostar. But we had such a
headache creating exes of some heavy files ( mostly those that required
XML::Parser or JABBER modules ) that we would give up and ship the
source.

Thanks
Ram
( BTW do U work for indigostar ? )

On Thu, 2004-05-20 at 12:19, SAR, JAVEED (STSD) wrote:

I just did this in fact using CSV.pm, worked great! See:

http://search.cpan.org/~alancitt/Text-CSV-0.01/CSV.pm




--- "DiGregorio, Dave" <[Email Removed]> wrote:

I use the xls2csv utility that comes with Spreadsheet::ParseExcel.

Here's how I use it:

#!/usr/bin/perl

use warnings;
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::Utility qw(xls2csv);

my $content = xls2csv('myspreadsheet.xls', 'A5:Q164');

# $content is now the spreadsheet in csv format

my @lines = split/n/, $content;


HTH,
Kevin

On Fri, 2004-05-21 at 13:35, Jeff Westman wrote:

Hi, now I design another way.

First I request user enter the directory want to search first, if the
directory exist in the system, script will search the entire directory. If
the filename is same will display out, else no result will return. If
directory not exist will request user try another directory.

So, the script like below:

#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
find ( &callback, "/$target");

my $target;
while (1) {
print "what directory want search?";
$target = <STDIN>
chmod $target;
if (-d $target) {
print "Yes, target is a directory.n";
next;
}
else{
print "No, $target not a directory.n";

sub callback{
print $File::Find::name, "n" if $File::Find::name =~
/File1$/;
}

May I know any wrong in my coding? Because I cannot run the script. Any idea
about this?

Lktee wrote:

Hi, John thanks you comment, the coding is work. But i'm detect have some small
problem in line 7 print "$File::Find::namen" if $_ eq 'File1'; I test as below
sample 2 is follow you coding. From here i detect nothing return from script.

But after i amend the coding become print "$File::Find::namen" if $_ = 'File1';
this work and return the result i expected. But why perl show "Found = in
conditional, should be == at ./callback line 7."? Any idea? I try put "==" to
replace "=", the result return like sample 2.

Sample 1
[root@localhost root]# ./callback
Found = in conditional, should be == at ./callback line 7.
what directory want search?perl
Yes, perl is a directory.
perl
perl/perl1
perl/123
perl/bash
perl/bash/perl1
perl/bash/123


Sample 2

[root@localhost root]# ./callback
what directory want search?perl
Yes, perl is a directory.
[root@localhost root]#

Hi,

[Email Removed] wrote on 26.05.2004:

[Email Removed] wrote:

Hi people

I'm trying to create a hash of arrays of arrays and I'm having a mind
twisting time with references.

my $key = "some_varying_text"
my %pathhash;
my @link = ($LinkUrl, $LinkTitle);

I'm trying to set $pathhash{$key} to an array that contains the array
@link.
ie there will be multiple @link arrays in $pathhash{$key}.

I just can't work out how to assign an array ref to an array ref to a
hash element. I think that's right.

Any clues anyone... please, 4 hours down and a lot of RTFM'ing hasn't
helped (quite the opposite actually;)

Angie

Angie Ahl wrote:

On Mon, 31 May 2004 19:26:26 +0800, [Email Removed] (Boon Chong Ang)
wrote:

You could do create the string then strip the space. I think there was
something in the Perl Cookbook that was similar to this.

my $longlist = no_space(<<END_OF_LIST);
Clause1|
Clause2|
Clause3|
Clause4
END_OF_LIST

print $longlist;


sub no_space
{
my $txt = shift;
$txt =~ s/^s+//;
$txt =~ s/s*ns*//sg;
$txt =~ s/s+$//;
return $txt;
}

Rob

-----Original Message-----
From: [Email Removed] [mailto:[Email Removed]]
Sent: Tuesday, June 01, 2004 3:16 PM
To: [Email Removed]
Subject: Loading Scalar Vars with Text - Readability


Hi,
Adding Perl to the list of languages... and came across a question of
loading vars with very long strings...

Actually I am modifiying a prior employee's code and want to make it
more readable.

currently the code is such:
my $longlist = "Clause1|Clause2|Clause3|Clause4|...|ClauseN";

I would like to know why I can't make this more readable? Is it because
newline characters would be added to the mix? I would like to do
something like this:

my $longlist = "Clause1|
Clause2|
Clause3|
Clause4|
...|
ClauseN";

Please copy me directly on your response. T

Thanks,
Art Bahrs
[Email Removed]



--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Boon Chong Ang <mailto:[Email Removed]> wrote:

: Hi,
: I am having problem to automatic feed in the data and solve
: the equation. Well, datatest.txt contains the data that I
: need to manipulate, the script is testing_abc1.pl and
: Matrix.pm is the one that I download from the net and use it
: at the local directory since I don't have the installation
: right. I would appreciate that some one would give me work
: around solutions or approach.


You really should begin again. You're are not using
strict. The use of 'foreach' over 'while' and of indenting
would improve the code readability and you need to pick more
descriptive names for variables.

I know this is a pain, but you are trying to walk without
ever having crawled. Let's take a look at some examples.
Here's a snippet you provided.

my $infile =$ARGV[0];
open (IN, "$infile") or die $!;
$outfile= "check.val";
open (OUT, "> $outfile") || die $!;

$count=0;
while (<IN>){
@mo=split(/s+/,$_);
push @da,$mo[0];
push @db,$mo[1];
push @dc,$mo[2];
$count++;
$total =$count
}
close(IN);

$outfile is not a lexical variable. Why leave 'my' off
here and use it on other variables? What are the rules you
use to determine which variables are lexical and which will
reside in the symbol table? The same questions need to be
asked for $count, @mo, @da, @db, @dc, and $total.

Why open the output file now? Why not wait until after
you closed the input file? Nothing is done with the output
file until then.

What is $count for? In fact, what is the point of $total?
The scalar value of @da gives the same value.

What does 'mo' mean? I assume English isn't your first
language, but can't you find something more meaningful than
'@mo', @da, @db, and @dc?

Use indentation when writing a loop and don't squash
all your white space together:

my $file = $ARGV[0] || die usage();
open FH, $file or die qq(Cannot open "$file": $!);

my( @da, @db, @dc );
while ( <FH> ) {
my @mo = split /s+/;
push @da, $mo[0];
push @db, $mo[1];
push @dc, $mo[2];
}

close FH;


$file= 'check.val';
open FH, "> $file" or die qq(Cannot open "$file": $!);

my $max = 4;
my $dif = @da - $max;
my $total = @da;

printf FH " dif %s max %s total %sn", $dif, $max, @da;
printf FH "total = %sn", @da;

foreach my $num ( 0 .. $#da ) {
print FH "$da[$num], $db[$num], $dc[$num]n";
$num++;
}

close FH;

Consider using 'foreach' in place of 'while' when appropriate.
Calculate math down to avoid repeated calculations. Here is
the code you provided.

while($dset ne $dif){
$inc=0;
$max=4;
$inc=$inc+$dset;
$max=$max+$dset;
while ($inc ne $max){
my $w=0;
while ($w le 1){
my $x=0;
while ($x le 1){
$a[$dset][$inc-$dset][$w][$x]=($da[$inc]**$x)*($db[$inc]**$w);
$x++;
}
$w++;
}
$inc++;
}
$dset++;
}

It might be written as:

my @a;
foreach my $dset ( 0 .. $#da - $max ) {
foreach my $i ( $dset .. $dset + 3 ) {
push @{ $a[$dset] }, [
[ 1, $da[$i], ],
[ $db[$i], $db[$i] * $da[$i], ],
];
}
}

Notice the use of white space in organizing the
algorithm. It also aids in readability. The variables are
now lexically scoped and we have eliminated $x and $w
completely.

Start your program again. Use this at the beginning
of the script.

#!/apps/perl/bin/perl -w

use strict;


Add a small amount of code and check for errors. Once
everything looks good, write a little more and then check
for errors. Keep writing that way until you get what you
want.

If you get stuck on some part ask us about just that
part. Be specific when you ask your question. Tell us what
you expect and tell us what you are getting instead.

Pretend that we don't have the time required to
download all your files and look them to find what the
problem might be and how to solve it.


HTH,

Charles K. Clarkson
--
Mobile Homes Specialist

Thre ways...

exec('make');
system('make');
`make`;

The three differ slightly, you might want to check the docs.

Breifly...

exec - executes the command, but your Perl program ends where it is.
system - executes the command, waits for it to finish, returns the return
code.
`` (backticks) - executes the command, waits for it to finish, returns the
output (STDOUT, not STDERR).

Rob

-----Original Message-----
From: Sidharth [mailto:[Email Removed]]
Sent: Thursday, June 03, 2004 11:27 AM
To: [Email Removed]
Subject: how to execute make command


hi all,

i want to know how to execute makefile from the perl script ,its a sort
of urgent .

thank u all in advance...
----------------------------------------------------------------------------
-----------------------------------------------------
"There is nothing in a caterpillar that tells you it's going to be a
butterfly." - Anonymous

*********************************************
Sidharth M Patil
Engineer
Kyocera-Wireless (India) Pvt Ltd
5th Floor, Phase I, Divyashree Towers,
Guruppanapalya, Bannerghatta Road,
Bangalore-560072
Tel : 51106988 extn 5171
*********************************************

[Email Removed] wrote:

[Email Removed] wrote:

Does anyone see anything logically wrong with my code b/c I am still not
receiving the correct data in the email. The data is a # 1 when it should
be a listing of Exxxxx strings.

thank you!

## Set pragmas

use strict;
use MIME::Lite;

## Set and edit variables

my $foreigntapes="/usr/local/log/foreign_tapes.log";
delete $ENV{'IFS'};
local $ENV{'PATH'} =
"/usr/epoch/bin:/usr/epoch/EB/bin:/usr/bin:/usr/sbin:/bin:/sbin";
#print $ENV{'PATH'},"n";

## Traverse through array and play with data

open (OUT, ">$foreigntapes") || die "could not open file:$!";
my @ftapes = grep s/^barcode=//, `evmvol -w label_state=1`;
print OUT "@ftapes";
#if ( -s @ftapes ) {
my $msg = MIME::Lite->new(
From => 'EDM01 <[Email Removed]>',
To => 'Derek Smith <[Email Removed]>',
Subject => "Foreign Tapes Found, now attmepting to
label",
Data => print "@ftapes" );
msg->send;

#foreach (@ftapes) {
#print $_;
#`evmlabel -l st_9840_acs_0 -t 9840S -b$_`
#}
close (OUT);
#} else {
# my $foo="/tmp/ftapes_runfile";
# open (RUNFILE, ">$foo") || die "could not open runfile:
$!;"
#}
#close (RUNFILE);

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams






<[Email Removed]>
06/04/2004 10:58 AM
Please respond to cslyon


To: <[Email Removed]>, <[Email Removed]>
cc:
Subject: RE: sendmail