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