Perl Forum

Hi Folks, I am facing problem to to execute .sql command in sql prompt using perl script. I am able to connect sql promt using " my $odbcinput = "odbcinput.txt"; my $odbcoutput = "odbcoutput.txt"; open (ODBCSQLFH, ">$odbcinput") || die "Unable to create input file ($odbcinput) for odbcsql\n";

Hello everyone! First, I appologize if this posting isn't proper "netiquette" for this group. I've been working with perl for almost 2 years now. However, my regular expression knowledge is pretty limited. I wrote the following expression to take (hopefully) any _reasonable_ phone number input, and format it as (999) 999-9999 x 9999.

How can I fix the error "Can't call method "id" on unblessed reference" for the following code? sub language{ my $self = shift; if (!$self->{LANGUAGE}) { my @language = (); my $statement = $db->prepare("select languageId, languageName from language"); $statement->execute();

The PERL statement I use to open a text file looks like this: open(HANDLE, $filename); Now how can I get the "last modified" date of that file? I need a solution that works the same under Windows or Unix. - Rich

Originally, I was using $value =~ s/<.*>//g; to strip HTML tags from a variable. It actually stripped everything from the first "<" to the last ">" after the ending tag. I found this regex in this group: $value =~ s/\<+\>//g;

There is a web page that I access frequently and would like to automate the authentication of the username and password. I would like to user a perl script but I'm not really sure about the steps. If someone could point me in the right direction. I don't know if it's this simple but wouldn't it just be a matter of using the LWP module. ...

Perl Experts: open(INFILE, $filename) or die("Cannot read input file: $!"); #How can I use this while loop to scan/read numbers from three lines and #find the smallest number ? while ( <INFILE> ) { @words = split(); last;

Easy one for all you Perl gurus out there. I'm opening a text file, reading the contents into an array, doing some processing and spitting out the results to another file. Although I've got this working fine, I had to employ a workaround when opening the file originally. I wanted to put: open(INPUT, "d:\pscripts\input.txt") or die "Could...

I'm having some problems with installing modules with the MCPAN shell. When I first ran it I let it auto configure and now I cannot install anything. Is there a way I can force it to run the configure script again?? Thankx...

I only work in Perl occasionaly, and have been searching for a solution for a conversion, and everything I found seems much too complex. All I need to do is take a simple text file and copy it, however some specific lines are in fact in UTF8 as printed garbagy characters and they need to be converted to Unicode, so that the new text file...

i want to count the no of variables that are same in an array please help me out

Hi, I have seen that some modules which are available on CPAN are not listed in ActiveState repository. So those are not available to install by using ppm. I find out the way of adding adding repository in ppm given below, Way to add repository: To use these package repositories you start PPM and at the prompt type set repository NAME...

I am a new perl programer and I meet a question. I have a perl file test_1.pl like: #!/usr/bin/perl sub Test; sub Test { printf "==========================Hello, perl.\n"; return 0;

I'm getting the following error: Software error: Can't locate object method "new" via package "A::B" at /path/file.cgi line 5. My code is basically this: #!/usr/bin/perl -w use strict; use warnings; use A::B; my $test = new A::B;

Hello All, I am very new to perl.I am a java person. I have to read xml file in perl script and use those values in that file. So can anybody please help me to solve this xml parsing in perl file. Thankyou in advance.

Hi.. what is the maximum size of an array and variable? With the following declaration: my $size; my @rx_array; what is the maximum number that $size can hold? what is the maximum number of elements @rx_array can hold?

Hi All, Can anyone help me how to give multiple conditions in a while loop in perl. For example i have a while loop for which the value of a variable is A or B it should not enter in to the while loop. Basically i need the condition in the while loop should contains "||". Is it possible? If not can anyone suggest me an alternative

What is the difference between for the following methods. "GET", "HEAD", "PUT" or "POST". Ex:my $req =HTTP::Request->new(GET =>$url1); Bhuvan.

Hi, I try to go through a directory and it's subdirectories to reah the properties of each files. But I have a problem to set active the directory where the files are, in order to display their properties. If anyone know how to improve my method, or know a better one, he's welcome :-) Thanks,

I am just starting to learn Perl. I had an idea that there should be free open-source Internet Cafe management software for Linux. I searched around online but couldn't find anything. The program would be appealing to anyone wanting to offer Internet access to their customers, from Internet Cafes to hotels. Who wants to pay hundreds or...

I can't figure an expression needed to parse a string. This problem arrises from parsing Excel csv files ... The expression must parse a string based upon comma delimiters, but if a comma appears in double quotes it should not be used for parsing. For example in the simple case we'd have : $a='hello,brave,world';

Hi all, I've been working on a problem that I thought might be of interest: I'm trying to replace some korn shell scripts that search source code files with perl scripts to gain certain features such as: More powerful regular expressions available in perl Ability to print out lines before and after matches (gnu grep supports this but is...

I want to execute a unix time command using perl, and capture the output (specifically, the time it takes the command to execute). i tried using the system command: system("time command "); however, when i try to capture the output, the capture output does not contain the amount of time it took to execute when i try to do: $var = `time...

Can someone guide me how to write a code to open a 'new folders' in PERL from a drop down menu.

I'm working through the examples in Jeffrey E. F. Friedl's book 'Mastering Regular Expressions, 2nd Ed.'. I'm trying to work the example at the top of p. 53, but I'm attempting it in a command prompt window (I'm using Windows 2000 pro). I enter: perl -p -i -e 's/sysread/read/g' substitute.txt I get this error message: "Can't do inplace...