alias quoting challenge

[linuxCowboy]

Tausendertrennzeichen für Zahlen ab 5 Stellen:

Code: Alles auswählen

x=`for i in {1..9} {8..1};do seq -s '' $i;done`

echo $x
1 12 123 1234 12345 123456 1234567 12345678 123456789 12345678 1234567 123456 12345 1234 123 12 1

echo $x|perl -pe'while(/\d{5,}/){$b=$`;$m=$&;$a=$'\'';$m=~s/(?<=\d)(?=(\d\d\d)+\b)/./;$_="$b$m$a"}'
1 12 123 1234 12.345 123.456 1.234.567 12.345.678 123.456.789 12.345.678 1.234.567 123.456 12.345 1234 123 12 1

als Alias!??

alias o=quotet_perl_oneliner

Code: Alles auswählen

echo $x | o
1 12 123 1234 12.345 123.456 1.234.567 12.345.678 123.456.789 12.345.678 1.234.567 123.456 12.345 1234 123 12 1

Habe selbst ich nicht hinbekommen.

($POSTMATCH zählt nicht)

Also zeigt mir wie gut ihr seid!

[cosmac]

hi,

endlich mal was, was nicht so kalt und nass ist

Code: Alles auswählen

$ vi o
perl -pe'while(/\d{5,}/){$b=$`;$m=$&;$a=$'\'';$m=~s/(?<=\d)(?=(\d\d\d)+\b)/./;$_="$b$m$a"}'
:wq
$ alias o=$(cat o)
$ x=`for i in {1..9} {8..1};do seq -s '' $i;done`
$ echo $x | o
1 12 123 1234 12.345 123.456 1.234.567 12.345.678 123.456.789 12.345.678 1.234.567 123.456 12.345 1234 123 12 1

ja, ja, ich weiß, das zählt nicht

[kuerbis]

Code: Alles auswählen

$ alias o='perl -pe'"'"'while(/\d{5,}/){$b=$`;$m=$&;$a=$'"'"'\'"''"';$m=~s/(?<=\d)(?=(\d\d\d)+\b)/./;$_="$b$m$a"}'"'"
$ x='1 12 123 1234 12345 123456 1234567 12345678 123456789 12345678 1234567 123456 12345 1234 123 12 1'
$ echo $x | o
1 12 123 1234 12.345 123.456 1.234.567 12.345.678 123.456.789 12.345.678 1.234.567 123.456 12.345 1234 123 12 1

Alternativ:

Code: Alles auswählen

alias o='perl -pe'\''while(/\d{5,}/){$b=$`;$m=$&;$a=$'\''\'\'\'';$m=~s/(?<=\d)(?=(\d\d\d)+\b)/./;$_="$b$m$a"}'\'

[newdeb]

Code: Alles auswählen

$ alias p='printf "%'\''12.0f\n"'
$ p $x
           1
          12
         123
       1.234
      12.345
     123.456
   1.234.567
  12.345.678
 123.456.789
  12.345.678
   1.234.567
     123.456
      12.345
       1.234
         123
          12
           1

printf verpasst auch den 4stelligen Zahlen das Tsd.-Trennzeichen

[linuxCowboy]

Code: Alles auswählen

alias o='perl -pe'\''while(/\d{5,}/){$b=$`;$m=$&;$a=$'\''\'\'\'';$m=~s/(?<=\d)(?=(\d\d\d)+\b)/./;$_="$b$m$a"}'\'

Du hast es geschafft! Respekt! Es ist wirklich möglich.


noch kürzer:

Code: Alles auswählen

alias o='perl -pe'\''while(/\d{5,}/){$b=$`;$m=$&;$a=$'\'\\\'\'';$m=~s/(?<=\d)(?=(\d{3})+\b)/./;$_="$b$m$a"}'\'

Code: Alles auswählen

alias o=$(cat o)

Originell!

Man muss sich nur zu helfen wissen...