Linux Beginners Mailing List as good as this one

Hello Everybody, I want to know the names of Linux Beginners mailing list as good as this one of Perl. Waiting for Reply, Thanx, Rahul

newlines

Hi, I'm wondering how to make sure that when my data is written to a file, a proper end of line is in place after ea. intended line. code: ... # now loop and append the data to the file # Loop thru hash and write data foreach $value(values %cgidata) { if ($debug 0) { print Writing

Re: newlines

Hello Sergio, Thursday, July 26, 2001, Sergio Gonzalez [EMAIL PROTECTED] wrote: SG Hi, SG I'm wondering how to make sure that when my data is written to a file, a SG proper end of line is in place after ea. intended line. it's not your job. leave it to operating system. SG code: SG ... SG

Re: e-mailing HTML form results

It looks like my local host connects---i get: EHLO 209.67.207.3 Net::SMTP=GLOB(0x82284f0) 250-freya.domainnameservers.net Hello localhost [127.0.0.1], pleased to meet you But I want the SMTP to connect to the place where my HTML page is so it can be mailed. I keep getting the same error

Re: e-mailing HTML form results

It looks like my local host connects---i get: EHLO 209.67.207.3 Net::SMTP=GLOB(0x82284f0) 250-freya.domainnameservers.net Hello localhost [127.0.0.1], pleased to meet you But I want the SMTP to connect to the place where my HTML page is so it can be mailed. I keep getting the same error

RE: Date

Fred, I don't know if this will help, but I have this code that figures out what yesterday's date is. It should be relatively simple to change it to two days ago. I am sure that there are easier ways to do it, but this has been working for me for a long time. The only two caveats are that I

Still having problems sending mail...

I'm still trying to get my script to send some a simple email. I looked up some examples, namely : http://perlfect.com/articles/sendmail.shtml, but it still doesn't work. I'm using the -T switch, and heres the code fragment: First, I define my variables: #variables for sending mail my

Re: Still having problems sending mail...

Ryan Davis/Pamela Karr wrote: I'm still trying to get my script to send some a simple email. I looked up some examples, namely : http://perlfect.com/articles/sendmail.shtml, but it still doesn't work. I'm using the -T switch, and heres the code fragment: [snip] Then I try to send the

perl on NT

Hello, I used to know perl. And now I forgotten it all. I used it to make perl cgi scripts that used to run of a UNIX server. But now, I have to make perl/cgi scripts that run of an NT server and I'm really stuck! I tried running the hello world script, well not run it, but is used it as the

Re: Still having problems sending mail...

The problem with using other modules is that I'm not in control of the server. Is there a way to use a module without having access to the perl lib. directories? I just have an account, one of those http://blah.edu/~me/ kinda things. Thanks, Ryan - Original Message - From: fliptop

Weekly list FAQ posting

NAME beginners-faq - FAQ for the beginners-cgi mailing list 1 - Administriva 1.1 - I'm not subscribed - how do I subscribe? Send mail to [EMAIL PROTECTED] You can also specify your subscription email address by sending email to (assuming [EMAIL PROTECTED] is your email

Re: Still having problems sending mail...

Ryan Davis/Pamela Karr wrote: The problem with using other modules is that I'm not in control of the server. Is there a way to use a module without having access to the perl lib. directories? I just have an account, one of those http://blah.edu/~me/ kinda things. hmm. although i've

Re: book for newbee

--- [EMAIL PROTECTED] wrote: Hello, I am a newbee, I have the book below. Is it okay to start with this book?? Perl and Cgi for the world wide web by Elizabeth Castro. Best Regards, Chuck If it is the first edition of that book, I *strongly* recommend against it. It's

Re: book for newbee

At 02:30 PM 07/26/2001 -0700, [EMAIL PROTECTED] wrote: Hello, I am a newbee, I have the book below. Is it okay to start with this book?? Perl and Cgi for the world wide web by Elizabeth Castro. NO Pretty terrible book, obviously not written by an experienced Perl programmer. Check out

Re: book for newbee

