integer und split (Allgemeines zu Perl)

[thread]19606[/thread]

integer und split

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+4 replies

Gast nano

2015-04-05 02:26

komm leider wieder nicht weiter :/
aufgabe: write a function that calculates the number of occurrences of "a" in a word (z.b. abbbattaaajqaAAAgtAWG) passed to it, and main program that calls this subroutine.use split

ich hab das:

Code (perl): (dl )

$| = 1;
use strict; use warnings;


print "exercise 4\n";

print "please enter a word:";
chomp (my $word = <STDIN>);

my $letter = "g/i";
while (<>) {
    chop;
    foreach $letter (split) {
        if ($letter eq $word) {
            print "$_\n";
            my $score ++;
        }
    
    }
}
print " number of A in word: $score\n"

ich bekomme aber keine ausgabe :/

und bei der 2. aufgabe steh ich total auf dem schlauch.
write an iterative subroutine that computes N factorial. the Programm should ask the use for an integer number N and Output N! the program should return an error message if the entered number is not a positive whole number.

hierbei habe ich keine Ahnung wie ich anfangen soll, geschweige denn wie es weiter aussehen sollte :(

modedit Editiert von GwenDragon: Code formatiert
Last edited: 2015-04-05 09:27:37 +0200 (CEST)

GwenDragon

2015-04-05 09:26

User since
2005-01-17
14533 Artikel
Admin1

Bitte Code mit Code- oder besser Perl-Button formatieren.
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

Gast wer

2015-04-05 11:48

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $word = 'abbbattaaajqaAAAgtAWG';

print cound_chars('a',$word)."\n";

sub cound_chars { return ( grep $_ eq $_[0], split //, $_[1] ) + 0; }

Last edited: 2015-04-05 14:13:36 +0200 (CEST)

Raubtier

2015-04-05 12:05

User since
2012-05-04
1054 Artikel
BenutzerIn

user image

Ich sag dir, wie es ohne split geht:

Code (perl): (dl )

1
2
3

my $wort = 'abbbattaaajqaAAAgtAWG';
my $anzahl = $wort =~ y/a/a/;
print "Das Wort $wort enthält das Zeichen 'a' $anzahl mal.\n";

Weil ich gerade Zeit hatte, habe ich deinen Code einmal kommentiert (ich werde dir keine fertige Lösung mit split schreiben):

Code (perl): (dl )

$| = 1; #wozu diese Zeile?
use strict; use warnings; # das würde ich schon in 2 Zeilen schreiben


print "exercise 4\n";

print "please enter a word:";
chomp (my $word = <STDIN>);

my $letter = "g/i"; # Letter klingt nach einem Buchstaben, nicht nach 3
while (<>) { 
    # wozu diese Loop? Und warum benennst du die Loop-Variable nicht?
    # Was soll der Benutzer denn eingeben?
    # $_ sollte man höchstens in der innersten Loop verweden, und auch nur,
    # wenn diese kurz ist (max 1 oder allerhöchstens 2 Zeilen)

    chop; # warum hier dann kein chomp?
    foreach $letter (split) {
        # Split ohne Argumente? Was splittest du hier?
        # Du splittest in die Variable $letter, deine Vorbelegung von $letter war
        # also nutzlos?!

        if ($letter eq $word) {
            # Das macht doch nur gar keinen Sinn. Ein Buchstabe eines Wortes
            # soll gleich dem ganzen Wort sein? Das kann nur für einbuchstabige
            # Wörter wie das englische "a" oder das niederländische "U" funktionieren!
            print "$_\n";
            # "my" hier? Damit wäre die Variable hinter der } verloren!
            my $score ++;
        }
    
    }
}
print " number of A in word: $score\n" 
# das kann doch nicht mal Kompilieren, weil es die Variable hier nicht mehr gibt

View all threads created 2015-04-05 02:26.