send data to a file.lib

t;; $number =$q->param('number'); ##in file.lib i have a sub called add_number add_number('$number'); ## file.lib does the following $newnumber=$number+1; print "$newnumber"; #end of script Is that the way we have to do it? Anthony -- To unsubscribe, e-mail: [

Javascript with DBI

Hi, does anyone know if Javascript can interact with dbi? not mysql Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Upload problem

Hi, i have the following thing, i know $picture and $pictures are not empty and has the path to the C drive But the script doesn't read the file i don't know why? $save_location is a good path. IF you know where is the error please tell me Thanx SCRIPT BELOW if ($picture =~ /([^\/\\]+)$/) {

file size

Hi, I have an upload script, and i want to check the file size before it uploads. Any suggestion is appreciated Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: file size

Hi, But i tried this i didn't $size= -s $filename but it didn't work, anyways i want my upload script not to upload files that are bigger than 250Kb Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

MIME::Lite need help

Hi, i have started to learn MIME::Lite and i have problmes for the sending part , i want my script to use the servers's default mailprog. This is how i did it(and i have an error) ## $to= param('to'); $subject=param('subject'); $text =param('text'); MIME::Lite->send("sendmail", "$mailprog -t

Saving Files on c:

s; close USER; Regards, Anthony Ward -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Saving Files on c:

Hi, I have an admin script and i want all STAFF to have the ability to save their files into their Home Computer on their C: or Floppy disk (A:) in case the webserver closes or crashes. SO that someone has the Files. Anthoy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands

Send attachment (but no MIME)?is it possible

Hi, is it possible to have a perl script sending e-mail with attachment without using MIME::Lite since most host don't have MIME::Lite.? Regards Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

unix redhat 7.2

Hi, does anybody have red hat 7.2 (pro/or not pro)? If so when you do perl program do you need internet connection to test your files? And how do you test your files? thank you Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

pass a variable trough another sub via a form

\n"; print <?? # is there anyother way?? } Best REgards, ANthony Ward -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: searching for a range of accented characters

"Michael Kavanagh" <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... Hi there, In a regular expression, \w doesn't match any accented characters (áéíóú)... does anyone know of a range or easy way I can specify matches on these characters? Any ideas would be very h

Creating Modules

Hello, I was wondering if someone could give me a link where i can learn how to construct Modules. Thank -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Pipe Help

Hi, what i'm creating is just an EXTREMELY script that sends an array to another script via PIPE. This is what i have: #! /usr/bin/perl @file = qw (tony boby zombie anthony martine eric charlie); open(SORT, "| perl sorted.pl"); while(@file){ chomp $_; p

Re: Pipe Help

Hi, i'm trying to learn pipe, so i need start somewhere i could of just say sort @file print @file and that is it but like i said i want to learn the mechanism of pipe Anthony "Anthony" <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:[EMAIL PRO

Re: Pipe Help

Hi, for the while loop i figure out before your answers, anyhow, my question was should i send the whole array or not? also is it possible to retrieve the data from the pipe or not? Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Pipe Help

Hi, But like i said on my second post i wanted to learn how to receive message from pipe. anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

.htpasswd

Hi, is it possible to create accounts, and say those people can only access the website from 7:15 to 8:00 on tuesday february 11 2003 ? Regards anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Shell command using Perl

would type GRANT .. But i didn't figure out how to do so with perl any help is appreciated anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Object-Oriented DBMS

Hi, I know an RDBMS which we can use with perl, this RDBMS is MySQL. But i'm trying to find an OODBMS where we can use perl with. Any advice is appreciated Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

creating module

Hi, is there a good website to create module if so can you refere me to it thanx anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Shopping cart 2

Hi, what if the customer does NOT use cookies, i think you should make a file foreach custom with their IP address. and another script that check every now and then if the files has not been active for two whole hours then delete the file. Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED

IO::Socket problem how to receive data?

ta. But I can send data to a perl program but I don't know how to translate it. Any HELP is REALLY appreciated. Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: IO::Socket problem how to receive data?

Hi, I've read the perl doc but it was not usefull any how i fixed it, what i was trying to do is to send data from a Visual basic program to a perl program, then from perl to a visual basic program thanx anyways guys, Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addit

socket network

server, and i just put the computer on a network. Before the network the programs could communicates Now the program on my computer the "client" can send data. But not receive because I just put on a network. So do you have any idea how can fix that problem? Anthony. -- To unsubscri

global variable

that all module can use the same variable, and i don't have to declare each time $cfg in the module. If I do "our $cfg", i can't get the variable in the module,I tried but i don't know how to get. Any help is appreciated. Anthony -- To unsubscribe, e-mail: [EMAIL PR

MySQL and perl using quotes

ally get problem with updating the table. any help with the query statment would be appreciated!! also I forgot to mention I tried $name = $dbh->("$name"); $text = $dbh->("$text"); I get an error it says it is not a CODE.**and i use $dbh to connect to database, so it is v

check size of upload file

Hi, when i upload a file to a website, I have the path C:\\pathtofile\\pic.gif to check the size I can do this $size = -s $file_path; but it does not work! any help is appreciated, because i don't want people to upload file to a website bigger that 500KB. Anthony -- To unsubscribe, e

Re: check size of upload file

Hi, java is not good, because you can easily modify the source and I don't like that. thanx again, Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: check size of upload file

Hi, actually what -s filepath does work!!, the error was in my sending form i misspelled enctype = "multipart/form-data" instead of doing multipart i wrote mulitpart. anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

SQL row number

? I would appreciate Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Math Trig

Hi, I'm looking for a module instead of working with radians i want to work with degrees, how would that be possible. Any help is appreciated Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

html smtp

Hi, I would like to know how to send via net::smtp to send html e-mails. any help is appreciated Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

smtp problem

Hi, I'm trying to send html message but i can't I have a variable called Message that is has an html page in it .. now what modification should i make to my code so it sends the data into html form Any help is appreciated CODE IS BELOW ## Create a new SMTP object # If you can't connect, don

Re: smtp problem

Hi, thank you Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: format

Hi, What has changed? from both sets? to me they are identical Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: format

Hi, disregards I see what you mean now. Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

need help

. So is there a way in which I can declare one time config.pl and it can go to all the module??? Thank You Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: how to remove last comma in file?

Hi, I have a question, what i do is if i have $string = "a,b,c,d,e,f,g," I just do chop $string; there is no while loop with this Would this be as good?? Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Malformed UTF-8 character with XML::Simple

#x27;s one of the regexps that is throwing the error: $parse =~ s###sig; (finds 'alt' and replaces with 'alt=""' in tags) Any ideas what is causing this? When I remove the use of XML::Simple and define the configuration variables in the script, the programs runs withou

Re: Help for a newbie..

Find some scripts that use the perl environment variables...also read the documentation from cpan.org on CGI.pm - CGI.pm is a very helpful perl module that should already be installed with perl. (i suggest picking up the "Learning Perl" book published by O'Reilly (check bookpool.com or fatbrain.c

Re: How do i set this?

foreach my $target (@targets) { print "current target is: $target\n"; } --- Tim Grossner <[EMAIL PROTECTED]> wrote: > I am using a for like so: > > for(@targets) { > ...stuff... > } > > What variable can I use to specify the CURRENT > target to operate on? > > for instance: > > for(@targets)

New to Perl

Hello, I'm completely new to perl, but have a good deal of experience with c / c++. I'm wondering if there are any good websites that will give me a basic introduction to programming in perl (data structures, etc). I've found references to a few books, but would like to gather some basic info fro

RE: A good book?

I saw on the FAQ that the "Perl 5 for NT in 21 Days" was recommended for learning Win32. Though not on the FAQ, is Lemay's "Per in 21 Days" book also worthwhile? I'm coming from a total non-programming background and was looking at these 2 books (along with the "Learning Perl for Win32" book) at t

Outlook Contacts

Is there a Module available that will let me read in a contacts list from an outlook .pst file, or off of an exchange server, make changes to it, and write it back? The area code in my state is changing, and it would be nice to be able to script this using a regex. Thanks in advance for any info

Install CPAN module in shared hosting

Hello, I like to install CPAN modulike like AI::Prolog, I have the Cpanel that have CPAN module installer, but my shared hosting does not allow some modules to be installed like this AI::Prolog, what can I do ? Should I install it in my computer first and then copy the PM files to my web host

locate install C code module

I had installed the Language::Prolog::Yaswi from http://search.cpan.org/~salva/Language-Prolog-Yaswi-0.14/Yaswi.pm but it is in C code implementation, normally when I install a perl module, it should be located at /usr/local/share/perl/5.8.8 but I can't see where is the Language::Prolog::Yaswi

Perl Serialize object as string

Hello everyone, I need to serialize an perl object to STRING TEXT, not scalar or file. The Storable module allow serialization to file and scalar variable, but this is not possible for passing between the perl and prolog program, that's why I need it to be string. I tried out the FreezeThaw modu

Re: Perl Serialize object as string

Thanks for the reply, I always thought that Dumper is used for debugging purposes, I will look at it deeper. Btw, what you mean by cyclic data ? - Original Message From: Chas. Owens <[EMAIL PROTECTED]> To: anthony brooke <[EMAIL PROTECTED]> Cc: beginner perl maillin

Fw: Perl maximum execution time

Thanks for the reply, but sometimes I don't know where is the code that cause the infinite loop. Is there such as thing as perl configuration file, to set the execution time for any code, any where in the program just like php.ini file. Thanks. - Original Message From: Chas. Owens <[EM

Re: Fw: Perl maximum execution time

: Perl maximum execution time From: anthony brooke <[EMAIL PROTECTED]> > Thanks for the reply, but sometimes I don't know where is the code > that cause the infinite loop. Is there such as thing as perl > configuration file, to set the execution time for any code, any where

Concatenate similar data in array

Hello, my logic is really bad, here is I want to do. my @list = qw(a b a a d e e ); I want to compact the array by concatenating the adjacent vowels and consonant together, like for the above it should become, my @list2 = qw(ab aa d ee); How do I get the @list2 ? Thanks. Send instant mess

initialize data permanently

Hello, I am using Wordnet::QueryData which allow access to a very huge dictionary data. The initialization of object my $wn = WordNet::QueryData->new; took 2 wallclock secs ( 2.36 usr + 0.07 sys = 2.43 CPU) Then the subsequent request for the data is exetremely fast For the lines below to

Initialize object permanently

Hello, I am using Wordnet::QueryData which allow access to a very huge dictionary data. The initialization of object my $wn = WordNet::QueryData->new; took 2 wallclock secs ( 2.36 usr + 0.07 sys = 2.43 CPU) Then the subsequent request for the data is exetremely fast For the lines below too

Re: Initialize object permanently

ere a work around of this with mod_perl ? Thanks - Original Message From: Rob Dixon <[EMAIL PROTECTED]> To: beginner perl mailling list Cc: anthony brooke <[EMAIL PROTECTED]> Sent: Saturday, May 17, 2008 0:47:52 Subject: Re: Initialize object permanently anthony brooke wrote:

No such file or directory

Hello, I know that this is a very common problem, but I am very sure that the file exist in that directory, also its permission is -rwxrwxrwx , why does it give such an error ? What are the other potential problems that cause this ? Thanks Send instant messages to your online friends http://uk

Re: No such file or directory

anthony brooke wrote: > Hello, I know that this is a very common problem, but I am very sure that > the file exist in that directory, also its permission is -rwxrwxrwx , why > does it give such an error ? What are the other potential problems that cause > this ? Thanks >

Re: No such file or directory

anthony brooke wrote: > Hello, I know that this is a very common problem, but I am very sure that > the file exist in that directory, also its permission is -rwxrwxrwx , why > does it give such an error ? What are the other potential problems that cause > this ? Thanks >

Re: No such file or directory

- Original Message From: Jeff Peng <[EMAIL PROTECTED]> To: Perl Beginners Sent: Wednesday, May 21, 2008 15:53:00 Subject: Re: No such file or directory > open(RULES, 'rule.pl') please use full path if you don't know where you are exactly. On Wed, May 21,

HTTP

Any help for a script downloading files from a http site? Tony Esposito Oracle Developer, Enterprise Business Intelligence XO Communications Plano, TX 75074 Work Phone: 972-516-5344 Work Cell: 972-670-6144 Email: [EMAIL PROTECTED]

Using variables to store statements/formulae in perl

rint $formula{"Addition"} . "\n"; print $formula{"Subtraction"} . "\n"; print $formula{"Brackets"} . "\n"; -- Code Ends -- Thanks, Anthony Murphy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Issue reading password from STDIN after STDIN was read from redirect.

I've have a program that reads input from STDIN like so: example: program < file.txt and then I try to read a password from STDIN that the user types in but it skips right over that section. Do I have to do anything to STDIN before I try to get user input from it? Perhaps close and reopen it?

Re: What is the function of BEGIN in perl

g/> <http://learn.perl.org/first-response> -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html

executing block on

s work, but with PRE-STDIN, POST-STDIN functionality? Thanks, -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: executing block on

On 5/1/06, Mr. Shawn H. Corey <[EMAIL PROTECTED]> wrote: On Mon, 2006-01-05 at 16:28 -0700, Anthony Ettinger wrote: > I'm tracking execution time of a bunch of scripts, and want to drop in > "tracker.pl" into each script...the problem I'm faced with is if a >

Re: executing block on

Thanks, I'll look into this...looks good so far though. I can just stick my @t = times; print join("\n", @t), "\n"; at the bottom of the script. On 5/1/06, John W. Krahn <[EMAIL PROTECTED]> wrote: Anthony Ettinger wrote: > > I'm not trying to benchma

using "our" across blocks

perseded by "our" declarations, available in Perl v5.6.0 or later. See "our" in perlfunc. -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: using "our" across blocks

On 5/2/06, Jay Savage <[EMAIL PROTECTED]> wrote: On 5/2/06, Anthony Ettinger <[EMAIL PROTECTED]> wrote: > I want to double-check that it is correct to use "our" to import globals. > [snip] What do you mean by import? Variables aren't imported from BEGIN blocks.

Re: using "our" across blocks

On 5/2/06, Charles K. Clarkson <[EMAIL PROTECTED]> wrote: Anthony Ettinger wrote: : #!/usr/bin/perl -w : : use vars qw($foo); #globals; : use strict; : : sub foo { : $foo = 'foo'; : my $baz = 'baz'; : } : : my $baz = 'pre-baz'; : foo(); : :

Re: using "our" across blocks

. On 5/2/06, Charles K. Clarkson <[EMAIL PROTECTED]> wrote: Anthony Ettinger wrote: : #!/usr/bin/perl -w : : use vars qw($start_time $end_time); : use strict; : : BEGIN { : $start_time = time(); : } : : sub log_time { : my $exit_code = shift; : my $elapse

Re: regex..gah

) = $string =~ m/^(.*?)@/; if (substr($line,0,5) eq "From:") { }, but i want to get past the phase of if ($line =~ m/^From:/i) { do something with "From" line; } -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Create Directories

itional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: sub never called

;] ); $res = $mesg->count; $mesg = $ldap->unbind; return $res; } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- Anthony Ettinger Sig