--- Mel Matsuoka [EMAIL PROTECTED] wrote: At 02:30 PM 07/26/2001 -0700, [EMAIL PROTECTED] wrote: Hello, I am a newbee, I have the book below. Is it okay to start with this book?? Perl and Cgi for the world wide web by Elizabeth Castro. NO Pretty terrible book, obviously not

RE: book for newbee

Liz Castro's book was the first I picked up, and while I certainly wouldn't use it your only text on the subject, she really does explain some complicated concepts in terms that a total beginner can appreciate. I still use the book as a quick reference, as it's small and handy :)

colors and blink

Hi, I am not sure this falls under cgi, but I want to be able to wave text blink and different backgorund colors. print brfont color=blueblinkTEST/blinkbrfont color=greenTESTbr; One problem I have is that ALL the text blinks after the /blink I no idea on how to do text background color.

RE: Linux Beginners Mailing List as good as this one

Topica.com has some nice ones if you search for linux (he basic linux training list comes recommended) A local linux user group list would be useful too. linuxnewbie.org has some good people that hang around the message forums. Good luck. -Original Message- From: Rahul Garg

Security Issue needing correcting

Hi I created a script that would take the online form data and fill in the data onto a word.doc form keeping it perfectly formatted, and then emailing the completed word.doc form to the email address. Though I am concerned that a malious macro could be implanted or that it is not secure

RE: book for newbee

Liz Castro - Burn me once shame on you burn me twice I bought the first edition and was very unhappy. Even the code examples when downloaded have to be figured out as they aren't in a logical order like - chapter 1, chapter 2, etc. So I read on her site that the second edition covered

Re: Help with Install of DBI - on Unix

Hello, If I'm not mistaken, you don't have the gcc compiler or it's not in the path. Check if gcc is in your path. Check that you have gcc. Check that it's called gcc. If all fails, try using cc. Do all the checks I mentioned for cc. Change your config file to use cc instead of gcc if all

Please, please help with taint mode problems!

