دیدم اعضای محترم گارد ایران دنبال پروژه برنامه نویسی پرل هستند براتون مثالی از پروژه عملی رو قرار دادم و اینم یک سورس آموزشی دیگه
#!/usr/bin/perluse warnings;use strict;sub add_it{ my $lookup = shift(@_); my $ref = shift(@_); ${$ref}{$lookup} += 1;}my %word_freq = ();print ("Enter input filename->");chomp(my $ifilename = );die ("Could not locate $ifilename: $!n") unless ( -e $ifilename );open(IFILE, "$word_freq{$_}n";}exit(0);