Script des Tages: ruler

[Meillo]

Noch drei Zeichen weniger:

Code: Alles auswählen

perl -E"print 1..8,_,\$_ for 1..$COLUMNS/10;say 1..$COLUMNS%10"

Und nochmal eines kuerzer:

Code: Alles auswählen

c=$COLUMNS;perl -E"print 1..8,_,\$_ for 1..$c/10;say 1..$c%10"

EDIT:
Mist, die funktionieren nur bis 100.

[linuxCowboy]

Code: Alles auswählen

c=$COLUMNS;perl -E"print 1..8,_,\$_%10for 1..$c/10;say 1..$c%10"
12345678_112345678_212345678_312345678_412345678_512345678_61234

Ihr seid klasse!

Und perl ist das Beste!!

[Dogge]

Ich finde es echt faszinierend, wie ihr hier solche Gebilde aus dem Ärmel schüttelt. Wenn ich mal arbeitslos oder lange krank bin (was ich eigentlich beides nicht herbei wünsche) werde ich mich auch mal damit beschäftigen. Aber im normalen Alltag fehlt mir dazu die Zeit und am Wochenende oder im Urlaub möchte man die Zeit dann nicht wirklich für so etwas nutzen. Da muss das System einfach funktionieren und man hat keine Zeit/Lust sich zu "verkünsteln".

Ich war schon stolz auf mich, als ich neulich folgendes erarbeitet habe um mal alle Debug-Pakete aus dem Weg zu räumen, die sich nach diversen Bugreports angesammelt haben.

Code: Alles auswählen

apt-get remove $(dpkg -l | grep -e "-dbg " | awk '{print $2}')

Sowas ist für euch wahrscheinlich kein müdes Lächeln wert.

Sorry fürs OffTopic, aber das wollte ich jetzt los werden.

[linuxCowboy]

Mach doch einen eigenen Thread auf und lass deinen Code optimieren:

Code: Alles auswählen

# aptitude installed not_auto
ap search '~i !~M -dbg$'

Code: Alles auswählen

# simulate
ap -s remove '~i !~M -dbg$'

-der_linux_cowboy

[Dogge]

Hmm, dann lieber ein paar Zeichen länger, aber ich weiß was es tut.

[Meillo]

Mach doch einen eigenen Thread auf und lass deinen Code optimieren:

Ha! Dafuer sollten wir unbedingt ein neues Unterforum anlegen lassen. Nach dem Motto: Poste deinen Code und wir optimieren (= verkuerzen) ihn fuer dich. Das wird garantiert grandios einschlagen.

[habakug]

Hallo!

Code: Alles auswählen

$ echo -e \\b"12345678_"{1..8}  # 28 
12345678_112345678_212345678_312345678_412345678_512345678_612345678_712345678_8

[linuxCowboy]

Teufelskerl!

Code: Alles auswählen

e -e \\b12345678_{1..8} # 23
12345678_112345678_2123

Die bash schlägt zurück!

Code: Alles auswählen

c=8;eval "e -e \\\\b12345678_{1..${c}}"
12345678_112345678_212345678_312345678_

[Meillo]

Code: Alles auswählen

$ echo -e \\b"12345678_"{1..8}  # 28 
12345678_112345678_212345678_312345678_412345678_512345678_612345678_712345678_8

Uff ... Respekt! Das ist zwar unportabel, aber der kreative Ansatz beeindruckt mich.

btw: Wenn du das `\b' noch in die Quotes packst, dann musst du den Backslash nicht escapen und sparst damit noch ein Zeichen.

[linuxCowboy]

state of play

Champion perl:

Code: Alles auswählen

c=$COLUMNS;perl -E"print 1..8,_,\$_%10for 1..$c/10;say 1..$c%10" # 64
12345678_112345678_212345678_312345678_412345678_512345678_61234

Underdog bash:

Code: Alles auswählen

i=;while((i++<$COLUMNS));do((i%10))&&e -n $((i%10))||e -ne \\b_$((i/10%10));done # 80
12345678_112345678_212345678_312345678_412345678_512345678_612345678_712345678_8

Gelingt die Sensation!??

Edit: -1

Code: Alles auswählen

for i in `seq $COLUMNS`;do((i%10))&&e -n $((i%10))||e -ne \\b_$((i/10%10));done # 79
12345678_112345678_212345678_312345678_412345678_512345678_612345678_712345678_

[ThorstenS]

Die echo -e \\b-Lösung ist wirklich großartig!

[ChronoBoost]

Die echo -e \\b-Lösung ist wirklich großartig!

Ich schließe mich dem an. Sehr elegant/clever gelöst.

[linuxCowboy]

bash:

Code: Alles auswählen

printf "%c" $(seq $COLUMNS|sed -r 's/9$/_/;s/(.)0/\1/'|rev) # 59
12345678_112345678_212345678_312345678_412345678_512345678_

Sensation perfekt!?

Edit: -1

Code: Alles auswählen

printf "%c" `seq $COLUMNS|sed -r 's/9$/_/;s/(.)0/\1/'|rev` # 58
12345678_112345678_212345678_312345678_412345678_512345678

[ThorstenS]

Code: Alles auswählen

printf %c `seq $COLUMNS|sed -r 's/9$/_/;s/(.)0/\1/'|rev` # 56

[linuxCowboy]

bash legt nach:

Code: Alles auswählen

printf %c `seq $COLUMNS|sed 's/9$/_/;s/\(.\)0/\1/'|rev` # 55
12345678_112345678_212345678_312345678_412345678_512345

[r900]

Das "\(.\)0" Konstrukt ist doch gar nicht nötig..

Code: Alles auswählen

printf %c `seq $COLUMNS|sed 's/9$/_/;s/0$//'|rev` # 49
12345678_112345678_212345678_312345678_412345678_512345

[Meillo]

Das "\(.\)0" Konstrukt ist doch gar nicht nötig..

Code: Alles auswählen

printf %c `seq $COLUMNS|sed 's/9$/_/;s/0$//'|rev` # 49
12345678_112345678_212345678_312345678_412345678_512345

Ab dreistelligen Zahlen aber schon, oder?

[r900]

Ab dreistelligen Zahlen aber schon, oder?

Nein, denn das rev am Ende dreht die Zahlen um und durch printf %c wird dann nur die erste Ziffer gedruckt.
D.h. mit \(.\)0:
100 101 102 110 120 -> 10 11 12 11 12 -> 01 11 21 11 21
mit 0$:
100 101 102 110 120 -> 10 101 102 11 12 -> 01 101 201 11 21

[linuxCowboy]

another one bytes the dust

Code: Alles auswählen

printf %c `seq $COLUMNS|sed s/9$/_/\;s/0$//|rev` # 48
12345678_112345678_212345678_312345678_412345678

