I am working my butt off trying to get eval blocks working. When I run
a pert of perl code, if the code fails I dont want the script to
terminate. Here is what I am talking about:
[CODE]
use Win32::Registry;
eval{
my ($node) = 'ComputerName';
my ($hNode, $hKey, %values);
$HKEY_LOCAL_MACHINE-
A friend asked me to write a program for a WIN32 OS. When this person's
camera takes a picture it populates the file summery with information
(right click on the file, go to the summary tab). One field that I need
to get is called "Date Picture Taken". I then need to rename the
pictures with s
Lets say that I have a list of data that have a few things in common, ie
this is a 1 test to see 2 what is happening 3 to the state of the 4
country
all work 1 and no 2 play makes 3 jack a dull boy 4
how 1 much wood 2 could a wood 3 chuck 4 chuck
so I want to grab all data between 1 - 2 and 3 -
Thank you.
Tim
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:[EMAIL PROTECTED]
Sent: Thursday, October 12, 2006 12:09 PM
To: Gallagher, Tim F (NE); Perl Beginners
Subject: RE: Subroutine returning 2 arrays
Believe you want to do as a
>From a subroutine I would like to return 2 separate arrays like this
sub TEST
{
@a = ("a1","a2","a3","a4","a5","a6","a7");
@b = ("b1","b2","b3","b4","b5","b6","b7");
return (@a, @b);
}
my(@lala,@baba) = TEST;
print @lala;
The problem is that @lala will return a1a2a3a4a5a6a7b1b2b3b4b5b6b
I need to move 3TB of data to a new SAN. I have to make sure that I
have the correct tights to move the data so I want to test my data
before the move. I want to walk the data and see if I have access to
all the files. I am not sure how to test the files to see if I have
access or not. I don't
