Einfach ne Frage (Seite 2) (Sonstige Beiträge (auch Spaß und Sinnloses))

[thread]1967[/thread]

Einfach ne Frage (Seite 2)

Taulmarill

2005-06-16 18:37

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

@ronnie: das sehe ich ählich, wobei man aufpassen sollte, dass man bei dem "mit weniger code mehr tun" nicht in's golfen abrutscht. der code sollte von jedem am projekt beteiligten und vor allen dingen von einem selbst noch problemlos lesbar sein, und das auch noch nach ein paar monaten.
abgesehen davon finde ich code der moglichst kompakt ist und wenige variablen verwendet aber auch erheblich verständlicher. wenn man am ende einer subroutine nicht mehr weiss was am anfang gemacht wurde, wird's zeit die sache weiter aufzuspalten.

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

Strat

2005-06-16 19:09

User since
2003-08-04
5246 Artikel
ModeratorIn

zu den kommentaren: am hilfreichsten sind meiner Meinung nach immer die, die beschreiben, warum man was macht; was man macht, steht ja eh schon als code da ;-)

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

ptk

2005-06-16 21:53

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Das ist mein groesstes Perl-Skript:

Code: (dl )

1
2

$ wc -l bbbike
  17238 bbbike

Ich versuche, unter 500kB beim Skript zu bleiben. Mit allen Modulen duerfte es mehr als 50000 Zeilen haben.

sri

2005-06-20 16:48

User since
2004-01-29
828 Artikel
BenutzerIn

Code: (dl )

odyssey:~ sri$ sloccount src/svn/Catalyst/
<snip>
Totals grouped by language (dominant language first):
perl:         11768 (99.77%)
sh:              27 (0.23%)




Total Physical Source Lines of Code (SLOC)                = 11,795
Development Effort Estimate, Person-Years (Person-Months) = 2.67 (32.03)
 (Basic COCOMO model, Person-Months = 2.4 * (KSLOC**1.05))
Schedule Estimate, Years (Months)                         = 0.78 (9.33)
 (Basic COCOMO model, Months = 2.5 * (person-months**0.38))
Estimated Average Number of Developers (Effort/Schedule)  = 3.43
Total Estimated Cost to Develop                           = $ 360,516
 (average salary = $56,286/year, overhead = 2.40).

Code: (dl )

odyssey:~ sri$ sloccount src/svn/pugs/
<snip>
Totals grouped by language (dominant language first):
ansic:        27560 (51.87%)
haskell:      13639 (25.67%)
perl:         11863 (22.33%)
sh:              66 (0.12%)




Total Physical Source Lines of Code (SLOC)                = 53,128
Development Effort Estimate, Person-Years (Person-Months) = 12.96 (155.53)
 (Basic COCOMO model, Person-Months = 2.4 * (KSLOC**1.05))
Schedule Estimate, Years (Months)                         = 1.42 (17.01)
 (Basic COCOMO model, Months = 2.5 * (person-months**0.38))
Estimated Average Number of Developers (Effort/Schedule)  = 9.14
Total Estimated Cost to Develop                           = $ 1,750,779
 (average salary = $56,286/year, overhead = 2.40).

Is ja ein fun thread! :)

http://mojolicio.us/

Strat

2005-06-20 20:10

User since
2003-08-04
5246 Artikel
ModeratorIn

http://develop.perl-community.de/ hat z.B. bisher

Code: (dl )

  1374   4060  45801 Actions.pm
   260    768   8634 Admin.pm
   487   1565  15135 Config.pm
  1627   4976  57755 DB.pm
   545   2115  18393 Posting.pm
   216    682   6563 Subs.pm
   94     330   3128 User.pm
  138     445   3913 board.pl
   91     224   2419 download.pl
   46     111   1097 mod_perl_startup.pl
  160     446   4406 upload.pl
 2097    6676  86143 templates

Meine bisher groesstes Script hatte (ohne den ganzen Kram rund herum) etwa 17_000 Zeilen Perl und so 2500 C

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Gast Gast

2005-06-16 23:33

[quote=lichtkind,16.06.2005, 17:43]hilfreich ist es auch die sub gut zu sortieren[/quote]
Null Problemo!

Code: (dl )

cat your_script.pl | sort > your_sorted_script.pl

;)

Merlin

2005-06-17 10:03

User since
2005-06-06
63 Artikel
BenutzerIn
[default_avatar]

Guten Morgen,

Naja ich versuchs auf jedenfall mal meine Begründung zu schreiben, warum ich was mache, aber dann steht überall: "#Damit der Kunde zufrieden ist und dieses verfluchte Programm endlich dort ist wo es hingehört und ich nie wieder was davon höre" :D
Hört Ihr meine Liebe in dieses Programm raus? :)

Noch nen schönen Tag

Merlin

perldoc is your answer

Strat

2005-06-16 16:01

User since
2003-08-04
5246 Artikel
ModeratorIn

haengt davon ab, wie man rechnet; verstehst du unter programm ein einzelnes ausfuehrbares perl-script+selbstgeschriebene Module, oder was, was logisch ein programm ergibt, also wenn es z.B. aus mehreren Komponenten besteht (z.B. Caching-Deamons, Ueberwachung, extern ausgefuehrte Scripte), oder zaehlst du da auch die ganzen Testscripte dazu? Wie wird Codegenerierung gerechnet (z.B. bei automatischer Erzeugung von Konfigurationsdateien in der Sprache Perl)? Soll man das komplett alleine geschrieben haben oder zaehlt auch im Team?\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Taulmarill

2005-06-16 17:09

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

Quote
Moegen taete ich schon wollen, aber von woher kann ich wissen, ob ich mich berechtigterweise trauen tun darf...

wow, bist du germanistiksturend? :)

zurück zum topic. ich hab hier nen mod_perl handler der ohne eingebundene module gute 1.000 Zeilen wiegt. kaum kommentare, erst recht kein pod oder so was. das nennt man arbeitsplatzsicherung :D

Merlin

2005-06-16 18:42

User since
2005-06-06
63 Artikel
BenutzerIn
[default_avatar]

Ich hab bei meinen Codes am nächsten Tag manchsmal schon Probleme sie zu lesen :) ich glaub ich mach zuviele kommentare die verwirren mich immer :)

perldoc is your answer

View all threads created 2005-06-16 16:40.