Revision 7989, 171 bytes checked in by daisuke, 11 years ago (diff) | |
---|---|
|
Line | |
---|---|
1 | #!/usr/bin/perl |
2 | |
3 | while (<>) { |
4 | /Identifier.*"(.*)"/ && print $1, "; 0; "; |
5 | /HorizSync ([0-9-]+)/ && print $1, "; "; |
6 | /VertRefresh ([0-9-]+)/ && print $1, "\n"; |
7 | } |