|Think about Loose Coupling|
Re: quston n File::Findby 2teez (Priest)
|on Oct 30, 2012 at 09:54 UTC||Need Help??|
Here are some of the things I spotted in your wanted sub. open temp_file_cy, "$File::Find::name;
With a second check on the usage of the file test using "-r" in this line:
print "hello 1\n" if (-r tep_file_cy);
check perldoc -f -r
-r File is readable by effective uid/gid.
If 'tep_file_cy' is the file you trying to check up, not been used as file-handle.
Except, you have something else in mind.
If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me