Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/local/bin/perl
- $fullsource = '';
- open (MYFILE, 'danosource.txt');
- while (<MYFILE>)
- {
- chomp;
- $fullsource .= "$_\n";
- }
- close (MYFILE);
- @classes = $fullsource =~ m/<a href="javascript:__doPostBack\('DataGridSummary\$_ctl[0-9]*\$_ctl0',''\)">([^<]+)<\/a><[^>]+><[^>]+>[^0-9<]+([0-9.]*) *([A-F\-+]*)/g;
- $i = 0;
- foreach $var (@classes)
- {
- if ($i == 0)
- {
- print "$var \t";
- }
- elsif ($i == 1)
- {
- print $var;
- }
- else
- {
- print " (".$var.")\n";
- $i = -1;
- }
- $i++;
- }
Add Comment
Please, Sign In to add comment