Perl Forum

I know regex can't do this, so may I ask what the recommended procedure is for extracting a bracketed TeX argument, which itself can contain other bracketed TeX arguments? $string = " text \sometexmacro{arg1}{this is a second {\bf arg} argument} more text"; and file.pm has a sub that makes it easy to describe all the arguments to...

I have a large list of DB_Files stored in a directory. I would like to tie all of them to an array of hashes and to search them for key, using the hashes. My idea is rather simple: my (@listOfHashes); my ($numOfHashes); sub loadDBs{

Here is what I get: gcc -L/usr/local/lib -o miniperl \ miniperlmain.o opmini.o libperl.a -lsocket -lnsl -ldl -lm -lc ld: fatal: file miniperlmain.o: wrong ELF class: ELFCLASS64 ld: fatal: File processing errors. No output written to miniperl collect2: ld returned 1 exit status make: *** Error 1 and ld -help shows ELF64_sparc support but...

when I create a menu in a dynamic document using cgi.pm how do I get the menu to submit after someone makes a choice? I cant tell if theres something special I have to do or if there is an error in how I've done my code. Thanks everyone, Christopher

Greetings, My problem is I need to call a subroutine but the number of args can be many and vary from call to call. What I'm trying to do is parse a template and capture the data from the template into a scalar and then call the subroutine with the scalar value and have perl substitute the scalar with the data in the scalar and have that...

I'm writing a script that sends messages via the serial port at the moment. I'm really quite hopeless at Perl so I need a little help. Perl is great at handling strings but I'm having trouble finding accurate info on how to specify a 4 bit hex value. I've basically gotta send two 4bit chunks of data and a whole host of 8 bit chunks. ...

The following will stop to open test.pl due to using param('userid') and param('pwd'). Is there an alternative way to get data from HTML file to CGI file? I have to do this in the particular situation. -------- html file --------- <form name = "form3" action = "http://localhost/scripts/test.pl" method = post> Name: <INPUT TYPE = text NAME =...

How do I make .cgi extention work? I installed ActivePerl 5.8. My CGI scripts work fine with .PL extention but not .CGI extention although I associated CGI extention as exactly same as PL extention in WinXP Prof . Where else should I change to make it work?

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);

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, 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";

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...

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

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" ....

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 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";

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'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

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

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. ...

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

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.

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...

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...