Memories (Was ... oh snap!)

You know, in a few weeks, months, years, we are all gonna look back at this and wonder. All this reminds me of circa 1997-98 or there abouts... -- WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAI

Re: Check whether a string exists

On 7/12/06, Nishi Bhonsle <[EMAIL PROTECTED]> wrote: Hi: I would like to check whether the string [server_bin.files] exists in a particular file and if it does, then do not add it again. How can I check for this string using perl regex? Perl Faq 4 print "seen server_bin.files" if /server_bin\

Re: question on redirecting output of Perl debugger commands

On 7/12/06, Gavin Bowlby <[EMAIL PROTECTED]> wrote: bash-2.05b$ cat test.pl #!/usr/bin/perl $x = 1; print "x:$x\n"; bash-2.05b$ perl -d test.pl | tee xxx 2>&1 > yyy Hmmm. You know, when posted previously I guess I should have stated that I had not yet gotten it to work myself but posted any

Re: Curses::UI: No definition found for '< Yes >'

On 7/10/06, Mumia W. <[EMAIL PROTECTED]> wrote: I'm trying to learn to use Curses::UI, and I read the top of "perldoc Curses::UI" and found some example code. Unfortunately, it doesn't work. The Curses::UI refers you to a more appropriate example. The example's syntax: use FindBin; use lib "$F

Re: ... is a valid filename

On 7/10/06, Aaron Priven <[EMAIL PROTECTED]> wrote: For what it's worth, "..." is indeed a valid filename. Back in FWIW the Linux command touch " " makes a valid 'space' for a filename; sorts on top of all other files when executing ls -l -- WC (Bill) Jones -- http://youve-reached-the.endofthe

Re: #!/usr/bin/perl ... and __DATA__

On 7/9/06, Dr.Ruud <[EMAIL PROTECTED]> wrote: perl -x$HOME $HOME/sxVHost.conf First test it from the command line. Thx! That's got it. The docs show a space between the -x and My version works on the command line but not as part of a BASH shell; I spent a lot of time troubleshooting thi

Re: #!/usr/bin/perl ... and __DATA__

On 7/9/06, Mr. Shawn H. Corey <[EMAIL PROTECTED]> wrote: Try: #!/bin/sh perl -pe '' < OK, well; can someone tell me how to properly use the -x switch? What I'm trying is to have Perl code reside inside an Apache conf file: Shell script example: #!/bin/sh perl -x ~ /home/bill/sxVHost.conf Whe

Re: question on redirecting output of Perl debugger commands

On 7/7/06, Gavin Bowlby <[EMAIL PROTECTED]> wrote: Is there a way to redirect the output of a debugger command to a file? What I use is Linux specific, sort of varies by bash and distro for example, but you are welcome to try it out (I asked in irc #bash before posting here) - ls -ial |tee cap

#!/usr/bin/perl ... and __DATA__

I tried googling for this but Im not quite sure how to write it up? Are there any syntax tricks that would allow both the "shebang and __DATA__" on the same line? So that the Perl code looks like this: #!/usr/bin/perl -wT {initialization code}; __DATA__ # # other stuff # # other stuff # # other

Re: File last modified time

On 7/7/06, Omega -1911 <[EMAIL PROTECTED]> wrote: 1. The script has to open a rather large number of files (100,000). 2. Instead of opening all of them, I am trying to only open those files where the file was actually MODIFIED not just accessed within the last 20 minutes. The implementation log

mod_auth_sim?

Does any one know where the source for mod_auth_sim might still be available? Doesn't work: http://www.perl-studio.com/mod_auth_sim/mod_auth_sim-0.0.1.tar.gz None of the google soureces found ofr it appear to work either. Any ideas? -- WC (Bill) Jones -- http://youve-reached-the.endoftheinterne

Re: How to confirm e-mail address in NMS's FormMail?

On Fri, 19 Nov 2004 14:35:25 -0500, Chasecreek Systemhouse error: > unless ($param1 == 4param2) { > print "The addresses do not match."; > exit; > } grr! Make that: $param2 instead of 4param2 =/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] F

