Re: Swap Input lines

$output_line = "$3$2$1"
        if $input_line =~ /^([a-z][a-z\s]*[a-z])(\W+)(\d[\d-]*\d)$/i;
[download]

It accepts input like this:

Mary Smith = 345-78-9090
Joseph Alioto 976-83-1234
[download]

and the output will be:

345-78-9090 = Mary Smith
976-83-1234 Joseph Alioto
[download]

Comment on Re: Swap Input lines Select or Download Code

Replies are listed 'Best First'.
Re^2: Swap Input lines by brx (Pilgrim) on Apr 19, 2012 at 10:09 UTC
This is a detail, but this regex `/^([a-z][a-z\s][a-z])(\W+)(\d[\d-]\d)$/i` is too specific. Input file contains lines with "x=y" format, so we must only search for "=" -- see jwkrahn's contribution: Re: Swap Input lines. Here some examples where this regex doesn't match: `Jean-Paul Goude = 22-22 Marcel Duchamp = One-Two-Two Victoire Passage = 118_218 Philip K. Dick = 123-456` [download]	[reply] [d/l] [select]
Re^3: Swap Input lines by trizen (Hermit) on Apr 19, 2012 at 10:20 UTC
You are right. I misunderstood the OPs problem.	[reply]
Re^2: Swap Input lines by JavaFan (Canon) on Apr 19, 2012 at 10:22 UTC
So, you're swapping around pieces of the input, even on lines that do not contain a `=`? And on the other hand, you don't swap around input on lines that do contain a `=`, but don't match a regexp you distilled from looking at two examples? Yet, you still allow many other lines that aren't either the first, or the second example. That's an, uhm, "interesting" way of answering the question. I wonder whether it's helpful.	[reply] [d/l] [select]