| Revision 7989, 171 bytes checked in by daisuke, 13 years ago (diff) | |
|---|---|
|
|
| Rev | Line | |
|---|---|---|
| [7989] | 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 | } |