Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $line = <MY_FILE>;
- $line = <MY_FILE>;
- $line = <MY_FILE>;
- $line = <MY_FILE>;
- $line =~ /\*\s+\S+\s+\S+\s+\S+\s+(\S+)\s+\S+\s+\S+\s+\*/;
- @I;
- push( @I, $1 );
- $line = <MY_FILE>;
- $line =~ /\*\s+\S+\s+\S+\s+\S+\s+\S+\s+(\S+)\s+\S+\s+\*/;
- @I;
- push( @I, $1 );
- $line = <MY_FILE>;
- $line =~ /\*\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+(\S+)\s+\*/;
- @I;
- push( @I, $1 );
Add Comment
Please, Sign In to add comment