RE: loopy question

2001-12-07 Thread Wright, Thomas
Thanks, It is working as expected! -Original Message- From: Wagner-David [mailto:[EMAIL PROTECTED]] Sent: Friday, December 07, 2001 2:39 PM To: 'Wright, Thomas'; Beginners (E-mail) Subject: RE: loopy question Yes, as long as you don't need the current record othe

loopy question

2001-12-07 Thread Wright, Thomas
Folks, A questions about loops and files. If I have the following construct: while () { $recA = $_ do something; while () { $recB = $_; if ($this) { do something2; } elsif ($that) { do something3; last; } else { # the o

RE: system `ls` or File::Find?

2001-12-04 Thread Wright, Thomas
Thanks for the help guys, I have it working now. Tom -Original Message- From: Daniel Gardner [mailto:[EMAIL PROTECTED]] Sent: Monday, December 03, 2001 3:44 PM To: Wright Thomas Cc: Beginners (E-mail) Subject: Re: system `ls` or File::Find? Monday, December 03, 2001, 8:14:48 PM

system `ls` or File::Find?

2001-12-03 Thread Wright, Thomas
Hi folks. I need to select a single file name from a list of filenames and assign it to a variable. I currently do this in a few shell scripts using: $last_file=`ls -1r somedata_file.dat.*.orig | head -1` The "*" represents a timestamp in the filename. This allows me to select the most recent

getline() and while loops

2001-11-12 Thread Wright, Thomas
Hi folks, I am misunderstanding something about getline() and while loops. I get the following error message with the script below: Can't locate object method "getline" via package "IO::Handle" at find_uniq_rec_4 ..pl line 38, chunk 1. But I can not figure out what is wrong to cause it. I

RE: problems with eof and variable

2001-11-02 Thread Wright, Thomas
Thanks! Duh! on to the next set of errors.. -Original Message- From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]] Sent: Friday, November 02, 2001 4:12 PM To: Wright, Thomas Cc: [EMAIL PROTECTED] Subject: Re: problems with eof and variable On Nov 2, Wright, Thomas

problems with eof and variable

2001-11-02 Thread Wright, Thomas
Hi folks, Be gentle, this is my very first Perl program, and it is basically a batch file processing task, nothing fancy. I know it is not the most efficient, but I want to keep it as simple and clear as possible. Once I get it working, I can make it tighter. I am getting 2 or 3 errors, though