With your less-than-ample description, that's the best I can do in short order. Note that this code is completely *untested*, but shouldn't need too much messaging.#!/usr/bin/perl -w my $file = shift; my $start = shift; my $end = shift; my $outfile = "$file.out"; open(IN, "<$file") || die "Can't open $file!\n"; open(OUT, ">$outfile") || die "Can't open $outfile!\n"; while(<IN>) { if (/$start(.*)$end/) { print OUT $1; } }
In reply to Re: File Filtering... Help
by hmerrill
in thread File Filtering... Help
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |