Perl Forum

I'm trying to make a HTTP request to a Web server. The Perl module is executed in mod_perl on Apache 1.3 The code : ---------------- my $r = shift; my $browser = LWP::UserAgent->new( ); $url = 'http://10.3.8.137/'; my $response = $browser->get($url); my $response_line = $response->status_line();

La commande vmstat permet de connaitre périodiquement l'état de la mémoire. Le problème est que pour des raisons de sécurité il n'est pas possible d'accéder à la machine et donc de la lancer à distance... Cependant dans ce cas là, il est prévu parait-il, un demon qui permettrait d'y accéder via un port particulier... QQ'1 de vous en saurait...

I am just starting to play with CGI programs on a box with RH 9. Testing to see if I had the stuff installed I used a very simple script like so... #!/usr/bin/perl -w use strict; use CGI; It told me that it couldn't find CGI.pm and sure enough, that apparently doesn't come on the RedHat 9 distro. So I installed the latest version of...

I would like to make a small script to do the following. replace a / with a - in the following situation it is between a and not following a :// so becomes but http://server/directory/file.html] stays the same

I don't know how to implemente Ackeman function in perl help . Thanks Kolin

I have a small perl script that inserts data from a tab file to an Access database. my $sth = $dbh->prepare(<<SQL); INSERT INTO Notes ("Account Number", "NUM", "DESC", "UID", "NOTES") VALUES(?,?,?,?,?) SQL $sth->bind_param(1,$rec,SQL_VARCHAR); $sth->bind_param(2,$rec,SQL_VARCHAR);

hi i have written some perl code like this $telnetcmd << "EOF"; perl -ne "chdir(/tmp); while ($file = <*.txt>) { print stat($file); }" EOF print $telnetcmd; it give me some errors:

Folks, I'm attempting to write some OOP with the use strict pragma on an I'm just not getting it to work. Here's an example #!/usr/bin/perl -w use strict; use Automobile; my $file = new Automobile;

Hi, I'm new to perl. I want to operate array in this way: a). remove one item in an array. For example, @array=(1,3,2,4), and want to remove the 2nd item '3'-- @array=(1,2,4); b). find the difference of two arrays. For example, @a1=(1,3,4);@a2=(1,2,4,5); want to get @a2_new=(all items in @a2, but not in @a1)=(2,5); Does any one know how...

Hello, I am trying to tidy up my ActivePerl installation by refreshing the packages. Everything works fine except for perl-ldap. Whenever I check for a new version (upgrade --install) a new one is detected (0.251) and my current one (0.28) gest "upgraded". So far so good. The problem is that I then still have the 0.28 version and the game...

How to use fork() system function to fork multi child process at the same time ? For example: Run a program to fork 5 child process at the same time and the parent must wait until all child exit. The child do some thing like to read different file at the same time.

Consider the following almost pseudo example: # main.pl package main; require other; sub mysort() { #* 1. sort algo }

I'm currently developing a tool in perl to search out potential XSS (Cross Site Scripting) vulnerabilities and correct them in a ColdFusion based web app. I've been having great success so far, however, one scenario has me banging my head against the wall. I need a regex to find all <cfoutput ...>...</cfoutput> blocks in a CFM template. ...

Hello, I'm trying to put the file into the Windows NT server using the Perl script but it doesn't work. Just look at the following script: use Filesys::SmbClientParser; my $fl = '/temp/file.txt'; my $smb = new Filesys::SmbClientParser

Hi, I'm having problems to successfully execute the test scripts on a Compaq host ( OSF1 tr51bdev V5.1 2650 alpha ). Almost all tests end up with the following error message "PARI: *** Invalid arguments to divll. at test_eng/Testout.pm line 30. ...propagated at t/polyser.t line 9. t/polyser.....dubious

Is there a way to easily perform a "comm -3 file1 file2" like function in perl? Basically, I have two arrays and only want to know what the differences are so that I can perform operations on them. Thanks. -- www.eSnider.net

Hi I am facing a problem with extracting event logs of win32 to a file. Am using the following code to extract eventlogs to file use Win32::EventLog; $handle=Win32::EventLog->new("System", $ENV{ComputerName}) or die "Can't open Application EventLog\n"; $handle->GetNumber($recs) or die "Can't get number of EventLog records\n";

Hi all, I want to diff two files or two versions of one file, and parse the output to find a summary of how many lines of replacement/addition/deletion in the two files. Known from diff/cleardiff, the output has a style like: 15a16, 15,17d3, 18c19,21 etc. Anyone know how to parse these output to generate a summary?

Hi@ll ! I have an application where the items of each XML value are placed in an array like this: my $result = transfer({ FIELD1 => 'value1', FIELD2 => 0, FIELD3 => "something other" ....

I am dealing with three different database files. If the user (me) chooses to edit File 1 it opens File1.csv and so onfor File 3 But File three needs to written in a different format then File 1 and File 2. My question is about line 4 I am getting an error. Why and what am I doing wrong that I am missing? any ideas? Thank you

What kind of problems is Perl best at solving?

This is a conceptual question rather than a specific coding one, but hopefully someone might have played around with something similar. In a nutshell, I have around 10 million information entries with lots of data points. My current script has two stages - the first organises certain data points of the data into large (huge) hashes, and the...

Hello, i'm new to this group and have a quick question, I tried to search on this topic but was unsucessful. I'm tring to use a parameter to name a file, actually multiple parameters, and perl doesn't seem to like it. Can anyone tell me what I am doing wrong? my $employee = param('employee'); my $filename = "$employee.txt";

Hi, I'm having a problem storing an array inside of a hash. I'm bringing in a hash via a reference and I want to assign a value to it. This is what I'm doing: push (@{$$node->{ELEMENTS}}, "New value"); (I need to use "push" because this is going in a for-loop)

Hello everyone, Does someone know of a way to handle both keypress and release in a Linux-console (not X) from Perl? It seems this is the only way I'll be able to have keyboard-repeat for some keys, but not for others, or does anyone have other ideas. I have done this before in C with: ioctl(0,KDSKBMODE,K_MEDIUMRAW);