Font
[thread]12122[/thread]

Mit Perl rechnen (page 2)

Readers: 4


<< |< 1 2 3 4 5 ... 8 >| >> 77 entries, 8 pages
moritz
 2008-07-03 18:27
#111773 #111773
User since
2007-05-11
923 articles
HausmeisterIn
[Homepage]
user image
Anfänger sein ist keine Ausrede dafür sich nicht zu bemühen. Wenn du an einer bestimmten Stelle nicht weiterkommst, kannst du uns gerne um Hilfe bitten.

Ansonsten lies mal perlintro und/oder ein gutes Buch über Perl und programmieren lernen.
Napstack
 2008-07-03 18:37
#111774 #111774
User since
2008-07-03
32 articles
BenutzerIn
[default_avatar]
ich lese grad ein Perl buch...
jd
 2008-07-03 18:45
#111775 #111775
User since
2008-06-27
6 articles
BenutzerIn
[default_avatar]
Ein kleiner Rat: Wenn du eh schon Perl lernst, solltest du direkt
Code (perl): (dl )
use strict;
und
Code (perl): (dl )
use warnings;
benutzen. :)
Napstack
 2008-07-03 18:56
#111776 #111776
User since
2008-07-03
32 articles
BenutzerIn
[default_avatar]
use warnings kannte ich bisher noch nicht(wo für is das) und use strict war ich zu faul aber ich glaub damit fang ich jetz mal an
GwenDragon
 2008-07-03 19:00
#111777 #111777
User since
2005-01-17
14749 articles
Admin1
[Homepage]
user image
use warnings warnt vor "seltsamer" Programmierung, wenn etwas nicht initialisiert ist ... sonstige Fehler.
jd
 2008-07-03 19:00
#111778 #111778
User since
2008-06-27
6 articles
BenutzerIn
[default_avatar]
Code (perl): (dl )
use warnings;
gibt zusätzliche Warnungen aus, die du auch ausbessern solltest.
Besonders als Anfänger solltest du dieses Pragma immer benutzen.
Auf der Kommandozeile kannst du es auch durch die Option -w aktivieren, z.B. perl -w test.pl.
Napstack
 2008-07-03 19:33
#111779 #111779
User since
2008-07-03
32 articles
BenutzerIn
[default_avatar]
ah ok

Kann mir wer die Kommentare im Code beantworten?

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
use warnings;

my ($Ziel, $Zahl, $is_prime, $p, @prime)

print "Bis zu welcher Zahl sollen die Primzahlen gesucht werden?";
$Ziel = <STDIN>;
chomp $Ziel;

@prime = ("2");
foreach $Zahl (3..$Ziel) {
#Wofür ist $is_prime?
$is_prime = 1;
#Wofür ist $p was macht sie und brauche ich das for noch?
for $p (@prime) {
if ($Zahl % $p == 0){
$is_prime = 0;
#Was macht das last?
last;
}
}
}
jd
 2008-07-03 20:10
#111781 #111781
User since
2008-06-27
6 articles
BenutzerIn
[default_avatar]
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl
use strict;
use warnings;

my ($Zahl, $is_prime, $p);
my @prime = ("2");
print "Bis zu welcher Zahl sollen die Primzahlen gesucht werden?";
chomp(my $Ziel = <STDIN>);

foreach $Zahl (3..$Ziel) {
    #Wofür ist $is_prime?
    $is_prime = 1;
    #Wofür ist $p was macht sie und brauche ich das for noch?
    ##in dieser Schleife wird die Zahl aus der ersten Schleife durch die Zahlen in @prime geteilt.
    ##Wenn die Modulo-Division 0 ergibt wird die Schleife beendet.
    foreach $p (@prime) {
        if ($Zahl % $p == 0){
            $is_prime = 0;
            #Was macht das last?
            ##die Schleife nach diesem Durchgang beenden
            last;
        }
    }
}


Ich habe direkt ein paar Fehler korrigiert, die mir sofort ins Auge gesprungen sind.
Den Rest musst du allerdings selbst machen.
Napstack
 2008-07-03 20:59
#111783 #111783
User since
2008-07-03
32 articles
BenutzerIn
[default_avatar]
Füße küss^^

ne mal im ernst hast mir shonmal viel geholfen
jd
 2008-07-03 21:04
#111784 #111784
User since
2008-06-27
6 articles
BenutzerIn
[default_avatar]
Immer doch. :)

Du solltest dir eventuell mal ein gutes Perltutorial durchlesen, dann kannst du die restlichen Probleme sicher besser lösen.
Ich empfehle dir http://de.selfhtml.org/perl. Natürlich könntest du dir auch ein Buch kaufen, dann kannst du auch ohne PC lernen.

Viel Glück, und scheue dich nicht zu fragen!
<< |< 1 2 3 4 5 ... 8 >| >> 77 entries, 8 pages



View all threads created 2008-07-03 17:04.