drock has asked for the wisdom of the Perl Monks concerning the following question:
All,
can anyone provide some help?
my current output is
E00854), Seq #: 000595 in TLU: st_
and all I want is the E string and cannot get my substr working
Here is my code:
foreach (split /\n/, $EDM_nonactive_tapelist ) { if (( /\((E\d+)/ ) && ( !m/\*Orig/ ) && ( m/st +_9840_acs_0/ )) { local $, = "\t"; #print OUT "$1\n" unless substr($_, 0, + 5) eq '*Orig'; #my $fooed = substr($_, 29, 34) ; #print "$fooed \n"; print "$1\n" if substr($_, 29, 34) eq +'E0+'; #print "$_ \n"; exit 0; } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: substr complexities
by ikegami (Patriarch) on Sep 01, 2004 at 19:26 UTC | |
Re: substr complexities
by ikegami (Patriarch) on Sep 01, 2004 at 17:54 UTC | |
Re: substr complexities
by Limbic~Region (Chancellor) on Sep 01, 2004 at 17:36 UTC | |
Re: substr complexities
by Not_a_Number (Prior) on Sep 01, 2004 at 18:59 UTC |
Back to
Seekers of Perl Wisdom