7-7-7
777--7777-777
7-----------------77777B--------------7777777
A1234-------7------6
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Por una parte en un fichero tengo un fichero conformado así:
Using text Syntax Highlighting
linea6666
7-7-7
777--7777-777
7-----------------77777B--------------7777777
A1234-------7------6
7-7-7
777--7777-777
7-----------------77777B--------------7777777
A1234-------7------6
Lo que necesito es capturar las lineas que empiecen por números o letras mayúsculas (cualquier cantidad de ellos), que después tengan un '-' o varios, que después tengan un número o varios, después guiones y después uno o más números. De momento lo que tengo hecho es esto:
Using perl Syntax Highlighting
- open FILE, q[<], 'fi.txt' or die "$!";
- while (my $linea=<FILE>){
- chomp($linea);
- if ($linea =~ /^(\d|[A-Z])+(-*)+(\d+)?-(\d+)/){
- print "$linea matchea\n";
- }
- }
- close FILE;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Y no me está funcionando porque me imprime esta línea: 7-----------------77777B--------------7777777 matchea
¿Me podéis echar una mano?
)