Berechnung des Mantels eines Kegelstumpfes: Was mach ich falsch? (Allgemeines zu Perl)

ulix

2005-04-20 20:30

User since
2005-04-03
28 Artikel
BenutzerIn
[default_avatar]

Hi,
ich bin gerade dabei ein Script für die berechnung von dem Mantel eines Kegelstumpfes zu erstellen. Siehe hier:

Code: (dl )

#! /usr/bin/perl 
$pi = 3.141592654;

print "Eingabe von s: \n"
chomp($s = <STDIN>);

print "Eingabe von r1:    \n";
chomp($r1 = <STDIN>);

print "Eingabe von r2:    \n";
chomp($r2 = <STDIN>);

$m = $pi/3 * $s * ($r1 + $r2);

print "Ergebniss $m \n";

Was mach ich falsch?
es Kommt immer dieser Fehler:
ulix@linux:~/perlbuch/eigene> perl ksm.pl
syntax error at ksm.pl line 5, near "chomp"
Execution of ksm.pl aborted due to compilation errors.
ulix@linux:~/perlbuch/eigene>

Code: ()

1
2

Zitat (sri @ 09.04.2005, 18:49)
"channel spammer"

Ronnie

2005-04-20 20:51

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Dir fehlt ein Semikolon in Zeile 4.

ulix

2005-04-20 21:27

User since
2005-04-03
28 Artikel
BenutzerIn
[default_avatar]

ok ich habs gesehen!
Ich vergess die dinger Immer!
Danke :-)

Code: ()

1
2

Zitat (sri @ 09.04.2005, 18:49)
"channel spammer"

Dubu

2005-04-21 01:43

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Vielleicht solltest du eher Python oder Ruby lernen ... ;)

esskar

2005-04-21 02:56

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=Dubu,20.04.2005, 23:43]Vielleicht solltest du eher Python oder Ruby lernen ... ;)[/quote]
wie wärs mit visual basic?

Crian

2005-04-21 12:06

User since
2003-08-04
5872 Artikel
ModeratorIn

Du solltest use strict und use warnings verwenden. Du machst Dir das Leben ohne diese nur unnötig schwer. -> http://wiki.perl-community.de/bin/view/Wissensbasis/UseStrict

Konstanten kannst Du übrigens recht nett so erzeugen:

Code: (dl )

use constant PI => 3.14;

Verwendung:

Code: (dl )

my $erg = PI / 42 + 13 * $x * 4711;

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Ishka

2005-04-21 12:54

User since
2003-08-04
771 Artikel
HausmeisterIn

Code: (dl )

1
2

use Math::Trig;
print pi;

dann muß man sich keine Gedanken machen, ob das pi auch wirklich stimmt, wenn in vielen Jahren die Computer mal wesentlich genauer geworden sind :)

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Crian

2005-04-21 13:07

User since
2003-08-04
5872 Artikel
ModeratorIn

igitt, kleingeschriebene Konstanten sind imho bah

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Strat

2005-04-21 13:54

User since
2003-08-04
5246 Artikel
ModeratorIn

Tcl ist da noch netter; wenn man z.B. einen kommentar ans zeilenende schreiben will, muss man da sogar ein semikolon machen, obwohl man das in Tcl sonst fast nie braucht ... z.B.

Code: (dl )

1
2
3

puts "hello world" # fehler => aneinanderreihung von 2 kommandos in 1 zeile nur mit; moeglich
puts "hello world"; # so funzts... genauso wie die naechste zeile...
puts "hello world"

\n\n

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

Thorium

2005-04-21 17:28

User since
2003-08-04
232 Artikel
BenutzerIn

Übrigens berechnet sich laut Wikipedia (habe leider keni Formelheft zur Hand) die Mantelfäche so:

Code: (dl )

M=(r + R) * s * PI

wobei

Code: (dl )

M: Manelfläche
r: Radius Deckkreis
R: Radius Grundkreis
s: Seitenlänge

Per|li|nist der; -en, -en <zu â...ist>: a) AnhÃ¤nger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.