Perl Forum

Hello - I am new to Perl, so sorry if this is a silly / ultra easy question. I am using LWP::UserAgent to POST a HTTP message to another website, and it works great. However, I can't figure out how to redirect the user to a script at the same time as the post. (i.e. emulate sumbitting a form and being sent to a page. $org_response =...

I would like to know how to prompt the user for an input on the terminal. I have a print statement which asks for 3 choices and use <STDIN> to prompt the user for an input. This code works perfectly with DOS but I need it to work on the terminal. I don't know how to read from terminal. I looked up some shell scripts and it says read CMD but that...

Hello: I'm having a problem formulating the code to execute a multiple line command. I'm trying to execute something like: set rowcount 100000 declare @rowct int select @rowct = 1 while (@rowct > 0) begin

Hi, I use perl LWP to connect online database and data is saved in files. while trying to retrieve i got the below error but data is saved in files. Here is the error. ERROR The requested URL could not be retrieved

I am working on a class assignment where I have to connect to an MS Access database. The perl script is contained in a separate file *.pl I went into Control panel/ODBC/ and selected Microsoft Access driver and identified the source name. I was looking at a previous post here and many things appear to be similar to my requirements. 1....

I am trying to teach myself perl by writing a program I've been meaning to implement, so I am pretty green in perl. I'm having problems sharing filehandles opened by a thread - been RTFM for a few days, but am having no luck. I am attempting to write a threaded server program that listens on a socket for requests, then passes the socket's...

Dear All, This is my first time touching Perl. Could anyone explain what does the following error means and how could i resolve it? "Prototype mismatch: sub main::prompt ($;$) vs none at inc/Module/Install.pm line 146." Appreciate your help on this. Thanks a million.

Hi, I'm trying to create a perl script that will log into a website (the login form uses POST), navigate to several pages, and append the (html) content parsed from those pages to a seperate log file. I'm not very familiar with this aspect of perl, and have been having some trouble in the POSTing of the form data, while using cookies to log...

Hi, Another newbie question... I have to write a program that process a huge amount of data; the end results will be a number of different reports. I will prefer to write a separate library/perl script for each of the reports to separate/isolate them into their own files... However, how do I "pass" this huge data to the...

Hello. I would like to know how I can parse a plain-text file. All I want to do is be able to sequentially extract each word from a document. Similar to the StringTokenizer in Java. Is there a module for this? or an easy way to do it with regular expressions? Thanks!

Hello there, I'm trying to process a binary file and I really don't know how. The story: gPhoto2 downloads the images from my camera just fine, but small areas of 10x3 pixels are screwed up. I found exactly where the problem happens and wrote a simple interpolation filter that works like a charm... under DOS, using the old QuickBasic. I've...

I can't seem to figure out how to modify the contents of @INC. I want to tell perl to look in a different directory when searching for modules. Any thoughts?

i am trying to write a script that will: - check an integer value to see if it has a particular pattern (regular expression match) - tell me what the particular pattern is. I am searching integer numbers for three digit patterns of the form 111, 222, ..., 999, 000. If the number contains one or more of these then I want the script to say...

Basically, I want to check whether $x is in between $y and $z. I always compare them with simple if statement as below. if(($x > $y) && ($x < $z)) Any other way of doing this in a better manner available? Thanks.

How to get the first word from a given string in perl...

I am calling a unix shell script from a perl script by using the following system command: system("./readfile_new.sh"); but it seems the unix script readfile_new.sh is not being called. Can someone let me know how to call this script in the perl file/

Hi ALL, I want to read list of all subdirectories in an array in perl. I know how to get a list of all files in a directory but it does not show subdirectories in that list. Can any help out on this issue. Thanks in advanced. Fanee G.

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)

If I had a text file with the following two columns: key1 value1 key2 value2 key3 value3 How would I read in this file and create an associative array?

Since bash is horrible at date statements i had to convert my bash script to perl....now i have a headache.. I had help to convert but now in modifying i have messed it up.. i'm checking a returned value from a sql query and comparing it against the date. The two possible output types $ /usr/local/bin/sqsh -Uuser -Ppassword -S sql1 -h...

Hello, I am trying to update the STDOUT dynamically. For eg. I am trying to display a counter whose value should get updated int he same place, #!/usr/bin/perl $val = 10; for ($i=0;$i<=$val;$i+) { print "$val\n"; }

hi, I am very new to perl.I have written a perl script which is writing data into an excel file.The problem is that it is creating one new excel file while executing but my need id to write into an existing .xls file. currently I am using: my $workbook = Spreadsheet::WriteExcel::Big->new("file.xls"); for that which method Should I use??...

I am having a problem in a perl script that I can't seem to find an answer for.. The $cost and $retail vars come from another part of the script and would be something like 000134.345 and 000220.202 respectively.. I an then trying to use these values in a calculation like this.. $profit = ($retail - $cost) / $retail * 100;

I was writing a perl program where I have to add one environment variable. like RCS_ROOT. I tried to use system( " setenv RCS_ROOR ****"); i also tried system(" export RCS_ROOT=********"); But nothing is working .. when i run it tell no file called setenv. Please let me know how to set userdefined env. using perl. Basic idea is set some...

In a shell script or Perl, how do I open a file, find what I'm looking then Case 1: grab that line + the next 2 lines Case 2: grab that line + the previous 2 lines? TIA, Larry