Re: How to install modules without ppm3 ?

This should tell you all you need to know (to do with installing modules anyway ;) http://search.cpan.org/~jhi/perl-5.8.0/pod/perlmodinstall.pod HTH Angie On 8/1/05, Clement <[EMAIL PROTECTED]> wrote: > O... sorry, forgot to mention, Yes, I am using Windows. > Any helps ? =) > > Thanks! > Clem

searching an array reference

Hi List I've got a way to do this but I thought someone more experienced than me might have a better way. I have a class that is a hash and one of the hash values is an array ref. I'd like to search that array and push to it if a value isn't there. At the moment I'm dereferencing the array, sear

enter password for su through a script

Hi I'm hoping someone can point me at the right manual/commands I'm trying to work out how to copy a directory (and contents) owned by one user (user1) into a directory owned by another (user2). user1 is user admin and group wheel BTW. The user the files are being copied to is more restriced. The

finding the right non printing non word character

Hi guys I'm trying to find a character for use in a regex pattern that is non printing and non word. I've been using \0 and \xFF as a means of marking up and splitting a string but have just found out that the regex engine thinks that they are word characters, as in being matched by \w I need a

Re: Baffling unicode wierdness

On 5/19/05, Randy Kobes <[EMAIL PROTECTED]> wrote: > On Wed, 18 May 2005, Jay Savage wrote: > > > On 5/18/05, angie ahl <[EMAIL PROTECTED]> wrote: > > > I can confirm that it's happening before the data's gone > > > to the database or anythin

Re: Baffling unicode wierdness

if had been decoded leading me to think the form hasn't been passed as utf-8 . Any clues. anyone? On 5/18/05, angie ahl <[EMAIL PROTECTED]> wrote: > Hi List > > I've been pottering away trying to get utf-8 behaving on my set up and > have nearly got ther

Baffling unicode wierdness

Hi List I've been pottering away trying to get utf-8 behaving on my set up and have nearly got there but then the client phoned up saying that the £ symbol was being displayed as a ? The first page contains several languages and a £ sign and all is displayed fine. http://perl.wtsbroadcast.com/ab

changing permissions in order to write a file in Mod_perl

I'm sending this question to the beginners perl list and the mod_perl list as I'm not sure where it belongs. In short: I'm trying to work out how to create a directory/file under a specific user. This is running on MP2 on Apache2 with suexec enabled. The vhost has: SuexecUserGroup myuser

Re: regex lying to me

Thanks I know that there are metachars in the result. non printing chars that I need to leave there until a later part of the processing. I don't get why this would affect the result though. Cheers Angie > On 4/19/05, angie ahl wrote: > > The following regex is fai

regex lying to me

The following regex is failing strangely: my @tables = $content =~ m#\[table\](.*?)\[/table\]#g; foreach (@tables) { my $table = $_; if ($content =~ m#$table#) {print "yes old table is there!\n";} } @tables contains 2 items (correctly) but s

Regex Unicode Bug?

Hi list. I wonder in anyone would mind confirming this for me: I've just spotted a strange behaviour with unicode and regex in perl 5.8.1 as documented in the following script. $junktext is a string of unicode characters containing 3 smilys. 1 smily is at the end of the string. when doing a reg

Is an Array

Hi Scouring the books to try and find this, but it's evading me. How can I test whether something is an array. ie I have a hash and some values are anon arrays and some are strings. I want to test to see whether one is an array and then traverse it. Cheers Angie -- To unsubscribe, e-mail: [EMAIL

A ref too far: assign an array ref to an array ref to a hash element

Hi people I'm trying to create a hash of arrays of arrays and I'm having a mind twisting time with references. my $key = "some_varying_text" my %pathhash; my @link = ($LinkUrl, $LinkTitle); I'm trying to set $pathhash{$key} to an array that contains the array @link. ie there will be multiple @li

Re: weird math

On 28 May 2004, at 04:31, Andrew Gaffney wrote: I am writing a program to parse a CSV file downloaded from my bank. I have it keep a running balance, but I'm getting a weird total. Apparently, -457.16 + 460.93 = 3.769998. But when 20 is subtracted from that, I get -16.23. There are no we

Re: What exactly is this simple regex doing?

