Guest User

Untitled

a guest
Oct 19th, 2018
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.65 KB | None | 0 0
  1.                     $line = <MY_FILE>;
  2.                     $line = <MY_FILE>;
  3.                     $line = <MY_FILE>;
  4.                     $line = <MY_FILE>;
  5.                     $line =~ /\*\s+\S+\s+\S+\s+\S+\s+(\S+)\s+\S+\s+\S+\s+\*/;
  6.                     @I;
  7.                     push( @I, $1 );
  8.                     $line = <MY_FILE>;
  9.                     $line =~ /\*\s+\S+\s+\S+\s+\S+\s+\S+\s+(\S+)\s+\S+\s+\*/;
  10.                     @I;
  11.                     push( @I, $1 );
  12.                     $line = <MY_FILE>;
  13.                     $line =~ /\*\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+(\S+)\s+\*/;
  14.                     @I;
  15.                     push( @I, $1 );
Add Comment
Please, Sign In to add comment