Perl Split Pattern

I am writing my very first Perl program, and am still lost with how to use split.
I have several lines of data that I want to read in, for example:

333444555 Smith Ana Ms RN
777666555 Jones Tom Mr MD

These data fields have certain restrictions. The first number always must be exactly 9 digits. The second and third can be up to 9 (anything less)..and the 3rd/4th must be exactly 2. There can be more than one space (or infinitely many spaces) as long as all data is on the same line. How could I use split here to determine this? Any suggestions you may have would be greatly appreciated!

re: Perl Split Pattern

For split to be utilized you really need a delimiter. A delimiter can be just about anything ie: whitespace, tab, comma, pipe, dash and so on. If you don't have a common delimiter then I would suggest that you use a regex to capture the data.

--Kevin

re: Perl Split Pattern

Well, assuming you can get the input line into a scalar, you can use split like this:

Now @line_vals will have (123456789, 'Lastname', 'Firstname', 'TITLE', 'OTHERVALUE') like your file, and you can perform checks and such on these values as normal.

re: Perl Split Pattern

If you use a regexp like eWish suggests, make sure you account for the fact that more than one space might be there:

I'm not sure if it matters - I don't know if split will ever return an empty string (for the items between spaces).

re: Perl Split Pattern

split() will use spaces by default if no argument is used. This is perfectly valid:

it will correctly split a file with multiple spaces between fields and leave off leading/trailing spaces. I am pretty sure it also removes the line endings unlike split(/ /) or split(/ +/) because the default split is equivalent to split(/\s+/) . the \s character class includes tabs and newlines and maybe other things too, like carraige returns.