Re: Running perl from perl?

eed for shebang line here). require('/path/to/foo.pl'); foo(); # call main::foo sub routine defined inside foo.pl -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: What are the most successful applications of Perl? Thanks.

On 5/23/06, John W. Krahn <[EMAIL PROTECTED]> wrote: Japerlh wrote: > What are the most successful applications of Perl? http://www.oreillynet.com/pub/a/oreilly/perl/news/success_stories.html movable type is one that I know of off hand. -- Anthony Ettinger Signature: http://chovy.d

Re: What are the most successful applications of Perl? Thanks.

ebay.com started out as a perl, but it's been revamped as java for a few years now. -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://

Re: What are the most successful applications of Perl? Thanks.

...course everybody uses perl here and there for batch processing :) On 5/23/06, Anthony Ettinger <[EMAIL PROTECTED]> wrote: ebay.com started out as a perl, but it's been revamped as java for a few years now. -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html

Re: GnuPG again: problem with if statement evaluation

us: $encrypt_status\n"; What am I doing wrong? Thanks, --J(K) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: GnuPG again: problem with if statement evaluation

ps...you're checking if it has a value, 256 (a typical error return code) would pass that test. On 5/25/06, Anthony Ettinger <[EMAIL PROTECTED]> wrote: check $? or $! $gp->foo() or die "$!"; my $output = $gp->foo(); print "return code: $?"; see p

Re: accessor problem in OO

is > actually an object $self. ) Hope this helps PC -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Escaping a plus sign

pe this character so in the future it won't kill the script? Thank you, -- Paul Nowosielski -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- Anthony Ettinger Si

Re: searching word in script

ot;match found"; } else { print "match not found"; } } close FH; Following is the error readline() on closed filehandle FH at C:\irfan\search.pl line 13. can anybody plz help Regards Irfan Sayed -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html

Re: Multiple Page Scrape

To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: What are the problems with my CGI script

you want a default value. Setting it as empty is still a value, so you potentially could have empty values in your database. if (defined($name)) would be better, but can be rather cumbersome. -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL

Re: reading Perl syntax

ackage Foo; return $self; } sub getFooKey { my $self = shift; return $self->{'fookey'}; } sub setFooKey { my $self = shift; if (@_== 1) { #if there's another param, set that as the value $self->{'fookey'} = shift; } return $self; } 1; -- Anth

Re: reading Perl syntax

just execute it with "perl -wl foo" or add the shebang line: #!/usr/bin/perl -w On 6/6/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: "Anthony Ettinger" <[EMAIL PROTECTED]> writes: > The syntax {} is for a hashref, it's just an un-named hashref ins

Re: reading Perl syntax

There's a good book "PHP5 Patterns and Object Oriented Programming" which I found very instrumental in my understanding of object-oriented programming, before applying it to Perl. There are of course Perl books on the subject, and the perldocs, but I found PHP's object oriented support to be les

Re: regex to match a range of numbers?

date =~ m{(Wed)\s(Jun)\s{1,2}([1..31])}; __END__ -- Joshua Colson <[EMAIL PROTECTED]> iNation, LLC -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: OO Perl question

ide with pre-existing tables. I've found this to be the best way to ensure not dropping tables on accident, especially if you load an sql file with "drop table foo if foo exists". I almost did that at work the other day on a table with 1 character diff in the name (i was lucky

Re: OO Perl question

On 6/8/06, Graeme McLaren <[EMAIL PROTECTED]> wrote: Hi Anthony, good idea about overriding the table names. I had a feeling there would be a conf file somewhere. As I am outputting the results of the SELECT to an HTML::Template I am already using a Conf file which is another class.

Re: OO Perl question

my ($option) = $_ =~ s/(.*?)#/; #skip inline comments should be m//, not s// On 6/8/06, Anthony Ettinger <[EMAIL PROTECTED]> wrote: On 6/8/06, Graeme McLaren <[EMAIL PROTECTED]> wrote: > Hi Anthony, good idea about overriding the table names. I had a feeling > there wo

Re: Yet another OO question

---END PGP SIGNATURE- i prefer the return once method: sub foo { my $self = shift; if (@_ == 1) { $self->{'foo'} = shift; } return $self->{'foo'}; } -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Yet another OO question

On 6/8/06, Mr. Shawn H. Corey <[EMAIL PROTECTED]> wrote: On Thu, 2006-08-06 at 10:56 -0700, Anthony Ettinger wrote: > i prefer the return once method: > > sub foo > { > my $self = shift; > if (@_ == 1) { $self->{'foo'} = shift; } > > retur

modifying @INC permanently

Is there a way to modify @INC for the perl installation as a whole? All my scripts have logic to push the same directory to @INC. It's rather repetative. I know I can export PERL_LIB environment variable, but I need something for all system users (including win32). -- Anthony Ett

Re: modifying @INC permanently

hes the path to @INC accordingly, based on path names. I tried File::Spec, but use lib won't take a variable as it's evaluated before runtime, so that left me with push. -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] F

Re: modifying @INC permanently

cp myMod.pm to /my/path/ ?? -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Yet another OO question

On 6/8/06, Lawrence Statton <[EMAIL PROTECTED]> wrote: > > I would prefer it to return the old value: > > > > sub foo { I see...I i've been more or less looking at the current state $curr = $foo->bar(); $old = $curr; $curr = $foo->bar('new value&#

Re: How to bind values in "IN" value

$result->execute(@$userid); You declared an array @userid, not an arrayref, so you don't need to dereference it. $result->execute(@userid); should do the trick. -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

Re: Problem installing captcha

ages/m.png cp Captcha/images/r.png blib/lib/Authen/Captcha/images/r.png cp Captcha/images/t.png blib/lib/Authen/Captcha/images/t.png cp Captcha/images/background1.png blib/lib/Authen/Captcha/images/background1.png Manifying blib/man3/Authen::Captcha.3 /usr/bin/make -- OK Running make test PERL_DL_NONLAZ

Re: subroutine?

-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- Anthony Ettinger Signature: http://chovy.dyndns.org/hcard.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additiona

  1   2   3   >