in reply to How should I Extract data from text file. Pattern I have to extract should not repeated one.
It looks like the pattern you're trying to extract is comprised of exactly seven characters, each of which can be a 1 (one), 0 (zero), or X. However, your sample output shows three results of six characters, so I'm a bit confused.
In any event, if it is seven characters, the pattern you're looking for is /([X01]{7})$/. It also sounds like you only want to skip repeating patterns for groups, not for the entire dataset. For any line which doesn't match that pattern, you want to do what is sometimes known as a "control break" where you reset your data and start again. Thus, if I've understood your requirements correctly, the following simple program shows one way it can be done.
#!/usr/bin/env perl use strict; use warnings; my %seen; while ( my $line = <DATA> ) { if ( $line =~ /([X01]{7})$/ ) { # line matched, so print the pattern if we've not seen it befo +re my $result = $1; next if $seen{$result}++; print "$result\n"; } else { # the line did not match, so clear our "seen" patterns %seen = (); } } __DATA__ Pattern 0 (full_sequential) Time 0: period = 100 Time 0: force_all_pis = XX00X1X Time 200: force_all_pis = XX1X0X1 Time 400: force_all_pis = XXX1XX0 Time 600: force_all_pis = XXX1XX0 Time 800: force_all_pis = XXX1XX0 Time 940: measure_all_pos =1 Pattern 1 (full_sequential) Time 0: period = 100 Time 0: force_all_pis = XX0XX1X Time 200: force_all_pis = XX1XXXX Time 400: force_all_pis = XX0X10X Time 600: force_all_pis = XX1XXXX Time 800: force_all_pis = XX0010X Time 1000: force_all_pis =XX110X1 Time 1140: measure_all_pos =1 Pattern 2 (full_sequential) Time 0: period = 100 Time 0: force_all_pis = XX00X11 Time 200: force_all_pis = XX110X0 Time 340: measure_all_pos =1 Pattern 3 (full_sequential) Time 0: period = 100 Time 0: force_all_pis = XX01X10 Time 200: force_all_pis = XX1X0X1 Time 400: force_all_pis = XX00011 Time 600: force_all_pis = XX1X0X1 Time 740: measure_all_pos =0 Pattern 4 (full_sequential) Time 0: period = 100 Time 0: force_all_pis = XX00X1X Time 200: force_all_pis = XX1XXXX Time 400: force_all_pis = XX010X1 Time 600: force_all_pis = XX10XX0 Time 740: measure_all_pos =0 Pattern 5 (full_sequential) Time 0: period = 100 Time 0: force_all_pis = XXXX0XX Time 200: force_all_pis = XXXX1XX Time 400: force_all_pis = XX0011X Time 600: force_all_pis = XX111X1 Time 740: measure_all_pos =1 Pattern 6 (full_sequential) Time 0: period = 100 Time 0: force_all_pis = XX0X10X Time 200: force_all_pis = XX1XXXX Time 400: force_all_pis = XX0XX1X Time 600: force_all_pis = XX1XXXX Time 800: force_all_pis = XX00X1X Time 1000: force_all_pis =XX110X1 Time 1140: measure_all_pos =0 Pattern 7 (full_sequential) Time 0: period = 100 Time 0: force_all_pis = XXXX1XX Time 200: force_all_pis = XXXX0XX Time 400: force_all_pis = XX0001X Time 600: force_all_pis = XX110X1 Time 740: measure_all_pos =0 Pattern 8 (full_sequential) Time 0: period = 100 Time 0: force_all_pis = XX00X1X Time 200: force_all_pis = XX11XXX Time 400: force_all_pis = XX010X1 Time 600: force_all_pis = XX11XX0 Time 740: measure_all_pos =1 Pattern 9 (full_sequential) Time 0: period = 100 Time 0: force_all_pis = XX00X1X Time 200: force_all_pis = XX11XX0 Time 400: force_all_pis = XX0X0X1 Time 600: force_all_pis = XX1XXXX Time 800: force_all_pis = XXX0XX0 Time 940: measure_all_pos =0
And with that, your output is:
XX1X0X1 XXX1XX0 XX0XX1X XX1XXXX XX0X10X XX0010X XX110X1 XX00X11 XX110X0 XX01X10 XX1X0X1 XX00011 XX00X1X XX1XXXX XX010X1 XX10XX0 XXXX0XX XXXX1XX XX0011X XX111X1 XX0X10X XX1XXXX XX0XX1X XX00X1X XX110X1 XXXX1XX XXXX0XX XX0001X XX110X1 XX00X1X XX11XXX XX010X1 XX11XX0 XX00X1X XX11XX0 XX0X0X1 XX1XXXX XXX0XX0
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: How should I Extract data from text file. Pattern I have to extract should not repeated one.
by jumdesumit (Novice) on Feb 01, 2018 at 12:46 UTC | |
by haukex (Archbishop) on Feb 01, 2018 at 12:50 UTC | |
by AnomalousMonk (Archbishop) on Feb 01, 2018 at 13:44 UTC | |
|
Re^2: How should I Extract data from text file. Pattern I have to extract should not repeated one.
by jumdesumit (Novice) on Feb 04, 2018 at 12:56 UTC | |
by roboticus (Chancellor) on Feb 04, 2018 at 14:43 UTC | |
by jumdesumit (Novice) on Feb 05, 2018 at 05:11 UTC |
In Section
Seekers of Perl Wisdom