Perl question: File::Find not working as expected

2003-07-01 Thread Richard Crawford
The following Perl script copies files from a Windows server (Vader) to a Unix server (Neo). The directory structures on each are slightly different (hence the storm of regexp's in the subroutine). Within each directory on both servers there is a subdirectory called "messages"; for some reason, t

Re: Perl question

2003-06-21 Thread Ronald J Roy
On Fri, Apr 25, 2003 at 11:50:20PM -0600, Ashley M. Kirchner wrote: > > This may be a dumb question, buthow do you remove perl modules? > Like, if I installed something via CPAN that I no longer need, how do I > remove it? > to list all modules: perl find_modules.pl to remove: perl rem

Re: [OFFTOPIC]Quick Perl Question

2003-03-22 Thread David Busby
ork as expected. The PERL docs can tell you what the builtin variable name is for the IFS, and show you how to change it. /B - Original Message - From: "Robert Canary" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, March 21, 2003 23:11 Subject: Re: [OFF

Re: [OFFTOPIC]Quick Perl Question

2003-03-21 Thread Robert Canary
That is something like what I just did.. &store_header($paragraph); sub store_header { my ($paragraph) [EMAIL PROTECTED]; my (@paragraph) = split("\n", $paragraph); while (pop @paragraph) { $global_header_list .= if /^dn/ } The hang up a had (other than brain dead after 12 hours) was

Re: [OFFTOPIC]Quick Perl Question

2003-03-21 Thread gabriel
On March 22, 2003 01:07 am, Robert Canary wrote: > I am trying figure out how do comb through a $variable that has multiple > "\n" and each line has various number of characters, and white spaces. > A for loop won't work, it keeps capturing individual words, I need to > capture whole lines. i'm ha

[OFFTOPIC]Quick Perl Question

2003-03-21 Thread Robert Canary
Sorry for the offtopic,...just a quick question I have a number a variables in a perl script, and these variables are actually formated paragraphs of text built up by the perl script. However, I need to query each variable and save a pacticular line that starts DN, and save that list of DNs for a

RE: Perl question

2003-02-17 Thread Paul Kraus
'there',steve']; -Original Message- From: Stephen Spalding [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 13, 2003 4:18 PM To: CGI; redhat Subject: Perl question Hello all, I have a question about perl. I'm trying to pass an array into a subroutine, but I don&

Perl question

2003-02-17 Thread Stephen Spalding
Hello all, I have a question about perl. I'm trying to pass an array into a subroutine, but I don't know what the proper way to receive it in the subroutine is. Below is an example of what I'm trying to do. The ??? represents what I do not know what to put in. @sample_array = ('hi', 'there', 'ste

Re: [OT] perl question [answered]

2000-09-07 Thread Bret Hughes
= $value; > } > . > . > . > } > > The result in this case will be two hash values defined: > $FORM(name) = "Bill Clinton"; > $FORM(address) = "1600 Pennsylvania Apt #4"; > > Good luck, > Ron Brinkman > > -Orig

RE: [OT] perl question [answered]

2000-09-07 Thread Ron Brinkman
ot;1600 Pennsylvania Apt #4"; Good luck, Ron Brinkman -Original Message- From: Bill Carlson [SMTP:[EMAIL PROTECTED]] Sent: Wednesday, September 06, 2000 8:20 AM To: [EMAIL PROTECTED] Subject:Re: [OT] perl question [answered] On Wed, 6 Sep 2000, Bret Hughes wrote: &

Re: [OT] perl question [answered]

2000-09-06 Thread Charles Galpin
On Wed, 6 Sep 2000, Bret Hughes wrote: > Thanks for the tips guys. As I was looking at my code, I > realied that I had not actually tried the combination that I > posted. What i did try was: > > @resarray= split /"\n"/, $resstring; > > Which for some reason I can not discern, puts everything

Re: [OT] perl question [answered]

2000-09-06 Thread Bill Carlson
On Wed, 6 Sep 2000, Bret Hughes wrote: > Thanks for the tips guys. As I was looking at my code, I > realied that I had not actually tried the combination that I > posted. What i did try was: > > @resarray= split /"\n"/, $resstring; > > Which for some reason I can not discern, puts everything

Re: [OT] perl question [answered]

2000-09-06 Thread Bret Hughes
Bret Hughes wrote: > Please forgive the off topic post but I don't subscribe to a > perl list, and hate to for the occasional question. > > OK, I give up. I know this should be a simple task but I > cannot get it to work. I am using the perl libwww request > object to retrieve the results of a

Re: [OT] perl question

2000-09-06 Thread Charles Galpin
dump the text to a file and do a od -c file to see the end of line cahrs (if they exist). they might be DOS end of line chars. what kind of processing do you want to do? Sometimes it's even easier to have the text as one long string anyway. On Wed, 6 Sep 2000, Bret Hughes wrote: > Please for

Re: [OT] perl question

2000-09-06 Thread Osyrys
I send you (privately) a sample to look through, if that doesn't work, (and this may help others with some things too) there is a place called All Experts at http://www.allexperts.com where you can ask people questions for free. I used to volunteer there when I had more time. They

Re: [OT] perl question

2000-09-06 Thread Joe Brenner
> Please forgive the off topic post but I don't subscribe to a > perl list, and hate to for the occasional question. Don't neglect the usenet newsgroups. There's always comp.lang.perl.misc, or possibly comp.infosystems.www.misc (or you might even try comp.infosystems.www.authoring.cgi, which ha

[OT] perl question

2000-09-05 Thread Bret Hughes
Please forgive the off topic post but I don't subscribe to a perl list, and hate to for the occasional question. OK, I give up. I know this should be a simple task but I cannot get it to work. I am using the perl libwww request object to retrieve the results of a POST. I get the result back (ht

Re: Perl question comparing lastModified time to now

2000-03-05 Thread Cameron Simpson
On Sun, Mar 05, 2000 at 01:08:24PM -0500, gnielson wrote: | I am trying to figure out a way to test a file with perl to find out when | it was lat modified and if that was within the last minute, do something, | otherwise exit. | | I've gotten as far as this: | | $file='filename.txt'; | $lastMod

Perl question comparing lastModified time to now

2000-03-05 Thread gnielson
Hi there: I am trying to figure out a way to test a file with perl to find out when it was lat modified and if that was within the last minute, do something, otherwise exit. I've gotten as far as this: $file='filename.txt'; $lastModified = printf "%f", -M $file; which gives me a number such as

Re: a little `perl' question

1998-06-10 Thread Marc MERLIN
On 9 Jun 1998 23:48:06 -0700, Hossein S. Zadeh <[EMAIL PROTECTED]> wrote: >Actually I want to setup a script under NT, so that whenever someone logs >in and a temporary partition is fuller than, say, 90 percent, it >automatically formats it. I thought it would be easy using perl, otherwise >I'll w

Re: a little `perl' question

1998-06-10 Thread Hossein S. Zadeh
On Tue, 9 Jun 1998, Jakob 'Sparky' Kaivo wrote: > I don't see why you need a perl script. You can get the disk usage and > free space from a `df /dev/filesystem` command. If you think you need perl > so it can be on a web page, you don't. You can just make a shell script > where the first thing i

Re: a little `perl' question

1998-06-10 Thread Jakob 'Sparky' Kaivo
On Wed, 10 Jun 1998, Hossein S. Zadeh wrote: > Hi there, > I need a little perl script that checks disk space (free and total) on a > particular partition. I was wondering if any kind sole is willing to help > me with that as I `no speak perl'. > > Obviousely any flame or any go-learn-it-yourse

a little `perl' question

1998-06-10 Thread Hossein S. Zadeh
Hi there, I need a little perl script that checks disk space (free and total) on a particular partition. I was wondering if any kind sole is willing to help me with that as I `no speak perl'. Obviousely any flame or any go-learn-it-yourself-you-bustard kind of reply > /dev/null cheers, Hossein

RE: Perl Question

1998-04-13 Thread Tempel, Philippe
> Sorry, off topic but i need answer to this q right away. > > What's the equivalent command for "break" in Perl? > [PT] The break and contunie statements in C become last and next in perl. See p. 533 of the "camel book". -- PLEASE read the Red Hat FAQ, Tips, Errata and th

Perl Question

1998-04-13 Thread Bench
Sorry, off topic but i need answer to this q right away. What's the equivalent command for "break" in Perl? -- PLEASE read the Red Hat FAQ, Tips, Errata and the MAILING LIST ARCHIVES! http://www.redhat.com/RedHat-FAQ /RedHat-Errata /RedHat-Tips /mailing-lists To unsubscribe: mail

Re: Off topic PERL question...

1998-04-05 Thread Bench
It's because of Expect, the version of Expect (i believe) is newer than 5.18. Use version 5.18 and it will be consistent. _ benchdelosangelesjr. On Sun, 5 Apr 1998, L. M. Marchese wrote: > I run RH4.2 with Apache and am trying to write a cgi program which > changes a user's password based on

Re: Off topic PERL question...

1998-04-05 Thread Bryan Andregg
On Sun, 5 Apr 1998 17:55:21 -0400 (EDT), Cristian Gafton wrote: >On 5 Apr 1998, Bryan C. Andregg wrote: > >> Why would you use perl to run useradd and passwd? It is much faster to have >> perl edit the files by hand. > >Because of terrible little not-important non-essential things like proper >lo

Re: Off topic PERL question...

1998-04-05 Thread Cristian Gafton
On 5 Apr 1998, Bryan C. Andregg wrote: > Why would you use perl to run useradd and passwd? It is much faster to have > perl edit the files by hand. Because of terrible little not-important non-essential things like proper locking, maybe ? Cristian -- ---

Re: Off topic PERL question...

1998-04-05 Thread L. M. Marchese
I run RH4.2 with Apache and am trying to write a cgi program which changes a user's password based on his/her input in from a web form. Is there a ready program out there I can use? I have tried the following EXPECT script from O'Reilly's "UNIX Power Tools" but it doesn't work all the time. I s

Re: Off topic PERL question...

1998-04-05 Thread Bryan C. Andregg
On Sat, 4 Apr 1998 16:34:38 -0800 (PST), <[EMAIL PROTECTED]> wrote: > I am tring to write a perl script that will add a user and set up their > password. I have no problem adding the user, using a system call to the > useradd command. I am tring to set the password like this: > > open(PASSWD, "

Re: Off topic PERL question...

1998-04-04 Thread Bench
Try using Expect. I use version 5.18 because of some problems I experience with the new versions of it (5.24 and the version included with Redhat 5) and use Tcl 7.4 for this old version of Expect. Look at the example file 'autopasswd' and start from there. If you're using PAM authentication, yo

Off topic PERL question...

1998-04-04 Thread redhat
I am tring to write a perl script that will add a user and set up their password. I have no problem adding the user, using a system call to the useradd command. I am tring to set the password like this: open(PASSWD, "| passwd " . $username); print PASSWD $password . "\n"; print PASSWD $password