Global variable - No of hits counter

Hi, In my mod_perl (Authentication module). I have global variable defined as follows use vars qw( $SESSION_CLEANUP_COUNTER); $SESSION_CLEANUP_COUNTER=0; my intention is to count no of times it is getting executed by clients (no of hits). I am incrementing it within Authenticate method as follo

Re: Global variable - No of hits counter

ome/lalitha/mod_cas/sessions',delta=>120, verbose => 0) -> expire_file_sessions(); --- "Mumia W." <[EMAIL PROTECTED]> wrote: > On 01/21/2007 04:55 PM, tom tom wrote: > > Hi, > > > > In my mod_perl (Authentication module). I have

wheelmouse

hello dont know if its the right place to ask such a question please pardon me im actually practicing perl/tk how can i make my wheel mouse to works with scrollable text/entry ... widgets ?? any help will be greatly appreciated tom -- si quelqun peut me dire comment avoir son propre

What just happened

Tom -- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ---

Merging YAML nodes/streams

could merge them? Cheers, Tom -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: Merging YAML nodes/streams

On Fri, May 07, 2010 at 12:44:01PM -0400, Bob McConnell wrote: > From: Tom > > > I'm having trouble merging YAML streams. > > > > Basic premise is that I load multiple YAML files and I want to combine > > the result. There may be common elements within subsequ

Re: Merging YAML nodes/streams

is better to merge the top level/hash array and have the previous value over written. Then new values are appended. For those interested the solution was very easy: CODE my %merged = {}; sub merge { while (my $ref = shift) { my $k; my $v; # print $ref;

How to extract the Destination address from a UDP package

sorting to the RAW packet format. As always any help is greatly appreciated. Thanks Tom -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: SOS - perl script

for that matter, bash and 'tr' might do this as well? On 5/8/2007, "Jeff Pang" <[EMAIL PROTECTED]> wrote: >Squid log format is strict.Try to do, > >s/\s+/,/g; > >on each line. > > >2007/5/8, Craig Schneider <[EMAIL PROTECTED]>: >> Hi Guys >> >> Following is a log file extract which

Re: forking problem with dbd::mysql

I started here and I didn't read the rest of the many posts. I tried this too under a variety of database and I think it comes down to this: You can't fork and network or other type of connection and expect reality to remain continuous. If I create an object that has a reference to single

Re: forking problem with dbd::mysql

create the database connection after you fork(). On 5/9/2007, "Chas Owens" <[EMAIL PROTECTED]> wrote: >On 5/9/07, Jeff Pang <[EMAIL PROTECTED]> wrote: >snip >> This is the reason really.I was also confused for this case once. >> Thanks for Chas's explain. >snip > >Knowing what is happe

Re: forking problem with dbd::mysql

This is an interesting point, but I think a database might be more similar to a network socket than a file handle. I have this same observed behaviour under Oracle and PostgreSQL, so it's not limited to mysql (and shouldn't be fixed with mysql specific flags). On 5/9/2007, "Jeff Pang" <[EM

Re: still working with utf8

>Yes, be prepared for the fact that not all foreign languages will >support the concept of spaces between words. I don't know anything about >Japanese, but I do vaguely remember from high school that, for Chinese >texts, there are often no spaces between words and the reader's >knowledge of th

Re: still working with utf8

On 6/22/2007, "Tom Phoenix" <[EMAIL PROTECTED]> wrote: > >On 6/21/07, Tom Allison <[EMAIL PROTECTED]> wrote: > >> I guess my question is, for CJK languages, should I expect the notion >> of using a regex like \w+ to pick up entire strings of te

storage types for big file

Hello I have a big file after making changes in ram I need to write it back to disk. I know for text file store it's written line by line. But is there any better storage type for high performance read/writing? maybe binary? Thank you. -- Sent from https://dkinbox.com/ -- To unsubscribe,

Sun Education Perl Training

aken this class, and if there are any opinions on it? Thanks, Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <[EMAIL PROTECTED]> # MPEG 2 PS VOB file on stdin -> descrambled output on stdout # arguments: title key bytes in least to most-significant order $_=&

Re: Sun Education Perl Training

worthwhile). Or am I wrong in that? Thanks, Tom P.S. - I'm basically hoping to get out of this a week of "only Perl", as opposed to trying to go through the O'Reilly books while people come up to me with different problems. -- #!/usr/bin/perl -w # 526-byte qrpff, Keith

Re: Sun Education Perl Training

Take the Sun Education class which is only 10 minutes from my house. ;p Tom *** REPLY SEPARATOR *** On 6/8/2001 at 7:40 PM Peter Scott was rumored to say: >At 11:56 AM 6/8/01 -0500, Tom Yarrish wrote: >>Randal, >>I actually looked at Stonehenge (I would have

SunEd Perl Class - Day 1

d in Perl (I just don't have the time to read all my O'Reilly books on my own). Of course, I'm sure the Stonehenge Training would be better, but they have to set up shop in Chicago ;p Thanks, Tom #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <[EMAIL PROT

map function has me confused!

ust have the feeling that I'm missing some vital information, somehow :( Thanks in advance for the help ;) Tom Watson

RE: map function has me confused

push @bar, $temp; } to end up with @foo (as above) and @bar: "element 1", "element 2 " and so on. I was thinking it might be possible to do this in one line using map..? Tom Watson

Re: map function has me confused

to Amazon is called for! Thanks for your help - I *think* I have a better understanding of map now ;) Tom Watson -- Go to: www.abaselivemusic.com

I feel like an idiot...

another filehandle once I get this working $item = /^\d{3}/; # Here's where I'm stuck $hash{$item} = "Offline"; } I know the $item = etc line is wrong, but I can't think of what it should be. I don't want the entire line, just the three digits. Also, the 3r

Re: I feel like an idiot...

(note: WHen I print out the keys I separate them with a :) There's no number at the beginning. I went through the file it's reading, and I can't figure out where it's getting that line from. Is there an extra line being added to the hash? Thanks, Tom -- #!/usr/bin/perl -w #

Re: I feel like an idiot...

I mean I do this: foreach $value(keys(%hash)){ print "$value is $hash{$value}\n"; } SO the output would be like: 305 is Offline 309 is Offline is Offline 900 is Offline I can't figure out where the " is Offline" is coming from. Thanks, Tom -- #!/usr/bin

Re: I feel like an idiot...

Putting the regex as an if statement fixed the problem. Although I could have sworn I had tried that earlier and it didn't work. Thanks all for the help Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <[EMAIL PROTECTED]> # MPEG 2 PS VOB fi

Re: Advice for Perl Class

x27;t afford it, I didn't think the Sun Perl class was that bad (although some people would probably disagree with me). Thanks, Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <[EMAIL PROTECTED]> # MPEG 2 PS VOB file on stdin -> descrambled output on

Net::Telnet

to the Xmenu.pl program $session->cmd("1"); # and this $session->cmd("y"); # and this Thanks, Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <[EMAIL PROTECTED]> # MPEG 2 PS VOB file on stdin -> descrambled output on stdout # argume

RE: :Telnet

Check your prompt regex. I had a similar problem, I ended up changing my prompt value to /.*$ $/ and it worked. Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <[EMAIL PROTECTED]> # MPEG 2 PS VOB file on stdin -> descrambled output on stdout # arguments:

My mis-understanding of if/else?

