Yoda_Oz has asked for the wisdom of the Perl Monks concerning the following question:
#!usr/local/bin/perl use strict; use warnings; print ("Enter filename to search for punctuation characters: "); $path=<STDIN>; print ("\n"); open(DATA, "<$path") || die "Couldn't open $path for reading: $!\n"; while (<DATA>) { while (s/([\041-\057]|[\72-\100]|[\133-\140]|[\173-\176])(.*)/$2/) { my $count = $1; $wordHash{$count}++; } } %charnames = ( '?' => 'question mark', '.' => 'fullstop', ',' => 'comma', '(' => 'open bracket', ')' => 'close bracket', '-' => 'hyphen/minus', '$' => 'dollar', '=' => 'equals', '/' => 'forward slash', "\\" => 'backward slash', '|' => 'pipe', '!' => 'exclaimation', '"' => 'speech marks', '*' => 'asterisk', '£' => 'pound', '%' => 'percent', '^' => 'carrot', '&' => 'ampes and', '_' => 'underscore', '+' => 'plus', '{' => 'open curly bracket', '}' => 'close curly bracket', '[' => 'open square bracket', ']' => 'close square bracket', '~' => 'tilde', '#' => 'hash', '<' => 'less than', '>' => 'greater than', '@' => 'at', "'" => 'apostrophe', ':' => 'semi-colon', ';' => 'colon', ); while ( ($punctuation, $count) = each(%wordHash) ) { $wordArray[$i] = "$count\t$punctuation"; $i++; print ("$count\t$charnames{$punctuation}\n"); }
Global symbol "$path" requires explicit package name at punctuation.pl + line 6. Global symbol "$path" requires explicit package name at punctuation.pl + line 8. Global symbol "$path" requires explicit package name at punctuation.pl + line 8. Global symbol "%wordHash" requires explicit package name at punctuatio +n.pl line 14. Global symbol "%charnames" requires explicit package name at punctuati +on.pl line 17. Global symbol "$punctuation" requires explicit package name at punctua +tion.pl line 52. Global symbol "$count" requires explicit package name at punctuation.p +l line 52. Global symbol "%wordHash" requires explicit package name at punctuatio +n.pl line 52. Global symbol "@wordArray" requires explicit package name at punctuati +on.pl line 54. Global symbol "$i" requires explicit package name at punctuation.pl li +ne 54. Global symbol "$count" requires explicit package name at punctuation.p +l line 54. Global symbol "$punctuation" requires explicit package name at punctua +tion.pl line 54. Global symbol "$i" requires explicit package name at punctuation.pl li +ne 55. Global symbol "$count" requires explicit package name at punctuation.p +l line 56. Global symbol "%charnames" requires explicit package name at punctuati +on.pl line 56. Global symbol "$punctuation" requires explicit package name at punctua +tion.pl line 56. Execution of punctuation.pl aborted due to compilation errors.
2006-01-30 Retitled by g0n, as per Monastery guidelines
Original title: 'variables'
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Declaring variables under 'use strict'
by bobf (Monsignor) on Jan 30, 2006 at 04:09 UTC | |
|
Re: Declaring variables under 'use strict'
by Cody Pendant (Prior) on Jan 30, 2006 at 05:40 UTC | |
|
Re: Declaring variables under 'use strict'
by davido (Cardinal) on Jan 30, 2006 at 06:14 UTC | |
|
Re: Declaring variables under 'use strict'
by spiritway (Vicar) on Jan 30, 2006 at 06:51 UTC | |
|
Re: Declaring variables under 'use strict'
by ysth (Canon) on Jan 30, 2006 at 08:39 UTC | |
| A reply falls below the community's threshold of quality. You may see it by logging in. |