[linuxCowboy]

state of play

bash triumphiert:

Code: Alles auswählen

printf %c `seq $COLUMNS|sed s/9$/_/\;s/0$//|rev` # 48
12345678_112345678_212345678_312345678_412345678

perl verbessert, aber es reicht nicht:

Code: Alles auswählen

printf %c `seq $COLUMNS|perl -pes/9$/_/\;s/0$//|rev` # 52
12345678_112345678_212345678_312345678_412345678_512

Der Champ am Ende!??

[deberik]

Gegen den Dollar - gegen den Kapitalismus

Code: Alles auswählen

printf %c `seq $COLUMNS|sed s/9$/_/\;s/0//|rev` # 47
12345678_112345678_212345678_312345678_412345678

[linuxCowboy]

perl hängt in den Seilen

Code: Alles auswählen

seq $COLUMNS|perl -pe's/9$/_/;s/0//;s/.*(.)\n/$1/m' # 51
12345678_112345678_212345678_312345678_412345678_51

vernascht von den coreutils

Code: Alles auswählen

printf %c `seq $COLUMNS|perl -pes/9$/_/\;s/0//|rev` # 51
12345678_112345678_212345678_312345678_412345678_51

Welcher Monk kann das mit ansehen!??

[linuxCowboy]

damned!

Code: Alles auswählen

seq $COLUMNS|perl -pe's/9$/_/;s/0//;s/.*(.)\n/$1/' # 50
12345678_112345678_212345678_312345678_412345678_5

[linuxCowboy]

ruler - der Blick zurück

12345678_112345678_212345678_312345678_412345678_512345678_612345678_712345678_812345678_912345678_012345678_11234

Code: Alles auswählen

for i in `seq $COLUMNS`;do case $((i%10)) in 0) e -n $((i/10%10));;9) e -n _;;*) e -n $((i%10));;esac;done # 106

Code: Alles auswählen

for i in `seq $((COLUMNS/10))`;do e -n "`seq -s '' 8`_$((i%10))";done;seq -s '' $((COLUMNS%10)) # 95

Code: Alles auswählen

i=;while((i++<$COLUMNS));do((i%10))&&e -n $((i%10))||e -n $((i/10%10));done|sed s/89/8_/g # 89

Code: Alles auswählen

c=$COLUMNS;for i in `seq $((c/10))`;do e -n 12345678_$((i%10));done;seq -s '' $((c%10)) # 87

Code: Alles auswählen

i=;while((i++<$COLUMNS));do e -n $((i%10));((i%10))||e -en \\b\\b_$((i/10%10));done # 83

Code: Alles auswählen

for i in `seq $COLUMNS`;do((i%10))&&e -n $((i%10))||e -ne \\b_$((i/10%10));done # 79

Code: Alles auswählen

printf %c `seq $COLUMNS|sed -r 's/9$/_/;s/(.)0/\1/'|rev` # 56

Code: Alles auswählen

printf %c `seq $COLUMNS|sed s/9$/_/\;s/0//|rev` # 47

12345678_112345678_212345678_312345678_412345678_512345678_612345678_712345678_812345678_912345678_012345678_11234

Code: Alles auswählen

perl -E '$c='$COLUMNS';while(++$i<=$c/10){print "12345678_".$i%10}say substr"123456789",0,$c%10' # 96

Code: Alles auswählen

c=$COLUMNS;perl -E"print 1..8,_,\$_%10for 1..$c/10;say 1..$c%10" # 64

Code: Alles auswählen

printf %c `seq $COLUMNS|perl -pes/9$/_/\;s/0//|rev` # 51

Code: Alles auswählen

seq $COLUMNS|perl -pe's/9$/_/;s/0//;s/.*(.)\n/$1/' # 50

Sollte ein ruler nicht zum Linux-Werkzeugkasten gehören? Oder ist er einfach ein gutes Beispiel für die Anwendung desselben?

Ich kann mir auch gut vorstellen, ihn über einen extra Schalter in die bewährten Hände eines seq zu legen.

[Cae]

Ich kann mir auch gut vorstellen, ihn über einen extra Schalter in die bewährten Hände eines seq zu legen.

Vielleicht bei fold(1). Das kann Text nach bestimmten Kriterien umbrechen, u.a. nach Zeichen. Dann koennte man mit demselben Tool ausmessen, wie breit der Text nun (oder hinterher) ist. Vielleicht auch bei cat(1), in Anlehnung an cat -n (gibt Zeilenummern mit aus). Aber so wirklich passt's nicht in die "one tool for one job"-Philosophie, also eher eigenstaendiges Programm.

Gruss Cae