Hi,
I'm trying to write a function which will search a table within Oracle for various columns when certain parameters are met. It works just fine when I use numeric search criteria but as ...
Any idea where to start looking for the problem? The query runs fine when run directly from MSAccess.
__START__
use DBI;
use strict;
my $date = "";
my $dbh = DBI->connect("dbi:ODBC...
Perl came with my server (5.8) so it shows it was compiler with AIX's default C compiler cc_r. This compiler I never installed since GCC was free. But now I am forced to install all modules us...
my @array;
@array = ('00','01','02','04','03');
my @array_stuff;
$j = 0;
$i = 0;
for(my $count = 1; $count <= @array; $count++)
{
if($array[$j] eq '02')
{
$array_stuff[$...
$PERCENT = $floatA / $floatB;
I get an answer which is in the form "X.13" decimal places. I want this to be 4 decimal places, BUT I don't want it done just when I print but have it stored t...
How can I redirect STDERR to STDOUT?
I need it so that error messages of a cgi script will appeare in the HTML rather then ending up in the apache error log.
In the below sample code, how do I force the "toplevel" widget to be 'modal'? It presently defaults as 'modeless'.
use Tk;
$mw = MainWindow->new;
$mw->title('Main Window');
$t1 = $m...
I've got the following bit of code:
$string = "\n1 1\n 2 2\n 3 3\n e\n";
open (GP, "| /usr/freeware/bin/gnuplot");
print GP << "end_commands";
set term postscript
plot '-'
...
I have a dir with files in it.
I want to check the files and return the last modified file!
How to do that?
Hello there. I would really appreciate if somebody could provide me with a simple example (few lines of code) of how to handle a session variable in perl. I would like to set this variable i...
Hi experts,
By using the pack and unpack functions, I would like to write a script that will convert the following:-
Binary to decimal
Binary to hexadecimal
Decimal to binary
Deci...
beginner of perl programming here.
i hav used getc() to get a user input choice, but the choice seems like always comes with a '\n' character.
how can i remove tat? as the main menu wil...
Hi all,
I have korn shell script, if some script guru can help me to convert this script into purely Perl.
I have little or almost no clue about ksh (very new to scripting as well).
Hope to...
Experts,
I was wondering if there is any way to loop through an array of hashes. I was looking for a simple way to do this;
Foreach $value($RC->[0]{'E_TIMESTAMP'});
{
print $value;
...
hello,
I'm having difficulties deflating gzip encoded documents retrieved from sites that have gzip encoding.
here's the code:
##www.pl
#!/usr/bin/perl
use IO::Socket;
use IO::...
Hi,
I'm writing a short perl script to monitor our company's connection to the internet. This script should return a 1 to the shell if the connection is up and a zero if it is down. Is it...
Hi experts:
I saw a sample perl program which used two forks, it was said using double forks to make sure one of the processes re-parent to process id 1. Can anybody explain more extensivel...
Hi.....
How can i trap for non numeric characters (zero's are alowwed)?
An is_num sub would nice that returns a zero for chars and 1 for 0 to 100.
regards
Ricky
I am using Perl to access a database by calling an Oracle Stored Procedure, and it is working, accessing the data fine, but when the program is complete, it doesn't end the process on the serv...
This is a continuation of my questions at:
http://www.experts-exchange.com/Programming/Programming_Languages/Perl/Q_20823491.html
I'm on winXP, with ActiveState Perl 5.8.0
test and test2 ...
Hi,
I was wondering how i can add, remove or replace text from the middle of a file. My file is described below.
The files has hundreds of patterns and each pattern has the format descri...
Hi.
I have an internet gateway setup as follows:
Ubuntu Linux (Dapper)
Webmin (for configuring iptables etc)
DHCP Server
NAT Masquerading
iptables firewall.
I need to be able to r...
I'm looking for a script (perl or python) that will ping each address on a CLASS C network and report its status.
Could someone please help.
Thanks,
I have a simple finite directed acyclic graph (DAG) stored in two tables
- Nodes (node primary key)
- Arrows (parent , child, primary key (parent, child))
Both parent and child in the A...
I need to mod an example script to run on my machine. The script has line:
use lib qw(/usr/local/apache/lib/perl);
but my machine doesn't have this path b/c I installed most everything with...
