Re:Regexp and lower case

Hi, I have this: if (/hardware ethernet /) { $_=(split/\{/)[1]; s/[^\d:A-F]//g; # remove anything not 0..9,A..F #print "$_\n"; } It works but I dont

RE: perl sandbox creation

So you've not tried to solve this on your own yet? Have you got any sample code? I'd suggest taking the first few lines from your file and playing with that as the data file until you get a working script. Then you only have to process a few lines to see if your code is working or not. It also ma

Compile .cgi programs

Dear Friends, can u tell me, how can i create an executable file for the .cgi program on linux whihc is having perl and javascript statements. Thanking you K. Rama koti Reddy. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTEC

Re: Compile .cgi programs

Take a look at 'perldoc CGI.pm' Perhaps you should buy a book as well? Or read the online documentation? I can recomend 'learning perl'. /Jon kondreddy Rama koti Reddy wrote: > > Dear Friends, > can u tell me, how can i create an executable > file for the .cgi program on linux whihc > is having

Re: Compile .cgi programs

hi. i wrote some code with c that execute this perl code for me in form of exe file... I search it and reply it to you... I find it in one search ion google. _ Sincerely yours Nafiseh Saberi The amount of beauty required to launch one ship. < I appre

Re: Compile .cgi programs

.. this might be what you are looking for. http://www.indigostar.com/perl2exe.htm#download kondreddy Rama koti Reddy wrote: > Dear Friends, > can u tell me, how can i create an executable > file for the .cgi program on linux whihc > is having perl and javascript statements. > > Thank

[PBML] RE: Extract a value of a key into a hash

Hi, I have this code: #!/usr/local/bin/perl -w use Win32::Registry; my %RegType = ( 0 => 'REG_0', 1 => 'REG_SZ', 2 => 'REG_EXPAND_SZ', 3 => 'REG_BINARY', 4 => 'REG_DWORD',

addr string

Hi I have a question: How to send parameters to another .pl file trough links ( tag)? I think it's made using ../another.pl?PARAMETER But how I get this parameter in another.pl? Need help on this!! ProgLamerSoft Inc. Mario.

Re: addr string

hi. you can use template and with follow tag you can pass parameter to another file or cgi. I hope it can help you. _ Sincerely yours Nafiseh Saberi The amount of beauty required to launch one ship. < I appreciate your sugesstions > _

Can anyone help me with utime()

I wanted to know how to use the utime() function on windows perl, any sample code and a little explanation would be very useful, thanks, aditya __ Do You Yahoo!? Send FREE video emails in Yahoo! Mail! http://promo.yahoo.com/videomail/ -- To uns

Re: Can anyone help me with utime()

hi. see it.. http://www.perldoc.com/perl5.6/pod/func/utime.html _ Sincerely yours Nafiseh Saberi The amount of beauty required to launch one ship. < I appreciate your sugesstions > - Original Message - From: "a p

DBI

hi dear team. I found good information about DBI... and I will be happier that you know that like me... read this.. http://ironbark.bendigo.latrobe.edu.au/subjects/bitwen/1999/l18/ thx. _ Sincerely yours Nafiseh Saberi The amount of beauty required to

Re: addr string

"Marius Keraitis" <[EMAIL PROTECTED]> wrote: > Hi > I have a question: > How to send parameters to another .pl file trough links ( tag)? > I think it's made using ../another.pl?PARAMETER > But how I get this parameter in another.pl? Hope I understand you right. If you have a hash of values you

Re: Regexp and lower case

On Thu, Jan 10, 2002 at 10:38:50AM +0100, Jorge wrote: > Hi, I have this: > if (/hardware ethernet /) { > $_=(split/\{/)[1]; > s/[^\d:A-F]//g; # remove anything not 0..9,A..F > #print "$_\n"; >

traversing a file tree...one step further

Hi list, I have got a program running that opens a text file, finds file names within the txt file and then runs a file::find to determine the location of these files (within the same directory). My next question is: If i want to write a list of all the files within more than one directory how do

RE: Should I use -e -d or opendir ?

> -Original Message- > From: K.L. Hayes [mailto:[EMAIL PROTECTED]] > Sent: Thursday, January 10, 2002 12:28 AM > To: [EMAIL PROTECTED] > Subject: Should I use -e -d or opendir ? > > > Hello All, > > I've found lot's of info on how to check if a file exists but nothing > about checking i

RE: why does open()ing happen only at the line ?

> -Original Message- > From: Prahlad Vaidyanathan [mailto:[EMAIL PROTECTED]] > Sent: Thursday, January 10, 2002 12:14 AM > To: [EMAIL PROTECTED] > Cc: Michael Fowler > Subject: Re: why does open()ing happen only at the line ? > > > Hi, > > On Wed, 09 Jan 2002 Michael Fowler spewed into

Re: traversing a file tree...one step further

The find routine of File::Find traverses a file tree (recurses through the subdirectories as well). Try out the following piece of code use strict; use File::Find; find (sub {print "$File::Find::name\n";}, $yourdirname); This should print all the files and subdirectories within $yourdirname to t

µÚÒ»²½

How can I begin my first step in programming with PERL in Windows 2k? Is there any integrated including debug tools with it? Thanks! _ Do You Yahoo!? µÇ¼Ãâ·ÑÑÅ»¢µçÓÊ! http://mail.yahoo.com.cn ÎÞÁÄ£¿ÓôÃÆ£¿¸ßÐË£¿Ã»ÀíÓÉ£¿¶¼À´ÁÄÌì°É£¡¡ª¡ª ÑÅ

Re:IP address from the registry

Hi, Is there a way to obtain the IP address from the registry in Both Windows 98 and NT with Perl moduls. Thanks. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: 第一步

You can use ActivePerl from the company ActiveState. http://www.activestate.com/Products/ActivePerl/ Or you could install Cygwin and have a complete Unix emulation environment including Perl. http://sources.redhat.com/cygwin/ --Josh - Original Message - From: "yun yun" <[EMAIL PROTECT

Re: If statement

Ther'isn syntax error. How failing ?? > I want the following statement to do something if either of this conditions > exist. "or" Statement > > if ((substr($_, 42, 7) eq "Running") || (substr($Nextline, 42, 7) eq > "Running")) > > It is reading the right substrings but failing. > What am I doin

RE: Should I use -e -d or opendir ?

The -e isif file exist and the -d is if the directory exist. I would have to agree with your third snip of code. if (-d $path){&get_on_with_it} else {&errorMsg} >From: Bob Showalter <[EMAIL PROTECTED]> >To: "'K.L. Hayes'" <[EMAIL PROTECTED]>, [EMAIL PROTECTED] >Subject: RE: Should I use -e -

Re: IP address from the registry

Jorge Goncalvez wrote: > Hi, Is there a way to obtain the IP address from the registry in Both Windows 98 > and NT with Perl moduls. Dave Roth's GetIP script should do what you want, hopefully with a miminmum amount of tweaking: http://www.roth.net/perl/scripts/scripts.asp?GetIP.pl -- briac

using stat and file::find

hey guys, I have this code that prints out the direc structure/filenames for whatever root i choose...I would like to have a stat for each file...how do i go about doing this? I thought about adding it in the wanted() sub but I've had little success...I want each file to have all the necessary sta

Re: Formatting with printf

On Wed, 9 Jan 2002, John W. Krahn wrote: > printf is based on the C language printf function and can be a bit > tricky. The format "%-5s" will not truncate a value longer than 5 > characters but it will pad a shorter value with spaces. To truncate a > longer value use the format "%-5.5s". Also,

Manageable code

I admit I am a newbie and making this harder than it really is :) But, I have a program that is growing by the minute and I want to split it apart into chunks or sub routines. Here is an example: sub init_type_99{ print NEWQUOTES "99"; #RecordType printf NEWQUOTES ("

Re: Manageable code

The file handle NEWQUOTES isn't in scope inside the subroutine. Search the perlfaq for 'How can I make a filehandle local to a subroutine?' e.g. perldoc -q 'filehandle local to a subroutine' --Josh - Original Message - From: "Scott" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Th

RE: Manageable code

> -Original Message- > From: Joshua Nye [mailto:[EMAIL PROTECTED]] > Sent: Thursday, January 10, 2002 10:56 AM > To: Scott; [EMAIL PROTECTED] > Subject: Re: Manageable code > > > The file handle NEWQUOTES isn't in scope inside the subroutine. Huh? How so? Filehandles are global, no? Ass

Simple regex string replacement problem

Hello All, I know this is very basic and similar items have come up numerous times on this list, but I'm not sure where my boneheaded mistake is here. I have a file which has many strings like "$something[0]" through "something[20]" amongst other text (quotes only provided here for clarity). Wh

Re: Date stuff

three days ago = $threedays = time() - (3 * 24 * 60 * 60); @date = localtime($threedays); On Wed, 9 Jan 2002, Jeff 'japhy' Pinyan wrote: > On Jan 9, Scott Taylor said: > > >Can anyone tell me how I can set a variable to a date, then subtract x > >number of days from it and output the new date

Re: Simple regex string replacement problem

On Jan 10, [EMAIL PROTECTED] said: >I have a file which has many strings like "$something[0]" through >"something[20]" amongst other text (quotes only provided here for >clarity). > >What I want to do is replace these strings with: "$SOMETHING0" through >"$SOMETHING20". Personally, I find that o

Re: traversing a file tree...one step further (find duplicate files)

Hi list, I've already emailed Ben but I forgot to email the list also. Below is a small script for a *nix system to find and pretty print a list of duplicate files. Maybe that will help someone trying to do the same thing. --Josh ---cut--- COMMAND LINE ---cut--- find ./perl-5.6.1 -type f -ls |

RE: Manageable code

On Thu, 10 Jan 2002, Bob Showalter wrote: > > The file handle NEWQUOTES isn't in scope inside the subroutine. > > Huh? How so? Filehandles are global, no? Assuming he's opened > NEWQUOTES before calling his sub, all should be fine. I did open NEWQUOTES before the sub. But after reading the FAQ

Re: Simple regex string replacement problem

Jeff et al, >>I have a file which has many strings like "$something[0]" through >>"something[20]" amongst other text (quotes only provided here for >>clarity). >> >>What I want to do is replace these strings with: "$SOMETHING0" through >>"$SOMETHING20". > >Personally, I find that odd -- moving fr

RE: Manageable code

> -Original Message- > From: Scott [mailto:[EMAIL PROTECTED]] > Sent: Thursday, January 10, 2002 10:40 AM > To: [EMAIL PROTECTED] > Subject: Manageable code > > > I admit I am a newbie and making this harder than it really > is :) But, I > have a program that is growing by the minute

Re: Re: Simple regex string replacement problem

On Jan 10, [EMAIL PROTECTED] said: >>Personally, I find that odd -- moving from an array of 21 elements to 21 >>DIFFERENT scalars?! > >You're right, it is odd. But unless I've missed how to take a populated >array and create a usable hash from it to pass to CGI::FastTemplate, this >is what I bel

Re: Re: Simple regex string replacement problem

Yes, I am in fact changing the template file. Personally my first experience with CGI::FastTemplate has made me wish it were a bit more flexible, but I suppose it's certainly conceivable that the flexibility is there and I just haven't found it based on what I read in perldoc. -Ian -- Original

Re: Manageable code

--- Scott <[EMAIL PROTECTED]> wrote: > I admit I am a newbie and making this harder than it really is :) But, I > have a program that is growing by the minute and I want to split it apart > into chunks or sub routines. > > Here is an example: > > sub init_type_99{ > print NEWQUOTES "99";

interesting JAPH, how does this work?

Hi, I saw this on perlmonks.org. I can't understand how it works. Can anyone enlighten me? #!/usr/bin/perl my $A="a"; for(0..285074){$A++;}print"$A\n";

RE: interesting JAPH, how does this work?

You can increment letters just like you increment numbers. For example: $x = "a"; $x++; print $x; # prints "b" And the letter "z" incremented becomes "aa". $x = "z"; $x++; print $x; # prints "aa" So here is the script... $A = "a"; # assign "a" to $A. for(0..285074){$A++;} # increment $A 285,

Re: Manageable code

Could you let us know the results you were expecting? Also, remember that the "printf" statements will be printing to a file with "NEWQUOTES" as a pointer. If NEWQUOTES has net been declared, nothing will be printed, and without "use strict", PERL will complain. __ William Ampe

Re: interesting JAPH, how does this work?

C:\users>perl -e "$A=qq(a);for(0..285074){$A++}print qq($A\n);" perl C:\users>perl -e "$A=qq(a);for(0..28){$A++}print qq($A\n);" ad C:\users>perl -e "$A=qq(a);for(0..2){$A++}print qq($A\n);" d C:\users>perl -e "$A=qq(a);for(0..1){$A++}print qq($A\n);" c C:\users>perl -e "$A=qq(a);for(0){$A++}p

Re: Compile .cgi programs

> "Kondreddy" == Kondreddy Rama Koti Reddy <[EMAIL PROTECTED]> writes: Kondreddy> Dear Friends, Kondreddy> can u tell me, how can i create an executable Kondreddy> file for the .cgi program on linux whihc Kondreddy> is having perl and javascript statements. Kondreddy> chmod +x file

RE: using stat and file::find

Believe you could add something like: map {$_=>1} $DIREC; my @MyStats = stat($File::Find::name); print DEST stat("$File::Find::name;" . join(";", @MyStats) . "\n"); Tried it out and it generated data like this: d:/CurrWrka/00CommonPerl/examples/Extending/

RE: Manageable code

I prefer to lay out code like this myself. if ($foo) { $foo--; &stuff; } if ($bar) { $baz += $foo } else { $baz = $foo < 9 ? 3 : 1; } There is less vertical whitespace (by putting the opening brace on the same lin

RE: interesting JAPH, how does this work?

Try this: #!/opt/local/bin/perl #!/usr/bin/perl my $A="a"; for(0..285074){ $A++; print" $A:"; } print"\n\n$A\n"; -- This reemphasizes a mail I just read from someone on this list about the need to write "clearly readable" codes. ___

Re: interesting JAPH, how does this work?

[EMAIL PROTECTED] wrote: > > Try this: > > #!/opt/local/bin/perl > #!/usr/bin/perl > my $A="a"; > for(0..285074){ > $A++; > print" $A:"; perhaps you should consider NOT printing that 285074 times? would kinda flood the term :) > } > print"\n\n$A\n"; > > --

RE: interesting JAPH, how does this work?

Readability wasn't a concern with making this obfu. I did want to show that it worked with "use strict;" so I put that on a seperate line. Original Monks post below. Joel Calaban on Monks #!c:\perl\perl.exe -w use strict; my $A="a";for(0..285074){$A++;}print"$A"; > -Original Message---

Add locations to ppm

Example: http://www.roth.net/perl/packages/ has some packages. How can I permanently add such a location so ppm will include it in searches. Mainly want to install win32-registry used by GetIP.pl. /g -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTEC

Re: Compile .cgi programs

This is the obvious solution, but one may also ask "what is the '.cgi' written in?" That is, is a Perl cgi, a Shell script cgi, a C cgi, etc. If it is a Shell script cgi, a Perl script, then, of course you will need to make it executable, you also will want to include #!{location of shell} If

Using SMPT on Windows NT

Hello, Thanks to Eric and Christopher, who pointed out the bit of my form-processing script that doesn't carry over to Windows NT (from UNIX, where it is working fine) -- following my post yesterday. And apologies to all for what I realize was a too-long post. However, I am still in the dark

RE: Add locations to ppm

Within ppm: set repository NAME LOCATION - Adds a repository to the list of PPD repositories for this session. 'NAME' is the name by which this repository will be referred; 'LOCATION' is a URL or directory name. So could do: set repository RO

Re: Using SMPT on Windows NT

Rohesia, I'm not a Windows user and I don't play one on TV, but did a little bit of Google searching http://www.google.com/search?q=perl+mailer+windows and came up with this: http://www.atexcellence.com/windows-nt-perl-mail-problems.htm#mailmod This website goes through examples, using a "Lin

Re: why does open()ing happen only at the line ?

On Thu, Jan 10, 2002 at 06:54:25PM +, Prahlad Vaidyanathan wrote: > > open(FD,"sudo less /var/log/messages |") ; > print "test\n" ; > my $line = ; > print "$line\n" ; > print "test #2\n" ; > > > $ ./test.pl > Password:test > [waits for password here] > Jan 6 06:51:13 marvin syslogd 1.

Re: rand() function

My apologies: a typo has crept in For 'plot rand(),read()' Read 'plot rand(),rand()' That is, generate x,y randomly in the interval (0,1). Regards - Roger - - Original Message - From: "Gary Hawkins" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, January 09, 2002 11:49 PM

perl/tk Mainwindow

I'm trying to run the following code and open a new window. But the program finishes without opening a window. Is there something wrong in the code? #!/usr/local/bin/perl5 -w use Tk; $main = MainWindow->new(); $menubar = $main->Frame(-relief => "raised", -borderwidth =>

DNS Changes

What is the best approach for changing DNS on Windows NT machines via a login script? I have been looking around in the Win32 modules, but I am not sure how to best implement it. I know that there are difficulties finding the correct registry entry if you go that direction. Any example scr

Re: perl/tk Mainwindow

--- Venkatesh Karnam <[EMAIL PROTECTED]> wrote: > > I'm trying to run the following code and open a new window. But the > program finishes without opening a window. Is there something wrong in > the code? You needed to add "MainLoop;" at the bottom: #!/usr/local/bin/perl5 -w use Tk; use strict;

RE: rand() function

What Perl module is needed for plot or is this under the browser or Thanks. Wags ;) -Original Message- From: Roger C Haslock [mailto:[EMAIL PROTECTED]] Sent: Thursday, January 10, 2002 11:36 To: Gary Hawkins; [EMAIL PROTECTED] Subject: Re: rand() function My apologies: a typo has

Re: interesting JAPH, how does this work?

On Thu, 10 Jan 2002 12:11:53 -0500, [EMAIL PROTECTED] (Robert Hanson) wrote: >You can increment letters just like you increment numbers. >$x = "a"; >$x++; >print $x; # prints "b" > >And the letter "z" incremented becomes "aa". > >$x = "z"; >$x++; >print $x; # prints "aa" > >So here is the script.

Can Perl display .gif files and .wav files

I know that Perl is mainly for text file manipulation I wish to display a .gif file when a key is pressed, and then run a .wav file while it is on display, until such time as the next key is pressed. Can Perl do this? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-ma

FTP

Hi , I have the following error when trying to run a PERL script ( that i didn't write ) : Can't locate Net/FTP.pm in @INC (@INC contains: /opt/perl5/lib/5.6.1/PA-RISC1.1 /opt/perl5/lib/5.6.1 /opt/perl5/lib/site_perl/5.6.1/PA-RISC1.1 /opt/perl5/lib/site_perl/5.6.1 /opt/perl5/lib/site_perl .) at

Re: FTP

On Thu, Jan 10, 2002 at 04:09:40PM -0500, Chaarani, Sana wrote: : :Hi , : :I have the following error when trying to run a PERL script ( that i didn't :write ) : : : :Can't locate Net/FTP.pm in @INC (@INC contains: :/opt/perl5/lib/5.6.1/PA-RISC1.1 /opt/perl5/lib/5.6.1 :/opt/perl5/lib/site_perl/5.6

RE: interesting JAPH, how does this work?

Yes, well sort of, it can do whatever you want. Incrementing letters like the example is built in, but for what you are talking about you would need to build that functionality yourself. You could use the overload pragma (see perldoc overload) to override the built in operators and write your o

RE: Can Perl display .gif files and .wav files

Yes you can. You would need to use the Tk module (or some other windowing system) to build your own GUI. Tk has support for GIF files, but I can't say for sure about the others. For sound there is a module for Windows called Win32::Sound which can play wav file as far as I know. You can get Tk

Re: interesting JAPH, how does this work?

> "Zentara" == Zentara <[EMAIL PROTECTED]> writes: Zentara> I get it, so "perl" equals 285075 in a base24 number system, Zentara> with the alphabet as it's units. There are only 24 letters in your alphabet? :) -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095

Array output

Readers: I'm running a query on a list (input file) and capturing the first column of the results to an array. When I print the array, the first element is null why is this ?? There are 5 items in my list, 6 rows of output. My goal is to do more processing on @skulisting (which requires not havi

Thanks! Re: Using SMPT on Windows NT

Thanks Pete! Really nice of you to have searched! Looks like just what I needed. So that's: many many thanks, Rohesia Hamilton Metcalfe --- Pete Emerson <[EMAIL PROTECTED]> wrote: > Rohesia, >I'm not a Windows user and I don't play one on TV, but did a > little bit of Google searching > ht

V2 Sandbox Creation Script

Hello all, Below is what I have so far for my script, I can get every piece to work correctly on it's own, nut I cannot get these two pieces to work together. I think I am messing up the syntax of this script. What Am I doing wrong?? How do I loop in the Directory creation, and file copy proce

Re: V2 Sandbox Creation Script

Garrett, Try changing the following line: system mkdir $location or die "Couldn't make the target directory: $!\n"; to: mkpath($location,1,0777) or die "Couldn't make the target directory: $!\n"; Good luck, Steve On Thu, Jan 10, 2002 at 02:38:50PM -0800, garrett esperum w

Log Users

I already have a user registration form set up, but now I want to be able to display the last 10 visitors which logged into my site. The current code I have does the following: displays the last user to login what they did what anonymous users are doing using 3 different files $session_user

Re: interesting JAPH, how does this work?

[EMAIL PROTECTED] (Zentara) writes: > I get it, so "perl" equals 285075 in a base24 number > system, with the alphabet as it's units. 24? What's 24? There are _26_ letters in the alphabet! Or was "24" a base _11_ number? And if so, what extra digit were you using other than your fingers? :-

regex for shared object files

Hi, I'm trying to find all .so.xxx files on my system. Eventually I want to do things with them, but for now I just want to identify them. I pretty much have it, except I'm lacking enough regex knowledge to separate out the so from the .so. files. I'm matching cursor moc_sound libqt.so.2 lib

RE: regex for shared object files

It's not clear to me if you like matching libqt-mt.so If you do, then change your regex to: if ($name =~ m/\.so/) # escape the period makes it match an actual period If not, then change it to: if ($name =~ m/\.so\./) #matches libqt.so.2, but not libqt-mt.so the . character in your origina

Re: regex for shared object files

--- zentara <[EMAIL PROTECTED]> wrote: > Hi, > I'm trying to find all .so.xxx files on my system. > Eventually I want to do things with them, but for > now I just want to identify them. > > I pretty much have it, except I'm lacking enough > regex knowledge to separate out the so from the .so. >

Re: regex for shared object files

On Thu, 10 Jan 2002, zentara wrote: > Hi, > I'm trying to find all .so.xxx files on my system. > Eventually I want to do things with them, but for > now I just want to identify them. > > I pretty much have it, except I'm lacking enough > regex knowledge to separate out the so from the .so. > f

Re: V2 Sandbox Creation Script

Thanks! That helped, This is what my script looks like now: #!/usr/local/bin/perl -w use strict; use File::Path; use File::Copy; my $file; my $type; my $currentLocation; my $newLocation; my $owner; my $permissions; open (MDATA, "meta-data") or die "Cannot open $!\n"; while () { chomp;

Re: V2 Sandbox Creation Script

--- garrett esperum <[EMAIL PROTECTED]> wrote: > Thanks! That helped, > This is what my script looks like now: > > #!/usr/local/bin/perl -w > > use strict; > use File::Path; > use File::Copy; > > my $file; > my $type; > my $currentLocation; > my $newLocation; > my $owner; > my $permissions; >

Re: regex for shared object files

On Thu, 10 Jan 2002, Christopher Solomon wrote: > > On Thu, 10 Jan 2002, zentara wrote: > > > Hi, > > I'm trying to find all .so.xxx files on my system. > > Eventually I want to do things with them, but for > > now I just want to identify them. > > > > I pretty much have it, except I'm lacking en

Re: V2 Sandbox Creation Script

--- garrett esperum <[EMAIL PROTECTED]> wrote: > Thanks! That helped, > This is what my script looks like now: > > #!/usr/local/bin/perl -w > > use strict; > use File::Path; > use File::Copy; > > my $file; > my $type; > my $currentLocation; > my $newLocation; > my $owner; > my $permissions; > o

Re: V2 Sandbox Creation Script

Okay, I'll confess. I stayed up wy too late last night and my Perl skills seems inversely proportional to my energy level. I wasn't paying attention to the fact that you were doing a foreach on a scalar, which is typically not ver useful. Here's the code, as I understand your intent,

Re: V2 Sandbox Creation Script

Garrett Esperum wrote: > > Hello all, Hello, > Below is what I have so far for my script, I can get every piece to work > correctly on it's own, nut I cannot get these two pieces to work together. I > think I am messing up the syntax of this script. What Am I doing wrong?? How > do I loop in th

Re: regex for shared object files

Zentara wrote: > > Hi, Hello, > I'm trying to find all .so.xxx files on my system. > Eventually I want to do things with them, but for > now I just want to identify them. > > I pretty much have it, except I'm lacking enough > regex knowledge to separate out the so from the .so. > files. > >

Re: V2 Sandbox Creation Script

OK, I am almost there! Current Script (it's named cre3.pl) #!/usr/local/bin/perl -w use strict; use File::Path; use File::Copy; my $file; my $type; my $currentLocation; my $newLocation; my $owner; my $permissions; open (MDATA, "meta-data") or die "Cannot open $!\n"; while () { chomp;

Log Users

I already have a user registration form set up, but now I want to be able to display the last 10 visitors which logged into my site. The current code I have does the following: displays the last user to login what they did what anonymous users are doing using 3 different files $session_usern

Apache running perl scripts

Hi All Apologies as this is not strictly a perl question, Im trying to install an apache websever onto a WIN95 system. I have managed to successfully install it so far as it runs under the the URL http://127.0.0.1/ but will not run when I type http://localhost. I am running Apache 1.3.20

Re: out vs my for efficiency Was: 'my' for each loop or no ?

Thanks for the info Curis. I don't think I saw any answers from the more internal aware gurus out there and like Curtis, I would certainly like to know more about this. TIA At 14:32 2002.01.08, Curtis Poe wrote: >--- Eric Beaudoin <[EMAIL PROTECTED]> wrote: >> I was wondering if someone could

Re: Apache running perl scripts

Edit your hosts file (C:\windows\hosts, I think) Add this line 127.0.0.1 localhost - Original Message - From: "rabs" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, January 10, 2002 4:35 PM Subject: Apache running perl scripts > > Hi All > > Apologies as this is no

Re: Apache running perl scripts

never had to install perl on a windows box but the localhost problems seems like you need to use a hosts file so localhost resolves. hope this helps Steve On Fri, 11 Jan 2002, rabs wrote: > > Hi All > > Apologies as this is not strictly a perl question, Im trying to install an > apache web

Calculate the distance between 2 coordinates

I've been looking for either a perl script or module to help me calculate the distance between 2 coordinates. Does anyone have any ideas or scripts? Ray -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Calculate the distance between 2 coordinates

At 09:56 PM 01/10/2002 -0600, you wrote: >I've been looking for either a perl script or module to help me >calculate the distance between 2 coordinates. Does anyone have any >ideas or scripts? No need for a module, all you need to do is remember basic high-school geometry. Two words: Pythagorean

RE: Calculate the distance between 2 coordinates

I searched google and found several examples. Should have done that first but didn't think about it before I posted. Sorry for the wasted bandwidth. Ray -Original Message- From: Mel Matsuoka [mailto:[EMAIL PROTECTED]] Sent: Thursday, January 10, 2002 6:03 PM To: [EMAIL PROTECTED] Subj

Re: Calculate the distance between 2 coordinates

On Thu, 10 Jan 2002, Ray Seals wrote: > I've been looking for either a perl script or module to help me > calculate the distance between 2 coordinates. Does anyone have any > ideas or scripts? There is a simple vector algebra algorithm for this: If you have two points, p and q p(a, b) q(c, d

Completed Script

Thank you all for helping me with my script! Below is it's final WORKING incarnation. You all were very nice and very helpful!! Thank You! #!/usr/local/bin/perl -w use strict; use File::Path; my $file; my $type; my $currentLocation; my $newLocation; my $owner; my $permissions; open (MDATA, "m

return code

Hi All, I'm calling a Java application using "system". How can I know the return code of the called Java application? Your help will be appreciated so much. Ahmed -- [EMAIL PROTECTED] | http://www.photo.net/users/ahmed -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-

Compile .cgi programs

Dear Friends, can u tell me, how can i create an executable file for the perlcgi program on linux. The cgi program is written in perl and it also have javascript for client side validations. cgi file have "require" and "use" statements. A1) How can i create exe files for the .cgi files

searching file and printing output

hello, i have a file with contact information for a bunch of people (sometimes other info) name: katia phone: 123-456-789 I want to read through this file and grab everything after name: and the entire next like and print it in an out file like: katia,123-456-789 I can parse the file and print