Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+20 repliesperltidy -bbt=2 -sil=0 script.pl #block-brace-tightness auf 2 setzen, direkt ohne Einrückung starten
1 2 3 4 5 6
my %a; my $b = { 'c' => 0, 'd' => 0 }; if (1) { $a{ $b->{'c'} } = $b->{ 'd'}; }
+3 replies
+2 replies
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
perltidy -i=8 -l=0 -et=8 -pt=2 -sbt=2 -bt=2 -bbt=2 -dsm -nsfs -nsts -tqw -sbl -bl -asbl -nsfp -dws -aws -nwls='=~ . .= = + - / * != == ( ) <= >= < > ..' -nwrs='=~ . .= = + - / * != == ( ) => , # <= >= < > { ..' -nsak='for my if else elsif while unless return' -sil=0![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# .perltidyrc configuration file
-pbp # Start with Perl Best Practices
-l=78 # Max line width is 78 cols
-i=4 # Indent level is 4 cols
-ci=2 # Continuation indent is 2 cols
-st # Output to STDOUT
-se # Errors to STDERR
-vt=2 # Maximal vertical tightness
-cti=0 # No extra indentation for closing brackets
-pt=1 # Medium parenthesis tightness
-bt=1 # Medium brace tightness
-sbt=1 # Medium square bracket tightness
-bbt=1 # Medium block brace tightness
-nsfs # No space before semicolons
-nolq # Don't outdent long quoted strings
-nbbc # no blank lines before comments
-isbc # Don't indent comments without leading space
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
# Break before all operators
1 2 3 4 5
my %a; my $b = { 'c' => 0, 'd' => 0 }; if (1) { $a{ $b->{'c'} } = $b->{'d'}; }
+2 replies
+13 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# .perltidyrc configuration file
-pbp # Start with Perl Best Practices
-l=78 # Max line width is 78 cols
-i=4 # Indent level is 4 cols
-ci=2 # Continuation indent is 2 cols
-st # Output to STDOUT
-se # Errors to STDERR
-vt=2 # Maximal vertical tightness
-cti=0 # No extra indentation for closing brackets
-pt=1 # Medium parenthesis tightness
-bt=0 # Medium brace tightness
-sbt=1 # Medium square bracket tightness
-bbt=1 # Medium block brace tightness
-nsfs # No space before semicolons
-nolq # Don't outdent long quoted strings
-nbbc # no blank lines before comments
-isbc # Don't indent comments without leading space
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
# Break before all operators
+11 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
U:\>perltidy
my %a;
my $b={'c'=>0,'d'=>0};
if(1)
{
my $b = { 'c' => 0, 'd' => 0 };
$a{$b->{'c'}}=$b->{'d'}
}
^Z
my %a;
my $b = { 'c' => 0, 'd' => 0 };
if (1) {
my $b = { 'c' => 0, 'd' => 0 };
$a{ $b->{ 'c' } } = $b->{ 'd' };
}
+2 replies1 2 3 4 5 6 7
my %a; my $b={'c'=>0,'d'=>0}; if(1) { my $b = { 'c' => 0, 'd' => 0 }; $a{$b->{'c'}}=$b->{'d'} }
1
2
3
4
5
6
7
8
9
perltidy asd.pl
my %a;
my $b = { 'c' => 0, 'd' => 0 };
if (1) {
my $b = { 'c' => 0, 'd' => 0 };
$a{ $b->{ 'c' } } = $b->{
'd'
};
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
root@srv1 ~ # cat .perltidyrc ; echo; echo; cat x.pl; echo; perltidy x.pl
# .perltidyrc configuration file
-pbp # Start with Perl Best Practices
-l=78 # Max line width is 78 cols
-i=4 # Indent level is 4 cols
-ci=2 # Continuation indent is 2 cols
-st # Output to STDOUT
-se # Errors to STDERR
-vt=2 # Maximal vertical tightness
-cti=0 # No extra indentation for closing brackets
-pt=1 # Medium parenthesis tightness
-bt=0 # Medium brace tightness
-sbt=1 # Medium square bracket tightness
-bbt=1 # Medium block brace tightness
-nsfs # No space before semicolons
-nolq # Don't outdent long quoted strings
-nbbc # no blank lines before comments
-isbc # Don't indent comments without leading space
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
# Break before all operators
my %a;
my $b={'c'=>0,'d'=>0};
if(1)
{
my $b = { 'c' => 0, 'd' => 0 };
$a{$b->{'c'}}=$b->{'d'}
}
my %a;
my $b = { 'c' => 0, 'd' => 0 };
if (1) {
my $b = { 'c' => 0, 'd' => 0 };
$a{ $b->{ 'c' } } = $b->{ 'd' };
}
+7 replies
+6 replies
+5 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
+4 replies
2013-10-19T18:18:12 DachschadenDas wird ja immer besser:
Jetzt macht er nicht nur den Anfang, sondern auch das Ende kaputt. :)
Rio ReiserMacht kaputt, was euch kaputt macht.
+3 replies
2013-10-19T20:52:56 hlubenowNa dann,
Rio ReiserMacht kaputt, was euch kaputt macht.
Heißt, hier: Ich würd's lassen. ;)
![[Powered by Battie]](/battie/img/powered.png)
