Associative Array Example

Associative Array Example

# First extract the include lines from each file.

foreach $file (@ARGV) {

open(FILE, $file) || warn "Can't open $file: $!\n";

while () {

if (/^#include\s+["<]([^">]*)[">]/) {

$includes{$file} .= $1 . ' ';

}

}

}

\1

Previous slide Next slide Back to the first slide View Graphic Version