Hello. How can I fix this line of code?

Hi, there. I am a perl newbie. I just was curious how I can convert this: $q -> start_form({action => $q -> url()}) . (Where url = www.domain.com) to turn url into www.domain.com/form.htm I don't know how to edit that line to do it Just figured I'd ask before spending hours trying to figure it

Re: Good CS Literature

Thanks guys/gals for all your replies... Yes, im focusing on Perl right now and maybe Java. I bought the Learning Perl by Orielly but I returned it after realizing thats its almost the same as perldoc/manuals... My problem with programming is that i dont know if im doing the right thing... Yes

Re: GENERAL REGEXP TIP NEEDED

On Dec 27, Papo Napolitano said: >/\<(br|b|\/b|a\s.*?|\/a|p|\/p)\>/ > >Now, how do I negate it? Using a negative look-ahead: m{<(?!br?|a\s|p|/[bap])(.*?)>} $1 will hold something other than "br", "b", "a ...", "p", "/b", "/a", or "/p". -- Jeff "japhy" Pinyan [EMAIL PROTECTED] htt

NET::FTP

What is the easiest way to set up NET::FTP to try a different server if the other isnt available? Thanks! Mike -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: GENERAL REGEXP TIP NEEDED

Same thing but use the !~ operator instead of =~. using /\<(br|b|\/b|a\s.*?|\/a|p|\/p)\>/; is the same as $_ =~ /\<(br|b|\/b|a\s.*?|\/a|p|\/p)\>/; To get a true answer only when the string do not match your regex, you need to do: $_ !~ /\<(br|b|\/b|a\s.*?|\/a|p|\/p)\>

GENERAL REGEXP TIP NEEDED

Hi all, I have the regexp /\<(br|b|\/b|a\s.*?|\/a|p|\/p)\>/ which works as expected, matching Now, how do I negate it? I mean, what would be the regexp to match every tag BUT those listed above? I'm really lost... TIA =) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

Re: Good CS Literature

Luke wrote: > > Hello people... Happy Holidays... > > This is my first post. Im a senior high school student and > about to graduate this year(lets just hope hehhehe).. Im just > wondering if any of you can recommend some good Computer Science > books that most universities use...my programmi

Re: searching a sub string

- Original Message - From: "Bob Showalter" <[EMAIL PROTECTED]> To: "'Lance Prais'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> > > -Original Message- > > From: Lance Prais [mailto:[EMAIL PROTECTED]] > > > > for(my $i=0; $i<22; $i++){}; #This will put > > you at row 23. > > A more

Re: sub to jump to begining of month

"[EMAIL PROTECTED]" wrote: > > Hi all, Hello, > as part of my program i want to jump from 00:00:00 on the > first of any > given month to 00:00:00 on the first of the next month. i wrote a subroutine to > calculate this. the relevent code looks like this > > [snip code] $ perl -le'us

RE: $1, $2, $3

> -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Thursday, December 27, 2001 4:09 PM > To: [EMAIL PROTECTED] > Subject: Re: $1, $2, $3 > > > HI, > > I have a question. > I want to extract all the information to the left of the last comma. > If there are

RE: $1, $2, $3

