RE: Need to extract just the mac id

How about something like this? $_ =~ /([0-9A-F]{4}\.[0-9A-F]{4}\.[0-9A-F]{4}\.[0-9A-F]{4})/i $mac = $1; #matches four sets of 4 characters between 0 and 9 or A and F separated by periods -Original Message- From: Tucker, Ernie To: [EMAIL PROTECTED] Sent: 7/31/02 9:26 PM Subject: Need

Need to extract just the mac id

I have a file with the following data in it. What I am trying to do is just grab the mac id. Is there a good way to do this in perl. I tried to grep on just 00 but that gave me more info than what I need. Thanks for any help. 0008.0e39.ad80 Account: 10391-x Name:glusick,

Re: Syntax Culture

Sorry this is so delayed, but I have to exploit the chance to be anal :-)... In two of the responses the language of "creating a value" was used, which is also dangerous in a *philosophical* way (I use the term extremely lightly), in such that an "expression" could also *create* NO value (aka

Re: qr/$stuff/

From: Nikola Janceski <[EMAIL PROTECTED]> > I want to make sure that I am using this correctly for efficiency. > > I want to use $stuff as a regex but I want to store it in a data > structure. so when I do use it in a regex will it be more efficient > than just saying /$stuff/? Yes. You do use

how to use socketpair to run another program

I've looked at Programming Perl and the Perl Cookbook, but I'm just too dense to figure out how to do this. I have an external program (not in perl, and not written by me). I want to send a string to it, have it do it's thing, then return the output to my perl program. Then, depending on the re

RE: regex error: runaway multi-line !! string starting on line...

>equate to this m!!x attempt: > >21 while ( my $line = ) { >22 while ( m! >23 ^# # match lines that start with >'#' >24 CommunityID=399 # or lines that >contain >

Re: writing/reading records with Data::Dumper

For those who are interested... This seems to work but I don't know why: foreach $element (@elements) { my $profile = MY_PROFILE->new(); $profile = eval(eval(Dumper($element))); push(@profileArray,$profile); } On Wednesday, July 31, 2002, at 11:51 AM, todd sh

RE: more regex woes...

>What is "Robert's Perl Tutorial"? A good perl tutorial that I heard of on this list after lurking for awhile. I believe the link is http://www.sthomas.net/roberts-perl-tutorial.htm >What don't you understand? Why they capture what they do? >They all capture the leftmost, longest substring match

Re: more regex woes...

Joe Sprankle wrote: > > Hi all, Hello, > I am brand new to perl, and programming at that. I'm learning alot from > Robert's Perl Tutorial and I was hoping someone culd possibly clear up the > following from the tutorial: > > $_='My email address is <[EMAIL PROTECTED]>.'; > print "Match 1 worke

qr/$stuff/

I want to make sure that I am using this correctly for efficiency. I want to use $stuff as a regex but I want to store it in a data structure. so when I do use it in a regex will it be more efficient than just saying /$stuff/? I cannot use the /o option because $stuff changes with each OUTER ite

RE: regex capturing

Bob Showalter wrote at Wed, 31 Jul 2002 21:34:02 +0200: >> > $\ = "\n"; >> > $date = "20020731"; >> > print join "/", ($date =~ /(\d{4})(\d{2})(\d{2})/)[1,2,0]; >> # this works >> > print join "/", ($date =~ /

regex error: runaway multi-line !! string starting on line...

I appreciate the suggestions from Mike, Michael and John around my log parsing questions. When attempting to match 'or' conditions using the the m!! and x pattern match operators, would this construct be correct? In other words, does this m// attempt : # match lines begining with #, or lines th

Re: ?Perl Editors - Re: Editor

> > I read one comment about Crimson Editor - it can fit on a floppy I > > can remember when that was a given - fit on a floppy. SciTE can too (unpacked!) : http://www.scintilla.org/SciTE.html Though if you wanted macros you'd have to install FilerX : http://llt.chez.tiscali.fr/ which is another

RE: regex capturing

> -Original Message- > From: Janek Schleicher [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 31, 2002 2:14 PM > To: [EMAIL PROTECTED] > Subject: Re: regex capturing > > > Nikola Janceski wrote at Wed, 31 Jul 2002 17:27:22 +0200: > > > $\ = "

RE: more regex woes...

> -Original Message- > From: Joe Sprankle [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 31, 2002 1:44 PM > To: [EMAIL PROTECTED] > Subject: more regex woes... > > > Hi all, > I am brand new to perl, and programming at that. I'm learning > alot from > Robert's Perl Tutorial and I wa

Re: Perl Array Question

First, something more specific than 'this isn't working at all', will help in diagnosing the problem...but here are some comments which may help: Theuerkorn Johannes <[EMAIL PROTECTED]> writes: > Hi there, i have (a probably simple) Question on Arrays: > > I want to get some Data out of my SQL

RE: Sort table with dynamic order of fields [Part 1]

on Wed, 31 Jul 2002 17:47:09 GMT, Timothy Johnson wrote: > IMHO = In My Humble Opinion > > RTFM = Read The Freaking Manual > > TMAMYEHTU = Too Many Acronyms Make Your Emails Hard To Understand Strange, I didn't find that last one at -- felix --

Re: store message in a variable and use sendmail

Loan Tran wrote at Wed, 31 Jul 2002 16:59:50 +0200: > > I store a messages(4 pages in text) in a variabe and > use sendmail to send it. The mail messages get chopped > of but I'm not sure why. > Can you suggest a better way to send a content of a > text file using sendmail. Thanks in advance. >

Re: regex capturing

Nikola Janceski wrote at Wed, 31 Jul 2002 17:27:22 +0200: > $\ = "\n"; > $date = "20020731"; > print join "/", ($date =~ /(\d{4})(\d{2})(\d{2})/)[1,2,0]; # this works > print join "/", ($date =~ /(\d{4})(\d{2}){2}/)[1,2,0]; # this doesn't

Re: hash guts

On Wed, Jul 31, 2002 at 11:50:47AM -0700, nkuipers wrote: > Hello everyone, > > I want to count hash keys. I originally tried > > my $count = scalar %hash; > > which when printed gave the string 411/1024. I looked this up in > perldoc perldata and sort of understand the significance of this

writing/reading records with Data::Dumper

I am having trouble re-reading a record after I write it. This is my situation (I'll try and be as concise as possible): I have an object ($profile) with methods, variables, and variables of other objects. For example: $profile = MY_PROFILE->new(); $profile->{NAME} = "theName";

hash guts

Hello everyone, I want to count hash keys. I originally tried my $count = scalar %hash; which when printed gave the string 411/1024. I looked this up in perldoc perldata and sort of understand the significance of this result in terms of buckets. So I tried this in a driver where I varied t

RE: more regex woes...

Looks to me like you understand it better than I did. I don't understand your question. /\/\ark -Original Message- From: Joe Sprankle [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 31, 2002 10:44 AM To: [EMAIL PROTECTED] Subject: more regex woes... Hi all, I

more regex woes...

Hi all, I am brand new to perl, and programming at that. I'm learning alot from Robert's Perl Tutorial and I was hoping someone culd possibly clear up the following from the tutorial: $_='My email address is <[EMAIL PROTECTED]>.'; print "Match 1 worked :$1:" if /(<*)/i; $_='.'; print "Match 2 wo

RE: Sort table with dynamic order of fields [Part 1]

IMHO = In My Humble Opinion RTFM = Read The Freaking Manual TMAMYEHTU = Too Many Acronyms Make Your Emails Hard To Understand -Original Message- From: Connie Chan [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 31, 2002 10:28 AM To: [EMAIL PROTECTED]; Felix Geerinckx Subject: Re: Sort

Re: Sort table with dynamic order of fields [Part 1]

> Using parallel arrays to store related data is not a good idea imho. I wanna ask for long... so what is IMHO and RTFM ?? > I would use an (anonymous) array of hashes here: > > my $persons = [ { ID => 'Foo', COUNTRY => 'UK', GENDER => 'F' }, > { ID => 'Bar', COUNTRY =>

RE: best tutorial for regex

Also, try: perldoc perlretut http://www.perldoc.com/perl5.6.1/pod/perlretut.html spoken by one who has miles to go w/regex -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: best tutorial for regex

On Wednesday, July 31, 2002, at 09:14 , Larry Steinberg wrote: > What is the best perl regex page or tutorial you'd recommend? > -- > -Larry the obvious first step is to get the mastering regular expressions book from O'Reilly - unless you already are at home with the general notions of what a

Re: ?Perl Editors - Re: Editor

On Wednesday, July 31, 2002, at 09:22 , perl wrote: [..] > Was that to scare us newcomers to Perl I can't speak for anyone else, but 'scare' is too strong a word for my intentions - unless by that we mean oblige folks to remember that 'coding' is about 'putting the stuff between the curley brace

Fw: ?Perl Editors - Re: Editor

> {Yep even the best of syntax highlighting patterns still can't handle some > of those FUNKY regexs I use in my perl program.} > > Was that to scare us newcomers to Perl > > I have been programming on/off since late 1978 > and now I an just starting to program for the WEB > > Perl, PHP, mySQL, e

RE: Perl IDE's v. Perl Editors was Re: Editor

see inline comments > -Original Message- > From: Paul Tremblay [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 31, 2002 12:24 PM > To: begin begin > Subject: Re: Perl IDE's v. Perl Editors was Re: Editor > > > I'm surprised that more posters didn't advocate vim as *the* editor. > I t

RE: Regex Problem

woah... why is $bar = "\${foo}" - ? something is weird there... also the problem was with your substitution op $bar =~ s/\$\{\(\w+)\}/\$${1}/g; - John On Mon, 29 Jul 2002, Balint, Jess wrote: > Thanks. Here is what I am trying to accomplish: > > $foo = "somet

RE: regex capturing

Correct actually. It just didn't dawn on me that $2 was being "reused" but that is unlike perl to do that. I would have thought that it would know that I wanted 2 captures. So is this just a new issue that hasn't come up before? or is it something seen just nothing done about it? I am using the f

Re: Perl IDE's v. Perl Editors was Re: Editor

I'm surprised that more posters didn't advocate vim as *the* editor. I think it is linux world that did a survey and found that 80 percent of the users picked vim as their favorite editor. I originally started using vim, then switched to nedit, and now have switched back to vim. Nedit if very ni

RE: regex capturing

> -Original Message- > From: Nikola Janceski [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 31, 2002 11:27 AM > To: Beginners (E-mail) > Subject: regex capturing > > > $\ = "\n"; > $date = "20020731"; > print join "/"

Create HTML form within a perl function.

I am not sure if I am going to ask this question correctly therefore, please ask as many questions as you need to understand. My situation is a follows: I have a perl script that extracts data from a list then processes this information and outputs is to HTML. I am working off someone else cod

Re: How to replace a literal with a variable

Timothy, Yes, thanks! "Timothy Johnson" <[EMAIL PROTECTED]> wrote in message C0FD5BECE2F0C84EAA97D7300A500D50046DC99B@SMILEY">news:C0FD5BECE2F0C84EAA97D7300A500D50046DC99B@SMILEY... > > Do you mean something like this? > > > open(LOG,"log.txt"); > my %errs =

RE: Editor

Well, I am working on linux, and I started with pico but now I use vi and am quite happy with it; fast movement, versatile copy-paste, colored syntax toggling...it does the job. I'll have to give nedit a look though if there are any linux offerings...people seem to be raving about it. regards

RE: regex capturing

anton > - Original Message - > From: "Nikola Janceski" <[EMAIL PROTECTED]> > To: "Beginners (E-mail)" <[EMAIL PROTECTED]> > Sent: Wednesday, July 31, 2002 11:27 AM > Subject: regex capturing > > > > $\ = "\n"; > > $

Re: regex capturing

t; Sent: Wednesday, July 31, 2002 11:27 AM Subject: regex capturing > $\ = "\n"; > $date = "20020731"; > print join "/", ($date =~ /(\d{4})(\d{2})(\d{2})/)[1,2,0]; # this works > print join "/", ($date =~ /(\d{4})(\d{2}){2}/)[1,2,0]; # this doesn

Re: Editor

You may want to also check out TextPad,.. been using it for over 3 years and love it. Great for Perl or PHP programming,.. nice HTML editor also ;) > -Original Message- > From: Scott Barnett [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 31, 2002 6:44 AM > To: [EMAIL PROTECTED] > Sub

Re: Perl IDE's v. Perl Editors was Re: Editor

On Wednesday, July 31, 2002, at 08:04 , Nikola Janceski wrote: > Yep even the best of syntax highlighting patterns still can't handle some > of > those FUNKY regexs I use in my perl program. don't EVEN get me started... { "too late drieux" } hum. parenting code, is like parentin

regex capturing

$\ = "\n"; $date = "20020731"; print join "/", ($date =~ /(\d{4})(\d{2})(\d{2})/)[1,2,0]; # this works print join "/", ($date =~ /(\d{4})(\d{2}){2}/)[1,2,0]; # this doesn't __END__ why did the second pattern not capture the second occurance of \d{

Re: chr help

On Wed, 31 Jul 2002 18:17:46 +0800, [EMAIL PROTECTED] (Connie Chan) wrote: >> Does anyone know or can point me to a >> location where I can find the chr() value of this character? All replies are >> greatly appreciated. >my @chars = split //, $line; # $line is your string. >foreach my $char(@char

RE: Editor

I've been using EditPlus for awhile now on Win32 platform... http://www.editplus.com/ The $$ I paid for it a couple years ago (it's $30 now) seems to have been worth it, although after looking at the Crimson Editor website, it looks quite similar and is free...a good price. I've also tried the K

RE: Perl IDE's v. Perl Editors was Re: Editor

Yep even the best of syntax highlighting patterns still can't handle some of those FUNKY regexs I use in my perl program. > -Original Message- > From: drieux [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 31, 2002 10:46 AM > To: begin begin > Subject: Perl IDE's v. Perl Editors was Re

store message in a variable and use sendmail

I store a messages(4 pages in text) in a variabe and use sendmail to send it. The mail messages get chopped of but I'm not sure why. Can you suggest a better way to send a content of a text file using sendmail. Thanks in advance. Below is part of my script: foreach $eachowner(@ownerlist){

Perl IDE's v. Perl Editors was Re: Editor

On Wednesday, July 31, 2002, at 06:43 , Scott Barnett wrote: [..] > What is a good Perl Editor for writing scripts? The Correct Answer is: The one on the machine where you do your editing. That simplifies the process for you. I am partial to doing my development with bbedit 6.

creating MS Access tables via Perl

Howdy: Just got an odd call today. A client (who works on a Microsoft platform) wants to have a MS Access table created for him on a monthly basis from my warehouse. The warehouse is a PostgreSQL database on a RedHat Linux platform. My question: Is there something in Perl that will allow me

Re: Sort table with dynamic order of fields

From: Felix Geerinckx <[EMAIL PROTECTED]> > Using your datastructure, this would indeed be rather complicated. If > you could use the datastructure I proposed at the beginning of this > post, you could write I don't think it's wise to overwrite a function definition over an over again. Create an

Re: empty anonomous hash

On Wed, Jul 31, 2002 at 10:21:48AM -0400, Nikola Janceski wrote: > I have a data structure that I want to initialized with an empty anon. hash. > > I know for arrays I can do: > $DATA{$key1}{$key2} = []; > > but what if I want it to be a hash? $DATA{$key1}{$key2} = {}; -- Paul Johnson - [EMA

RE: Editor

Yes. The regexs in nedit look more like perl regexs. Also it has customizable keyboard shortcuts, and a nice graphical interface if you don't like keystroking. > -Original Message- > From: Kay Bieri [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 31, 2002 10:06 AM > To: [EMAIL PROTECTE

empty anonomous hash

I have a data structure that I want to initialized with an empty anon. hash. I know for arrays I can do: $DATA{$key1}{$key2} = []; but what if I want it to be a hash? Nikola Janceski God is subtle, but he is not malicious. -- Albert Einstein (1879-1955) -

Re: Sort table with dynamic order of fields

on Wed, 31 Jul 2002 12:56:17 GMT, [EMAIL PROTECTED] (Connie Chan) wrote: > What I have now is something like this : > @ID = qw (Foo Bar Blaz Bob); > @Country = qw (UK US HK HK); > @Gender = qw (F M M F); Using parallel arrays to store related data is not a good idea imho. I would use an (anonym

Re: Editor

On Wed, 31 Jul 2002, Connie Chan wrote: > > I am new to Perl just over a month now. I have tried other programming languages >and they just seem to hard to > understand. I have found Perl to be a lot easier to understand, and that brings me >to my question. What is a good Perl > Editor for wri

RE: Editor

perhaps you haven't dl-ed the latest version of nedit. It's up to 5.3 now, and has come along way from version 4.2. > -Original Message- > From: Connie Chan [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 31, 2002 9:57 AM > To: Scott Barnett; [EMAIL PROTECTED] > Subject: Re: Editor >

Re: Editor

Me too !! This editor is the greatest I found on Win OS. But have you download the Syntax pack for Perl ? Go ahead if no. Anyway, the other choice for me is Note Tab Lite. But seems very unstable if I am using Chinese ( Perhaps that do not have any infect on you ). But if you are doing a global

RE: Editor

nedit.org <-- the best there is (in my book) > -Original Message- > From: Angerstein [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 31, 2002 9:55 AM > To: Scott Barnett; [EMAIL PROTECTED] > Subject: AW: Editor > > > I really love nedit. > > > -Ursprüngliche Nachricht- > > V

AW: Editor

I really love nedit. > -Ursprüngliche Nachricht- > Von: Scott Barnett [mailto:[EMAIL PROTECTED]] > Gesendet am: Mittwoch, 31. Juli 2002 15:44 > An: [EMAIL PROTECTED] > Betreff: Editor > > Hi, > > I am new to Perl just over a month now. I have tried other > programming languages and they j

Editor

Hi, I am new to Perl just over a month now. I have tried other programming languages and they just seem to hard to understand. I have found Perl to be a lot easier to understand, and that brings me to my question. What is a good Perl Editor for writing scripts? I am currently using Crimson Ed

Re: Sort table with dynamic order of fields

From: "Connie Chan" <[EMAIL PROTECTED]> > > Are you sure it's a HashOfArrays and not an ArrayOfHashes? > > > > #HAO > > > > $data{$key} = ['Jenda', 'Krynicky', '[EMAIL PROTECTED]', ...] > > > > # AOH > > $data[$i] = {fname => 'Jenda', lname => 'Krynicky', email => > > '[EMAIL PROTECTED]', ...}

Re: Sort table with dynamic order of fields

> Are you sure it's a HashOfArrays and not an ArrayOfHashes? > > #HAO > > $data{$key} = ['Jenda', 'Krynicky', '[EMAIL PROTECTED]', ...] > > # AOH > $data[$i] = {fname => 'Jenda', lname => 'Krynicky', email => > '[EMAIL PROTECTED]', ...} > What I have now is something like this : @ID = qw (Foo

Re: Sort table with dynamic order of fields

From: "Connie Chan" <[EMAIL PROTECTED]> > Thanks in advise =) > > In case, my source is not an Excel spread sheet, but a Hash Of Array. > So is that mean if I want to use this function, then I have to convert > my HOA to Spreadsheet, then use the method below to sorting about ? Or > anything I c

Re: Removing files------help

> Ok, I have created a package that takes orders and creates temporary > files. Upon completing the order, the temp files are deleted. If the > user does not complete the order and leaves the web site, the files > remain as clutter. > > How can I tell if a user has left the site and act upon it?

Re: Fw: Help, I suppose.

on Tue, 30 Jul 2002 16:45:26 GMT, [EMAIL PROTECTED] (Tómas guðmundsson) wrote: >> But what do I do to make it more than just the phone number so if >> I ask of Fred it shows his number, address, e-mail, and such ? >> >> my %phone_book = qw( >> Fred [EMAIL PROTECTED] 0123 fred'sstreet 34 >>

Re: chr help

The display character for ASCII text depends on the font selected. If you are using Times New Roman or New Courier, there is a longer dash at chr(151). Sounds like Word will save the doc as entered and do the changes on the fly. On Tue, 30 Jul 2002 23:49:12 -1000, [EMAIL PROTECTED] (Beau E. Cox)

Re:chr help

> I have a subroutine that finds commonly found Unicode characters that > Microsoft Word uses (such as "smart quotes") and converts them to plain > ASCII text. However, there is one character whose chr() value I can't seem > to find - the MS Word long dash, which automatically replaces the normal

Re:Perl Array Question

> while (my @RACT_LOG_data=$sth_RACT_LOG->fetchrow_array){ > > $count_RACT_LOG_data++; > push our @KEY_SNR_RACT_LOG[$i], $RACT_LOG_data[0]; > push our @DRAWING_RE_RACT_LOG[$i], $RACT_LOG_data[1]; > push our @RCODE_ID_RACT_LOG[$i], $RACT_LOG_data[2]; >} You missed a } for the for loop or misse

RE: chr help

Hi - I built a tiny .doc file with MS Word 2000 containing the text: hello - world Word did change the dash to a "long" dash on the screen. Next, I opened the .doc file in binary mode (I my case, using the C++ built-in editor) and found that line: 48 65 6C 6C 6F 20 96 20 77 6F 72 6C 64 0D 0D

Re: Problem with Net::Ping

On Tue, 30 Jul 2002, drieux wrote: > I was somewhat surprised that the ping("tcp") method 'failed' > on an unvarnished linux box... You are right, I got confused between the stream echo server and the tcp one. The tcp echo requests do get replied to without having to start any extra service. S

RE: Sort table with dynamic order of fields

If you decided to go the "HOA to CSV" route, then you could create the CSV like this: ### open(OUTFILE,">temp.csv"); foreach(keys %hash){ foreach my $elem(@{$hash{$_}}){ print OUTFILE "\"$elem\","; } print OUTFILE "\n"; } close OUTFILE; ###

Re: Removing files------help

You could use sessions, base the file names on the session numbers, and keep a list of open session (i.e. not completed) and the time they were last accessed, you could have a job run every half hour to remove session files not used for a certain time period. Or there's probably a better way, but

Perl Array Question

Hi there, i have (a probably simple) Question on Arrays: I want to get some Data out of my SQL Databas. I try using the same Query not only once and put the collected data in diffrent Arrays. for (my $i=0;$i<= $count_SNR_LOG_data;$i++){ print "$i\n"; my $sth_RACT_LOG = $dbh->pr

Re: Sort table with dynamic order of fields

Thanks in advise =) In case, my source is not an Excel spread sheet, but a Hash Of Array. So is that mean if I want to use this function, then I have to convert my HOA to Spreadsheet, then use the method below to sorting about ? Or anything I can do more direct ? Or anything can let me directly

Removing files------help

Ok, I have created a package that takes orders and creates temporary files. Upon completing the order, the temp files are deleted. If the user does not complete the order and leaves the web site, the files remain as clutter. How can I tell if a user has left the site and act upon it? If a user

Re: Classic text problem: matching consecutive newlines

John W. Krahn <[EMAIL PROTECTED]> wrote: > Steve Grazzini wrote: >> >> #!/usr/bin/perl -pi~ -0777 >> # [untested:] >> >> s{ /s*? /n (\s*) } > ^^ ^^ > s{ \s*? \n (\s*) } > > >> { $1 =~ tr/\n // ? "\n" : " " }xeg ^ You missed one ;) (drat!) -- Steve perldoc -qa.j

chr help

Hi, I have a subroutine that finds commonly found Unicode characters that Microsoft Word uses (such as "smart quotes") and converts them to plain ASCII text. However, there is one character whose chr() value I can't seem to find - the MS Word long dash, which automatically replaces the normal (sh