evan_tech

Previous Entry Share Next Entry
10:39 pm, 24 Nov 07

perlc

At http://neugierig.org/software/perlc/ you will find an evening's hack by xaosenkosmos and me. Prompted by noticing in gcc's manual that identifiers may use $, we decided to see how much more Perl support we could do. The C file #includes the following program and runs it properly, without any preprocessing other than that built into GCC:
my $desc = "A wc-like program. Use 'perl -n c.pl < file'.";
my $letters;
my $lines;

sub process_line ($) {
  my $line = shift;
  $letters += length($line);
  $lines++;
}

process_line($_);

END {
  printf("letters: %d; lines: %d\n", $letters, $lines);
}
You can browse the source of the C program for more information. We went to great pains for exact Perl syntax.