Re: How to confirm e-mail address in NMS's FormMail?

On Fri, 19 Nov 2004 11:21:16 -0800 (PST), robert freiberger <[EMAIL PROTECTED]> wrote: > What I would like to do is have two e-mail text boxes then have them enter > their e-mail in both boxes, then once they click "submit" a check out run to > see if the e-mail boxes are matching. Easy enough:

Re: IP address and Browser version.

On Fri, 19 Nov 2004 23:47:01 +0530 (IST), [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > Hi > > I wanted to get the IP address and the OS of the system when some one > checks in the page...How will I get the IP address and OS of the person > who visits the page(with PERL CGI) Clients can lie to y

Re: How to confirm e-mail address in NMS's FormMail?

On Fri, 19 Nov 2004 10:24:14 -0800 (PST), robert freiberger <[EMAIL PROTECTED]> wrote: > I have NSM's FormMail running on my site but I'm trying to figure out how to > add a second e-mail text file and then match this to the first field, just to > check that they entered the correct info. > > I

Re: Printing features

On Sat, 20 Nov 2004 01:10:32 +0800 (CST), Stephen Liu <[EMAIL PROTECTED]> wrote: > > /root/.cpan/yes > > the directory 'yes' is not empty. > > # ls -al /root/.cpan/yes/ > total 5060 > drwxr-xr-x 5 root root4096 Nov 20 00:52 . As root -- rm -fR /root/.cpan/yes > > As root - > > cd > > p

Re: Printing features

You might also want to explore: perl -MCPAN -h -- WC -Sx- Jones http://insecurity.org/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Printing features

On Sat, 20 Nov 2004 00:15:52 +0800 (CST), Stephen Liu <[EMAIL PROTECTED]> wrote: > Hi Chasecreek, Call me Bill :) > I see you already have a directory > /root/.cpan > Shall we use it as the general CPAN build and cache > directory? > > CPAN build and cache directory? [/root/.cpan] yes > T

Re: variable space

On Fri, 19 Nov 2004 12:00:44 +0530, Anish Kumar K. <[EMAIL PROTECTED]> wrote: > I tried > $recField[0] =~ s/" "//g; This is a FAQ and is well discussed in this group's Usenet archives as well on perldoc.com under Faq4: http://perldoc.com/perl5.8.4/pod/perlfaq4.html http://perldoc.com/perl5.8.4

Re: perl module - Statistical mean and sd

On Fri, 19 Nov 2004 07:35:01 -0500 (EST), Chris Devers <[EMAIL PROTECTED]> wrote: > On Fri, 19 Nov 2004, Ramprasad A Padmanabhan wrote: > > No offence intended , but I think that is still ok. I think it is in > > the spirit of perl to reduce typing as much as possible. > But I'm not setting the

Re: Printing features

On Fri, 19 Nov 2004 14:10:01 +0800 (CST), Stephen Liu <[EMAIL PROTECTED]> wrote: > hanging here > $ perl -MCPAN -e "install Term::Screen"; > CPAN: Storable loaded ok > mkdir /root/.cpan: æéä¸å¤ at > /usr/lib/perl5/5.8.3/CPAN.pm line 2342 Ummm, that hyphen is -MCPAN is required. Sorry about not

Re: Printing features

On Fri, 19 Nov 2004 12:51:20 +0800 (CST), Stephen Liu <[EMAIL PROTECTED]> wrote: > > Term::Screen > > Term::Screen::Wizard > > Term::ScreenColor > Please advise how to get them installed on my OS If you are on Unix and *IF* CPAN is correctly configured on your system, this this will work: perl M

Re: Browser Properties

> > I would liek to have it in a table... Say > > > > 30 % of users use Internet Explorer > > > > 50 % use Netscape > > > > 10 % use FireFox > > > > 5 % use Mozilla > > > > 5 % Others There is a program you can install called awstats If you could install CPanel, you would get: Analog An

Re: why $000 is a valid variable name?

On Thu, 18 Nov 2004 09:28:07 -0500 (EST), Chris Devers <[EMAIL PROTECTED]> wrote: > On Thu, 18 Nov 2004, Larsen, Errin M HMMA/IT wrote: > > > BUT ... When I removed the "warnings" and "strict", and stopped > > using "my", it works: > > Which is all the more reason to always use warnings & stric

Re: date subtraction

On Tue, 16 Nov 2004 22:34:40 -0500 (EST), Chris Devers <[EMAIL PROTECTED]> wrote: > This is a FAQ -- if this description doesn't make clear how to do it, > there's plenty of code out there that will show you how it works. There are also a ton of date "math" modules out there on search.cpan.org

Re: Searching tecknical documentation

On Mon, 15 Nov 2004 23:08:07 -0500 (EST), Chris Devers <[EMAIL PROTECTED]> wrote: > Yeah. Pirate the books. That'll keep new ones coming... Besides, printed material has errors and needs to be kept updated -- it is better to study on your own. There are PLENTY of already free places to get help

Re: postincrement in scalar

On Mon, 15 Nov 2004 16:34:35 +0100, Ing. Branislav Gerzo <[EMAIL PROTECTED]> wrote: > ok I understand, but I don't know why my line doesn't work. I thought > (exp) ? (true) : (false) is the same as if (exp) { } else { } Here is an OLD example of short-circuited presedence issues: #! /usr/bin/p

Re: Printing features

On Sun, 14 Nov 2004 23:20:09 +0800 (CST), Stephen Liu <[EMAIL PROTECTED]> wrote: > If on the same terminal "ON_YELLOW" and "UNDERLINE" > will appear on following line. But I have no glue. You must realize that Screen ANSI escape sequences SOMETIMES take up spaces on the visible screen -- using a

Re: Printing features

On Sun, 14 Nov 2004 20:44:36 +0800 (CST), Stephen Liu <[EMAIL PROTECTED]> wrote: > #!/usr/bin/perl -w > use strict; > use warnings; > use Term::ANSIColor qw(:constants); > > print BOLD BLUE "Remark:\n", RESET; > print "OLINENO=Old Line No. NLINENO=New Line No.\n"; > print "OWORDNO=Old Word No. NW

Re: DBD::mysql error

[sorry for following-up my own post] On Sat, 13 Nov 2004 23:38:46 -0500, Chasecreek Systemhouse <[EMAIL PROTECTED]> wrote: > On Sat, 13 Nov 2004 15:10:46 +0530, Chandrakant Reddy Regarding this: >> for module DBD::mysql: ld.so.1: perl: fatal: libmysqlclient.so.10 You may just ne

Re: DBD::mysql error

On Sat, 13 Nov 2004 15:10:46 +0530, Chandrakant Reddy > Compilation failed in require at (eval 1) line 3. > Perhaps a required shared library or dll isn't installed where expected > at peoplemysql.cgi line 14 Did you get MySQL from sunfreeware.com or build MySQL yourself? if you built it your

Re: Printing output to file

On Sat, 13 Nov 2004 14:48:06 +0800 (CST), Stephen Liu <[EMAIL PROTECTED]> wrote: > > > $ perl AAA.pl > /pathto/name_of_file > > > > > > is it possible adding "print file function" to the > > > script Maybe this example would be of benefit? http://backpan.cpan.org/authors/id/S/SN/SNEEX/accts.sx R

Re: Which package generates "Algorithm/Diff.pm"

On Fri, 12 Nov 2004 07:32:56 -0500 (EST), Chris Devers <[EMAIL PROTECTED]> wrote: > On Fri, 12 Nov 2004, Chasecreek Systemhouse wrote: > > install Bundle::CPAN > > Is this safe? Didn't this used to try to install a whole new copy of > Perl? Has that been fixed yet

