Using perl Syntax Highlighting
- #!/usr/bin/perl
- use strict;
- use warnings;
- use diagnostics;
- my $texto = do { local $/; open FILE, 'kk.txt'; <FILE> };
- $texto =~ s/\s\s+/ /smg;
- while (<FILE>) {
- if ($texto =~ /^(DP .*?)^[A-Z]/smg) {
- print $1;
- }
- if ($texto =~ /^(AD .*?)^[A-Z]/smg) {
- print $1;
- }
- }
- close(FILE);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4