PERL Beginners - matching FORTRAN hollerith constants

Author

matching FORTRAN hollerith constants

Ancient_Hacker

2006-10-30, 7:03 pm

Some folks still use good-old Fortran

Some old Fortran programs have those old "Hollerith constants". A
mediocre idea, but there you are.

In case you're of a tender age and have never used Fortran, here are a
gfew examples:

28HHORRORS OF OLD PROGRAM CODE
4LCPMP ! Left justified in a word
2Rqw ! Right justified

Now how would you match one of these dinosaurs using a Perl regular
expression?

sure, you can match the first part pretty easily: ([0-9]+[HLR])

but how do you match the variable length rest?

Any hints appreciated.

usenet@DavidFilmer.com

2006-10-30, 7:03 pm

Ancient_Hacker wrote:
> sure, you can match the first part pretty easily: ([0-9]+[HLR])
> but how do you match the variable length rest?

/([0-9]+[HLR]\w*)/;

That says:

Match one or more of the character class 0-9 (though most folks would
just use \d+ instead)

Followed by one instance of an uppercase letter H, L, or R

followed by zero or more occurances of any alphanumeric characters
(including '_')

And put whatever was matched into $1

--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)

Sponsored Links