RE: Sudoers Regex

2002-04-19 Thread Jason Larson
-Original Message- From: Blackburn, David W [mailto:[EMAIL PROTECTED]] Subject: Sudoers Regex Hi Hello. I am trying to parse a string of text from a sudoers file, what I am trying to get out is the HOSTCLUSTER name and the hosts. Host_Alias HOSTCLUSTER = host1,

RE: problem with directory listing

2002-04-11 Thread Jason Larson
-Original Message- From: richard noel fell [mailto:[EMAIL PROTECTED]] Subject: problem with directory listing Below is sample code that does not work as I intend, the intention being to list all the sub-directories in a given directory.

RE: regular expression to get a file extension

2002-04-09 Thread Jason Larson
-Original Message- From: Ahmed Moustafa [mailto:[EMAIL PROTECTED]] Subject: regular expression to get a file extension I had the following regular expression to get the extension from a file name: code $extension = $filename; $extension =~ s/(^.+\.)([^\.]+)$/$2/; /code

RE: regex help

2002-04-02 Thread Jason Larson
-Original Message- From: Gabby Dizon [mailto:[EMAIL PROTECTED]] Subject: regex help hello list friends, Hello. hope you can help me with my problem. here it is: i have a date string formatted this way: $date = Apr. 02, 2002 i want to capture the Apr (without the period)

RE: get full name of $user in NT?

2002-03-25 Thread Jason Larson
-Original Message- From: David Samuelsson (PAC) [mailto:[EMAIL PROTECTED]] Subject: get full name of $user in NT? Is there anyway off getting the full name from an remote user? that is, i know the persons log on sign, say ROMI full name is Robert Mitchum accordin to NT. Is

RE: callin subs

2002-03-22 Thread Jason Larson
-Original Message- From: Matthew Harrison [mailto:[EMAIL PROTECTED]] Subject: callin subs i have defined a sub using sub mysubname{ code here } but how do i call it? i have tried just having the name but that doesn't work. -- Matthew Harrison mysubname(); If

RE: Problem with EXE created by PerlApp

2002-03-14 Thread Jason Larson
**The following information is primarily just an FYI** -Original Message- From: Jenda Krynicky [mailto:[EMAIL PROTECTED]] Subject: RE: Problem with EXE created by PerlApp From: Jason Larson [EMAIL PROTECTED] Sorry I don't understand why this happens. Just a wild

RE: Use of uninitialized value error message

2002-03-14 Thread Jason Larson
-Original Message- From: John W. Krahn [mailto:[EMAIL PROTECTED]] Subject: Re: Use of uninitialized value error message Jason Larson wrote: I'm still new to Perl myself, so I can't tell you exactly what's happening, but it looks like $result_value1 is undef when it gets

RE: Use of uninitialized value error message

2002-03-13 Thread Jason Larson
-Original Message- From: Ho, Tony [mailto:[EMAIL PROTECTED]] Subject: Use of uninitialized value error message Hi guys I was wondering if you could help me with the following problem. I am getting the following error message: Use of uninitialized value in string ne at

RE: getOpt::long?

2002-03-13 Thread Jason Larson
-Original Message- From: michael [mailto:[EMAIL PROTECTED]] Subject: Re: getOpt::long? I am a true perl newbie. If you continue like this you will stay one. :-) Thanks for all the feedback. I had intended to send the assignment as an attachment and ask about: 1)

RE: Use of uninitialized value error message

2002-03-13 Thread Jason Larson
Original Message- From: Ho, Tony [mailto:[EMAIL PROTECTED]] Subject: RE: Use of uninitialized value error message Hi Nikola/Jason Thanks for the help. The variable $result_value1 is declared within the subroutine and is never used outside the subroutine. I originally had the

RE: the scope of BEGIN {}

