Alright, so here's the problem.
I have a script that generates a report in HTML, whcih as we all know printing HTML isn't great, so I've added a button that when clicked will generate an RTF using RTF::Writer.
Because of the potential of High Volume of users accessing this report I'm...
...> blah
this that this that this that< tag checkechkechke name=blah value=1 type=hidden sagsdgasdg WORD asdf adgasdgadg /tag >
after after after
};
$html =~ s/\<\s*tag.*(WORD).*\/tag\s*\>//g;
print $html;
That should remove the whole tag as many times as it
appears in the html variable
I'm receiving this error
ORA-01000: maximum open cursors exceeded
I am wondering if anyone has ideas as how to solve this problem. I've read up on turning the prepare_cache() off, but hoping that there are other ways around this. Thanks in advance.
Save your file in the cgi-bin directory as hello.cgi
Use this, and then try it.
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print "<H1>Hello World</H1>\n";
-M is the modified time. I believe this works.
Also, you could use perl's stat() function
use File::stat;
$stat = stat($file);
$created = $stat->ctime;
You will probably need to fork off processes to do the changes. Then implement a lock file schema. If the lock file is present, wait, and then poll for it again.
while( 1 ){
unless( -e file_lock ) {
system("touch file_lock");
open(FILE...
I'm not sure what the problem is. I ran a test code of what you posted. I created a hash, and at the end printed out the pid numbers. From my test, 4 processes should have been spawned, and it printed out 4 pid numbers. Thus, the code works. the exit command in the child process should only...
Hahaha. Good point. I definately wouldn't. It was for a job interview...just didn't wanted some background of Oracle before I had the interview. Might have worked, I got the job!
I'm looking to find information on the Oracle database. What it is and how to use it. I'll be writing perl scripts to access the database, but don't know anything about Oracle. Any links to documentation would be very helpful. Thanks.
Assuming the hash is
[ user1 => 2,
user2 => 3,
user3 => 6,
user4 => 4,
.
.
.
]
This will loop through the hash, greatest num of processes running to the least, exit the loop, once all users with >=4 processes have been processed.
foreach my $key (reverse sort {$hash{$a} <=>...
I'm going to be writing perl scripts to access an Oracle Database. I know perl well, but haven't a clue how an Oracle Database works. I've seen previous threads the last few weeks regarding DBD::Oracle, and DBI modules, but was wondering where some good information lies the Oracle Databse...
It's probably safer to do this:
use File::Path;
mkpath($path);
In the case that you are trying to create a directory, where a previous directory doesn't exist.
i.e. You want to create: /documents/tests/drivers/linux/kernel
and directory /documents/tests/drivers doesn't exist....it wont...
Not sure what the problem is. I threw the print <<EOF into a piece of code, at the top. I ran it once, and it printed. I ran it again, and again, and now nothing prints, with the same error. You can always surround the code with ""'s. Its a solution.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.