If I understand you right and you want everything before the last comma in $derer in the string $Source, I would use: if ($derer =~ /^(.*),/) { $Source = $1; } The first * is greedy and grabs everything from the beginning of the string to the last comma. -Original Message- From: [EM

RE: $1, $2, $3

"I want to extract all the information to the left of the last comma." There are a few ways... $derer = "Seattle, Washington, USA, NAME"; my @data = split(/,/, $derer); pop(@data); # data will now include each seperate part, but # you could optionally paste it back together... $derer = join(',

A socket timeout question

Hi all, I am working on a script to open smtp port connection. Somehow, I get problem to setup the timeout, my script just stuck for 5 or maybe 10 minutes before come back. Does anybody know a way to setup a shorter timeout while connecting, like 20 seconds? The following does not work for me. I

Re: $1, $2, $3

HI, I have a question. I want to extract all the information to the left of the last comma. If there are 3 commas I would like everything to the left of the third comma. $derer = "Seattle, Washington, USA, NAME"; ## I only need Seattle, Washington, USA if($derer =~ /(.*?),([.*?,]*)(.*)/g) {

Re: Perl Tk issue

On Thu, Dec 27, 2001 at 05:30:08PM +0100, Jorge Goncalvez wrote: > Hi, I wonder if the method update works on Windows because it seems > not to work, i must destroy my application and redraw it to have the > variables updated when for exemple a variable is associated at a > button. It's always w

A perl-cgi in php ?

Is it possible to include a perl-cgi in a php_file ? In a php file I dynamicaly calculate a png image. Having installed Perl-Magick, I want to calculate the signature of that image using a perl-cgi. Is this possible ? How must I do ? Thanks for response ... -- To unsubscribe, e-mail: [EMAIL PROT

RE: Good CS Literature

CS is a good field. There are many different approaches universities take to the study of computer science, so it is difficult to recommend specific books. I recommend learning one language really well. C/C++ is a good start. C is fundamental to any good CS degree. C++ will also give

RE: Win32 Process's

I picked up the book "Perl for System Administration", and it describes these type of projects to a "T". It is a great book, and it covers cross-platform, which is nice. Scott Lutz technical support Pacific Online http://www.paconline.net -Original Message- From: Matthew Mackey [mailto

Re: Good CS Literature

On 27 Dec 2001, Luke wrote: > Hello people... Happy Holidays... > > This is my first post. Im a senior high school student and > about to graduate this year(lets just hope hehhehe).. Im just > wondering if any of you can recommend some good Computer Science > books that most universities use..

Re: sub to jump to begining of month

You might have to use 'gmtime' for it to work. Try this too (tested): -- use Date::Tie; tie %date, 'Date::Tie'; %date = ( year => 2001, month => 8, day => 1, hour => 0, minute => 0, second => 0 ); print $date{epoch}, "\n"; $date{month}++; print $date{epoch}, "\n"; $date{mo

Weekly list FAQ posting

NAME beginners-faq - FAQ for the beginners mailing list 1 - Administriva 1.1 - I'm not subscribed - how do I subscribe? Send mail to <[EMAIL PROTECTED]> You can also specify your subscription email address by sending email to (assuming [EMAIL PROTECTED] is your email address)

Re: IMAPClient?

Thanks. Actually, that module is too simple. I need the ability to delete and then expunge messages. Good news is that I found the documentation that I needed for Mail-IMAPClient. I had no idea (told you I was new) that I could simply use "man Mail::IMAPClient" and get the documentation I need

RE:Perl Tk issue

Hi, I wonder if the method update works on Windows because it seems not to work, i must destroy my application and redraw it to have the variables updated when for exemple a variable is associated at a button . Thanks. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-ma

RE: sub to jump to begining of month

On Dec 27, Jeff 'japhy' Pinyan said: >Then please test it. Your missing the necessary And I'm missing the necessary "code is" after the "Your". -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan

RE: sub to jump to begining of month

On Dec 27, Hanson, Robert said: ># UNTESTED! Then please test it. Your missing the necessary use Time::Local; line. >sub nextMonth { > my $time = shift; > > # get date info for that time, increment month only. > my @date = localtime($time); > $date[4]++; > > # check for month out of b

RE: IMAPClient?

Most stuff pertaining to networking protocols are under the Net:: namespace. The module you want is Net::IMAP::Simple. Net:: modules on CPAN http://www.cpan.org/modules/by-module/Net/ Rob -Original Message- From: Thomas T. Veldhouse [mailto:[EMAIL PROTECTED]] Sent: Thursday, December 27

RE: sub to jump to begining of month

I'm not sure if I correctly understand the problem, but it seems that given the epoch time of a given month you want to get the epoch time for the next month. Right? Why not try this... # UNTESTED! $TestingTime = nextMonth($TestingTime); sub nextMonth { my $time = shift; # get date info f

RE: question regarding hash hash hash array

"Can't use an undefined value as an ARRAY reference at .." This means that it isn't an array ref, so there must be a problem elsewhere in your code. You can verify this by using Data::Dumper to print out some debugging info. use Data::Dumper; print Dumper $::alpha{'a'}{'b'}; This will print th

RE: searching a sub string

> -Original Message- > From: Lance Prais [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, December 26, 2001 7:16 PM > To: [EMAIL PROTECTED] > Subject: searching a sub string > > > > Am I understanding this correctly that if I put in the > following code the > result will be it will start

defining connections between QPushButtons and perl-subroutines

Hi All, i'm beginning to programm dialogues with a Qt-designed graphical interface. In my test program i have designed a calculator, and i wanted him to store a value when clicking a special button. But it doesn't work. Can you help me to find my failure? the source code looks like: $qApp = co

IMAPClient?

I am looking to find documentation on the API for the IMAPClient module. It seems nowhere to be found, and the examples included with the package are a litte thin. Can somebody lead me in the correct direction, or let me know a good way to figure it out? I am quite new to perl (although I am we

Re: Multiple implementations of an interface

Thank you so far. I have in mind the following:- ### control.pl use http qw(add_vhost delete_vhost mod_vhost restart_server); $q = new http; .. .. .. # # http-base.pm package http; sub new { # initialise logging } sub add_vhost { # log event } sub mod_vhost { # log event } s

RE: Good CS Literature

Learning Perl - O'reilly and assoc. is the best beginning programming book I have seen. Followed up with Programming Perl The other O'Reilly books seem to be good (i.e. Visual Basic for Applications) I've just started with Teach Yourself C++, and so far it has not been helpful at ALL. Maybe I

DBBROWSER

hi. do any one work with dbbrowser till now ?? http://www.summersault.com/software/db_browser/ http://www.gnu.org/copyleft/gpl.html thx. _

Good CS Literature

Hello people... Happy Holidays... This is my first post. Im a senior high school student and about to graduate this year(lets just hope hehhehe).. Im just wondering if any of you can recommend some good Computer Science books that most universities use...my programming skills is a little sca

Re: substitution

Frank McCollum schrieb: > > related question: I want to strip out any '*' symbols as well, and replace > them with a zero. So, I changed my code to reflect: > > $origFee =~ s/[%\*]/0/; > Of course, the best is what John W. Krahn has shown: $origFee =~ tr/*%/0/d; But your idea is possible, to

Re: Question,

Dan Hoggard wrote: > >Can anyone help me. > > I'm tring to include a view all members and delete member option in the > admin area for this script. > I have it going to a flat file, here. > open (FILE, ">>$cgiroot/data/address/members.txt"); > > How do I call it from this area and include

Re: searching through httpd.conf

Tyler Longren wrote: > > ... > I need to get whatever the ServerName is. Here's what I have: > open(APACHE_CONF, "/usr/local/apache/conf/httpd.conf") or die "Could not > open Apache config file:\n$!\n"; > my @servernames; > while() { > push (@servernames, $1) > if/ServerName\swww..(.*)/;