Re^3: How would you indent this? (cperl-indent-region)

From my experience does cperl not attempt to format nested data structures

It shouldn't, but it does. As you suspect, CPerl mode mistakes the nested data structure as a control structure, which it reformats intentionally (see example here). It just takes a wrong turn in the function cperl-fix-line-spacing. Therefore, it is rather obvious that the issue doesn't occur with arrays: square brackets can't be confused with control structures.

If you want M-x cperl-indent-region and M-x cperl-indent-exp to do indentation and nothing else, set cperl-indent-region-fix-constructs to nil.

Comment on Re^3: How would you indent this? (cperl-indent-region)

Replies are listed 'Best First'.

Re^4: How would you indent this? (cperl-indent-region)
by LanX (Saint) on Mar 18, 2021 at 18:52 UTC

> > From my experience does cperl not attempt to format nested data structures

> It shouldn't, but it does.

what I meant was that cperl doesn't attempt to mimic Data::Dump et al. (Many posters in this thread imply otherwise.)

Which is a good thing, because the decision how to read the data must be left to the programmer.

This particular example might have a "tabular interpretation" but others may not.

> (see example here)

oops, I was AFK and missed that

> If you want M-x cperl-indent-region and M-x cperl-indent-exp to do indentation and nothing else, set cperl-indent-region-fix-constructs to nil.

I can confirm this works.

One quick solution could be to have another function cperl-format-region which activates the fix-construct flag internally.

Tho having heuristics to distinguish between block and hash to avoid this problem would be nice.

~~I'm also having another effect with 27.1 now~~

~~{key => 'k',...~~

~~If I type a space between { and key , a TAB is introduced before the fat-comma => ?~~

~~Can't be seen in 24.3 I'd say it's related to new global auto-indent settings in emacs.~~

~~That's what I get after inserting a space after all {~~

my @headings =
  (
   { key    => 'k', name => 'Kanji', class => 'kanji' },
   { key    => 'skip', name => 'SKIP', class => 'skip-code'},
   { key    => 'co', name => 'Suggestion', class => 'skip-code'},
   { key => 'disc', name => 'Discussion'},
  );
[download]

UPDATE: Sorry, strike that. Seems like I had "silent" TABs in the code, which only jumped when a space was introduced.

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

[reply]
[d/l]
[select]


Clear questions and runnable code get the best and fastest answer
	PerlMonks