Re: regexp for ip address

> > while () { > > > > /^((2[0-5]{2}|1\d{2}|[1-9]\d|[1-9])\.((2[0-5]{2}|1\d{2}|[1-9]\d|\d)\.){2}(2[0-5]{2}|1\d{2}|[1-9]\d|\d))(\s*(port|:|\s|<\/td>\s*]+>)\s*)([2-9]\d|[1-9]\d{2,3}|[1-5]\d{4}|6[0-4]\d{3}|654\d{2}|655[0-2]\d|6553[0-5])$/g; > > ip = $1; > > port = $8; > > push(@ip,"$ip,$port); #f

Re: Which package generates "Algorithm/Diff.pm"

As root type - perl -MCPAN e shell at the cpan> type - install Bundle::CPAN Research and Answer all the questions; if you have issues then e-mail them to the list. -- WC -Sx- Jones http://youve-reached-the.endoftheinternet.org/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional c

Re: regexp for ip address

> > (\d{1,3}\.){3}\d{1,3} > sub goodIP { gethostbyaddr pack('C4', split /\./, shift), 2 } > print "Good IP address\n" if goodIP('11.22.33.44'); > You'd better define "good". I agree -- let's define it as a CIDR block: http://search.cpan.org/search?query=CIDR&mode=all =) -- WC -S

RE sites

FYI - http://etext.lib.virginia.edu/helpsheets/regex.html http://gnosis.cx/publish/programming/regular_expressions.html Enjoy! -- WC -Sx- Jones http://youve-reached-the.endoftheinternet.org/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Buidling stable.tar.gz on Unix as non-root

On Fri, 05 Nov 2004 10:03:29 -0500, jose isaias cabrera <[EMAIL PROTECTED]> wrote: > > Greetings! > > I am trying to build the latest stable of perl on a sun4 system as a normal user. > Has anyone out there built perl as an user of a Unix system? By a user I mean not > having root access. I

Re: Mod_Perl Target Headers

On Thu, 04 Nov 2004 20:54:35 -0800, James Taylor <[EMAIL PROTECTED]> wrote: > $r->header_out('Location' => 'http://www.somesite.com/login_expired.html'); Use a client-site anchor to get the client to pull the frame via a normal target. Only the

Re: Best FREE Perl installation for Windows??

On Tue, 2 Nov 2004 21:51:48 -0500 (EST), Chris Devers <[EMAIL PROTECTED]> wrote: > The Cygwin one is arguably more similar to Unix versions of Perl, in > that it runs in Cygwin's Unix emulation environment. > > The ActiveState version may arguably be better integrated with Windows, > and I think i

All hosts on an IP ?

This is likely a dumb question but I must ask -- I've been playing around DNS and Web bots -- I want to cross match a IP address with all the hosts DNS knows about that IP address -- like even those that are virually hosted named addreses. Am I looking at this wrong or is there something Im missi

Re: How to find if the script is running on a 32-bit machine

Aside from accessing tera-byte files or data structures the only other reason to have 64-bits is really BIG math =/ Trust me, I fully understand why Operating Systems need to be 64-bits or 128-bits -- However, why worry about 64-bit User-Land applications? I say we can worry about t

Re: How to find if the script is running on a 32-bit machine

On Tue, 02 Nov 2004 16:28:50 +0530, Ramprasad A Padmanabhan <[EMAIL PROTECTED]> wrote: > Is there any way I can find this portably C code should be able to tell (Solaris example) #include #include #include static char chararray[] = "abcdefghijklmnopqrstuvwxyz"; static char *myfunc(int i) {

Re: Append on top

On Tue, 02 Nov 2004 01:10:40 +0100, Jenda Krynicky <[EMAIL PROTECTED]> wrote: > It seems though that the constant doesn't matter much. I've tried to > copy a 709MB file using a tiny script that looked like this: ... > and it took 171s with 8*1024 and 176 with 5000 and 32*1024 byte > chunks. > > O

Re: Windows - Unix communication using perl

On Mon, 1 Nov 2004 15:23:32 -0800 (PST), Ajey Kulkarni <[EMAIL PROTECTED]> wrote: > i feel net::rexec module should help me out. Usng .netrc is OK; so long as you use it on a private non-routing network and not over the public Internet. =) SSH tunnels may prove more secure; but now I am off list

Re: Windows - Unix communication using perl

On Mon, 1 Nov 2004 14:00:37 -0800 (PST), Ajey Kulkarni <[EMAIL PROTECTED]> wrote: > I would like to do something like rexec/rsh from a windows (client) > to Unix machine. What is the best way to approach this problem? > > IO::Socket ,may not be of help coz that requires server to be running. > Her

Re: Append on top

On Sun, 31 Oct 2004 22:04:33 +0100, Jenda Krynicky <[EMAIL PROTECTED]> wrote: > Something like that. 1024 is one K. So 8*1024 is 8KB. > > I don't know what the size of a block is when reading from the > particular disk storing that file, but the block size is usualy some > power of 2 in KB. 2KB,

Re: Multi Line text processing

On Mon, 1 Nov 2004 21:51:45 +0200, Octavian Rasnita <[EMAIL PROTECTED]> wrote: > The answer is "the entire memory of your computer". Which can slow your system down unless you got googles and googles, erm I mean Oodles. LOL. anyways, Split them files up first: http://www.cpan.org/authors/id/S/

Re: substr

On Sat, 30 Oct 2004 22:46:39 -0400, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > My earlier post was not quite clear. I will explain my problem in > detail here. > > I have a string whose length is say 5. I need to copy another string > into this string but from an offset of 10. > I tried using

Re: Get all mail addresses from a domain

On Fri, 29 Oct 2004 08:42:14 -0400, Bob Showalter <[EMAIL PROTECTED]> wrote: > Eva Perales Laguna wrote: > > But I would like to get all the addresses in that domain. > > Lots of folks turn off VRFY and EXPN, for obvious reasons. Besides, VRFY and EXPN do not prove that an e-mail exists at any p

Re: AW: Reading from a filehandle in while-loop

On Wed, 27 Oct 2004 10:43:46 +0200, Bastian Angerstein <[EMAIL PROTECTED]> wrote: > Yes it should, but not on my system. > > Thanks for your comments. > So, you are saying this doesnt work? #!/usr/bin/perl -w use strict; use warnings; use diagnostics; open (TEST,"STDIN") or die "cannot read i

Re: Interactive socket client

The following is really rough code but it works on Unix and Windows (although Windows gives me a list warning, however it still works just the same.) It is from a overseer project i worked on some years ago; before Windows even had a fork() (whch it does -- it is part of the activestate.com Perl r

Re: what is something like this - $seen{$1}

Simply put, the dot (.) matches everything regardless of modifier switch. -- WC -Sx- Jones http://youve-reached-the.endoftheinternet.org/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Problem installing the perl Template module

It's an exmaple of where you must decide if a <2% failure rate is worth forcing it. force install Template Or, install it manually by downloading the template file off cpan. On Tue, 26 Oct 2004 15:30:09 -0700, Clement Lau <[EMAIL PROTECTED]> wrote: > Failed 1/90 test scripts, 98.89% okay. 1/24

Re: what is something like this - $seen{$1}

Interesting. Why doesn't this skip already seen letters, I used the case-insensitive modifier... %seen = ( ); $string = "AaBbCcDdEeFf"; while ($string =~ /(.)/gi) { $seen{$1}++; } print "\n\nunique chars are: ", sort(keys %seen), "\n"; 'A' and 'a' are the same, or is the logic only char() or