I really want to keep -T to keep my script completely safe, but I simply cannot get the script to completely execute. I am driving myself crazy because I don't want to cop out and delete the -T. I think I'm properly untainting my form variables (I've tried various ways - this is one of them):

RE: Help with Install of DBI - on Unix

Thank you for the information ... This site has several versions of perl installed ... but I am doing the perl Makefile.PL as perl5.00502 Makefile.pl Next I changed three references of gcc to cc --- seemed to help ... Then got a version check ... so changed the tokens #PERL =

RE: book for newbee

More Specialized book! The CGI.pm book ,, by Lincoln Stein ( creator of the CGI.pm) ... highly recommended ...! Luck! . = Francisco Valladolid V Microsistemas Taking the Initiative! [EMAIL PROTECTED] - Original Message - From: [EMAIL PROTECTED]

Tear me to shreds please...

Dear great PERL masters, This is my first major code in perl that works. It creates an LDIF file for our openLDAP server. So aside from use strict (YES I KNOW, but i started this project well before I learnt that, and I couldn't be buggered going through and changing it all) what else is

Reading binary files

Hi, How do I read a binary file?? From this file, I need to read 16 bit values. I have attached a sample binary file alongwith. When you are reading this file, enable `hex edit mode'. Any help will be deeply appreciated. Regards, Samba

Re: how to get an array index number

On Thu, 26 Jul 2001, Birgit Kellner wrote: I'm thinking of coding a KWIC search through a text. The user chooses a search string and a horizon, meaning that output is to contain $i words to the left and to the right of the search string (if found). This is the code I have so far: my

Re: Date problem

Use the POSIX function strftime: #!/usr/local/bin/perl -w use POSIX; print The date is : ,POSIX::strftime(%m%d%Y,localtime()),\n; -- snip -- [notjames@concon notjames]$ perl -MPOSIX -e ' print The date is : ,POSIX::strftime(%m%d%Y,localtime()),\n; ' The date is : 07252001 -- !snip --

Arrays as subroutines arguments

Hi How can I pass two arrays as subroutine arguments? thanks in advances -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

array contents to a file

Could someone provide a snippet of code that reads the contents of an array to a text file. Thanks, Ron _ Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp -- To unsubscribe, e-mail: [EMAIL PROTECTED]

RE: array contents to a file

Like this?? @array = qw(one two three four); open FILE, c:\\out.txt or die Can't create c:\\out.txt: $!; foreach $element(@array) { print FILE $element\n; } close FILE; -Original Message- From: Ron Smith [mailto:[EMAIL PROTECTED]] Sent: 26 July 2001 09:36 To: [EMAIL PROTECTED]

Re: Arrays as subroutines arguments

Hello Diego, Thursday, July 26, 2001, Diego Riaño [EMAIL PROTECTED] wrote: DR How can I pass two arrays as subroutine arguments? passing arrays as arguments is bad idea; you should use references. my_sub(\@array1, \@array2); sub my_sub { my ($ref1,$ref2) = @_; print $$ref1[0], $$ref2[0]; }

Re: Reading binary files

Hello Sambamoorthy, Thursday, July 26, 2001, Sambamoorthy Jayaraman [EMAIL PROTECTED] wrote: SJ How do I read a binary file?? From this file, I need to read 16 bit values. SJ I have attached a sample binary file alongwith. When you are reading this SJ file, enable `hex edit mode'. perldoc -f

table problem

--- Erhalten von ZBM.ZAGTA 089/32000-414 26-07-01 11.40 Hi all, i have problem with tag in the table. i have a program and a want to chance with use CGI; i try to use : print $q-start_table(); print $q-end_table; and $q = new CGI; ex. print $q-table({-border = 0, -align =

file's manipulation

Hi! I ask two questions: 1) how can i do to add a line in the begining of a file ? 2) how can i do to delete lines after a character string which is in a line ? thanks -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Convert date mmddyy to day of the week

Try the Date::Calc module. It has tons of handy date functions. Example: use Date::Calc qw(Decode_Date_US Day_of_Week Day_of_Week_to_Text); my $text = '07/25/01'; #if validity of date is in question my @date = Decode_Date_US($text); print ((@date ? Day_of_Week_to_Text(Day_of_Week(@date)) : not

isWindows95() and isWIndowsNT()

Hi all, This is my first post :) I once saw functions such as the ones above for perl. I am writing a script and I want to be able to determine the machine's Operating System type. Does anyone know where i can get these functions or similar ones to determine the OS type. I know how to get

RE: Convert date mmddyy to day of the week

-Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 25, 2001 4:33 PM To: [EMAIL PROTECTED] Subject: Convert date mmddyy to day of the week I want to convert a date in the format mm/dd/yy to the day of the week. For example 07/25/01

Re: isWindows95() and isWIndowsNT()

$ENV{OS} will get you the os on some platforms,. run this simple script on your systems and check it out.. foreach (keys(%ENV)){ print \$ENV{$_} $ENV{$_} \n; } pierre - Original Message - From: Barry Carroll [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, July 26, 2001 1:17

Re: file's manipulation

COLLINEAU, You need to open a new file, then the one in question. 1. Add the new line to the new file. 2. Read from the old file and write to the new file. 3. If need to alter any line or delete it, then do not write it to your new file 4. Close your files. Jerry COLLINEAU Franck

Re:height width Perl Tk

Hi, I made some buttons with bitmap : my $bouton=$mw-Button(-bitmap = 'error', -relief ='raised', -height ='27', -width = '27', -cursor = 'pirate',

RE: USPS has me stumped!

-Original Message- From: Luke Bakken [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 25, 2001 5:13 PM To: [EMAIL PROTECTED] Subject: USPS has me stumped! Hi all, I'm tinkering with some of the libwww modules and trying to get some information from the USPS web site.

SENDMAIL

anyone has an idea how to send email by sendmail in linux 7.1 thanks, mohamed __ Do You Yahoo!? Make international calls for as low as $.04/minute with Yahoo! Messenger http://phonecard.yahoo.com/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

RE: clearing memory

-Original Message- From: Michael Fowler [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 25, 2001 5:26 PM To: Yacketta, Ronald Cc: Beginners (E-mail) Subject: Re: clearing memory ... The ideal solution would be to use lexical variables that go out of scope before it starts

RE: SENDMAIL

Use 'mail [EMAIL PROTECTED] -s Subject:whatever' cheers Neil Fryer Solaris Systems Administrator [EMAIL PROTECTED] -Original Message- From: Mohammed Maraikayar [mailto:[EMAIL PROTECTED]] Sent: 26 July 2001 02:48 To: [EMAIL PROTECTED] Subject: SENDMAIL anyone has an idea how to send

RE: Tear me to shreds please...

First, this is a beginners list, so there will be no tearing to shreds. Secondly: The Great Truth of Perl: There is always more than one way to do it . suggestion: replace this:$j = scalar(@array); $j--; for $d (0 .. $j) with this:

Beginners OO tutorial

LS, as promised, i wrote up a beginners OO tutorial i split it into mulitple parts as i saw the tutorial growing to quite a size part 1 is now up and can be read in the tutorials section of http://japh.nu part 2 and followign will be up there shortly (and for those wondering, yes, i put the

RE: Reading binary files

-Original Message- From: Sambamoorthy Jayaraman [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 26, 2001 2:32 AM To: [EMAIL PROTECTED] Subject: Reading binary files Hi, How do I read a binary file?? From this file, I need to read 16 bit values. I have attached a sample

RE: array contents to a file

-Original Message- From: John Edwards [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 26, 2001 4:43 AM To: 'Ron Smith'; [EMAIL PROTECTED] Subject: RE: array contents to a file ... foreach $element(@array) { print FILE $element\n; } FWIW, this can be simplifed to:

RE: isWindows95() and isWIndowsNT()

-Original Message- From: Barry Carroll [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 26, 2001 8:18 AM To: '[EMAIL PROTECTED]' Subject: isWindows95() and isWIndowsNT() Hi all, This is my first post :) I once saw functions such as the ones above for perl. I am writing

Another pattern question

Hi again, for example i have a file like : zxcvzxcv qwerasdf bnmmsdfgy I need to split the sentences into a variables in list. So i do it in 2 stages: 1. Remove the \t form each pair: foreach (@list) { push(@temp, (split(/\t+/, $_))); } 2. Then i remove the \n between the strings:

Login error w/FTP

Well, I have this script that I'm trying to write using the FTP module, however it keeps responding with an error message concerning the login line of the script whenever I try to run it. I have run out of ideas and have absolutely no clue as to what the problem is. It is driving me crazy.

RE: Login error w/FTP

-Original Message- From: Sparkle Williams [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 26, 2001 10:13 AM To: [EMAIL PROTECTED] Subject: Login error w/FTP Well, I have this script that I'm trying to write using the FTP module, however it keeps responding with an error

Compiling into C source code.

Hi All, I have a perculiar problem: i have a perl script test.pl which i want to convert into C source. perlcc will work fine, is there any way of getting it to generate the C source and stop. I ask this because when i try 'perl -M0=CC, -otest3.pl.c test3.pl' it doesn't work, it says '-o' is

Array::compare question

Hi everybody Does someone know if the array::compare module can handle array of arrays? Thanks in advances DiegoM -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Compiling into C source code.

sorry, i figured this one out myself, thanks anyway! :) -Original Message- From: Barry Carroll [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 26, 2001 3:24 PM To: '[EMAIL PROTECTED]' Subject: Compiling into C source code. Hi All, I have a perculiar problem: i have a perl script

Re: how to get an array index number

--On Donnerstag, 26. Juli 2001 04:15 +0200 Birgit Kellner [EMAIL PROTECTED] wrote: Hi, I'm thinking of coding a KWIC search through a text. The user chooses a search string and a horizon, meaning that output is to contain $i words to the left and to the right of the search string (if

Re: Another pattern question

--- Daniel Mester [EMAIL PROTECTED] wrote: Hi again, for example i have a file like : zxcv zxcv qwer asdf bnmm sdfgy I need to split the sentences into a variables in list. So i do it in 2 stages: 1. Remove the \t form each pair: foreach (@list) { push(@temp, (split(/\t+/, $_)));

RE: Login error w/FTP

I went back and used chomp on all of the scalar variables, but I still recieved the same error message which is listed below. The STDIN referred to in line 5 is 'chomp($url = STDIN ) ;' Can't call method login on an undefined value at D:\sparkle\perl6.pl line 50, STDIN line 5. From: Daniel

RE: Comparing two text files and outputting difference

Is someone out there to help me please Thanx -Original Message- From: Najamuddin, Junaid Sent: Wednesday, July 25, 2001 5:59 PM To: '[EMAIL PROTECTED]' Subject: Comparing two text files and outputting difference Hi, I am brand new on Perl Learning slowly

code doesn't work

Hi, Can anybody tell me why this code doesn't work ? #!/usr/bin/perl -w open(FICHIER,rdn1.html); open (TEMP,temp.html); while(FICHIER) { print TEMP $_ until ($_ =~m/ancre/); } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: code doesn't work

On Thu, 26 Jul 2001, COLLINEAU Franck FTRD/DMI/TAM wrote: Can anybody tell me why this code doesn't work ? #!/usr/bin/perl -w open(FICHIER,rdn1.html); open (TEMP,temp.html); while(FICHIER) { print TEMP $_ until ($_ =~m/ancre/); } Hard to say without knowing what errors you

RE: code doesn't work

-Original Message- From: COLLINEAU Franck FTRD/DMI/TAM [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 26, 2001 11:12 AM To: Perl (E-mail) Subject: code doesn't work Hi, Can anybody tell me why this code doesn't work ? Define doesn't work #!/usr/bin/perl -w

RE: code doesn't work

i think you want to use 'unless' instead of 'until'. also, take advantage of $_'s magic in your print statement: print TEMP unless /ancre/; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

__TAGS__

Where can i find out more information about the __TAGS__ ? BTW what are they really called? Are they directives? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Another pattern question

Hello, I think what you want to do is first remove the newline character _then_ split the list. ie. open F, my @list; while(F){ chomp; # remove the \n push @list, split/\t+/; # add items to @list } Hope this helps,,, Aziz,,, In article 000901c115e3$31a71ec0$[EMAIL PROTECTED], Daniel

system specific - Perl resource kit -segmentation fault

Hi Anyone I have a red hat 6.2 PII system. i tried to install perl resource kit cdrom 1997 on my machine which has 5.--4 and 5.--45 on it. I get a segmentation fault during installation. My machine has 5.005 version of perl. Any suggestions as to where I can find documentation on this issue? I

Re: regexp issues TR

On Jul 25, Teresa Raymond said: I tried the following code to test for bad characters but keep getting my error msg though the values passed do not contain chars that are not A-Za-z0-9_@.- (I also reread my last post and found that my English articulation was very poor, I'm grateful that

Re: __TAGS__

On Jul 26, Mooney Christophe-CMOONEY1 said: Where can i find out more information about the __TAGS__ ? BTW what are they really called? Are they directives? These are documented in perlsyn: __END__ end of program __DATA__ end of program, but allow this to be accessed via

costing

Hi, I have a text-based, variable record length database (a set of bibliographic references) of approx. 1 megabite and growing, for which I'm creating a command line dbms with perl. Could anybody here tell me if it's going to be quicker to address the data via an ancillary fixed length

RE: appending to file?

I guess Perl does a buffered write. Soo the un filled buffers may not get flushed when the process terminates abruptly as it does in C. David, What made that APPEND to work. If you don't mind can you explain? Thanks, Venkat -Original Message- From: Stephen P. Potter [mailto:[EMAIL

RE: appending to file?

You can use signal handlers $::SIG{__DIE__} = \cgi_die; This will be invoke cgi_die sub when ever the script dies You can also look at perldoc sigtrap Same signal names used in unix signal used here. I suggest to look at sigtrap perldoc - Venkat -Original Message- From: David

RE: __TAGS__

Actually, i checked in perlsyn. It uses a couple of them in examples at the very end, but doesn't really talk about them. I frequently use the __END__ tag while i'm debugging so that i can easily comment out a chunk of code at the end. I'm also using the __DATA__ tag, and i was worried that

RE: appending to file?

Not sure i understand the question. the append works because i did the syntax for it correctly? open(APPEND,testfile) || die print Can't open testfile: $!\n; # i state i want to open this filehandle and append the data to the file testfile, otherwise die if # you can't open testfile print

Weekly list FAQ posting

NAME beginners-faq - FAQ for the beginners mailing list 1 - Administriva 1.1 - I'm not subscribed - how do I subscribe? Send mail to [EMAIL PROTECTED] You can also specify your subscription email address by sending email to (assuming [EMAIL PROTECTED] is your email address):

Re: Date verification

On Thu, Jul 26, 2001 at 10:26:45AM -0700, Wagner-David wrote: I'm not sure if you wanted a code review for this, but one follows. #!perl -w use Time::Local; my @DateUse = (); There's no need to initialize @DateUse like this, arrays start empty. You should move this into the while loop

perl on NT

Hello, I used to know perl. And now I forgotten it all. I used it to make perl cgi scripts that used to run of a UNIX server. But now, I have to make perl/cgi scripts that run of an NT server and I'm really stuck! I tried running the hello world script, well not run it, but is used it as the

last until eof unless question

in my script i have the line currently reading last unless $email; i changed it to read last until eof unless $email; i get a error message for eof unless for a syntax error. Is there a proper way to phrase this type of arguement so it would work? David M.R. Freeman webmaster sysadmin

Re: last until eof unless question

Hello, What does last until eof unless email mean? I don't get what you're after. Can you explain what you're trying to do or include a snippet from your program. Aziz,,, In article 5.0.0.25.0.20010726113250.00a199b0@linus, David Freeman [EMAIL PROTECTED] wrote: in my script i have the line

Renaming Files Help

I keep getting an error when I run this script - No such file or directory. What am I missing? #!/usr/bin/perl -w #rename use File::Find; $DIRLIST = ('D:\PATH\To-Be Model\Data'); find(\process_file, $DIRLIST); rename_files(); sub process_file{ push (@files, $_); }; sub rename_files{

Re: last until eof unless question

well, i'm strictly speaking from a grammatical point of view, but it would seem to me that a last until eof unless $email; would be a valid syntax to go through to the end of the file unless $email was found. i'm not sure that this is what i want to do, but i thought i would see what would

if in a list

I want to test if AF1 is in my list @mylist; I did: foreach $LIST (@mylist) { if ($LIST = AF1) $boolean = 1; else $boolean = 0; } is there a more elegant way to do it? many thanks jennifer -- To unsubscribe, e-mail: [EMAIL

RE: if in a list

That depends on what you're using @mylist for. If you're simply using it to check to see if an element is in the list, then use a hash instead. If you're creating the list element - b push @mylist, $whatever; you can say $myhash{$whatever}=1; Then your search-loop collapses

RE: if in a list

One thing When you compare strings use eq string comparition operator. Not = -Venkat -Original Message- From: Jennifer Pan [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 26, 2001 11:55 AM To: [EMAIL PROTECTED] Subject: if in a list I want to test if AF1 is in my list @mylist;

Re: __TAGS__

On Thu, Jul 26, 2001 at 12:21:38PM -0400, Jeff 'japhy/Marillion' Pinyan wrote: On Jul 26, Mooney Christophe-CMOONEY1 said: Where can i find out more information about the __TAGS__ ? BTW what are they really called? Are they directives? They seem to be called special literals. These are

RE: if in a list

sorry -- that should read if you're creating the list element-by-element like this: push @mylist, $whatever; you can replace it with this: $myhash{$whatever}=1; -Original Message- From: Mooney Christophe-CMOONEY1 [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 26, 2001

Re: if in a list

On Thu, 26 Jul 2001, Jennifer Pan wrote: I want to test if AF1 is in my list @mylist; I did: foreach $LIST (@mylist) { if ($LIST = AF1) $boolean = 1; else $boolean = 0; } is there a more elegant way to do it? Sure is. First of, your

RE: __TAGS__

perlDATA!! thank you! -Original Message- From: Paul Johnson [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 26, 2001 2:11 PM To: [EMAIL PROTECTED] Cc: Mooney Christophe-CMOONEY1; [EMAIL PROTECTED] Subject: Re: __TAGS__ On Thu, Jul 26, 2001 at 12:21:38PM -0400, Jeff 'japhy/Marillion'

RE: if in a list

many thanks, jos and maxim, your suggestions were very helpful. jennifer -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: perl on NT

Masuma, Yes, you need to have perl installed on the NT machine. http://www.activestate.com has a (the?) binary distributable. Perl is an interpreted language, and as such needs an interpreter. It just happens that almost every *nix install has perl by default. They also include the equivalent

RE: last until eof unless question

I don't think 'last until eof' will do what you think it's going to do. If 'eof' is true, then the loop exits, and if it's false then it exits anyway because of the 'last' statement. If you're trying to read from STDIN until you get a proper response from the user, then do something like this:

Re: last until eof unless question

On Thu, Jul 26, 2001 at 11:35:14AM -0700, David Freeman wrote: last until eof unless $email; You can't chain trailing modifiers like that. It also doesn't make much sense: you can't last until eof, because you can only last once; you're not reading from the file, so you'll never reach eof.

Re: Renaming Files Help

On Thu, Jul 26, 2001 at 01:42:11PM -0500, [EMAIL PROTECTED] wrote: #!/usr/bin/perl -w You forgot use strict. Always use strict when debugging code. #rename use File::Find; $DIRLIST = ('D:\PATH\To-Be Model\Data'); find(\process_file, $DIRLIST); rename_files(); sub process_file{

Re: if in a list

I'd actually be surprised if that works... let me point out a few things: if ($list = 'foo') will always be true.. you are assigning 'foo' to $list what you want is probably 'eq' the if block also needs curly brackets {} around it, especially if you want to use the 'else' part more so,

Re[2]: if in a list

Hello Jennifer, Thursday, July 26, 2001, Maxim Berlin [EMAIL PROTECTED] wrote: MB $boolean = grep /AF1/,@mylist; sorry, incorrect sample. should be: $boolean = grep /^AF1$/,@mylist; with first regexp you catch every string, that contain 'AF1'. thanks to Mooney Christophe. Best

Re: if in a list

Hello Jennifer, Thursday, July 26, 2001, Jennifer Pan [EMAIL PROTECTED] wrote: JP I want to test if AF1 is in my list @mylist; JP I did: JP foreach $LIST (@mylist) { JP if ($LIST = AF1) JP $boolean = 1; JP else JP $boolean = 0; JP }

RE: Renaming Files Help

Nevermind, I figured it out. I'm only passing the file name in the rename script, I had to add the whole path to it. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 26, 2001 1:42 PM To: [EMAIL PROTECTED] Subject: Renaming Files Help I keep

Expect

Does anyone know where to find good information on the expect module? the camel book did not say much about it. Thanks -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: last until eof unless question

--- David Freeman [EMAIL PROTECTED] wrote: while(1){ last until eof unless $email; Okay, this is a seriously wierd constructm lol... =o) First of all last until is a logical oxymoron. last breaks out of a loop, until makes one. It's a statement that *could* only execute once at most,

Re: if in a list

On Thu, Jul 26, 2001 at 11:24:12PM +0400, Maxim Berlin wrote: Thursday, July 26, 2001, Maxim Berlin [EMAIL PROTECTED] wrote: MB $boolean = grep /AF1/,@mylist; sorry, incorrect sample. should be: $boolean = grep /^AF1$/,@mylist; with first regexp you catch every string, that contain

  1   2   >