2002-03-13 Thread Jason Larson
-Original Message- From: Nikola Janceski [mailto:[EMAIL PROTECTED]] Subject: the scope of BEGIN {} BEGIN { if ($^O =~ /^(ms)?(win|dos)(32|nt)?$/i){ eval q{ use lib N:/xxx/perl_lib; use Win32::Process;

RE: Multiline searching -

2002-03-12 Thread Jason Larson
-Original Message- From: Steven M. Klass [mailto:[EMAIL PROTECTED]] Subject: Multiline searching - Hi all, I have a text that broken into sections. Each section has comments(;) and can be placed anywhere, Each section ends with *ENDS . Each section begins with

RE: help with my parser program?

2002-03-11 Thread Jason Larson
-Original Message- From: M z [mailto:[EMAIL PROTECTED]] Subject: help with my parser program? could someone please help me make this bit of code more efficient? I am trying to break really long lines, say up to 600 characters into manageable sizes (78 or less characters) but I

RE: Stripping everything after words found

2002-03-11 Thread Jason Larson
Looks like you that almost works, Tanton. I think what he wants is: $string =~ s/^(.*?)Call Distance:.*/$1/; Hope this helps... Jason -Original Message- From: Tanton Gibbs [mailto:[EMAIL PROTECTED]] Sent: Sunday, March 10, 2002 11:29 PM To: Daniel Falkenberg; bob ackerman Cc:

RE: text editors

2002-03-08 Thread Jason Larson
-Original Message- From: michael [mailto:[EMAIL PROTECTED]] Subject: text editors Speaking of text editors, anyone know of a good one that has line #ing for W2K? Free, of course (I am a student). I'm still testing a number of them myself, but so far I like ConTEXT for PERL

RE: Finding words between words...

2002-03-08 Thread Jason Larson
-Original Message- From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]] Cc: 'Daniel Falkenberg '; [EMAIL PROTECTED] Subject: RE: Finding words between words... On Mar 7, Timothy Johnson said: From: Jeff 'japhy' Pinyan ($btwn) = $str =~ /In:(.*)Your/; Out of curiosity,

Problem with EXE created by PerlApp

2002-03-08 Thread Jason Larson
__Disclaimer__ ***Sorry about the giant company disclaimer at the end*** I have a script (script follows signature) that works just fine when executed at the command line (i.e. perl.exe fixnetrcname.pl). I want to make this an executable to distribute to systems that don't have Perl installed,

RE: File substitutions??

2002-03-07 Thread Jason Larson
-Original Message- From: Patrick Bateman [mailto:[EMAIL PROTECTED]] Subject: File substitutions?? Hi everyone Hi! I'm still pretty new myself, so forgive me for not doing this the Perl way. Need help with this please, pretty please!! I open a file containing this: e.g.

RE: simple file reading question

2002-03-06 Thread Jason Larson
-Original Message- From: siren jones [mailto:[EMAIL PROTECTED]] Subject: simple file reading question I have a file containing a list of names, for example: S2000123456.met S2000123457.ozone S2000123458.hdr S2000234569.met . . etc. I'm looking for a short way to

RE: Regexp needed

2002-03-05 Thread Jason Larson
-Original Message- From: Jorge Goncalvez [mailto:[EMAIL PROTECTED]] Subject: re:Regexp needed hi, i have this: my ($Path) = $MountsPath =~ /(.+?)cygwin/; but I wanted to get rid of the /. because $MountsPath could be c:/cygwin or c:/xyz/cygwin or c:/xyz/zyx/cygwin and i

RE: Request from Beginner

2002-03-05 Thread Jason Larson
-Original Message- From: Raja Gopal [mailto:[EMAIL PROTECTED]] Subject: Request from Beginner Hello All, I would like to learn PERL for handling files. (Open, edit, close, write, delete some lines, pattern matching..etc). I did search in the net (using Google.com).But I

RE: Using strict and getting return values

2002-03-04 Thread Jason Larson
-Original Message- From: Dermot Paikkos [mailto:[EMAIL PROTECTED]] Subject: Using strict and getting return values Hi Gurus, Well, I'm definitely not a guru, but I think I might be able to help... :) I am trying to get tidy with my scripts and want to use Strict but am having

RE: Comparing to many possibles

2002-03-04 Thread Jason Larson
-Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Subject: Comparing to many possibles Greetings; Is there some perl shorthand that will make it easier to say if ( $x eq 'X' || $x eq 'Y' || $x eq 'Z' ) This should do what you want: if ($x =~

RE: reading one character at a time

2002-03-04 Thread Jason Larson
-Original Message- From: Timothy Johnson [mailto:[EMAIL PROTECTED]] Subject: RE: reading one character at a time I can't check this right now, but I believe you can do it like this: $Line = some string; @array = split //,$Line; #split on null foreach(@array){ $char =

RE: strip first space

2002-03-01 Thread Jason Larson
If I have a string and the first character is a space, may not always be a space. Example: John Tommy Beth John and Beth have a space, Tommy does not. How do I strip that. I do not want to use the global command because a want the space between First and

RE: pattern matching question

2002-02-28 Thread Jason Larson
-Original Message- From: richard noel fell [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 28, 2002 10:38 AM To: [EMAIL PROTECTED] Subject: pattern matching question I have the following bit of code: #!/usr/bin/perl -w open In2,/home/rfell/tutoring/beaven/webproject/tmp/maxima_log or

RE: pattern matching question

2002-02-28 Thread Jason Larson
-Original Message- From: bob ackerman [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 28, 2002 11:32 AM To: richard noel fell Cc: [EMAIL PROTECTED] Subject: Re: pattern matching question On Thursday, February 28, 2002, at 08:37 AM, richard noel fell wrote: while

RE: windows perl just doesn't seem to work

2002-02-13 Thread Jason Larson
# this is a script to clean open(IN,fileToClean.asc) || die can't open!; while(IN) { s/Good/Bad/; print; } On the screen I can see that this is working, but when I open the file, guess what? Nothing has changed! snip ...can anybody figure out what I am doing wrong? I'm still very

RE: regexp for validating DOS 8.3 filename

2002-02-12 Thread Jason Larson
I'm sure this is simple but I'm getting more and more confused: Don't feel bad - I stay that way! :) I want to validate input so that it is either: a valid dos filename (we still use it) up to 12 alphanumeric characters (inc spaces) nothing (in which case 'none' would be entered

RE: Add remove programs windows ??

2002-01-09 Thread Jason Larson
Jenda is correct - it's not OT, and yes, you will need to filter the subkeys. You want to look for the values of the DisplayName strings. These are the values that show up in Add/Remove Programs. -Original Message- From: Jenda Krynicky [mailto:[EMAIL PROTECTED]] Sent: Wednesday, January