Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Concatenating strings with different length

by karlgoethebier (Monsignor)
on Nov 30, 2012 at 15:26 UTC ( #1006485=note: print w/replies, xml ) Need Help??

in reply to Concatenating strings with different length

Consider using perltidy for formatting your code.

Reformatted example:

for $i ( 0 .. $#p2 ) { #print "$p1[$i] vs $p2[$i]\n"; $mism_pos{$i} = 1 if ( $p1[$i] eq $p2[$i] ); } #print sort keys %mism_pos,"\n"; if ( keys %mism_pos ) { for $i ( 0 .. $#p2 ) { if ( defined $mism_pos{$i} ) { if ( @new1 && @new2 ) { push @new, @new1, 'and', @new2, $p2[$i]; @new1 = (); @new2 = (); } else { push @new, $p2[$i]; } } else { push @new1, $p1[$i]; push @new2, $p2[$i]; } } }

The code isn't better but it looks a bit better. This makes live easier.

If you are using vim look here.

If you are using emacs type:

C-x h esc 1 esc |

In the minibuffer you will see: Shell command on region:

Type perltidy (assuming you installed it) and press ENTER.

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1006485]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2018-05-26 18:15 GMT
Find Nodes?
    Voting Booth?