02-19-2014
Well, I am not a perl expert. But in your log_me function you detect that the logfile cannot be opened so you call log_me again.
This second invocation of log_me will also detect that the logfile cannot be opened so it will call log_me again.
This third invocation of log_me will also detect that the logfile cannot be opened so it will call log_me again.
And so on.
Shouldn't actually be infinite though. Each iteration consumes a bit more stack. Try letting it run for a few minutes. You gotta blow the stack sooner or later.
This User Gave Thanks to Perderabo For This Post:
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hey Everyone,
Just starting with PERL (5.8.2) after years of KSH. Is there a way to trap the exit as you can in KSH (i.e., "trap EXIT_SCRIPT EXIT")?
Thanks in advance for any help,
gsatch (4 Replies)
Discussion started by: gsatch
4 Replies
2. Shell Programming and Scripting
I am running a korn shell script which has a recursive function.
The script ran for 117 iterations and ended up with the following error
"recursion too deep".
what should be done to avert this?
Thanks in advance
Swamy
p.s. I am on UNIX MPRAS V4 (3 Replies)
Discussion started by: swamy455
3 Replies
3. Shell Programming and Scripting
I apologize if I have already posted this query. I scanned back quite a few pages but could not find such a query.
If my perl code contains "exit(33)" how can I get that value in bash for use in a "if" statement.
Thanks,
Siegfried (5 Replies)
Discussion started by: siegfried
5 Replies
4. Shell Programming and Scripting
HI all,
can anyone tell me what does exit status 9 from perl's system function meant.
I am using system fuction to execute a shell script as :
my $s=system ('script.sh' ,arg1 ,arg2);
print $s;
the output is 9.
Thanks in advance. !!:confused: (1 Reply)
Discussion started by: glamo_2312
1 Replies
5. Shell Programming and Scripting
Hi all,
I made a simple script with a prompt menu in Perl. All working good, but I want to add an option while the program is running that on every time when the user press 'Q' the program will exit.
I know I can use $SIG{'INT'} or any other %SIG option. This option is a unix signal which I... (3 Replies)
Discussion started by: RedGrinGo
3 Replies
6. HP-UX
Hello;
Am experiencing odd problem with ssh:
=========
ssh -vvv remote_host
:
:
debug2: channel 0: rcvd adjust 65536
debug2: channel_input_status_confirm: type 99 id 0
debug2: shell request accepted on channel 0
debug1: client_input_channel_req: channel 0 rtype exit-status reply 0... (4 Replies)
Discussion started by: delphys
4 Replies
7. UNIX for Dummies Questions & Answers
spath="/home/user/k/${1}"
dpath="/home/user/seq/Nov17/${1}"
cd $dpath
ls -1 $spath > list
c=1
while read list
newlist=`echo $list | sed 's/.gz//' `
newnewlist=`echo $newlist | sed 's/.fastq//' `
do
echo $c
echo $list
c=$(($c+1)) (6 Replies)
Discussion started by: analyst
6 Replies
8. Shell Programming and Scripting
Im being forced to write in perl. I prefer KSH or Expect, so I suppose its time to become more fluent with perl.
I have the following problem. I want to loop through Filea and check that each line in Filea is resident in Fileb.
Filea contents
two
four
six
eight
houseboat
Fileb... (4 Replies)
Discussion started by: sumguy
4 Replies
9. Shell Programming and Scripting
Dear all,
We have a service that we start up remotely with rsh but unfortunately, the rsh never returns to the calling server. This seems to be because the processes of the service we've just started hold the port open.RBATTE1 @ /home/RBATTE1>netstat -na|grep 49.51
tcp4 0 0 ... (1 Reply)
Discussion started by: rbatte1
1 Replies
10. Programming
First time trying to work with signals in Perl.
Reviewing example I try it, but not able to get it work for 'exit'.
I hope, I am correct, assuming, that the ending any code by
exit $return_code;
the $SIG{EXIT} should be de-referenced and processed?!
So, I have such code, that, I assume,... (5 Replies)
Discussion started by: alex_5161
5 Replies
LEARN ABOUT DEBIAN
dbm::deep::iterator::file::index
DBM::Deep::Iterator::File::Index(3pm) User Contributed Perl Documentation DBM::Deep::Iterator::File::Index(3pm)
NAME
DBM::Deep::Iterator::Index - mediate between DBM::Deep::Iterator and DBM::Deep::Engine::Sector::Index
PURPOSE
This is an internal-use-only object for DBM::Deep. It acts as the mediator between the DBM::Deep::Iterator object and a
DBM::Deep::Engine::Sector::Index sector.
OVERVIEW
This object, despite the implied class hiearchy, does NOT inherit from DBM::Deep::Iterator. Instead, it delegates to it, essentially acting
as a facade over it. "get_next_key" in DBM::Deep::Iterator will instantiate one of these objects as needed to handle an Index sector.
METHODS
new(\%params)
The constructor takes a hashref of params and blesses it into the invoking class. The hashref is assumed to have the following elements:
o iterator (of type DBM::Deep::Iterator
o sector (of type DBM::Deep::Engine::Sector::Index
at_end()
This takes no arguments.
This returns true/false indicating whether this sector has any more elements that can be iterated over.
get_next_iterator()
This takes no arguments.
This returns an iterator (built by "get_sector_iterator" in DBM::Deep::Iterator) based on the sector pointed to by the next occupied
location in this index.
If the sector is exhausted, it returns nothing.
perl v5.14.2 2012-06-24 DBM::Deep::Iterator::File::Index(3pm)