Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: Concatenating strings with different length

by karlgoethebier (Prior)
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]
[Corion]: marto: Great! The German Perl Workshop was a success even though things looked dire before, and I'm now back at home with two days off work still to go ;)
[Corion]: I hope things have settled down a bit for you and the boys are alright?!
[choroba]: Good morning, if a bit rainy
[marto]: life is a struggle :P I'm glad the GPW went well.

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (10)
As of 2017-06-29 08:07 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (655 votes). Check out past polls.