Perl Forum

Hello, I am using HTML::Parser to extract text from html pages from http://bbc.co.uk/urdu/ However the encoding of the input text seems to change to some unknown encoding in the output. The program is given below. The HTML is in a string to keep the example simple. The same problem appears with HTML in a file.

How can one exit the debugger with a non-zero return code? My perl script is called from another program which checks the return code. When I run it through the perl debugger, the debugger exits with a zero for its return code even if my script calls exit with a non-zero value. How can I pass the value from my script on when I quit from...

Hi, I was looking for a perl based uddi server as I don't want to use public uddi servers for my companies web services. any pointers on how to do this? thanks in advance, Julie

Hi, I'm parsing an XML file wich contains some unicode. When I'm reading a textnode with a bit of unicode inside and keep it in a variable then, when I try rereading the same textnode with the aid of the variable then I cannot read back the node. Let me try to explain: I have the following xml document: <doc>

There never was a computer progrmming shortage. Industry and ethnic lobbyist convinced congress to admit over 1 million H1B's over the past 8 years. Now you can't find a job. Well get off your a** and do something. Since there is certainly no shortage of programmers now, with Americans begging for jobs, there is no need for H1Bs. Call your...

Hi! I've got some code in Perl and I have to have it in C, but my knowlege of Perl is < 0 :-(, so I need your help. here's the code. Thanks in advance. decrypt.pl #!/usr/local/bin/perl $keyword=$ARGV ; @key=split(//,$keyword) ; $period=length($keyword) ;

I am trying to scavange a example script I found on the web. The aubroutine is below. Basically I want to extract data from a sql db then generate a table of values on the fly. The script below keeps generating a malformed header error sub gen_table { my $array_ref=query_data('%Ave%'); my @headings = ('id no.','street no.','street...

perl -MCPAN -e 'install Time::HiRes' CPAN: Storable loaded ok Going to read /usr/local/cpan/Metadata Database was generated on Mon, 13 Oct 2003 09:46:36 GMT Running install for module Time::HiRes Running make for J/JH/JHI/Time-HiRes-1.51.tar.gz CPAN: LWP::UserAgent loaded ok Fetching with LWP: ...

I have hit a wall. I have some server side perl scripts. One of those scripts has to send off to another server (hence the middleware comment) and wait for a response. Then I need to get back to the client. I don't know how to do this. I can send off the post to the external server. And I know how to get the response back in another of my...

I forgot I had a "real" newsreader available. So here is the question you will see "soon" when google decides to post my other question. I have a server side script that takes a user's input in a form, packages it, and sends it on to an external server. The external server will then send back the response via http to my server script....

Undefined subroutine &main::ReadParse but ive got #!/usr/bin/perl use CGI qw(:param); use CGI qw(cgi-lib standard carpout); # Include CGI functions use CGI::Carp qw(fatalsToBrowser); # Send error messages to browser use strict

Hello all ! Does anybody knows a way to acces an excell file in a sequential manner ? The only modules I found 'til know to access such files always load the entire file in the memory. This can be very upsetting in case of big files that you want to read only sequentially. Thanx for your help ! -- --

I have searched without success for a simple script that can read any text html file and extract the email addresses from it. I am not interested in spamming people. I play a sport that requires me to email people when I travel to find partners. Unfortunately only 20% are able to reply because their schedules don't mesh with mine. So this...

Hi all, I have a perl program which makes a user exit to the O/S (unix, solaris) to issue a O/S command. I know that the shell it invokes is NOT a korn shell, because I captured the shell info into a file with a 'ps' command. My question is "How to explicitly specify a Korn shell to be used by perl?" Eg of my perl code: ## Begin code...

Hi folks, I have a perl one-liner embedded in a ksh script. perl -pi.bak -e "s/val/otherval/" inputfile I'd like to check the return code to know if the substitution was successful. If I type: # perl -pi.bak -e "s/val/otherval/" inputfile

OK, I wanted to make a recursive fibonacci method in Perl, and I can't understand why it is not working, especially since I wrote the exact same thing in Java and it works. Here's the perl code: #!/usr/bin/perl sub fib { $num = shift; return 0 if $num == 1; return 1 if $num == 2; return fib($num - 1) + fib($num - 2);

Hi, Is there anyone out there that has done this successfully. The scenario is as follows: I need to install the Oracle DBD on a Solaris server that does not contain the database installation, The Database is installed on an HP-UX server. The Oracle version is 8.0.6.

Hello all: I am attempting to use a database program that I downloaded from http://www.thescripts.com/serversidescripting/perl/tutorials/asimpledatabaseprogram/database.txt with good success. I have already modified it heavily with good results. I am however stuck on something that I feel should have been built into it, but for some...

Hi, Is there a built in variable in shell scripts which will print out the include search paths, similar to @INC in Perl ? Wil "echo $path" also print include paths ? THewHIZkID

is there an equivalent to unixs' ps command in perl? i was writing some win32 scripts and i needed a listing of specific processes. i could perhaps grep through a list of running processes but how can i attain that through perl? thanks

Hi, I have a slight problem in that I want to list all the entries in a DBM file. I'm fine with sorting my the key, but I want to sort by one of the variables in the value - I know how to do all of it with the exception of specifying which variable is in the value: if the key-value pair consists of the ID (the key) and a load of variables...

I've got an extremely inscrutable problem here using Perl's Term::ReadLine::Gnu module. I'm using Perl 5.8.0, readline 4.3 and Term::ReadLine::Gnu 1.14. The problem is specific to catching INT signals while in the readline() function. In C, when I've set a SIGINT handler using signal(), it is immediately called (even in readline()) when I...

Hello, I have a script that needs to open a fat file > determine which lines represent lines say 251-260 (@billingnumber) and ($yes_row)> and which lines represent the ignored lines ($hold_row) > then do a bunch of stuff to the lines i want ($yes_row). The code below isn't finding the yes_lines. (probably if($billingnumber ne "$e_number"){...

Hello I wrote a simple mail filtering script using Mail::Audit. It works fine, but I'd like to overload DIE signal handler, so the script would not send back "Undelivered Mail Returned to Sender" with die output if there are any errors. It should just log exception mesg or mail it directly to me. I've tried $SIG{__DIE__} = sub { print LOG...

I am new to perl and taking over some scripts. I came across the following syntax that I don't understand: %%now_year%% and "../images/paintings/%%middle_painting%%" Is is an escape character of some sort?