Re: adding ";" to void elements

#!/usr/bin/perl
use strict;
use warnings;

map { print if s/\A (\w;\d) (?!;\d) / $1; /xms } <DATA>;



__DATA__
a;3
b;2;3
c;5;4
d;6
[download]

Output :
a;3;
d;6;
[download]

hth,

Poolpi

Comment on Re: adding ";" to void elements Select or Download Code

Replies are listed 'Best First'.
Re^2: adding ";" to void elements by chromatic (Archbishop) on Feb 12, 2008 at 19:08 UTC
`map { print ... }` That's worth at least two fifteen-yard penalties right there! I'm sort of horrified and impressed.	[reply] [d/l]
Re^3: adding ";" to void elements by ikegami (Patriarch) on Feb 12, 2008 at 21:00 UTC
It's for error checking, of course `any { !$_ } map { print ... } ... and die;` [download] ;)	[reply] [d/l]