[perl] subroutine aanmaken

[Verwijderd]

stel ik wil het volgende in een subroutine aanmaken met meerdere if statements erin, hoe doe ik dat aangezien de basisopmaak van een sub { } is
gaat het dan mis als je dan dus heb sub { if {} else {} } ik wil namelijk een sub results aanmaken met daarin een routine die voor meerdere hashes moet plaatsvinden.

code:

sub results;

{

#open (FILE,$filename) || die "$!";
foreach $temp(@memory) {
    
    if ($temp =~ /\b$element\b/ig) {
        $element_count{$element} ++ ;
        }
    }
    
    
#if ($element_count != 0) {
    
$number = $elements{$element};
if ($number >= 4){
        
    $ratio = $number / $hits;
    
    print "\n$number x $element\n";
            

    }
}


foreach $element (sort keys %elements){
              sub results();
             }

foreach $temp (sort keys %temps){
              sub results();
             }

[ Voor 42% gewijzigd door Verwijderd op 09-05-2004 14:58 . Reden: opmaak ]

[Verwijderd]

Wat je zegt is mij niet helemaal duidelijk, maar gewoon zoiets:

code:

sub sub_naam {
    print @_;
}

[ Voor 27% gewijzigd door Verwijderd op 09-05-2004 14:55 ]

[Verwijderd]

Verwijderd schreef op 09 mei 2004 @ 14:51:
Wat je zegt is mij niet helemaal duidelijk, maar gewoon zoiets:

code:

sub sub_naam {
    print @_;
}

dat vermoedde ik al, hopelijk nu wat duidelijker