Perl – הבדלי גרסאות

תוכן שנמחק תוכן שנוסף
מ תיקון קישור
←‏מבנה: תיקון באגים בדוגמא האחרונה...
שורה 132:
 
<source lang="perl">
# %beatelsbeatles was defined in a previous example
my @instruments = ('Sitar', 'Violin', 'Bass', 'Drums', 'Flute', 'Bass', 'Guitar');
my @beatles_intrumentsbeatles_instruments = ();
foreach (@instrumentinstruments) {
next unless (exists $beatelsbeatles{$_});
push @beatles_instruments, $_;
}