| Revision 7989, 171 bytes checked in by daisuke, 13 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 | } |