#!/usr/bin/perl -w use strict; my %DataBase; while(<>) { $DataBase{$_}++ if /(?<!from )INSERT INTO Photo/; }; open OUT, ">results.txt" or die $!; print OUT for sort keys %DataBase; close OUT;
In reply to Re: Trying to avoid line noise (brain cramp)
by ChOas
in thread Trying to avoid line noise (brain cramp)
by Ovid
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |