Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7862[/thread]

Schilling in Euro umrechnen

Leser: 1


<< |< 1 2 >| >> 14 Einträge, 2 Seiten
lolipop 999
 2006-04-07 10:21
#64500 #64500
User since
2006-04-07
150 Artikel
BenutzerIn
[default_avatar]
Hallo,

Ich habe hier ein Script, welches Schilling in Euro umrechnen soll, ABER es kommt immer die Fehlermeldung:

Search pattern not terminated at Euro.pl line 11

Line 11 ist die fettmarkierte

Das Ergebnis soll mit 4 Nachkommastellen erscheinen.

Hier der Code:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
#!c:/perl/bin/perl -w

$eing = 0;

print "\nBitte geben Sie Oes ein:\n";
chomp ($eing = <STDIN>);
my($kurs)= 13.7603;

if ($eing >= 0)
    { 
printf ("Euro von %d ist %.4f.\n", $eing, /$kurs  $eing); (LINE 11)
    }
print "Ende des Skripts.\n";


Bitte um Hilfe

mfg

lolipop 999[CODE]\n\n

<!--EDIT|renee|1144397629-->
renee
 2006-04-07 11:50
#64501 #64501
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das / vor $kurs ist falsch. Lass das mal weg...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Dubu
 2006-04-07 12:50
#64502 #64502
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
[quote=lolipop 999,07.04.2006, 08:21]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
#!c:/perl/bin/perl -w

$eing = 0;

print "\nBitte geben Sie Oes ein:\n";
chomp ($eing = <STDIN>);
my($kurs)= 13.7603;

if ($eing >= 0)
    { 
printf ("Euro von %d ist %.4f.\n", $eing, /$kurs  $eing); (LINE 11)
    }
print "Ende des Skripts.\n";

[/quote]
/$kurs  $eing ist keine gültige Perl-Syntax (wie renee schon bemerkte). Meinst du vielleicht $eing / $kurs?
lichtkind
 2006-04-07 13:54
#64503 #64503
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
was macht eigentlich das (LINE 11) da?
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
lolipop 999
 2006-04-07 14:14
#64504 #64504
User since
2006-04-07
150 Artikel
BenutzerIn
[default_avatar]
Ich will, Schiling in Euro umrechnen
Line 11 ist nur die Beschreibung wo der Fehler auftritt
habe jetz

das so abgewandelt

printf ("Euro von %d ist %.4f.\n", $eing, / $kurs);

funktioniert auch nicht gleicher Fehler

mfg

lolipop 999
lolipop 999
 2006-04-07 14:38
#64505 #64505
User since
2006-04-07
150 Artikel
BenutzerIn
[default_avatar]
Hallo
ich habe eine andere Lösung gefunden:

#!c:/perl/bin/perl -w

use Math::Trig;


print <<HERE_TEXT;

Berechnung von Oes in Euro:

Euro berechnen <1>

HERE_TEXT

$eingabe = 0;
$kurs = 13.7603;
$schilling = 0;

chomp ($eingabe = <STDIN>);

if ($eingabe == 1)
{
print "Bitte geben Sie Oes:\n";
chomp ($schilling = <STDIN>);
$euro = $schilling / $kurs;
print "\nEuro: $euro\n";
}


FUNKTIONIERT UND GETESTET

mfg

lolipop 999
Crian
 2006-04-07 15:42
#64506 #64506
User since
2003-08-04
5871 Artikel
ModeratorIn
[Homepage]
user image
Interessant... Problemlösung durch rewrite :lol:

Ach ja, benutze doch bitte in Zukunft CODE-Tags.
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
lolipop 999
 2006-04-07 15:43
#64507 #64507
User since
2006-04-07
150 Artikel
BenutzerIn
[default_avatar]
Wollte ich aber funktioniert net
drücke immer auf "Code" geht aber net

mfg

lolipop 999
Crian
 2006-04-07 15:48
#64508 #64508
User since
2003-08-04
5871 Artikel
ModeratorIn
[Homepage]
user image
Code: (dl )
bei mir schon
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
pq
 2006-04-07 16:55
#64509 #64509
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
[quote=lolipop 999,07.04.2006, 12:14]das so abgewandelt

printf ("Euro von %d ist %.4f.\n", $eing, / $kurs);[/quote]
wie machst du das im mathe-unterricht? du willst a durch b teilen.
du schreibst: a / b
du schreibst sicher nicht a, / b
wenn du in perl $eingabe durch $kurs teilen willst, schreibst du eben
$eingabe / $kurs.
und nicht $eingabe, / $kurs
du hast jetzt auf printf verzichtet und dafür endlich das geteilt-durch
korrekt hingekriegt:
$euro = $schilling / $kurs;
aber ich verstehe nicht, wieso du auf printf verzichtest.

nebenbei zwei ganz heiße tips:
Wiki:perldoc perlintro
Wiki:use strict
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
<< |< 1 2 >| >> 14 Einträge, 2 Seiten



View all threads created 2006-04-07 10:21.