Help for this page

Select Code to Download

Select or download this

        &clean_the_file();

...
        my ( $sourcefile, $removeq ) = @_;
        `grep -v $removeq $sourcefile > $tempfile`;
}