I see people have explained the regex itself but not how it's doing what you want. It's actually removing everything up until a dot is found s/// is used to find and replace so this little regex is searching your string eg http:://www.domain4you.com finding everything up until a dot is found i

Re: untaint path

Hi Gary That was it. so using the result of a regex test gets around it.. That's a wise practice. I new perl was being mean just for fun. that *so* not perl Thank you so much. Angie Okay Angie, try this one, taken from the docs. It works because I'm setting $PATH to an absolute value inst

Re: untaint path

Hi Gary thanks for that. Makes sense. Sadly didn't work though: Here's some sample code: my $HTML_Path = ""; if ($arg{HTML_Path}) {$HTML_Path = $arg{HTML_Path};} $HTML_Path =~ s#^(~|../)##; my $newdir = $HTML_Path . "/usr/" . $un; mkdir $newdir; If I comment the line passing the arg{HTML_Path}

untaint path

Hi everyone. I'm trying to work out how to untaint a path to passed to modules. eg/stupidly/long/path/here contains the folders perl and html I want to be able the get the following ENV var from apache like so: local our $HTMLPath = $ENV{HTML_TEMPLATE_ROOT}; And pass it to a module so it can

Re: Subroutine and @_ confusion

Thanks Will & Bob. using $class->FindLink(LinkID => $LinkID); has fixed it. I needed to use it for every internal call to a subroutine within my package and I'm now getting exactly what I needed. For the archives purpose, use &subroutine_name instead of $class->subroutine_name passed the @_ th

Subroutine and @_ confusion

Hi People I'm trying to get a grip on passing @_ to subroutines. Or rather NOT passing it. I have a package: sub HLOM::Links::new { my ($class, %arg) = @_; my $userid = 0; if ($arg{userid}) {$userid = int $arg{userid};} bless { _UserID => $userid,

Re: Passing array as First argument

I must chime in. I've been learning perl for pretty much exactly a year now. I Still feel like a newbie. I haven't yet got to the chapters on Prototypes and Inheritance, I've read about the concepts but not yet applied them. I've been using subroutines and modules quite a bit and references r

Re: putting $1 into a var

Thanks to everyone who helped me with this one, I had a deadline to meet that is now met. It was a missing ~ and me failing to use s on the end of my pattern may be of use to other users but for some reason my Linux server needs s///s; to match over newlines and my OSX set up doesn't, that didn'

putting $1 into a var

hi people I'm trying to get the value of $1 into a var, the following don't work and I can't figure out why $_ = $html_body; my ($resrow) = m#(.*?)#; #print $1; print $resrow; $resrow holds nothing, however if I print $1 I do have a match $_ = $html_body; m#(.*?)#; m

While or For

Hi list I keep getting hung up on deciding whether to use for or while for loops. Is one any better than other for straight forward loops, ie where you don't need next or last. Cheers Angie -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: references and objects [Solved]

I changed my code so the variables aren't references; sub EventList { my ($class, %arg) = @_; # load of code here return ([EMAIL PROTECTED], $startdate, $enddate); } And then called it like so: my @tempres = $event->EventList(skip=>0, max=>10); my $EventList = @tempres[0]; m

Re: references and objects

Sorry I forgot to mention that the package IS an object ;) on 14/11/03 angie ahl said: >Hi everyone > >I'm failing to find something in the manuals (or at least the bit I'm >missing ;) > >I have an package called "Event" > >in it I have a subroutine c

Re: traversing a variable with regex instead of a file

on 2003-10-10 James Edward Gray II said: >Keep your replies on the list, so you can get help from all the people >smarter than me. ;) If there are people smarter than you out there I must be an amoeba ;) >Okay, why put this inside an if block. If it doesn't find a match it >will fail and do

Re: traversing a variable with regex instead of a file

>Or did you mean, how would you go through a variable's content >line-by-line? For that, try something like this: > >my @lines = split /(\n)/, $data; >foreach (@lines) { do_something() if /pattern/; } >$data = join '', @lines; > >Hope that helps. > >James That's exactly what I meant, sorry didn'

traversing a variable with regex instead of a file

Hi everyone This is my first posting to the list, although I've been burried knee deep in perl books for some time and have been doing web development in other languages for some time. I'm working with Mod_perl on Apache on Linux. I have a simple question (I think ;) I keep seeing pattern match