Match Operator Example
Match Operator Example
- Match Header files from source files
- Unless statement:
- Warns when a file couldn’t be opened
- Prints the include statement for lines matched
foreach $file (@ARGV) {
unless (open(FILE, $file)){
warn "Can't open $file: $!\n";
} else {
print "$file:\n";
while () {
if (/^#include/) {
print "\t$_";
}
}
}
}