any pattern matching for the rest of the line? I basically just need it to see this error (which if there's a problem will be the last line in the log file) and then I have it do something once it exits the loop. Thanks ahead of time, Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith W

Re: My mis-understanding of if/else?

hould have said the first time, I did make sure that the $status variable had the regex in it (doing the print "Foo: $status" example). It just started happening once I added in the else part of the section. Thanks, Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowi

Re: My mis-understanding of if/else?

Well, if the tail filehandle acts like a regular tail on the command line, then no. The first line in the tail does not contain the pattern, the second line does. Here's what the tail on that log looks like: INFOR 05:02:00AuthData=() WARNG 05:02:00 VCI_Login : TECH_VCI_ERROR 0

Re: My mis-understanding of if/else?

Chas, Thanks, that fixed it (the tail -1). Could I also have put a g at the end of the regex? Thanks, Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <[EMAIL PROTECTED]> # MPEG 2 PS VOB file on stdin -> descrambled output on stdout # arguments: title key

Date in NT?

Hey all, Okay, new script, quick question. On Windows NT (comments aside), how would one accomplish the following? (this would be on Unix) $date = `date +"%Y%m%d"; I need to pass the current date to a variable to use later in a script. Thanks, Tom #!/usr/bin/perl -w # 526-

Some help with a script

ption $day and $month\n"; return($month,$day); } else # This handles the rest of the days of the month. Note we have to increment the # $month value, because by default it is returned as the current month - 1 { $day = $day - 1; $month += 1; return ($month,$day); } }

Re: Some help with a script

Thanks for the help. Just as a side note, the check for $days being less than one was after I put the first version in production. I had the day value being subtracted somewhere else, so the first of the month because 0 instead of 28, 30, or 31. Which is where the subroutine came to be. On Mon

Re: Some help with a script

? Thanks, Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <[EMAIL PROTECTED]> # MPEG 2 PS VOB file on stdin -> descrambled output on stdout # arguments: title key bytes in least to most-significant order $_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a=

Log File move script revisited

s the 11th, the log file will be 20010711.log, which is not what I want). Can anyone give me some ideas on why this might be happening? Thanks, Tom (This is the script on the production box) #!/usr/bin/perl -w use strict; use File::Copy; # This section defines the different log

Can't seem to get my match to work...

I'm running perl version 5.005_03 and I have a simple match and capture that I can't seem to get to work. while () { $strip = /\w+/; print "$strip \n"; } This just returns to me a 1. Which makes sense to an extent, for if the match is found then it will return a 1 for "true". Bu

Still can't get this !@#$%^&* to work

0, 31, 30, 31, 31, 30, 31, 30, 31 ); $day = $days[$month - 1]; return ($month,$day); } else { my $adjust = $day - 1; $month = $month+1; $day = $adjust; return ($month,$day); } } Thanks, Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Win

stupid question

out why. The script is very simple: #!/usr/bin/perl print "Hello World!\n"; Can someone please help this helpless newbie?? Thanks in advance! Tom -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: stupid question

Ok -COOL - it worked... Thanks for such speedy assistance!!! Just one more silly question... Why do I have to have the .cgi extension? when I tried it with the .pl extension, i got a 403 forbidden tom -Original Message- From: Scott Carmichael [mailto:[EMAIL PROTECTED]] Sent: Friday

RE: stupid question

Apache 1.3.19 >Also remember to ALWAYS use strict and -w, no matter how trivial the script. Ok - I will, but why is it important? thanks Tom -Original Message- From: Scott Carmichael [mailto:[EMAIL PROTECTED]] Sent: Friday, July 20, 2001 12:15 AM To: [EMAIL PROTECTED] Subject:

Re: hash comparisons...

Didn't Randall do a voting script for an article in Linux Journal/Mag or TPJ recently? You might want to look at that. Thanks, Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <[EMAIL PROTECTED]> # MPEG 2 PS VOB file on stdin -> descrambled ou

RE: stupid question

Can someone tell me what "use strict;" means? Someone told me to use it, but I don't know what it means and it (in combination with something else I did, I'm sure) is causing a 500 internal server error in my very simple script Thanks Tom -Original Message- From

pls help

Hi all This amy seem a little silly, but I've checked perl.com, perl.org, and activestate.com and cannot find instructions for installing Perl on windows (i have ME). Can someone point me to an installation guide for Perl on win32? Thanks! Tom -- To unsubscribe, e-mail: [EMAIL PROTECTED

RE: pls help

Sorry for the stupid question - I was just having problems because I downloaded the wrong version of the windows installer program. Doh! Tom -Original Message- From: Jos I. Boumans [mailto:[EMAIL PROTECTED]] Sent: Sunday, July 22, 2001 8:02 AM To: [EMAIL PROTECTED]; Perl List Subject

foreach question

lue"? I'm sure I've seen an example of this before, but I just can't seem to visualize it. Could someone please provide a small example to demonstrate this? I mean if it's not: foreach $word (@somearray) { print $word; } then what else could the loop be itera

RE: foreach question

OK - that clears it up - thanks! Tom -Original Message- From: Mooney Christophe-CMOONEY1 [mailto:[EMAIL PROTECTED]] Sent: Tuesday, July 24, 2001 5:03 PM To: Perl List Subject: RE: foreach question It's talking about stuff like this: $_='a,b,c,d,e,f,g,h,i,j,k,l'; forea

GAIM

? I'm just wondering what sort of stuff is possible with Perl for GAIM... TIA Tom Malone -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

GAIM && Perl

mming experience has been with PHP and JavaScript). I'd be grateful if anyone could help me out. TIA Tom Malone -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Perl Scripts for GAIM

mming experience has been with PHP and JavaScript). I'd be grateful if anyone could help me out. TIA Tom Malone -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Did I violate?

g that satisfied my questions, so that's why I posted. Could someone please tell me if I somehow violated the list's rules? Thanks Tom Malone -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Did I violate?

Is that what my problem was (why nobody responded)? Because a lot of people didn't know what GAIM was? I hadn't expected that windows users would be familiar with it, but I thought most Linux people would know about it. Tom -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

Re: Did I violate?

do by writing Perl scripts? and Does anyone knwo of any websites / other resources for tutorials or getting started with writing scripts in Perl for GAIM? Are there any other requirements for it I should know about? TIA Tom Malone -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional com

Re: PERL and HTML question...

and probably more accurate) information about which browsers support different standards and how they implement them. Try webreference.com Tom Malone http://www.tom-malone.com On Tuesday 07 August 2001 1:46, you wrote: > Dear List, > > print< > HELLO WOLRD! >

Perl script editor for NT/2000

Could someone suggest a good editor for writing scripts with? Tom Turpin CAD System Administrator Ryobi Technologies, Inc. 1428 Pearman Dairy Road Anderson, SC 29625 Office: (864) 964-3425 Pager: (864) 390-5195 Fax: (864) 964- Email: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL

Perl Programming Question

h a possible perl program (like I want to do A, how do I go about doing it). What have people done/read/whatever to "think" in a perl state of mind. As I said, I've been trying for some time to learn Perl, but it seems like this is a hump I can't figure out how to get ov

Re: Perl Programming Question

Spanish, do those people hear English, or do they hear Spanish and translate it to English in their heads. I hope that's a clearer example of what I'm looking for. Thanks, Tom -- #!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz <[EMAIL PROTECTED]>

Can I tell how a program was called?

Firstly, HI to everyone - and thanks to the gurus for all the good advice for us beginners :) Now, the problem. I was working on a project and realized that if I created a simple shell program I could make things easier for myself. However, when I started to code I found myself with a dilemma

RE: Can I tell how a program is called?

he link if you do that. > :-) > --lucy Tom Watson Go to : www.abaselivemusic.com

RE: On Beginners' Mindsets, Part II

ath to learning Perl. Regards, Tom Wilson -Original Message- From: Scott Thompson [mailto:[EMAIL PROTECTED]] Sent: Wednesday, May 30, 2001 2:07 PM To: [EMAIL PROTECTED] Subject: RE: On Beginners' Mindsets, Part II > -Original Message- > From: Jeff Pinyan [mailto:[EMAI

SizeOf?

the Oreilly cd bookshelf, and FAQ upon FAQ! Tom

Re: Find the number of elements in a hash.

This goes right along with my problem. How can you tell how much memory (RAM) the hash takes? - Original Message - From: "Doug Johnson" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Monday, June 04, 2001 5:04 PM Subject: RE: Find the number of elements in a hash.

[Fwd: Perl split to HTML]

nt OFH ""; #---     print OFH "";     print OFH "The submitted # of TCs:",2,"";     print OFH "", "\n";     print OFH "";     print OFH &

RE: Unix command in a Perl script

I think I may have seen this one before myself. If I'm right, you'll need to correctly quote the quotation marks inside your variable which has the email addresses. You have to get the command to have the quotes if you print it out to standard output. For example: $alert_email_address =

Re: Call Center Software

ught up this site: http://www.linuxtelephony.org/ On the left margin, you will find a listing of about a dozen such to choose from. Have fun. Tom -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

need some help...reading selecing items from a file

needed info. My question is how what type of varibale should i store each record? I'm confused. Well that's all I can think of and would like your suggestions. Thanks a lot!! Tom __ Do You Yahoo!? Make a great connection

Re: no luck pie charts and perl

Global symbol "$blue" requires explicit package name at ./createpng line 11. Global symbol "$im" requires explicit package name at ./createpng line 13. Global symbol "$red" requires explicit package name at ./createpng line 13. Global symbol "$im" requires explicit package name at ./createpng line 19. Execution of ./createpng aborted due to compilation errors. So, since we're here, do you understand what the message is? A required explicit package name? I'm lost. Thanks, Tom -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: no luck pie charts and perl

To everyone: Thanks! I think I want to use "use strict;" a lot more, now. This is a Good Thing. Tom -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Help with Debugging

.pl line 7. Execution of replace.pl aborted due to compilation errors. tompoe@aether:~/perlStuff > I'm running perl5.6.1: tompoe@aether:~/perlStuff > perl -v This is perl, v5.6.1 built for i686-linux Copyright 1987-2001, Larry Wall Sorry, I don't know enough to answer the question. Hope this helps compare with what you have. Thanks, Tom -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Help with Debugging

use strict; > > my @Classes = ("cm140", "cm325", "cm398p"); > > sub replace { > my $ref = $_[0]; > $ref->[2] = "cm498p"; > } > > replace(\@Classes); > print @Classes; I changed the last line to: print "@Classes\n&q

perl install

everything as I go along into 5.6.1, or clean up by removing everything associated with 5.6.0. Just seems like there should be an easier solution, possibly a symlink? Any thoughts? Thanks, Tom -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Sending automatic email to list of addresses

nt MAIL "From: $emailfrom\n"; print MAIL "Subject:\n"; print MAIL "\n"; print MAIL "Included Message \n"; print MAIL "\n"; close(MAIL); #end If anybody has a patch for this or any suggestions, they would be greatly appreciated. Regards, Tom Harmon

Re: Automatic execute of script

the AT command works a lot like cron, see if you can use the AT command - Original Message - From: "jeff" <[EMAIL PROTECTED]> To: "Beginners" <[EMAIL PROTECTED]> Sent: Friday, December 28, 2001 9:37 AM Subject: RE: Automatic execute of script > Our business hosting service does not allo

Re: Is there a way to rsh (or remsh) in Perl?

SCP secure copy works well - Original Message - From: "Bob Showalter" <[EMAIL PROTECTED]> To: "'Daryl J. Hoyt'" <[EMAIL PROTECTED]>; "Beginners Perl" <[EMAIL PROTECTED]> Sent: Friday, January 04, 2002 9:01 AM Subject: RE: Is there a way to rsh (or remsh) in Perl? > > -Original Messa

using force with cpan?

n for installing perl Stuff? Thanks, Tom -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

writing formats

can anyone tell me how to toggle between 2 different formats writing to the same output filehandle? i am not having luck with coding the select and write statements. thanks Tom Thunem Sr. Systems Specialist, Global E-Business Infrastructure, Americas Avnet, Inc. [EMAIL PROTECTED] -- To

newbie question

I've never understood what the 'make' and 'make install' commands do. Can someone shed the light? Thanks Tom Thunem Sr. Systems Specialist, Global E-Business Infrastructure, Americas Avnet, Inc. [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For ad

suggestion for FAQ

Hi, Nowhere in the FAQ does it list the address to which you can send your beginning programming questions. The FAQ lists the address for subscribing: beginners-subscr...@perl.org But the FAQ doesn't list the email address to which you can send your questions. For experienced list readers, it

tried to install my first module (Mac OSX 10.4.11)

1) I did: $ sudo cpan which asked me a lot of questions. I accepted the defaults. 2) Then as described here: http://sial.org/howto/perl/life-with-cpan/macosx/ I did: cpan> o conf makepl_arg "INSTALLBIN=/usr/local/bin INSTALLSCRIPT=/usr/local/bin" cpan> o conf commit 3) Then I did: cpan>

Re: tried to install my first module (Mac OSX 10.4.11)

On Mon, Nov 2, 2009 at 3:45 AM, Shameem Ahamed wrote: > Tom, > > The make test it self returned error. > > So the problem is not with the cpan. Please check you have all the > dependencies met. You can paste the make test results here. It will show the > exact dependency err

Re: tried to install my first module (Mac OSX 10.4.11)

On Mon, Nov 2, 2009 at 3:45 AM, Shameem Ahamed wrote: > Tom, > > The make test it self returned error. > > So the problem is not with the cpan. Please check you have all the > dependencies met. You can paste the make test results here. It will show the > exact dependency err

Re: tried to install my first module (Mac OSX 10.4.11)

On Mon, Nov 2, 2009 at 5:36 AM, Shameem Ahamed wrote: > > I think, it is installed successfully. > > Please run the below script to make sure that it is installed. > > use LWP::Simple; > > print "LWP/Simple.pm is installed in   $INC{'LWP/Simple.pm'} \n"; > $ perl --version This is perl, v5.8.6 bu

Re: tried to install my first module (Mac OSX 10.4.11)

On Mon, Nov 2, 2009 at 8:02 AM, Peter Scott wrote: > On Mon, 02 Nov 2009 04:25:18 -0700, Tom Smith wrote: > > base/message-charset.t 1/21 Can't locate > > auto/HTML/Parser/utf8_mode.alin @INC (@INC contains: ../blib/lib > > ../blib/arch ../. > > /System/

Re: Regex to array woes

On Mon, Nov 2, 2009 at 7:54 AM, Brent Clark wrote: > Hiya > > I was hoping that someone would be kind to help me. > > I have a string like so : > > Haresources : 10.203.4.5, Interfaces : 10.203.4.5 10.203.4.7 > > Im trying to get the ip's after Interfaces into an array, but for the likes > of me,

Re: suggestion for FAQ

On Mon, Nov 2, 2009 at 12:35 PM, Paul Johnson wrote: > On Mon, Nov 02, 2009 at 10:59:09AM -0500, Uri Guttman wrote: > > >>>>> "ts" == tom smith writes: > > > > ts> Hi, > > ts> Nowhere in the FAQ does it list the address to which you

Re: Learning Perl Student Workbook

On Mon, Nov 2, 2009 at 10:36 AM, Telemachus wrote: > On Mon Nov 02 2009 @ 9:33, Parag Kalra wrote: > > Hey Folks, > > > > This thread was about book - 'Learning Perl Student Workbook' and not the > > book - 'Learning Perl' > > > > So is there a way we can buy genuine/official/legal ebook version

Re: Problem about substitution..

On Mon, Nov 2, 2009 at 7:41 PM, Remy Guo wrote: > hi folks, > i've got problem when trying to perform a substitution. > > the text file i want to process is like this: > ... > XX { > ABDADADGA > afj*DHFHH > } (a123) > XXDFAAF { > af2hwefh > fauufui > } (b332) > ... > > i want to match the

Re: How do I pick one random element from an array?

On Tue, Nov 3, 2009 at 12:11 AM, Majian wrote: > Hi ,all : > > I want to know if there is a way in which I can randomnize(?) the content > in > an array. > > In this example : > > my @array = ('uriel', 'daniel', 'joel', 'samuel'); > > Now what I want is create a process so every time I print the

Re: Problem about substitution..

Thanks for the tips! More comments below. On Tue, Nov 3, 2009 at 4:10 AM, John W. Krahn wrote: > tom smith wrote: > >> On Mon, Nov 2, 2009 at 7:41 PM, Remy Guo wrote: >> >> i've got problem when trying to perform a substitution. >>> >>&g

Re: can't post to perl.beginners

On Tue, Nov 3, 2009 at 12:51 PM, Bob goolsby wrote: > Um -- this one got through. What kind of error message did you > receive from one of the posts that didn't go through? > > > B > > On Mon, Nov 2, 2009 at 9:40 PM, Charles DeRykus wrote: > > Hello, > > > > I subscribed to perl.beginners via G

Re: tried to install my first module (Mac OSX 10.4.11)

On Mon, Nov 2, 2009 at 3:47 PM, Jeremiah Foster wrote: > > On Nov 2, 2009, at 20:38, tom smith wrote: > > On Mon, Nov 2, 2009 at 8:02 AM, Peter Scott wrote: >> >> On Mon, 02 Nov 2009 04:25:18 -0700, Tom Smith wrote: >>> >>> I believe that your HTML::P

Re: Problem about substitution..

On Tue, Nov 3, 2009 at 4:33 PM, tom smith wrote: > Thanks for the tips! More comments below. > I saw it written the other way somewhere, and I thought it looked cleaner. > I'll do it your way from now on. > > >> >> if ($line =~ /\((.*?)\)/) { &g

Re: must satisfy _unknown_ number of regexp patterns

On Fri, Nov 6, 2009 at 12:15 AM, John W. Krahn wrote: > Michael Alipio wrote: > >> Hi, >> > > Hello, > > > if I have a script that accepts any combination of the 5 or maybe even >> more options, say, option1, option2, option3... >> >> >> Now, after collecting the options, for each option, there

Re: must satisfy _unknown_ number of regexp patterns

On Fri, Nov 6, 2009 at 2:04 AM, tom smith wrote: > > > On Fri, Nov 6, 2009 at 12:15 AM, John W. Krahn wrote: > >> Michael Alipio wrote: >> >>> Hi, >>> >> >> Hello, >> >> >> if I have a script that accepts any combination

can I wipe cpan off my computer?

Hi, Is there an easy way to wipe cpan off my computer? I would like to try a fresh install to see if that cures all the problems I've had with cpan. So far I can't install any modules with cpan. The latest errors are: $ sudo perl -MCPAN -e shell Password: cpan shell -- CPAN

Re: foreach loop

On Fri, Nov 6, 2009 at 6:48 PM, John W. Krahn wrote: > tom smith wrote: > >> On Mon, Nov 2, 2009 at 5:10 AM, John W. Krahn wrote: >> >> Philip Potter wrote: >>> >>> 2009/11/2 Thomas Bätzler : >>>> >>>> while( my $line = <

Re: Change tag case

On Sat, Nov 7, 2009 at 2:45 AM, Ramesh, Marimuthu wrote: > > > Hi, > > > > I have some 3000 sgml files, where I need to change the tag case from > upper case to lower case. > > > > Example: Change This is an image to id="IMG1">This is an image. > > > > Note that the tag name and the attribute nam

Re: can I wipe cpan off my computer?

On Sat, Nov 7, 2009 at 6:27 AM, Shawn H Corey wrote: > tom smith wrote: > > On Fri, Nov 6, 2009 at 9:34 AM, Shawn H Corey > <mailto:shawnhco...@gmail.com>> wrote: > > I think the OP is talking about the new modules that don't always > play > >

  1   2   3   4   5   6   7   8   9   10   >