Re^2: Perl 'grammar'

Not quite.. :-)
That returns JSmithohn

sub transform {
    my ($name) = @_;
    $name =~ s/^\s*(\S+),\s(\S)\S+$/${2}${1}/;
    # Added '\S+$'
    return $name;
}
[download]

Comment on Re^2: Perl 'grammar' Download Code

Replies are listed 'Best First'.
Re^3: Perl 'grammar' by dragonchild (Archbishop) on Jan 09, 2008 at 00:00 UTC
Nice catch. A better version of the regex would be `s/^\s(\S+),\s+(\S).$/${2}${1}/;` - you don't want to assume too much about the item. That's why the `^\s*(\S+)` instead of just `^(\S+)`. My criteria for good software: Does it work? Can someone else come in, make a change, and be reasonably certain no bugs were introduced?	[reply] [d/l] [select]
Re^4: Perl 'grammar' by ysth (Canon) on Jan 09, 2008 at 08:35 UTC
Last names often contain spaces. -- CollegeGear.com - more than just college gear (though, yes, we have college-branded teddy bears)	[reply]
Re^5: Perl 'grammar' by dragonchild (Archbishop) on Jan 09, 2008 at 14:23 UTC
Assuming they don't also contain commas and always start and end with a non-space ... `s/^\s(\S(?:[^,]\S)?)\s,\s+(\S).$/${2}${1}/;` Update: Fix for ysth's objections. My criteria for good software: Does it work? Can someone else come in, make a change, and be reasonably certain no bugs were introduced?	[reply] [d/l]
Re^6: Perl 'grammar' by ysth (Canon) on Jan 09, 2008 at 16:26 UTC