perl - How can I use the until function with appropriate way -

-

i have file want filter that:

##matrix=axtchain 16 91,-114,-31,-123,-114,100,-125,-31,-31,-125,100,-114,-123,-31,-114,91 ##gappenalties=axtchain o=400 e=30 chain 21455232 chr20 14302601 + 37457 14119338 chr22 14786829 + 3573 14759345 1 189     159     123 24      30      22 165     21      20 231     105     0 171     17      19 261     0       2231 222     2       0 253     56      48  chain 164224 chr20 14302601 + 1105938 1125118 chr22 14786829 + 1081744 1100586 8 221     352     334 24      100     112 34      56      56 26      50      47 ……………………. chain 143824 chr20 14302601 + 1105938 1125118 chr22 14786829 + 1081744 1100586 8

so, briefly,there blocks separated blank line. each block begins line " chain xxxxx " , continues lines numbers. want filter out file , keep blocks chain , number follows greater 3000. wrote following script that:

#!/usr/bin/perl use strict; use warnings; use posix;  $chain = $argv[0];  #it filters chains chains >= 3000. open $chain_file, $chain or die "could not open $chain: $!";  @array; while( $cline = <$chain_file>)  {     #next if /^\s*#/;     chomp $cline;     #my @lines = split (/ /, $cline);     if ($cline =~/^chain/) {         @lines = split (/\s/, $cline);         if ($lines[1] >= 3000) {             #print $lines[1];             #my @lines = split (/ /, $cline);              #print "$cline\n";             push (@array, $cline);         }     }     until ($cline ne ' ') {         push (@array, $cline);     }       foreach (@array) {         print "$_\n";      }     undef(@array); }

the problem can print headers (chain xxxxx…..) , not numbers follows @ next lines of each block. i'm using until function till find blank line, doesn't work. if me that…. thank in advance, vasilis.

the first problem here ' ' single space, not blank line ("" or '' should fine since you've chomp-ed line.

the second problem that

until ( $cline ne "" )

is same as

while ( $cline eq "" )

which opposite of need push lines @array.

that said, flip-flop operator more suitable construct you're after:

my @array; while ( <$chain_file> ) {          # using $_ instead of $cline      chomp;      if ( { /^chain\s+(\d+)/ && $1 >= 3000 } .. /^$/ ) {                                     # accumulate lines in @array         push @array, $_;           # false until lhs evaluates true ...     }                              # ... true until rhs evaluates true      else {         ( @array ) {           print $_, "\n";          # print matches         }         @array = ();               # reset/clear out @array     } }

Comments

Post a Comment

Popular posts from this blog

c# - Unity IoC Lifetime per HttpRequest for UserStore -

-
i'm trying clean default implementation of accountcontroller.cs comes out of box in new mvc5/owin security implementation. have modified constructor this: private usermanager<applicationuser> usermanager; public accountcontroller(usermanager<applicationuser> usermanager) { this.usermanager = usermanager; } also, have created lifetime manager unity looks this: public class httpcontextlifetimemanager<t> : lifetimemanager, idisposable { private httpcontextbase _context = null; public httpcontextlifetimemanager() { _context = new httpcontextwrapper(httpcontext.current); } public httpcontextlifetimemanager(httpcontextbase context) { if (context == null) throw new argumentnullexception("context"); _context = context; } public void dispose() { this.removevalue(); } public override object get...
Read more

Change the color of an oval at click in Java AWT -

-
i have draw ovals in java, , @ click change color. beginning tried change color after 20 ms, doesn't work. my code is: public class mycomponentnew extends frame { public graphics2d g2d; public mycomponentnew(string title) { super(title); setsize(400, 550); } @override public void paint(graphics g) { this.g2d = (graphics2d) g; this.g2d.setcolor(color.red); this.g2d.filloval(10, 55, 50, 100); } public void changecolor () { this.g2d.setcolor(color.blue); this.g2d.filloval(10, 55, 50, 100); } } and in class main method have: mycomponentnew m; m = new mycomponentnew("fereastra cu baloane"); m.setvisible(true); m.addwindowlistener(new windowadapter() { @override public void windowclosing(windowevent we) { system.exit(0); } }); try { thread.sleep(20); } catch(interruptedexception e) {} m.changecolor(); the color of oval remains red. ...
Read more

I am trying to solve the error message 'incompatible ranks 0 and 1 in assignment' in a fortran 95 program. -

-
i writing program in fortran find velocity of parachuting person in relation time. keep getting error can't fix. new programming , appreciated. the error is v(i+1)=v(i)+[32-((c*v(i)*v(i))/m)]*(h) 1 error: incompatible ranks 0 , 1 in assignment @ (1) and program is program para integer :: real :: v(11) !velocity real :: q !initial velocity real :: h !time step real :: c !drag coefficient real :: m !mass ! gravity equal 32 ft/s^2 write (*,*)'enter time step' read(*,*)h write(*,*)'enter initial velocity' read(*,*)q write(*,*)'enter drag coefficient' read(*,*)c write(*,*)'enter mass' read(*,*)m i=1,10 ! 1 10, 1 being interval. end v(i+1)=v(i)+[32-((c*v(i)*v(i))/m)]*(h) q=v(1) end program you cannot use [] normal parenthesis in expressions. array constructor, [ items ] means array items elements. end do should after line.
Read more