Re^4: Matching part of a line and saving it into a variable

Sorry, I was trying as much as possible to do it myself and following tips to try and learn. Thanks for helping thus far. Here are a few lines:

"Barber Shop: NW, 147-2220, Washington 992,,,,,
,"Lawrence, Jerry A.",Buzz,,Clean,Cash,,
,"Wallace, Bob W.",Caesar,,High,Credit,,
,"Anthony, Ronald",Caesar,,Close,Cash,,
,"Nelson, Dwight R.",Buzz,,Clean,Check,,
,"Jamison, Jeff S.",Caesar,,High,Credit,,
,"Favors, Eric S.",Shave,,Skin,Cash,,
,"Williams, Herb C.",Fade,,High,Check,,
,"Carter, Shaun ",Caesar,,Low,Cash,,
[download]

Once again, all I want to do is save the name into $last $first $mid A few people don't have middle initials though, so I'm not entirely sure how to handle that..

Comment on Re^4: Matching part of a line and saving it into a variable Select or Download Code

Replies are listed 'Best First'.
Re^5: Matching part of a line and saving it into a variable by CountZero (Bishop) on Mar 14, 2011 at 21:44 UTC
What do you think of this? use Modern::Perl; while (<DATA>) { my ($last, $first, $mid) = /^,"([^",]+),\s([^\s"]+)\s?([^"]*)/; say "LAST: $last FIRST: $first MID: $mid" if $last; } __DATA__ "Barber Shop: NW, 147-2220, Washington 992,,,,, ,"Lawrence, Jerry A.",Buzz,,Clean,Cash,, ,"Wallace, Bob W.",Caesar,,High,Credit,, ,"Anthony, Ronald",Caesar,,Close,Cash,, ,"Nelson, Dwight R.",Buzz,,Clean,Check,, ,"Jamison, Jeff S.",Caesar,,High,Credit,, ,"Favors, Eric S.",Shave,,Skin,Cash,, ,"Williams, Herb C.",Fade,,High,Check,, ,"Carter, Shaun ",Caesar,,Low,Cash,, [download] Output: `LAST: Lawrence FIRST: Jerry MID: A. LAST: Wallace FIRST: Bob MID: W. LAST: Anthony FIRST: Ronald MID: LAST: Nelson FIRST: Dwight MID: R. LAST: Jamison FIRST: Jeff MID: S. LAST: Favors FIRST: Eric MID: S. LAST: Williams FIRST: Herb MID: C. LAST: Carter FIRST: Shaun MID:` [download] CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Matching part of a line and saving it into a variable
by CountZero (Bishop) on Mar 14, 2011 at 21:44 UTC

use Modern::Perl;

while (<DATA>) {
    my ($last, $first, $mid) = /^,"([^",]+),\s([^\s"]+)\s?([^"]*)/;
    say "LAST: $last FIRST: $first MID: $mid" if $last;
}

__DATA__
"Barber Shop: NW, 147-2220, Washington 992,,,,,
,"Lawrence, Jerry A.",Buzz,,Clean,Cash,,
,"Wallace, Bob W.",Caesar,,High,Credit,,
,"Anthony, Ronald",Caesar,,Close,Cash,,
,"Nelson, Dwight R.",Buzz,,Clean,Check,,
,"Jamison, Jeff S.",Caesar,,High,Credit,,
,"Favors, Eric S.",Shave,,Skin,Cash,,
,"Williams, Herb C.",Fade,,High,Check,,
,"Carter, Shaun ",Caesar,,Low,Cash,,
[download]

LAST: Lawrence FIRST: Jerry MID: A.
LAST: Wallace FIRST: Bob MID: W.
LAST: Anthony FIRST: Ronald MID: 
LAST: Nelson FIRST: Dwight MID: R.
LAST: Jamison FIRST: Jeff MID: S.
LAST: Favors FIRST: Eric MID: S.
LAST: Williams FIRST: Herb MID: C.
LAST: Carter FIRST: Shaun MID:
[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

[reply]
[d/l]
[select]