Guest User

Untitled

a guest
Aug 16th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.24 KB | None | 0 0
  1. # FFmpeg encoding defaults
  2. use warnings;
  3.  
  4. $dir = 'C:/Steven/Desktop/ffmpeg-02b651a/libavformat';
  5. @files = glob "$dir/*";
  6. local $/;
  7. $re = qr/AVOutputFormat.*?;/s;
  8.  
  9. for (@files) {
  10.  
  11. open FILE, $_;
  12.  
  13. @matches = <FILE> =~ /$re/g;
  14.  
  15. print @matches;
  16.  
  17. }
Add Comment
Please, Sign In to add comment