#!/usr/bin/perl use strict; use warnings; use diagnostics; #more verbose feedback #useful for debugging my@num = (1..10); sub printeven{ my @given=@_; #pull in list given later: printeven(@list) my @evens; for (@given){ unless($_%2){ #unless odd push(@evens,$_); #add number to @evens } } $,=", "; #change list delimiter for fancy printing print @evens; print "\n"; #newline $,=""; #change list delimiter back before it is a problem } printeven(@num); #call sub with list of numbers 1-10
In reply to Re: Assignments for Subroutines
by protist
in thread Assignments for Subroutines
by perlguru22
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |