Perl Forum

HI, I'm new to Perl. I'm trying to write a simple script which will comment out a domain in my named.conf file for Bind. What I would like to do, is write a script which will comment out a domain from my named.conf if I no longer want to host that domain. So, what I'd like to do is create a means to search for a domain (mydomain.com)...

I have an application written for mod_perl and Apache that needs to be able to send some XML queries to a WebMethods server for access to corporate systems. I have been attempting to use LWP to POST my XML query to the target WebMethods server and find I only get 401s (authorization errors) from the WebMethods server when it is configured...

Trying to fork a socket server, but when file is transferred and child exits the error: Free to wrong pool 1e090e0 not 223fb0 Reasonable code facsimile: $SIG{CHLD} = \&REAP; my $sock = new IO::Socket::INET( LocalPort => $port,

Hi, I want to retrieve a webpage that includes unicode characters using the LWP::Simple module. But how can I tell LWP::Simple which coding it should use as I haven't found anything concerning coding in the docs. I use the following: --- #!/usr/bin/perl -w

hello, the follow code get different result from Command line and browser that is to say ,i get the correct result from the command line,but i cant say the result from browser. IPC::RUN is used in this code; i get it from http://ppm.activestate.com/PPMPackages/zips/8xx-builds-only/Windows/IPC-Run-0.77.zip my environment is: Microsoft...

I have two tables and i want join the two of the primary id's in to one table. the database is mysql. ex. Table Item (ID int(10) NOT NULL auto_increment) Table Actor(ID int(10) NOT NULL auto_increment) to go in to Table actor_item(actor_id, item_id)

Im doing perl for an mock online store and wondering if someone had anything to help me b/c im having alot of trouble getting it built. I am using mysql as my database.

Im doing perl for an online store and wondering if someone knew a way (a script) to get my text files in to my mysql database?

does anyone know how to take a text file and do this for mysql. parse your file and create a new one which is in the sql-dump-format ex. of the text i have in my data file i have ten of these in same format how would i load all in my database from the text file. what would the mysql command be or should i add something to separate each...

I am trying to use Win32::OLE to print a PDF to the default windows printer. I have opened my file in the AcroExch.AVDoc object and am using the PrintPagesEx method. My Code: $AVDoc->PrintPagesEx(1,5,2,True,True,False,True,True,PDAllPages); Method Parameters from the SDK:

I have an online ftp type website for a customer that I wrote in a cgi perl script. If the person is trying to upload a file that already exists on the server I am printing a message telling them to delete the original first. My problem is this... In order to compare the given file with what is in the database, I need to get the name of...

The PDF::Create module I use is a version 0.01 from 1999. Does anyone know if there is a newer version or an alternative? Arno Reuser

Hi, Problem: Executing 's///' has a side effect on grep null string matching. If line 62, the substitution, is executed the last two values returned by grep and printed on lines 68, 69 are different than the values returned and printed when line 62 is commented out. Line 62 shouldn't have any impact on lines 67,68 & 69. Environment:

Hi, I have 5.6.1 installed on my machine. How do I install SUID PERL? or recompile perl for SUIDPERL. Need SUIDPERL for openwebmail. Thx

Hi all This is my small problem ... I have a program which make a long long statistic (about 2 minutes) It enough to timeout in my browser (or squid proxy of client) I want first make a page which is checking if there exist a result of stat maker (some PDF file)

Hi All! I'm a newbie to perl. I've written a small cgi script that runs as the consequence of a form with radio buttons. After the button is clicked, an exe is to run. How much ever i try, i cant get that to happen. I hear a "ding" sound which is indicative os some error.. I can run the perl script in command line using perl getdata.cgi....

This seems like a simple thing, but I can't find anything in the "Perl Cookbook" or the online Perl docs to answer this. When a script runs from my host's server, the working directory doesn't appear to be the directory the script is located in. (They have Perl running under IIS, I don't know what versions). I tried File::Spec->curdir()...

Thanks for all the help with the earlier questions I've posted I am trying to do something I've seen in other perl code bases but I don't know how they do it. You have a text -file- (html, usually) and it looks like this: "Some text Some more text !!$someperlvariable!!

Hi ! this is the little script #! /usr/bin/perl -W # this program copy all files in a directory # and deplace them in a new directory named "multimedia" if he doesn't exist # the program create him... use strict ; my($targetDirFull,$targetDir,

Here is my prg:::: use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR); use Authen::SASL; use Net::LDAP::Util qw(ldap_error_name ldap_error_text); sub lConnect { my $server = shift; print " the server name is $server\n"; my $ldap = Net::LDAP->new($server, port=> 389, version => 3);

Hello, I need to read the name of a file inside a .gz. I know it should be the zipped name - .gz, but the filenames are long and truncated sometimes. In perl, what is the command to read the gzip -l into a variable? Something like my ($filename)

I am having a little trouble getting DB_File 1.808 to work with BerkleyDB4.2.52 and perl 5.8.0 when building in 64 bit mode on Solaris 5.8. When running the make test it fails with the message "Tie failed: Not enough space". It is not at all clear to me if this will resolve to a perl, BerkleyDB or DB_File problem.

I'm trying to extract name:value pairs from a string similar to this one {a:b,c:d,e:f} The individual pieces are more complicated, but its similar in principal Here is a test script I use $f = "a:b,c:d,e:f"; @a = ($f =~ m/(?:(\w+):(\w+))(?:,(?:(\w+):(\w+)))+/);

I am hoping to find a way to post a file to a remote web page in an automatic way using a perl script on a Windows machine. I prefer not to use FTP as I have to put passwords in the script. I'd also like to avoid SMTP. Is there a way to have a perl program send a local file to a remote computer using http? Thanks

Hi, I wrote this little script to check to see if our Lotus Notes servers are running, and from the command line it works fine if I type perl notescheck.pl When I invoke the script from a web page I get an error: Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request.