Help for this page

Select Code to Download

Select or download this
```
#! perl -w scipt
```
Select or download this
```
use strict;
use warnings;
```

Select or download this

my @files;
my @List_of_commands; 
my $line;
my $file;

Select or download this

while (<*.sql>) {
  push (@files,$_);
}

Select or download this
```
my @files=<*.sql>;
```
Select or download this
```
foreach (@files) {
```

Select or download this

for (<*.sql>) {  # I never use C<foreach> ;-)

Select or download this
```
  $file = $_;
```

Select or download this

for my $file (<*.sql>) {  # I still prefer C<for> orver C<foreach>!!

Select or download this
```
  open (FILE, "<$file");
```
Select or download this
```
  while (<FILE>){

    my $line = $_;
```

Select or download this

    if $line not =~ (/INSERT INTO Message_pool)/{
      #Do nothing
    }

Select or download this

#!/usr/bin/perl
# UNTESTED!
...
}

__END__

Select or download this

#!/usr/bin/perl -ln

...
print "whatever: $1";

__END__