$> perl -d charcount walrus
Loading DB routines from perl5db.pl version 1.28
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(charcount:9): my $file = $ARGV[0] || '';
DB<1> l 20+15
20: my $i_spec = 0;
21
22 # parse the file
23: while (<$FH>) {
24: my $line = $_;
25: $i_cons += my $cons = &parse($line, '[bcdfghjklmnpqrstvwxyz]');
26: $i_vows += my $vows = &parse($line, '[aeiou]');
27: $i_spec += my $spec = &parse($line, '[^a-zA-Z0-9\s]');
28: $DB::trace = 0;
29: print sprintf('%6d', $i_cnt).':'.
30 ' hard'.('.'x(8-length($cons))).$cons.
31 ' soft'.('.'x(8-length($vows))).$vows.
32 ' spec'.('.'x(8-length($spec))).$spec;
33: print $verbose ? " $line\n" : "\n";
34: $i_cnt++;
35 }
DB<2> c 33
0: hard......20 soft......12 spec.......1
main::(charcount:33): print $verbose ? " $line\n" : "\n";
DB<3> p $line
The Walrus and The Carpenter by Lewis Carroll.
DB<4>